Pääkirja Asteri Ostoreskontrasta (SQL)

Kysymys: Kuinka saan tulostettua pääkirjan ostoreskontrasta?

Vastaus: SQL-kyselytilastolla seuraavasti:

- Valitse Tulosta | Kyselytilastot (SQL) | Luo kyselyitä
- Valitse vasemman yläkulman alaspudotuslistasta seuraava vapaa määrittämätön kysely ja anna sille sopiva nimi, esim. "Pääkirja"
- Kopioi alla oleva SQL-lause (maalaus ja ctrl+C = kopioi) ja liitä (ctrl+V = liitä) se ostoreskontran sql-kyselytoiminnon isoon tekstikenttään

Kysely (päivitettu 17.12.2011)

SELECT Tilinro, '' AS KustPaikka, 0 AS TosNro, '' AS TosPvm, 'Alkusaldo' AS MyyjänNimi, 0 AS SummmaEuro, Sum([SummaEuro]) 
AS SummaYht FROM (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('1.1.100') AND DateValue('%1') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('1.1.100') AND DateValue('%1')) GROUP BY Tilinro 
UNION SELECT Tilinro, '' AS KustPaikka, 9999998 AS TosNro, '' AS TosPvm, 'Jakson saldo' AS MyyjänNimi, 0 AS SummmaEuro, Sum([SummaEuro]) 
AS SummaYht FROM (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2')) GROUP BY Tilinro 
UNION SELECT Tilinro, '' AS KustPaikka, 9999999 AS TosNro, '' AS TosPvm, 'Loppusaldo' AS MyyjänNimi, 0 AS SummmaEuro, Sum([SummaEuro]) 
AS SummaYht FROM (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('1.1.100') AND DateValue('%2') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('1.1.100') AND DateValue('%2')) GROUP BY Tilinro 
UNION (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro , 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2')) ORDER BY Tilinro, TosNro

Vanhempi versio kyselystä (17.12.2011 asti käytetty)

SELECT Tilinro, '' AS KustPaikka, 9999 AS TosNro, '' AS TosPvm, '' AS MyyjänNimi, 0 AS SummmaEuro, Sum([SummaEuro]) 
AS SummaYht FROM (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2')) GROUP BY Tilinro 
UNION (SELECT Tiliöintirivit.Debet AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, Tiliöintirivit.Summa AS SummaEuro, 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Debet <> '' AND Tiliöintirivit.Debet <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2') 
UNION SELECT Tiliöintirivit.Kredit AS Tilinro, Tiliöintirivit.[kirjanp kp] 
AS KustPaikka, Val('' & Ostolaskut.Tositenumero) AS TosNro, Ostolaskut.[Laskun pvm] 
AS TosPvm, Ostolaskut.[Myyjän nimi] AS MyyjänNimi, -1 * Tiliöintirivit.Summa AS SummaEuro , 0 AS SummaYht 
FROM Ostolaskut INNER JOIN Tiliöintirivit ON Ostolaskut.Laskuntunniste = Tiliöintirivit.Laskuntunniste 
WHERE Tiliöintirivit.Kredit <> '' AND Tiliöintirivit.Kredit <> '****' AND ISDATE('' & Ostolaskut.[Laskun pvm]) 
AND CDate(Ostolaskut.[Laskun pvm]) BETWEEN DateValue('%1') AND DateValue('%2')) ORDER BY Tilinro, TosNro



Kysymys%1 on alkaen päivämäärä
Kysymys%2 on päättyen päivämäärä

- Paina tallenna ja/tai suorita, jolloin näet taulukossa haluamasi tiedot
- Käytettävissäsi on Tulosta-valikon paperitulosteet ja Muokkaa-valikon erilaiset leikepöytäkopiointiversiot.

Tarkemmat ohjeet SQL kyselyn tekemiseen artikkelissa Omat kyselytilastot (SQL kyselytilastot) Asteri laskutuksessa