Архивы 1с - Страница 25 из 32

Удаление не нужных записей из табличной части 1С

12.10.2015 Павел Грибов 1C

Задача: выставить верное количество остатков на складе. Удалить из табличной части строки с нулевым количеством.

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

для каждого стр из НоменклатураДляПодбора цикл

Запрос = Новый Запрос("ВЫБРАТЬ

| ТоварыНаСкладахОстатки.КоличествоОстаток,

| ТоварыНаСкладахОстатки.Номенклатура

|ИЗ

| РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки

|ГДЕ

| ТоварыНаСкладахОстатки.Склад = &Склад

| И ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура");

Запрос.УстановитьПараметр("Склад",СтруктураИсходныхПараметров["Склад"]);

Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);

Запрос.УстановитьПараметр("Период",ТекущаяДата());

Результат = Запрос.Выполнить().Выбрать();

такиостаток=0;

пока Результат.Следующий() цикл

такиостаток=Результат.КоличествоОстаток;

конеццикла;

стр.КоличествоСвободныйОстаток=такиостаток;

конеццикла;

СтрокиКУдалению = НоменклатураДляПодбора.НайтиСтроки(Новый Структура("КоличествоСвободныйОстаток",0));

Для каждого СтрокаТаблицы Из СтрокиКУдалению Цикл

НоменклатураДляПодбора.Удалить(СтрокаТаблицы);

КонецЦикла;

Оставить комментарий 1с, удаление из табличной части

1C Запись в текстовый файл

24.02.2015 Павел Грибов 1C

	Файл = Новый ЗаписьТекста("reestr_ur.txt");
	для каждого стр из платежи цикл
		если стр.Выгрузка=Истина тогда
		  Файл.ЗаписатьСтроку(стр.Контрагент+";"+стр.ИНН+";"+стр.Сумма+";;;;;"+стр.Дата+";;"+стр.НомерСтроки);
		 конецесли; 
	конеццикла;	
	Файл.Закрыть();

Файл = Новый ЗаписьТекста("reestr_ur.txt");

для каждого стр из платежи цикл

если стр.Выгрузка=Истина тогда

Файл.ЗаписатьСтроку(стр.Контрагент+";"+стр.ИНН+";"+стр.Сумма+";;;;;"+стр.Дата+";;"+стр.НомерСтроки);

конецесли;

конеццикла;

Файл.Закрыть();

Но! Сумма в этом случае будет вида «1 000 000», с пробелами для «визуализации». Нам это не надоть! Убираем:

Формат(стр.Сумма,»ЧГ=»)

Оставить комментарий 1с, запись в текстовый файл, убрать пробел из числа

Отправка писем из 1С

24.02.2015 Павел Грибов 1C

	ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;
	ПараметрыПочты.АдресСервераSMTP = "mail.erfwerfwe.ru";
	ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	ПараметрыПочты.ПользовательSMTP = "wrefwerf@erfwerf.ru";
	ПараметрыПочты.ПарольSMTP="ewrfwrqwe";
	
	Письмо=новый ИнтернетПочтовоеСообщение;
	Письмо.Тема="Уведомление о задолженности";
	Письмо.ИмяОтправителя="Пупкин и компания";
	Письмо.Отправитель="erfwerf@erfw.ru";
	Письмо.Получатели.Добавить("erfqwerf@mail.ru");
	Письмо.Тексты.Добавить("Содержимое");
        Письмо.Вложения.Добавить(файл);
	
	Подключение=новый ИнтернетПочта;
	Попытка
	Подключение.Подключиться(ПараметрыПочты);
	Подключение.Послать(Письмо);
	Сообщить ("Письмо отправлено успешно.");
	Исключение
	Сообщить ("Письмо не отправлено." + ОписаниеОшибки());
	КонецПопытки;

ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;

ПараметрыПочты.АдресСервераSMTP = "mail.erfwerfwe.ru";

ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

ПараметрыПочты.ПользовательSMTP = "wrefwerf@erfwerf.ru";

ПараметрыПочты.ПарольSMTP="ewrfwrqwe";

Письмо=новый ИнтернетПочтовоеСообщение;

Письмо.Тема="Уведомление о задолженности";

Письмо.ИмяОтправителя="Пупкин и компания";

Письмо.Отправитель="erfwerf@erfw.ru";

Письмо.Получатели.Добавить("erfqwerf@mail.ru");

Письмо.Тексты.Добавить("Содержимое");

Письмо.Вложения.Добавить(файл);

