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);

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

utilizo a SWEDA

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

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