Roney Melo

Olá Daniel fiz a modificação de acordo com minha teoria como você montou o bloco de código ai, funcionou 100%, porém para tirar identificação do PAF-ECF, Parâmetros de Configuração não funcionou, para funcionar essas duas funções alterei o fonte do AcbrECF.pas, estou enviando o arquivo em anexo, as função modificadas estão nas linhas: 6445: TACBrECF.PafMF_RelIdentificacaoPafECF 6535: TACBrECF.PafMF_RelParametrosConfiguracao 6563: TACBrECF.PafMF_RelParametrosConfiguracao em todas essas funções onde esta Relatorio.Add(''); alterei para Relatorio.Add(StringOfChar(' ',10)); compilei testei novamente funcionou 100%, não sei se é a melhor forma para ajustar junto a esta ECF, mas o arquivo segue em anexo com a idéia. ACBrECF.pas ACBrECF.pas

Olá Daniel obrigado pela atenção, efetuei a modificação aqui no arquivo AcbrECFEscECF.PAS conforme orientação acima, por ter acrescentado Bematech ele caiu dentro do IF porém o mesmo problema ainda continua.....

Elias, Um detalhe importante que percebi no cupom que você me mandou em anexo é a versão do SB na sua ECf está 01.00.00 já na do cliente está 01.00.02, será que não pode ser isso ? problemas com versão de software básico ? coloquei o rodapé de uma leitura x em anexo...

vixe será que é equipamento ? pois é uma impressora novinha que um cliente comprou!!!!

Segue os passos que fiz em forma de prints...

Olá Daniel, OK vamos la, todos os passos foram feitos no ECFTeste: 1 - utilizei a função: ACBrECF1.AbreRelatorioGerencial(StrToIntDef(IndiceStr, 0)) ; //tudo ok abriu o relatório sem problemas 2 - função ACBrECF1.LinhaRelatorioGerencial( Linha, 1 ); //imprimi 3 linhas tudo ok também sem problemas 3 - ACBrECF1.PulaLinhas( StrToIntDef(Linhas,0) ) ; // passando 3 para variável linhas ai que vem o problema quando tenta executar esta função que ocorre o erro como mostra no log que enviei em anexo no primeiro post.: ----------------- ERRO ----------------- Erro retornado pela Impressora: BEMATECH - MP-4200 TH FI Categoria: 7-Erro em Relatório Gerencial ou CCD Motivo: 12-Comando enviado não pode ser executado dentro de CCD ---------------------------------------- mas segue em anexo o log com este novo teste exatamente como descrevi acima, no primeiro post comentei que em outras rotinas do ACbrECF também ocorre o mesmo erro como identificação do PAF-ECF mas acredito que descobrindo a solução para este podemos verificar os demais. acbrlog.txt

Senhores bom dia, andei pesquisando aqui no fórum sobre um problema atípico com relação a impressão de relatórios gerenciais na impressora fiscal da Bematech MP4200 TH FI, quando usa o comando PulaLinhas() ou LinhaRelatorioGerencial('') -> com vazio a ECF retorna o erro: ----------------- ERRO ----------------- Erro retornado pela Impressora: BEMATECH - MP-4200 TH FI Categoria: 7-Erro em Relatório Gerencial ou CCD Motivo: 12-Comando enviado não pode ser executado dentro de CCD ---------------------------------------- percebi o seguinte, para que possa pular uma linha em branco consegui efetuar a ação com sucesso utilizando o comando LinhaRelatorioGerencial(' ') com 9 espaços em branco, fazendo dessa forma funcionou, porém alguns comandos utilizados pelo AcbrECF não funcionam por exemplo um que utilizo muito é: PafMF_RelIdentificacaoPafECF(IdentPaf, 0); gerar identificação do PAF-ECF, ja olhei no fórum o post: porém sem sucesso, os testes que efetutei foram no ECFTeste, meu fonte esta atualizado no revision: 8656 compilei testei novamente porém sem sucesso, segue em anexo o log gerado pelo ECFTeste, abri um gerencial, mandei imprimir três linhas de teste, depois tentei pular três linhas utilizando o comando PulaLinhas(3). Peço uma ajuda aos colegas, caso alguém já tenha encontrado uma solução para o problema, desde já agradeço pela atenção! OBS: Com o Emulador tudo funcionando 100%, mas como sempre no equipamento físico nunca é a mesma coisa. acbrlog.txt acbrlog.txt

