'Nome       : GpeM41.std
'Tipo       : LST
'Data       : 2017/02/15
'Versao     : 1.4a
'Descricao  : Retencao de irs irc Iselo


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.4a 2017/??/?? --------------------------------------------------
'Permitir impressao das retencoes categoria A

'- Versao : 1.4  2016/10/26 --------------------------------------------------
'Utilizar texto Contabilista certificado

'- Versao : 1.3a 2013/02/14 --------------------------------------------------
'Ajuste no nome do ficheiro

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

'- Versao : 1.3  2004/01/30 --------------------------------------------------
'Versao base - Declaracao de retencao de rendimentos


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Zoom para preview             [PrvZoom]=1
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RET
Nome                       [DocNom]=RET_G,Retenção IRS-IRC-IS

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Pw_Cab
Listar linhas               [FxLIN]=Pw_Lin
Listar fim                  [FxFIM]=Pw_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RET
Nome                       [DocNom]=RETS,Retenção IRS-IRC-Is

'formato
Saida/Impressora           [DocPrt]=SPI
Linhas por pagina          [DocLpg]=60
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Directorio ficheiros       [DocEsp]=Spidir=Spi\RET
Nome de ficheiro           [DocEsp]=SpiFic=[EMPCTRB]_[A4][MES].rtfonte.xml
Identificador de listagem  [DocEsp]=LstId=rtfonte
Nao Apresentar no menu     [DocEsp]=MnuInv=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=spiCab
Listar linhas               [FxLIN]=SpiLin
Listar fim                  [FxFIM]=SpiFim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
DataValor= MemTxt$(3)

'cabecalho
DatMes    = FrmVal$(Sig_DtHoje,46,0)
DatAno    = left$(FrmVal$(Sig_DtHoje,44,0),4)
Data      = FrmVal$(Sig_DtHoje,44,0)
Folha     = Doc_CntPag

'dados da empresa
EmpNome   = Emp_Inf_Nome$
EmpMorada = Emp_Inf_Morada$
EmpLocal  = Emp_Inf_Local$
EmpLocalCP= Emp_Inf_Cpost$
EmpTelef  = left$(Emp_Inf_Telef$,12)
EmpNif    = Emp_Inf_Contrib$

Tcod     = Memtxt$(31)
Tdescr   = Memtxt$(32)
Valor    = FrmVal$(MemNum(33),21,10.2)
ValorTot = FrmVal$(MemNum(35),21,10.2)
##


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


'==============================================================================
#PGM - Funcoes de listagem
'==============================================================================
Sub Pw_CabIni 'funcao de inicializacao
Call SigLstIni
Call VlDefPrp
end sub


'----------------------------------------------------------------------------------------
Sub Pw_Cab         ´Cabeçalho do Modelo
´----------------------------------------------------------------------------------------
EspLin=5

PrWIN AJT_B,  Margem, 10                 'posicao base

PrWIN FON, 13                            'tamanho letra
PrWIN FON, "BOLD+"                       'tamanho letra
PrWIN COR_T,  CorTitLst                  'cor de titulo
PrWin TX_N,   65,0,MemTxt$(1)
PrWIN GR_LI,  50,  5, 165,  5 ,1         'sublinhado
PrWin TX_N,  130, 12, @DataValor

PrWIN FON, 10                            'tamanho letra
PrWIN FON, "BOLD-"                       'tamanho letra

PrWIN COR_T,  CorTitLst                  'cor de titulo

PrWIN AJT_B,  Margem+10, 30                               'posicao base
PrWIN GR_CX,   -2,   EspLin, 115,  EspLin*8, 1            'caixa de moldura
PrWin TX_N ,  5, 0,"Identificação da Entidade Pagadora"


'== Entidade pagadora
PrWIN FON, 10                           'tamanho letra
PrWIN COR_T,  0                         'cor  preto
PrWIN TX_N, 0, Esplin*1,@EmpNome        'separar nome
PrWIN TX_N, 0, EspLin*2,@EmpMorada      'separar morada
PrWin TX_N, 0, EspLin*3,@EmpLocal
PrWin TX_N, 0, EspLin*4,@EmpLocalCP
PrWIN COR_T,  CorTitLst                 'cor de titulo
PrWin TX_N, 0, EspLin*5,"Telefone"
PrWIN COR_T,  0                         'cor  preto
PrWin TX_N,20, EspLin*5,@EmpTelef
PrWIN COR_T,  CorTitLst                 'cor de titulo
PrWin TX_N, 0, EspLin*7,"Numero de identificação fiscal"
PrWIN COR_T,  0                         'cor  preto
PrWin TX_N,  50,EspLin*7,@EmpNif
PrWIN FON, "BOLD+"                      'tamanho letra


'== titulos e posicao de colunas
InicioEscrita=85
margemusa=margem+20

PrWIN FON, 10                           'tamanho letra
PrWIN COR_T,  CorTitLst                 'cor de titulo

col1=5
col2=Col1+10
col3=Col2+100
Col4=Col3+30

PrWIN AJT_B,  MargemUsa, InicioEscrita       'posicao base
PrWin TX_N,   col1-5,0,"Código"
PrWin TX_CTR,   col2,0,col3,0,"Descrição"
PrWin TX_CTR,   col3,0,Col4,0,"Valor"
PrWIN GR_LI,   0,  5, col4,  5 ,1            'separador horizontal dos IVAS
PrWIN FON, "BOLD-"                           'tamanho letra

PrWIN COR_T, 0
End Sub


'----------------------------------------------------------------------------------------
Sub Pw_Lin            'Linhas 
'----------------------------------------------------------------------------------------
PrWIN AJT_B,  MargemUsa, InicioEscrita+(Doc_cntLin*5)         'posicao base
PrWin TX_N,   Col1, 0 ,@Tcod
PrWin TX_DMX, Col2, 0 ,100 , @Tdescr
PrWin TX_NP,  Col3, 0 ,"N",@Valor
end sub


'----------------------------------------------------------------------------------------
Sub Pw_Fim            ´Fim do Modelo
'----------------------------------------------------------------------------------------
fim=205
PrWIN AJT_B,  MargemUsa, fim                   'posicao base
PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN GR_CX,   -2,  4, 145,  EspLin*5, 1       'caixa de moldura
'PrWIN GR_LI,   0,  5, col4,  5 ,1             'separador horizontal dos IVAS

PrWin TX_N,  Col3-15, Esplin    ,"Valor total"
PrWin TX_NP,    Col3, EspLin,"N", @ValorTot

PrWin TX_N ,  0 , EspLin*2,"Extenso :"
PrWIN COR_T,  0                     'cor 

'extenso
ExtNl=NumExtPrp("50,50","=")                   'preparar extenso
PrWIN FON, 10                                  'tamanho letra
PrWin TX_N, 18, EspLin*2 , NumExt$(1 ,MemNum(35),"EUR",3)
PrWin TX_N, 0, EspLin*3 , NumExt$(2 ,MemNum(35),"EUR",3)

lin=EspLin*10
cl=0
ajt2=55
ajt=8
PrWIN GR_LI, Cl,  Lin, Cl+ajt2, Lin ,1          	'separador horizontal dos IVAS
PrWin  TX_N, Cl+Ajt,  Lin, " ( Contabilista certificado )"

Cl=85
PrWIN GR_LI, Cl,  Lin, Cl+ajt2, Lin ,1          	'separador horizontal dos IVAS
PrWin  TX_N, Cl+Ajt,  Lin, " ( Entidade pagadora )"

PrWin FP
end sub
##

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


