ActiveDelphi

[Renaldo72]

Estou precisando mais uma vez da ajuda dos universitários. Estou utilizando essa rotina abaixo que me ensinaram, mas estou tendo dois problemas

ROTINA:

try
Screen.Cursor := crHourGlass;
DM1.IB_exec.Close;
DM1.IB_exec.SQL.Clear;
DM1.IB_exec.SQL.Add( ' SELECT PRO_PRODUTO, ' );
DM1.IB_exec.SQL.Add( ' (SELECT COUNT(BAR_QUANTIDADE) ' );
DM1.IB_exec.SQL.Add( ' FROM BAR B ' );
DM1.IB_exec.SQL.Add( ' WHERE B.BAR_CODPRODUTO = P.PRO_CODPRODUTO ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA >= :P00 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA <P01>= :P02 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_TIME <P03>= :P04) AS Qte_Vendida ' );
DM1.IB_exec.SQL.Add( ' FROM PRODUTO P ' );
DM1.IB_exec.SQL.Add( ' Order by 2 Desc ' );
DM1.IB_exec.Params[00].AsDate := DateTimePicker1.Date;
DM1.IB_exec.Params[01].AsDate := DateTimePicker2.Date;
DM1.IB_exec.Params[02].AsTime := D5.Time;
DM1.IB_exec.Params[03].AsTime := D6.Time;
DM1.IB_exec.Params[04].AsInteger := 1;
DM1.IB_exec.Open;
Screen.Cursor := crDefault;
except
Screen.Cursor := crDefault;
end;


PROBLEMAS:

1º - Não mostra os valores unitários e totais.
2º - Está demorando para montar a pesquisa.

Como faço para resolver esses problemas?

desde já agradeço

sds,

Renaldo

[Renaldo72]

E ai ninguém de plantão?

sds,

Renaldo

[anderbelluno]

Amigo duas coisas

<P01>= :P02 ' ); Olha seus parametros

P00, mas vc passa DM1.IB_exec.Params[00].AsDate

depois olha <P01> = ...

ta da uma corrijidinha ai

[Renaldo72]

Ok anderbelluno, vou verificar obrigado.

sds,

Renaldo

[Renaldo72]

anderbelluno ta certo aqui. Deve ter sido na hora de copiar e colar aqui mas tirei os <

try
Screen.Cursor := crHourGlass;
DM1.IB_exec.Close;
DM1.IB_exec.SQL.Clear;
DM1.IB_exec.SQL.Add( ' SELECT PRO_PRODUTO, ' );
DM1.IB_exec.SQL.Add( ' (SELECT COUNT(BAR_QUANTIDADE) ' );
DM1.IB_exec.SQL.Add( ' FROM BAR B ' );
DM1.IB_exec.SQL.Add( ' WHERE B.BAR_CODPRODUTO = P.PRO_CODPRODUTO ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA >= :P00 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA P01>= :P02 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_TIME P03>= :P04) AS Qte_Vendida ' );
DM1.IB_exec.SQL.Add( ' FROM PRODUTO P ' );
DM1.IB_exec.SQL.Add( ' Order by 2 Desc ' );
DM1.IB_exec.Params[00].AsDate := DateTimePicker1.Date;
DM1.IB_exec.Params[01].AsDate := DateTimePicker2.Date;
DM1.IB_exec.Params[02].AsTime := D5.Time;
DM1.IB_exec.Params[03].AsTime := D6.Time;
DM1.IB_exec.Params[04].AsInteger := 1;
DM1.IB_exec.Open;
Screen.Cursor := crDefault;
except
Screen.Cursor := crDefault;
end;

[anderbelluno]

ainda tá errado pq vc diz P00 no sql e no parabyname vc diz 00

coloca P00 no parabyname tbm.
confere os nomes dos parâmetros.

vlw

[Renaldo72]

anderbelluno não estou entendendo onde você que chegar pois a consulta esta funcionando normalmente com exceção da lentidão quando tem muito dados. Qero incluir o valor individual e total da quantidade vendida.

sds,

Renaldo

[anderbelluno]

