Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | ATFA010A |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada AF010CHP é utilizado para validação do número da chapa de um ativo durante o seu preenchimento. Ele possibilita a aplicação de regras customizadas para validar o conteúdo do campo de chapa antes da gravação.
IF ExistBlock("AF010CHP") lRet := ExecBlock("AF010CHP",.F.,.F.,{cChapa,lRepChapa}) lRet := IIF(ValType(lRet) == "L",lRet,.F.) ENDIF |
User Function AF010CHP() Local cChapa := Paramixb[1] Local lRepChapa := Paramixb[2] Local lRet := .T. Alert("Ponto de entrada AF010CHP executado") dbSelectArea("SN1") dbSetOrder(2) If dbSeek(xFilial("SN1")+cChapa) .Or. Empty(cChapa) Alert("Chapa em branco ou ja existente") lRet := .F. EndIf Return lRet |
|