Ponto-de-Entrada: CN120VEST - Estorno da medição
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descriçã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.
Eventos
Programa Fonte
CNTA120.PRW
Sintaxe
CN120VEST - Estorno da medição ( [ lAcesso ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| lAcesso | Lógico | Indica se o usuário possui permissão para estornar a medição do contrato atual. |
Retorno
-
lRet(logico)
- Informa se permite a conclusão do estorno.
Observações
Exemplos
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