'Nome       : IRSIND.STD
'Tipo       : LST
'Data       : 2010/01/25
'Versao     : 1.2
'Descricao  : I.R.S. (Declaracao Individual)


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0  1999/12/07 ---------------------------------------------------
'Versao base

'- Versao : 1.0a 2000/06/28 ---------------------------------------------------
'Formatar valores consoante moeda da empresa

'- Versao : 1.0b 2000/06/28 ---------------------------------------------------
'forcar istagem a 10 cpi

'- Versao : 1.0c 2000/06/28 ---------------------------------------------------
Impressao em modo grafico

'- Versao : 1.0d 2000/12/04 ---------------------------------------------------
'Formatar valores consoante decimais indicados pelo programa

'- Versao : 1.0e 2001/01/05 ---------------------------------------------------
'Alterado aspecta da listagem grafica

'- Versao : 1.0f 2001/01/18 ---------------------------------------------------
'Nao mostrava contribuinte da empresa
'Listava o ano por cima de texto

'- Versao : 1.0g 2001/02/15 ---------------------------------------------------
'Colocar intruccao para fim de pagina
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 1.1  2002/02/05 ---------------------------------------------------
'Eliminada mencao ao artigo na declaracao grafica 

'- Versao : 1.1a 2005/10/21 ---------------------------------------------------
'correcção ortográfica

'- Versao : 1.1b 2006/01/06 ---------------------------------------------------
'correcção nas variaveis das datas (compatibilizar com SIG4)

'- Versao : 1.2  2010/??/?? ---------------------------------------------------
'forcar cor fundo para anular sobreposicao na previsualizacao
'compatibilizar com listagem pdf


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=IRS
Nome                       [DocNom]=IRS_Ind,Declaração Individual

'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]=Lst_Cab
Listar linhas               [FxLIN]=Lst_Lin 
Listar fim                  [FxFIM]=Lst_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=IRS
Nome                       [DocNom]=IRS_Ind_G,Declaração Individual 

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabG
Listar linhas               [FxLIN]=Lst_LinG
Listar fim                  [FxFIM]=Lst_FimG
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
EmpNome     =Emp_Inf_Nome$
EmpMorad    =Emp_Inf_Morada$
EmpLocal    =Emp_Inf_Local$
EmpCpost    =Emp_Inf_Cpost$
EmpContrib  =Emp_inf_Contrib$
EmpTelef    =Emp_Inf_Telef$
Ano         =FrmDt$("A4",Sig_DtHoje)

DataExt     =FrmVal$(Sig_DtHoje,45,0)
DataExtGrf  =Emp_Inf_Local$+", "+FrmVal$(Sig_DtHoje,45,0)

Nome        =Gpe_Mst_Nome$
Morada      =Gpe_Mst_Morada$
Local       =Gpe_Mst_Local$
Cpost       =Gpe_Mst_Cpost$
Contrib     =Gpe_Mst_Ctrb$
Domic       =FrmVal$(Gpe_Mst.CodDom,21,4)

TipRnd      =Gpe_Mst_TipRnd$

IrsRet      =GpeFrmMoe$("",10,GpeAcmLst("V","IRS","RT"))
Rendim      =GpeFrmMoe$("",10,GpeAcmLst("V","IRS","VI"))
Isento      =GpeFrmMoe$("",10,GpeAcmLst("V","IRS","ISE"))
TSU         =GpeFrmMoe$("",10,GpeAcmLst("V","IRS","TSU"))
QuotSnd     =GpeFrmMoe$("",10,GpeAcmLst("V","IRS","SND"))
Moeda       =EmpTabCon$("MOEDA",Emp_Inf_Moeda$,"NOME")

Txl1       = Emp_Inf_Nome$+", contribuinte Nº "+Emp_Inf_Contrib$
Txl2       = "com sede em "+Emp_Inf_Morada$+", declara para efeitos de I.R.S, "
Txl4       ="por/de "+Gpe_Mst_Nome$+", contribuinte Nº "+Gpe_Mst_Ctrb$
##

'==============================================================================
#INC - Variaveis comuns
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Formato do documento
'==============================================================================
Sub Lst_CAB
Print PrtCmd$("[10CPILN]");
End Sub

Sub Lst_Lin
?
?
?
?
?
?
?
?
?                                        @Nome                                #
?                                        @Morada                              #
?                                        @Local                               #
?                                        @Cpost                               #
?
?
?
?
?
?
?
?
?
?
?
?
?
?                           D E C L A R A C A O
?                           ===================
?
?
?
?    @EmpNome                                 , contribuinte No @EmpContrib e
?com sede em @EmpMorad                               , 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
?remuneracao iliquida de @Rendim         , sobre a qual foram efectuados os
?seguintes descontos, referentes a categoria @TipRnd :
?
?
?
?                           Imposto s/ Rendimento  @IrsRet          #
?                           Taxa Social Unica      @TSU             #
?                           Quotizacoes Sindicais  @QuotSnd         #
?
?
?
?             Rendimentos dispensados de Retencao  @Isento          #
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?         @EmpLocal                     , @DataExt                            #
?
?
?
End Sub


Sub Lst_Fim
Print Prtcmd$("[SP]")
End Sub


'-(Impressao grafica)------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub


Sub Lst_CABG
PrWIN COR_F, 15                                  'cor de fundo
End sub


Sub Lst_LinG
call SigEmpMorada

PrWIN TX_N,     0,   25,"Contribuinte :"
PrWIN TX_N,     25,  25,@Empcontrib

PrWIN AJT_B,  MargemJanelaCarta, LinhaJanelaCarta      'posicao base
PrWIN COR_T,  CorJanelaCarta                           'cor para morada

PrWIN FON  ,  FntJanelaCarta                           'activar fonte
PrWIN TX_N,     0,    5,@Nome                     
PrWIN TX_N,     0,   10,@Morada
PrWIN TX_N,     0,   15,@Local
PrWIN TX_N,     0,   20,@Cpost                  

PrWIN AJT_B,  0, 80                 'posicao base
PrWin FON, 20,1
PrWIN TX_CTR,  0,0,MargemD,0,"D e c l a r a ç ã o "
PrWIN GR_LI, 70, 10, 130, 10               	'linha

PrWIN AJT_B,  Margem, 110                 'posicao base
PrWin FON,   11
cl=15
'PrWin TX_N,   Cl+5,0 ,"Nos termos da alínea b) do n.1 do Artigo 114 do CIRS e Artº 103 do CIRC"
PrWin TX_N,   Cl,7   ,"Declaramos para efeitos de I.R.S. que o total de remunerações pagas por esta"
PrWin TX_N,   Cl,14  ,"empresa, foi afectado do modo que se segue durante o ano de              para :
PrWin FON, "BOLD+"
PrWin TX_N,  cl+115,14 ,@Ano
PrWin FON, "BOLD-"

PrWin FON, "BOLD+"
PrWin TX_N,      cl,30,@Nome
PrWin FON, "BOLD-"
PrWin TX_N,      Cl,40,"Contribuinte n."
PrWin TX_N,   Cl+35,40,@Contrib

PrWin TX_N,      100,40,"Tipo de Rendimentos:
PrWin TX_N,   100+45,40, @TipRnd 

PrWIN AJT_B,Cl+30, 165                                 'posicao bas
PrWin TX_N,  0,0,"Remuneração Ilíquida :"
PrWin TX_N,  0,10,"Imposto S/ Rendimento"
PrWin TX_N,  0,17,"Taxa Social Única"
PrWin TX_N, 0,24,"Quotizações Sindicais"
PrWin TX_N, 0,31,"Rendimentos dispensados de Retenção"

col=Cl+80
PrWin TX_NP,  Col, 0,"N",@Rendim
PrWin TX_NP,  Col,10,"N",@IrsRet
PrWin TX_NP,  Col,17,"N",@Tsu
PrWin TX_NP,  Col,24,"N",@QuotSnd
PrWin TX_NP,  Col,31,"N",@Isento

PrWIN AJT_B,  Margem+cl, 220                 'posicao base
PrWin TX_N ,  0,0,"Valores apresentados na moeda : "
PrWin TX_N , 65,0,@Moeda

PrWIN AJT_B,  Margem+cl, 250                 'posicao base
PrWin TX_N,50,0,@DataExtGrf
'PrWin FP
end sub


Sub Lst_FimG
PrWin FP
end sub
##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##

