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

Атол 55Ф + терминал эквайринга VeriFone 802, ошибка 4321

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

При проведении эквайринговой операции 1С Розница 2.2 выводит ошибку:

При выполнении операции возникла ошибка:
«Ошибка отмены операции транзакции. Обратитесь в банк. Ошибка при выполнении функции АварийнаяОтменаОперации, ответ терминала — Ошибка 4321».
Оплата по карте не была произведена.

1) Тест драйверов кассы ККМ проходит
2) Тест драйверов терминала проходит
2) SBRFCOM.dll зарегистрирована regsvr на 7 параметров (пробовал и на 3)

Ошибка происходит только при выводе чека экваринговой операции на ККМ. Деньги с карточки снимаются.

Решение: заработало когда переставили терминал в порт USB3.0 (синенький). Возможно и правда не хватало питания, а может быть особенность реализации конкретно на этой материнской плате. Т.к. на других ПК всё работало в любых портах.

Оставить комментарий 1c, 1с, VeriFone 802, ошибка 4321, эквайринг

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

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

1С удивительная платформа. Иногда спотыкаешься на ровном месте на пару часов и не знаешь ты дурак или нет.. Ну вот казалось бы простая вещь — сделать список выбора на управляемой форме (выбор из списка значений), а застрял из-за одного нюанса, из-за которого то что выбрал в списке не отображалось в поле выбора..

Теперь воспроизведу всё пошагово:

Создаем реквизит, например «Категория». ВАЖНО! — тип — произвольный:

У меня был длительный затык именно на этом месте.

Далее ставим галочку «Режим выбора из списка» и назначаем обработку начала выбора на клиенте

Ну и собственно заполнение списка:

&НаКлиенте
Процедура КатегорияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)	
	Элементы.Категория.СписокВыбора.Очистить();
	Элементы.Категория.СписокВыбора.Добавить(0,"1");
	Элементы.Категория.СписокВыбора.Добавить(1,"2");
	Элементы.Категория.СписокВыбора.Добавить(2,"Тест");
КонецПроцедуры

&НаКлиенте

Процедура КатегорияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

Элементы.Категория.СписокВыбора.Очистить();

Элементы.Категория.СписокВыбора.Добавить(0,"1");

Элементы.Категория.СписокВыбора.Добавить(1,"2");

Элементы.Категория.СписокВыбора.Добавить(2,"Тест");

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

В чём была моя ошибка? Тип реквизита выбирал текст. Ну да, только когда я добавлял в список выбора цифры в Элементы.Категория.СписокВыбора.Добавить(0,»1″), то 1С их преобразовывала с цифры..

Update: 02/04/2024:

Для того чтобы получить выбранное значение или индекс можно воспользоваться:

&НаКлиенте
Процедура ПостроитьОтчет(Команда)
   сообщить(Элементы.Оповещенные.ВыделенныйТекст); // текст
   сообщить(Оповещенные); //индекс
КонецПроцедуры

&НаКлиенте

Процедура ПостроитьОтчет(Команда)

сообщить(Элементы.Оповещенные.ВыделенныйТекст); // текст

сообщить(Оповещенные); //индекс

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

На этом задача «выбор из списка значений» будем считать завершеной. Еще больше всяких шпаргалок по 1С, легко найдется здесь.

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

1С Дополнительные реквизиты на форме при помощи расширения

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

В своей работе с 1С стараюсь сделать так, чтобы обновления проходили максимально безболезненно. Для этого нужно сохранять не изменяемость конфигурации. В настоящий момент, при помощи «расширений» конфигурации, многие вещи достаточно легко сделать основную конфигурацию не трогая вообще. Ниже рассмотрю, как я сделал задачу по добавлению значения «Покупка с сайта» в документе «Реализация товаров».

1) Выносим в расширение документ документ «Реализация товаров и добавляем реквизит «ПокупкаССайта» в реквизиты формы. Да! именно в реквизиты формы, а не документа. В настоящий момент платформа 1С не дает добавлять в расширения реквизиты документа (но обещают). Перетаскиваем реквизит в элементы и обязательно ставим галочку на «АктивизироватьПоУмолчанию» — иначе на форме при запуске не отобразится:

2) Следующая задача — сделать сохранение значения данного реквизита с привязкой к документы. Самое удобное — хранить значение в специально предназначенном для этого регистре ДополнительныеРеквизитыИСведения. В нём два измерения: обьект и Свойство. Обьект в нашем случае — это документ Реализации, а свойство нужно задать в ПланеВидовХарактеристик.ДополнительныеРеквизитыИСведения. Например так:

И далее создадим обработчики открытия формы и закрытия в которых реализуем чтение из регистра и запись в этот регистр:

