Bom Dia,
Pessoal tenho um fonte que efetua a gravação de um função no campo X3_VLDUSR, com o dicionário no banco, como devo proceder para alterar esse código?
Abaixo segue o trecho.
//Campos normais aAdd(aCampos, 'A1_NOME') aAdd(aCampos, 'A1_NREDUZ') aAdd(aCampos, 'A1_BAIRRO') aAdd(aCampos, 'A1_MUN') aAdd(aCampos, 'A2_NOME') aAdd(aCampos, 'A2_NREDUZ') aAdd(aCampos, 'A2_BAIRRO') aAdd(aCampos, 'A2_MUN') aAdd(aCampos, 'A4_NOME') aAdd(aCampos, 'A4_NREDUZ') aAdd(aCampos, 'A4_BAIRRO') aAdd(aCampos, 'B1_DESC')
//Atualiza o MV_ACENTO para não aceitar acentuação no sistema IncProc("Atualizando parâmetro...") PutMV('MV_ACENTO', 'N')
//Percorrendo os campos normais IncProc("Atualizando campos normais...") SX3->(DbGoTop()) For nAtual := 1 To Len(aCampos) //Se conseguir posicionar If SX3->(DbSeek(aCampos[nAtual])) cValidUsr := Alltrim(SX3->X3_VLDUSER)
//Se já tiver, pula o campo If "U_ZLIMPAESP" $ Upper(cValidUsr) nAtual++ Loop EndIf
//Se tiver conteúdo, adiciona .And. no valid If !Empty(cValidUsr) cValidUsr += " .And. " Endif
//Definindo a expressão cValidUsr += "u_zLimpaEsp()"
//Atualiza no banco RecLock('SX3', .F.) X3_VLDUSER := cValidUsr SX3->(MsUnlock()) EndIf Next
