[arquivo enviado fora da estrutura do arquivo xml de entrada]

Achei o problema. Resolvido.

[arquivo enviado fora da estrutura do arquivo xml de entrada]

Bom dia;

Estou com esse problema ao enviar o XML para o provedor da Publica. Tentei até com as funções da flexdocs mas ocorre o mesmo erro. O arquivo valida 100% no validador que a publica me passou.

 

Fonte:

  ACBrNFSe.Configuracoes.Geral.Emitente.CNPJ := '03710901000165';
  ACBrNFSe.Configuracoes.Geral.Emitente.InscMun := '770';
  ACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := 'PRESTADOR TESTE';
  ACBrNFSe.Configuracoes.Geral.PathIniCidades  := 'C:\casa\NFe\Serviço\';
  ACBrNFSe.Configuracoes.Geral.PathIniProvedor := 'C:\casa\NFe\Serviço\';
  ACBrNFSe.Configuracoes.Geral.CodigoMunicipio := StrToIntDef('4200309', 0);
  ACBrNFSe.Configuracoes.Geral.SSLLib := libCapicom;

  ACBrNFSe.NotasFiscais.Add;
  ACBrNFSe.NotasFiscais.LoadFromFile(vPastaNFSe+'\NFSe_'+FrmFuncoes.PADL(vNotaServico,9,'0')+'.xml',False);
  ACBrNFSe.Enviar(vLoteRPS,False);

 

Arquivo em anexo.

NFSe_000001569.xml

[URL não definida Para: TNFseEnviarLoteRps]

Obrigado BigWings. Mas descobri o problema.

Na verdade eu esqueci  de passar o valor para  "ACBrNFSe.Configuracoes.Geral.CodigoMunicipio";

Problema Resolvido.

[URL não definida Para: TNFseEnviarLoteRps]

Boa tarde,

Tenho todo o XML montado e assinado e preciso fazer apenas o envio do XML para o provedor da empresa Publica. Porem acaba ocorrendo o erro "URL não definida Para: TNFseEnviarLoteRps".

Para informar o provedor estou usando o Arquivo .INI. O arquivo é para o município de agronômica, sendo assim tive que ajustar o arquivo Cidades.ini e Publica.ini.

Fonte:

  ACBrNFSe.Configuracoes.Geral.Emitente.CNPJ := '03710901000165';
  ACBrNFSe.Configuracoes.Geral.Emitente.InscMun := '770';
  ACBrNFSe.Configuracoes.Geral.Emitente.RazSocial := 'PRESTADOR TESTE';
  ACBrNFSe.Configuracoes.Geral.PathIniCidades  := 'C:\casa\NFe\Serviço\';
  ACBrNFSe.Configuracoes.Geral.PathIniProvedor := 'C:\casa\NFe\Serviço\';

  ACBrNFSe.NotasFiscais.Add;
  ACBrNFSe.NotasFiscais.LoadFromFile(vPastaNFSe+'\NFSe_'+FrmFuncoes.PADL(vNotaServico,9,'0')+'.xml',False);
  ACBrNFSe.Enviar(vLoteRPS,False);

O erro ocorre na hora de executar ACBrNFSe.Enviar.

Segue em anexo os arquivos .ini.

Componentes atualizados.

Cidades.ini

Publica.ini

[Envio Bloco X]

Boa tarde,

Quando vou transmitir o arquivo do bloco x recebo o retorno de "Aguardando". Mas quando vou consultar pelo numero do recibo retorna como "Não encontrado".

Alguém com esse problema?

[Erro "Arquivo ZIP inválido" - Bloco X]

Achei essas informações no link http://legislacao.sef.sc.gov.br/html/atos_diat/2017/atodiat_17_017.htm:

 

I – ALTERADO – Ato Diat 025/17, art. 1º – Efeitos a partir de 18.09.17:

I – a partir de 8 de janeiro de 2018, os estabelecimentos enquadrados nos Códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4731800 - Comércio varejista de combustíveis para veículos automotores;

I – Redação original – vigente até 17.09.17:

I – a partir de 1º de outubro de 2017, os estabelecimentos enquadrados nos códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4731800 - Comércio varejista de combustíveis para veículos automotores;

II – a partir de 1º de março de 2018, os estabelecimentos enquadrados nos códigos da Classificação Nacional de Atividades Econômicas (CNAE) 4713001 – Lojas de Departamentos ou Magazines;

III – a partir de 1º de junho de 2018, os estabelecimentos enquadrados nos seguintes códigos da Classificação Nacional de Atividades Econômicas (CNAE):

 

Isso é valido?

[Erro "Arquivo ZIP inválido" - Bloco X]

Então só sera obrigatório em janeiro o envio do bloco X?

[Erro "Arquivo ZIP inválido" - Bloco X]

Bom dia, acredito que o erro que passei acima seja por isso:

 

De forma resumida:

 

Até 16/09/2017 – Possibilidade enviar Redução Z ou Estoque ao ambiente de produção, na forma de teste

17/09/2017 a 30/09/2017 – Não enviem informação ao web service de produção

01/10/2017 – Início da obrigatoriedade. Qualquer informação recebida será considerada verídica para fins de auditoria e cruzamento de dados.

 

http://bell.unochapeco.edu.br/lts/?p=3129

 

Obrigado.

[Erro "Arquivo ZIP inválido" - Bloco X]

Sim.

Ai estou testando de outra forma, mas na hora de enviar retorna o erro:

Erro Interno : 0 Erro HTTP: 500.

Obs: Mesmo erro ocorre no ACBrBlocoXSign.

 

[Erro "Arquivo ZIP inválido" - Bloco X]

Bom dia,

 

Descomentei a linha abaixo no arquivo ACBr.inc:

 

// Descomente essa linha, para usar ZLibExGZ de \ACBr\Fontes\Terceiros\ZLibExGZ
// ZLib de D7 contém bugs e está incompleta. Caso contrário usará compactação nativa, unit "ZLib"
{.$DEFINE USE_ZLibExGZ}

 

de

{.$DEFINE USE_ZLibExGZ}

para

{$DEFINE USE_ZLibExGZ}

O erro que apresenta agora é "O seu compilador não tem suporte nativo a ZipFile."

Faltou eu fazer alguma coisa?

Obs: Atualizei os fontes hoje.

 

[Erro "Arquivo ZIP inválido" - Bloco X]

Olhei o arquivo mas não achei.

ACBr.inc

[Erro "Arquivo ZIP inválido" - Bloco X]

Desculpa, comentei aqui primeiro e por falta de atenção acabei comentando no outro tópico.

Estou usando o componente ACBrBlocoX e até então estava tudo perfeito. Instalei ele essa semana. O único problema é que uso o delphi 7 e não tem suporte para zipfile.

E infelizmente não estou conseguindo utilizar o zipmaster ou o TAbZipper para fazer o papel do zipfile.

[Erro "Arquivo ZIP inválido" - Bloco X]

Mudei para zipmaster e estou usando uma função que achei em outro tópico. Porem o problema continua. Segue fonte.

 

function ZipFile(const DadosXML: AnsiString; const NomeArquivo: String): AnsiString;
var
  Z     : TZipMaster;
  SSIn  : TStringList;
  sFile : string;
  ssOut : TFileStream;

  function EncodeBase64(Arquivo: TFileStream): String;
  Var
  Encoder64 : TIDEncoderMime;
  lstFile: TStringList;
  Begin
    try
      try
        Encoder64 := TIDEncoderMime.Create (Nil);
        lstFile := TStringList.Create;
        lstFile.LoadFromStream(Arquivo);
        Result := Encoder64.Encode(lstFile.Text);
      finally
        Encoder64.Free;
        lstFile.Free;
      end;
    except on E: Exception do
      //Nada
    end;
  end;

begin
   try
      Z := TZipMaster.Create(nil);
      SSIn  := TStringList.Create;
      sFile := ApplicationPath + NomeArquivo;
      SSIn.Text := DadosXML;
      SSIn.SaveToFile(sFile);

      //Ver se Precisa
      Z.ZipFileName := Copy(sFile,1,Pos('.',sFile)-1) + '.zip';
      Z.FSpecArgs.Clear;
      Z.FSpecArgs.Add(sFile);
      Z.Add;

      ssOut := TFileStream.Create(Copy(sFile,1,Pos('.',sFile)-1) + '.zip',fmOpenRead);
      Result := EncodeBase64(ssOut);
   finally
      Z.Free;
      SSIn.Free;
   end;
end;

Onde é usado:

function TEnviarBlocoX.GetXMLZipado: AnsiString;
var
  AZip: AnsiString;
begin
  if FXMLZipado = '' then
  begin
    if FXML <> '' then
    begin
      AZip := ZipFile(FXML, FPBodyElement+'.xml');
      
      if AZip = '' then
        raise Exception.Create('O seu compilador não tem suporte nativo a ZipFile.'+sLineBreak+
                               'Informe o XML já Zipado + Base64 em "XMLZipado"');

      FXMLZipado := AZip;// EncodeBase64(AZip);
    end;
  end;

  Result := FXMLZipado;
end;

Fico no aguardo de uma luz.

[Bloco X Arquivo Zip Inválido]

Boa tarde,

Estou com o mesmo problema, inclusive utilizando a função adaptada para o zipmaster do André. Alguma solução?

[Erro "Arquivo ZIP inválido" - Bloco X]

Entendi, achei que eu deveria passar o caminho do arquivo Zip para essa variável.

[Erro "Arquivo ZIP inválido" - Bloco X]

Bom dia,

Estou usando o TAbZipper no Delphi 7 e estou com o mesmo erro. 

Eu zipo o arquivo e depois passo o caminho para a variável AZip.  Segue fonte para melhor entendimento.

Obs: Sou novo no uso dos componentes. Desculpa qualquer erro besta.

function TEnviarBlocoX.GetXMLZipado: AnsiString;
var
  AZip: AnsiString;
begin
  if FXMLZipado = '' then
  begin
    if FXML <> '' then
    begin
      AZip := 'C:\EnviarEstoque.zip';
      if AZip = '' then
        raise Exception.Create('O seu compilador não tem suporte nativo a ZipFile.'+sLineBreak+
                               'Informe o XML já Zipado + Base64 em "XMLZipado"');

      FXMLZipado := EncodeBase64(AZip);
    end;
  end;

  Result := FXMLZipado;
end;