Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Línea de producto:

Microsiga Protheus

Segmento:

Servicios

Módulo:

Contabilidad de gestión

Rutina:

Rutina

Nombre técnico

CTBA105.PRW

Asientos contables de integración

Punto de entrada:CT105REV

Bases de datos:

Todas

Sistemas operativos:

Todos



Descripción:

El punto de entrada CT105REV permite validar la reversión de un asiento contable. Este devuelve un valor lógico para que se personlice la validación de la reversión de un asiento contable.

Programa fuente:

CTBA105.PRW

Parâmetros:

Nombre

Tipo

Descripción

Obligatorio

 


dDataLanc = Fecha de los asientos 
cLote = Lote de los asientos 
cSubLote = Sublote de los asientos 
cDoc = Número de documento de los asientos


Eventos de llamada del Punto de entrada

If lCt105Rev 
lRet := ExecBlock("CT105REV",.f.,.f.,{dDataLanc,cLote,cSubLote,cDoc }) 
EndIf


Variables

Local lCt105Rev := ExistBlock("CT105REV")


Devolución:

lRet == .T. - Permite continuar con la reversión 
lRet == .F. - No permite continuar con la reversión

 

Ejemplo:

User Function CT105REV() 

Local lRet:= .F. 

If MsgYesNo ("¿Desea continuar con la reversión?","Reversión") 
lRet:= .T. 
Else 
lRet:= .F. 
Alert ("¡Reversión no permitida!") 
EndIf 

Return lRet