Línea de producto: | Microsiga Protheus | ||||
Segmento: | Servicios | ||||
Módulo: | SIGACTB | ||||
Rutina: |
| ||||
Parámetros | nOpc | ||||
Punto de entrada: | CT020EXC | ||||
País(es): | Brasil | ||||
Base(s) de datos: | Todas | ||||
Sistema(s) operativo(s): | Todos |
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á.
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