[Risolto] SUM condizionale in espressione SQL

[Maxx]

Buonasera.
Quesito tecnico su istruzione SQL.
Ho una tabella fatta più o meno così:
Campo1 - Campo2 - ... - Data (Timestamp) - Valore (Single) - Tipo (Stringa 'A' o 'B' o altri valori da escludere) - ...

Volendo creare una tabella con le seguenti colonne:
-----------------------------------------------------------------------------------------
Data         | Somma valori per tipo A    | Somma valori per tipo B    | Totale A + B


Qual è l'istruzione sql più idonea? Io ci sono arrivato loopando per 7 volte (la tabella rappresenta il valore "incasso" della settimana)

   'Select SUM(Valore) FROM Incassi r ' +
     'WHERE CAST(r.Data_Mov as DATE) = :Dat_Calc ' +
     'AND r.Tipo_Pagam = :Pag_Tipo';

   ModDati.Qry_Pag.ParamByName('Dat_Calc').AsDate   := p_Ini;   
   ModDati.Qry_Pag.ParamByName('Pag_Tipo').AsString := 'A'; //Pagamento a mezzo Cash
   ModDati.Qry_Pag.Open;

   'Select SUM(Valore) FROM Incassi r ' +
     'WHERE CAST(r.Data_Mov as DATE) = :Dat_Calc ' +
     'AND r.Tipo_Pagam = :Pag_Tipo';

   ModDati.Qry_Pag.ParamByName('Dat_Calc').AsDate   := p_Ini;   
   ModDati.Qry_Pag.ParamByName('Pag_Tipo').AsString := 'B'; //Pagamento a mezzo Carte di credito
   ModDati.Qry_Pag.Open;

Ovviamente la mia idea era quella di fare un
o---------------------o
Select  CAST(r.Data_Mov as DATE),
   Sum(Valore) Per Tipo_Pagam = 'A' AS Val_Cash,
   Sum(Valore) Per Tipo_Pagam = 'B' AS Val_CdC,
   Val_Cash + Val_CdC AS Totale
From Incassi
Where Data_Mov > :Data_Ini and Data_Mov < :Data_Fin
Group by CAST(r.Data_Mov as DATE)
o---------------------o

Spero di essermi spiegato decentemente...

Grazie, Maxx

[xinyiman]

Ciao Maxx, ed esattamente cosa non ti funziona di quella query? Che errore ti ritorna?

[Maxx]

Ciao xinyi
Semplicemente non funziona!
Provato con where, con having, con in... Immagino sia questione di grammatica SQL di cui ho precaria conoscenza.
Nelle "prove" con SQL manager mi ritorna un errore appena dopo il Sum(Valore). Immagino che la struttura CASE sia diversa da quella che conoscevo io e non riesco a replicarla in FireBird.

Grazie per l'attenzione, xinyi.

[xinyiman]

Allegaci la query corretta, perchè

"Select  CAST(r.Data_Mov as DATE),
   Sum(Valore) Per Tipo_Pagam = 'A' AS Val_Cash,
   Sum(Valore) Per Tipo_Pagam = 'B' AS Val_CdC,
   Val_Cash + Val_CdC AS Totale
From Incassi
Where Data_Mov > :Data_Ini and Data_Mov < :Data_Fin
Group by CAST(r.Data_Mov as DATE)"

è troppo generica. Inoltre non è il caso di fare quei cast se il dato è già corretto.

[Maxx]

Il cast serve (almeno nel grouping), altrimenti essendo il campo un type Timestamp non raggruppa nulla, considerando per ogni millesimo di secondo un record di group diverso.

o----------o

Per quel che riguarda l'istruzione, dovrebbe essere proprio simile a questa (a parte il *Per, ovviamente):

"Select  CAST(r.Data_Mov as DATE),
   Sum(Valore) *Per Tipo_Pagam = 'A' AS Val_Cash,
   Sum(Valore) *Per Tipo_Pagam = 'B' AS Val_CdC,
   Val_Cash + Val_CdC AS Totale
