Envio Bloco X

[Edison Basso]

Bom dia.

Estou com problemas no envio do arquivo do estoque do bloco X.

Estou recebendo a seguinte mensagem: Data de referência informada nos parâmetros está com ano inferior a 2016.

Já conferimos os arquivos e parâmetros da requisição e não conseguimos identificar o problema.

Em anexo estão os arquivos que estamos gerando, o arquivo que estamos enviando e o arquivo de retorno.

Agradeço caso alguém consiga me auxiliar.

BlocoXEstoque20172507_090402_Retorno.xml

BlocoXEstoque20172507_090351_Envelope.xml

BlocoXEstoque20172507_090351_Arquivo.xml

[Anderson Eccker]

Da uma olhada na versão nova do layout do bloco X, 

Agora a tag é 

DataReferencia

E

15

D

1

10

Data de referência do Estoque. Será sempre o último dia de cada mês. Formato: aaaa-MM-dd

mudou mais algumas coisas, da uma revisada.

Obrigado,

[Anderson Eccker]

Atualizei meu arquivo XML seguindo o ultimo layout disponível no Bloco X. No site do validador está validando normalmente. O problema esta no momento da transmissão.

Eu utilizo o ACBrMonitorPLUS para assinar, validar e enviar os arquivos.
Acho que precisa ser atualizada a função de envio do arquivo do estoque, pois antes precisava passar as duas datas inicial e final como parâmetros para função do webservice. E agora a função exige apenas uma data de referencia. Vi isso comparando o arquivo WSDL do webservice.

Antes: 
EnviarEstoque(const pCnpjEstabelecimento: WideString; const pDataReferenciaInicial: TXSDateTime; const pDataReferenciaFinal: TXSDateTime; const pXmlZipado: TByteDynArray): WideString;

Agora:
EnviarEstoque(const pCnpjEstabelecimento: WideString; const pDataReferencia: TXSDateTime; const pXmlZipado: TByteDynArray): WideString;

Alguém sabe realizar essa correção para podermos testar?

[naiaragomesp]

Boa tarde gente, 

ao enviar o arquivo de estoque na versão 02.05 estou sempre recebendo a seguinte mensagem: Data de referência informada nos parâmetros está com ano inferior a 2016, porém já conferi o xml e ele está sendo gerado corretamente, pois na validação no site ele passa sem erros... Alguém sabe por que ocorre isso e como ajustar? 

[Anderson Eccker]

3 horas atrás, naiaragomesp disse:

Boa tarde gente, 

ao enviar o arquivo de estoque na versão 02.05 estou sempre recebendo a seguinte mensagem: Data de referência informada nos parâmetros está com ano inferior a 2016, porém já conferi o xml e ele está sendo gerado corretamente, pois na validação no site ele passa sem erros... Alguém sabe por que ocorre isso e como ajustar? 

Pelo que sei ainda não sairão atualizações dos componentes e do acbrmonitorplus para corrigir o problema.
 

[Edison Basso]

Boa tarde. Alguém esta conseguido enviar os arquivos para a SEFAZ de SC? Estou enviando e recebendo um protocolo, porem ao consultar este protocolo recebo mensagem de que não é valido, e as vezes uma mensagem de que situação esta como "Erro"

[wilton_rad]

aqui no tocantins, cancelaram qualquer homologação do paf, tiveram a brilhante ideia de desvincular o estado do ato cotepe nacional, e vao fazer o proprio ato cotepe, segundo eles será mais simples, vão remover o bloco X

e vao criar outro BLOCO CTRL+MEIA LUA+ F13,  onde vai ter que gerar um arquivo e enviar não sei para onde, e veja aque aqui ja foi aprovado o uso da nfce, onde com a adoção da NFCe eles mesmo publicaram no site que não será mais exigido homologação do sistema.

teve uma reunião em palmas (capital) e umum cara de uma soft house que participou quase chorou nao por isso, mas pq tinha acabado de homologar o sistema gastado uns 35 mil reais, e o laudo será jogado no lixo, simples assim.

 a justificativa e que o estado nao tem dinheiro para investir em infra estrutura, e que o ecf ai tem vida util de uns 5 anos. vai entender o que esse povo quer.

 

 

 

 

 

[Anderson Eccker]

Aqui em SC é o contrario, em outubro já começão as transmissões do BlocoX,
Aqui nem querem ouvir falar de NFC-e,

[naiaragomesp]

Em 28/07/2017 at 14:30, naiaragomesp disse:

Boa tarde gente, 

ao enviar o arquivo de estoque na versão 02.05 estou sempre recebendo a seguinte mensagem: Data de referência informada nos parâmetros está com ano inferior a 2016, porém já conferi o xml e ele está sendo gerado corretamente, pois na validação no site ele passa sem erros... Alguém sabe por que ocorre isso e como ajustar? 

Oii, alguém conseguiu resolver esse problema sitado? Se sim, poderiam me ajudar? 

[Weverton Maciel]

Não estou conseguindo o arquivo WSDL, alguém pode me dizer onde encontrar?

[naiaragomesp]

Em 10/08/2017 at 01:55, Weverton Maciel disse:

Não estou conseguindo o arquivo WSDL, alguém pode me dizer onde encontrar?

http://aplicacoes.unisul.br/PAF/?q=links

[Israel Batista]

A especificação do ws foi alterada,  estou conseguindo enviar mais tive que fazer uma alteração nos dados da msg,

não existe mais os tags pDataReferenciaInicial e pDataReferenciaFinal, foram alteradas para  pDataReferencia;

segue alteração

 

