Code First и Linq to EF на примере 1С версии 7.7 и 8.3 часть I

Публикация № 393228

Разработка - Практика программирования

Linq Code First

Данный проект является чисто исследовательским примером использования Code First и Linq to EF на примере 1С версии 7.7. Так как сам я программист 1С, то мне всегда было интересно, как можно перенести модель объектов 1С на компилируемые языки, и использовать мощь Linq to EF. С появлением Code First давно хотел прикрутить, но все как-то руки не доходили, и вот, наконец ..

Продолжение здесь //develop.iservice.ru/public/402038/ 

Здесь лежит практика использования //develop.iservice.ru/public/402433/

И примеры использования классов .Net в 1С

//develop.iservice.ru/public/448668/

//develop.iservice.ru/public/238584/

Для начала создадим базовый класс

public class СправочникПредок

    {

        public virtual string ID { get; set; }

        public virtual string  Наименование { get; set; }

        public virtual bool ПометкаУдаления { get; set; }

        public virtual byte ISFOLDER { get; set; }

        public virtual object ПолучитьКод() { return""; }

        public virtual string Вид() { return""; }

        public virtual bool  ЭтоГруппа() { return ISFOLDER == 1; }

    }

 

Зачем это нужно, поясню чуть позже.

На его основе можно создать описание справочника, например, Номенклатуры

 

