Estou fazendo esse ponto de entrada, para quando for uma tipo de tes ele nao pedir o pedido, gostaria de apoio, pois nao esta validando de forma correta.
User Function M145HTES() // Definindo o ponto de entrada Local cMensagem := "" // Inicializa uma variável para mensagens
// Verifica se o campo D1_TES foi preenchido If !Empty(D1_TES) // Se D1_TES não estiver vazio // Verifica as regras F4_DEVZERO e F4_DUPLIC If F4_DEVZERO == 1 .And. F4_DUPLIC == "S" // Se a regra for atendida, limpa o campo D1_PEDIDO D1_PEDIDO := "" // Limpa o campo se as condições forem atendidas Else // Se a regra não for atendida, obriga o preenchimento do campo D1_PEDIDO If Empty(D1_PEDIDO) cMensagem := "O campo D1_PEDIDO é obrigatório quando a regra não é atendida!" // Mensagem de erro MsgStop(cMensagem, "Erro de Validação") // Exibe a mensagem de erro RETURN "" // Retorna uma string vazia em caso de erro EndIf EndIf EndIf
// Se tudo estiver correto, retorne o valor do campo D1_PEDIDO RETURN D1_PEDIDO // Retorna o valor do campo D1_PEDIDO se tudo estiver correto ENDFUNCTION
