Ir para conteúdo
  • Cadastre-se

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Comprar

Impressora de Etiquetas L42

Fabricada no Brasil. Benefícios exclusivos
Garantia de 18 meses   Visor na Tampa   Protocolos PPLA e PPLB
Portas USB e Serial   Baixo Custo de Manutenção   Financiamento através do BNDES

Comprar

Edison Basso

Envio Bloco X

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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,

Compartilhar este post


Link para o post
Compartilhar em outros sites

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?

Compartilhar este post


Link para o post
Compartilhar em outros sites

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? 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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.
 

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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"

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

 

 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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? 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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;

 

 

 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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...

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 :)

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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? 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está agora fechado para novas respostas

×