AF060GAT - Gatilho na rotina de transferência de ativos

Ponto de entrada que servirá como gatilho na rotina de transferência de ativos nos campos de destino dos dados contábeis das entidades (Conta Contábil, Centro de Custo, Classe de Valor e Item Contábil).

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

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

cCpoAtu = Campo atual cCodigo = Código dos dados contábeis.

Array atualizado com as novas informações

If ExistBlock("AF060GAT")

cCpoAtu := ReadVar() //Campo a ser atualizado

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