An entry point that will work as a trigger in the asset transfer routine, in the target fields of accounting data of entities (Ledger Account, Cost Center, Value Class, and Accounting Item).

User Function AF060GAT()

Local cCampoA   := Paramixb[1]  

Local cCod          :=Paramixb[2]

Local aVal            :={}
 
If cCampoA == 'N3_CUSTBEM' 
                AADD(aVal,{'N3_CCCORR',cCod})
                AADD(aVal,{'N3_CCDESP',cCod})
                AADD(aVal,{'N3_CCCDEP',cCod})
                AADD(aVal,{'N3_CCCDES',cCod})
EndIF
 
Return aVal

Portuguese(Brazil)

Microsiga_Protheus11

All

All

cCpoAtu = Current field cCodigo = Code of the accounting data.

Array updated with the new information

If ExistBlock("AF060GAT")

cCpoAtu := ReadVar() //The field to be updated

aValue := {} //Array

aValue := Execblock("AF060GAT",.F.,.F., { cCpoAtu, cCodigo, aVar } )

Local cCampoA:= Paramixb[1

]

Local cCod:=Paramixb[2]

Local aVarivel:=Paramixb[3]

Local aVal:={}

ATFA060.PRX