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.