[apsorry]

Доброго времени суток! Помогите решить огромную для меня проблему. Есть 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

[Kaliban]

Таб.Область(11, 3,11,3).Текст = ТаблТМЦ.ТМЦ.КвоЗаМесяц.Получить(ТаблТМЦ.Выпуск);//установка количества выпущенного чая

вот там нужно это сделать!

ДатаДляПечати=Строка(ТаблТМЦ.Выпуск);
ДатаДляПечати=стрЗаменить(ДатаДляПечати,".","");
Таб.Область(11, 3,11,3).Текст =ДатаДляПечати;

i

Выделяем код

Сообщение отредактировал Vofka - 06.02.13, 17:08

[apsorry]

ДатаДляПечати=Строка(ТаблТМЦ.Выпуск);
ДатаДляПечати=стрЗаменить(ДатаДляПечати,".","");
Таб.Область(11, 3,11,3).Текст =ДатаДляПечати;

спасибо за ответ, а подскажите пожалуйста можно сделать так что бы год отображался 4мя знаками а не двумя!

например дата выпуска стоит 29.06.11 а серия должна получаться вида 29062011 у меня сейчас, благодаря вам, все получилось кроме того что цифры из года только две последние вставляет!

[Домовик]

ДатаДляПечати=Строка(Формат(ТаблТМЦ.Выпуск,"DDDMMYYYY"));
ДатаДляПечати=стрЗаменить(ДатаДляПечати,".","");
Таб.Область(11, 3,11,3).Текст =ДатаДляПечати;

а как фирму зовут, если не секрет. Комментарий такой знакомый .. "Создали таблицу" )))

Сообщение отредактировал Домовик - 07.02.13, 17:31

[apsorry]

а как фирму зовут, если не секрет. Комментарий такой знакомый .. "Создали таблицу" )))

Лекфарма Адонис зовут фирму!

Огромное спасибо за помощь! все получилось так как нужно!

[Cthulhu]

Таб.Область(11, 3).Текст =стрЗаменить(Формат(ТаблТМЦ.Выпуск,"ДДДММГГГГ"));