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

Тема в разделе "1C и всё что с ней связано", создана пользователем Std, 15 фев 2007.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Std

    Std Гость

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

    Если кто может помоч то будьте любезны
     
  2. vitfil

    vitfil IT-интегратор

    Регистрация:
    2 апр 2004
    Сообщения:
    2.062
    Симпатии:
    0
    Давайте в студию слезную историю на тему "Почему мы не хотим обращаться к программисту".
     
  3. masol

    masol Гость

    Пишем обработку выгрузки данных из 1С в excel, при этом в екселе есть такое понятие как макрос, открываем ексель запускаем на запись макрос и создаем примечание, далее смотрим код в макросе и переносим это всё в 1С. Вуаля. :)
     
  4. Std

    Std Гость

    Для: masol
    Спасибо за помощь на я не догоняю куда вставить этот код
    Если можешь по подробнее расскажи пожалуйста
     
  5. masol

    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();
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей