Versão atual:

Problema inclusão de itens MVC

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

Versões (2):

Ver a versão formatada

Problema inclusão de itens MVC

Comentário

new question