Valida el Borrado de la Cuenta Contable

Características del requisito

Línea de producto:

Microsiga Protheus

Segmento:

Servicios

Módulo:

SIGACTB

Rutina:

Rutina

Nombre técnico

CTBA020


Registro de plan de cuentas

Parámetros

nOpc

Punto de entrada:

CT020EXC

País(es):

Brasil

Base(s) de datos:

Todas

Sistema(s) operativo(s):

Todos

Descripción

El objetivo de este punto de entrada es validar el borrado de la cuenta contable. Si su devolución fuera .T.(verdadero), la cuenta contable se borrará; si la devolución fuera .F.(falso), la cuenta contable no se borrará.

Punto de entrada

Descripción:

El punto de entrada CT020EXC se utiliza para validar el borrado de la cuenta contable.

Eventos:

If lRet .And. lCT020Exc
lRet:= ExecBlock("CT020EXC",.F.,.F.,nOpc)
Endif

Programa fuente:

CTBA020

Devolución:

Lógico


Ejemplo: 

User Function CT020EXC()

Local lRet := .F.

If MsgYesNo ("¿Confirma el borrado?")
lRet:= .T.
MsgAlert("Borrado confirmado")
Else
MsgAlert("Borrado anulado")
Endif

Return lRet