| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA102 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada CTB102ESTL é utilizado para realizar a validação do estorno de lançamentos contábeis por lote. Ele oferece ao cliente a possibilidade de implementar regras específicas para garantir que o estorno em lote dos lançamentos seja realizado de forma controlada e em conformidade com as políticas contábeis da empresa.
Com o CTB102ESTL, é possível definir critérios personalizados para validar se os lançamentos contábeis estão aptos a serem estornados, assegurando a consistência dos registros e minimizando riscos de inconsistências no processo contábil.
lOk := ExecBlock("CTB102ESTL",.F.,.F.,{nOpc}) |
#INCLUDE "PROTHEUS.CH"
User Function CTB102ESTL()
// nopc = 5 -> exclusao// nopc = 6 -> estorno
Local nOpc := ParamIXB[1]
Local lRet := .T.
If nOpc == 5
If Aviso("Atencao -", "Confirma exclusao de lançamento", {"Sim","Nao"} )!= 1
lRet := .F.
EndIf
ElseIf nOpc == 6
If Aviso("Atencao -", "Confirma estorno de lançamento", {"Sim","Nao"} )!= 1
lRet := .F.
EndIf
EndIf
Return( lRet ) |
|