Histórico da Página
TTOYD2_AF030VLBX_PE_valida_item_a_baixar
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||
Segmento: | Serviços. | ||||
Módulo: | Ativo fixo _ Fixo (SIGAATF.) | ||||
Rotina: |
| ||||
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): | Versão Expedida: | 11.80Todos Homologados para Protheus. | |||
Versões/Release: | 11.80. | ||||
Versão Corrigida: | 11.80. | ||||
. | .
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 os 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
------------------------------------------------------------------------ */