Isso Régys, alteração de componente desnecessária, realmente no evento do ACBrECF OnBobinaAdicionaLinhas coloquei o seguinte trecho: sLinha:= Linhas; if PosEx('CANCELADO ITEM', sLinha) > 0 then sLinha:= '<b><font color="Red">'+sLinha+'</font></b>'; pronto o resultado é o mesmo, fica ai a dica para todos, a alteração que citei no início do tópico é desnecessária. Muito obrigado Régys.

Certo, tentei pelo MemoParams não obtive sucesso, ai mudei no componente, teria uma dica Régys de como fazer por estes parâmetros ?

Bom dia caros amigos da comunidade ACBr, outro dia em um cliente de supermercado recebi uma sugestão interessante, no cancelamento do item do cupom fiscal mostrar em negrito (como esta hoje) e em vermelho, fiz uma pequena mudança no arquivo ABrECF.pas na linha 2841, a mudança ficou assim : {$IFNDEF NOGUI} if MemoAssigned then begin fsMemoOperacao := 'cancelaitemvendido' ; MemoAdicionaLinha( '<b><font color="Red">CANCELADO ITEM:</font></b> '+'<b><font color="Red">'+IntToStrZero( NumItem,3)+'</font></b>' ) ; end ; {$ENDIF} o resultando fica: Bom é uma sugestão gostaria da opinião dos demais usuários, administradores e desenvolvedores do componente, desde já agradeço!!!!!

Ornei vc esta utilizando Clisiftef ? se estiver configurou o CliSitef.ini como postei acima ?

Olá pessoal, então Paulinho é exatamente isso que o Regys citou, os valores de saque, Cielo Priemia depende do cartão eo valor da transação tem que ser exatamente como no teste, tipo se você usar um cartão visa débido (chip ou magnético) e efetuar uma trasação de 30,00, vai rolar um desconto de 3,00 do Cielo premia, lembrando também que deve sim configurar o CliSitef.INI para habilitar as mesmas, vou disponibilizar aqui para você como o meu está: [PinPadCompartilhado] Porta=4 [Cheques] CONSULTA CHEQUE PAPEL TECBAN Habilitado=1 [RecargaCelular] IncluiMenuAdministrativo=1 HabilitaRecargaMultiConcessionaria=1 HabilitaTratamentoTrocoPgtoDinheiro=1 TipoConfirmacaoNumeroCelular=1 HabilitaRecargaCelularDebitoCreditoGenerica=1 [Geral] TransacoesAdicionaisHabilitadas=29;30;32;40;42;43;60;62;63;300;301;3323 [Redes] HabilitaRedeCTF=1 HabilitaRedeBancoIbi=1 HabilitaRedeIbiMexico=1 meu ini esta exatamente assim, homologuei o sistema no começo do ano com saque, multiplos cartões, multiplas formas de pagamento, Cielo premia e recarga de celular sem problemas, só estudar certinho do Demo efetuar os devidos tratamentos que você homologa sem problemas....

Olá Daniel caso isso aconteça o componente pode retornar estLivre ?

Rssssss bom eu acho que não me expressei direito, está num timer, porém o mesmo só funciona de fato, quando existe um cupom em andamento e houve alteração no html do webbrowser fora isso ele fica inativado.

Então EMBarbosa pensei nisso, mas efetuamos vários testes "estressando" ao máximo as vendas, somente com PDV aberto em um micro, processamento não passou de 20%, isso quando esta passando algum item ou finalizando cupom, depois que para ele fica na casa dos 3%..... efetuando um tratamento devido creio que não tenha esse problema de sobrecarga, mas você teria mais alguma dica sobre o assunto ?

