M030LOK

PE de validacao da inclusao/alteracao de cliente. Tipica validacao de CNPJ contra receita, blocklist interno, due diligence.

Assinatura: User Function M030LOK() -> lOk

Modulo: SIGAFAT · Rotina: MATA030 · Momento: TudoOK — antes de gravar SA1

Retorno esperado

.T. = grava; .F. = bloqueia

Exemplo

User Function M030LOK()
    Local lRet := .T.

    // Verifica blocklist
    If U_EhClienteBloqueado(M->A1_CGC)
        Help(" ", 1, "A1_CGC", , "CNPJ em blocklist interno", 1, 0)
        lRet := .F.
    EndIf

    // Valida CNPJ
    If M->A1_PESSOA == "J" .And. !CGC(M->A1_CGC)
        Help(" ", 1, "A1_CGC", , "CNPJ invalido", 1, 0)
        lRet := .F.
    EndIf
Return lRet

Pegadinhas

Funcao CGC() valida digito verificador padrao Brasil.
Em alteracao, valide se CNPJ pode mudar — geralmente, regra interna proibe.
Consulta externa (receita.gov.br) deve ter timeout — nao trave UI.

Veja também

m030inc