'Nome       : IRSCOL.STD
'Tipo       : LST
'Data       : 2005/02/01
'Versao     : 1.1a
'Descricao  : I.R.S. (Declaracao Colectiva)

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0a 2000/01/21 ---------------------------------------------------
'Versao base

'- Versao : 1.0b 2000/03/23 ---------------------------------------------------
'Listava um trabalhador por folha

'- Versao : 1.0c 2000/06/11 ---------------------------------------------------
'formata valores consoante moeda da empresa

'- Versao : 1.0d 2000/11/23 ---------------------------------------------------
'Impressao grafica
'mostrar ano com 4 digitos

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

'- Versao : 1.0f 2001/01/17 ---------------------------------------------------
'Listar mais linhas em modo grafico
'Totais incorrectos

'- Versao : 1.0g 2001/03/12 ---------------------------------------------------
'Nao permitir a sobreposicao do ano pelo nome

'- Versao : 1.1  2003/04/08 ---------------------------------------------------
'Impressao dos dados da empresa

'- Versao : 1.1a 2005/??/?? ---------------------------------------------------
'forcar margem menor


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


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


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

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=18
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=48L
Ajustar pagina             [DocApg]=-1
Listar continuo            [DocEsp]=LstCnt=1
Tipo de rendimento         [DocEsp]=TipRnd=



'funcoes de listagem
Listar cabecalho            [FxCAB]=Branco_Cab
Listar linhas               [FxLIN]=Branco_Lin 
Listar fim                  [FxFIM]=Branco_Fim
##

#DOC
Tipo                       [DocTip]=IRS
Nome                       [DocNom]=IRS_Branco_G,Declaração IRS Colectivo

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=48L
Ajustar pagina             [DocApg]=0
Listar continuo            [DocEsp]=LstCnt=1
Tipo de rendimento         [DocEsp]=TipRnd=



'funcoes de listagem
Listar cabecalho            [FxCAB]=Branco_CabG
Listar linhas               [FxLIN]=Branco_LinG 
Listar fim                  [FxFIM]=Branco_FimG
##




'-----------------------------------------------------------------------------
' variaveis
'-----------------------------------------------------------------------------
#VAR
Ano         = FrmDt$("A4",Sig_DtHoje)
EmpContrib  = left$(TxCarEli$(0,Emp_Inf_Contrib$," "),3)+" "+mid$(TxCarEli$(0,Emp_Inf_Contrib$," "),4,3)+" "+mid$(TxCarEli$(0,Emp_Inf_Contrib$," "),7,3)
Pag         = Doc_CntPag

EmpNome     =Emp_Inf_Nome$
EmpMorad    =Emp_Inf_Morada$
EmpLocal    =Emp_Inf_Local$
EmpCpost    =Emp_Inf_Cpost$
EmpContrib  =Emp_inf_Contrib$


'linha
Contrib     = left$(TxCarEli$(0,Gpe_Mst_Ctrb$," "),3)+" "+mid$(TxCarEli$(0,Gpe_Mst_Ctrb$," "),4,3)+" "+mid$(TxCarEli$(0,Gpe_Mst_Ctrb$," "),7,3)
Nome        = Gpe_Mst_Nome$
T           = Gpe_Mst_TipRnd$
A           = FrmDt$("A4",Sig_DtHoje)
Rend        = GpeFrmMoe$("",10,GpeAcmLst("V","IRS","VI"))
Ret         = GpeFrmMoe$("",10,GpeAcmLst("V","IRS","RT"))


'fim
TotRend     = GpeFrmMoe$("",10,Total(Rend))
TotRet      = GpeFrmMoe$("",10,Total(Ret))
TotRendG    = GpeFrmMoe$("",14,Total(Rend))
TotRetG     = GpeFrmMoe$("",14,Total(Ret))

##



#INC
Variaveis comuns               =[SIG_Dir.Div],LsComVar.Std
##

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
'-(Modo Texto)----------------------------------------------------------------
Sub Branco_Cab
Print PrtCmd$("[16CPILN]")
? @EmpNome                                                              #
? @EmpMorada                                                            #
? @EmpLocal                                                             #
? @EmpCpost                                                             #
?
?                        Ano                      Numero de Identificacao Fiscal                Numero da pagina    
?                        @Ano                             @EmpContrib                                 @Pag #
?
?
?
?                                          Relacao dos titulares dos rendimentos
?---------------------------------------------------------------------------------------------------------------
?  Contribunte                     Nome                                 Ano   Retido     Tpr Rendimentos 
?---------------------------------------------------------------------------------------------------------------
End Sub


Sub Branco_Lin
?  @Contrib         |@Nome                                            |@A  |@Ret        | @T|@Rend        #
End Sub


Sub Branco_Fim
?---------------------------------------------------------------------------------------------------------------
?            Total da página                                               |@TotRet         |@TotRend          #
Print PrtCmd$("[10CPILN]");
Print PrtCmd$("[SP]");
End Sub


'-(Modo Grafico)----------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
margem=5                                        'forcar margem
End sub

Sub Branco_CabG
PrWIN AJT_B,  Margem, 3                    	'posicao base
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,  10,   1                        	'activar fonte

PrWIN TX_N,   3,0,@EmpNome
PrWIN TX_N,   3,4,@EmpMorada
PrWIN TX_N,   3,8,@EmpLocal
PrWIN TX_N,  3,12,@EmpCpost


PrWIN AJT_B,  Margem, 27                   	'posicao base

PrWIN TX_N,   19,0,"Ano"
PrWIN TX_N,   80,0,"Numero de Identificação fiscal"
PrWIN TX_N,  160,0,"Numero da pagina"
PrWIN COR_T,  CorLin                         'cor de titulo
PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN TX_N,   18,5,@Ano
PrWIN TX_N,   90,5,@EmpContrib
PrWIN TX_N,  175,5,@Pag

Col1=4
Col2=28
Col3=125
Col4=135
Col5=160
Col6=170
Col7=190

PrWIN AJT_B,  Margem, 40                    	'posicao base
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,  "BOLD+"				'activar bold
PrWIN FON  ,  11,   1                        	'activar fonte
PrWIN TX_CTR,  0,0,MargemD,0,"Relação dos titulares dos rendimentos"
PrWIN FON  ,  "BOLD-"				'desactivar Bold

PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 45                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
PrWIN GR_LI, 0, 4, MargemD, 4               	'linha

Lin=0

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,    Col1,Lin,"Contribuinte"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_N,    Col3,Lin,"Ano"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Valor Retido"
PrWIN TX_N,    Col5,Lin,"Tpr"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Rendimentos"

PrWIN COR_T ,  Corlin                            'cor de linha
End Sub


Sub Branco_LinG
PrWIN AJT_B,  Margem, 46+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col1,0,@Contrib
PrWIN TX_N,    Col2,0,@Nome
PrWIN TX_NP,   Col3,0,"N",@A
PrWIN TX_NP,   Col4,0,"N",@Ret
PrWIN TX_N,    Col5,0,@T
PrWIN TX_NP,   Col6,0,"N",@Rend
End Sub


Sub Branco_FimG
PrWIN COR_T,  CorTotGer                            'cor de titulo
PrWIN AJT_B,  Margem, 255          	'posicao base
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
PrWIN TX_N,    Col2,0,"Total ... "
PrWIN TX_NP,    Col4-5,0,"N",@TotRetG
PrWIN TX_NP,    Col6-5,0,"N",@TotRendG
PrWin FP
X=totLpz(0)
End Sub
##

#INC
Funcoes comuns                 =[SIG_Dir.Div],LsComPgm.Std
##
