Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA010A |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
You can use entry point AF010CHP to validate the registration number of an asset while completing it. It allows the application of customized rules to validate the contents of the registration number field before saving it.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
IF ExistBlock("AF010CHP")
lRet := ExecBlock("AF010CHP",.F.,.F.,{cChapa,lRepChapa})
lRet := IIF(ValType(lRet) == "L",lRet,.F.)
ENDIF |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function AF010CHP()
Local cChapa := Paramixb[1]
Local lRepChapa := Paramixb[2]
Local lRet := .T.
Alert("Entry point AF010CHP executed")
dbSelectArea("SN1")
dbSetOrder(2)
If dbSeek(xFilial("SN1")+cChapa) .Or. Empty(cChapa)
Alert("Registration Number already exists or blank")
lRet := .F.
EndIf
Return lRet |
| Aviso | ||
|---|---|---|
| ||
|