warlockplus

Bom dia pessoal! Precisave de converter o seguinte código SQL Server para o Firebird: SET NOCOUNT ON DECLARE @QTDELITROS FLOAT, @SOMAKM FLOAT, @SOMAFINAL FLOAT, @TOTALLITROS FLOAT, @I INT DECLARE MEDIA_COMB CURSOR FOR SELECT KM, QTDE FROM ABASTECIMENTO OPEN MEDIA_COMB FETCH NEXT FROM MEDIA_COMB INTO @SOMAKM, @QTDELITROS SET @TOTALLITROS = 0.00 SET @I = 0 WHILE @@FETCH_STATUS = 0 BEGIN PRINT STR(@SOMAFINAL) + ' ' + STR(@QTDELITROS) IF @I = 0 SET @I = 1 ELSE SET @TOTALLITROS = @TOTALLITROS + @QTDELITROS FETCH NEXT FROM MEDIA_COMB INTO @SOMAFINAL, @QTDELITROS END PRINT (@SOMAFINAL - @SOMAKM)/@TOTALLITROS CLOSE MEDIA_COMB DEALLOCATE MEDIA_COMB SET NOCOUNT OFF E algo parecido que eu preciso tenho que fazer alguns ajustes mais migrando para o firebird já era 99%. Obrigado galera.

Bom dia galera! Estou começando com Delphi porém não tenho a manha ainda, porém nestes últimos dias aprendi bastante coisas interessantes neste fórum muitas coisas q precisa saber já tinha sido respondida. Vamos ao que interessa: Preciso montar um relatório com o quickrep com a seguinte estrutura e não faço a menor idéia de como fazer para ficar com a estrutura que eu preciso. É uma união de três tabelas: empresa, fornecedor e rpa. Com o seguinte layout:(Por Empresa) Empresa Fornecedor Data Emissão Valor XXXXXXX XXXXXXXXXXX XXXXXXXXXXXX R$ 2,00 XXXXXXX YYYYYYYYYYYY XXXXXXXXXXXX R$ 1,00 Total ...................................: R$ 3,00 YYYYYYYY XXXXXXXXXXX XXXXXXXXXXXX R$ 5,00 YYYYYYYY YYYYYYYYYYYY XXXXXXXXXXXX R$ 7,00 Total .................................: R$ 12,00 Total Geral.........................: R$ 15,00 Com o seguinte layout:(Por Fornecedor) Empresa Fornecedor Data Emissão Valor XXXXXXX XXXXXXXXXXX XXXXXXXXXXXX R$ 2,00 YYYYYYYY XXXXXXXXXXX XXXXXXXXXXXX R$ 1,00 Total ...................................: R$ 3,00 XXXXXXX YYYYYYYYYYYY XXXXXXXXXXXX R$ 5,00 YYYYYYYY YYYYYYYYYYYY XXXXXXXXXXXX R$ 7,00 Total .................................: R$ 12,00 Total Geral.........................: R$ 15,00 Onde o usuário vai informar o layou desejado(isso é o de menos) o principal é que eu não sei fazer fica nessa estrutura. Conto com vocês. Abraço e valeu.