Perguntas doc de entrada x c. contábil x c. custo

Douglas é possível através de gatilhos e função, segue um exemplo:

#include "rwmake.ch" // incluido pelo assistente de conversao do AP6 IDE em 02/04/03

User Function Calc_icm() // incluido pelo assistente de conversao do AP6 IDE em 02/04/03
SetPrvt("_CALIAS,_NPOSICM,_NPOSBICM,_NPOSAICM,_NPOSTOT,_NPOSIPI")
SetPrvt("_NPOSTES,_NVALICM,_NVALTOT,_NVALIPI,_NVALAICM,_CTES")
SetPrvt("_NPERCALC,ACOLS,")
_cAlias := GetArea()
_nPosICM := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_VALICM"})
_nPosBICM := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_BASEICM"})
_nPosAICM := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_PICM"})
_nPosTOT := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_TOTAL"})
_nPosIPI := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_VALIPI"})
_nPosTes := Ascan(AHeader,{|X|Alltrim(x[2])=="D1_TES"})

_nValICM := 0
_nValTOT := Acols[n,_nPosTOT]
_nValIPI := Acols[n,_nPosIPI]
_nValAICM := Acols[n,_nPosAICM]
_cTES := Acols[n,_nPosTES]

If _cTES == "497" // TES PADRAO DO CLIENTE PARA IMPORTACAO

_nPerCalc := Val(("."+Str((100-_nValAICM),2)))

_nValICM := ( _nValTOT + _nValIPI )/_nPerCalc

Acols[n,_nPosICM] := (_nValICM*_nValAICM)/100

Acols[n,_nPosBICM] := _nValICM

Endif

RestArea(_cAlias)

// Substituido pelo assistente de conversao do AP6 IDE em 02/04/03 ==> __Return(_cTES)
Return(_cTES)

Obrigado meu brother, então na verdade este exemplo que te mandei seria executado através de um gatilho que você poderia colocar no campo d1_cod


Tipo
D1_COD

U_SUAFUNCAO()

ai dentro da função vc faria os tratamentos necessários para o preenchimento do acols dos campos de conta contábil e centro de custos.

faz o seguinte, to indo dormir agora, mas amanhã vou ver se já encontro aqui nas minhas bibliotecas alguma coisa meio que já mastigada pra vc belê