'Nome       : Oliveti.STD
'Tipo       : LST
'Data       : 2005/10/21
'Versao     : 1.1a
'Descricao  : Recibos de vencimento - Oliveti

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

'- Versao : 1.1  2003/01/22 ---------------------------------------------------
'Ajustar contador de linhas e linhas por folha

'- Versao : 1.1a 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]=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
'==============================================================================
PerSon   = SigLstInf$("PERSON")
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataRec  =FrmVal$(Sig_DtHoje,44,0)
MesRec   =FrmVal$(Sig_DtHoje,46,0)

NomEmp   =PrtCmd$("[16CPILD]")+ Emp_Inf_Nome$
NomNif   =PrtCmd$("[16CPILD]")+ " NIF:"+Emp_Inf_Contrib$
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_Crss+"  "+Gpe_Mst_CrssNb$
TrbLpg   =Gpe_Mst_Est$
TrbVbase =GpeFrmMoe$("",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      =GpeFrmMoe$("",10,MemNum(21))
Des      =GpeFrmMoe$("",10,MemNum(21))
VUnit    =GpeFrmMoe$("Z=E",10,MemNum(23))

'totais
TotAbo   =GpeFrmMoe$("",10,Total(Abo))
TotDes   =GpeFrmMoe$("",10,Total(Des))
TotRec   =GpeFrmMoe$("",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")

TotIlq   =GpeFrmMoe$("",13,TotIlqVl)
Tsu      =GpeFrmMoe$("",9,TsuVl)
Irs      =GpeFrmMoe$("",10,IrsVl)
Snd      =GpeFrmMoe$("",10,SndVl)
IrsTx    =IrsTx$
TsuTx    =TsuTx$
##


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

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
SUB RecP_Cab
?@NomEmp                                           @NomNif         #
?
Print PrtCmd$("[10CPILN]")
? @TrbCod@TrbNome                                    @TrbLpg       #
?
?@TrbCont   @TrbCat           @TrbVBase  @TrbCrss       @DataRec  #

?
Print PrtCmd$("[16CPILD]")
TsuVL=0
IrsVl=0
TotIlqVl=0
end sub


SUB RecP_LinAjt
?
end sub


SUB RecP_LinDes
if Gpe_Cmv_Cod$="710" then
  TsuVl=MemNum(21)+TsuVl
  TsuTx$=FrmVal$(MemNum(20),20,2.2)+"%"
  cnt=CntLin("CON")                               'contador
  fx=CntLin("FRC",cnt-1)                          'contador
else
  if Gpe_Cmv_Cod$="720" then
    IrsVl=MemNum(21)+IrsVl
    IrsTx$=FrmVal$(MemNum(20),20,2.2)+"%"
    cnt=CntLin("CON")                             'contador
    fx=CntLin("FRC",cnt-1)                        'contador
  else
  if Gpe_Cmv_Cod$="790" then
    SndVl=MemNum(21)+SndVl
    cnt=CntLin("CON")                             'contador
    fx=CntLin("FRC",cnt-1)                        'contador
  else


? @Cmv  @Desc16                          @Tx        @Hor             @Vunit                            @Des       #
TotIlqVl=TotIlqVl-MemNum(21)

end if
end if
end if


end sub

SUB RecP_LinAbo
? @Cmv  @Desc16                          @Tx        @Hor             @Vunit           @Abo                  #
TotIlqVl=TotIlqVl+MemNum(21)
end sub


SUB RecP_Fim
TotIlqVl=TotIlqVl-(IrsVl+TsuVl+SndVl)
?                                                #
?@Seguro16                                                                                          @TotRec         #
?                                                                 #
?@TsuTx@Tsu                      @IrsTx - @Irs          @Snd                                        @TotIlq           #
?
?@Person                                                                             #
Print PrtCmd$("[SP]");
x=totlpz(0)
end sub
##


