Anderson William

O problema é um pouco difícil de explicar mas vou tentar... Para testar eu fiz: 1 sangria de 5 R$ 1 suprimento de 10 R$ 1 pagamento de título de 12,15 R$ No ECF estão cadastrado assim os totalizadores não fiscais: 06 BORDERO 07 CHEQUES 08 DESPESAS 09 PAGTO DE TITULO 29 SANGRIA 30 SUPRIMENTO Esse " for " faz um loop nos comprovantes não fiscais for I := 0 to fpComprovantesNaoFiscais.Count - 1 do begin Clipboard.AsText := S; // EU COLOQUEI !!! CNFZ := TACBrECFComprovanteNaoFiscal.Create ; CNFZ.Assign( fpComprovantesNaoFiscais ); CNFZ.Total := RoundTo( StrToFloatDef( copy(S,(I*14)+1,14),0) / 100, -2) ; CNFZ.Contador := StrToIntDef( copy(SS,(I*4)+1,4), 0); TotalizadoresNaoFiscais.Add( CNFZ ) ; end; o texto que ele extrai o valor dos totalizadores não fiscais é esse abaixo, que eu peguei por meio do clipboard que acrescentei no código acima: 00000000000500000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000121500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 No " for " ele pega os valores de 14 em 14 digitos, sendo que os últimos dois dígitos reservados para casas decimais No primeiro loop o CNFZ.Total recebe 00000000000500 que é referente a sangria que eu fiz, até ai está ok, fiz uma sangria de 5 R$. No segundo loop o CNFZ.Total recebe 00000000001000 que é referente ao suprimento que eu fiz, também está ok. No terceiro loop ele continua de 14 em 14, ai o CNFZ.Total recebe 00000000000000 que é referente ao borderô, também está ok, não realizei borderô. No quarto loop o CNFZ.Total recebe 00000000000000 que é referente aos cheques, também está ok, não fiz cheques. No quinto loop o CNFZ.Total recebe 00000000000000 que é referente as despesas, também está ok, não fiz despesas. No sexto loop o CNFZ.Total recebe 00000000000000 que deveria ser referente aos títulos pagos, está errado paguei títulos no valor de 12,15. Se prestar atenção o valor 1215 está bem a frente, precisaria de mais uns três loops para pegar corretamente. Ai, fiz isso para pegar o valor correto: if pos('PAGTO DE T', CNFZ.Descricao) > 0 then begin CNFZ.Total := RoundTo(StrToCurr(copy(RetCmd,823,14)) / 100, -2); {aqui, ele pega de acordo com a posição na variável RetCmd...} CNFZ.Contador := StrToInt(copy(RetCmd,81,4)); end pegando direto da posição correta da String. Ufa! Espero ter explicado melhor.

mas Daniel Simões eu estou alterando na unit ACBrECFBematech. Que é a implementação expecífica da bematech. Ou seja só estou alterando para a bematech, essa alteração não vai impactar nas outras impressoras.

ok, obrigado regys silveira, irei tratar da melhor forma para os nossos clientes.

No nosso sistema, como sempre estará cadastrado os títulos pagos como índice 09. Então sempre estará na mesma posição. Até agora, pelos testes que eu fiz deu certo.

Só alterei no ACBrECFBematech... Antes estava assim, porém por causa da ordem do título recebido estava vindo zerado: for I := 0 to fpComprovantesNaoFiscais.Count - 1 do begin CNFZ := TACBrECFComprovanteNaoFiscal.Create ; CNFZ.Assign( fpComprovantesNaoFiscais ); CNFZ.Total := RoundTo( StrToFloatDef( copy(S,(I*14)+1,14),0) / 100, -2) ; CNFZ.Contador := StrToIntDef( copy(SS,(I*4)+1,4), 0); TotalizadoresNaoFiscais.Add( CNFZ ) ; end; apenas mudei para pegar os títulos recebidos de acordo com a posição que ele se encontra na variável RetCmd. for I := 0 to fpComprovantesNaoFiscais.Count - 1 do begin CNFZ := TACBrECFComprovanteNaoFiscal.Create ; CNFZ.Assign( fpComprovantesNaoFiscais ); if pos('PAGTO DE T', CNFZ.Descricao) > 0 then begin CNFZ.Total := RoundTo(StrToCurr(copy(RetCmd,823,14)) / 100, -2); {aqui, ele pega de acordo com a posição na variável RetCmd...} CNFZ.Contador := StrToInt(copy(RetCmd,81,4)); end else begin CNFZ.Total := RoundTo(StrToFloatDef( copy(S,(I*14)+1,14),0) / 100, -2) ; CNFZ.Contador := StrToIntDef( copy(SS,(I*4)+1,4), 0); end; TotalizadoresNaoFiscais.Add( CNFZ ) ; end;

Pelo visto sempre será ECF-IF que é para Equipamento Emissor de Cupom Fiscal do tipo Impressora Fiscal é isso? Alguém pode confirmar?

Eu sei que tem três tipos do ecf: ECF-IF, ECF-PDV e ECF-MR. Mas tem alguma função do acbr que retorna qual tipo é? Ex: Na bematech tem Bematech_FI_MarcaModeloTipoImpressoraMFD(sMarca, sModeloImp, sTipo); Na daruma tem: rRetornarInformacao_ECF_Daruma('79', sTipo); sendo sTipo a variável String que irá receber o valor retornado pela impressora. Alguém sabe se existe no acbr?

