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
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.