TSS

Páginas filhas
  • FISVLNFSE - Validação de Transmissão das Notas Fiscais de Serviço
Ponto-de-Entrada: FISVLNFSE - Validação de Transmissão das Notas Fiscais de Serviço

 

Abrangências:Microsiga Protheus 11 , Microsiga Protheus 12
Versões:Microsiga Protheus 11 , Microsiga Protheus 12
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

Descrição:
Este ponto de entrada foi disponibilizado a fim de permitir a validação da transmissão  das Notas Fiscais pela rotina FISA022.
Eventos
Programa Fonte
FISA022.PRW
Sintaxe

FISVLNFSE - Validação de Transmissão das Notas Fiscais de Serviço ( [ PARAMIXB ] ) --> lTran

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 PARAMIXB  Array of Record  [1] - cTipo-tipo da Nota(E-Entrada/S- Saida)[2] - Filial[3] - Emissão[4] - Numero da NF[5] - Serie[6] - Cliente/Fornecedor[7] - Loja[8] - Especie[9] - Formulario          

 

Retorno
lTran
    (logico)
  • Retorna se a nota será ou não transmitida
Observações
Exemplos
User Function FISVLNFSE()	Local lTran		:=.T.	Local cTipo		:=PARAMIXB[1]	Local cFil		:=PARAMIXB[2]	Local cEmissao	:=PARAMIXB[3]	Local cNota		:=PARAMIXB[4]	Local cSerie	:=PARAMIXB[5]	Local cClieFor	:=PARAMIXB[6]	Local cLoja		:=PARAMIXB[7]	Local cEspec	:=PARAMIXB[8]	Local cFormul	:=PARAMIXB[9]		dbSelectArea("SD2")	dbSetOrder(3)			dbseek(cFil+cNota+cSerie+cClieFor+cLoja)		While !EOF() .AND. SD2->D2_FILIAL+SD2->D2_DOC+SD2->D2_SERIE+SD2->D2_CLIENTE+SD2->D2_LOJA == cFil+cNota+cSerie+cClieFor+cLoja				If VAL(SD2->D2_TES) <> 502 			lRetorna:=.F.			Exit		EndIf		dbSkip()	End Return  lTran
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não