AF125OKB - Valida a inclusão e a exclusão de uma solitação de baixa

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Ativo Fixo

Rotina:

Rotina	Nome Técnico
ATFA125	Rotina de Solicitações de Baixa e Transferência

Rotina(s) envolvida(s)	Nome Técnico
ATFA125	Rotina de Solicitações de Baixa e Transferência

Cadastros Iniciais:

Ter cadastrado ativos imobilizados para em seguida realizar a solicitação de baixa.

Ponto de Entrada:

AF125OKB - Valida a inclusão e a exclusão de uma solicitação de baixa

Chamados relacionados

TSMQOG

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SN1 - Ativo Imobilizado

SN3 - Saldos e Valores

Sistema(s) operacional(is):

Todos

Versões/Release:

Todas as versões

Descrição

Valida a inclusão e a exclusão de uma solicitação de baixa de um ativo imobilizado.

Ponto de Entrada

Descrição:

O ponto de entrada AF125OKB valida a inclusão e a exclusão de uma solicitação de baixa de um ativo imobilizado.

Localização:

É uma rotina customizada, portanto não faz parte do menu padrão..

Eventos:

AF125OKB

Programa Fonte:

ATFA125 Rotina de Solicitações de Baixa e Transferência.

Função:

AF125TOkBx - Validar o botão Ok na inclusão da solicitação de baixa

Retorno:

Nome	Tipo	Descrição	Obrigatório
nOpc	Numérico	Define se o processo é Inclusão(3) ou Exclusão(5).	Não
cCbase	Caractere	Código base do ativo imobilizado	Não
cItem	Caractere	Item do ativo imobilizado	Não
nQtdBx	Numérico	Quantidade de ativos imobilizados baixados	Não
cMotbx	Caractere	Motivo da baixa do ativo imobilizado	Não
cCondPg	Caractere	Condição de pagamento	Não
nVlVenda	Numérico	Valor de venda do ativo	Não
cGeraNF	Caractere	Se gera NF ou não (1-Sim / 2-Não)	Não
cCliente	Caractere	Código do cliente	Não
cLoja	Caractere	Loja do cliente	Não
cSerie	Caractere	Serie da nota fiscal a ser gerada	Não
cTesNfs	Caractere	TES utilizada na nota fiscal (Entrada/Saída)	Não

Exemplo:

User Function AF125OKB()

//Exemplo de uma validação utilizando algumas das variáveis disponiveis para uso no Ponto de Entrada
Local nOpc := paramixb[1]
Local cCbase := paramixb[2]
Local nQtdBx := paramixb[4]
Local nVlVenda := paramixb[7]
Local lRet := .T.

If nOpc == 3 //Se for inclusão de uma solicitação de baixa 3 - Inclusão / 5 - Exclusão

If nQtdBx > 5 //Se a quantidade baixada for maior que cinco...
lRet := .F.//...o sistema não deve prosseguir com a inclusão da solicitação
EndIf

If lRet .And. (nVlVenda>1000)//Se o valor de venda for maior do que R$1000

If Aviso("Atenção!","Deseja confirmar a solicitação de venda do ativo " + Alltrim(cCbase)+ "?", {"SIM", "NÃO"})== 2
Alert("Solicitação de venda não efetivada!")
lRet := .F.
Else
Alert("Solicitação de venda do bem " + Alltrim(cCbase) + " efetivado com êxito!")
EndIf

EndIf

Return lRet

Árvore de páginas

TSMQOG_DT_AF125OKB - Valida a inclusão e a exclusão de uma solicitação de baixa.

AF125OKB - Valida a inclusão e a exclusão de uma solitação de baixa

Características do Requisito

Descrição

Ponto de Entrada