Como verificar duplicidade de e-mail no Datasul?

Um dos motivos que podem levar a erro de sincronização de um documento “Aprovado” ou “Reprovado” é a duplicidade de e-mail no ERP, ou seja, dois usuários que possuem o mesmo e-mail cadastrado. Para verificar quem são esses usuários e corrigir o problema, pode-se utilizar o script a seguir que identificará os usuários que utilizam o e-mail desejado no Datasul. Com isso, pode-se pesquisar pelo e-mail cadastrado no Aprovador para corrigir o problema.

1 - Faça login no Datasul.

2 - Selecione o Datasul Interactive.

3 - Aperte CTRL + ALT + X para abrir o editor Progress.

4 - No editor, digite "_edit.p" e aperte "enter".

5 - Cole o seguinte script:

for each usuar_mestre no-lock 
     where usuar_mestre.cod_e_mail_local = "DIGITE_EMAIL_AQUI": 

     disp usuar_mestre.cod_usuario 
          usuar_mestre.cod_e_mail_local. 
end.

6 - Execute o script apertando "F2".

Após identificado os usuários que utilizam o mesmo e-mail, remova o daquele que não pertence ao usuário do Aprovador.

Buscando em toda a base

É possível buscar em toda a base os usuários que utilizam o mesmo e-mail. Para isso, o script que deve ser aplicado no passo 5, entre os descritos acima é:

def temp-table ttUsuario no-undo
  field usuario as char 
  field email as char 
  index pk as primary unique
  usuario.
 
def buffer b-usuar-mestre for usuar_mestre.
 
for each usuar_mestre no-lock:
  for each b-usuar-mestre no-lock
    where b-usuar-mestre.cod_e_mail_local = usuar_mestre.cod_e_mail_local
      and b-usuar-mestre.cod_e_mail_local <> ""
      and b-usuar-mestre.cod_usuario <> usuar_mestre.cod_usuario:

    find first ttUsuario 
      where ttUsuario.usuario = b-usuar-mestre.cod_usuario no-error.

    if not avail ttUsuario then do:
      create ttUsuario.
      assign ttUsuario.usuario = b-usuar-mestre.cod_usuario
      ttUsuario.email = b-usuar-mestre.cod_e_mail_local no-error.
    end.
  end.
end.

for each ttUsuario break by email:
  disp ttUsuario.usuario
  ttUsuario.email format "x(50)".
end.

Caso os problemas de sincronização persistam após o problema de duplicidade resolvido, entre em contato conosco pelo e-mail [e-mail].