Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

RunTrigger no acols

0

Gostaria de criar um clone de TES no documento de entrada. O fonte abaixo é um gatilho na D1_TES que pergunta caso queira clonar o código para os outros produtos. Porém os gatilhos não estão sendo chamados, alguem já teve um problema parecido?

user function SF1CLONETES()
    local aArea := GetArea()
    local cTes := M->D1_TES
    local nX := 0

    if GdFieldGet("D1_ITEM") == "0001" .and. Len(aCols) > 1
        if MsgYesNo("Deseja clonar a TES?" , "Clonar TES " + M->D1_TES)
            for nX := 2 to Len(aCols)
                GDFieldPut("D1_TES" , cTes , nX)
                GetDRefresh()
                if ExistTrigger("D1_TES")
                    RunTrigger(2,nX,Nil,,"D1_TES")
                endif
            next nX
        endif
    endif
    RestArea(aArea)
return cTes
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!

0 resposta

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