Perguntas Inclusão do Historico Automatico nos titulos de impostos do contas a Pagar

Vc vai precisar utilizar um ponto de entrada no momento da geração dos titulos. segue um exemplo.

User Function FA050GRV()
_AreaE2 :=SE2->(Getarea())
_AreaED :=SED->(Getarea())
//_cFor :=Space(6)
If Funname()=="FINA050" .Or. Funname()=="FINA750"
_cNum :=SE2->E2_PREFIXO+Alltrim(SE2->E2_NUM)
_cNat :=SE2->E2_NATUREZ
_cHist :=SE2->E2_HIST
_cCc :=SE2->E2_CCC
_cCd :=SE2->E2_CCD
_cCredito:=SE2->E2_CREDIT
_cDebito :=SE2->E2_DEBITO
_nVlIss :=SE2->E2_ISS
_nVlIr :=SE2->E2_IRRF
_nVlInss :=SE2->E2_INSS
_nVlcsll :=SE2->E2_CSLL
_nVlpis :=SE2->E2_PIS
_nVlcof :=SE2->E2_COFINS
_cCodfor :=SE2->E2_FORNECE
If SE2->E2_ISS>0 .Or. SE2->E2_INSS>0 .Or. SE2->E2_IRRF>0 .Or. SE2->E2_PIS>0 .Or.;
SE2->E2_COFINS>0 .Or. SE2->E2_CSLL>0
While !SE2->(Eof()) .And. _cNum==SE2->E2_PREFIXO+Alltrim(SE2->E2_NUM)
If Empty(SE2->E2_NUM)
SE2->(Dbskip())
Loop
Endif
//.........................................................//INSS
SA2->(Dbseek(xFilial("SA2")+_cCodfor))
If SE2->E2_TIPO=="INS" .And. _nVlInss==SE2->E2_VALOR
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488009"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="INSS RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
//.........................................................//ISS
If SE2->E2_TIPO=="ISS" .And. _nVlIss==SE2->E2_VALOR
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488006"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="ISS RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
//.........................................................//IRPJ
If (SE2->E2_TIPO=="IRF" .Or. Alltrim(SE2->E2_TIPO)=="TX") .And. _nVlIr==SE2->E2_VALOR .And. SA2->A2_TIPO=="J"
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488005"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="IRF RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
//.........................................................//IRPF
If (SE2->E2_TIPO=="IRF" .Or. Alltrim(SE2->E2_TIPO)=="TX") .And. _nVlIr==SE2->E2_VALOR .And. SA2->A2_TIPO=="F"
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488005"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="IRF RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
// If (SE2->E2_TIPO=="IRF" .Or. Alltrim(SE2->E2_TIPO)=="TX") .And. _nVlIr==SE2->E2_VALOR .And. SA2->A2_TIPO=="F" .And. Alltrim(_cNat)=="411005"
// SE2->(Reclock("SE2",.F.))
// SE2->E2_NATUREZ:="611003"
// SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
// SE2->E2_HIST :=_cHist
// SE2->E2_CCC :=_cCc
// SE2->E2_CCD :=_cCd
// SE2->E2_CREDIT :=SED->ED_CREDIT
// SE2->E2_DEBITO :=SED->ED_DEBITO
// Msunlock()
// Endif
//.........................................................//CSLL
If Alltrim(SE2->E2_TIPO)=="TX" .And. _nVlcsll==SE2->E2_VALOR
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488002"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="CSLL RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
//.........................................................//COFINS
If Alltrim(SE2->E2_TIPO)=="TX" .And. _nVlcof==SE2->E2_VALOR
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488001"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="COFINS RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
//.........................................................//PIS
If Alltrim(SE2->E2_TIPO)=="TX" .And. _nVlpis==SE2->E2_VALOR
SE2->(Reclock("SE2",.F.))
SE2->E2_NATUREZ:="488007"
SED->(Dbseek(xFilial("SED")+SE2->E2_NATUREZ))
SE2->E2_HIST :="PIS RETIDO S/ SERV. TOMADOS -"+SUBSTR(_cNum,1,3)+SUBSTR(_cNum,4,9)
SE2->E2_CCC :=_cCc
SE2->E2_CCD :=_cCd
SE2->E2_CREDIT :=SED->ED_CREDIT
SE2->E2_DEBITO :=SED->ED_DEBITO
Msunlock()
Endif
SE2->(Dbskip())
End
Endif
Endif
Restarea(_AreaE2)
Restarea(_AreaED)
Return

Blz Pablo, coloca uma foto sua ai pra gente te conhecer melhor e divulgue o site aos amigos.

Abraços.