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