'Nome       : EncLotAdi.par
'Tipo       : DOC
'Data       : 2008/11/16
'Versao     : 1.0
'Descricao  : Formato para opcoes adicionais para lotes

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2008/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF:IDE - Definicoes base
'==============================================================================
'aspecto
Dimensao da janela             [AspDim]=800T
'Dimensao da janela             [AspDim]=1024T

'posicao
Posicao base X                  [BasPx]=AUT
Posicao base Y                  [BasPy]=AUT
##


'==============================================================================
#VAR - Registar variaveis
'==============================================================================
Posicao X - Base                  [BaseXi]=BasPx +  200
Posicao Y - Base                  [BaseYi]=BasPy + 1000

Dimensao X - identificacao      [LocDxIde]=2000
Dimensao X - valor              [LocDxCmp]=1500
##


'==============================================================================
#PAG - Definicao da pagina 
'==============================================================================
Identificador                     [IDE]=Pag01
Descricao                         [DES]=Dados Adicionais
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=Artigo
Descricao                         [DES]=Artigo

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=BasPx + 200,BasPy + 500,LocDxIde,N

Variavel                          [VAR]=
Valor a mostrar                   [VER]=[DES]
Cor                               [COR]=[INF]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=Codigo
Descricao                         [DES]=Codigo

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=
Posicao/Dimensao CMP              [PDI]=Artigo_X2+45,BasPy + 500,LocDxCmp,N

Variavel                          [VAR]=STC_MST_Art$
Valor a mostrar                   [VER]=[VAR]
Cor                               [COR]=[INP]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#ADC - Campo adicional
'==============================================================================
Identificador                     [IDE]=Nome
Descricao                         [DES]=Nome

Tipo/Aspecto                      [TIP]=IDE
Alinhamento                       [ALI]=<
Posicao/Dimensao CMP              [PDI]=Codigo_X2 + 45,BasPy + 500,6000,N

Variavel                          [VAR]=STC_MST_Nome1$
Valor a mostrar                   [VER]=[VAR]
Cor                               [COR]=[INP]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Adi_Num
Descricao                         [DES]=Adicional - Numero

Tipo/Aspecto                      [TIP]=NUM
Formato                           [FRM]=  8.3

Modo de uso                       [USO]=VER,REC,ALT
Posicao/Dimensao IDE           [PdiIde]=BasPx + 200,BasPy + 1000, LocDxIde,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,LocDxCmp,N

Variavel                          [VAR]=Adi_Num
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Adi_Txt
Descricao                         [DES]=Adicional - Texto

Tipo/Aspecto                      [TIP]=TXT
Formato                           [FRM]= 20

Modo de uso                       [USO]=VER,REC,ALT
Posicao/Dimensao IDE           [PdiIde]=BasPx + 200,BasPy + 1500, LocDxIde,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,LocDxCmp,N

Variavel                          [VAR]=Adi_Txt$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Adi_Data
Descricao                         [DES]=Campo adicional - Data

Tipo/Aspecto                      [TIP]=DT
Formato                           [FRM]=  4

Modo de uso                       [USO]=VER,REC,ALT
Posicao/Dimensao IDE           [PdiIde]=BasPx + 200,BasPy + 2000, LocDxIde,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,LocDxCmp,N

Variavel                          [VAR]=Adi_Dt$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#CMP - Campo
'==============================================================================
Identificador                     [IDE]=Adi_Notas
Descricao                         [DES]=Adicional - Notas

Tipo/Aspecto                      [TIP]=ZTX
Formato                           [FRM]=  0

Modo de uso                       [USO]=VER,REC,ALT
Posicao/Dimensao IDE           [PdiIde]=BasPx + 200,BasPy + 3500, LocDxIde,N
Posicao/Dimensao CMP           [PdiCmp]=AUT   ,AUT         ,LocDxCmp + 45 + 6000,1000

Variavel                          [VAR]=Adi_Ztx$
Valor a mostrar                   [VER]=[VAR]

Funcao base                       [FXB]=
Adicional                         [ADI]=
##


'==============================================================================
#VBS:TX - VbScript
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'---------------------------------------------->'Comentario (49)
'------------------------------------->'Comentario (40)

Dim VarXxx                             'variavel XXX


Sub FxIni 'inicializar wizzard
msgbox "FxIni >?<"

'with Rda
'end with
end sub


Sub FxFim 'terminar wizzard
'msgbox "FxFim >?<"
end sub


Function PagModo_Seg() 'pagina modo de funcionamento - seguinte
end Function


Sub PagFim() 'fim do wizzard
end sub


sub dbgVar 'debug de variaveis
with wiz
'tmp1 = .VbsVar("xMax")            'consultar valor de variavel
'tmp2 = .VbsVar("yMax$")           'consultar valor de variavel

tmp1 = xMax          'consultar valor de variavel
tmp2 = yMax          'consultar valor de variavel


'.MsgVer "xMax",tmp1
'.MsgVer "yMax$",tmp2 
end with
end sub


'------------------------------------------------------------------------------
'#RDA - Funcoes RDA
'------------------------------------------------------------------------------
'- Campos ---------------------------------------------------------------------
Sub Rda_CmpPrp 'preparar campos
with Com
'.MsgVer "RDA - Campos","Preparar"
end with
end sub


'- Paginas --------------------------------------------------------------------
Sub Rda_PagVerPrp_1 'preparar pagina a mostrar - pagina 1
with Com
'.MsgVer "RDA - Pagina","Preparar - Pagina 1"
end with

with Rda
vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 1, "Pagina 1"
end with
end sub


Sub Rda_PagVerPrp_2 'preparar pagina a mostrar - pagina 2
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 2"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 2, "Pagina 2"
end with
end sub


Sub Rda_PagVerPrp_3 'preparar pagina a mostrar - pagina 3
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 3"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 3, "Pagina 3"
end with
end sub


Sub Rda_PagVerPrp_4 'preparar pagina a mostrar - pagina 4
with Com
'.MsgVer "RDA - Pagina","Preparar Pagina 4"
end with

with Rda
'vop = .VbsVar("P1_Cmp00_X2")
end with

with Com
.MsgSbaLpz
'.MsgSba 4, "Pagina 4"
end with
end sub


'- Terminar -------------------------------------------------------------------
Sub Rda_FimCnf 'confirmar
with Com
'.MsgVer "RDA - Terminar","Confirmado"

'res = .MsgCnf("Terminar", "")               'mostrar mensagem de confirmacao
res = 1                                     'validar
end with

with Rda
.VbsRegVar "RegCnf", res                    'registar confirmacao
end with
end sub


Sub Rda_FimCan 'cancelar
with Com
'.MsgVer "RDA - Terminar","Cancelado"
end with
end sub
##

