Validar el archivo TXT que se importará

Características del requisito

Línea de producto:

Microsiga Protheus.

Segmento:

Servicios.

Módulo:

SIGACTB.

Rutina:

Rutina

Nombre técnico

CTBA500

Contabilidad TXT

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.

Descripción

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á.

Punto de entrada

Descripción:

Valida el archivo TXT que se importará en la contabilidad TXT.

Eventos:

If lCTB500VLD

lContinua := ExecBlock("CTB500VLD",.F.,.F.)
Endif

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