Forma De Pagamento Inválida

[Pedro Henrique Camargo]

Bom dia a todos. Estou tendo alguns problemas ao emitir um cupom usando alguma forma de pagamento que possui acentuação.

• O problema começou a acontecer depois que eu atualizei meu Acbr
• Impressora Bematech MP-400 TH FI
• Já tentei usar Code Pages 437, 850, 858 e 860.

As formas de pagamento cadastrados na minha são esses:

 

• Informaçoes do acbrlog:

Dinheiro        Cartao credito  A vista         Carteira        Cheque Pr[130]      Cheque [133] Vista  Cart[198]o D[130]bito   Dep[162]sito        Cart[198]o Cr[130]dito  Boleto          Convenio        TEF             Cartao TEF      CARTAO          Cr[130]dito         Cheque Pre      Cart[198]o          Conv[136]nio        Outros          Recarga

 

 

• Informações retornadas da função no Delphi:

Dinheiro        Cartao credito  A vista         Carteira        Cheque Pr‚      Cheque … Vista  CartÆo D‚bito   Dep¢sito        CartÆo Cr‚dito  Boleto          Convenio        TEF             Cartao TEF      CARTAO          Cr‚dito         Cheque Pre      CartÆo          Convˆnio        Outros          Recarga        

 

 