Pessoal só para complementar uma "Solução" que consegui encontrar foi colocar a função WB_ScrollToBottom num timer com intervalo bem curto coloquei 1, para funcionar fiz uma mudança na função também, que é checar se existe documento: Doc := WebBrowser1.Document as IHTMLDocument2; if Doc <> nil then begin pw := IHTMLWindow2(Doc.parentWindow); LockWindowUpdate(WebBrowser1.Handle); try scrollPos := pw.screen.height; pw.scrollBy(0, scrollPos); finally LockWindowUpdate(0); end; end; para mim aqui funcionou, porém não sei se é a solução mais correta.......

Olá Regys, estou com o problema que o NeoBiano mencionou, no meu caso o webbrowser rola até o item 48, depois ele não vai mais, peguei o Demo Daruma que tem na pasta projetos do Acbr, compilei no meu delphi aqui que é o XE5, deu a mesma coisa, ja no demo ele foi até o item 26, depois não rolou mais, será que é a versão do Delphi ? algum problema no componente webbrowser dessa versão do delphi.... muito estranho...

Roney de Lima Melo SCV Sistemas Ltda Campo Grande/MS Delphi xe5 Firebird 2.5 Olá pessoal boa noite, bom mais um caso de sucesso, homologamos PAF-ECF ER 02.01 pela UCDB Campo Grande MS Laudo UDB0072014, DAV, DAV-OS, Pré-Venda, NF-e, Venda Concomitante, TEF dedicado. Componentes Utilizados: ACBrECF, ACBrAAC, ACBrEAD, ACBrPAF, ACBrTEFD, ACBrGAV, ACBrBAL, ACBrIBPTax, ACBrSPEDFiscal, ACBrSintegra, ACBrNFe. Mais uma vez deixo aqui minha gratidão a toda equipe e parceiros do projeto ACBr, Muito obrigado pessoal, fiquem em paz e com Deus....

Que isso Daniel é um prazer poder colaborar com a ACBr só tenho elogios e agradecimentos a esta suite de componentes e seus mantedores... sempre que eu puder estarei postando, dúvidas, ajuda a um colega ou sugestões. vou dar o post como resolvido aqui.. Grato...

Olá Daniel, então no roteiro da Software Express especificamente não tem, porém no roteiro de testes da Certifield tem, segue em anexo a planilha com o roteiro de teste atualizado, vou realizar os testes lá dia 30/05, a extensão do arquivo esta .txt porque meu usuário não tem permissão para upar um arquivo com extensão .xls, depois que efetuar o download favor mudar a extensão para .xls. quando abrir a planilha veja a linha 7 destacada em vermelho lá esta bem específico exatamente oque vc soliciou, para atender este teste a mudança que efetuei acima e que foi aceita pela Software Express a Certifield não aceitou, então para resolver efetuei duas mudanças aqui, uma no arquivo ACBrTEFDCliSiTef.pas, exatamente na Constante CACBrTEFD_CliSiTef_TransacaoEfetuadaReImprimir a constante hoje esta: CACBrTEFD_CliSiTef_TransacaoEfetuadaReImprimir = 'Transação TEF efetuada.' + sLineBreak+ 'Favor reimprimir último Cupom.' + sLineBreak + 'NSU: %s' + sLineBreak + '(Para Cielo utilizar os 6 últimos dígitos.)'; mudei para CACBrTEFD_CliSiTef_TransacaoEfetuadaReImprimir = 'Transação TEF efetuada.' + sLineBreak+ 'Favor reimprimir último Cupom.' + sLineBreak + '%s' + sLineBreak + '(Para Cielo utilizar os 6 últimos dígitos.)'; outra alteração efetuei no arquivo ACBrTEFDClass.pas na linha 2460 onde tem o seguinte trecho de código: if Trim(Resp.NSU) <> '' then NSUs := NSUs + Resp.NSU + sLineBreak; alterei para if Trim(Resp.NSU) <> '' then NSUs := NSUs + 'NSU: ' + Resp.NSU + sLineBreak; com essas alterações consegui atender oque o teste exige, o resultado obtido esta na imagem: Bom segue as informações agora peço por gentiliza que analise, se realmente não seria necessário alterar o componente, pois sempre que for homologar Cielo vai ter esse empasse ai por parte deles. Teste de Desligamento_Rev07.txt

