Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Вопрос по структуре данные МеДок Firebird
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Тематическое общение
Squall84
Доброго времени суток. Нужно подключиться к базе Медка и получить только зарегистрированные налоговые накладные.

Я подключился к базе FireBird. Получаю список НН. Тут все работает без проблем.

Но не могу понять откуда получить признак - зарегистрирован или нет. Если подключаться по API методом OpenDocumentByExDocID(), то можно указать статус документа. Т.е. принят, не принят, зарегистрирован и т.п. Но в основной таблице в базе я не вижу этого признака.

Есть подозрение, что этот статус хранится в другой таблице. Половину таблиц перебрал, не вижу, где может храниться этот статус.

Возможно кто-то делал подобное и может подсказать?
29a
Squall84 @ 02.04.21, 13:43 необходимо зарегистрироваться для просмотра ссылки ,
            СтрокаПодключения = "Driver={"+СокрЛП(ПараметрыПодключенияSQL.Драйвер)+"};Server="+СокрЛП(ПараметрыПодключенияSQL.Сервер)+";Database="+СокрЛП(ПараметрыПодключенияSQL.База)+";User ID="+СокрЛП(ПараметрыПодключенияSQL.Пользователь)+";Password="+СокрЛП(ПараметрыПодключенияSQL.Пароль)+";";
            
            ADODBConnection = Новый COMОбъект("ADODB.Connection");
            ADODBConnection.ConnectionString = СтрокаПодключения;
            ADODBConnection.CursorLocation= 3;
            ADODBConnection.Open();
            
            ADODBCommand = Новый COMObject("ADODB.Command");
            ADODBCommand.ActiveConnection = ADODBConnection;
            ADODBCommand.CommandTimeOut = 10000;
            
            ADODBCommand.CommandText = ТекстЗапроса;                    
            
            RS = Новый COMОбъект ("ADODB.RecordSet");
            
            Попытка
                RS = ADODBCommand.Execute();
            Исключение
                Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
                Продолжить;
            КонецПопытки;
            
            ВсегоЗаписей = RS.RecordCount;
            
            Пока RS.EOF() = 0 Цикл
                //запись
                Инд = 0;
                Структура = Новый Структура;
                //все ее поля
                Для Каждого П Из RS.Fields Цикл
                    Если RS.fields(Инд).Value = Null Тогда
                        Структура.Вставить(П.Name, "");
                    Иначе    
                        Структура.Вставить(П.Name, RS.fields(Инд).Value);
                    КонецЕсли;    
                    Инд = Инд + 1;
                КонецЦикла;
                //REGDATE - дата регистрации документа в налоговой, если не пустая значит зарегистрирован
            КонецЦикла;
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.