Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Seryoga204

Это точно, Lukas не всегда равно 0.

Не так выразился, сорри.

SELECT u.Acc AS Счет, Sum(u.Amn) AS Разница FROM (  SELECT Mid(t1.Account,3) As Acc, t1.Amount As Amn FROM New1txt t1 WHERE Left(t1.Account,2) In ('10','11')  UNION ALL  SELECT Mid(t2.Account,3) As 1, t2.Amount As 2 FROM New2txt t2  WHERE Left(t2.Account,2) In ('50','51')  UNION ALL  SELECT Mid(t3.Account,3) As 3, -t3.Amount  As 4 FROM New2txt t3 WHERE Left(t3.Account,2) In ('60','61')  UNION ALL  SELECT Mid(t4.Account,3) As 5, -t4.Amount As 6 FROM New2txt t4 WHERE Left(t4.Account,2) In ('10','11')  UNION ALL  SELECT Mid(t5.Account,3) As Acc, t5.Amount As Amn FROM New1txt t5 WHERE Left(t5.Account,2) In ('20','21')  UNION ALL  SELECT Mid(t6.Account,3) As 1, -t6.Amount As 2 FROM New2txt t6  WHERE Left(t6.Account,2) In ('50','51')  UNION ALL  SELECT Mid(t7.Account,3) As 3, t7.Amount  As 4 FROM New2txt t7 WHERE Left(t7.Account,2) In ('60','61')  UNION ALL  SELECT Mid(t8.Account,3) As 5, -t8.Amount As 6 FROM New2txt t8 WHERE Left(t8.Account,2) In ('20','21')  ) u  GROUP BY u.Acc  ORDER BY u.Acc;

Данный код не учитывает остатки.10,11,20,21. Расчитывается только разность между 50,51 и 60,61. А вот если отдельно использовать

SELECT u.Acc As [Счет], Sum(u.Amn) As [Разница] FROM (  SELECT Mid(t1.Account,3) As Acc, t1.Amount As Amn FROM 1txt t1 WHERE Left(t1.Account,2) In ('20','21')  UNION ALL  SELECT Mid(t2.Account,3) As 1, -t2.Amount As 2 FROM 2txt t2  WHERE Left(t2.Account,2) In ('50','51')  UNION ALL  SELECT Mid(t3.Account,3) As 3, t3.Amount  As 4 FROM 2txt t3 WHERE Left(t3.Account,2) In ('60','61')  UNION ALL  SELECT Mid(t4.Account,3) As 5, -t4.Amount As 6 FROM 2txt t4 WHERE Left(t4.Account,2) In ('20','21')) u  Group By u.Acc  Order By u.Acc

правильно считает для счетов 20,21. А отдельно запрос -

SELECT u.Acc As [Счет], Sum(u.Amn) As [Разница] FROM (  SELECT Mid(t1.Account,3) As Acc, t1.Amount As Amn FROM 1txt t1 WHERE Left(t1.Account,2) In ('10','11')  UNION ALL  SELECT Mid(t2.Account,3) As 1, -t2.Amount As 2 FROM 2txt t2  WHERE Left(t2.Account,2) In ('60','61')  UNION ALL  SELECT Mid(t3.Account,3) As 3, t3.Amount  As 4 FROM 2txt t3 WHERE Left(t3.Account,2) In ('50','51')  UNION ALL  SELECT Mid(t4.Account,3) As 5, -t4.Amount As 6 FROM 2txt t4 WHERE Left(t4.Account,2) In ('10','11')) u  Group By u.Acc  Order By u.Acc

правильно считает расхождения по счетам 10,11.
Задача всей этой аферы заключается в том чтобы обнаружить расхождения. Когда остаток вчерашнего дня(20,21 в файле 1) - оборот по дебиту(50,51 в файле 2) +оборот по кредиту(60,61в файле 2) = в идеале должнны выйти на текущий остаток(для счетов 20,21 в файле 2) и наоборот для счетов 10,11(10,11 в файле 1)+ оборот по дебиту(50,51 в файле 2) -оборот по кредиту(60,61в файле 2) = в идеале должнны выйти на текущий остаток(для счетов 10,11 в файле 2). Уже мозги плавятся Объединенный запрос что то не получается сделать