Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
CTB102ESTL - Valida

...

reversión de

...

asientos contables
CTB102ESTL - Valida

...

reversión de

...

asientos contables

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

Observações

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 )