Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 07:50

переделка печатной формы

Автор gabi, 12 сен 2024, 12:31

0 Пользователей и 1 гость просматривают эту тему.

gabi

день добрый, подскажите пожалуйста есть ли способ быстрого изменения макета?
печатная форма изначально такая Конфигуратор - Бухгалтерия для Кыргызстана, редакция 1.7 12.09.2024 15_12_18.png
и сказали фигли там все на английском, нужен и русский язык. и теперь она должны выглядеть такАВР на англ.яз_новый 12.09.2024.xlsx - Excel 12.09.2024 15_11_23.png

antoneus

Быстро впечатать буквы руками)

LexaK

или взять похожую типовую ПФ....
если помогло нажмите: Спасибо!

gabi


gabi

LexaK, не подскажите в другом
я тут из формы беру ТЧ в форму редактирования, а потом пытаюсь сохранить изменения, но получилось пока через Добавить()
модуль Формы:
&НаКлиенте
Процедура Изменить(Команда)     
    ТекДанные = Элементы.Товары.ТекущиеДанные;
    Если ТекДанные = Неопределено Тогда
        Возврат
    КонецЕсли;
    ТекДанные.Сумма = ТекДанные.Цена * ТекДанные.Количество;
    ПараметрыФормы = Новый Структура("Номенклатура, Количество, Цена, Сумма", ТекДанные.Номенклатура, ТекДанные.Количество, ТекДанные.Цена, ТекДанные.Сумма);
    ОткрытьФорму("Обработка.ОРТ_РМКУправляемыйРежим.Форма.ФормаРедактирования", ПараметрыФормы, ЭтАфОРМА,,,,, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры 

&НаКлиенте
Процедура Удалить(Команда)
    Товар = Объект.Товары;
    Товар.Удалить(); 
    //Объект.Товары.Очистить();
КонецПроцедуры 

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

&НаСервереБезКонтекста
Функция ПолученияТипаЦены(ВыбранноеЗначение)
    ОтборТипЦен = Новый Структура("ТипЦены, Номенклатура",Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная"), ВыбранноеЗначение);
    Если  регистрысведений.ОРТ_ПрайсЛист.СрезПоследних(ТекущаяДата(), ОтборТипЦен).Количество() > 0 Тогда 
        Возврат регистрысведений.ОРТ_ПрайсЛист.СрезПоследних(ТекущаяДата(), ОтборТипЦен)[0].Цена;
    Иначе
        Возврат 0;
    КонецЕсли;   
КонецФункции
#КонецОбласти


Модуль Формы Редактирования
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)     
    СтандартнаяОбработка = Ложь; 
     
    ПараметрыФормы = Новый структура("Номенклатура, Количество, Цена, Сумма", Параметры.Номенклатура, Параметры.Количество, Параметры.Цена, Параметры.Сумма);
    ЗаполнитьЗначенияСвойств(Этаформа, ПараметрыФормы);
КонецПроцедуры   

&НаКлиенте
Процедура Сохранить(Команда)   
    //ТекДанные = Элементы.Товары.ТекущиеДанные;       
    Структура = Новый Структура("Количество", Количество);
    СтрокаНовая = ВладелецФормы.Объект.Товары.добавить();
    ЗаполнитьЗначенияСвойств(СтрокаНовая, Структура);
    Закрыть();
    //Параметр = Новый Структура("Количество,  Сумма", Количество, Сумма); 
    //ФормаПередачи = ПолучитьФорму("Обработка.ОРТ_РМКУправляемыйРежим.Форма.Форма", параметры, этаформа,,,);
    //ЗаполнитьЗначенияСвойств(, Параметр);
    //Оповестить("ЗакрытиеФормыККМ", Параметр);
    //Закрыть();
КонецПроцедуры

[КОПИЯ] Бухгалтерия для Кыргызстана, редакция 3 12.09.2024 20_35_37.png
[КОПИЯ] Бухгалтерия для Кыргызстана, редакция 3 12.09.2024 20_35_21.png 

gabi

спасибо, разобралась сама

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск