Versão atual:

Alterar TES de todos os itens

Estou com uma demanda para criar um gatilho na inclusão do documento de entrada , no momento que for inserido o tipo de entrada do primeiro produto , para que ele pergunte ao usuario se deve utilizar esse mesmo tipo em todos os itens.

Porém o campo D1_TES tem alguns gatilhos proprios , qual seria a melhor forma de executar todos os gatilhos ja configurados via o seguinte fonte:

user function zClonaTES()
    local aArea := GetArea()

    local nX
    local nPosTes
    local nTes

    if M->D1_ITEM == "0001" .and. MsgYesNo("Deseja clonar a TES?" , "Clonar TES " + M->D1_TES)
        nTes := M->D1_TES
        nPosTES := AScan(aHeader, {|x| AllTrim(x[2]) == "D1_TES"})
        for nX := 1 to Len(aCols)
            aCols[nX][nPosTES] := nTes
        next nX
    endif

    RestArea(aArea)

return SD1->D1_TES

Versão (1):

Ver a versão formatada

Alterar TES de todos os itens

Comentário

new question