'Nome       : Circ_Irs.STD
'Tipo       : CIRC
'Data       : 1998/03/18
'Versao     : 1.0
'Descricao  : Circular para efeitos IRS


'-----------------------------------------------------------------------------
' Definicao global do documento
'-----------------------------------------------------------------------------
'NOTA: O Programa, apenas mostra circulares, cujo tipo do documento seja CIRC

#DEF
Caracteres invalidos             [CarInv]=#{}
##


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
'Limites a listar                  [EspLim]=?
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=CIRC
Nome                       [DocNom]=CIRC,xxx
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=Lst_Lin
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=
##



'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag       = Doc_CntPag

Data      = FrmVal$(Sig_DtHoje,45,0)
Ano       = left$(FrmVal$(Sig_DtHoje,44,0),4)

Ct        = Cta_Mst_Ct$
Nome      = left$(Cta_Mst_Nome$,40)
Morada    = Cta_Ang_Morada$
CPost     = Cta_Ang_Cpost$
Local     = Cta_Ang_Local$
Grp       = Cta_Ang_Grupo$

EmpNom    = Emp_Inf_Nome$
EmpMorada = Emp_Inf_Morada$
EmpCpost  = Emp_Inf_Cpost$
EmpLoc    = Emp_Inf_Local$
EmpTel    = Emp_Inf_Telef$


Valor=Valor$ 

##


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
SUB Lst_AJT
end sub



Sub Valor
ok=CtaAcmLer(Cta_Mst_Ct$)
ValorDeb=Cta_Acm_Deb01+Cta_Acm_Deb02+Cta_Acm_Deb03+Cta_Acm_Deb04+Cta_Acm_Deb05+Cta_Acm_Deb06+Cta_Acm_Deb07+Cta_Acm_Deb08+Cta_Acm_Deb09+Cta_Acm_Deb10+Cta_Acm_Deb11+Cta_Acm_Deb12
ValorCrb=Cta_Acm_Crd01+Cta_Acm_Crd02+Cta_Acm_Crd03+Cta_Acm_Crd04+Cta_Acm_Crd05+Cta_Acm_Crd06+Cta_Acm_Crd07+Cta_Acm_Crd08+Cta_Acm_Crd09+Cta_Acm_Crd10+Cta_Acm_Crd11+Cta_Acm_Crd12


Valor$=FrmMoe$("",12,ValorDeb)
'Valor$=FrmMoe$("",12,ValorCrd)

End sub





SUB Lst_Lin
Call Valor
Print PrtCmd$("[10CPILD]");
?
?                                       
?                                     @Grp  @Ct                             #            
?                                     @Nome                                 #
?                                     @Morada                               #
?                                     @Cpost                                #
?
?
?

'adicionar linhas em branco
For n%=1 to 10
?
Next
?                            @Data                                          #
?  Exmo. Srs
?
?
?    @EmpNom                                  , contribuinte No @EmpContrib #
?com sede em @EmpMorada                               , declara para efeitos
?de I.R.S. que  foi recebido ou posto a disposicao, durante o ano de @Ano ,
?por/de @Nome                                                               #
?, contribuinte No @Contrib    a quantia de @Valor                          #
?
?
?
?
?
?
?
?      Valores apresentados na moeda Euro
?
?
?                                              A Gerncia                    
Print PrtCmd$("[SP]");
End sub