[Table("SC84")]

    public partial class Номенклатура :СправочникПредок

    {

 

        public DateTime ДатаДляПериодическихРеквизитов = DateTime.Now;

 

        [Key]

        [Required]

        [StringLength(9)]

        override public  string ID { get; set; }

 

        [Column("CODE")]

        [Required]

        [StringLength(8)]

        public string  Код { get; set; }

 

        [Column("DESCR")]

        [Required]

        [StringLength(99)]

        override    public  string   Наименование { get; set; }

 

        [Column("PARENTID")]

        [Required]

        [StringLength(9)]

        public string   РодительId { get; set; }

        override public  byte ISFOLDER { get; set; }

 

        [Column("ISMARK")]

        override public  bool   ПометкаУдаления { get; set; }

 

   

..............................................................

        [Column("SP94")]

        [Required]

        [StringLength(9)]

        public string ОсновнаяЕдиницаId { get; set; }

        [Column("SP8906")]

        [Required]

        [StringLength(9)]

        public string  МатериалId { get; set; }

..............................................................

 

        public  override  object  ПолучитьКод() { return  Код; }

        virtual public Справочник.Номенклатура Родитель { get; set; }

 

       

        virtual public Справочник.Номенклатура Материал { get; set; }

        [InverseProperty("Материал")]

        public ICollection<Справочник.Номенклатура> ПодчиненныеДляМатериал { get; set; }

 

      

        [InverseProperty("Владелец")]

        public ICollection<Справочник.Единицы> ПодчиненныеЕдиницы { get; set; }

        override public string  Вид() { returnВидыСправочников.Номенклатура; }

 

 

 

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

Про соглашение имен подробно написано здесь

http://metanit.com/sharp/entityframework/2.6.php

 

Дополнительно обращу ваше внимание на

 

virtual public Справочник.Номенклатура Материал { get; set; }

        [InverseProperty("Материал")]

        public ICollection<Справочник.Номенклатура> ПодчиненныеДляМатериал { get; set; }

 

 

Это требует Code First для разрешения ссылок, когда один тип ссылается на сам себя и описания один ко многим. Также нужно описать коллекции на подчинённые справочники

 

public partial class  Единицы :СправочникПредок

    {

 

        public DateTime ДатаДляПериодическихРеквизитов = DateTime.Now;

 

        [Key]

        [Required]

        [StringLength(9)]

        override public  string ID { get; set; }

        [NotMapped]

        override public  string  Наименование { get { return""; } set { } }

 

        [Column("PARENTEXT")]

        [Required]

        [StringLength(9)]

        public string  ВладелецId { get; set; }

        [NotMapped]

        override public  byte ISFOLDER { get { return 2; } set { } }

 

        [Column("ISMARK")]

        override  public  bool  ПометкаУдаления { get; set; }

 

        [Column("SP79")]

        [Required]

        [StringLength(9)]

        public string  ОКЕИId { get; set; }

 

        [Column("SP76", TypeName = "numeric")]

        public decimal Вес { get; set; }

 

        [Column("SP78", TypeName = "numeric")]

        publicdecimal Коэффициент { get; set; }

 

        [Column("SP80")]

        [Required]

        [StringLength(13)]

        public  string  ШтрихКод { get; set; }

 

        [Column("SP8752", TypeName = "numeric")]

        public decimal Объем { get; set; }

 

        [Column("SP9519")]

        [Required]

        [StringLength(36)]

        public string Ref { get; set; }

 

        virtual public Справочник.Номенклатура  Владелец { get; set; }

 

        virtual public Справочник.ОКЕИ  ОКЕИ { get; set; }

        override public string Вид() { return   ВидыСправочников.Единицы; }

    }

 

У справочника единицы нет ни Наименования, ни кода и поля Родитель. Пометим эти свойства как [NotMapped] и 

установим возвращаемые значения по умолчанию

 

На этом описательная часть закончена, перейдём к самому вкусному.

Используя предка, можно написать обобщенную функцию.

 

public TEntity ПолучитьЭлементСправочника<TEntity>(string ID) where TEntity : СправочникПредок

        {

 

 

            var query2 = from спр in this.Set<TEntity>()

                         where  спр.ID == ID

                         select  спр;

            return query2.SingleOrDefault<TEntity>();

 

        }

 

Теперь мы можем вызвать её таким способом

 

public static СправочникПредок ПолучитьЗначениеНеопределенногоСправочника(string НеопределенныйИД)

        {

            var тип = НеопределенныйИД.Substring(0, 4);

            var id = НеопределенныйИД.Substring(4, 9);

 

            switch (тип)

            {

                case ВыдСправочника36.Аналоги:

                    return БДолучитьЭлементСправочника<Справочник.Аналоги>(id);

                case ВыдСправочника36.Банки:

                    return БДолучитьЭлементСправочника<Справочник.Банки>(id);

 

 

При получении неопределенного справочника нам доступны все свойства и методы предка.

Следует отметить, что Linq возвращает не реальный объект, а прокси. То есть для того, что бы получить реальный тип нужно вызвать GetType().BaseType

 А теперь посмотри на мощь LINQ.

 В Linq есть два синтаксиса запросов, которые можно совмещать

 

using (var db = new Model1())

            {

              

                var Товары = db.Спр_Номенклатура.Include("ПодчиненныеЕдиницы").Where(p => p.ISFOLDER == 2 && p.РодительId != "     0   " && p.ПодчиненныеЕдиницы.Any()).Take(10);

             

                foreach (var Товар in Товары)

                {

                   

                    Console.WriteLine("{0}.{1} - {2}", Товар.ID, Товар.Наименование, Товар.Код);

                   

                    foreach (var Единица in ТовародчиненныеЕдиницы)

                        Console.WriteLine("{0}.{1} - {2}", ЕдиницаКЕИ.Наименование, Единица.ШтрихКод, Единица.Коэффициент);

                }

           

            }

 

Такой запрос генерирует запрос к базе. Не буду указывать все поля, укажу только условия

 

)  AS [Project1]

            WHERE (2 = [Project1].[ISFOLDER]) AND (N'     0   ' <> [Project1].[PARENTID]) AND ( EXISTS (SELECT

                1 AS [C1]

                FROM [dbo].[SC75] AS [Extent2]

                WHERE [Project1].[ID] = [Extent2].[PARENTEXT]

            )) ) AS [Limit1]

        LEFT OUTER JOIN [dbo].[SC75] AS [Extent3] ON [Limit1].[ID] = [Extent3].[PARENTEXT]

 

 

 

Так как по умолчанию применяется ленивая загрузка, то для получения подчиненных единиц генерируется отдельный запрос при первом обращении

 

SELECT

    [Extent1].[ID] AS [ID],

    [Extent1].[CODE] AS [CODE],

    [Extent1].[DESCR] AS [DESCR],

    [Extent1].[ISMARK] AS [ISMARK],

    [Extent1].[SP42] AS [SP42],

    [Extent1].[SP9525] AS [SP9525]

    FROM [dbo].[SC41] AS [Extent1]

    WHERE [Extent1].[ID] = @EntityKeyValue1

-- EntityKeyValue1: '     1   ' (Type = String, IsNullable = false, Size = 9)

 

 

 

Перейдем к более сложным коррелирующим запросам

 

var бд = Константы1С.ГлобальныйКонтекст.БД;

            var query = from Константа in бдаблицаКонстанты

                         where Константа.ID == 9697

                         orderby Константа.DATE descending, Константа.TIME descending, Константа.DOCID descending, Константа.ROW_ID descending

                         select Константа;

                //         select new Константы1СначениеПериодического { Значение = Константа.VALUE }).Take(1);

 

            var query2= (from спр in бдпр_ДляПериодических

                            select new

                            {

                                Наименование=спраименование,

                                ДатаСпр=спратаСпр,

                                Периодические=(from прериод in  query.Where(х=> х.OBJID==спр.ID && х.DATE<=спратаСпр).Take(1)

                                                   select new

                                                   {

                                                      Значение=прериод.VALUE,

                                                       Дата=прериод.DATE

                                                  

                                                   }).FirstOrDefault()

 

                            }

                             );

 

            foreach (var элем in query2)

            {

              

               Console.WriteLine("{0}.{1} - {2}", элем.Наименование,  элем.ДатаСпр, элем.Периодические);

 

              

            }

 

Здесь мечта каждого программиста на 8 ке и 7 ке выполняет следующий код

 

SELECT

    1 AS [C1],

    [Extent1].[DESCR] AS [DESCR],

    [Extent1].[SP9700] AS [SP9700],

    [Limit1].[ROW_ID] AS [ROW_ID],

    [Limit1].[VALUE] AS [VALUE],

    [Limit1].[DATE] AS [DATE]

    FROM  [dbo].[SC9691] AS [Extent1]

    OUTER APPLY  (SELECT TOP (1) [Project1].[ROW_ID] AS [ROW_ID], [Project1].[DATE] AS [DATE], [Project1].[VALUE] AS [VALUE]

        FROM ( SELECT

            [Extent2].[ROW_ID] AS [ROW_ID],

            [Extent2].[DATE] AS [DATE],

            [Extent2].[VALUE] AS [VALUE],

            [Extent2].[DOCID] AS [DOCID],

            [Extent2].[TIME] AS [TIME]

            FROM [dbo].[_1SCONST] AS [Extent2]

            WHERE (9697 = [Extent2].[ID]) AND ([Extent2].[OBJID] = [Extent1].[ID]) AND ([Extent2].[DATE] <= [Extent1].[SP9700])

        )  AS [Project1]

        ORDER BY [Project1].[DATE] DESC, [Project1].[TIME] DESC, [Project1].[DOCID] DESC, [Project1].[ROW_ID] DESC ) AS [Limit1]

 

 

Следует заметить, что если не использовать FirstOrDefault()

То в Периодические будет коллекция.

 

Можно применять такие запросы

 

var бд = Константы1С.ГлобальныйКонтекст.БД;

            var рез= ( from спр in бдпр_Номенклатура

                       where спридНоменклатуры==Перечисление.ВидыНоменклатуры.Услуга

                           select спр).Take(10);

 

 

Для тестов с периодическими реквизитами создал тестовый справочник.

Доступ к ним такой.

    [NotMapped]

        public DateTime ПериодДата

        {

            get

            {

                return Константы1С.Константы.ДатаДляПериодического(9693, ID, ДатаДляПериодическихРеквизитов);

            }

        }

        [NotMapped]

        public decimal  ПериодЧисло

        {

            get

            {

                 var query = Константы1С.Константы.ЗапросДляПериодическогоЗначения(9694, ID, ДатаДляПериодическихРеквизитов);

                var res = query.SingleOrDefault();

                if (res == null)

                    return 0M;

                 return decimal.Parse(res.Значение, System.Globalization.CultureInfo.InvariantCulture);

            }

        }

        [NotMapped]

        public Int64 ПериодИнт

        {

            get

            {

                var query = Константы1С.Константы.ЗапросДляПериодическогоЗначения(9695, ID, ДатаДляПериодическихРеквизитов);

                var res = query.SingleOrDefault();

                if (res == null)

                    return 0;

 

                returnInt64.Parse(res.Значение, System.Globalization.CultureInfo.InvariantCulture);

            }

        }

        [NotMapped]

        public Справочник.Номенклатура ПериодСПР

        {

            get

            {

                 var query = Константы1С.Константы.ЗапросДляПериодическогоЗначения(9696, ID, ДатаДляПериодическихРеквизитов);

 

                var db = Константы1С.ГлобальныйКонтекст.БД;

                var query2 = from спр in db.Спр_Номенклатура

                             join конст  in query on  спр.ID equals  конст.Значение.Substring(0, 9)

                             selectспр;

                return query2.SingleOrDefault();

            }

        }

        [NotMapped]

        public  string  ПериодСтр

        {

            get

            {

 

                var query = Константы1С.Константы.ЗапросДляПериодическогоЗначения(9697, ID, ДатаДляПериодическихРеквизитов);

 

                var res = query.SingleOrDefault();

                if (res == null)

                    return null;

 

 

                return res.Значение.Substring(0, 10);

            }

        }

    }

 

 

И соответственно сам запрос к периодически данным

 

publicstatic System.Linq.IQueryable<Константы1С.ЗначениеПериодического> ЗапросДляПериодическогоЗначения(int ID, string OBJID, DateTime DATE)

        {

            var бд = ГлобальныйКонтекстД;

            var query = (from Константа in бдаблицаКонстанты

                         where Константа.ID == ID && Константа.OBJID == OBJID && Константа.DATE <= DATE

                         orderby Константа.DATE descending, Константа.TIME descending, Константа.DOCID descending, Константа.ROW_ID descending

                         select  new Константы1С.ЗначениеПериодического{ Значение = Константа.VALUE }).Take(1);

 

            return query;

        }

 

 Основной метод формирующий описания выглядит так

 

 

//Пропишем тип реквизита и виртуальные свойства //В зависимости от типа поля
Функция ПолучитьТипРеквизита(вал,Стр,СтрВиртуал,IDПоля,ВидСпр="",СтрКонструктор)
    ИмяПоля=Вал.Идентификатор;
    TypeName="";
    ИмяРеквизита=ИмяПоля;
    тип=Вал.Тип;
    резулт="";
    Required=1;
    ДобавитьКолонкуДляНеопределенногоТипа=0;


    Если Тип="Строка" Тогда
        резулт="string";
        ДлинаНаименования=вал.длина;
        Если ДлинаНаименования=0 Тогда
            TypeName = "text";
            Required=0;
        Иначе
            стр="[StringLength("+ДлинаНаименования+")]"
        КонецЕсли;
    ИначеЕсли Тип="Справочник" Тогда
        резулт="string";
        ИмяРеквизита=ИмяПоля+"Id";
        Вид=СокрЛП(Вал.Вид);
        Если Вид="" Тогда
            // Это неопределенный справочник
            // Установим полю длину 13
            // И добавим свойство которого нет в базе данных
            //Будем сами его извлекать из свойства
            стр="[StringLength(13)]";
            СтрВиртуал="
            | [NotMapped]
            |public СправочникПредок "+ИмяПоля+"
            |{
            |    get
            |    {
            |        return  ГлобальныйКонтекст.ПолучитьЗначениеНеопределенногоСправочника("+ИмяРеквизита+");
            |    }
            |}";
        Иначе
            // Это определенный справочник и Code First сама сможет загружать и сохранять такие свойства
            // Установим длину поля 9 символов
            стр="[StringLength(9)]";
            резулт="string";
            СтрВиртуал=СтрВиртуал+"
            |virtual public Справочник."+Вид+" "+ИмяПоля+" { get; set; }";
        // Когда вид реквизита видом самого справочника добавим коллекцию на подчиненные элементы
            Если Вид=ВидСпр Тогда
                СтрВиртуал=СтрВиртуал+"
                |[InverseProperty("""+ИмяПоля+""")]
                |public ICollection<Справочник."+Вид+"> ПодчиненныеДля"+ИмяПоля+" { get; set; }";

                СтрКонструктор=СтрКонструктор+"
                |ПодчиненныеДля"+ИмяПоля+" = new List<Справочник."+Вид+">();";
            КонецЕсли;
        КонецЕсли;
    ИначеЕсли Тип="Документ" Тогда
        резулт="string";
        ИмяРеквизита=ИмяПоля+"Id";
        Вид=СокрЛП(Вал.Вид);
        Если Вид="" Тогда
            стр="[StringLength(13)]";
            //СтрВиртуал="
            //|[NotMapped]
            //|public object "+ИмяПоля+" { get{return 1С.КонстантыИПеречисления.ПолучитьЗначениеНеопределенногоДокумента("+ИмяРеквизита+");} }"
        Иначе

            стр="[StringLength(9)]";
            резулт="string";

            //Пока не реализован доступ к документам
            //СтрВиртуал=СтрВиртуал+"
            //|virtual public Документ."+Вид+" "+ИмяПоля+" { get; set; }"
        КонецЕсли;
    ИначеЕсли Тип="Дата" Тогда
        резулт="DateTime"
    ИначеЕсли Тип="Число" Тогда
        // Числа у нас хранятся в виде numeric
        // В зависимости от длины и дробной части можно выбрать
        //нужный тип
        TypeName = "numeric";
        Длина=вал.Длина;
        РазрядностьДробнойЧасти=вал.Точность;
        резулт=ПолучитьТипЧисловогоПоля(Длина,РазрядностьДробнойЧасти)
    ИначеЕсли Тип="Перечисление" Тогда
        стр="[StringLength(9)] //Перечисление";
        резулт="string";
        //Вид=СокрЛП(Вал.Вид);
    Иначе
        стр="[StringLength(23)] // Неопределенный тип";
        резулт="string";

        ДобавитьКолонкуДляНеопределенногоТипа=1;
    КонецЕсли;

    Если Required=1 Тогда
        Стр="[Required]
        |"+стр;
    КонецЕсли;


    Если TypeName="" Тогда
        Стр="
        |[Column("""+IDПоля+""")]
        |"+Стр;
    Иначе
        Стр="
        |[Column("""+IDПоля+""",TypeName = """+TypeName+""")]"
    КонецЕсли;

    Стр=Стр+"
    |public "+резулт+" "+ИмяРеквизита+ " { get; set; }";

    Если ДобавитьКолонкуДляНеопределенногоТипа=1 Тогда
        Стр=Стр+"
        | [Column(""T"+IDПоля+""")]
        |[Required]
        |[StringLength(3)]
        |public string Тип"+ИмяПоля+" { get; set; }";
    КонецЕсли;
