ActiveDelphi

[netbiosnet]

qrConsumo.close;
qrconsumo.sql.clear;
qrconsumo.sql.add('select ITEMMESAS_NETBIOS.*');
qrconsumo.sql.add('select ITEMMESAS_NETBIOS.*, DISTINCT(C000025.produto), C000025.unidade, sum(ITEMMESAS_NETBIOS.qtde)');
qrconsumo.sql.add('from ITEMMESAS_NETBIOS, c000025');
qrconsumo.sql.add('where ITEMMESAS_NETBIOS.cod_produto = c000025.codigo');
qrconsumo.sql.add('and ITEMMESAS_NETBIOS.numcaixa = '+ ExtrairMesa(StatusBar1.Panels[5].Text));
qrconsumo.SQL.add('group BY c000025.produto, C000025.unidade,');
qrconsumo.SQL.add('itemmesas_netbios.codigo,itemmesas_netbios.cod_mesa,');
qrconsumo.SQL.add('itemmesas_netbios.cod_produto, itemmesas_netbios.qtde,');
qrconsumo.SQL.add('itemmesas_netbios.unitario, itemmesas_netbios.total,');
qrconsumo.SQL.add('itemmesas_netbios.complemento,itemmesas_netbios.transf_mesa,');
qrconsumo.SQL.add('itemmesas_netbios.cancelado, itemmesas_netbios.data_vendas,');
qrconsumo.SQL.add('itemmesas_netbios.fechamento,itemmesas_netbios.status,');
qrconsumo.SQL.add('itemmesas_netbios.caixa,itemmesas_netbios.numcaixa,');
qrconsumo.SQL.add('itemmesas_netbios.numvenda');
qrconsumo.SQL.add('order by c000025.produto');
qrconsumo.open;

[joemil]

veja sua MP
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/