Искандер

редактировать метку

Упячко

муж.

Казань(Россия)

iskander.kamaliev

11.04.1988(38 лет)

14 лет 6 дней

3 сентября 2012 в 17:07:44(13 лет 44 недели 3 дня 2 часа 16 минут назад)

Яндекс-директ

Активность на сайте

Последние сообщения пользователя

Сообщение на форуме
3 сентября 2012 в 17:05:46

Serega
Файловая версия базы или серверная?
Что за конфигурация, какая платформа, сколько весит база?
Сколько памяти на компе?

И это только то,что нужно знать вначале, чтобы задать еще уточняющих вопросов

База весит чуть более 20 Гб, из файловой превращена в клиент-серверную Advantage 8.1, Платформа 1С 7.7 Торговля и Склад, на компе так-то 24 Гигабайта памяти, но 15, используется как жесткий диск, это все осталось от старого сис. админа.

Куда копать дальше? Спасибо за ответ!
Сообщение на форуме
31 августа 2012 в 11:12:22

Здравствуйте! Существует проблема, когда 1С работает нормально она занимает в памяти 60-80 мегабайт памяти, но бывает раз и выгрузит под 90% куда ни будь, и висит пару минут в процессах с 4 мегабайтами, в это время окошко просто неактивное(морозится). Через некоторое время размораживается и становится рабочим и в памяти те же 60-80 мегабайт. Система: Windows 2003
Сообщение на форуме
31 августа 2012 в 11:09:29

Спасибо за ответы! в 1с ке недавно, это был проверочный запрос, я его уже давно переделал.В итоге почти как у jemiazza написал без условий.

Сообщение на форуме

7 августа 2012 в 13:57:09

Такой код:

//*******************************************
Процедура Сформировать()           
	
	Если ВыбДата = '' Тогда
	    ВыбДата = ТекущаяДата();
		Сообщить("Дата установлена на: " + ВыбДата);
	ИначеЕсли ВыбДата > ТекущаяДата() Тогда
		Предупреждение("Выбрана не актуальная дата. Выберите дату не раньше " + ТекущаяДата());
		Возврат;
	КонецЕсли;		
	
	Запрос = СоздатьОбъект("Запрос");                                   	
	
	ТекстЗапроса =
	"//{{ЗАПРОС(Печать)  	
	|Период с ВыбДата по ВыбДата;
	|Товар		= Регистр.ОстаткиТМЦ.Номенклатура.ТекущийЭлемент;
	|Количество = Регистр.ОстаткиТМЦ.Количество;
	//|ЦенаПрод	= Регистр.ОстаткиТМЦ.ЦенаПрод, Регистр.ПартииОтданные.Номенклатура.МинОстаток;
	//|Цены = Справочник.Цены.ТекущийЭлемент;       
	|Группировка Товар;     	
	|Группировка Количество;
	//|Группировка ЦенаПрод;	
	//|Группировка Цены;
	|Функция Кол = КонОст(Количество);
	|"//}}ЗАПРОС               
	;
	
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Сообщить("Запрос вернул ошибку");
		Возврат;
	КонецЕсли;
	
	Таблица = СоздатьОбъект("Таблица");
	Таблица.ВывестиСекцию("Шапка");	   

	ДатаВыб = ВыбДата;	
	типцен = "";
	
	Таблица.ВывестиСекцию("ДатаТипЦен");
	Таблица.ВывестиСекцию("Заглавие");     		
	
	Пока Запрос.Группировка("Товар") = 1 Цикл        		
		Если ((Запрос.Товар.Код = "0092") Или (Запрос.Товар.Код = "092а")) Тогда
			группа = Запрос.Товар.Наименование;
			Таблица.ВывестиСекцию("Группа");			
			КонецЕсли;
		Если ((Запрос.Товар.Родитель.Код = "0092") Или (Запрос.Товар.Родитель.Код = "092а" )) Тогда			
			Пока Запрос.Группировка("Количество") = 1 Цикл				        				
			    //Пока Запрос.Группировка("ЦенаПрод") = 1 Цикл					
				    код = Запрос.Товар.Код;   					
					наименование = Запрос.Товар.Наименование;
					упакпо = "";               					
					ценакг = глВернутьЦену(Запрос.Товар, ВыбТипыЦен);
					/ценакг = Запрос.ЦенаПрод;					
					ценаупак = Запрос.Товар.БазоваяЕдиница;
					остатокОсн = СокрЛП(глФРМКоличество(Запрос.Количество, Запрос.Товар.ОсновнаяЕдиница));
					остатокБаз = Запрос.Количество;
					Таблица.ВывестиСекцию("НомТМЦ");					
				//КонецЦикла;    
			КонецЦикла;		    
		КонецЕсли;		
	КонецЦикла;
	
	Таблица.Показать();
	
КонецПроцедуры       

Процедура ПриОткрытии()
	ВыбДата = '02.08.12';
	
КонецПроцедуры

Как получить актуальную цену на номенклатуру посоветуйте, это мой первый отчет в 1с, буду очень благодарен. 1с Торговля и Склад 9.2. 7.7.

Сообщение на форуме

6 августа 2012 в 10:17:36

//*******************************************
Процедура Сформировать()
	Запрос = СоздатьОбъект("Запрос");                                   
	
	ТекстЗапроса =
	"//{{ЗАПРОС(Печать)
	|Ном = Справочник.Номенклатура.ТекущийЭлемент;
	|Количество = Регистр.ОстаткиТМЦ.Количество;
	|Цены = Справочник.Цены.ТекущийЭлемент;       
	|Группировка Ном;
	|Функция Кол = КонОст(Количество);
	|Условие (Ном.Родитель.Код = ""0092"");
	|"//}}ЗАПРОС               
	;
	
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;
	
	Пока Запрос.Группировка("Товар") = 1 Цикл
	    Сообщить(Запрос.Товар.Номенлкатура.Наименование);
	КонецЦикла;
	
КонецПроцедуры

Вылетает ошибка: ---------------------------
1С:Предприятие
---------------------------
Значение не представляет агрегатный объект (Родитель): 2
---------------------------
ОК
---------------------------

Показать все(15)

На главную страницу заданий 1с