import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: CTB102ESTL - Valida estorno de lançamentos contábeis
Descrição:
O ponto de entrada CTB102ESTL valida o estorno de lançamentos contábeis por lote.
Eventos
[e executado na rotina de estorno de lançamentos contábeis
Programa Fonte
CTBA102.PRW
Sintaxe
CTB102ESTL - Valida estorno de lançamentos contábeis ( [ nOpc ] ) --> lOk
Parâmetros:
Retorno
Observações
Caso ele retorne falso o proesso de estorno de lançamentos contábeis é cancelado
Exemplos
#INCLUDE "PROTHEUS.CH" User Function CTB102ESTL() // nopc = 5 -> exclusao// nopc = 6 -> estornoLocal nOpc := ParamIXB[1] Local lRet := .T. If nOpc == 5 If Aviso("Atencao -", "Confirma exclusao de lançamento", {"Sim","Nao"} )!= 1 lRet := .F. EndIfelseif nOpc == 6 If Aviso("Atencao -", "Confirma estorno de lançamento", {"Sim","Nao"} )!= 1 lRet := .F. EndIfEndIf Return( lRet ) |