customizacao tabela auxiliar

Boa tarde!

Estou utilizando o PE_OMSA010.prw para gravar registros em uma tabela customizada para armazenar informações de alteração na tabela.

tenho a logica abaixo falando os campos que necessitam de vínculos. Gostaria de usar o campo número a alteração como sequencial para controle da alteração do registro.

        ElseIf cIdPonto == "MODELCOMMITNTTS"

            for NX := 1 to len(OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED)

            //OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]

            reclock("XDA",.T.)

            XDA_FILIAL := CFILANT

            XDA_TABELA := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][3]

            XDA_CODPRO := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][5]
            XDA_DESCRI := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][6]
            XDA_PRCBAS := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][8]
            XDA_PRCVEN := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][9]
         // XDA_COD    :=                                                         //Puxar o campo A1_COD teremos que buscar pelo indice e o campo A1_TABELA
         // XDA_NOME   :=                                                         //Puxar o campo A1_NOME
         // XDA_UGRPIB :=                                                         //Puxar o campo B1_UGRPIB Buscar pelo cadastro do produto 
         // XDA_BCCLAS :=                                                         //Puxar o campo A1_BCCLASS 
         // XDA_XTCCLA :=                                                         //Puxar o campo A1_XTCClAS
         // XDA_NUMALT :=                                                         //tabela X código do produto X Número da alteração incrimental 
            XDA_DATALT :=  DDATABASE                                              //Data da alteração
            XDA_HORA   :=  TIME()                                                 //Hora da alteração
            XDA_USUARI :=  CUSERNAME                                                       //Puxar o usuário que está realizando a alteração
            msunlock()
            xRet := .T. 
            next NX
        EndIf 
    EndIf 
Return xRet
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 customizacao ou faça a sua própria pergunta.