AF010CHP - Manipula a chapa em seu preenchimento e realiza sua validação

O ponto de entrada AF010CHP permite que o número da chapa seja manipulado e validado no seu preenchimento.

User Function AF010CHP()

Local cChapa := Paramixb[1]
Local lRepChapa := Paramixb[2]
Local lRet := .T.

Alert("Ponto de entrada AF010CHP executado")

If !lRepChapa
cChapa := "12 " // manipula chapa
EndIf

// valida a manipulação
dbSelectArea("SN1")
dbSetOrder(2)
If dbSeek(xFilial("SN1")+cChapa) .Or. Empty(cChapa)
Alert("Chapa em branco ou ja existente")
lRet := .F.
EndIf

Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

cChapa, lRepChapa

lRet

IF ExistBlock("AF010CHP")

lRet := ExecBlock("AF010CHP",.F.,.F.,{cChapa,lRepChapa})

ATFA010A.PRW