'Nome       : RECIBO.STD
'Tipo       : LST
'Data       : 2005/10/21
'Versao     : 1.0a
'Descricao  : Recibos de vencimento - Inforlider /Pmr


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0  2000/09/11 ---------------------------------------------------
'Versao base

'- Versao : 1.0a 2005/??/?? ---------------------------------------------------
'correcção ortográfica


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


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


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

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=15
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=36L
Ajustar pagina             [DocApg]=1
Juntar seccoes             [DocEsp]=JunSec=1


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


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RECIBO
Nome                       [DocNom]=RecPre,Recibo Pmr
Vias                       [DocVia]=Original

'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

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


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataRec  =FrmVal$(Sig_DtHoje,44,0)
MesRec   =FrmVal$(Sig_DtHoje,46,0)

NomEmp   =PrtCmd$("[16CPILD]")+Emp_Inf_Nome$
Local    =Emp_Inf_Local$

TrbCod   =Gpe_Mst_Trb$
TrbNome  =Gpe_Mst_Nome$
TrbCat   =GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
TrbSec   =GpeTabCon$("SEC",Gpe_Mst_Sec$,"ABRV")
TrbCont  =Gpe_Mst_Ctrb$
TrbCrss  =Gpe_Mst_CrssNb$
TrbLpg   =Gpe_Mst_Est$
TrbVbase =FrmMoe$("",10,Gpe_Mst_Vbase)

'linha
Cmv      =Gpe_Cmv_Cod$
Desc     =left$(Gpe_Cmv_Descr$,21)
Desc16   =left$(Gpe_Cmv_Descr$,30)
Tx       =FrmVal$(MemNum(20),20,2.2)
Hor      =GpeFrmT$("?","####.00",MemNum(22))
Vbas     =
Abo      =FrmMoe$("",10,MemNum(21))
Des      =FrmMoe$("",10,MemNum(21))
VUni     =MemNum(23)

'totais
TotAbo   =FrmMoe$("",10,Total(Abo))
TotDes   =FrmMoe$("",10,Total(Des))
TotRec   =FrmMoe$("",13,Total(Abo)-Total(Des))
Obs      =GpeObs$(9)
Seguro   =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")
Seguro16 =GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")+" , Apolice n."+GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")
Apol     ="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")
##


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

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
'- Recibos Tipo 1 (2 Recibos por folha )---------------------------------------
SUB Rec_Cab
?@NomEmp                                            #
Print PrtCmd$("[10CPILN]");
?
?
?@TrbNome                              @TrbCod @TrbSEc             @DataRec   #
?
?
? @TrbCat                     @TrbCont   @TrbCrss @TrbVbase      @MesRec      #
?
?
?
end sub

SUB Rec_LinAjt 'ajuste de  linhas
?
end sub

SUB Rec_LinDes
?@Cmv@Desc                @Tx     @HorDias                      @Des         #
end sub

SUB Rec_LinAbo
?@Cmv@Desc                @Tx     @HorDias         @Abo               #
end sub


SUB Rec_Fim                                                                   #
?@Seguro                                           @TotAbo      @TotDes       #
?@Apol                                                              #  
?                                                            @TotRec       @Abv  
?                          #
?
'?                                                      Euro:@TotEur           #                           
Print PrtCmd$("[SP]");
x=totlpz(0)
end sub


'- Recibo tipo 2 (3 Recibos por folha) -----------------------------------------
SUB RecP_Cab
?@NomEmp                                               #
Print PrtCmd$("[10CPILN]")
?@TrbCod @TrbNome                           @DataRec                  #
?
?@TrbCont     @TrbCrss                  @TrbCat       @TrbVBase                #
?
Print PrtCmd$("[16CPILD]")
end sub


SUB RecP_LinAjt
?
end sub

SUB RecP_LinDes
?@Cmv  @Desc16                          @Tx      @HorDias                       @Des                       #
end sub

SUB RecP_LinAbo
?@Cmv  @Desc16                          @Tx      @HorDias                                       @Abo       #
end sub


SUB RecP_Fim
?@Seguro16                                                   #
?                                                                               @TotDes         @TotAbo      #
?
?                                                                                               @TotRec       @Abv #
?
'?                                                                                        Euro: @TotEur       #
?
Print PrtCmd$("[SP]");
x=totlpz(0)
end sub
##

