Línea de producto: | Microsiga Protheus | ||||
Segmento: | Servicios | ||||
Módulo: | SIGACTB | ||||
Rutina: |
| ||||
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 |
El Punto de entrada C105VLIN() bloquea el borrado de las líneas de asientos contables on-line.
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