Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (thiago.meneses), última alteração em 30 jul, 2019


ÍNDICE

  1. Visão Geral;
  2. Eventos;
  3. Parâmetros;
  4. Retorno;
  5. Exemplo de utilização;
  6. Documentos relacionados.


01. VISÃO GERAL

O ponto de entrada PCOAK2LOK  permite realizar validações adicionais na edição da linha do cadastro no folder ITENS da Planilha Orçamentária (PCOA100). 

02. EVENTOS


PcoXInc
If ExistBlock("PCOAK2LOK")

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

EndIf

03. PARÂMETROS

Não há 

04. RETORNO

Tipo

Descrição

Obrigatório

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 com a regra do ponto de entrada.

Sim


05. EXEMPLO DE UTILIZAÇÃO


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 digitação e .T. - Liberar a linha digitada.
//P_E****************************************************************************************

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

06. DOCUMENTOS RELACIONADOS

Planejamento e Controle Orçamentário



IMPORTANTE!

<p>Utilização com parâmetros (F12): 1- Completa; 2- Filtro/C.O. ; 3- Filtro/Usuário. </p>