Progress – Totvs 12: Conferir mensagem de erro de PIS duplicado

Progress – Totvs 12: Conferir mensagem de erro de PIS duplicado

Com o programa abaixo podemos verificar se o funcionário tem mais de uma pessoa física cadastrada

FOR EACH funcionario WHERE funcionario.cod_pis = ‘123456789‘ NO-LOCK.

/*     DISPLAY funcionario.cdn_funcionario funcionario.cdn_estab  . */

    FIND FIRST rh_pessoa_fisic OF funcionario NO-LOCK NO-ERROR.

    DISPLAY rh_pessoa_fisic.num_pessoa_fisic  .

END.