Bloquea el Borrado de las Líneas de Asiento Contable On-line

Características del requisito

Línea de producto:

Microsiga Protheus

Segmento:

Servicios

Módulo:

SIGACTB

Rutina:

Rutina

Nombre técnico

CTBA105

 

Asientos de integración

Parámetros

TMP->CT2_FLAG = Indica si la línea está borrada o no.

Punto de entrada:

C105VLIN()

País(es):

Brasil

Base(s) de datos:

Todas

Sistema(s) operativo(s):

Todos

Descripción

El Punto de entrada C105VLIN() bloquea el borrado de las líneas de asientos contables on-line.

Punto de entrada

Descripción:

Este punto de entrada se utiliza para bloquear el borrado de las líneas de asientos contables on-line.

Eventos:

If lC105Vlin
Return ExecBlock("C105VLIN", .F., .F.,{TMP->CT2_FLAG})
Else
Return .T.
EndIf

Variables:

Local lC105Vlin := ExistBlock( "C105VLIN" )

Programa fuente:

CTBA105

Devolución:

Lógico

 

Ejemplo:

User Function C105VLIN()
 
Local lTeste
 
If MsgYesNo("La línea no puede borrarse, ¿desea que esta sea restaurada ?","Prueba")
TMP->CT2_FLAG := .F.
lTeste:=.T.
Else
lTeste:=.F.
Endif
Return lTeste