'Nome       : StdTaz.Imp
'Tipo       : LST
'Data       : 2001/01/19
'Versao     : 1.0
'Descricao  : Formato para transferencia de armazem

'-----------------------------------------------------------------------------
' Modificacoes
'-----------------------------------------------------------------------------
'- Versao : 1.0  2000/07/25 -------------------------------------------------
'Versao base

'- Versao : 1.0a 2000/??/?? -------------------------------------------------
'Imprimir Lote
'Os dados anagraficos dos armazens estavam errados
'Usar preco medio custo na valorizacao da linha


'-----------------------------------------------------------------------------
' Definicao global do documento
'-----------------------------------------------------------------------------
#DEF
Caracteres invalidos             [CarInv]=#
##


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
Especifico 1                      [EspOp1]=Opcao 1
Especifico 2                      [EspOp2]=Opcao 2
Limites a listar                  [EspLim]=?

'Artigos fixos a recolher       [DocArtFix]=*:*,PORTES,MOB:1
'Formato para definicao de artigos fixos:
' [DocArtFix]=art1:max1,art2:max2, ...
'              |    |
'              |    +-> Vezes a recolher (maximo)
'              |        Se nao for indicado e considerado 1 (neste caso nao usar o separador ':')
'              |        Se for indicado '*' nao e limitado o numero de vezes de recolha
'              |
'              +------> Artigo fixo a usar.
'                       Se for indicado '*' pode ser usado qualquer artigo
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Nome                       [DocNom]=Transf. Armazem
'Vias                       [DocVia]=Original;Duplicado
'Vias                       [DocVia]=Original;Duplicado,2;Triplicado
Vias                       [DocVia]=Original
Tipo                       [DocTip]=
Personalizacao             [DocPer]=
Dados especificos          [DocEsp]=ESP1,FAC

'formato
Impressora                 [DocPrt]=
'Impressora                 [DocPrt]=PR01
Linhas por pagina          [DocLpg]=15
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=3


'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab
Listar linhas               [FxLIN]=Lin; Nor; Ajt; Txl; Med,2; Pmo; Doc; Cor;Ide
Listar fim                  [FxFIM]=Fim
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag      = Doc_CntPag
DataExt  = FrmVal$(Sig_DtHoje,45,0)

'descricao da empresa
EmpNome  = Emp_Inf_Nome$
EmpMorada= Emp_Inf_Morada$
EmpLocal = Emp_Inf_Local$
EmpCpost = Emp_Inf_Cpost$
EmpTel   = Emp_Inf_Telef$
EmpFax   = Emp_Inf_Fax$
EmpCtrb  = Emp_Inf_Contrib$
EmpTps   = Emp_Inf_NatJur$
EmpReg   = Emp_Inf_NumReg$
EmpCapSoc= FrmVal$(Emp_Inf_CapSoc,21,10.2)


'indicacao do destinatario do documento
Ct       = Cta_Mst_Ct$
Nome     = VarAlt$("Enc_Mst","Cta_Mst_Nome$")
Morada   = VarAlt$("Enc_Mst","Cta_Ang_Morada$")
Local    = VarAlt$("Enc_Mst","Cta_Ang_Local$")
Cpost    = VarAlt$("Enc_Mst","Cta_Ang_Cpost$")
Ctrb     = VarAlt$("Enc_Mst","Cta_Mst_Ctrb$")

'linhas do documento
LinArt   = Stc_Mst_Art$
LinOpcCor= TxIde$(Enc_Mov_Opc$,"COR")
ArtIde   = TxIde$(Enc_Mov_Opc$,"OPCIDE")
LinNome  = Stc_Mst_Nome1$
LinQu    = FrmVal$(Doc_Art_Qu,21,5.3)
LinPrc   = FrmVal$(Doc_Art_Prc,21,8.2)
Uni      = Stc_Mst_Unid$
LinDesco = Enc_Mov_Desco$
LinLiq   = FrmVal$(Doc_Art_Liq,21,10.2)
Iva      = IvaTax("A")

LinMedidas =Enc_Mov_MedTxt$+" - "+Enc_Mov_MedVal
LinLote    =Enc_Mov_Lote$


