| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA102 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada VCTB102EST é utilizado para validar operações de estorno de lançamentos contábeis no sistema. Ele permite a implementação de uma lógica personalizada para aprovar ou rejeitar o estorno, de acordo com as regras de negócio específicas do usuário. Esse ponto de entrada é útil em situações em que a empresa necessita aplicar critérios adicionais para permitir o estorno, como validações de integridade financeira ou restrições de calendário contábil.
If ! ExecBlock("VCTB102EST",.F.,.F.,{dDataLanc,cLote,cSubLote,cDoc,nTotInf})
Return .F.
EndIF |
User Function VCTB102EST()
Local dDataLanc := PARAMIXB[1]
Local cLote := PARAMIXB[2]
Local cSubLote := PARAMIXB[3]
Local cDoc := PARAMIXB[4]
Local nTotInf := PARAMIXB[5]
Local lRel := .T.
// Verifica se o lote atende aos critérios necessários
If cLote == "LOTE_RESTRITO"
MsgAlert("Estorno não permitido para o lote restrito.")
lRel := .F.
EndIf
// Retorna verdadeiro (.T.) se o estorno for válido, caso contrário, falso (.F.)
Return lRel |
|