КонецФункции // гл

Экспериментируйте не на рабочей базе!!!

Буду рад, если кому-то это поможет

 

Скачать файлы

Наименование Файл Версия Размер
Обработки формирующая тексты модулей для Code First для баз 7.7 и 8.3

.zip 119,53Kb
05.10.16
4
.zip 119,53Kb 4 Скачать

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо развёрнутое
Свернуть все
1. Serginio 819 31.08.15 14:31 Сейчас в теме

Вот какие левые запросы с условием на неравенство получились

var бд = Константы1С.ГлобальныйКонтекст.БД;

            var qr = from Номенклатура in бд.Спр_Номенклатура 
                     from единицы in бд.Спр_Единицы.Where(единица => единица.ВладелецId == Номенклатура.ID && единица.ШтрихКод.CompareTo("4") > 0).DefaultIfEmpty() 
                     select new { Номенклатура.Наименование,
                         Номенклатура.ПолнНаименование,
                         единицы.ШтрихКод,
                         ОКЕИ=единицы.ОКЕИ.Наименование
                     };



            foreach (var элем in qr.Take(1000)) 
            { 

                if (элем.ШтрихКод == null)
                    continue;

                Console.WriteLine("{0}.{1} - {2}", элем.Наименование.TrimEnd(), элем.ШтрихКод == null ? "null" : элем.ШтрихКод, элем.ПолнНаименование.TrimEnd(), элем.ОКЕИ == null ? "null" : элем.ОКЕИ);


            }

Показать


