ACBrFiscNet + Elgin X5

[Juliomar Marchetti]

Boa tarde

Vou postar por partes algumas alterações que estou fazendo para poder utilizar a Elgin X5 nos clientes com PAF-ECF

primeiro ela possui 48 colunas e não como no caso de outras ecf´s que utilizam o FiscNet

então no Ativar modifiquei o codigo abaixo:

     GetPAF ;


     FiscNETComando.NomeComando := 'LeTexto' ;

     FiscNETComando.AddParamString('NomeTexto','Marca') ;

     EnviaComando ;

     fpModeloStr := 'FiscNET: '+ FiscNETResposta.Params.Values['ValorTexto'] ;


    { Juliomar Marchetti - 20/09/2011 ******************************************}

    { adiciona para saber quando for elgin a quantidade de colunas é 48 }

    fsMarcaECF := FiscNETResposta.Params.Values['ValorTexto'];

    fsMarcaECF := LowerCase(Trim(fsMarcaECF));

    {***************************************************************************}


     FiscNETComando.NomeComando := 'LeTexto';

     FiscNETComando.AddParamString('NomeTexto','Modelo');

     EnviaComando;

     fpModeloStr := fpModeloStr + ' - ' + FiscNETResposta.Params.Values['ValorTexto'] ;


     // Ajuste de Colunas na ThermoPrinter, por Fabio Farias //

     if FiscNETResposta.Params.Values['ValorTexto']='TPF2001' then

        fpColunas := 40;


    { Juliomar Marchetti - 20/09/2011 ******************************************}

    { adiciona para saber quando for elgin a quantidade de colunas é 48 }

     if (fsMarcaECF = 'elgin') and (FiscNETResposta.Params.Values['ValorTexto']='X5')then

      fpColunas := 48;

    {***************************************************************************}

  except

     Desativar ;

     raise ;

  end ;

end;

onde ele reconhece se for elgin X5 para trocar para 48 colunas, pois alguns relatorios estava saindo bagunçados. testei se era X5 mas acredito que seria só do caso de testar se é elgin no outro caso é no espelho da MFD

procedure TACBrECFFiscNET.EspelhoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo: AnsiString;

  Documentos: TACBrECFTipoDocumentoSet);

procedure TACBrECFFiscNET.EspelhoMFD_DLL(COOInicial, COOFinal: Integer; NomeArquivo: AnsiString;

  Documentos: TACBrECFTipoDocumentoSet);

nos dois casos na linha

     ArqTmp := ExtractFilePath( NomeArquivo ) ;

está sem o nome do arquivo, só pega o path

     ArqTmp := ExtractFilePath( NomeArquivo ) + 'ACBr';

este seria o correto, agradeço a que faz commit para colocar essas alterações no ACBr

estarei postando mais conforme for progredindo nos testes.

[Régys Silveira]

Mande o arquivo alterado, assim podemos comparar os fontes e enviar as alterações.

Muito obrigado pela ajuda.

[Juliomar Marchetti]

A unit em anexo para alterar conforme repassado para análise a adição da modificação

[Régys Silveira]

Enviado.