Por exemplo, informando um pagamento em Cartão, é passado à função TACBrECFClass.AchaFPGDescricao('Cartão [Descricao], true [buscaExata], true [ignorarCase]).

No trecho que compara a descrição passada com as formas de pagamento cadastradas na impressora, temos a seguinte situação 'CARTÆO' <> 'CARTãO', logo, nunca retornará o índice da forma de pagamento.

 

Alguém pode me ajudar? Muito obrigado.

[EMBarbosa]

Por favor,

  faça o teste utilizando o ECFTeste que é o exemplo do ACBrECF. Anexe o log do ACBrECF gerado pelo ECFTeste.

  Adicione informações sobre a versão do Delphi utilizado, qual revisão você utilizava e para qual você atualizou.

[Pedro Henrique Camargo]

Obrigado pela resposta. Então, eu não sei em qual revisão estava o meu Acbr, :/ E não sei como descobrir também, já procurei aqui de todo jeito, e nada!

 

Para facilitar, fui exportando as revisões que tiveram alteração no arquivo ACBrECFClasse e testando uma a uma. Como não é viável testar revisão por revisão, verifiquei somente algumas delas.

 

• O que eu consigo afirmar é que a partir da 6987 não funciona, e as revisões anteriores a 6884 funcionam, ou seja, entre as revisões 6884 e 6987 eu não consigo dizer em quais revisões SUCESSIVAS o problema começou a acontecer. Não sei se isso vai ajudar em alguma coisa.
• Delphi XE3.
• Log em anexo. -> Teste de Procurar a forma de pagamento pela descrição "Cartão".

Obrigado.

acbrlog.txt

[Daniel Simoes]

Não há nenhuma mensagem de erro no seu LOG

[Pedro Henrique Camargo]

Bom, no meu ponto de vista realmente não era pra dar erro. 

 

O problema é que existe a forma de pagamento "Cartão" cadastrada, assim como existe "Depósito", "Dinheiro" e etc., mas todas essas formas de pagamento com acentos não são encontradas no teste do ECFTeste > Variáveis > Formas de Pagamento > Achar Formas de Pagamento por Descrição.

 

Dá mesma forma ocorre quando vou simular uma venda no ECFTeste, lá funciona normalmente porque é passado o índice da forma de pagamento e não feito uma comparação (como no ACBrECFClass) da forma if ('DEP¢SITO' = ''DEPóSITO') ou if('CARTÆO' = 'CARTãO'), na qual, depois de comparar as descrições e a cláusula se tornar verdadeira, retorna o índice. Entendeu?

 

Obrigado.

[Juliomar Marchetti]

Uma coisa que deve levar em consideração! é as strings que mudam entre ansi e utf-8!

 

retificando o que falei é as strings, widestrings e ansistrings

[giulianon]

Acabei de realizar um teste aqui com uma impressora Sweda ST2000, cadastrando a forma de pagamento Cartão e usando o caminho que você falou ECFTeste > Variáveis > Formas de Pagamento > Achar Formas de Pagamento por Descrição

 

Funcionou corretamente.

 

Estou com a revisão 7135 que é bem mais atual que a revisão que você relatou que tem o problema mas não é a última.

 

Então acho que você atualizando o ACBr deve funcionar.

 

Pode fazer isso?

[Pedro Henrique Camargo]

Obrigado pela dica Juliomar Marchetti, vou pesquisar mais sobre. 

 

Giuliano Naspolini, atualizei meu ACBr para a última revisão (7135) e o problema persiste. rs' Obrigado.

[Pedro Henrique Camargo]

Bingo! Descobri como resolver o problema! Mas confesso que não aceitei muito, rs'. 

 

O empecilho está na ACBrECFClass. As 3 últimas modificações nessa unit foram nas revisões 7079, 7014 e 6884. O problema começou a ocorrer a partir da 7014.

 

Motivo do problema:  a função "TACBrECF( fpOwner ).CarregaFormasPagamento ; ;" foi substituída por "CarregaFormasPagamento" (em anexo, linhas 3444 - 3446). Dessa forma, cada uma chama funções diferentes.

 

A primeira, chama uma função lá dentro da unit UCBrECF, na qual passa por um outra função de decodificação. A segunda, chama uma função dentro da própria unit ACBrECFClass, onde não passa por nenhum método de decodificação. 

 

Obs.:

• apaguei todo meu ACBr e dei restore para me certificar que o problema está definitivamente especificado.
• comentei a linha 3444 para forçar o passagem pelas chamadas das funções.

 

Obrigado a todos, mas como disse ali em cima, não "aceitei" muito essa solução, talvez seja um tiro no pé. Alguém pode explicar o que aconteceu, de fato?

 

Obrigado mais uma vez.

[EMBarbosa]

Edit: Enquanto estava confeccionando essa resposta o Pedro respondeu acima...

 

Acho que consegui reproduzir aqui o problema. Veja o log da aba "Cmd/Resp" do ACBrECF.

Cadastrei as formas de pagamento

 

- + - + - + - + - + - + - + - + - + - + - + -
Forma Pagto: 01 -> Dinheiro  Permite Vinculado: N
Forma Pagto: 02 -> CARTAO CREDITO  Permite Vinculado: S
Forma Pagto: 03 -> CARTAO DEBITO  Permite Vinculado: S
Forma Pagto: 04 -> CARTAO TEF  Permite Vinculado: S
Forma Pagto: 05 -> ANOTADO  Permite Vinculado: S
Forma Pagto: 06 -> ANOTADO EM CONT  Permite Vinculado: S
Forma Pagto: 07 -> DINHEIRO  Permite Vinculado: S
Forma Pagto: 08 -> Cheque  Permite Vinculado: S
---------------------------------
Forma Pagto: 01 -> Dinheiro  Permite Vinculado: N
Forma Pagto: 02 -> CARTAO CREDITO  Permite Vinculado: S
Forma Pagto: 03 -> CARTAO DEBITO  Permite Vinculado: S
Forma Pagto: 04 -> CARTAO TEF  Permite Vinculado: S
Forma Pagto: 05 -> ANOTADO  Permite Vinculado: S
Forma Pagto: 06 -> ANOTADO EM CONT  Permite Vinculado: S
Forma Pagto: 07 -> DINHEIRO  Permite Vinculado: S
Forma Pagto: 08 -> Cheque  Permite Vinculado: S
Forma Pagto: 09 -> Depósito  Permite Vinculado: S
---------------------------------
Forma de Pagamento (Depósito) não encontrada!

- + - + - + - + - + - + - + - + - + - + - + -
Indice   : 08
Descrição: Cheque
Valor atual do totalizador R$ 0,00

- + - + - + - + - + - + - + - + - + - + - + -
Indice   : 09
Descrição: Dep¢sito
Valor atual do totalizador R$ 0,00

- + - + - + - + - + - + - + - + - + - + - + -
 

 

No log do ACBrECF em si não há nada estranho. O meu ficou semelhante ao do Pedro Henrique aí acima anexo. Então não vi necessidade de anexar aqui.

[EMBarbosa]

Motivo do problema:  a função "TACBrECF( fpOwner ).CarregaFormasPagamento ; ;" foi substituída por "CarregaFormasPagamento" (em anexo, linhas 3444 - 3446). Dessa forma, cada uma chama funções diferentes.

 

A primeira, chama uma função lá dentro da unit UCBrECF, na qual passa por um outra função de decodificação. A segunda, chama uma função dentro da própria unit ACBrECFClass, onde não passa por nenhum método de decodificação. 

 

Obs.:

• apaguei todo meu ACBr e dei restore para me certificar que o problema está definitivamente especificado.
• comentei a linha 3444 para forçar o passagem pelas chamadas das funções.

Obrigado a todos, mas como disse ali em cima, não "aceitei" muito essa solução, talvez seja um tiro no pé. Alguém pode explicar o que aconteceu, de fato?

 

Essa alteração foi feita para criar o que vai possibilitar, além de outras coisas, trabalhar com impressoras não fiscais de maneira mais simples.

Para uma explicação mais detalhada do motivo específico desta alteração vamos tentar aguardar o Daniel.

Visto que ela também criou um efeito colateral em outra área como você acho que vamos logo ter uma posição sobre o que fazer.

[Daniel Simoes]

Apliquei uma possível correção no SVN, favor atualizar os fontes e testar...

[Jicelmo Andrade]

Obrigado pela resposta. Então, eu não sei em qual revisão estava o meu Acbr, :/ E não sei como descobrir também, já procurei aqui de todo jeito, e nada!

 

Para facilitar, fui exportando as revisões que tiveram alteração no arquivo ACBrECFClasse e testando uma a uma. Como não é viável testar revisão por revisão, verifiquei somente algumas delas.

 

• O que eu consigo afirmar é que a partir da 6987 não funciona, e as revisões anteriores a 6884 funcionam, ou seja, entre as revisões 6884 e 6987 eu não consigo dizer em quais revisões SUCESSIVAS o problema começou a acontecer. Não sei se isso vai ajudar em alguma coisa.
• Delphi XE3.
• Log em anexo. -> Teste de Procurar a forma de pagamento pela descrição "Cartão".

Obrigado.

Um pouco tarde para resposta mais vamos la :

 

Se quer saber em qual revisao seu acbr está, faça o seguinte, se estiver usando tortoiseSVN,  botao direito na pasta do acbr - TortoiseSVN - ShowLog

 a sua revisao vai estar com número em negrito, abraço

Editado 2 Agosto, 2014 por Jicelmo Andrade

[Pedro Henrique Camargo]

Bom, na verdade, na verdade mesmo, eu não atualizei o meu ACBr como a última postagem do Daniel Simões sugere. O simples motivo foi porque a versão corrente do ACBr local (revisão 7251) se apresentava "estável" em meu sistema, aí deixei como estava. Em relação a resolução do problema que eu descrevi ali em cima, fiz algumas outras mudanças, mas basicamente, foi o seguinte: 

1. Dei Restore e instalei todo o ACBr novamente.
2. Na unit ACBrECFBematech, linha 1937, eu substituí "FPagto.Descricao := Descr;" por "FPagto.Descricao := DecodificarPaginaDeCodigoECF(Descr);"

 

Isso resolveu o meu problema na revisão 7251. OBS.: não testei nas versões subsequentes.

Editado 4 Agosto, 2014 por Pedro Henrique Camargo