Выдает такой запрос
SELECT 
    [Limit1].[C1] AS [C1], 
    [Limit1].[DESCR] AS [DESCR], 
    [Limit1].[SP101] AS [SP101], 
    [Limit1].[SP80] AS [SP80], 
    [Limit1].[DESCR1] AS [DESCR1]
    FROM ( SELECT TOP (1000) 
        [Extent1].[DESCR] AS [DESCR], 
        [Extent1].[SP101] AS [SP101], 
        [Extent2].[SP80] AS [SP80], 
        [Extent3].[DESCR] AS [DESCR1], 
        1 AS [C1]
        FROM   [dbo].[SC84] AS [Extent1]

        LEFT OUTER JOIN [dbo].[SC75] AS [Extent2] ON ([Extent2].[PARENTEXT] = [Extent1].[ID]) AND ([Extent2].[SP80] > N'4') 
        LEFT OUTER JOIN [dbo].[SC41] AS [Extent3] ON [Extent2].[SP79] = [Extent3].[ID] 
    )  AS [Limit1]


Показать
Или больше мне нравится таой запрос

var бд = Константы1С.ГлобальныйКонтекст.БД;
            var qr = from Номенклатура in бд.Спр_Номенклатура

                     select new
                     {
                         Номенклатура.Наименование,
                         Номенклатура.ПолнНаименование,
                         Единицы = (Номенклатура.ПодчиненныеЕдиницы.Where(единица => единица.ШтрихКод.CompareTo("4") > 0)
                         .Select(единица =>

                         new
                         {
                             единица.ШтрихКод,
                             ОКЕИ = единица.ОКЕИ.Наименование
                         }
            )
                         )
                     };


            foreach (var элем in qr.Take(1000))
            {


                foreach (var единица in элем.Единицы)
                    Console.WriteLine("{0}.{1} - {2}", элем.Наименование.TrimEnd(), единица.ШтрихКод, элем.ПолнНаименование.TrimEnd(), единица.ОКЕИ);


            }

Показать

Генерирут SQL запрос


SELECT 



    [Project2].[ID] AS [ID], 
    [Project2].[C1] AS [C1], 
    [Project2].[DESCR] AS [DESCR], 
    [Project2].[SP101] AS [SP101], 
    [Project2].[C2] AS [C2], 
    [Project2].[SP80] AS [SP80], 
    [Project2].[DESCR1] AS [DESCR1]
    FROM ( SELECT 
        [Limit1].[ID] AS [ID], 
        [Limit1].[DESCR] AS [DESCR], 
        [Limit1].[SP101] AS [SP101], 
        [Limit1].[C1] AS [C1], 
        [Join1].[SP80] AS [SP80], 
        [Join1].[DESCR] AS [DESCR1], 
        CASE WHEN ([Join1].[PARENTEXT] IS NULL) THEN CAST(NULL AS int) ELSE 1 END AS [C2]
        FROM   (SELECT TOP (1000) 
            [Extent1].[ID] AS [ID], 
            [Extent1].[DESCR] AS [DESCR], 
            [Extent1].[SP101] AS [SP101], 
            1 AS [C1]
            FROM [dbo].[SC84] AS [Extent1] ) AS [Limit1]
        LEFT OUTER JOIN  (SELECT [Extent2].[PARENTEXT] AS [PARENTEXT], [Extent2].[SP80] AS [SP80], [Extent3].[DESCR] AS [DESCR]
            FROM  [dbo].[SC75] AS [Extent2]
            INNER JOIN [dbo].[SC41] AS [Extent3] ON [Extent2].[SP79] = [Extent3].[ID] ) AS [Join1] ON ([Limit1].[ID] = [Join1].[PARENTEXT]) AND ([Join1].[SP80] > N'4')
    )  AS [Project2]
    ORDER BY [Project2].[ID] ASC, [Project2].[C2] ASC
Показать

Оставьте свое сообщение

См. также

Безопасная работа с транзакциями во встроенном языке Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Разбираемся с опасностями использования транзакций во встроенном языке 1С. Познаем ошибку "В данной транзакции уже происходили ошибки". Учимся защищаться от них.

1 стартмани

25.03.2019    30160    10    tormozit    44    

Работа с журналом регистрации. Выходим за границы платформы

Журнал регистрации Бесплатно (free)

Работа с журналом регистрации нестандартными средствами. А также немного про использование платформы .NET в экосистеме 1С.

12.05.2020    4056    0    YPermitin    24    

Краткое руководство по внесению изменений в конфигурацию

Практика программирования v8 1cv8.cf Абонемент ($m)

Кратко описаны основополагающие моменты при старте групповой разработки конфигурации несколькими программистами. Полезно для проектной документации как требование к разработчикам или сопровождающей компании.

1 стартмани

13.01.2020    14288    17    sapervodichka    41    

Полезные процедуры и функции для программиста

Практика программирования Универсальные функции v8 1cv8.cf Россия Абонемент ($m)

Все мы пишем программный код и часто используем процедуры, облегчающие его написание. Ниже приведена выборка таких полезных процедур и функций.

1 стартмани

07.10.2019    26505    14    HostHost    40    

Вам нравятся запросы в 1С? Промо

