Israel Batista

Bom dia Renan Estou com o mesmo problema seu, impressão de PDV dentro de uma Thread, conseguil resolver o seu problema; Att;

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

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;

Boa tarde UF=GO Fiz os teste nos ambiente Homologação e Produção, sem sucesso Att;

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;

Boa tarde Como esta a implementação da Toshiba 2 estaçoes? Att;

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

Bom dia So testei no Delphi 2010;

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

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;

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.