No caso a mensagem que aparece é A impressora bematech não está pronta. Deseja tentar novamente, a questão é que eu queria padronizar uma resposta ao usuário dizendo: "a impressora encontra-se desligada". E não sei se na Homologação eles vão pedir que caso esteja desligada mostre uma mensagem específica, vou verificar nas leis, se tem algo relacionado a isso. Valeu Daniel Simoes.

Resolvi modificando o ACBrECFBematech, usei um copy e peguei diretamente o valor do título recebido por meio da sua posição nos dados da redução z. Se alguém tiver uma forma melhor, fico no aguardo, para poder melhorar.

Há alguma função do acbr para verificar se a impressora está ligada? Procurei mas não encontrei nada no ACBRMonitor: http://acbr.sourceforge.net/ACBrMonitor/ACBrMonitor.html Aguardo ajudas.

EM Barbosa, vou verificar se é isso mesmo. Realmente está cadastrado assim: 06 BORDERO 07 CHEQUES 08 DESPESAS 09 PAGTO DE TITULO 29 Sangria 30 Suprimento Valeu cara, me deu uma luz...

ok, só para concluir... essa parte do código que era para retornar os títulos pagos está vindo zerado. for I := 0 to ReducaoZ.TotalizadoresNaoFiscais.Count - 1 do begin with ReducaoZ.TotalizadoresNaoFiscais do begin Indice Descricao PermiteVinculado FormaPagamento Total Contador end; end; Vou continuar procurando o problema. Valeu.

Na redução z tem uma parte que é destinada aos totalizadores não fiscais: ex: Borderô, Cheques, Sangria, Suprimento, despesas, Pagamento de títulos (pagamento de vendas a prazo). O problema é que após a redução z não estou conseguindo recuperar o valor do pagamento de títulos, para colocar no totalizador não fiscal (OPNF) da tabela R03. Entendeu agora?

Mas Daniel Simões, o R02 e R03 não é relativa a última redução z (no caso a que acabou de ser tirada)? Estou pegando as informações de acordo com esse exemplo: http://www.regys.com.br/lendo-dados-da-reducao-z-utilizando-o-acbr/ Até nesse próprio exemplo quando baixei os fontes (http://www.regys.com.br/downloads/) e testei não apareceu o título pago. Eu estava vendo o código do ACBR por dentro e cheguei aqui: Classe: ACBrECFBematech S := copy(RetCmd,1103,28) + // Sangria(14) + Suprimento(14) copy(RetCmd,739,364) ; // Não ICMS (392) 28 * 14 (2 primeiros vem vazios ??) SS := copy(RetCmd,161,8) + // Contadores: Sangria(4) + Suprimento(4) copy(RetCmd,57,104); // Não ICMS(112) 28 * 4 (2 primeiros vem vazios ??) // aqui ele pega os totais de cada comprovante não fiscal e adiciona ao TotalizadoresNaoFiscais; for I := 0 to fpComprovantesNaoFiscais.Count - 1 do begin Clipboard.AsText := S; // EU COLOQUEI !!! CNFZ := TACBrECFComprovanteNaoFiscal.Create ; CNFZ.Assign( fpComprovantesNaoFiscais ); CNFZ.Total := RoundTo( StrToFloatDef( copy(S,(I*14)+1,14),0) / 100, -2) ; CNFZ.Contador := StrToIntDef( copy(SS,(I*4)+1,4), 0); TotalizadoresNaoFiscais.Add( CNFZ ) ; end; Por meio do clipboard peguei essa informação: Ele pega de 14 em 14, a sangria que foi de 5 reais e o suprimento que foi de 10 está correto, pois ele conta com duas casas decimais depois do valor mas o título pago que foi 12,15 que está lá na frente não está pegando... 00000000000500000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000121500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 Se alguém puder dar uma conferida na classe para me ajudar, serei muito grato.

Na impressora Bematech MP-2100 TH-FI, eu faço um pagamentos de um título no valor de 20R$ uma sangria de 10R$ e um lastro de 5R$, quando tiro a Redução Z no totalizador ele aparece correto o valor dos três, porém quando vou pegar os dados da última redução z, no totalizador dos títulos pagos está vindo zerado. Aparece assim: SA SANGRIA 10 SU SUPRIMENTO 5 09 PAGTO DE TITULO 0 Sendo que eu fiz o pagamento de título de 20R$. Alguém poderia me ajudar, só está faltando isso para eu terminar o registro R03.

Para Consultar as NF-e destinadas estou fazendo a seguinte rotina: if ACBrNFe1.ConsultaNFeDest(CNPJ, inTodas, ieTodos, ultNUSU) then begin {gravo no banco o ultimo NSU gerado} GPField('ULTNUSU').AsString := ACBrNFe1.WebServices.ConsNFeDest.ultNSU; {no memo mostro o retorno completo da consulta} memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsNFeDest.RetornoWS); {no componente WBResposta do TWebBrowser mostro o xml da consulta} LoadXML(memoRespWS, WBResposta); end; até aqui tudo ok... porém quero mostrar esse retorno, como os campos chave da nfe (chNfe), CNPJ (CNPJ) que vem no xml em um StringGrid para poder facilitar a vida do cliente na hora de realizar a manifestação, sem que ele precise verificar a chave no próprio xml. Alguém sabe como posso pegar esses retornos individualmente para poder colocá-los mais organizados na StringGrid?