Pois é Régys, fiz a homologação com a Roberta, gente fina demais, mas bem criteriosa.. rsrs mas fiz isso ai que citei acima ela deu como válido....

Áh pessoal falei do sucesso da homologação mas me esqueci de mencionar uma coisa bem boba que o homologador invocou, é um teste de queda de energia com multiplos cartões, tipo o teste é, fazer uma trasação com dois cartões, na impressão do primeiro comprovante do segundo cartão desligar computador e ECF, quando ligar a transação tem que ser confirmada, o teste foi um sucesso, porém tive que efetuar uma mudança no arquivo ACBrTEFDCliSiTef.pas, na linha 58 que possui a seguinte constante: CACBrTEFD_CliSiTef_TransacaoEfetuadaReImprimir = 'Transação TEF efetuada.' + sLineBreak+ 'Favor reimprimir último Cupom.' + sLineBreak + 'NSU: %s' + sLineBreak + '(Para Cielo utilizar os 6 últimos dígitos.)'; como a transação foi com mais de um cartão o homologador invocou o pq não aparecia: nsu: 123131232 nsu : 323212311 forma padrão do componente mostra: nsu: 23123213213 32132321233 então para não ter um grande impacto apenas acrescentei um "(s)" para ficar: NSU(s) : 123123213 123234322 a constante modificada ficou: CACBrTEFD_CliSiTef_TransacaoEfetuadaReImprimir = 'Transação TEF efetuada.' + sLineBreak+ 'Favor reimprimir último Cupom.' + sLineBreak + 'NSU(s): %s' + sLineBreak + '(Para Cielo utilizar os 6 últimos dígitos.)'; fiz isso ele aceitou de boa e deu o teste como aprovado........ coisa bem simples, mas fica ai a informação caso mais algum dos colegas vá para Software Express homologar e passe pela mesma situação. Grato.......

Olá Daniel obrigado pelas informações, então não corrigiram... rsrs pois estava com a versão nova do DEMO deles, mas vou analisar certinho eu estava até agora pouco na homologação, ocorreu tudo certo, estou totalmente homologado, postei mais detalhes no tópico casos de sucesso criado pelo EMBarbosa. Mas assim que eu terminar, vou levantar mais detalhes e posto aqui....

Roney de Lima Melo SCV Sistemas Ltda Campo Grande/MS Homologado TEF Dedicado junto a Software Express utilizando a solução CliSitef. Utilizamos no nosso PDV: ACBrECF, ACBrTEFD, ACBrBAL, ACBrGAV, ACBrPAF, ACBrSPEDFiscal, ACBrAAC, ACBrSintegra. Delphi xe5 Firebird 2.5 Homologuei o sistema com Multiplos cartões, multiplas formas de pagamento, Saque, Cielo Premia, Consulta Cheque e Recarga de celular. Homologador nos parabenizou, pois, segundo ele, nosso sistema foi um dos mais rápidos a homologar, se contar as horas que ficamos lá da menos de um dia e meio, não tive que mudar quase nada no sistema, fica aqui meu MUITO OBRIGADO, a toda equipe de desenvolvedores, usuários e colaboradores desse excelente projeto que é o ACBr e seus componentes, pois facilitam e muito a vida de um programador de sistemas para automação comercial.

Marcelo usando a lógica e estudando o DEMO consegui aqui fazer da seguinte forma: DescMeiopgto {uma variável do tipo string}:= UpperCase(ACBrTEFD.TEFCliSiTef.Resp.ModalidadePagtoDescrita); essa função do ACBrTEFD me retorna a descrição da forma de pagamento que o usuário escolheu quando fez a recarga, ai faço a consulta no meu banco localizando a mesma ou uma equivalente, tipo o Sitef retorna Cartão Crédito, Cartão Débito, porém no banco de dados e no ECF esta configurado forma de pagamento TEF para ambos os casos, sendo assim é ela quem vou utilizar para efetuar o pagamento no comprovante não fiscal. usei esse esquema no mesmo evento que você postou ae... deu certinho filé...