Linha Microsiga Protheus

Árvore de páginas

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Ativo Fixo (SIGAATF)

Rotina:

Rotina

Nome Técnico

Baixa de Ativos

ATFA030.PRX

Ponto de Entrada:

AF030VLBX.

Chamados Relacionados

TTOYD2.

País(es):

Todos.

Banco(s) de Dados:

Todos Homologados para Protheus.

Tabelas Utilizadas:

SN1,SN3.

Sistema(s) Operacional(is):

Todos Homologados para Protheus.

Descrição

O ponto de entrada  AF030VLBX valida o item que será baixado na baixa manual ou na baixa automática. O usuário poderá colocar as validações desejadas que não estão no produto padrão. 

As alterações e impactos dessas alterações no sistema são de total responsabilidade do cliente que utiliza este ponto de entrada.

 

 

Ponto de Entrada

Descrição:

Este ponto de entrada foi criado para que o usuário faça validações que não existem no produto padrão na rotina de baixa manual e/ou na baixa automática.

Localização:

Rotina customizada, portanto, não faz parte no menu padrão.

Eventos:

AF030VLBX.

Programa Fonte:

ATFA030.

Função:

AF030Baixa - Baixa manual e AF030VLAUTO - Baixa automática.

Retorno:

Retornar logico.

 

Exemplo:

#Include 'Protheus.ch'

User function AF030VLBX()
Local lRet := .T.
Local cRotina := paramixb[1]
Local cManuAuto := paramixb[2]

If cManuAuto == "MAN"

    msgAlert("Baixa Manual")
    lRet := .t.
Elseif cManuAuto == "AUTO"
    msgAlert("Baixa Automatica")
   lRet := .t.
Endif

Return(lRet)


Trecho em que o PE é chamado no fonte padrão.

/* -----------------------------------------------------------------------
    Valida se o item selecionado pode se baixado
   ------------------------------------------------------------------------
   Chamada na baixa manual
   -----------------------

IF lAF030VLBX
   lRet := ExecBlock("AF030VLBX",.F.,.F.,{"ATFA030","MAN"})
  IF ValType(lRet) == "L" .AND. !lRet
      EXIT
  ENDIF
ENDIF

------------------------------------------------------------------------
Chamada na baixa automática (atraves de função estática)
--------------------------------------------------------
STATIC FUNCTION AF030VLAUTO()
LOCAL lRet := .T.
Local lAF030VLBX := ExistBlock("AF030VLBX")

IF lAF030VLBX
    lRet := ExecBlock("AF030VLBX",.F.,.F.,{"ATFA030","AUTO"})
    IF ValType(lRet) != "L"
        lRet := .T.
    ENDIF
ENDIF
RETURN lRet 
------------------------------------------------------------------------ */