Línea de producto: | Microsiga Protheus. | ||||
Segmento: | Servicios. | ||||
Módulo: | SIGACTB. | ||||
Rutina: |
| ||||
Punto de entrada: | CTB500VLD. | ||||
Llamados relacionados | TUVUYZ. | ||||
País(es): | Todos. | ||||
Base(s) de datos: | Todas las homologadas para el Protheus. | ||||
Sistema(s) operativo(s): | Todos los homologados para el Protheus. |
El punto de entrada CTB500VLD validará el archivo texto que se importará en la rutina de contabilidad TXT. Si la devolución del PE fuera .T. el sistema prosigue con la contabilización, si fuera .F. la contabilidad se interrumpirá.
Descripción: | Valida el archivo TXT que se importará en la contabilidad TXT. |
Eventos: | If lCTB500VLD lContinua := ExecBlock("CTB500VLD",.F.,.F.) |
Programa fuente: | CTBA500 |
Devolución: | Lógico |
Ejemplo:
#Include 'Protheus.ch'
User Function CTB500VLD()
Local lRet := .T.
/* Se lRet for .T. , continua la contabilidad
se lRet fot .F. , la contabilidad se interrumpirá */
Return lRet