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