Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


Punto de entrada: CTB102ESTL - Valida reversión de asientos contables

Alcances:

Microsiga Protheus 10, Microsiga Protheus 11

Versiones:

Microsiga Protheus 10, Microsiga Protheus 11

Compatible países:

Todos

Sistemas operativos:

Todos

Compatible con las bases de datos:

Todas

Idiomas:

Portugués (Brasil) , Portugués (Portugal) , Español , Inglés

Descripción:

El punto de entrada CTB102ESTL valida la reversión de asientos contables por lote.

Eventos

[se ejecuta en la rutina de reversión de asientos contables

Programa fuente

CTBA102.PRW

Sintaxis

CTB102ESTL - Valida reversión de asientos contables ( [ nOpc ] ) --> lOk

Parámetros:


Nombre



Tipo



Descripción



Estándar



Obligatorio



Referencia



nOpc



numérico



5 = exclusao6=estorno











Devolución

            lOk(logico)

            Indicador de validez de la reversión de asientos contables

Observaciones

Si este devolviera falso el proceso de reversión de asientos contables se anula

Ejemplos

#INCLUDE "PROTHEUS.CH" User Function CTB102ESTL() // nopc = 5 -> borrado// nopc = 6 -> estornoLocal nOpc := ParamIXB[1] Local lRet   := .T. If nOpc == 5       If Aviso("Atención -", "Confirma borrado de asiento", {"Si","No"} )!= 1              lRet := .F.       EndIfelseif nOpc == 6           If Aviso("Atención -", "Confirma reversión de asiento", {"Si","No"} )!= 1		lRet := .F.	EndIfEndIf Return( lRet )