acbrecf1.TotalTroco

[ricardo54351060]

Boa noite pessoal, estou começando a usar o componente para implementar um programinha de frente de loja, onde o mesmo já faz todos os processos, o detalhe é o seguinte, implementei um relatorio gerencial e estou tentando puxar o total de troco do dia com o commando ACBRECF1.TotalTroco, porém quando tem qualquer valor de troco ele sempre retorna 1000000, no cliente é uma impressora sweda st200 e estou fazendo os testes no emulador da sweda ambos retornam este valor.

agradeco desde ja

[giulianon]

Está usando qual modelo?

SWEDA ou SWEDASTX?

Att.

[ricardo54351060]

Opa boa noite

no emulador é o SWEDA Connect/SIM e na impressora é a Sweda IF ST100 e uma Sweda IF ST200, mas em todos o mesmo problema

[ricardo54351060]

utilizo a SWEDA

[Daniel Simoes]

Use a classe ecfSwedaSTX

[ricardo54351060]

Obrigado pela ajuda, coloquei a stx, porem com ela traz o troco zerado, tenho que dar algum comando para carregar a classe!?

vlw

[Daniel Simoes]

Qual comando você está enviando?

Copie num techo do Log para melhor compreensão

[ricardo54351060]

Desculpe pela demora, segue uma parte do codigo

ACBrECF1.LerTotaisAliquota;

ACBrECF1.LerTotaisFormaPagamento;

ACBrECF1.LerTotaisComprovanteNaoFiscal;

ACBrECF1.LerTotaisRelatoriosGerenciais;

ACBrECF1.DadosReducaoZ;

IndiceStr := 'RG1';

ACBrECF1.AbreRelatorioGerencial(StrToIntDef(IndiceStr, 0)) ;

ACBrECF1.LinhaRelatorioGerencial('********** R E L A T O R I O ***********', 1 );

ACBrECF1.LinhaRelatorioGerencial(FormatDateTime('dd/MM/yyyy', ACBrECF1.DataMovimento) + ' ' + FormatDateTime('hh:mm:ss', ACBrECF1.DataHora));

ACBrECF1.LinhaRelatorioGerencial('----------------------------------------', 1 );

ACBrECF1.LinhaRelatorioGerencial('Operador: ' + ACBrECF1.Operador, 1);

ACBrECF1.LinhaRelatorioGerencial('-------- MOVIMENTO DO OPERADOR ---------', 1);

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', ACBrECF1.VendaBruta),' ','E',9);

ACBrECF1.LinhaRelatorioGerencial('VENDA BRUTA: ' + completa);

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', ACBrECF1.TotalCancelamentos),' ','E',9);

completa1:= ACBrECF1.NumCFC; {RETORNA O VALOR ZERADO}

if trim(completa1) = '' then completa1 := '0';

ACBrECF1.LinhaRelatorioGerencial('QTD/TOTAL CANCELAMENTO: '+ FormatFloat('0000', StrToFloat(completa1)) + ' ' + completa);

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', ACBrECF1.TotalDescontos),' ','E',9);

ACBrECF1.LinhaRelatorioGerencial('TOTAL DESCONTOS: ' + completa);

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', ACBrECF1.TotalAcrescimos),' ','E',9);

ACBrECF1.LinhaRelatorioGerencial('TOTAL ACRESCIMOS: ' + completa);

totalRecebido := ACBrECF1.VendaBruta -

ACBrECF1.TotalCancelamentos -

ACBrECF1.TotalDescontos +

ACBrECF1.TotalAcrescimos;

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', totalRecebido),' ','E',9);

ACBrECF1.LinhaRelatorioGerencial('VENDA LIQUIDA: ' + completa);

ACBrECF1.LinhaRelatorioGerencial(' ');

ACBrECF1.LinhaRelatorioGerencial('--------- MODALIDADE RECEBIDA ----------', 1);

troco := ACBrECF1.TotalTroco;

completa := Publico.CompletaTexto(FormatFloat('##,##0.00', troco),' ','E',9);

ACBrECF1.LinhaRelatorioGerencial('Total troco: ' + completa);