CN120VENC - Encerramento da medição

LOCALIZAÇÃO:  Function CN120MedEnc -> Executado antes do encerramento da medição.

EM QUE PONTO:  Antes de encerrar a medição, o ponto de entrada é executado para validar informações específicas.

Será enviado um parâmetro para o ponto de entrada, determinando se o usuário possui ou não direito de encerrar a medição para o contrato atual. 

O retorno do ponto de entrada será do tipo lógico.

CNTA120.PRW

CN120VENC - Encerramento da medição ( [ lAcesso ] ) --> lRet

lRet(logico)
• Informa se confirma ou não o encerramento.

User Function CN120VENCLocal lAcesso  := PARAMIXB[1] // indica se usuário tem ou não direitos sobre o contrato.Local lRetorno := .F.If lAcesso   // O usuário possui direitos de encerrar medições para o contrato.    // As validações poderão ser realizadas normalmente e a variável lRetorno   // será definida, de acordo com as regras do usuário.Else   // Não realizará nenhuma validação, pois o usuário não possui direitos de    // encerrar medições para este contrato. A rotina de encerramento não prosseguirá.   Aviso('PE: CN120VENC', 'O usuário não pode encerrar medições para este contrato.', {'OK'})   lRetorno := .F.EndIfReturn lRetorno