Практика программирования Разработка v8 v8::Запросы 1cv8.cf Абонемент ($m)

Речь не только о том, что простейший запрос с "легальным" оформлением растянется на пол-экрана, речь еще обо всем, что нужно написать "в нагрузку" к тексту запроса. Все эти "Новый Запрос", "УстановитьПараметр" и последующие пляски с обработкой результата... Пора с этим заканчивать!

1 стартмани

03.07.2019    17230    4    m-rv    86    

Описание формата внутреннего представления данных 1С в контексте обмена данными

Практика программирования Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

Фирма 1С не рекомендует использовать внутреннее представление данных для любых целей, которые отличны от обмена с 1С:Предприятием 7.7. Но сама возможность заглянуть на "внутреннюю кухню" платформы с помощью функций ЗначениеВСтрокуВнутр(), ЗначениеВФайл(), ЗначениеИзСтрокиВнутр() и ЗначениеИзФайла(), дала возможность сообществу программистов 1С разработать новые приемы разработки и анализа. Так, именно на использовании внутреннего представления был построен алгоритм "быстрого массива", который позволяет практически мгновенно создать массив в памяти на основании строки с разделителями. С помощью разбора внутреннего представления можно "на лету" программным кодом выполнить анализ обычной формы и даже сделать редактор графической схемы. Во внутреннем формате сохраняют свои данные между сеансами различные популярные внешние обработки. А еще это возможность сделать быстрый обмен с внешними системами.

1 стартмани

06.09.2019    16980    11    Dementor    30    

Конвейер проверки качества кода

Инструментарий разработчика Практика программирования Математика и алгоритмы v8 1cv8.cf Абонемент ($m)

Jenkinsfile для выполнения проверки качества кода. Собирает информацию с АПК, EDT и BSL-LS. Сопоставляет ошибки с гит-репозиторием, выгруженным ГитКонвертором. Отправляет в Сонар.

3 стартмани

04.09.2019    20781    21    Stepa86    44    

Процедура ПриКомпоновкеРезультата

Практика программирования v8 1cv8.cf Абонемент ($m)

Коллекция кода

1 стартмани

26.07.2019    31593    13    vasilev2015    59    

1С:Ассемблер. Немного летнего веселья!

Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Все вы, наверное, слышали, что 1С-ники жалуются на свою систему, считая язык 1С недостаточно низкоуровневым, скучным и т.п. Все они с тоской поглядывают в сторону "настоящих" языков программирования. Так вот, господа, они неправы. В системе 1С есть места, где можно размять программерский мозг и получить удовольствие от низкоуровневой техники. Предлагаю вам погрузиться в недра виртуальной машины 1С и понять, как она работает. Там есть свой "ассемблер" и мы попробуем его в действии!

1 стартмани

21.06.2019    26221    76    Evil Beaver    119    

Простые примеры сложных отчетов на СКД

Практика программирования v8 v8::СКД 1cv8.cf Абонемент ($m)

Подписи в отчете. Особенности соединения наборов: как соединить несоединяемое. Остатки на дату и обороты по месяцам в одном отчете. Курс валюты на каждую дату без группировок и соединений в запросе. Отчет с произвольными колонками и с произвольной последовательностью. "Неадекватный отчет".

1 стартмани

12.06.2019    26680    19    Hatson    22    

1C + Python + Django Rest Framework + Vue.js. Опыт несложной full-stack разработки

Практика программирования Внешние источники данных Обмен через XML WEB Разработка v8 1cv8.cf Абонемент ($m)

В этой статье мы рассмотрим путь и основные моменты создания небольшого вэб-сервиса, который мы называем "Онлайн Прайс-лист". Выгрузка из 1С, бэкенд, фронтенд, получение заказов в 1С.

1 стартмани

22.04.2019    29524    32    riposte    63    

ВСТАВИТЬ В Справочник.Номенклатура (Код, Наименование) ЗНАЧЕНИЯ ("001", "Новый товар") Промо

Практика программирования v8 v8::Запросы 1cv8.cf Абонемент ($m)

Вас не обманывают ваши глаза, это запрос на изменение данных! И это работает без прямого доступа к БД, регистрации и смс.

1 стартмани

01.06.2018    27536    86    m-rv    57    

Баг или фича? Неожиданное поведение платформы

Практика программирования Тестирование и исправление Разработка v8 1cv8.cf Абонемент ($m)

Рассмотрим несколько случаев неожиданного поведения платформы 1С, а также что с этим можно cделать.

18.02.2019    21458    0    YPermitin    89    

HTML в новой версии 8.3.14 на примере 3-х JavaScript библиотек: AmCharts, HighCharts, DHTMLX

Универсальные обработки Практика программирования Разработка v8 1cv8.cf Абонемент ($m)

Тестируем возможности HTML в новой версии 8.3.14 платформы на примере 3-х JavaScript библиотек: AmCharts, HighCharts, DHTMLX.

1 стартмани

29.01.2019    26621    90    Synoecium    46    

Отладка сложных отчетов на СКД

Практика программирования v8 v8::СКД 1cv8.cf Россия Абонемент ($m)

Расширение для отладки сложных отчетов на СКД (в т.ч. для собираемых программно "на лету") и быстрого перехода к отладке таких отчетов в консоли запросов и отчетов на СКД.

1 стартмани

28.12.2018    24505    85    maxx    58    

Реализация простого http-сервиса "Просмотр карточки номенклатуры(товара) в браузере"

Практика программирования v8 1cv8.cf Абонемент ($m)

Практический пример реализации простого http-сервиса средствами 1С Предприятие 8.3. Обеспечивает просмотр списка товаров и просмотр данных товара в браузере.

1 стартмани

07.12.2018    20755    16    dmitry1975    32    

Использование подсистемы БСП "Заполнение объектов"

Практика программирования Универсальные функции БСП (Библиотека стандартных подсистем) v8 v8::УФ 1cv8.cf Россия Абонемент ($m)

Применение механизмов БСП для добавления новых команд заполнения к формам различных объектов. Использование расширений конфигурации для доработки. Шаблоны для реализации собственных команд заполнения.

1 стартмани

23.11.2018    23632    12    ids79    23    

Работа с публикациями "Инфостарт"

Практика программирования О сообществе WEB v8 УУ Абонемент ($m)

Работа с рублевыми публикациями на сайте "Инфостарт": ведение клиентов, заказов, обновление файлов публикации, рассылка обновлений.

1 стартмани

13.09.2018    18768    12    RocKeR_13    16    

Заполняем по шаблону (по умолчанию) Промо

Практика программирования v8 v8::УФ 1cv8.cf Абонемент ($m)

Простой в подключении, универсальный и достаточно удобный механизм заполнения реквизитов произвольных документов/справочников значениями по умолчанию. Реализован в расширении, но может быть и непосредственно включен практически в любую конфигурацию на управляемых формах простым копированием одной формы и двух команд. Весь код в статье.

1 стартмани

08.02.2018    25426    19    mvxyz    17    

HTTP Сервисы: Путь к своему сервису. Часть 3

Инструментарий разработчика Практика программирования v8 1cv8.cf Абонемент ($m)

Продолжение статьи «HTTP Сервисы: Путь к своему сервису. Часть 2». В предыдущих частях мы использовали только Get, в этой части поговорим о других методах и длительных операциях.

1 стартмани

27.08.2018    30638    48    dsdred    15    

Позиционирование в помещении с помощью нейросети по сигналу Wi-Fi. Интерактивная карта склада в 1С с показом позиции

Инструментарий разработчика Практика программирования v8 Абонемент ($m)

Данная публикация содержит в себе редактор и интерактивную карту склада или иного помещения, на которой в реальном времени отображается позиция устройства, координаты которого вычисляются по уровням сигнала нескольких роутеров Wi-Fi. В статье и приложенным к ней разработкам предлагаются инструменты и методика для реализации вычисления точной геопозиции внутри помещений с помощью нейронной сети. Конфигурация написана на релизе 1С:Предприятие 8.3.12.1412, клиентское приложение имеет минимальный уровень совместимости SDK -16.

5 стартмани

09.08.2018    25334    25    informa1555    26    

Работа с данными выбора

Практика программирования Работа с интерфейсом v8 Россия Абонемент ($m)

В управляемом интерфейсе заложена мощная возможность описывать связи реквизитов формы через параметры. Установка параметров связей позволяет ограничить выбор данных так, чтобы целостность данных была обеспечена на этапе ввода. Однако без дополнительного программирования задать можно только самые простые связи. Такие условия связи, как зависимость от реквизита через точку или зависимость через дополнительное отношение, заданное в регистре сведений - уже задать без программирования не получится.

1 стартмани

17.07.2018    39138    17    kalyaka    16    

HTTP Сервисы: Путь к своему сервису. Часть 1

Практика программирования WEB v8 1cv8.cf Абонемент ($m)

Уже много было написано про http-сервисы, но то и дело всплывают «Новые» статьи по обмену между базами V8 по COM, что «Немножко» удивляет. Решил внести свои 5 копеек, поработаем с http-сервисом.

1 стартмани

15.07.2018    73511    23    dsdred    24    

Полезные примеры составления схемы компоновки данных #2

Практика программирования v8 v8::СКД 1cv8.cf Абонемент ($m)

Еще один набор примеров как решить частные задачи в СКД

1 стартмани

22.05.2018    27321    11    SITR-utyos    13    

БСП: Дополнительная обработка (Регламенты), примеры от простого к сложному

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Абонемент ($m)

Очень много попадается странных решений, которые можно решить через БСП:Дополнительные отчеты и обработки. Я бы вообще БСП из-за этой подсистемы переименовал в «Большое Спасибо Программистам». Поработаем с подсистемой в части написания регламентных заданий.

1 стартмани

10.05.2018    40984    33    dsdred    36    

Нечеткий поиск одним запросом Промо

Практика программирования v8 1cv8.cf Абонемент ($m)

Использование механизма полнотекстового поиска в 1С не всегда оправдано, т.к. построение индекса и поддержание его в актуальном состоянии может значительно нагружать систему. Предлагаемая реализация нечеткого поиска методом N-грамм выполняется одним запросом, что позволяет производить поиск в любой таблице и не требует предварительного построения индекса.

1 стартмани

28.12.2015    25048    66    vasvl123    9    

