CarregaFormasPagamento ecfEpson

[Luiz Fernando]

Boa tarde.

Nesse método caso tenha um intervalo nos índices das formas de pagamento, esse código não funciona, pois ele para o while.

Original:

              if (pos('090C',E.Message) > 0) then
                 Break
              else
                 raise ;

Alteração proposta:

              if pos('090C',E.Message) = 0 then
                 raise ;
 

Segue em anexo arquivo alterado com essa correção.

ACBrECFEpson.pas

[Daniel Simoes]

Quando implementei tinha em mente a otimização de velocidade... (não fazia sentido ler posições vazias).... mas realmente traz esse problema...

apliquei a modificação no SVN

Obrigado...

[Luiz Fernando]

Ok, obrigado.

[Luiz Fernando]

Pensando na sua colocação, acabei fazendo um ajuste na leitura, para ler somente a quantidade de formas de pagamento cadastradas.

Segue em anexo unit para analise.

ACBrECFEpson.pas

Editado 22 Fevereiro, 2016 por Luiz Fernando

[Daniel Simoes]

Interessante.. você usou o comando 09 01 para ler o numero de formas de pagamento cadastradas...

Mas se pularmos um índice (uma sequencia), ele retornará o número de Formas de Pagamento cadastrados, ou o último índice da Forma de Pagamento cadastrada ?

[Luiz Fernando]

Funciona da seguinte forma:

01 - Dinheiro

02 - Cheque

04 - Cartão.

O comando 0901, vai retornar 3 formas de pagamento, eu faço o loop levando em consideração esse número, porém o índice no caso do cartão, continuará retornando o 04.

Editado 24 Fevereiro, 2016 por Luiz Fernando

[Daniel Simoes]

mas nesse caso, ele não irá ler a 04-Cartão, correto  ?

[Luiz Fernando]

Irá ler, pois incremento a variável de contagem do while, somente quando der certo a leitura da forma de pagamento.

Caso der erro irá cair no except com a mesma verificação que ele fazia anteriormente.

Porém, caso haja um índice vazio, ira ser feita uma leitura desnecessária, mas não vai fazer as 20 necessárias anteriormente.

Editado 24 Fevereiro, 2016 por Luiz Fernando

[Luiz Fernando]

Daniel, fiz um arquivo de log demonstrando o resultado da rotina implementada.

Observe que a leitura do índice 4 retorna o erro de tipo de pagamento não definido, porém dá sequência para o 5 e 6 no meu caso, sendo que essa impressora possui somente 5 formas de pagamento.

 

log.txt

Editado 24 Fevereiro, 2016 por Luiz Fernando

[Daniel Simoes]

Tem razão... lendo com mais calma compreendi a sua lógica... Ficou muito bom... Acabei de enviar para o SVN, obrigado

 

[Luiz Fernando]

Perfeito. Obrigado

Editado 26 Fevereiro, 2016 por Luiz Fernando