CN120VEST - Estorno da medição

LOCALIZAÇÃO:  Function CN120MedEst - Função utilizada no estorno da medição.

EM QUE PONTO:  Executada antes do processamento do estorno.

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

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

CNTA120.PRW

CN120VEST - Estorno da medição ( [ lAcesso ] ) --> lRet

lRet(logico)
• Informa se permite a conclusão do estorno.

User Function CN120VESTLocal 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 estornar 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    // estornar medições para este contrato. A rotina de estorno não prosseguirá.   Aviso('PE: CN120VEST', 'O usuário não pode estornar medições para este contrato.', {'OK'})   lRetorno := .F.EndIf	Return lRetorno