From Incassi
Where Data_Mov > :Data_Ini and Data_Mov < :Data_Fin
Group by CAST(r.Data_Mov as DATE)

Da una tabella incassi, voglio sommare, raggruppati per data, tutti i valori del campo "Valore" divisi per tipologia di pagamento (mi servono altre distinzioni, ma una volta appreso, il procedimento sarebbe lo stesso).

[xinyiman]

Se ti riferisci al case di postgres allora su firebird puoi usare iif

https://firebirdsql.org/refdocs/langrefupd20-iif.html

Per il raggruppamento della data ti consiglio di usare il comando extract

https://firebirdsql.org/refdocs/langrefupd21-intfunc-extract.html

estrai l'anno, il mese e la data e poi tramite il cast li trasformi in stringhe e le accodi in modo da avere una stringa del tipo YYYYMMDD e fai il group by su quello. Però notavo che tu non raggruppi per tipo di pagamento e quindi il sum ti sommerà sempre tutto e poi lo moltiplica per il tipo di pagamento, così non potrà mai funzionare. Questo perchè vuoi mettere i valori sulle singole colonne.

[Maxx]

L' IIF fa una scelta su ogni singolo record. A me invece servono due somme, riferite al campo valore, di TUTTI i record ma divisi per tipo di pagamento (e, in secundis, per data). Non sono riuscito a trovare esempi che mi instradino correttamente, ma immagino che sia una cosa necessaria e che pertanto esista.
Il loop riesce a risolvere, ma di certo non è la soluzione più elegante, pratica e performante.

Per quel che riguarda il cast, il risultato della mia versione non dà alcun problema e rende pertanto pleonastico (e probabilmente più oneroso) l'uso di EXTRACT.

[Stilgar]

Ciao.Potresti usare le sub query per ottenere il risultato che vuoi.

Codice: [Seleziona]

select data, a, b, a+b
from (
select max(data) data, sum(importo) a, 0 b
from incassi
where tipo ='A'
group by tipo
union
select max(data) data, 0 a, sum(importo) b
from incassi
where tipo ='B'
group by tipo
) a
order by data;

Il Case:

Codice: [Seleziona]

CASE <expression> WHEN <exp1> THEN result1 WHEN <exp2> THEN result2 ... [ELSE defaultresult] END

Codice: [Seleziona]

CanVote = case when Age >= 18 then 'Yes' when Age <  18 then 'No' else 'Unsure' end;

Al posto della tabella potresti usare una vista.In modo da permettere al db engine di ottimizzare in qualche modo l'accesso.
Stilgar

[Maxx]

Grazie stilgar, disponibile come sempre.

In effetti avevo pensato ad una vista, ma ho il solito problema che non voglio "sporcare" la base dati proprietaria. E' possibile creare viste "temporanee" che non vadano a toccare l'fdb? Vorrei evitare di creare e poi distruggere entità "fisiche".

Grazie.

[Stilgar]

Per la creazione di "oggetti temporanei" non ho idea se fbd possa supportarle in una qualche versione beta.Non mi risulta attualmente.

Stilgar

[Maxx]

Grazie stilgar, grazie xinyiman, ci sono riuscito!

SELECT  CAST(d.Data_Mov as DATE),
  SUM(CASE when d.Tipo_Pagam = :Ty_Plas THEN d.Valore ELSE 0 END) as Plastic_sum,
  SUM(CASE when d.Tipo_Pagam = :Ty_Cash THEN d.Valore ELSE 0 END) as Cash_sum,
  SUM(d.AMOUNT) as Total_sum
  FROM Incassi d
  WHERE CAST(d.Data_Mov as DATE) >= :Data_Ini
      AND CAST(d.Data_Mov as DATE) <= :Data_Fin
  GROUP by CAST(d.Data_Mov as DATE)

Magari può essere utile a qualcun altro!

Grazie ancora,
  Maxx.