Архивы 1C - Страница 24 из 45

1С: Ошибка при выполнении файловой операции 1cv8.cfu. Неожиданный вызов метода MemoryMappedFileObject :: write

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

Неожиданно при попытке обновления вылезла такая ошибка. Гугленье давало противоречивые результаты. Как лечил?

1) Достал оригинальный cf файл от релиза совпадающего с тем, который хотел обновлять (orig.cf)

2) Выгрузил в файл cf текущую конфигурацию (cur.cf)

3) Создал Новую БД, загрузил в неё orig.cf, объеденил, предварительно сняв с поддержки, с cur.cf, выгрузил файл cur_orig.cf

4) В текущую базу БД загрузил файл cur_orig.cf

5) Поставил на поддержку, изменив комментарий в любом реквизите, и обьеденив с конфигурацией orig.cf Перед началом объединения будет вопрос «поставить на поддержку?». Отвечаем Да, и выбираем галочки «Объект редактируется с сохранением поддержки»

6) Штатно обновил до следующего релиза..

Надеюсь косяков и глюков не будет.. Сильно надеюсь…

Оставить комментарий 1c, 1с, MemoryMappedFileObject::write, ошибка обновления

Массовая печать «Счетов на оплату» и «Акт выполненных работ» в Розница 2.2

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

Задача: в некой таблице перечислены документы, для которых нужно программно вывести печатные формы счетов и актов.

Решение:

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

&НаКлиенте
Процедура ПечатьСчетов(Команда)
	табдок=ПолучитьПечатнуюФормуСчета();
	табдок.показать();
КонецПроцедуры

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

&НаКлиенте
Процедура ПечатьАктов(Команда)
	табдок=ПечатьАктовНаСервере();
	табдок.показать();
КонецПроцедуры

&НаСервере

Функция ПолучитьПечатнуюФормуСчета()

// вхДок это просто ссылка на документ счет на оплату покупателю

ттт=новый ТабличныйДокумент();

для каждого стр из объект.Контрагенты цикл

счДок=стр.Счет;

сообщить(счДок);

ОбъектыПечати = Новый СписокЗначений;

ОбъектыПечати.Добавить(счДок.ПолучитьОбъект());

МассивОбъектов = Новый Массив();

МассивОбъектов.Добавить(счДок);

ПараметрыПечати = Новый Структура;

ТаблицаСведенийСчетНаОплату=Документы.СчетНаОплатуПокупателю.ПолучитьТаблицуСведенийСчетаНаОплату(МассивОбъектов);

ПараметрыПечати.Вставить("ВидДокументаПечати", "СчетНаОплатуПокупателю");

ПараметрыПечати.Вставить("ИмяПараметровПечати", "ПАРАМЕТРЫ_ПЕЧАТИ_СчетНаОплатуПокупателю_Счет");

ПараметрыПечати.Вставить("ИмяМакетаПечати", "ОбщийМакет.ПФ_MXL_СчетЗаказ");

ТаблицаСведенийСчетНаОплату.Колонки.Добавить("Ссылка");

ТаблицаСведенийСчетНаОплату[0].Ссылка = счДок;

ТаблицаСведенийСчетНаОплату[0].Документ = счДок;

ТабДок = ПечатьТорговыхДокументов.ПечатьСчетаНаОплату(ТаблицаСведенийСчетНаОплату, ОбъектыПечати, ПараметрыПечати);

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

ттт.Вывести(ТабДок);

конеццикла;

возврат ттт;

КонецФункции

&НаКлиенте

Процедура ПечатьСчетов(Команда)

табдок=ПолучитьПечатнуюФормуСчета();

табдок.показать();

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

&НаСервере

Функция ПолучитьСтатусСчета(счет)

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| СтатусыДокументов.Статус.Ссылка КАК СтатусСсылка

|ИЗ

| РегистрСведений.СтатусыДокументов КАК СтатусыДокументов

|ГДЕ

| СтатусыДокументов.Организация = &Организация

| И СтатусыДокументов.Документ = &Документ";

Запрос.УстановитьПараметр("Организация", объект.Организация);

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

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

статус=перечисления.СтатусОплатыСчета.НеОплачен;

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

статус=ВыборкаДетальныеЗаписи.СтатусСсылка;

конеццикла;

возврат статус;

КонецФункции

&НаСервере

Функция ПечатьАктовНаСервере()

// вхДок это просто ссылка на документ счет на оплату покупателю

ттт=новый ТабличныйДокумент();

для каждого стр из объект.Контрагенты цикл

счДок=стр.Акт;

сообщить(счДок);

ОбъектыПечати = Новый СписокЗначений;

