Versão atual:

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

Versões (3):

Ver a versão formatada

customizacao tabela auxiliar

Comentário

new question