Бухгалтерские итоги 7.7 в 8.3

Форум Программирование Общие вопросы программирования (Dev)

1. damir-it 20.11.19 06:55 Сейчас в теме

Уважаемые форумчане , помогите немного с кодом, вот кусок кода из версии 7.7

Сч29_80 = СчетПоКОду("29.80");
	БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
	БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура,СписокТоваров ,2);
	БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения);     
	БухИт.Включатьсубсчета(1);
	БухИт.Опции(1);
	БухИт.ВыполнитьЗапрос( ТекущийДокумент(),ТекущийДокумент(),"28, 29, 004, 002",,,,,"СК");

                           Если БухИт.ПолучитьСчет(, Сч29_80) = 1 Тогда  //Узнаем наценку
				Если БухИт.ПолучитьСубконто(ВидыСубконто.Номенклатура,, Товар) = 1 
                                       Тогда
					Если БухИт.ПолучитьСубконто(ВидыСубконто.МестаХранения,, 
                                        МестаХранения) = 1 Тогда
             				СуммаНаценки= БухИт.СКК("С");
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;

Показать

нужно переделать в 8.3 для обычных форм, код конечно же гораздо больше остальное я сам переделаю на базе этого кода, нужен примерный алгоритм с чего мне начать?

По теме из базы знаний

Найденные решения

2. AlexFort1961 1 20.11.19 09:36 Сейчас в теме

Запрос=Новый Запрос;
Запрос.Текст=
"
|ВЫБРАТЬ
| ТиповойОстатки.СуммаОстаток
|ИЗ
| РегистрБухгалтерии.Типовой.Остатки КАК ТиповойОстатки
|ГДЕ
| ТиповойОстатки.Счет = &Счет
| И ТиповойОстатки.Субконто1 = &Субконто1
| И ТиповойОстатки.Субконто2 = &Субконто2
|";
Запрос.Параметры.Вставить("Субконто1", Субконто1);
Запрос.Параметры.Вставить("Субконто2", Субконто2);
Запрос.Параметры.Вставить("Счет", Счет);
Рез=Запрос.Выполнить();
Рез.Выбрать();
Если Рез.Следующий() тогда
Наценка=Рез.СуммаОстаток;
Иначе
Наценка=0;
Конецесли;

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. AlexFort1961 1 20.11.19 09:36 Сейчас в теме

Оставьте свое сообщение

E-mail: