'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 Gerência Print PrtCmd$("[SP]"); End sub