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.

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *