AF010TOK - Validación de los datos digitados en la inclusión del activo

El punto de entrada AF010TOK valida los datos digitados antes de la grabación.

#include "rwmake.ch"

User function AF010TOK()
Local aArea := GetArea()
Local cMensagem := ""
Local lRet := .T.
Local cChapa := AllTrim(M->N1_CHAPA)

If !Empty(cChapa)
    If Len(cChapa) <> 6
        cMensagem := "Numero de la plaqueta no está en el estándar de dígitos."
        Help("ATFA010",1,"HELP","VALCHAPA",cMensagem,1,0)
        lRet := .F.
    Endif
Endif

RestArea(aArea)
SN1->(DbSetOrder(1))

Return lRet

Portugués(Brasil)

Microsiga_Protheus10_y_Microsiga_Protheus11

Todos

Todas

lRet

ATFA010A.PRW