&НаСервере
Функция ЗаписатьЗначениеПокупкиССайта(параметр)	
		МенеджерЗаписи = РегистрыСведений.ДополнительныеСведения.СоздатьМенеджерЗаписи();
		МенеджерЗаписи.Объект = объект.Ссылка;
		МенеджерЗаписи.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Продажа с сайта");		
		МенеджерЗаписи.Значение=параметр;
		МенеджерЗаписи.Записать();	
конецфункции

&НаСервере
Функция ПолучитьЗначениеГалочки();
	зн=РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
	отбор=зн.Отбор;
	отбор.Объект.Установить(объект.Ссылка);
	отбор.Свойство.Установить(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Продажа с сайта"));		
	зн.Прочитать();	
	галочка=ложь;
	для каждого стр из зн   цикл
		галочка=стр.Значение;
	конеццикла;
	возврат галочка;
КонецФункции  	
&НаКлиенте
Процедура Расш1_ПровестиИзФормыПосле(Команда)
ЗаписатьЗначениеПокупкиССайта(этаформа.ПокупкаССайта);
КонецПроцедуры

&НаКлиенте
Процедура Расш1_ПровестиИЗакрытьИзФормыПосле(Команда)
	Расш1_ПровестиИзФормыПосле(Команда);
КонецПроцедуры

&НаКлиенте
Процедура Расш1_ПриОткрытииПосле(Отказ)
	этаформа.ПокупкаССайта=ПолучитьЗначениеГалочки();
КонецПроцедуры

&НаСервере

Функция ЗаписатьЗначениеПокупкиССайта(параметр)

МенеджерЗаписи = РегистрыСведений.ДополнительныеСведения.СоздатьМенеджерЗаписи();

МенеджерЗаписи.Объект = объект.Ссылка;

МенеджерЗаписи.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Продажа с сайта");

МенеджерЗаписи.Значение=параметр;

МенеджерЗаписи.Записать();

конецфункции

&НаСервере

Функция ПолучитьЗначениеГалочки();

зн=РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();

отбор=зн.Отбор;

отбор.Объект.Установить(объект.Ссылка);

отбор.Свойство.Установить(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Продажа с сайта"));

зн.Прочитать();

галочка=ложь;

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

галочка=стр.Значение;

конеццикла;

возврат галочка;

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

&НаКлиенте

Процедура Расш1_ПровестиИзФормыПосле(Команда)

ЗаписатьЗначениеПокупкиССайта(этаформа.ПокупкаССайта);

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

&НаКлиенте

Процедура Расш1_ПровестиИЗакрытьИзФормыПосле(Команда)

Расш1_ПровестиИзФормыПосле(Команда);

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

&НаКлиенте

Процедура Расш1_ПриОткрытииПосле(Отказ)

этаформа.ПокупкаССайта=ПолучитьЗначениеГалочки();

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

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

1С: Ошибка выделения памяти

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

После обновления 1С Бухгалтерии до 3.0.71.63, стала появляться ошибка «Ошибка выделения памяти»:

Лечение (один из методов должен помочь):

Перезагрузка, сервера 1С предприятие и сервера MSSQL
Установка 64битной версии платформы 1С
Ограничение использования памяти MSSQL до реально установленных в сервер
Обновить платформу

Оставить комментарий 1с, mssql, ошибка выделения памяти

1C выбор из списка на управляемой форме

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

Задача: организовать на форме выбор из списка, с первоначальным заполнением из запроса

Решение:

1. Создаем на форме реквизит, с типом «Список значений» и обьектом — СправочникСсылка.Склады:

2. Создаем событие формы «При создании на сервере» и заполняем список:

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

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

&НаСервере

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

// Заполним по умолчанию часть складов, если таковые есть..

сп=новый ТаблицаЗначений;

сп.Колонки.Добавить("Склады");

спстр=сп.Добавить();

спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Торговля");

спстр=сп.Добавить();

спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Ремонт (Р)");

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

Запрос.Текст = "ВЫБРАТЬ

| Склады.Ссылка КАК Ссылка,

| Склады.Представление КАК Представление

|ИЗ

| Справочник.Склады КАК Склады

|ГДЕ

| Склады.Ссылка В(&СписокСкладов)";

Запрос.УстановитьПараметр("СписокСкладов", сп.ВыгрузитьКолонку("Склады"));

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

Пока Выборка.Следующий() Цикл

СписокСкладов.Добавить(Выборка.Ссылка,Выборка.Представление);

КонецЦикла;

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

Получаем результат вида:

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

« 1 … 23 24 25 26 27 … 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