Daniel Simoes

@Jéter Rabelo Ferreira, eu sugeri um novo código ao @José M. S. Junior, usando Assign nas classes... Ainda estamos trabalhando nisso... Sim.. isso faz todo Sentido.. a vantagem de usar Listas de Objeto é justamente deixar elas gerenciarem os itens contidos nela

é realmente complicado, instalar manualmente.. esse tópico descreve um pouco, sobre esse processo

A última versão do Delphi CE não suporta compilador por Linha de comando.. não há como usar o instalador do ACBr, com ele...

Enviado para o SVN... com as modificações sugeridas... Commit [r23199]

Ambiente Linux que Exigem Dependência Gráfica: Atualização importante, no uso do xVFB.. Dica do colega Francisco, no Discord do ACBr Se você tem problemas na impressão de Cod.Barras, onde os mesmos aparecem "coloridos" e desfocados... como no exemplo abaixo: isso tem relação com a resolução do ambiente... experimente chamar o xvfb-run com os parâmetros abaixo: xvfb-run --server-args="-screen 0, 1024x768x24" pronto:

Tópicos relacionados:

Apenas para exemplificar.. esse trecho de código, produz um A.V. procedure TForm1.Button1Click(Sender: TObject); var SL1, SL2: TStringList; S: String; begin SL1 := TStringList.Create; try SL1.Add('teste'); SL2 := SL1; finally SL1.Free; end; S := SL2.Text; // A.V. aqui end; Já esse copia (clona) o conteúdo de um Objeto para o Novo... procedure TForm1.Button2Click(Sender: TObject); var SL1, SL2: TStringList; S: String; begin SL2 := TStringList.Create; try SL1 := TStringList.Create; try SL1.Add('teste'); SL2.Text := SL1.Text; finally SL1.Free; end; S := SL2.Text; // tudo OK finally SL2.Free; end; end;

@volmir, acho que não precisamos de uma nova propriedade.. Já temos o CNPJ em TACBrTEFResp.NFCeSAT.CNPJCredenciadora

Atribuir um Objeto a outro, realmente apenas copia a referencia dele... e se o Objeto original é destruído, todas as referências que apontavam para ele, ficam inválidas.. (access violation) Para "Clonar" um Objeto, seria necessário criar um método Assign, ou varrer as propriedades dele, e copiar no novo objeto..

Olá @volmir, muito obrigado.. analiso hoje a noite...

Enviei um possível ajuste, ao SVN.. favor atualizar os fontes

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Acho que ainda não havia testado esse Projeto em Linux / Lazarus.... Creio que seja isso: https://wiki.lazarus.freepascal.org/Multithreaded_Application_Tutorial#Units_needed_for_a_multi-threaded_application

Para compreender melhor esse assunto.. recomendo esse vídeo:

Use a força, leia os fontes Veja que no Demo do ACBrNFe, demonstramos como pegar o retorno da consulta, quando Síncrono ou Assíncrono .. Veja esse trecho do código fonte do botão "Criar e Enviar" if not Sincrono then begin MemoDados.Lines.Add('Envio NFe'); // ASSINCRONO MemoDados.Lines.Add('tpAmb: ' + TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: ' + ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: ' + IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: ' + IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: ' + ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: ' + IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: ' + ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: ' + ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: ' + ACBrNFe1.WebServices.Retorno.Protocolo); end else begin MemoDados.Lines.Add('Envio NFCe'); // SINCRONO MemoDados.Lines.Add('tpAmb: ' + TpAmbToStr(ACBrNFe1.WebServices.Enviar.TpAmb)); MemoDados.Lines.Add('verAplic: ' + ACBrNFe1.WebServices.Enviar.verAplic); MemoDados.Lines.Add('cStat: ' + IntToStr(ACBrNFe1.WebServices.Enviar.cStat)); MemoDados.Lines.Add('cUF: ' + IntToStr(ACBrNFe1.WebServices.Enviar.cUF)); MemoDados.Lines.Add('xMotivo: ' + ACBrNFe1.WebServices.Enviar.xMotivo); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo); end;

Porque você não tentou os valores sugeridos ?? (10, 40, 50)

Tente "PIX Pagto Instantaneo"

Sim, pois 0 é o padrão da Impressora... favor ler o tópico abaixo:

Ajuste em EspacoEntreLinhas

para Windows 64, DLLs de 32 bits devem ser copiadas em: c:\Windows\SysWOW64

Por favor forneça mais informações.. - Qual TEF ? - Usa algum componente do ACBr ? - Verifique o Log do TEF, se enviou o valor corretamente

Veja como se comporta o método: ACBrBAL1.Device.AcharPortasSeriais