Perguntas Replicar centro de custo para títulos TX

PessoALL, boa tarde.

Tenho um título no financeiro que foi gerado a partir de um documento de entrada. Preciso que no momento da baixa, o centro de custo do título principal seja replicado para os títulos tipo TX referentes.

Alguém conhece um ponto de entrada que possa estar utilizando para essa situação?

acho que vc vai porder usar esse F080ACONT- Ponto de entrada Executando apos criação da SE5
e antes da contabilização.

Henrique, localizei o F080ACON seria esse?

Moçada, sei que a situação não é usual, mas quando precisarem de um PE que coloque o mesmo Centro de custos do título principal nos títulos de tributos, o PE abaixo atende. Testado e validado.

#include "rwmake.ch"

/*
+

---

+
¦Programa ¦ F080ACON ¦ Autor ¦ ¦ Data ¦06.05.2013¦
+

---

+

---

¦
¦Descriçào ¦ Ponto de Entrada da Baixa PG |
+

---

+

---

¦
¦ Uso ¦ ESPECIFICO ¦
+

---

¦
¦ ATUALIZACOES SOFRIDAS DESDE A CONSTRUCAO INICIAL ¦
+

---

¦
¦PROGRAMADOR ¦ DATA ¦ MOTIVO DA ALTERACAO ¦
+

---

+

---

+

---

¦
+

---

+
*/
User Function F080ACON()

Local aArea :={Alias(),IndexOrd(),Recno()}

AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCELA,SE2->E2_TIPO,SE2->E2_FORNECE,SE2->E2_LOJA,SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCISS,"ISS",Substr(GetMv("MV_MUNIC")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCINS,"INS",Substr(GetMv("MV_FORINSS")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCCID,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCCOF,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCCSS,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCIR ,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCPIS,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCSES,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)
AtualizSE2(SE2->E2_PREFIXO, SE2->E2_NUM,SE2->E2_PARCSLL,"TX ",Substr(GetMv("MV_UNIAO")+Space(10),1,6),"00",SE2->E2_ZCC)

DbSelectArea(aArea[1])
DbSetOrder(aArea[2])
DbGoTo(aArea[3])

Return


//

---

Static Function AtualizSE2(cPref,cNum,cParc,cTipo,cForn,cLoja,cCC)
Local nRecSE2 := SE2->(Recno())
Local aAreSE2 := GetArea()

dbSelectArea("SE2")
dbSetOrder(1)

If SE2->(DBSeek(xFilial("SE2")+cPref+cNum+cParc+cTipo+cForn+cLoja))
RecLock("SE2",.F.)
SE2->E2_ZCC := cCC
MsUnlock()
Endif

SE2->(DBGoto(nRecSE2))
RestArea(aAreSE2)

Return
//--< fim de arquivo >

---

No caso desse cliente foi utilizado um campo criado (E2_ZCC), mas pode ser utilizado o campo nativo da tabela.