Validar se o arquivo TXT a ser importado

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

SIGACTB.

Rotina:

Rotina	Nome Técnico
CTBA500	Contabilização TXT

Ponto de Entrada:

CTB500VLD.

Chamados Relacionados

TUVUYZ.

País(es):

Todos.

Banco(s) de Dados:

Todos homologados para o Protheus.

Sistema(s) Operacional(is):

Todos homologados para o Protheus.

Descrição

O ponto de entrada CTBA500VLD ira validar o arquivo .TXT a ser importado na contabilizacao TXT. Se o retorno do PE for .T. o sistema prossegue com a contailizacao, se .F. a contabilizcao sera interrompida.

Ponto de Entrada

Descrição:	Valida o arquivo TXT a ser importado na contabilizacao TXT.
Eventos:	If lCTB500VLD lContinua := ExecBlock("CTB500VLD",.F.,.F.) Endif
Programa Fonte:	CTBA500
Retorno:	Logico

Exemplo:

#Include 'Protheus.ch'

User Function CTB500VLD()

Local lRet := .T.

/* Se lRet for .T. , continua a contabilizacao

se lRet fot .F. , contabiliza;'ao interrompida */

Return lRet