Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle | ||
---|---|---|
|
...
|
...
|
...
|
...
|
...
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
Caso ele retorne falso o proesso de estorno de lançamentos contábeis é cancelado
...
#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 )