Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CTB102ESTL - Valida estorno de lançamentos contábeis
CTB102ESTL - Valida estorno de lançamentos contábeis

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcnumerico5 = 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 )