MTA010OK

PE de validacao da inclusao/alteracao de produto. Retorne .F. pra bloquear gravacao com mensagem custom.

Assinatura: User Function MTA010OK() -> lOk

Modulo: SIGAFAT · Rotina: MATA010 · Momento: TudoOK — antes de gravar SB1

Retorno esperado

.T. = permite gravar; .F. = bloqueia

Exemplo

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

    // Codigo de produto deve seguir padrao XX-NNNNNN
    If !(SubStr(M->B1_COD,3,1) == "-")
        Help(" ", 1, "B1_COD", , "Codigo fora do padrao XX-NNNNNN", 1, 0)
        lRet := .F.
    EndIf
Return lRet

Pegadinhas

Use Help() com retorno .F. pra mensagem padronizada.
Em alteracao, M-> tem valores novos, SB1-> tem valores antigos.

Veja também

m010inc