Как выполнить отчет на СКД через COM и получить данные отчета?

Практика программирования v8 УПП1 Россия Абонемент ($m)

Для чего это нужно. Например, нужно в одной базе получить какой-либо показатель из другой базы. Этот показатель вычисляется в каком-либо сложном отчете, который написан на СКД. Можно, конечно, "скопипастить" текст запроса из другой базы, немного подправить его и выполнять в том же COM подключении. Но с этим теряется гибкость: если отчет изменился, то нужно помнить о том, что где-то есть его "немного модифицированная" копия. В статье будет рассмотрен пример получения данных из базы ЗУП.

2 стартмани

08.05.2018    25638    8    wowik    3    

Работа со схемой запроса

Инструментарий разработчика Практика программирования v8 v8::Запросы Абонемент ($m)

Стандартом взаимодействия с реляционной базой данных стал язык SQL. Приемником SQL в 1С является язык запросов. Язык запросов, также как и SQL, является структурированным. Составляющие структуры запроса отвечают на разные вопросы о том, какие данные требуется получить и какие манипуляции с множествами данных необходимо произвести при получении. В простых случаях текст запроса можно написать вручную, однако в сложных случаях, а также при программном формировании, - лучше воспользоваться объектной моделью запроса и использовать объект "Схема запроса". В статье дается описание объектной модели и особенностей работы с ней, а также приводится решение, упрощающее взаимодействие с объектом "Схема запроса".

1 стартмани

24.04.2018    40918    85    kalyaka    34    

Бесплатная проверка контрагентов в ФНС (общий модуль с алгоритмом). На примере выводим статус в список справочника контрагентов

Практика программирования v8 1cv8.cf Абонемент ($m)

Если вам интересно проверить контрагенте в ФНС, вам поможет данная публикация. Весь алгоритм работы строится на основе данных, полученных с сервиса http://npchk.nalog.ru совершенно бесплатно.

1 стартмани

01.02.2018    33074    54    rpgshnik    48    

1С: Предприятие + корпоративный чат, как наладить оперативные уведомления за 10 минут Промо

Практика программирования v8 Абонемент ($m)

Как сделать автоматические уведомления о разных событиях из 1С в корпоративный чат MyChat для сотрудников компании

1 стартмани

14.08.2016    44661    36    Demanoidos    60    

Расширение возможностей печати: Вывод произвольного нижнего и верхнего колонтитула

Печатные формы документов Практика программирования Универсальные функции v8 1cv8.cf Абонемент ($m)

Расширяем функционал вывода нижнего / верхнего колонтитула. Стандартно 1С имеет достаточно ограничений по выводу и наполнению колонтитулов содержимым, взять хотя бы такие, как вывод только текста и отсутствие ограничения на номер конечной страницы. А при разработке кода сталкиваешься с тем, что свой блок с нижним колонтитулом нужно прижимать к низу страницы. Казалось бы быстро решаемый вопрос, но и в нем есть нюансы. Сейчас я расскажу о том, как решалась эта задача. UPD 15.02.2018. Добавлен вывод верхнего колонтитула; Вывод колонтитулов на первой и последней странице управляется параметрами; Научился считать страницы: Добавлено заполнение переменных аналогичных стандартным из колонтитулов; Задаются форматы даты и времени. Ограничения прежние: 1. Повторно сформировать табличный документ после смены параметров страницы интерактивно.; 2. Передавать данные для более плотной печати как можно более мелко нарезанными кусками.

1 стартмани

29.12.2017    36465    27    agent00mouse    0    

Практика доступа в базу 1С через протокол oData. Чтение данных

Сервисные утилиты Практика программирования Администрирование данных 1С v8 1cv8.cf Абонемент ($m)

Для чего нужен доступ в базу 1С через REST-интерфейс по протокол oData? Как его организовать? Как не будучи гуру в JavaScript и .NET получить быстрый визуальный доступ к данным базы 1С? Попробую дать ответ на эти вопросы и прокомментирую некоторые нюансы, с которыми я столкнулся.

1 стартмани

11.12.2017    87171    300    Dementor    48    

Печатная форма, сделанная как расширение конфигурации для БП 3.0. Новые возможности БСП

Практика программирования Универсальные печатные формы v8 БП3.0 Абонемент ($m)

Печатные формы на внешних обработках скоро канут в лету. На смену им приходят ПФ, реализованные в виде расширений конфигурации. Не нашел на сайте примеров таких расширений. Привожу пример подобного расширения для БП 3.0.

1 стартмани

06.12.2017    24779    49    kwazi    6    

Как нарисовать граф на 1С Промо

Практика программирования v8 Абонемент ($m)

Описывается реализация на языке запросов 1С метода расположения вершин графа на плоскости, основанного на использовании электромеханической аналогии. При этом вершины графа представляются одноименными электрическими зарядами, дуги - пружинками. Силы взаимодействия вершин в этой системе переводят их из случайного начального в нужное конечное положение. Приведена обработка рисования графов "ГрафОграф", реализующая данный подход, показывающая также динамику процесса. Граф можно задать списком ребер вручную, выбрать из нескольких предопределенных примеров или сформировать по данным информационной базы.

1 стартмани

09.08.2013    68719    206    ildarovich    117