'Nome       : RECIBO.STD
'Tipo       : LST
'Data       : 2004/03/30
'Versao     : 1.0
'Descricao  : Recibos de vencimento (outro formato)

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



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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=RECIBO
Nome                       [DocNom]=Recibo,Recibo (papel branco)
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=10
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=36L
Ajustar pagina             [DocApg]=1
Juntar seccoes             [DocEsp]=JunSec=1
'Juntar seccoes             [DocEsp]=JunSec=0
'Cod a discriminar seccoes  [DocEsp]=CmvDisSec="710,720"


'funcoes de listagem
Listar cabecalho            [FxCAB]=Rec_Cab
Listar linhas               [FxLIN]=Rec_Lin; Des ; Abo ; Ajt
Listar fim                  [FxFIM]=Rec_Fim
##


#DOC
Tipo                       [DocTip]=RECIBO
Nome                       [DocNom]=RecPre,Recibo (Pre-Impresso)

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=9
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=24L
Ajustar pagina             [DocApg]=1
Juntar seccoes             [DocEsp]=JunSec=1
'Juntar seccoes             [DocEsp]=JunSec=0
'Cod a discriminar seccoes  [DocEsp]=CmvDisSec="710,720"


'funcoes de listagem
Listar cabecalho            [FxCAB]=RecP_Cab
Listar linhas               [FxLIN]=RecP_Lin; Des ; Abo ; Ajt
Listar fim                  [FxFIM]=RecP_Fim
##

#DOC
Tipo                       [DocTip]=RECIBO
Nome                       [DocNom]=Recibo_G,Recibo (papel branco)
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=11
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=36L
Ajustar pagina             [DocApg]=0
Juntar seccoes             [DocEsp]=JunSec=1
'Juntar seccoes             [DocEsp]=JunSec=0
'Cod a discriminar seccoes  [DocEsp]=CmvDisSec="710,720"


'funcoes de listagem
Listar cabecalho            [FxCAB]=Rec_CabG
Listar linhas               [FxLIN]=Rec_LinG; Des ; Abo 
Listar fim                  [FxFIM]=Rec_FimG
##

'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
DocNum   =FrmVal$(MemNum(1),20,-5.0)
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)
DataRec  =FrmVal$(Sig_DtHoje,42,0)
MesRec   =FrmVal$(Sig_DtHoje,46,0)

NomEmp   =Emp_Inf_Nome$
Local    =Emp_Inf_Local$
Ctrb     =Emp_Inf_Contrib$


TrbC     =Gpe_Mst_Trb$
TrbNome  =Gpe_Mst_Nome$
TrbCat   =GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
TrbCont  =Gpe_Mst_Ctrb$
TrbCrss  =Gpe_Mst_CrssNb$
TrbLpg   =Gpe_Mst_Est$
'GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")
TrbVbase =GpeFrmMoe$("",10,Gpe_Mst_Vbase)

'linha
Cm       =Gpe_Cmv_Cod$
Desc     =Gpe_Cmv_Descr$
Desc16   =left$(Gpe_Cmv_Descr$,30)
Desc27   =left$(Gpe_Cmv_Descr$,27)
Tx       =FrmVal$(MemNum(20),20,2.2)
HorDias  =GpeFrmT$("?","####.00 ",MemNum(22))
Quant    =right$(GpeFrmT$("?","###.00",MemNum(22)),8)

Abo      =GpeFrmMoe$("",10,MemNum(21))
Des      =GpeFrmMoe$("",10,MemNum(21))

'totais
TotAbo   =GpeFrmMoe$("",10,MemNum(31))
TotDes   =GpeFrmMoe$("",10,MemNum(32))
TotRec   =GpeFrmMoe$("",13,MemNum(31)-MemNum(32))

Obs      =GpeObs$(5)
Seguro   =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")+"  Apolice n."+GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")
Seguro16 =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")+" , Apolice n."+GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")
TotEur   =FrmVal$(MoeCnv("N",Total(Abo)-Total(Des),Emp_Inf_Moeda,2),21,12.2)
Abv      =EmpTabCon$("MOEDA",Emp_Inf_Moeda,"ABRV")

