Bom dia!
Tenho essa customização para alteração de itens dentro de uma tabela, que grava em uma tabela auxiliar essas modificações. Entretanto para um item funciona, e quando tenho mais de um item ele da erro na parte na linha do TCQUERY, qual seria o ajuste necessário.
Alias already in use: SCGN000189 on U_OMSA010(PE_OMSA010.PRW) 13/10/2021 07:52:42 line : 84
//Commit das operações (antes da gravação)
ElseIf cIdPonto == "MODELCOMMITTTS"
xRet := .T.
//Commit das operações (após a gravação)
ElseIf cIdPonto == "MODELCOMMITNTTS"
for NX := 1 to len(OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED)
//OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]
cCodTab := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][3]
cCodPro := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][5]
cQuery := "SELECT A1_COD, A1_NOME, A1_BCCLASS, A1_XTCClAS, A1_TABELA FROM "+RetSqlName("SA1")+" SA1 "
cQuery += "WHERE D_E_L_E_T_ = ' ' AND A1_TABELA = '"+cCodTab+"' "
cQuery := ChangeQuery(cQuery)
TcQuery cQuery Alias ( cAliasSA1 ) New
reclock("ZDA",.T.)
ZDA_FILIAL := CFILANT
ZDA_TABELA := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][3]
ZDA_CODPRO := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][5]
ZDA_DESCRI := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][6]
ZDA_PRCBAS := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][8]
ZDA_PRCVEN := OOBJ:AMODELSTRUCT[1][4][1][3]:aCols[OOBJ:AMODELSTRUCT[1][4][1][3]:ALINESCHANGED[NX]][9]
ZDA_COD := (cAliasSA1)->A1_COD
ZDA_NOME := (cAliasSA1)->A1_NOME
ZDA_BCCLAS := (cAliasSA1)->A1_BCCLASS
ZDA_XTCCLA := (cAliasSA1)->A1_XTCClAS
ZDA_UGRPIB := posicione("SB1",1,xFilial("SB1")+cCodPro,"B1_UGRPIBG")
ZDA_NUMALT := GetSxeNum("ZDA","ZDA_NUMALT")
ConfirmSx8()
ZDA_DATALT := DDATABASE
ZDA_HORA := TIME()
ZDA_USUARI := CUSERNAME
msunlock()
xRet := .T.
next NX
EndIf
EndIf
Return xRet
