M380LEMP - Validação das Localizações dos Empenhos

Este ponto de entrada tem como objetivo permitir ao usuário validar a digitação das localizações (endereços) dos empenhos.

Chamado na função A380GetTOk  (Valida a digitação das localizações dos empenhos), após a confirmação da digitação dos endereços dos empenhos e na função A380Canc  -  Rotina de validação executada após o cancelamento da tela da digitação dos endereços dos empenhos.

Obs.: As duas funções citadas são chamadas pela função A380DigLoc (rotina para para digitação das localizações dos empenhos).

MATA380.PRX

M380LEMP - Validação das Localizações dos Empenhos ( [ ParamIxb[1] ] ) --> ExpL

ExpL(logico)
• Deverá ser retornado um valor lógico verdadeiro (.T.) para considerar como válida a digitação dos endereços dos empenhos ou falso (.F.) para não considerar válida esta digitação.

O ponto de entrada será executado após o usuário clicar no botão OK e também no botão CANCELAR, da tela de digitação de endereços dos empenhos. O ponto de entrada recebe o parâmetro 1 quando pressionado o botão OK e 2 quando pressionado o botão CANCELAR.

User Function M380LEMP()Local nOpc := ParamIxb[1] // 1=confirmou a digitação; 2=cancelou a digitaçãoLocal lRet := .T.//--- Validações do usuárioReturn lRet