AF010CHP - Manipulate the reg. no. when entering it, and validate it

The entry point AF010CHP allows you to manipulate and validate the reg. no. when entering it.

User Function AF010CHP()

Local cChapa := Paramixb[1]

Local lRepChapa := Paramixb[2]

Local lRet := .T.

Alert("Entry point AF010CHP run")

If !lRepChapa cChapa := "12 " // manipulate reg. no.

EndIf

// validate the manipulation

dbSelectArea("SN1")

dbSetOrder(2)

If dbSeek(xFilial("SN1")+cChapa) .Or.

Empty(cChapa) Alert("Reg. no. blank or existing")

lRet := .F.

EndIf

Return lRet

Portuguese(Brazil)

Previous_Versions

All

All

cChapa, lRepChapa

lRet

IF ExistBlock("AF010CHP")

lRet := ExecBlock("AF010CHP",.F.,.F.,

{cChapa,lRepChapa})

ATFA010A.PRW