Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | ATFA012 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada AF12VLR0 é utilizado na validação de linha para determinar se o valor de um bem pode ser zerado. Esse ponto de entrada permite que regras adicionais sejam aplicadas no momento da verificação, garantindo que a operação de zerar o valor de um bem seja realizada somente quando atender a critérios específicos.
If ExistBlock("AF12VLR0") If !ExecBlock("AF12VLR0",.F.,.F.,{nValOri,nVorigAtf}) // Controlar Bens Valor Zerado - Inventario If ExistBlock("A30EMBRA") //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ A30EMBRA- Espec¡fico para EMBRAER ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If Abs((nValOri + nValCorAcu) / ExecBlock("A30EMBRA",.F.,.F.) - nVorigAtf ) > 1 Help(" ",1,"AF010VORIG") lRet := .F. Endif EndIf EndIf EndIf |
#include 'protheus.ch' #include 'parmtype.ch' User Function AF12VLR0() Local nValOri := ParamIxb[1] Local nVorigAtf := ParamIxb[2] Local lRet := .F. MsgInfo("PE AF12VLR0") Return lRet |
|