еее
Показаны сообщения с ярлыком жк сампо. Показать все сообщения
Показаны сообщения с ярлыком жк сампо. Показать все сообщения
#7777
    http://zip500.blogspot.com заказывайте любые приложения, у нас есть все комплектующие

    1С и ВЕБ + прием платежей на opencart Данные есть н ЯндексДиск

    сохранение  и поиск элемента справочника


    Элемент = Справочники.Номенклатура.НайтиПоНаименованию("Товар").ПолучитьОбъект();
    Элемент.Наименование = "Новое наименование";
    Элемент.Записать();

     &НаКлиенте
    Процедура ПоКнопкеНовыйКонтрагент(Команда)
           // Вставить содержимое обработчика.
            Перем НовыйКонтрагент;
    
            НовыйКонтрагент = Новый Структура("Наименование, ПолноеНаименование, ИНН");
            НовыйКонтрагент.Наименование = "РиК ООО";
            НовыйКонтрагент.ПолноеНаименование = "ООО Рога и копыта"; 
            НовыйКонтрагент.ИНН =  "123456789012";
    
     
            Если СоздатьНовогоКонтрагента(НовыйКонтрагент) = 0 Тогда
                    Сообщить("Не удалось создать нового контрагента");
            КонецЕсли;
    
    КонецПроцедуры
     
    
    &НаСервере
    Функция СоздатьНовогоКонтрагента(СтруктураСправочника)
    
            Перем НовыйКонтрагент,СпрПользователи;
    
            СпрКонтрагенты = Справочники.Контрагенты;
            НовыйКонтрагент = СпрКонтрагенты.СоздатьЭлемент();
            НовыйКонтрагент.Наименование = СтруктураСправочника.Наименование;
            НовыйКонтрагент.ПолноеНаименование = СтруктураСправочника.ПолноеНаименование; 
            НовыйКонтрагент.ИНН = СтруктураСправочника.ИНН;
            Попытка
                    НовыйКонтрагент.Записать();
                    Возврат 1;
            Исключение
                    Возврат 0;
            КонецПопытки;
    
    КонецФункции    



    Код 1C v 8.х
     //Пример 1
    НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент(); 
    НовыйЭлемент.Наименование = "ООО Березка"; 
    // Установить другие реквизиты.  
    НовыйЭлемент.Записать(); 
    
    НовыйЭлемент = Справочники.Банки.СоздатьЭлемент(); 
    // Получить ссылку на группу, в которой будет находиться новый элемент. 
    Родитель = Справочники.Банки.НайтиПоКоду("000000001"); 
    НовыйЭлемент.Наименование = "ВТБ"; 
    НовыйЭлемент.Код = "000000011"; 
    НовыйЭлемент.Родитель = Родитель; 
    
    // Установить другие реквизиты.  
    НовыйЭлемент.Записать(); 
    
    //Пример 2
    СпрСотр = Справочники.Сотрудники;
    //или так:
    //СпрСотр = Справочники["Сотрудники"]
    НовЭл = СпрСотр.СоздатьЭлемент();
    НовЭл.Наименование = "Иванов Иван Иванович";
    НовЭл.Оклад = 100;
    НовЭл.Записать();

    Внешняя обработка 1С которая подключается по ftp к хостингу и передает в файл наменклатуру по запросу SQL

    Также запрашивает GET параметром HTML страницу, и читает ее содежание на экран.

     ****s://**di.sk/d/TUb37it9M57dRw

    **************** Магазин в битрикс 24


    &НаСервере
    Функция ПодключитьсяКFTPСерверу()
    Соединение = Новый FTPСоединение(
    "ftp.io******232009.****i232.cp.regruhosting.ru", // адрес ftp сервера
    21, // порт
    "z7*3@****3.ru", // логин
    "H*****44", // пароль

    Неопределено, // прокси не используется
    Истина, // пассивный режим работы
    0, // таймаут (0 - без ограничений)
    Неопределено // незащищенное соединение
    );
    Возврат Соединение;
    КонецФункции
    &НаСервере
    Процедура ЗаписатьФайлНаСервере()
    Соединение = ПодключитьсяКFTPСерверу();
    Соединение.УстановитьТекущийКаталог("/public_html/");
    ТекстовыйДок = Новый ТекстовыйДокумент;
    Запрос = Новый Запрос;
    Запрос.Текст =                                "ВЫБРАТЬ
    | ЦеныНоменклатурыСрезПоследних.Номенклатура.Артикул КАК Артикул,
    | ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,
    | ЦеныНоменклатурыСрезПоследних.Цена КАК Цена
    |ИЗ
    | РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних";
    Запрос.УстановитьПараметр("ВидЦены", Справочники.ВидыЦен.НайтиПоНаименованию("Мин цена продажи"));
    РезультатЗапроса = Запрос.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();
    //Текст файла начало
    ТекстовыйДок.ДобавитьСтроку("<h3 align = ""center"">Прайс</h3>");
    ТекстовыйДок.ДобавитьСтроку("<table border = ""1"" align = ""center""><tbody>");
    ТекстовыйДок.ДобавитьСтроку("<tr><td><b>Артикул111</b></td><td><b>Товар</b></td><td><b>Цена</b></td></tr>");
    Пока Выборка.Следующий() Цикл
    ТекстовыйДок.ДобавитьСтроку("<tr><td>" + Выборка.Артикул + "</td><td>" + Выборка.Номенклатура + "</td><td>" + Выборка.Цена + "</td></tr>");
    КонецЦикла;
    ТекстовыйДок.ДобавитьСтроку("</tbody></table>");
    //Текст файла конец
    ВременныйФайл = ПолучитьИмяВременногоФайла("html");
    ТекстовыйДок.Записать(ВременныйФайл);
    Соединение.Записать(ВременныйФайл,"testprice.html");
    //GET компонент начало
    Сервер = "avia3.ru";
    Соединение = Новый HTTPСоединение(Сервер);
    Заголовки = Новый Соответствие;
    Заголовки.Вставить("host", Сервер);   
    Запрос = Новый HTTPЗапрос("/sitemap.html", Заголовки);
    Ответ =Соединение.Получить(Запрос);
    Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их
    ТекстСтраницы= Ответ.ПолучитьТелоКакСтроку();
    //Выведем тест полученной страницы
    Сообщить(ТекстСтраницы);
    КонецЕсли; 
    //GET компонент конец
    КонецПроцедуры
    &НаКлиенте
    Процедура ЗаписатьФайл(Команда)
    ЗаписатьФайлНаСервере();
    КонецПроцедуры

    #7777