'Nome       : StdRec.Imp
'Tipo       : LST
'Data       : 2009/03/19
'Versao     : 2.3
'Descricao  : Formato de documento tipo Recibo

'-----------------------------------------------------------------------------
' Modificacoes
'-----------------------------------------------------------------------------
'- Versao : 2.3  2009/??/?? -------------------------------------------------
'Variaveis para conta de totais e de numero do cheque

'- Versao : 2.2  2003/07/07 -------------------------------------------------
'colocar sequencias de recolha por artigo

'- Versao : 2.1  2003/03/07 -------------------------------------------------
'Correcao nas variaveis de abreviatura

'- Versao : 2.0a 2001/09/27 -------------------------------------------------
'Mostrar nas linhas, a descricao do documento, e nao o diario + numero

'- Versao : 2.0  2001/07/24 -------------------------------------------------
'ajustes diversos
'permitir recolha por artigo

'- Versao : 1.2  2001/06/29 -------------------------------------------------
'Ajustes graficos
'Valores em Euro
'formatacao de numero documento alterado para modo automatico

'- Versao : 1.1  1999/??/?? -------------------------------------------------
'Variaveis de totais de documentos e iva convertidas para variaveis ADO

'- Versao : 1.0  1999/??/?? -------------------------------------------------
'Versao base


'-----------------------------------------------------------------------------
' 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]=?
##


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

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab
Listar linhas               [FxLIN]=Lin; Ajt; Txl; Doc ; Nor ; Dm
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$

'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$")

'documentos parciais
'DocIde   = Enc_Mst_Tdoc$+" "+FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocIde   = Enc_Mst_Descr$
DocTot   = FrmMoe$("",15,Enc_Mst_ValTot)
DocPag   = FrmMoe$("",15,EncValCon("RCB_VREC"))
DocPend  = FrmMoe$("",15,EncValCon("RCB_VPEN"))

CtTot    = EncValCon("RCB_CTOT")
NumChq   = EncValCon("RCB_NCHQ")

'totais do documento
TotDoc   = FrmVal$(Ado_Tot_Val,21,13.2)
TotDesco = FrmVal$(Ado_Tot_Desco,21,13.2)
TotGer   = FrmVal$(Ado_Tot_Tot,21,13.2)
Abv1      = Abv1$


'contravalores
ETotDoc   = ETotDoc$
ETotDesco = EtotDesco$
ETotGer   = ETotGer$
Abv2      = Abv2$

LinTxl    = Enc_Mov_Div$

'informacoes sobre o documento
DocNome   = Doc_Ide_Nome$
'DocNome   = Doc_Ide_Sdoc$

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)

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

'linhas texto livre
LinInf1   = LinInf1$
LinInf2   = LinInf2$
LinInf3   = LinInf3$

'extenso
Ext1=Ext1$
Ext2=Ext2$
Ext3=Ext3$

'recolha por artigo
LinArt     = Stc_Mst_Art$
LinOpcCor  = TxIde$(Enc_Mov_Opc$,"COR")   
ArtIde     = TxIde$(Enc_Mov_Opc$,"OPCIDE")   
LinNome    = Stc_Mst_Nome1$
LinQu      = StcQuFrm$(Doc_Art_Qu,8,"")
LinUni     = Stc_Mst_Unid$
LinDesco   = Enc_Mov_Desco$
LinMedTx   = Enc_Mov_MedTxt$

LinPrc     = FrmMoe$("",14,Doc_Art_Prc)
LinLiq     = FrmMoe$("",14,Doc_Art_Liq)
##


'------------------------------------------------------------------------------
' 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
Preco                        [E]=PRC
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 aautomatica          [E]=RAUTO
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 2
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 aautomatica          [E]=RAUTO
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



'------------------------------------------------------------------------------
' Linha artigo tipo documento manual
'------------------------------------------------------------------------------
Identificacao de sequencia [IDS]=DM
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 aautomatica          [E]=RAUTO
Campo opcional 1             [E]=OPC OPCIDE,Documento,A25
'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  Dados para Documento    '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$")  ,30.0,250
31, 10, 20,110,"Morada         " ,100,VarAlt$("ENC_MST","Cta_Ang_Morada$"),30.0,250
31, 10, 20,140,"Localidade     " ,100,VarAlt$("ENC_MST","Cta_Ang_Local$") ,30.0,250
31, 10, 20,170,"Codigo Postal  " ,100,VarAlt$("ENC_MST","Cta_Ang_Cpost$") ,30.0,250
31, 10, 20,200,"Informação Livre",100,TxIde$(Enc_Mst_Opc$,"INF1")         ,30.0,250
31, 10, 20,230,"Informação Livre",100,TxIde$(Enc_Mst_Opc$,"INF2")         ,30.0,250
31, 10, 20,260,"Informação Livre",100,TxIde$(Enc_Mst_Opc$,"INF3")         ,30.0,250
##

'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$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocRcDtl$ = FrmVal$(Doc_Ide_Dtl,44,0)
DocRcDtv$ = FrmVal$(Doc_Ide_Dtv,44,0)

LinInf1$  = TxIde$(Enc_Mst_Opc$,"INF1")
LinInf2$  = TxIde$(Enc_Mst_Opc$,"INF2")
LinInf3$  = TxIde$(Enc_Mst_Opc$,"INF3")

'ListarMoeda2=1

'definicao de moedas
Moeda1 = Enc_Mst_Moeda           'moeda principal
Moeda2 = 98                      'contravalor moeda98
Moeda2 = Enc_Mst_Moeda           'Sem contravalor



Abv1$=EmpTabCon$("MOEDA", Moeda1, "ABRV")
Abv2$=EmpTabCon$("MOEDA", Moeda2, "ABRV")
end sub

'-----------------------------------------------------------------------------
' Cabecalho do documento
'-----------------------------------------------------------------------------
SUB CAB
print PrtCmd$("[10CPILN]")
?@EmpNome                                                                     #
?@EmpMorada                                                                   #
?@EmpLocal                                    @DocNome                        #
?@EmpCpost                                    NUMERO DOCUMENTO  : @DocRcNum   #
?                                             VIA DOCUMENTO     : @DocVia     #
?                                             DATA              : @DocRcDtl   #
?                                             DATA VENCIMENTO   : @DocRcDtv   #
print PrtCmd$("[16CPILN]")
?Contribuinte No   : @EmpCtrb                                                 #
?Tipo de sociedade : @EmpTps                                                  #
?Registo           : @EmpReg                                                  #
print PrtCmd$("[10CPILN]")
?                                       +--                             --+#
?                                       |                                 |
?                                         @Nome                           #
?Telefone : @EmpTel                       @Morada                         #
?Fax      : @EmpFax                       @Local                          #
?                                         @Cpost                          #
?                                       |                                 |
?                                       +--                             --+#
?COD. CLIENTE      : @Ct                                                    #
?V/No CONTRIBUINTE : @Ctrb                                                  #
?                                                           Folha No : @Pag #
?============================================================================
? Documento           Valor            Valor Pago            Valor Pendente
?============================================================================
end sub


'-----------------------------------------------------------------------------
' Linhas do Documento
'-----------------------------------------------------------------------------
SUB LinTxl 'texto livre
@LinTxl                                                                     #
end sub


SUB LinAjt 'ajuste de linhas
?
end sub


SUB LinDoc 'linha de documento
? @DocIde         @DocTot           @DocPag              @DocPend           #
end sub

SUB LinNor 'linha de artigo
? @LinArt         @LinLiq          @LinLiq                                  #
end sub

SUB LinDm 'linha de documento manual
? @ArtIde         @LinLiq          @LinLiq                                  #
end sub


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


SUB Fim 'total do documento
?=============================================================================
? @LinInf1                                 |@Abv1  liquido : @TotDoc         #
? @LinInf2                                 |      Desconto : @TotDesco       #
? @LinInf3                                 |        Total  : @TotGer         #


If moeda2<>moeda1 then
?============================================================================#

ETotDoc$   = FrmVal$(MoeCnv("N",Ado_Tot_Val,Moeda1,Moeda2),21,13.2)
ETotDesco$ = FrmVal$(MoeCnv("N",Ado_Tot_Desco,Moeda1,Moeda2),21,13.2)
ETotGer$   = FrmVal$(MoeCnv("N",Ado_Tot_Tot,Moeda1,Moeda2),21,13.2)





?       | @Abv2  Liquido : @EtotDoc                                          #
?       |       Desconto : @ETotDesco               Total  : @ETotGer        #
else
?
?
End If
?=============================================================================
ExtNl=NumExtPrp("77,77"," ")                      'preparar extenso
print NumExt$(1 ,Ado_Tot_Tot,EmpTabCon$("MOEDA",moeda1,"ABRV"),3)   'linha 1 de extenso
print NumExt$(2)                                  'linha 2 de extenso

print PrtCmd$("[SP]")
end sub
##