'valores de iva/taxas do documento
IvaI0    = FrmVal$(Ado_Tot_IvaIse,21,10.2)
IvaT1    = FrmVal$(IvaTax(1),21,2.0)
IvaI1    = FrmVal$(AdoIvaInc("T",1),21,10.2)
IvaV1    = FrmVal$(AdoIvaVal("T",1),21,10.2)
IvaT2    = FrmVal$(IvaTax(2),21,2.0)
IvaI2    = FrmVal$(AdoIvaInc("T",2),21,10.2)
IvaV2    = FrmVal$(AdoIvaVal("T",2),21,10.2)
IvaT3    = FrmVal$(IvaTax(3),21,2.0)
IvaI3    = FrmVal$(AdoIvaInc("T",3),21,10.2)
IvaV3    = FrmVal$(AdoIvaVal("T",3),21,10.2)


'totais do documento
DocDesco = FrmVal$(Ado_Tot_Desco,21,13.2)
DocIlq   = FrmVal$(Ado_Tot_Ilq,21,13.2)
DocLiq   = FrmVal$(Ado_Tot_Liq,21,13.2)
DocPort  = FrmVal$(Ado_Tot_Ext,21,13.2)
DocIvaSuj= FrmVal$(Ado_Tot_IvaSuj,21,13.2)
DocInc   = FrmVal$(Ado_Tot_Inc,21,13.2)
DocIva   = FrmVal$(Ado_Tot_Iva,21,13.2)
DocIlq   = FrmVal$(Ado_Tot_Ilq,21,13.2)
DocLiq   = FrmVal$(Ado_Tot_Liq,21,13.2)
DocTot   = FrmVal$(Ado_Tot_Tot,21,13.2)


'conversão de moeda
DocEurTot=FrmVal$(MoeCnv("N",Doc_Tot_Tot,Enc_Mst_Moeda,2),21,13.2)
DocEurCmb=FrmVal$(EmpTabCon$("MOEDA",Enc_Mst_Moeda,"CMBEUR"),21,3.3)

'informacoes sobre o documento
Vend      = "("+Enc_Mst_Vend+") "+EmpTabCon$("Vend",Enc_Mst_Vend,"Nome")
Cpag      = EmpTabCon$("Cpag",Enc_Mst_CpagCod,"Des")
DocNome   = Doc_Ide_Nome$
'DocNum    = FrmNdo$("44",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocNum    = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocVia    = Doc_Ide_Via$
DocDtl    = FrmVal$(Doc_Ide_Dtl,44,0)
DocDtv    = FrmVal$(Doc_Ide_Dtv,44,0)
DocOrg    = VarAlt$("ENC_MST","Emp_Inf_Local$")
DocDest   = VarAlt$("ENC_MST","Cta_Ang_Local$,LocEnt$")
Viatura   = TxIde$(Enc_Mst_Opc$,"MAT")
HorSai    = FrmVal$(Enc_Mst_HrSai,53,0)

DocRcNum  = DocRcNum$
DocRcDtl  = DocRcDtl$
DocRcDtv  = DocRcDtv$

