Доброго времени суток! Помогите решить огромную для меня проблему. Есть 1с 7,7 конфигурация изменялась под нужды организации.
Вообщем к сути проблемы. В расходной накладной указывается дата выпуска продукции вида 06.02.13 в эту расходную наклодную добавлена кнопочка печати сертификатов продукции. В сертификате в поле 3-9 (в ячейку) вставлялось определеное значение которое бралось из справочника а сейчас нужно чтоб в это поле вставлялась дата производства товара без точек. Пример Дата производства 29.06.13 а в это поле должно вставляться число 29062013.
Вот часть кода из модуля расходной накладной
// ===============================Распечатка сертификатов============================================================
Процедура ПечатьСерт()
Таб = СоздатьОбъект("Таблица"); //создали таблицу
ТаблТМЦ = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТаблТМЦ,"ТМЦ,Выпуск,Кво,Ед,Коэффициент,ЦенаБезНДС,СуммаБезСкидки,СуммаБезНДС,НДС,Сумм
аСНДС");
ТаблТМЦ.ВыбратьСтроки();
Пока ТаблТМЦ.ПолучитьСтроку()=1 Цикл
Если Найти(ТаблТМЦ.ТМЦ.Наименование,"/") = 3 Тогда
Таб.Открыть(КаталогИБ()+"Sert\"+Лев(ТаблТМЦ.ТМЦ.Наименование,Найти(ТаблТМЦ.ТМЦ.Наименование,"/")-1)+"_1");//открываем файл сертификата если в имени ТМЦ есть /
Иначе
Таб.Открыть(КаталогИБ()+"Sert\"+Лев(ТаблТМЦ.ТМЦ.Наименование,Найти(ТаблТМЦ.ТМЦ.Наименование," ")));//открываем файл сертификата
КонецЕсли;
Таб.Область(9, 3,9,3).Текст = ТаблТМЦ.Выпуск;//установка даты выпуска
Таб.Область(10, 3,10,3).Текст = ДобавитьМесяц(ТаблТМЦ.Выпуск,24);//установка даты конечного срока использования
[color="#FF0000"]Таб.Область(11, 3,11,3).Текст = ТаблТМЦ.ТМЦ.КвоЗаМесяц.Получить(ТаблТМЦ.Выпуск);//установка количества выпущенного чая[/color]
Таб.Область(11, 4,11,4).Текст = "";
Таб.Напечатать(0);
КонецЦикла;
КонецПроцедуры
// ===============================
Таб.Область(11, 3,11,3).Текст = ТаблТМЦ.ТМЦ.КвоЗаМесяц.Получить(ТаблТМЦ.Выпуск);//установка количества выпущенного чаявот там нужно это сделать!
Сообщение отредактировал Vofka - 07.02.13, 16:37