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 )
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas