Erro ao ativar a porta serial Impressora (SAT) com ESCPOS Epson - Trunk2

[amarildolacerda]

Daniel,

Conclui a atualização do componente SAT usando o trunk2.

Ficou muito bom a nova estrutura, o anterior estava confuso, agora melhorou muito.

Após associar todos os componentes, quando passava para abrir a porta da impressora, retornava um erro na ECFVirtual.... Observando o código notei que a sequencia estava tentando abrir a porta serial duas vezes... então fiz a seguinte alteração.... (funcionou).

---------------------------------------------------------

procedure TACBrECFVirtualClass.Ativar;
begin
  if not Assigned(ECFVirtual) then  // Amarildo Lacerda  -- estava abrindo a porta serial antes de abrir a virtual (quando usa ESCPOS - epson)...
    inherited Ativar;

  try
    LeArqINI ;

    AtivarVirtual;
  except
    Desativar ;
    raise ;
  end ;
end;

--------------------------------------------------------

No desenvolvimento, usei uma impressora DASCOM com ESCPOS da epson...  Não esta imprimindo o QRCODE - ainda não olhei o que acontece, estou desconfiado que precisa fazer um código específico para ela - ou é porque estou com o simulador (vou olhar depois). Os outros comandos, funcionaram bem. 

O visual impresso do cupom, precisava dar uma melhorada. Antes, aquele que tem na NaoFiscal, sai legal, agora esta desalinhado no ESCPOS.

 

 

ACBrECFVirtual.pas

[Daniel Simoes]

Oi Amarildo... vou analisar as modificações...

Veja essa atualização do Firmware da DASCOM

http://www.projetoacbr.com.br/forum/files/category/13-dascom/

[amarildolacerda]

Hoje peguei uma epson para fazer teste;  notei que não esta passando os parametros da serial para a virtual

 

 

procedure TACBrECFVirtualPrinter.AtivarPosPrinter;
begin
  if not Assigned( FPosPrinter ) then
    raise Exception.Create('Componente PosPrinter não associado');

  if FPosPrinter.Porta = '' then
  begin
    FPosPrinter.Porta := TACBrECF( ECF ).Porta;
    FPosPrinter.Device.ParamsString := TACBrECF( ECF ).Device.DeviceToString(false); // Amarildo Lacerda - A PosPrinter deve receber a configuração da porta configurada na ACBrECF
  end;

  FPosPrinter.Ativar;
end;

ACBrECFVirtualPrinter.pas

[Daniel Simoes]

Obrigado Amarildo...

Já havia notado esses bugs... e estava para tentar corrigir...

Obrigado pela analise e correção... Já está no SVN

[amarildolacerda]

Aplicando teste unitário, notei que não estava passando o teste de desconto/acrescimo no total do cupom.

Quando manda Desconto  para o ECF, o valor do desconto vem negativo... então precisa inverter o sinal do desconto;

Fiz a seguinte alteração

 

procedure TACBrECFVirtualSATClass.SubtotalizaCupomVirtual(
  DescontoAcrescimo: Double; MensagemRodape: AnsiString);
begin
  with fsACBrSAT do
  begin
    if DescontoAcrescimo > 0 then
      CFe.Total.DescAcrEntr.vAcresSubtot := DescontoAcrescimo
    else
      CFe.Total.DescAcrEntr.vDescSubtot  := DescontoAcrescimo*(-1); // Amarildo Lacerda... checar com Daniel se esta correto... já que o dado vem negativo para desconto.

    CFe.InfAdic.infCpl := MensagemRodape;
  end;
end;

ACBrECFVirtualSAT.pas

[Daniel Simoes]

 A modificação parece correta... Subo pro SVN assim que o S.F. voltar ao ar...

[amarildolacerda]

 

Daniel, olha esta.

Concluido o teste unitário, passou tudo.... compilado com XE7, tanto no aplicativo final quando no ambiente de teste, tudo funcionando...

Então enviei para o montador. Lá no montador, esta instalado um XE6... com XE6 não funcionou, dá um erro de acesso a memória e trava o aplicativo  (quando vai fechar o cupom) e não sai do lugar... fica naquela janela de debug CPU do delphi mostrando os códigos hex.

Investigando, mudei o varíavel   "xSAT_EnviarDadosVenda" do TACBrSATDinamico_stdcall  para fora do objecto... de tal forma que fosse possível chama-la independente do objeto...

e  alterei estas linhas:

------------------------xxxxxxxxxxxxxxxxxxxxxxxxxxx-------------------------------------------------------

function TACBrSAT.EnviarDadosVenda(dadosVenda : AnsiString) : String ;
var
  NomeCFe,ret : String;
begin
  fsComandoLog := 'EnviarDadosVenda( '+dadosVenda+' )';
  if Trim(dadosVenda) = '' then
     raise EACBrSATErro.Create('Parâmetro: "dadosVenda" não informado');

  IniciaComando;

  if fsConfigArquivos.SalvarEnvio then
  begin
    NomeCFe := CalcCFeNomeArq( fsConfigArquivos.PastaEnvio,
                               fsConfigArquivos.PrefixoArqCFe +
                               FormatDateTime('YYYYMMDDHHNNSS',Now) + '-' +
                               IntToStrZero(numeroSessao, 6),
                               '-env');
    WriteToTXT(NomeCFe, dadosVenda, False, False);
  end;

  ret := Trim(dadosVenda);
  //ret := fsSATClass.EnviarDadosVenda( ret );  // debug
  ret := xSAT_EnviarDadosVenda( numeroSessao, PAnsiChar(codigoDeAtivacao),
                                   PAnsiChar(dadosVenda) ) ;
  Result := FinalizaComando( ret );

  DecodificaRetorno6000;
end ;

-----------------------------xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx----------------------------------

Alterado isto, funcionou OK no XE6.

Não entendi o que aconteceu, já que no XE7 a estrutura original funcionou correto... mas no XE6 falhou.

Meus 20 anos de DELPHI não foram suficiente.

Como estou usando o simulador, espero conseguir melhorias até chegar ao final.

 

Vou encerrar esta etapa, agora vamos preparar um piloto.

 

Editado 16 Julho, 2015 por amarildolacerda

[amarildolacerda]

Encontrei o problema - o tipo de assinatura dos metodos que acessavam a DLL estavam setados em desacordo com o que estava na DLL. 

Voltei o código para o original... 

 

Esta funcionado.