VUnit    =GpeFrmMoe$("Z=E",10,MemNum(23))

'totais (todos os processamentos)
IncIrs   =GpeFrmMoe$("",13,MemNum(11))
AcmIrs   =GpeFrmMoe$("",13,MemNum(12))
##

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

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

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------

SUB FxIni 'funcao de inicializacao
Call SigLstIni

End sub


SUB Rec_CabG
Call MeioPaginaA4                'marcador para meio da pagina
Base1=0

'comentar a situacao que nao interessa
Base2=0                           '1 recibo por folha
Base2=148                         '2 recibos por folha

Base=Base1
Call Cabecalho
Base=Base2
Call Cabecalho
End SUb


SUB Rec_LinGAbo  'linha para abonos
Base=Base1
Call Abono
Base=Base2
Call Abono
End Sub


SUB Rec_LinGDes  'linha para descontos
Base=Base1
Call Desconto
Base=Base2
Call Desconto
End Sub


SUB Rec_FimG
Base=Base1
Call Final
Base=Base2
Call Final
PrWin FP
End Sub

SUB Rec_FimGAjt
Base=Base1
Call FinalAjt
Base=Base2
Call FinalAjt
PrWin FP
End Sub


Sub Cabecalho    'cabecalho do recibo grafico
PrWIN AJT_B,  Margem, Base+ 5                            'posicao base
PrWIN COR_T,  CorEmpMorada                         'cor para morada
PrWIN FON,  FntEmpMorada                           'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N,     2,   1,@EmpNome                    'designacao
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN TX_N,     2,    6,@EmpMorada                   'localidade
PrWIN TX_N,     2,   11,@EmpCpost                   'localidade
PrWIN TX_N,     2,   16,"Contribuinte:"            'contrib
PrWIN TX_N,    27,   16,@Ctrb                      'contrib


PrWIN FON,  10                                      'activar fonte
PrWIN COR_T,  CorTitLst                             'cor para titulos
PrWin FON, "BOLD+"                                  'activar bold
crm=130


'caixa sombrado recibo
PrWIN COR_E, 200, 200, 200                      'Cor de enchimento RGB
PrWIN GR_ME, 0                                  'modo de enchimento
PrWIN GR_CE,  crm-10,  0,192,  12           'caixa do cabecalho


PrWin TX_N, crm+5,5,"RECIBO DE REMUNERAÇÕES"
cper=crm+18
PrWin TX_N, cper,15,"Período :"
PrWin TX_N, cper+20,15,@MesREc



PrWIN COR_T,CorTraco                            'cor de linhas

PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN GR_LI,   crm-10, 0, crm-10,23              	'linha




'grelhas do corpo do documento
PrWIN GR_LI,   0, 0, 0,119              	'linha esquerda
cc=65

PrWIN GR_LI, cc, 51 ,cc,106              	'linha descricao/taxa
cc=87
PrWIN GR_LI, cc, 51, cc,106              	'linha taxa/quantidade
cc=115
PrWIN GR_LI, cc, 51, cc,119             	'linha quantidade/vunit
cc=142
PrWIN GR_LI, cc, 51, cc,112              	'linha valor unit/ desconto
cc=166
PrWIN GR_LI, cc, 51, cc,119              	'linha dsconto/abonos
cc=192
PrWIN GR_LI, cc, 0, cc,119              	'linha da direita

PrWIN GR_LI, 0, 23, Col8,23              	'linha entre empresa e trabalhador

PrWIN GR_LI, 0, 0, Col8,0               	'linha acima da empresa



'Dados do empregado
faj=2
PrWIN AJT_B,  Margem, Base+25                       'posicao base
PrWIN FON,  10                                      'activar fonte
PrWIN COR_T,  CorTitLst                             'cor para titulos
PrWin TX_N, faj,5,"Empregado"
PrWin TX_N, faj,10,"Categoria"
PrWin TX_N, faj,15,"Contribuinte"
PrWin TX_N, faj,20,"N.Beneficiario"
PrWin TX_N, faj,25,"Apólice Seguros"