Подключение=новый ИнтернетПочта;

Попытка

Подключение.Подключиться(ПараметрыПочты);

Подключение.Послать(Письмо);

Сообщить ("Письмо отправлено успешно.");

Исключение

Сообщить ("Письмо не отправлено." + ОписаниеОшибки());

КонецПопытки;

Оставить комментарий 1с, отправка почты

Захотел брать в таблицы jqgrid данные из 1С. Казалось бы простая задача, сформировать в 1С массив JSON. Однако оказалось не все так просто. В УПП 1.3 общих функций для работы с JSON нет. А в Управлении Торговлей — есть. Пришлось выдернуть нужные функции оттуда.
» Читать далее

Оставить комментарий 1с, jsoin, php

Прямые MS SQL запросы к базе 1С

20.02.2014 Павел Грибов 1C

Возникла нужда строить отчеты на основании данных из 1С на WEB страницу строящуюся на PHP. Первой проблемой, после удачного коннекта к MSSQL, стало сопоставить структуру данных из конфигуратора с реальными таблицам в MSSQL. Для сопоставления существует много разработок, например http://infostart.ru/public/147147/

Работоспособных адекватных конверторов запросов 1С в текст SQL я так и не нашел. А «ручками» запрос лепить, оказалось весьма время затратно.

Вот пример получившегося запроса по остаткам продукции, из регистра накоплений на текущий момент:

SELECT 
	[upp_rss].[dbo].[_Reference248].[_Description] as skladname
,[_Reference186].[_Description] as nomename              	
      ,[upp_rss].[dbo].[_Reference246].[_Description] as seria  
      ,[_Reference186].[_Fld2914] as emk            
      ,[_Fld24642] as kol           
      FROM [upp_rss].[dbo].[_AccumRgT24645]  
      INNER JOIN [upp_rss].[dbo].[_Reference186]
      ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24638RRef]=[upp_rss].[dbo].[_Reference186].[_IDRRef]       
      INNER JOIN [upp_rss].[dbo].[_Reference84] 
      ON [upp_rss].[dbo].[_Reference186].[_Fld2887RRef]=[upp_rss].[dbo].[_Reference84].[_IDRRef]
      INNER JOIN [upp_rss].[dbo].[_Reference246]
      ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24641RRef]=[upp_rss].[dbo].[_Reference246].[_IDRRef]
      INNER JOIN [upp_rss].[dbo].[_Reference248]
      ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24637RRef]=[upp_rss].[dbo].[_Reference248].[_IDRRef]

      WHERE [_Reference84].[_Description]='Продукция' and
      [_AccumRgT24645].[_Period]='5999-11-01 00:00:00.000' and [_AccumRgT24645].[_Fld24642]<>0
  order by skladname,nomename desc

SELECT

[upp_rss].[dbo].[_Reference248].[_Description] as skladname

,[_Reference186].[_Description] as nomename

,[upp_rss].[dbo].[_Reference246].[_Description] as seria

,[_Reference186].[_Fld2914] as emk

,[_Fld24642] as kol

FROM [upp_rss].[dbo].[_AccumRgT24645]

INNER JOIN [upp_rss].[dbo].[_Reference186]

ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24638RRef]=[upp_rss].[dbo].[_Reference186].[_IDRRef]

INNER JOIN [upp_rss].[dbo].[_Reference84]

ON [upp_rss].[dbo].[_Reference186].[_Fld2887RRef]=[upp_rss].[dbo].[_Reference84].[_IDRRef]

INNER JOIN [upp_rss].[dbo].[_Reference246]

ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24641RRef]=[upp_rss].[dbo].[_Reference246].[_IDRRef]

INNER JOIN [upp_rss].[dbo].[_Reference248]

ON [upp_rss].[dbo].[_AccumRgT24645].[_Fld24637RRef]=[upp_rss].[dbo].[_Reference248].[_IDRRef]

WHERE [_Reference84].[_Description]='Продукция' and

[_AccumRgT24645].[_Period]='5999-11-01 00:00:00.000' and [_AccumRgT24645].[_Fld24642]<>0

order by skladname,nomename desc

Ну что я могу сказать? Мне не понравилось.. Буду искать какой-то метод по проще..

Оставить комментарий 1с, прямые запросы 1с

« 1 … 23 24 25 26 27 … 32 »

Метка: 1с

Удаление не нужных записей из табличной части 1С

1C Запись в текстовый файл

Отправка писем из 1С

Работа с JSON из 1С

Прямые MS SQL запросы к базе 1С

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30