'listar documentos
DocIde    = Enc_Mst_Tdoc$+" "+FrmNdo$("44",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocVl     = FrmVal$(Doc_Tot_Tot,21,13.2)
pIvaI1    = FrmVal$(IvaInc("T",1),21,10.2)
pIvaV1    = FrmVal$(IvaVal("T",1),21,10.2)
pDocIva   = FrmVal$(Doc_Tot_Iva,21,13.2)
pDocTot   = FrmVal$(Doc_Tot_Tot,21,13.2)


AzsCt     = AzsCt$
AzsNome   = AzsNome$
AzsMorada = AzsMorada$
AzsLocal  = AzsLocal$
AzsCpost  = AzsCpost$

AzeCt     = AzeCt$
AzeNome   = AzeNome$
AzeMorada = AzeMorada$
AzeLocal  = AzeLocal$
AzeCpost  = AzeCpost$
##


'------------------------------------------------------------------------------
' Sequencias para recolha de artigos
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
' Tipo Normal
'------------------------------------------------------------------------------
#SEQ
Identificacao de sequencia [IDS]=NOR
Codigos validos            [ID1]=*
Codigos invalidos          [ID0]=PORTE,MOBRA

'Modos de uso               [IDM]=Rec,Cor

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Recolha automatica           [E]=RAUTO
'Campo opcional              [E]=OPC Var$,Descricao,Tipo(A/N)+Dig
Quantidade                   [E]=QU; ESC:LPL
'Quantidade 2                [E]=QU2
Lote                         [E]=LOT
Preco                        [E]=PRC 15
'Desconto                     [E]=DES
'Iva                          [E]=IVA

'Funcao e Mensagem (MsgBox)   [E]=FxExe UtzMsgBox
'Funcao e Mensagem (Sbar)     [E]=FxExe UtzMsgSbar
'Mensagem em MsgBox           [E]=MsgBox "",Titulo,Linha1|Linha2
'Mensagem em Status Bar       [E]=MsgSbar 1,Msg painel 1
'Esperar (segundos)           [E]=EspSeg 2

Total                  [E,TOT  ]=TOT
Confirmar linha              [E]=CFL; CF2:ALT, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

'alterar dados
Inicio de alteracao    [E,ALT  ]=ALT
'Campo opcional 1            [E]=OPC 1
Quantidade                   [E]=QU
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA; TOT

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM


'------------------------------------------------------------------------------
' Linha com campos opcionais
'------------------------------------------------------------------------------
' Deficinao de Campos opcionais  ex:Cor

' linha para sequencia                     [E]=OPC Var$,Descricao,Tipo(A/N)+Dig
'               Campo opcional Cor         [E]=OPC COR,Cor escolhida,A15

' definir a linha no cabecalho do documento e no documento com o nome "COR"
'
' Indicar no artigo o tipo de linha da identificacao de sequencia
' neste caso "COR"
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=COR
Codigos validos            [ID1]=*
Codigos invalidos          [ID0]=PORTE,MOBRA
'Modos de uso               [IDM]=Rec,Cor

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Recolha automatica           [E]=RAUTO
'Recolha manual               [E]=MRE 2
Campo opcional 1             [E]=OPC COR,Cor,A15
Campo opcional 2             [E]=OPC XYZ,Opcao XYZ,A5
Quantidade                   [E]=QU; ESC:LPL
Quantidade 2                 [E]=QU2
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA

Total                  [E,TOT  ]=TOT
Confirmar linha              [E]=CFL; CF2:ALT, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

'alterar dados
Inicio de alteracao    [E,ALT  ]=ALT
'Campo opcional 1            [E]=OPC 1
Quantidade                   [E]=QU
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA; TOT

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM


'------------------------------------------------------------------------------
' Tipo Valor total (portes e Mao de obra)
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=PMO
Codigos validos            [ID1]=PORTE,MOBRA
Codigos invalidos          [ID0]=

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Recolha automatica           [E]=RAUTO
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA
Total                  [E,TOT  ]=TOT
Confirmar linha              [E]=CFL; CF2:ALT, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

Inicio de alteracao    [E,ALT  ]=ALT
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA; TOT

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM


'------------------------------------------------------------------------------
' Tipo Medidas
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=MED
Codigos validos            [ID1]=MED
Codigos invalidos          [ID0]=

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Recolha automatica           [E]=RAUTO
Quantidade                   [E]=QU
Medidas (altera se nulo)     [E]=MED
'Medidas (forca alteracao)    [E]=MED ALT
'Esperar (segundos)           [E]=EspSeg 4
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA
Total                  [E,TOT  ]=TOT
Confirmar linha              [E]=CFL; CF2:ALT, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

Inicio de alteracao    [E,ALT  ]=ALT
Medidas (forca alteracao)    [E]=MED ALT
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA; TOT

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM


'------------------------------------------------------------------------------
' Tipo Texto livre
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=TXL
Codigos validos            [ID1]=
Codigos invalidos          [ID0]=
'Modos de uso               [IDM]=Rec:RTX; Alt:RTX; Cor:RTX

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Texto                  [E,RTX  ]=TXL
Recolha automatica           [E]=RAUTO
Confirmar linha              [E]=CFL; CF2:RTX, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM


'------------------------------------------------------------------------------
' Linha artigo com nome livre
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=IDE
Codigos validos            [ID1]=
Codigos invalidos          [ID0]=
'Modos de uso               [IDM]=Rec,Cor

Funcao : Recolha       [FX,REC ]=REC; EXE
Funcao : Corrigir      [FX,COR ]=COR; EXE
Funcao : Executar      [FX,EXE ]=*
Recolha manual               [E]=MRE 2
Campo opcional 1             [E]=OPC OPCIDE,Nome,A30
Quantidade                   [E]=QU; ESC:LPL
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA

Total                  [E,TOT  ]=TOT
Confirmar linha              [E]=CFL; CF2:ALT, ESC:LPL
Registar                     [E]=REG
Fim de sequencia             [E]=FIM

'alterar dados
Inicio de alteracao    [E,ALT  ]=ALT
Quantidade                   [E]=QU
Preco                        [E]=PRC
Desconto                     [E]=DES
Iva                          [E]=IVA; TOT

'anulacao
Limpar linha           [E,LPL  ]=LPL
Fim de sequencia             [E]=FIM

##


'-----------------------------------------------------------------------------
' Recolha do Cabecalho do documento
'-----------------------------------------------------------------------------
#PAGDEF         'definicao de paginas
Pagina inicial      [PagIni]=1
Campo inicial       [CmpIni]=2
##


#PAG  Armazem Saida    'Definicao da pagina
'mo asp x   y  identificacao      di  variavel                                     frm   dv ope
30,-10, 20, 50,"Conta          " ,100,Cta_Mst_Ct$                                  ,30.0,250
31, 10, 20, 80,"Nome           " ,100,VarAlt$("ENC_MST","Cta_Mst_Nome$,SNome$")    ,30.0,250
31, 10, 20,110,"Morada         " ,100,VarAlt$("ENC_MST","Cta_Ang_Morada$,SMorada$"),30.0,250
31, 10, 20,140,"Localidade     " ,100,VarAlt$("ENC_MST","Cta_Ang_Local$,SLocal$")  ,30.0,250
31, 10, 20,170,"Codigo Postal  " ,100,VarAlt$("ENC_MST","Cta_Ang_Cpost$,SCpost$")  ,30.0,250
##

#PAG  Armazem entrada   'Definicao da pagina
'mo asp x   y  identificacao      di  variavel                                      frm   dv ope
30,-10, 20, 50,"Conta          " ,100,Cta_Mst_Ct$                                  ,30.0,250
31, 10, 20, 80,"Nome           " ,100,VarAlt$("ENC_MST","Cta_Mst_Nome$,ENome$")    ,30.0,250
31, 10, 20,110,"Morada         " ,100,VarAlt$("ENC_MST","Cta_Ang_Morada$,EMorada$"),30.0,250
31, 10, 20,140,"Localidade     " ,100,VarAlt$("ENC_MST","Cta_Ang_Local$,ELocal$")  ,30.0,250
31, 10, 20,170,"Codigo Postal  " ,100,VarAlt$("ENC_MST","Cta_Ang_Cpost$,ECpost$")  ,30.0,250
##

'#PAG  Dados Auxiliares  'Definicao da pagina
''mo asp x   y  identificacao              di  variavel                                frm   dv ope
'10, 53, 20,110,"Hora de saida         ",100,Enc_Mst_HrSai                          , 4.0,100
'31, 10, 20,140,"Matricula da viatura  ",100,TxIde$(Enc_Mst_Opc$,"MAT")             ,30.0,100
'31, 10, 20,170,"Informação Adicional  ",100,TxIde$(Enc_Mst_Opc$,"INF1")            ,30.0,100
'31, 10, 20,200,"Informação Adicional 2",100,TxIde$(Enc_Mst_Opc$,"INF2")            ,30.0,100
'31, 10, 20,230,"Informação Adicional 3",100,TxIde$(Enc_Mst_Opc$,"INF3")            ,30.0,100
'##

'30, 10,430,100,100,  8.0,"Texto   : ",150,Variavel,Ope
' |   |  |   |   |    |      |          |    |       |
' |   |  |   |   |    |      |          |    |       +--> Opcao especial
' |   |  |   |   |    |      |          |    +----------> Variavel
' |   |  |   |   |    |      |          +---------------> Dimensao da identificacao
' |   |  |   |   |    |      +--------------------------> Texto Informativo
' |   |  |   |   |    +--------------> Formato do valor
' |   |  |   |   +-------------------> Dimensao
' |   |  |   +-----------------------> Coluna
' |   |  +---------------------------> Linha
' |   +------------------------------> Tipo de valor/Aspecto
' +----------------------------------> Controlo de recolha
'
'1o parametro - modo/controlo de recolha (<0 nao pode alterar)
'2o parametro - tipo dos dados/aspecto
'3o parametro - linha
'4o parametro - coluna
'5o parametro - dimensao da identificacao
'6o parametro - formato do valor (inteiros.decimais)
'7o parametro - texto informativo
'8o parametro - variavel
'
'Controlo de recolha : 1x - Pode modificar para registo novo
'                      2x - Pode modificar para alteracao de registo
'                      3x - Igual a 1x+2x
'                      ?0 - Nao cria variavel
'                      ?1 - Cria variavel
'
'Notas : O campo 'Opcao especial' e opcional

#PGM
'-----------------------------------------------------------------------------
' Funcoes para impressao do documento
'-----------------------------------------------------------------------------
SUB CabIni
DocRcNum$ = FrmNdo$("44",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocRcDtl$ = FrmVal$(Doc_Ide_Dtl,44,0)
DocRcDtv$ = FrmVal$(Doc_Ide_Dtv,44,0)
call LerVariaveis
end sub

'-----------------------------------------------------------------------------
' Cabecalho do documento
'-----------------------------------------------------------------------------
Sub LerVariaveis
'armazem de saida
fx=CtaContaler(Enc_Mst_CtSai$)
AzsCt$     = Enc_Mst_CtSai$
AzsNome$   = VarAlt$("ENC_MST","Cta_Mst_Nome$,SNome$")
AzsMorada$ = VarAlt$("ENC_MST","Cta_Ang_Morada$,SMorada$")
AzsLocal$  = VarAlt$("ENC_MST","Cta_Ang_Local$,SLocal$")
AzsCpost$  = VarAlt$("ENC_MST","Cta_Ang_Cpost$,SCpost$")

'armazem de saida
fx=CtaContaler(Enc_Mst_CtEnt$)
AzeCt$     = Enc_Mst_CtEnt$
AzeNome$   = VarAlt$("ENC_MST","Cta_Mst_Nome$,ENome$")
AzeMorada$ = VarAlt$("ENC_MST","Cta_Ang_Morada$,EMorada$")
AzeLocal$  = VarAlt$("ENC_MST","Cta_Ang_Local$,ELocal$")
AzeCpost$  = VarAlt$("ENC_MST","Cta_Ang_Cpost$,ECpost$")
End Sub


SUB CAB 'cabecalho do documento
print PrtCmd$("[10CPILN]")
?@EmpNome                                                                     #
?@EmpMorada                                                                   #
?@EmpLocal                                    @DocNome                        #
?@EmpCpost                                    NUMERO DOCUMENTO  : @DocRcNum   #
?Telefone :@EmpTel                            VIA DOCUMENTO     : @DocVia     #
?Fax      :@EmpFax                            DATA              : @DocRcDtl   #
?                                             DATA VENCIMENTO   : @DocRcDtv   #
print PrtCmd$("[16CPILN]")
?Contribuinte No   : @EmpCtrb                                                 #
?Tipo de sociedade : @EmpTps                                                  #
?Registo           : @EmpReg                                                  #
?Capital Social    : @EmpCapSoc                                               #
print PrtCmd$("[10CPILN]");
?
?               SAIDA                                  ENTRADA                #
?-------------------------------------------------------------------------------
?Codigo: @AzsCt                         Codigo: @AzeCt                         #
?@AzsNome                               @AzeNome                               #
?@AzsMorada                             @AzeMorada                             #
?@AzsLocal                              @AzeLocal                              #
?@AzsCpost                              @AzeCpost                              #
?-------------------------------------------------------------------------------
?
?
?================================================================================
? Codigo                Descricao                 Quantidade     Lote/Matricula
?================================================================================

end sub


'-----------------------------------------------------------------------------
' Linhas do Documento
'-----------------------------------------------------------------------------
SUB LinNor 'artigos tipo normal
?@LinArt          @LinNome                         @LinQu         @LinLote     #
end sub


SUB LinIde 'artigos tipo nome livre
?@LinArt          @ArtIde                          @LinQu         @LinLote     #
end sub


SUB LinCor 'Exemplo campos opcionais
?@LinArt          @LinNome                         @LinQu         @LinLote     #
?Cor escolhida  : @LinOpcCor
end sub


SUB LinMed 'artigos com medidas
?@LinArt           @LinNome                           @LinQu          @Uni     @LinPrc           @LinDesco       @LinLiq        @Iva
?                  Dimensao do artigo  @LinMedidas
end sub


'SUB LinPmo 'artigos tipo Portes e Mao-de-obra
'?
'end sub


SUB LinTxl 'artigos tipo texto livre
Print Tab(19) left$(Enc_Mov_Div$,30)
end sub


SUB LinAjt 'ajuste de linhas
?
end sub


SUB LinDoc 'linha de documento
? Documento : @DocIde            @pDocTot             @pDocIva               #
'? Iva 1                          @pIvaI1              @pIvaV1                #
end sub


'-----------------------------------------------------------------------------
' Final do Documento
'-----------------------------------------------------------------------------
SUB FimAjt  'ajuste de fim de pagina
?                                                    Transporte de pagina ...
?================================================================================
print PrtCmd$("[SP]");
end sub


SUB Fim     'total do documento
?================================================================================
? Local de Carga   : @AzsLocal
? Local de Entrega : @AzeLocal
? Transporte       : 
? Hora de Saida    : @HorSai
?
?
?                                         Recebi em boa ordem as mercadorias
?                                       constantes desta Guia de Transferencia
?
?
?
end Sub
##
