TSS

Páginas filhas
  • TRFNFECANC - Validação de Transmissão das Notas Fiscais Canceladas e Inutilizadas

Ponto-de-Entrada: TRFNFECANC - Validação de Transmissão das Notas Fiscais Canceladas e Inutilizadas


Abrangências:Microsiga Protheus 12
Versões: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 das Notas Fiscais que serão transmitidas como canceladas / inutilizadas pela rotina SPEDNFE e AUTONFEBUSINESS.
Programa Fonte:
SPEDNFE.PRX
AUTONFEBUSINESS.PRW
Sintaxe:

TRFNFECANC  - Validação de Transmissão das Notas Fiscais Canceladas e Inutilizadas ( [ PARAMIXB ] ) --> aNotas

Parâmetros:


Nome



Tipo



Descrição



Default



Obrigatório



Referência



PARAMIXB



Array of Record



anotas[1]:array

anotas[1][1](C):"1" //0=Entrada 1=Saida

anotas[1][2](D):27/02/2018 //data de emissão

anotas[1][3](C):"851" //serie

anotas[1][4](C):"000000176" //nota

anotas[1][5](C):"000001" código cli/for

anotas[1][6](C):"01" loja cli/for

anotas[1][7](C):"55" espécie

anotas[1][8](C):"100" //código retorno sefaz












Retorno:

aNotas (vetor)

  • Retorna no vetor as notas que serão transmitidas como canceladas / inutilizadas.

Exemplo:

#INCLUDE "PROTHEUS.CH"  

 User Function TRFNFECANC()

 Local aNotas      := paramixb[1]

Local nY            := 0

Local aRetNota  := {}

 autoNfeMsg("TESTE DO PE TRFNFECANC",.F.) //msg para o console log

 adel(aNotas,1) //deleta o primeiro elemento do array

 For nY := 1 to len(aNotas)

    If aNotas[nY] <> nil   //elimina do array os elementos deletados

        aadd(aRetNota, aNotas[nY])

    EndIf

Next nY

 MsgInfo(AsString(aRetNota))   //Mostra as notas que vão ser transmitidas

Return(aRetNota)