Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (erich.buttner) em 30 set, 2021

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal


02. DESCRIÇÃO

Ponto de Entrada utilizado antes de confirmar a Baixa do Ativo, que recebe como parâmetros os campos “Nfs, Série, Dt. Saída, Cliente, Loja, Item, Tipo do Evento e Filial” informados ao efetuar a baixa, 
e deve retornar .T. ou .F. para continuar a realizar a Baixa do Ativo.

03. Especificação

Parâmetros do ponto de entrada:

NomeTipoDescrição
ParamIXB[1]CaracterNumero do documento de Saída
ParamIXB[2]CaracterSerie do documento de Saída
ParamIXB[3]DataData de emissão do documento de Saída
ParamIXB[4]CaracterCódigo do Cliente
ParamIXB[5]CaracterCódigo da Loja
ParamIXB[6]CaracterItem do documento de Saída
ParamIXB[7]CaracterTipo de evento
ParamIXB[8]CaracterFilial 

Retorno

NomeTipoDescrição
lValidLógico

.T. ou .F. - Enquanto o Ponto de Entrada não retornar .T. a tela de baixa do ativo não será encerrada.

04. EXEMPLO DE UTILIZAÇÃO


MT906VLD
#Include "Protheus.ch"
#Include "TopConn.ch"

USER FUNCTION MT906VLD() 

Local cDocNfs := ParamIXB[1] 
Local cSerNfs := ParamIXB[2] 
Local dDatNfs := ParamIXB[3] 
Local cCliNfs := ParamIXB[4] 
Local cLojNfs := ParamIXB[5] 
Local cItemNfe := ParamIXB[6] 
Local cMotivo := ParamIXB[7] 
Local cFilTransp := ParamIXB[8] 
Local lValid := .F. 

IF !Empty(cDocNfs) .And. !Empty(cSerNfs) .And. !Empty(dDatNfs) .And. !Empty(cCliNfs) .And. !Empty(cLojNfs) .And. !Empty(cItemNfe);
    .And. !Empty(cMotivo) .And. !Empty(cFilTransp) 
    
    lValid:= .T. 
    Alert("PASSOU PELO PONTO DE ENTRADA") 
ELSE 
    Alert("PREENCHA TODOS OS CAMPOS") 
EndIf 

Return(lValid)



05. DEMAIS INFORMAÇÕES

Não há