v7: ПоложениеКолонкиТаблицы при смене состава колонок

(9)

Перем Инв, ПредИнв;

//*******************************************
Функция ТекстЗапросаПредИнв()
    Возврат
    "SELECT
    |    $ДокС.Товар as Товар,
    |    $ДокС.ИнвСтоимость as СуммаНачИнв,
    |    $ДокС.ИнвКоличество as КвоНачИнв,
    |    0 as СуммаНач,
    |    0 as КвоНач,
    |    0 as СуммаПриход,
    |    0 as КвоПриход,
    |    0 as СуммаРасход,
    |    0 as КвоРасход,
    |    0 as СуммаПрод,
    |    0 as КвоПрод,
    |    0 as СуммаКон,
    |    0 as КвоКон,
    |    0 as СуммаИнв,
    |    0 as КвоИнв
    |FROM
    |    $ДокументСтроки.Инвентаризация as ДокС
    |INNER JOIN
    |    $Документ.Инвентаризация as Док ON Док.IDDoc = ДокС.IDDoc
    |WHERE
    |   Док.IDDoc = :ПредИнв";
КонецФункции

//*******************************************
Функция ТекстЗапросаИнв()
    Возврат
    "SELECT
    |    $ДокС.Товар as Товар,
    |    0 as СуммаНачИнв,
    |    0 as КвоНачИнв,
    |    0 as СуммаНач,
    |    0 as КвоНач,
    |    0 as СуммаПриход,
    |    0 as КвоПриход,
    |    0 as СуммаРасход,
    |    0 as КвоРасход,
    |    0 as СуммаПрод,
    |    0 as КвоПрод,
    |    0 as СуммаКон,
    |    0 as КвоКон,
    |    $ДокС.ИнвСтоимость as СуммаИнв,
    |    $ДокС.ИнвКоличество as КвоИнв
    |FROM
    |    $ДокументСтроки.Инвентаризация as ДокС
    |INNER JOIN
    |    $Документ.Инвентаризация as Док ON Док.IDDoc = ДокС.IDDoc
    |WHERE
    |   Док.IDDoc = :Инв";
КонецФункции

//*******************************************
Функция ТекстЗапросаОбороты()
    Возврат
    "SELECT
    |    Рег.Товар,
    |    0 as СуммаНачИнв,
    |    0 as КвоНачИнв,
    |    Рег.ПродСтоимостьНачальныйОстаток as СуммаНач,
    |    Рег.ОстатокТовараНачальныйОстаток  as КвоНач,
    |    Рег.ПродСтоимостьПриход as СуммаПриход,
    |    Рег.ОстатокТовараПриход as КвоПриход,
    |    0 as СуммаРасход,
    |    0 as КвоРасход,
    |    0 as СуммаПрод,
    |    0 as КвоПрод,
    |    Рег.ПродСтоимостьКонечныйОстаток as СуммаКон,
    |    Рег.ОстатокТовараКонечныйОстаток as КвоКон,
    |    0 as СуммаИнв,
    |    0 as КвоИнв
    |FROM
    |    $РегистрОстаткиОбороты.ПартииТоваров(:ДатаНач,:ДатаКон~,,,,
    |                               Склад = :ВыбСклад,
    |                               (Товар), (ОстатокТовара,ПродСтоимость)) as Рег
    |
    |UNION ALL
    |
    |SELECT
    |    Рег2.Товар,
    |    0 as СуммаНачИнв,
    |    0 as КвоНачИнв,
    |    0 as СуммаНач,
    |    0  as КвоНач,
    |    0 as СуммаПриход,
    |    0 as КвоПриход,
    |    Рег2.ПродСтоимостьРасход as СуммаРасход,
    |    Рег2.ОстатокТовараРасход as КвоРасход,
    |    0 as СуммаПрод,
    |    0 as КвоПрод,
    |    0 as СуммаКон,
    |    0 as КвоКон,
    |    0 as СуммаИнв,
    |    0 as КвоИнв
    |FROM
    |    $РегистрОбороты.ПартииТоваров(:ДатаНач,:ДатаКон~,Документ,,
    |                               Склад = :ВыбСклад,
    |                               (Товар), (ОстатокТовара,ПродСтоимость)) as Рег2
    |WHERE
    |    Рег2.ВидДокумента <> $ВидДокумента.КассаЧек
    |    AND Рег2.ВидДокумента <> $ВидДокумента.РасходнаяРозничная
    |
    |UNION ALL
    |
    |SELECT
    |    Рег2.Товар,
    |    0 as СуммаНачИнв,
    |    0 as КвоНачИнв,
    |    0 as СуммаНач,
    |    0  as КвоНач,
    |    0 as СуммаПриход,
    |    0 as КвоПриход,
    |    0 as СуммаРасход,
    |    0 as КвоРасход,
    |    Рег2.ПродСтоимостьРасход as СуммаПрод,
    |    Рег2.ОстатокТовараРасход as КвоПрод,
    |    0 as СуммаКон,
    |    0 as КвоКон,
    |    0 as СуммаИнв,
    |    0 as КвоИнв
    |FROM
    |    $РегистрОбороты.ПартииТоваров(:ДатаНач,:ДатаКон~,Документ,,
    |                               Склад = :ВыбСклад,
    |                               (Товар), (ОстатокТовара,ПродСтоимость)) as Рег2
    |WHERE
    |    Рег2.ВидДокумента = $ВидДокумента.КассаЧек
    |    OR Рег2.ВидДокумента = $ВидДокумента.РасходнаяРозничная";
