Fórum Galera, preciso de muito pouco para termina o projeto. #552657

procedure TFrmMesas.BtnConferenciaClick(Sender: TObject);
var cAuxTotal : currency;
    iAuxCOO : integer;
    iAuxCER : integer;
    sIndice : string;
begin
   cAuxTotal:= 0;
   sIndice := trim(dm.IndiceRelGerencial('MESA'));

   {Imprime o Cabeçalho}
   AbreRelatoroGerencial(iECF, sIndice);
   ImprimeRelatorioGerencial(iECF, '              CONFERÊNCIA DE MESA');
   ImprimeRelatorioGerencial(iECF, ' ');
   ImprimeRelatorioGerencial(iECF, 'Mesa: ' + FormataStringD(trim(EdtMesa.Text), '3', '0'));
   ImprimeRelatorioGerencial(iECF, 'Data Abertura: ' + LData.Caption);
   ImprimeRelatorioGerencial(iECF, 'Hora Abertura: ' + LHora.Caption);
   ImprimeRelatorioGerencial(iECF, '------------------------------------------------');
   ImprimeRelatorioGerencial(iECF, 'Item       Descrição       Qtd    Valor    Total');
   ImprimeRelatorioGerencial(iECF, '------------------------------------------------');

   { Impriem os Itens }
   with QBuscaItens do
      begin
         DisableControls;
         First;
         while not eof do
            begin
               ImprimeRelatorioGerencial(iECF, FormataStringD(QBuscaItensORDEM.AsString, '3', '0') + ' '   +
                                               FormataStringE(copy(QBuscaItensDESC_CUPOM.Text, 1, 20), '20', ' ') +
                                               FormataStringD(currtostrf(QBuscaItensQUANT.AsCurrency, ffnumber, 3), '7', ' ') +
                                               FormataStringD(currtostrf(QBuscaItensVALOR.AsCurrency, ffnumber, 2), '8', ' ') +
                                               FormataStringD(currtostrf(QBuscaItensCALC_TOTAL.AsCurrency, ffnumber, 2), '9', ' '));
               if QBuscaItensCANCELADO.AsInteger = 1 then
                  ImprimeRelatorioGerencial(iECF, FormataStringD('CANCELADO', '30', ' ')  + FormataStringD(currtostrf(QBuscaItensCALC_TOTAL.AsCurrency * -1, ffnumber, 2), '18', ' '));

               if QBuscaItensCONTA_ORIGEM.AsInteger > 0 then
                  ImprimeRelatorioGerencial(iECF, '    Transf. da Mesa: ' + FormataStringD(QBuscaItensCONTA_ORIGEM.AsString, '3', '0'));

               IF QBuscaItensCANCELADO.AsInteger = 0 then
                  cAuxTotal:= cAuxTotal + QBuscaItensCALC_TOTAL.AsCurrency;
               next;
            end;
         EnableControls;
      end;
   ImprimeRelatorioGerencial(iECF, '------------------------------------------------');
   ImprimeRelatorioGerencial(iECF, FormataStringD('TOTAL: ', '39', ' ') + FormataStringD(currtostrf(cAuxTotal, ffnumber, 2), '9', ' '));
   ImprimeRelatorioGerencial(iECF, ' ');

   ImprimeRelatorioGerencial(iECF, 'AGUARDE A EMISSÃO DO CUPOM FISCAL');

   { Fecha o Relatório Gerencial }
   FechaRelatorioGerencial(iECF);