Galera, preciso de muito pouco para termina o projeto.

29/04/2016

0

Seguinte, eu tenho uma rotina de impressão, que imprimi direto na impressora Fiscal, até ai tudo bem, mas eu queria que essa rotina também imprimisse dentro da impressora da cozinha , ela e compartilhada na rede, segue ai a rotina de impressão da ECF

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

Argos Oliveira

Responder

Posts

29/04/2016

Araujo Junior.

Sua rotina esta preparada para impressora Fiscal, a impressora da cozinha muito provavelmente é não fiscal então voce teria que criar uma rotina separada para tal e no mesmo comando que voce imprime na impressora fiscal abrir uma chamada para impressora matricial.
Responder

29/04/2016

Araujo Junior.

Outra coisa.... não sou moderador, mas use um titulo para seu tópico que indique sua duvida.

Exemplo:

Ajuda para impressão em rede.
Responder

29/04/2016

Argos Oliveira

Beleza, vou tentar aqui
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar