Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Israel Batista

Membros
  • Posts

    10
  • Joined

  • Last visited

Recent Profile Visitors

560 profile views

Israel Batista's Achievements

Rookie

Rookie (2/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

0

Reputation

  1. Bom dia Andre Ate hj utilizamos a winCrypt como padrão, porem estamos pesando em migrar para OpenSSL com padrão já que utilizamos apensas certificado A1, porem a comunicação com o sefaz de GO não esta funcionando utilizando OpenSSL NFC-e 4.0; Alguem tem alguma noticia sobre o assunto Att
  2. Boa tarde Muita dificuldade na migração para NFC-e 4.0; * SO = Linux = "OpenSSL Com Dll MinGW" * SO <= Windows 7 = "OpenSSL Com Dll MinGW" * SO >= Windows 8 = "WinCrypt" caso não funcione "OpenSSL Com Dll MinGW" porem e um trabalha muito complexo, muitos pdvs um a um e muito complicado; Alguém esta tendo o mesmo problema, e como esta sendo tratado; Att;
  3. Boa tarde UF=GO Fiz os teste nos ambiente Homologação e Produção, sem sucesso Att;
  4. Boa tarde fiz todas alterações mencionadas no tópico, 1 = Todo o fonte atualizado 2 = De {.$DEFINE USE_MINGW} para {$DEFINE USE_MINGW} 3 = Reinstalar 4 = Atualizei as dll da pasta ACBr\DLLs\XMLSec\MinGW\32 - Para o System32, SysWOW64 e pasta da minha aplicação 5 = Configuração do componente AcbrNfce.SSL.SSLType := LT_TLSv1_2; AcbrNfce.Configuracoes.Geral.ModeloDF := moNFCe AcbrNfce.Configuracoes.Geral.VersaoDF := ve400 AcbrNfce.Configuracoes.Geral.SSLLib := libOpenSSL; AcbrNfce.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; AcbrNfce.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; AcbrNfce.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; E o problema persiste; - Inativo ou Inoperante tente novamente. Erro Interno: 10091 Erro HTTP: 500. Porem quando utilizo libWinCrypt funciona tudo perfeitamente AcbrNfce.Configuracoes.Geral.SSLLib := libWinCrypt; Alguém já passou ou esta passando; Att;
  5. Boa tarde Como esta a implementação da Toshiba 2 estaçoes? Att;
  6. Bom dia E possível sim, já estou enviando e recebendo os retornos normalmente,
  7. Bom dia So testei no Delphi 2010;
  8. 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
  9. 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;
  10. Boa tarde Alguém já teve necessidade de imprimir informações no verso do cheque utilizando ECF Epson, se e possível realizar esta operação? Att.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.