[RESOLVIDO] [RESOLVIDO] Validar Documento (CPF, CNPJ, ETC...)

Alguém sabe o nome das includes que o DataSul utiliza para validar documentos como cpf e cnpj, preciso validar esses documentos, mas antes de começar a implementar pensei que datasul possa ter isto pronto.

Re: Validar Documento (CPF, CNPJ, ETC...)

Alguém?

Re: Validar Documento (CPF, CNPJ, ETC...)

Bom dia, achei aqui uma no HCM, estou procurando aqui no EMS2...

CPF

Código:

run prghur/fpp/fp9902.p (input frame {&frame-name} rh_clien.cod_cgc_cpf, 
                                output l-digito).
       if (l-digito) then do:
          {include/i-vldprg.i}
          run utp/ut-msgs.p (input "show",
                             input 16901,
                             input rh_pais.nom_label_id_feder_jurid).
          apply 'entry' to rh_clien.cod_cgc_cpf in frame {&FRAME-NAME}.
          return 'adm-error':U.
       end.

CNPJ

Código:

run prghur/fpp/fp9903.p (input  c-cgcmf, 
                               output l-digito).
      if (l-digito) then do:
         {include/i-vldprg.i}
         run utp/ut-msgs.p (input "show",
                            input 16901,
                            input rh_pais.nom_label_id_feder_jurid).
         apply 'entry' to rh_clien.cod_cgc_cpf in frame {&FRAME-NAME}.
         return 'adm-error':U.
      end.

@x_jeferson
facebook/jeferson
EMAIL REMOVIDO! - Motivo: Recebendo Muito Span.
skype: jeferson.de.chaves

Re: Validar Documento (CPF, CNPJ, ETC...)

Obrigado jdchaves! Serviu muito bem.