PrWin TX_N,  120,10,"Vencimento Base :"
PrWIN TX_N , 120,20,"Data :"                      'data






col=30                                              'coluna
PrWIN COR_T,  CorLin                                'cor para linhas
PrWin TX_N,    Col,5,@TrbC
PrWin TX_N,    col+12,5,@TrbNome
PrWin TX_N,    Col,10,@TrbCat
PrWin TX_N,    Col,15,@TrbCont
PrWin TX_N,    Col,20,@TrbCrss

PrWin TX_NP,   150,10,"N",@TrbVbase
PrWIN TX_N,    130,20,@DataExt                       'listar data

PrWin TX_N,    Col,  25,@Seguro                   'seguro

Col1=3
Col2=10
esp=24
Col3=70                'taxa
Col4=Col3+(esp*1)      'quantidade
Col5=Col3+(esp*2)
Col6=Col3+(esp*3)
Col7=Col3+(esp*4)
Col8=MargemD-10

InicioEscrita=55
PrWIN AJT_B,  Margem, Base+InicioEscrita+1         	'posicao base

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Col8, 0               	'linha
PrWIN GR_LI, 0, 7, col8,7               	'linha


Lin=2
PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   10,   1                        	'activar fonte
PrWIN TX_CTR,  Col1,Lin,Col3,Lin,"Descrição"
PrWIN TX_N,    Col3,Lin,"Taxa"
PrWIN TX_N,    Col4,Lin,"Quantidade"
PrWIN TX_N,    Col5,Lin,"Valor Unitário"
PrWIN TX_N,    Col6+3,Lin,"Descontos"
PrWIN TX_N,    Col7+3,Lin,"Abonos"

PrWIN FON,  10                                  'activar fonte
PrWIN COR_T,  CorLin                            'cor para titulos

InicioEscrita=InicioEscrita+5
End sub


Sub Desconto
PrWIN AJT_B,  Margem, Base+InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Cm
PrWIN TX_DMX,   Col2,0,Col3-Col2,@desc
PrWIN TX_NP,    Col3,0,"N",@Tx
PrWIN TX_NP,    Col4,0,"N",@Quant
PrWIN TX_NP,    Col5,0,"N",@Vunit
PrWIN TX_NP,    Col6,0,"N",@Des
end sub


Sub Abono
PrWIN AJT_B,  Margem, Base+InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Cm
PrWIN TX_DMX,   Col2,0,Col3-Col2,@desc
PrWIN TX_NP,    Col3,0,"N",@Tx
PrWIN TX_NP,    Col4,0,"N",@Quant
PrWIN TX_NP,    Col5,0,"N",@Vunit
PrWIN TX_NP,    Col7,0,"N",@Des
End sub


Sub Final
FimDoc=110
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,Base+FimDoc+1                 		'posicao base
PrWIN GR_LI,     0,  0, Col8, 0            	'linha
PrWIN GR_LI,     Col5-3,  6, Col8, 6            	'linha
PrWIN GR_LI,     0,  13, col8, 13            	'linha
PrWIN FON,      10,  1                          'activar fonte

PrWIN COR_T, CorTotGer                            'cor de totais
PrWIN TX_N, Col5,    1,"Totais"
PrWIN TX_N, Col1,    2,"Assinatura"
PrWIN TX_N, Col5,    8,"Total a Receber"

PrWIN COR_T, CorLin                            'cor de totais

PrWIN TX_N,  Col1,  -4,@Obs

PrWIN TX_NP, Col6,   1,"N",@TotDes
PrWIN TX_NP, Col7,   1,"N",@TotAbo
PrWIN TX_N,  Col6+5, 8,@Abv
PrWIN TX_NP, Col7-6, 8,"N",@TotRec


PrWIN FON  ,   8,   1                           'activar fonte
'PrWin TX_N,    5,   13,@Seguro                   'seguro
end sub


Sub FinalAjt
FimDoc=110
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,Base+FimDoc+1                 		'posicao base
PrWIN GR_LI,     0,  0, Col8, 0            	'linha

PrWIN COR_T, CorTotGer                            'cor de totais
PrWIN TX_N, Col5,    1,"Continua ..."
end sub


##

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

