Daruma Abre E Finaliza Rg Incompleto

[abraao895]

Bom dia pessoal,

    Estou com um problema estranho aqui. Estou utilizando o seguinte comando:

if not ecf.RelatorioGerencial(st.Text, 1, Indice) then
begin
       repeat
                Reimpressao := IW_MessageDlg('Problemas na reimpressão do relatório gerencial!' + sLineBreak +
                                             'Deseja reimprimir?',
                                             mtConfirmation,
                                             [mbYes, mbNo], 0) = ID_YES;
                if Reimpressao then (...)

    Só que a Daruma FS700 ela abre o cupom e fecha sem imprimir o conteúdo central do cupom gerencial.

 

    Em "st.Text" estou passando:

'</linha_dupla>'#$D#$A'     <e>ENDEREÇO DE ENTREGA</e>'#$D#$A'<ce>REF. AO CUPOM: 000190 - VIA: 01/01</ce>'#$D#$A'</linha_dupla>'#$D#$A'CLIENTE: <e>JOAO DA SILVA RIBEIRO</e>'#$D#$A'DATA: 18/07/2013   HORA: 15:26:35   OPR: ADMIN'#$D#$A'</linha_simples>'#$D#$A'QUANTIDADE DE CAIXA(S):  <e>002</e>'#$D#$A'</linha_simples>'#$D#$A'END.: <e>RUA JOAQUIM DA SILVA</e>'#$D#$A'<e>101</e>,<e>A</e>,<e>VILA RITA</e>'#$D#$A'<e>ITAJUBÁ</e>,<e>MG</e>,<e>37.501-413</e>'#$D#$A'REF.: <e>PERTO DA IGREJA PRESBITERIANA</e>'#$D#$A'TEL.: <e>(35)36231801(ENTREGA)</e>'#$D#$A'EMP.: <e>LUCAS</e>'#$D#$A'OBS.: <e>PEGAR FRIOS NA GELADEIRA</e>'#$D#$A'</linha_simples>'#$D#$A

    Na Bematech e na Sweda imprime normal. Debuguei até a procedure TACBrECF.RelatorioGerencial:

fsECF.RelatorioGerencial( Relatorio, Vias, Indice ) ;

    E em "Relatorio" está constando o conteúdo de "st.Text" mas a Daruma não imprime o conteúdo todo. Segue log em anexo.

    Por favor, gostaria da opinião de vocês.

ACBrECF-20130719.txt

[Daniel Simoes]

Use Maxlinhasbuffer := 3

O log não mostra nada de errado...

[Juliomar Marchetti]

Completando tenta remover as tags e mandar novamente

[abraao895]

Coloquei Maxlinhasbuffer := 3 e retirei a formatação <e></e>. Com isso consegui imprimir, sendo que a string "st.Text" ficou com 551 caracteres.

 

A Daruma pelo ECFTeste.exe imprimiu normal a formatação extendida. Então acredito que o problema esteja na quantidade de dígitos na string citada acima, uma vez que com a formatação o tamanho dela vai para 649 caracteres.

 

Teria como contornar essa situação?

[Juliomar Marchetti]

é problema com as tags essa ecf não tem ou não interpreta elas

[abraao895]

          if Pos('DARUMA', AnsiUpperCase(dm.cdsEcfMARCA.AsString))>0 then
          begin
            st.Text := StringReplace(st.Text,  '<e>', '', [rfReplaceAll, rfIgnoreCase]);
            st.Text := StringReplace(st.Text, '</e>', '', [rfReplaceAll, rfIgnoreCase]);
          end;

    A princípio coloquei esse source para resolver o problema e está imprimindo.

[Daniel Simoes]

O problema pode estar relacionado a atualização do Sw.Básico do ECF... parece que a sua versão não suporta o comando de Expandido

 

Seria mais fácil usar:

  ACBrECF1.IgnorarTagsFormatacao := True;

 

[abraao895]

Obrigado Daniel, valeu pela informação. Implementei aqui.

[abraao895]

No caso de uma atualização do software básico do ECF eu teria que enviar a mesma para intervenção?

[Régys Silveira]

No caso de uma atualização do software básico do ECF eu teria que enviar a mesma para intervenção?

Sim, somente o interventor tem os recursos para isso, se a impressora for para desenvolvimento e não estiver lacrada, você pode tentar pegar o arquivo com o interventor e fazer por conta própria, mas impressoras em produção impossível, porque o interventor precisa abrir o lacre, atualizar e lacrar novamente.

[Daniel Simoes]

Antes de mandar para a intervenção, verifique a versão no Rodapé de qq cupom... e pergunte ao fabricante se existe atualização para essa versão... Pergunte ainda, se a atualização corrigiria o problema mencionado no post (não impressão de comando de Expandido)

[abraao895]

Entendo, agradeço.