Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 4544 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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

  • 5 semanas depois ...
Postado

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

  • Este tópico foi criado há 4544 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.