Как правильно посчитать остатки?

@tyom3 · Регистрация: 08.03.2008

Author24 — интернет-сервис помощи студентам

Как правильно посчитать остатки номенклатуры? 7.7 бухгалтерия или комплексная ! Я Пытался сделать через Дебитовое и кредитовое вычитание по счету 41 (Товаров) !

Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ВключатьСубсчета(0);
счет = "41";
Ост =Ит.Скд(Счет,3,,номенкл) - Ит.Ко(Счет,3,,номенкл) - Ит.Скк(Счет,3,,номенкл);

Получилось очень коротко!
иногда он ругается - (Для получения итогов по данному периоду требуется временный расчет!)
Как сделать более правильно?

@ysobyto · 11.08.2008, 14:21

BTotal = CreateObject("БухгалтерскиеИтоги");
BTotal.UseSubConto("Номенклатура",,1);
if BTotal.DoQuery(,EndDate,"41") = 0 then
Return
endif;
Quantity = BTotal.СКД(3);
// если нужно по конкретным товарам -
BTotal.SelectSubconto();
While BTotal.GetSubconto() = 1 do
Quantity = BTotal.СКД(3);
enddo

@tsh · 11.08.2008, 14:40

Сообщение от Isabela

if BTotal.DoQuery(,EndDate,"41") = 0 then

1C-ка в плане БИ не всегда корректно отрабатывает указание только конечной даты запроса.
Лучше указать так:

Код

if BTotal.DoQuery(EndDate,EndDate,"41") = 0 then

@tyom3 · 11.08.2008, 14:43

А вы на английском все время пишите программы?

@kRbtSHo · 11.08.2008, 14:47

это на выбор можешь писать и так и так=))

@ysobyto · 11.08.2008, 14:50

LSH
Да, согласна, первую дату лучше указать такой же, как и конечная. Пост скопировала из программы и вырезала лишнее
Leon3
Вот такая у меня привычка. Душа не лежит к русскоязычным аналогам. Свои тексты пишу только по-английски, привыкла за столько лет (ALGOL, PL, PASCAL, CLIPPER - стандартные конструкции в печенки въелись)

@tyom3 · 11.08.2008, 15:16

Спасибо

А как Сделать по какой либо номенклатуре?

@vytfyt · 11.08.2008, 18:33

Би.ИспользоватьСубконто(...), а дальше - в ЖКК

@tyom3 · 12.08.2008, 17:54

У меня еще возникла проблема с получением остатков по 2ум субконто , тоесть по номенклатуре и по складу одновременно? Подскажите пожалуйста в чем ошибка????

Скла = Склад.ПолучитьЗначение(Склад.ТекущаяСтрока(),Склад);
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто("Номенклатура",Номенкл,1);
Ит.ИспользоватьСубконто("МестаХранения",Скла,1);

Если Ит.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(),"41.1") = 0 тогда
Возврат 0
конецесли;
// Сообщить(Ит.Субконто(2)+"|");
Ит.ВыбратьСубконто(,1);
Пока Ит.ПолучитьСубконто() = 1 цикл
Сообщить("!"+Ит.Субконто(2)+"!");

Ост = Ит.Скд(3);

Конеццикла;

@ysobyto · 12.08.2008, 21:28

Почитай

Скорее всего проблему поймешь

@ysobyto 0 / 0 / 0 Регистрация: 15.05.2007 Сообщений: 152
	12.08.2008, 21:28	10
	Почитай Скорее всего проблему поймешь 0

@tyom3 0 / 0 / 0 Регистрация: 08.03.2008 Сообщений: 39
		1
	Как правильно посчитать остатки? 11.08.2008, 14:02. Показов 23411. Ответов 9 Метки нет (Все метки) Как правильно посчитать остатки номенклатуры? 7.7 бухгалтерия или комплексная ! Я Пытался сделать через Дебитовое и кредитовое вычитание по счету 41 (Товаров) ! Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ВключатьСубсчета(0); счет = "41"; Ост =Ит.Скд(Счет,3,,номенкл) - Ит.Ко(Счет,3,,номенкл) - Ит.Скк(Счет,3,,номенкл); Получилось очень коротко! иногда он ругается - (Для получения итогов по данному периоду требуется временный расчет!) Как сделать более правильно? 0

@ysobyto 0 / 0 / 0 Регистрация: 15.05.2007 Сообщений: 152
	11.08.2008, 14:21	2
	BTotal = CreateObject("БухгалтерскиеИтоги"); BTotal.UseSubConto("Номенклатура",,1); if BTotal.DoQuery(,EndDate,"41") = 0 then Return endif; Quantity = BTotal.СКД(3); // если нужно по конкретным товарам - BTotal.SelectSubconto(); While BTotal.GetSubconto() = 1 do Quantity = BTotal.СКД(3); enddo 0

@tsh 0 / 0 / 0 Регистрация: 10.07.2017 Сообщений: 350
	11.08.2008, 14:40	3
	Сообщение от Isabela if BTotal.DoQuery(,EndDate,"41") = 0 then 1C-ка в плане БИ не всегда корректно отрабатывает указание только конечной даты запроса. Лучше указать так: Код if BTotal.DoQuery(EndDate,EndDate,"41") = 0 then 0

@tyom3 0 / 0 / 0 Регистрация: 08.03.2008 Сообщений: 39
	11.08.2008, 14:43	4
	А вы на английском все время пишите программы? 0

@kRbtSHo 0 / 0 / 0 Регистрация: 19.07.2008 Сообщений: 62
	11.08.2008, 14:47	5
	это на выбор можешь писать и так и так=)) 0

@ysobyto 0 / 0 / 0 Регистрация: 15.05.2007 Сообщений: 152
	11.08.2008, 14:50	6
	LSH Да, согласна, первую дату лучше указать такой же, как и конечная. Пост скопировала из программы и вырезала лишнее Leon3 Вот такая у меня привычка. Душа не лежит к русскоязычным аналогам. Свои тексты пишу только по-английски, привыкла за столько лет (ALGOL, PL, PASCAL, CLIPPER - стандартные конструкции в печенки въелись) 0

@tyom3 0 / 0 / 0 Регистрация: 08.03.2008 Сообщений: 39
	11.08.2008, 15:16	7
	Спасибо А как Сделать по какой либо номенклатуре? 0

@vytfyt 0 / 0 / 0 Регистрация: 28.03.2004 Сообщений: 1,913
	11.08.2008, 18:33	8
	Би.ИспользоватьСубконто(...), а дальше - в ЖКК 0

@tyom3 0 / 0 / 0 Регистрация: 08.03.2008 Сообщений: 39
	12.08.2008, 17:54	9
	У меня еще возникла проблема с получением остатков по 2ум субконто , тоесть по номенклатуре и по складу одновременно? Подскажите пожалуйста в чем ошибка???? Скла = Склад.ПолучитьЗначение(Склад.ТекущаяСтрока(),Склад); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто("Номенклатура",Номенкл,1); Ит.ИспользоватьСубконто("МестаХранения",Скла,1); Если Ит.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(),"41.1") = 0 тогда Возврат 0 конецесли; // Сообщить(Ит.Субконто(2)+"\|"); Ит.ВыбратьСубконто(,1); Пока Ит.ПолучитьСубконто() = 1 цикл Сообщить("!"+Ит.Субконто(2)+"!"); Ост = Ит.Скд(3); Конеццикла; 0