[procedure ImprimirPDF]

Bom dia Renan

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

Att;

[Erro interno 10091, OpenSSL MinGW]

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

[Erro interno 10091, OpenSSL MinGW]

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;

[Erro interno 10091, OpenSSL MinGW]

Boa tarde 

UF=GO

Fiz os teste nos ambiente Homologação e Produção, sem sucesso

Att;

[Erro interno 10091, OpenSSL MinGW]

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;

 

[ECFVirtual - Impressora Toshiba 1 e 2 Estações]

Boa tarde

Como esta a implementação da Toshiba 2 estaçoes?

Att;

[Envio Bloco X]

Bom dia

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

[Envio Bloco X]

Bom dia 

So testei no Delphi 2010;

 

[Envio Bloco X]

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

[Envio Bloco X]

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;

 

 

 

 

 

 

[É possível imprimir no verso de cheque com impressora epson?]

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.