Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CTB102ESTL - Valida estorno de lançamentos contábeis
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
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:
Nome Tipo Descrição Default Obrigatório Referência
nOpc numerico 5 = exclusao6=estorno
Retorno
    lOk(logico)
  • Indicador de validade do estorno de lançamentos contábeis
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 )