F�rum Rave Reports com Servi�o do Windows #521178

28/05/2015

Ol� Galera, Tudo bem?
Pesquisei bastante antes de abrir esse post. Porem n�o encontrei nada esclarecedor. Pois bem vamos a duvida.
Seguinte, eu tenho uma aplica��o que monitora uma tabela e caso algum registro com flag_imprmir = 1 seja entrado,
essa aplica��o imprime a ficha, e est�funcionando corretamente.
Porem ao criar um servi�o do windows com a mesma tarefa o mesmo n�o imprime. N�o gera erro nenhum, porem n�o manda nada para a impress�o.
Segue a parte do c�digo que executa a impress�o.

        while not cdsPedidosItensAberto.Eof do
        begin
          Item     := cdsPedidosItensAbertoCOD_ITEM.AsString;
          qtd      := cdsPedidosItensAbertoITEM_QTD.AsString;
          Prod     := cdsPedidosItensAbertoITEM_NOME.AsString;
          Crispy   := cdsPedidosItensAbertoITEM_CRISPY.AsString;
          Salsicha := cdsPedidosItensAbertoITEM_SALSICHA.AsString;
          Add      := cdsPedidosItensAbertoITEM_ADICIONAIS.AsString;
          Rem      := cdsPedidosItensAbertoITEM_REMOVER.AsString;
          Cod_Setor:= cdsPedidosItensAbertoCOD_SETOR.AsString;
          Obs      := cdsPedidosItensAbertoITEM_OBS.AsString;
          rvpImpressao.ClearParams;
          rvpImpressao.SetParam('MESA',Mesa);
          rvpImpressao.SetParam('HORA',DATA_HORA);
          rvpImpressao.SetParam('PEDIDO',pedido);
          rvpImpressao.SetParam('ITEM',Item);
          rvpImpressao.SetParam('PROD',qtd+' * '+prod);
          rvpImpressao.SetParam('OBS',Obs);
          rvpImpressao.SetParam('TotalLiquido',FloatToStr(Troco));
          RpDev.SelectPrinter(Printer(Cod_setor),false);
          GeraLog('Imprimindo '+Pedido+':'+item+' no setor');
          rvpImpressao.ExecuteReport('Ficha');
          ExecSQLRaul('UPDATE GP_PEDIDOS_ITEM SET ITEM_FLAG_PRINT=1 WHERE COD_PEDIDO = '+cdsPedidosItensAbertoCOD_PEDIDO.AsString,ConexaoLocal);
          cdsPedidosItensAberto.Next;
        end;

Desde j� fico muito grato.

Rawgleison

Curtir t�pico

+ 0

Responder