ОбъектыПечати.Добавить(счДок.ПолучитьОбъект());

МассивОбъектов = Новый Массив();

МассивОбъектов.Добавить(счДок);

ПараметрыПечати = Новый Структура;

ТаблицаСведенийАкт=Документы.РеализацияТоваровУслуг.ПолучитьТаблицуСведенийАктаОбОказанииУслуг(МассивОбъектов);

ПараметрыПечати.Вставить("ВидДокументаПечати", "РеализацияТоваровУслуг");

ПараметрыПечати.Вставить("ИмяПараметровПечати", "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт");

ПараметрыПечати.Вставить("ИмяМакетаПечати", "Документ.РеализацияТоваровУслуг.ПФ_MXL_Акт");

ТаблицаСведенийАкт.Колонки.Добавить("Ссылка");

ТаблицаСведенийАкт[0].Ссылка = счДок;

ТаблицаСведенийАкт[0].Документ = счДок;

ТабДок = ПечатьТорговыхДокументов.ПечатьАктаОбОказанииУслуг(ТаблицаСведенийАкт, ОбъектыПечати, ПараметрыПечати);

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

ттт.Вывести(ТабДок);

конеццикла;

возврат ттт;

КонецФункции

&НаКлиенте

Процедура ПечатьАктов(Команда)

табдок=ПечатьАктовНаСервере();

табдок.показать();

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

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

Розница 2.2 программное получение основного расчетного счета

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

	УчетДенежныхСредствБП.УстановитьБанковскийСчет(
		нсчет.СтруктурнаяЕдиница, Объект.Организация, справочники.Валюты.НайтиПоНаименованию("руб"), Истина);

1 2	УчетДенежныхСредствБП.УстановитьБанковскийСчет( нсчет.СтруктурнаяЕдиница, Объект.Организация, справочники.Валюты.НайтиПоНаименованию("руб"), Истина);

Оставить комментарий основной счет, розница

Диалоговое окно в 1С

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

Можно реализовать стандартным способом, что-то типа:

&НаКлиенте
Процедура ВыключитьИнтернет(Команда)
	Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса",ЭтотОбъект);	
	ПоказатьВопрос(Оповещение,
        "Вы убеждены что хотите отключить несчастного контрагента?",
        РежимДиалогаВопрос.ДаНет,
        0, // таймаут в секундах
        КодВозвратаДиалога.нет, // (необ.) кнопка по умолчанию
        "Хороший вопрос" // (необ.) заголовок
    );    
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат,Параметры)  Экспорт
	если Результат=КодВозвратаДиалога.Да тогда
		сообщить("--жаль..");
	иначе
		сообщить("");
	конецесли;	
КонецПроцедуры

&НаКлиенте

Процедура ВыключитьИнтернет(Команда)

Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса",ЭтотОбъект);

ПоказатьВопрос(Оповещение,

"Вы убеждены что хотите отключить несчастного контрагента?",

РежимДиалогаВопрос.ДаНет,

0, // таймаут в секундах

КодВозвратаДиалога.нет, // (необ.) кнопка по умолчанию

"Хороший вопрос" // (необ.) заголовок

);

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

&НаКлиенте

Процедура ПослеЗакрытияВопроса(Результат,Параметры) Экспорт

если Результат=КодВозвратаДиалога.Да тогда

сообщить("--жаль..");

иначе

сообщить("");

конецесли;

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

Оставить комментарий 1c, 1с, диалоговое окно

Передача параметров при создании Формы.

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

Задача: по нажатии кнопки, открыть форму обработки с заполненным реквизитом ИНН.

Собственно вот классический способ: по нажатию кнопки выполняем код:

&НаКлиенте
Процедура Расш1_ДействияБиллингаПосле(Команда)
	ПП = Новый Структура("ИНН", "100");
	Форма=ПолучитьФорму("Обработка.ДействияLanBilling.Форма.Форма",ПП);
	Форма.Открыть() 	
КонецПроцедуры

&НаКлиенте

Процедура Расш1_ДействияБиллингаПосле(Команда)

ПП = Новый Структура("ИНН", "100");

Форма=ПолучитьФорму("Обработка.ДействияLanBilling.Форма.Форма",ПП);

Форма.Открыть()

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

Далее обрабатываем параметр в самой форме, в процедуре ПриСозданииНаСервере:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	Если Параметры.Свойство("ИНН") Тогда
        объект.ИНН=Параметры["ИНН"];
    КонецЕсли;	
КонецПроцедуры

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Если Параметры.Свойство("ИНН") Тогда

объект.ИНН=Параметры["ИНН"];

КонецЕсли;

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

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

« 1 … 22 23 24 25 26 … 45 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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