Histórico da Página

If ExistBlock("PCOAK2LOK")

    //P_E**************************************************************************************
    //P_E - Ponto de entrada utilizado para validação da linha de digitação do orçamento³
    //P_E - Parâmetros : Nenhum ³
    //P_E - Retorno : .F. - Deve bloquear a linha de digitacao ³
    //P_E - .T. - Liberar a linha digitada ³
    //P_E**************************************************************************************

    lRet := ExecBlock("PCOAK2LOK",.F.,.F.)

EndIf

User Function PCOAK2LOK
Local lRet := .T.
    If GDFieldGet('AK2_CLASSE') == '000001'
        Help(NIL, NIL, "Ponto de Entrada - PCOAK2LOK", NIL, "Esta Classe não pode ser informada.", 1, 0, NIL, NIL, NIL, NIL, NIL, {"Informar outra Classe Orçamentária"})
        lRet := .F.
   EndIf
Return lRet // (lógico) retorna .T. (true) se a linha é valida com a regra do ponto de entrada ou .F. (false) se a linha não estiver válida.