КонецФункции


//*******************************************
Процедура НастроитьТбТовары()

    тбТовары.УдалитьСтроки();

    Пока тбТовары.КоличествоКолонок()<>2 Цикл
        тбТовары.УдалитьКолонку(1);
    КонецЦикла;

    Если ПолнаяВедомость = 1 Тогда

        тбТовары.НоваяКолонка("СуммаНачИнв","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоНачИнв","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаНач","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоНач","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаПриход","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоПриход","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаРасход","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоРасход","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаПрод","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоПрод","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаКон","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоКон","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаИнв","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоИнв","Число",12,0,,10);
        тбТовары.НоваяКолонка("Ошибки");

        Для инд = 2 по тбТовары.КоличествоКолонок() Цикл
            ИмяКолонки = тбТовары.ПолучитьПараметрыКолонки(инд);
            тбТовары.ВидимостьКолонки(ИмяКолонки,1);
        КонецЦикла;
    Иначе

        тбТовары.НоваяКолонка("КвоНач","Число",12,0,,10);
        тбТовары.НоваяКолонка("КвоКон","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаНач","Число",12,2,,10);
        тбТовары.НоваяКолонка("СуммаКон","Число",12,2,,10);
        тбТовары.НоваяКолонка("СуммаПрод","Число",12,2,,10);
        тбТовары.НоваяКолонка("СуммаНачИнв","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоНачИнв","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаПриход","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоПриход","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаРасход","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоРасход","Число",12,0,,10);
        тбТовары.НоваяКолонка("КвоПрод","Число",12,0,,10);
        тбТовары.НоваяКолонка("СуммаИнв","Число",12,2,,10);
        тбТовары.НоваяКолонка("КвоИнв","Число",12,0,,10);
        тбТовары.НоваяКолонка("Ошибки");

        Для инд = 2 по тбТовары.КоличествоКолонок() Цикл
            ИмяКолонки = тбТовары.ПолучитьПараметрыКолонки(инд);
            Если (Найти(ИмяКолонки,"Инв") <> 0) или
                 (Найти(ИмяКолонки,"Приход") <> 0) или
                 (Найти(ИмяКолонки,"Расход") <> 0) Тогда
                тбТовары.ВидимостьКолонки(ИмяКолонки,0);
            КонецЕсли;
        КонецЦикла;
        тбТовары.ВидимостьКолонки("КвоПрод",0);
    КонецЕсли;

    тбТовары.Фиксировать(0,0);

КонецПроцедуры

//*******************************************
Процедура Сформировать(ТолькоОшибки = 0)

    НастроитьТбТовары();

    RS = СоздатьОбъект("ODBCRecordset");

    ТекстЗапроса = "
    |SELECT
    |    Д.Товар as [Товар $Справочник.Номенклатура],
    |    SUM(Д.СуммаНачИнв) as СуммаНачИнв,
    |    SUM(Д.КвоНачИнв) as КвоНачИнв,
    |    SUM(Д.СуммаНач) as СуммаНач,
    |    SUM(Д.КвоНач) as КвоНач,
    |    SUM(Д.СуммаПриход) as СуммаПриход,
    |    SUM(Д.КвоПриход) as КвоПриход,
    |    SUM(Д.СуммаРасход) as СуммаРасход,
    |    SUM(Д.КвоРасход) as КвоРасход,
    |    SUM(Д.СуммаПрод) as СуммаПрод,
    |    SUM(Д.КвоПрод) as КвоПрод,
    |    SUM(Д.СуммаКон) as СуммаКон,
    |    SUM(Д.КвоКон) as КвоКон,
    |    SUM(Д.СуммаИнв) as СуммаИнв,
    |    SUM(Д.КвоИнв) as КвоИнв
    |FROM ("+
    ТекстЗапросаПредИнв()+"
    |
    |UNION ALL
    |"+
    ТекстЗапросаОбороты()+"
    |
    |UNION ALL
    |"+
    ТекстЗапросаИнв()+") as Д
    |GROUP BY
    |   Товар"+?(ТолькоОшибки=1,"
    |HAVING
    |      (SUM(Д.СуммаНачИнв)<>SUM(Д.СуммаНач) OR SUM(Д.КвоНачИнв)<>SUM(Д.КвоНач))
    |   OR (SUM(Д.СуммаИнв)<>SUM(Д.СуммаКон) OR SUM(Д.КвоИнв)<>SUM(Д.КвоКон))","")
    ;

    RS.УстановитьТекстовыйПараметр("ПредИнв", ПредИнв);
    RS.УстановитьТекстовыйПараметр("Инв",     Инв.ТекущийДокумент());
    RS.УстановитьТекстовыйПараметр("ДатаНач", ПредИнв.ДатаДок+1);
    RS.УстановитьТекстовыйПараметр("ДатаКон", Инв.ДатаДок);
    RS.УстановитьТекстовыйПараметр("ВыбСклад",Инв.Склад);
    //RS.Отладка(1);
    //Сообщить("*********************************************");
    //Сообщить(ТекстЗапроса);
    //Сообщить("*********************************************");
    тб = RS.ВыполнитьИнструкцию(ТекстЗапроса);
    тб.Свернуть("Товар","СуммаНачИнв,КвоНачИнв,СуммаНач,КвоНач,СуммаПриход,КвоПриход,СуммаРасход,КвоРасход,СуммаПрод,КвоПрод,СуммаКон,КвоКон,СуммаИнв,КвоИнв");
    тб.Сортировать("Товар");
    тб.НоваяКолонка("Ошибки");

    тб.ВыбратьСтроки();
    Пока тб.ПолучитьСтроку()=1 Цикл
        Ошибки = "";
        Если (тб.СуммаНачИнв <> тб.СуммаНач) или
             (тб.КвоНачИнв <> тб.КвоНач) Тогда
                 Ошибки = "начальный остаток не сходится с пред. инвентаризацией";
        КонецЕсли;
        Если (тб.СуммаИнв <> тб.СуммаКон) или
             (тб.КвоИнв <> тб.КвоКон) Тогда
                 Если Ошибки = "" Тогда
                     Ошибки = "конечный остаток не сходится с инвентаризацией";
                 Иначе
                     Ошибки = Ошибки + "
                     |конечный остаток не сходится с инвентаризацией";
                 КонецЕсли;
        КонецЕсли;
        тб.Ошибки = Ошибки;
    КонецЕсли;

    Если ТолькоОшибки=1 Тогда

    КонецЕсли;

    тбТовары.НоваяСтрока();
    тбТовары.Товар       = "ВСЕГО:";
    Для инд = 3 по тбТовары.КоличествоКолонок()-1 Цикл
        ИмяКолонки = тбТовары.ПолучитьПараметрыКолонки(инд);
        тбТовары.УстановитьЗначение(тбТовары.НомерСтроки,ИмяКолонки,тб.Итог(ИмяКолонки));
    КонецЦикла;

    тб.ВыбратьСтроки();
    Пока тб.ПолучитьСтроку()=1 Цикл
        тбТовары.НоваяСтрока();
        Для инд = 2 по тбТовары.КоличествоКолонок()-1 Цикл
            ИмяКолонки = тбТовары.ПолучитьПараметрыКолонки(инд);
            Зн = тб.ПолучитьЗначение(тб.НомерСтроки,ИмяКолонки);
            тбТовары.УстановитьЗначение(тбТовары.НомерСтроки,ИмяКолонки,Зн);
        КонецЦикла;

        Если тбТовары.Ошибки <>  "" Тогда
            тбТовары.Цвет = "BRUSH[0xECB5FF]";
        КонецЕсли;
    КонецЦикла;

    тбТовары.Фиксировать(1,0);

КонецПроцедуры

//*******************************************
Функция ПриОбновленииФормы()
    РФорма = СоздатьОбъект("РасширениеФормы");
    Если ПолнаяВедомость = 1 Тогда
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 2,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 4,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 6,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 8,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",10,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",12,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",14,2);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",16,2);
    //Иначе
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 2,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 4,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 6,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары", 8,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",10,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",12,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",14,1);
    //    РФорма.ПоложениеКолонкиТаблицы("тбТовары",16,1);
    КонецЕсли;
КонецФункции

//*******************************************
Процедура ПриОткрытии()

    тбТовары.НоваяКолонка("Цвет","Строка");
    тбТовары.ВидимостьКолонки("Цвет",0);
    тбТовары.НоваяКолонка("Товар",,,,,50);

    Инв = Форма.Параметр;

    ДокИнв = СоздатьОбъект("Документ.Инвентаризация");
    ДокИнв.УстановитьФильтр();
    ДокИнв.ОбратныйПорядок(1);
    ДокИнв.ВыбратьДокументы(,Инв.ДатаДок-1);
    Пока ДокИнв.ПолучитьДокумент() = 1 Цикл
        Если ДокИнв.Склад = Инв.Склад Тогда
            ПредИнв = ДокИнв.ТекущийДокумент();
            Прервать;
        КонецЕсли;
    КонецЦикла;

    Если ПустоеЗначение(ПредИнв) = 1 Тогда
        Сообщить("Не найдена предыдущая инвентаризация","!!!");
        Форма.Закрыть();
    КонецЕсли;

    Сформировать();

КонецПроцедуры