типцены » Поиск

Результаты по ключевому слову: типцены

Как установить цену из РегистраСведений на дату создания документа Категория: Регистры сведений

Загрузка данных из таблицы OpenOffice Calc v.3

Код 1C v 8.х

 Процедура ЗагрузитьПрайс(Кнопка)
   
   Попытка
      ServiceManager = Новый ComОбъект("com.sun.star.ServiceManager");
      МетодЗагрузки = "ОО";
   Исключение
      Сообщить("Отсутствует приложение для загрузки файла");
   КонецПопытки;
   
   
   Если МетодЗагрузки = "ОО" Тогда
      
      scr             = Новый ComОбъект("MSScriptControl.ScriptControl");    
      scr.language    = "javascript";
      scr.eval("MassivParametrov = new Array()");
      MassivParametrov = scr.eval("MassivParametrov");
      scr.AddObject("OpenOffice", ServiceManager);
      scr.eval("MassivParametrov[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
      scr.eval("MassivParametrov[0].Name='Hidden'");
      scr.eval("MassivParametrov[0].Value=true");


      
      Desktop = ServiceManager.CreateInstance("com.sun.star.frame.Desktop");
      URL = ConvertToURL(ПутьКПрайсу); 
      Doc = Desktop.LoadComponentFromURL(URL, "_blank", 0, MassivParametrov);
      
      Doc.lockControllers();
      Doc.addActionLock();
      
      Sheets = Doc.GetSheets();;
      Документ = Sheets.GetByIndex(0);
      //Документ = Sheets.GetByName("Лист1");
      
      ТЗ = Новый ТаблицаЗначений;
      ТЗ.Колонки.Добавить("Артикул");
      ТЗ.Колонки.Добавить(   "Цена");
      
      Дальше = 1;
      ТекСтрокаДок = НачальнаяСтрока; 
      Пока Дальше = 1 Цикл
         
         Проверка = СокрЛП(""+Документ.getCellByPosition(0, ТекСтрокаДок).getString()); 
         Если ПустаяСтрока(Проверка) Тогда
            Прервать;
         КонецЕсли;   
         Артикул = СокрЛП(""+Документ.getCellByPosition(КолонкаАртикула-1, ТекСтрокаДок).getString());
         Попытка
            Цена    = Число(СокрЛП(""+Документ.getCellByPosition(КолонкаЦены-1    , ТекСтрокаДок).getString()));
         Исключение
            Цена = 0;
         КонецПопытки;
         
         
         Если (НЕ ПустаяСтрока(СокрЛП(Артикул))) и (НЕ Цена = 0) Тогда  
            НоваяСтрока = ТЗ.Добавить();
            НоваяСтрока.Артикул = Артикул; 
            НоваяСтрока.Цена    = Цена;
         КонецЕсли;
         
         Состояние("Обрабатываем - "+ТекСтрокаДок);

         ТекСтрокаДок = ТекСтрокаДок+1;
                        
      КонецЦикла;
      
      Если ТЗ.Количество() > 0 Тогда
         
         Док      = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
         Док.Дата = ДатаУстановкиЦен;
         ДобавитьТипЦен = Док.ТипыЦен.Добавить();
         ДобавитьТипЦен.ТипЦен = ТипЦены;
         
         Для Каждого ТекСтрока из ТЗ Цикл
            Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", ТекСтрока.Артикул); 
            Если НЕ Номенклатура.Пустая() Тогда
               НоваяСтрока = Док.Товары.Добавить();
               НоваяСтрока.Номенклатура = Номенклатура;
               НоваяСтрока.ТипЦен       = ТипЦены;
               НоваяСтрока.Цена         = ТекСтрока.Цена;
               НоваяСтрока.Валюта       = Валюта;
               НоваяСтрока.ЕдиницаИзмерения = Номенклатура.ЕдиницаХраненияОстатков;
            КонецЕсли;   
         КонецЦикла;
         
         Если Док.Товары.Количество() > 0 Тогда
            Док.Записать();
         КонецЕсли;   
         
      КонецЕсли;   
      
   КонецЕсли;
   
КонецПроцедуры

функция ConvertToURL(FileName)
    ИмяФайла =  СтрЗаменить(FileName," ","%20" );
    ИмяФайла =  СтрЗаменить(ИмяФайла,"\","/");
    Возврат "file:/" + "/localhost/" + ИмяФайла;
Конецфункции

Категория: Работа с Microsoft Office и OpenOffice

Чтение(СрезПоследних) и Запись Регистра Сведений подчиненного регистратору(Обработка проведения)

Для чтения данных из регистра сведений необходимо создать новый отбор и воспользоваться методами СрезПервых или СрезПоследних или использовать запрос как показано в примере обработки далее. Пример кода иллюстрирует эти методы:

Код 1C v 8.х

 Отбор = Новый Структура("ТипЦен, Номенклатура");
Отбор.ТипЦен = ТипЦены; // Какой тип цены
Отбор.Номенклатура = Номенклатура; // Для какой номенклатуры
// Цена в регистре сведений до Рабочей даты включительно
Цена = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних( РабочаяДата(), Отбор);

Для записи в подчиненный регистратору регистр сведений Цены номенклатуры 1С использует механизмы проведения, а именно процедуру Обработка Проведения, которые можно сформировать в конфигураторе, используя помощник - конструктор движений:

Код 1C v 8.х

 Процедура Обработка Проведения(Отказ, Режим)
Для Каждого ТекСтрокаТовары Из Товары Цикл
// регистр Цены Номенклатуры
Движение = Движения.ЦеныНоменклатуры.Добавить();
Движение.Период = Дата;
Движение.ТипЦен = ТекСтрокаТовары.ТипЦен;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.ХарактеристикаНоменклатуры = ТекСтрокаТовары.ХарактеристикаНоменклатуры;
Движение.Валюта = ТекСтрокаТовары.Валюта;
Движение.Цена = ТекСтрокаТовары.Цена;
Движение.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
Движение.ПроцентСкидкиНаценки = ТекСтрокаТовары.ПроцентСкидкиНаценки;
Движение.СпособРасчетаЦены = ТекСтрокаТовары.СпособРасчетаЦены;
КонецЦикла;
КонецПроцедуры

Категория: Регистры сведений