unit ACBrBlocoX_WebServices.pas

De:

procedure TEnviarEstoque.DefinirDadosMsg;
var
  wCNPJ, wDataRefInicial, wDataRefFinal: String;
begin
  wCNPJ     := LerTagXML(XML, 'Cnpj');
  wDataRefInicial := LerTagXML(XML, 'DataReferenciaInicial');
  wDataRefFinal   := LerTagXML(XML, 'DataReferenciaFinal');

  FPDadosMsg := '<pCnpjEstabelecimento>'+wCNPJ+'</pCnpjEstabelecimento>';
  FPDadosMsg := FPDadosMsg + '<pDataReferenciaInicial>'+wDataRefInicial+'</pDataReferenciaInicial>';
  FPDadosMsg := FPDadosMsg + '<pDataReferenciaFinal>'+wDataRefFinal+'</pDataReferenciaFinal>';
  FPDadosMsg := FPDadosMsg + '<pXmlZipado>'+XMLZipado+'</pXmlZipado>';
end;

Para:

procedure TEnviarEstoque.DefinirDadosMsg;
var
  wCNPJ, wDataRefInicial, wDataRefFinal: String;
begin
  wCNPJ     := LerTagXML(XML, 'Cnpj');
  FPDadosMsg := '<pCnpjEstabelecimento>'+wCNPJ+'</pCnpjEstabelecimento>';
  FPDadosMsg := FPDadosMsg + '<pDataReferencia>'+wDataRefFinal+'</pDataReferencia>';
  FPDadosMsg := FPDadosMsg + '<pXmlZipado>'+XMLZipado+'</pXmlZipado>';
end;

 

 

 

 

 

 

[Juliomar Marchetti]

Favor anexar as units alteradas

[Lucas Jeronimo]

Em 07/08/2017 at 14:50, Anderson Eccker disse:

Aqui em SC é o contrario, em outubro já começão as transmissões do BlocoX,
Aqui nem querem ouvir falar de NFC-e,

Mas já saiu um servidor oficial? Até então eu só vi o de homologação mesmo...

[Wess]

Compartilha a unit aí @israelbcoelho, estou trabalhando em outros requisitos do PAF e não to tendo tempo pra ver do envio do estoque.

Se conseguiu enviar já é um grande avanço, aguardamos seu retorno

[Israel Batista]

Segue unit alterada;

trunk2\Fontes\ACBrDFe\ACBrBlocoX\ACBrBlocoX_WebServices.pas

 

Envio Arquivo Estoque

{Função para converter arquivo .zip em base64}

function EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.LoadFromFile(Filename);
    result := EncdDecd.EncodeBase64(stream.Memory, stream.Size);
  finally
    stream.Free;
  end;
end;

vArquivo = Caminho do arquivo já em formato .zip

Arquivoxml = Conteudo xml;

      BlocoX.WebServices.EnviarEstoque.XML               := Arquivoxml;                               
      BlocoX.WebServices.EnviarEstoque.XMLZipado   := EncodeFile(vArquivo);     
      BlocoX.WebServices.EnviarEstoque.Executar;

 

 

ACBrBlocoX_WebServices.pas

[Juliomar Marchetti]

Para quais versões do delphi? e funciona no lazarus?

1 hora atrás, Israel Batista disse:

Segue unit alterada;

trunk2\Fontes\ACBrDFe\ACBrBlocoX\ACBrBlocoX_WebServices.pas

 

Envio Arquivo Estoque

{Função para converter arquivo .zip em base64}

function EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.LoadFromFile(Filename);
    result := EncdDecd.EncodeBase64(stream.Memory, stream.Size);
  finally
    stream.Free;
  end;
end;

vArquivo = Caminho do arquivo já em formato .zip

Arquivoxml = Conteudo xml;

      BlocoX.WebServices.EnviarEstoque.XML               := Arquivoxml;                               
      BlocoX.WebServices.EnviarEstoque.XMLZipado   := EncodeFile(vArquivo);     
      BlocoX.WebServices.EnviarEstoque.Executar;

 

 

ACBrBlocoX_WebServices.pas

 

[Israel Batista]

Bom dia 

So testei no Delphi 2010;

 

[naiaragomesp]

3 minutos atrás, Israel Batista disse:

Bom dia 

So testei no Delphi 2010;

 

Com essa alteração é possível enviar o arquivo de estoque ? Você conseguiu enviar e receber o nr do recibo e tal? 

[Israel Batista]

Bom dia

E possível sim, já estou enviando e recebendo os retornos normalmente,

[Wess]

5 horas atrás, Israel Batista disse:

Bom dia

E possível sim, já estou enviando e recebendo os retornos normalmente,

Tá usando a unit que está no svn amigo? do estoque, me refiro.

[Juliomar Marchetti]

6 horas atrás, Israel Batista disse:

Bom dia 

So testei no Delphi 2010;

 

é, aqui pensamos em todos não somente em uma IDE!

[naiaragomesp]

Bom dia, 

usei a alteação do @Israel Batista, porém ao passar pela função TDFeWebService.Executar, está me retornando o seguinte erro: Erro Interno : 0 Erro HTTP: 500

Alguém pode me ajudar? 

[Anderson Eccker]

Em 16/08/2017 at 17:30, Lucas Jeronimo disse:

Mas já saiu um servidor oficial? Até então eu só vi o de homologação mesmo...

Sim já saiu:

Segue post do site homologador
http://bell.unochapeco.edu.br/lts/?p=3129

 

[Juliomar Marchetti]

Bom dia

recebi algumas contribuições no e-mail e estou testando para disponibilizar