Amigo. Não quero parecer chato.
Mas segundo ao que conheço, quando vc usa paramentros em sql os campos devem ser informados com o mesmo nome.

olha isso:
select * from tabela where campo = :P00
qry.parambyname('P00').asstring := 'valor';

esse seria o modo correto.
Não entendo como não gere uma aceção dizendo que não encontra o parâmetro informado no seu sql.
Mas como vc disse, funciona mas tá lento qual do tem muitos registros.

Procura sobre o Rest Dataware.
hj traz mediamente 50.000 registros em 17 segundos.
migrei e não me arrependo nenhum pouco, ao contrário to muito feliz.

[anderbelluno]

Amigo. Não quero parecer chato.
Mas segundo ao que conheço, quando vc usa paramentros em sql os campos devem ser informados com o mesmo nome.

olha isso:
select * from tabela where campo = :P00
qry.parambyname('P00').asstring := 'valor';

esse seria o modo correto.
Não entendo como não gere uma aceção dizendo que não encontra o parâmetro informado no seu sql.
Mas como vc disse, funciona mas tá lento qual do tem muitos registros.

Procura sobre o Rest Dataware.
hj traz mediamente 50.000 registros em 17 segundos.
migrei e não me arrependo nenhum pouco, ao contrário to muito feliz.

[natanbh1]

[anderbelluno]

Ronaldo, peço desculpas pois não conhecia o metodo de passar o parâmetro pelo index como disse o natan.

natan vlw pela dica, pois é mais uma que eu não sabia.

Pergunta,
Chegou a testar o mesmo sql com o Rest Dataware??

[Renaldo72]

Não conheço Rest Dataware mas se fosse possível queria uma solução da forma padrão, pois estou meio corrido para pesquisar, analisar e implantar no sistema. Tem como?

sds,

Renaldo

[lokasso]

Renaldo72 você já tentou debugar em runto cursor <f4> para ver em qual linha ele fica mais lento?

Qual o banco que você está usando e qual a versão?

Qual o componente que você está usando para conexão ao banco?

O banco é local ou remoto?

Quanto tempo demora uma consulta?


Abraços

[Renaldo72]

lokasso, eu não fiz o debug em run a base de dados é o firebird 2.54 o componente uma ibquery o acesso é local a demora varia mas fica em torno de uns 1 minuto em alguns casos até 3 minutos.

[Renaldo72]

Mas na verdade o meu maior problema está em não está conseguindo pegar a quantidade, os valores individuais e a soma de acordo a quantidade e a soma total, só consigo a quantidade de cada produto.


ROTINA:

try
Screen.Cursor := crHourGlass;
DM1.IB_exec.Close;
DM1.IB_exec.SQL.Clear;
DM1.IB_exec.SQL.Add( ' SELECT PRO_PRODUTO, ' );
DM1.IB_exec.SQL.Add( ' (SELECT COUNT(BAR_QUANTIDADE) ' );
DM1.IB_exec.SQL.Add( ' FROM BAR B ' );
DM1.IB_exec.SQL.Add( ' WHERE B.BAR_CODPRODUTO = P.PRO_CODPRODUTO ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA >= :P00 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_DATA <P01>= :P02 ' );
DM1.IB_exec.SQL.Add( ' AND B.BAR_TIME <P03>= :P04) AS Qte_Vendida ' );
DM1.IB_exec.SQL.Add( ' FROM PRODUTO P ' );
DM1.IB_exec.SQL.Add( ' Order by 2 Desc ' );
DM1.IB_exec.Params[00].AsDate := DateTimePicker1.Date;
DM1.IB_exec.Params[01].AsDate := DateTimePicker2.Date;
DM1.IB_exec.Params[02].AsTime := D5.Time;
DM1.IB_exec.Params[03].AsTime := D6.Time;
DM1.IB_exec.Params[04].AsInteger := 1;
DM1.IB_exec.Open;
Screen.Cursor := crDefault;
except
Screen.Cursor := crDefault;
end;


PROBLEMAS:

1º - Não mostra os valores unitários e totais.
2º - Está demorando para montar a pesquisa.

Como faço para resolver?