• Бесплатный ВЕБИНАР по OSINT с Екатериной Тьюринг: ➡️9 февраля в 19:00 (мск) пройдет урок

    Как безопасно искать информацию в открытых источниках

    🔥 Записаться 🔥

Нужна помощ в 1с

  • Автор темы Автор темы Std
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
S

Std

Я в 1с программировать неумею но мне нужна помощона заключается в...
При формировании прай листа в 1с и сохранения его в формате excel в колонке наименование мне надо чтобы там появлось примечание из справочника номенклатура(коментарий из вкладки дополнительно)

Если кто может помоч то будьте любезны
 
Давайте в студию слезную историю на тему "Почему мы не хотим обращаться к программисту".
 
Пишем обработку выгрузки данных из 1С в excel, при этом в екселе есть такое понятие как макрос, открываем ексель запускаем на запись макрос и создаем примечание, далее смотрим код в макросе и переносим это всё в 1С. Вуаля. :)
 
Для: masol
Спасибо за помощь на я не догоняю куда вставить этот код
Если можешь по подробнее расскажи пожалуйста
 
ОкноEXCEL=создатьобъект("Excel.Application");
ОкноEXCEL.Caption=Заявка.поставщик+"_"+Рабочаядата()+ " "+Аптека;
NB=ОкноEXCEL.Workbooks.Add();

ОкноEXCEL.Cells(1,1).Value="код";
ОкноEXCEL.Cells(1,2).Value="наименование";
ОкноEXCEL.Cells(1,3).Value="количество";
ОкноEXCEL.Cells(1,4).Value="производитель";
ОкноEXCEL.Cells(1,5).Value="цена_опт";
ОкноEXCEL.Cells(1,6).Value="нац_опт";
ОкноEXCEL.Cells(1,7).Value="годен_до";

ОкноEXCEL.Cells(3,2).Value="Заявка для "+заявка.поставщик+" ( прайс от "+рабочаядата()+" ).";
ОкноEXCEL.Cells(4,2).Value="Дата формирования заявки "+рабочаядата()+".";
поставщик=Заявка.поставщик;
КонецЕсли;
ном=ном+1;
пока цикл
Вот Здеся и должен быть код вставки примечания, который увидишь в макросе ОкноEXCEL. бла бла бла
ОкноEXCEL.Cells(ном,1).Value=Заявка.код;
ОкноEXCEL.Cells(ном,2).Value=Заявка.Товар;
ОкноEXCEL.Cells(ном,3).Value=Заявка.КолЗак;
ОкноEXCEL.Cells(ном,4).Value=Заявка.изготовитель;
ОкноEXCEL.Cells(ном,5).Value=Заявка.Цена;
ОкноEXCEL.Cells(ном,6).Value=Заявка.наценка;
ОкноEXCEL.Cells(ном,7).Value=Заявка.годен_до;
конеццикла;
NB.SaveAs(ИмяФФ);
NB.Close();
ОкноEXCEL.Quit();
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!