Hoje vou mostrar como fazer a comparação de todos os campos em uma tabela estando em uma rotina de Alteração.

Por padrão em MVC, se você clica em confirmar, mas não houve alteração em nenhum campo, ele irá te mostrar uma mensagem, avisando que não teve alterações.

Porém, se você está em uma tela mais antiga, como fazer para validar essa informação? Como saber quais campos foram alterados?

Basicamente, nós precisamos fazer 4 coisas:

1. Pegar todos os campos da tabela com a função DbStruct
2. Fazer um laço de repetição, percorrendo todos esses campos
3. Verificar se o conteúdo da tabela (por exemplo, SUATAB) é diferente do conteúdo em memória (M)
4. Se o campo for diferente da tabela para a memória, ai você pode fazer suas tratativas

Então pegando a lógica acima, e aplicando, teríamos o seguinte cenário para uma tela clássica (que usa RegToMemory):

aCampos := SUATAB->(DbStruct())
    
//Percorre todos os campos
For nAtual := 1 To Len(aCampos)
   
     //Pega o nome do campo atual
     cCampo := aCampos[nAtual][1]
   
     //Somente se o campo não for Virtual
     If GetSX3Cache(cCampo, "X3_CONTEXT") != "V"
   
          //Se o campo salvo na tabela for diferente do da memória
          If &("SUATAB->"+cCampo) != &("M->"+cCampo)
               Alert("Teve alteração no campo " + cCampo)
          EndIf
     EndIf
Next

Update Janeiro de 2023:

Montei mais dois exemplos, um utilizando tela em MVC:

//Pegando o modelo de dados MVC e pegando os campos
oModelAtiv := FWModelActive()
oModelCad  := oModelAtiv:GetModel('SEU_MASTER_OU_DETAIL')
aCampos    := SUATAB->(DbStruct())
    
//Percorre todos os campos
For nAtual := 1 To Len(aCampos)
   
     //Pega o nome do campo atual
     cCampo := aCampos[nAtual][1]
   
     //Somente se o campo não for Virtual
     If GetSX3Cache(cCampo, "X3_CONTEXT") != "V"
   
          //Se o campo salvo na tabela for diferente do da memória
          If &("SUATAB->"+cCampo) != oModelCad:GetValue(cCampo)
               Alert("Teve alteração no campo " + cCampo)
          EndIf
     EndIf
Next

E esse utilizando uma grid antiga (com aCols e aHeader):

aCampos    := SUATAB->(DbStruct())
  
//Percorre todas as linhas da grid
For nLinha := 1 To Len(aCols)
  
    //Percorre todos os campos
    For nAtual := 1 To Len(aCampos)
       
         //Pega o nome do campo atual
         cCampo := aCampos[nAtual][1]
           
         //Busca no aHeader a posição
         nPosHead     := GDFieldPos(cCampo)
       
         //Somente se o campo não for Virtual
         If GetSX3Cache(cCampo, "X3_CONTEXT") != "V"
       
              //Se o campo salvo na tabela for diferente do da memória
              If &("SUATAB->"+cCampo) != aCols[nLinha][nPosHead]
                   Alert("Teve alteração no campo " + cCampo)
              EndIf
         EndIf
    Next
Next

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPL