sjourn » Поиск

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

Прямой SQL запрос к базе 7.7 из базы 8.x

Код 1C v 8.х

 РабДата=Лев(СокрЛП(РабочаяДата),10);

    //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); 

    НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

    НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10);

   

    МойЗапрос = "    

    |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost

    |FROM RG38027, SC172, _1SJOURN, DH38011

    |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) =  CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND

    |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |

    |U_nion ALL

    |

    |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost

    |FROM RA38027, SC172, _1SJOURN, DH38011

    |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <=  CONVERT (DATETIME , '"+РабДата+"')) AND

    |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) >  CONVERT (DATETIME , '"+НачМесяца+"')) AND

    |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC)

    |AND (DH38011.SP38005 = '    3Z   ')

    |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC

    |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0

    |ORDER BY SC172.DESCR";

    

    Connection = Новый COMОбъект("ADODB.Connection");

    //Connection.Provider = Провайдер; 

    Connection.ConnectionString = мдСтрокаПодключения;

    

    //Сообщить(МойЗапрос); 

    

    Попытка

        Connection.Open();

    Исключение

        Сообщить("Подключение - bad!");

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");

    //RS.CursorType = 3; 

    RS.Open(МойЗапрос, Connection );

    

    ТЗ=Новый ТаблицаЗначений;

    ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30);

    ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10));

    ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10);

    ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10);

    ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15);

    

    Пока RS.EOF() = 0 Цикл

        КонтрагентНаименование = RS.Fields("DESCR").Value;

        ИДДокумента = RS.Fields("SP38025").Value;

        НомерДок = RS.Fields("DOCNO").Value;

        ДатаДок = RS.Fields("DATADOC").Value;        

        СуммаОстаток = Число(RS.Fields("Ost").Value);

        

        Если СуммаОстаток = 0 Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;

        

        Стр=ТЗ.Добавить();

        

        Стр.КонтрагентНаименование = КонтрагентНаименование;

        Стр.ИДДокумента = ИДДокумента;

        Стр.НомерДок = НомерДок;

        Стр.ДатаДок = Дата(ДатаДок);        

        Стр.СуммаОстаток = СуммаОстаток;

        

        RS.MoveNext();

    КонецЦикла;

Категория: COM-объекты, WMI, WSH

Как узнать программно - база 1С 7.7 DBF или SQL?

База SQL:
Наличие в каталоге базы файла 1cv7.dba

База DBF:
1. Отсутствие 1cv7.dba
2. Наличие *.dbf
3. Наличие 1cv7.DD

Пример от vde69:

Код 1C v 8.х

 // Функция определяет основные настройки базы 1с 77 расположенной в каталоге "КаталогБазы"

 //

 // функция возвращает соответствие определяющее структуру базы

 // "Имя MD файла"         - вместе с полным путем

 // "Имя Users файла"     - вместе с полным путем

 // "Имя Links файла"     - вместе с полным путем

 // "Имя DBA файла"         - вместе с полным путем

 // "Вариант установки"     - перечисление

 // "Имя SQL сервера"

 // "Имя SQL базы"

 // "Имя DBO пользователя"

 // "Пароль DBO пользователя"

 // "Контрольная сумма DBO"

 // "Каталог базы"

 

Функция ПолучитьПараметрыБазы77 (КаталогБазы, ПолучатьПараметрыSQL = Истина) Экспорт 

    Результат = Новый Соответствие;

    // заполним пустые значения

    Результат.Вставить("Имя MD файла", "");

    Результат.Вставить("Дата MD файла", неопределено);

    Результат.Вставить("Размер MD файла", 0);

    Результат.Вставить("Имя Users файла", "");

    Результат.Вставить("Имя Links файла", "");

    Результат.Вставить("Имя DBA файла", "");

    Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

    Результат.Вставить("Имя SQL сервера", "");

    Результат.Вставить("Имя SQL базы", "");

    Результат.Вставить("Имя DBO пользователя", "");

    Результат.Вставить("Пароль DBO пользователя", "");

    Результат.Вставить("Контрольная сумма DBO", 0);

    Результат.Вставить("Каталог базы", СокрЛП(КаталогБазы));

    

    // поехали анализировать

  

    _КаталогБазы = СокрЛП(КаталогБазы);

    Если Прав(_КаталогБазы, 1) <> "\" Тогда

        _КаталогБазы = _КаталогБазы + "\";

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.MD";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если не ВыбФайл.Существует() Тогда

        Возврат Результат;

    КонецЕсли;

    

    // вроде база есть, теперь будем заполнять поля ключевых файлов

 

    

    Результат.Вставить("Имя MD файла", ВыбФайл.ПолноеИмя);

    

    Результат.Вставить("Дата MD файла", ВыбФайл.ПолучитьВремяИзменения());

    Результат.Вставить("Размер MD файла", ВыбФайл.Размер());

    Результат.Вставить("Имя Links файла", _КаталогБазы + "SYSLOG\links.tmp");

    

    ИмяФайла = _КаталогБазы + "usrdef\users.usr";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя Users файла", ВыбФайл.ПолноеИмя);

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.DBA";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя DBA файла", ВыбФайл.ПолноеИмя);

        Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.SQL);

        // здесь надо расшифровать параметры доступа к SQL

Иначе

        // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

         ИмяФайла = _КаталогБазы + "1SJOURN.DBF";

        ВыбФайл = Новый Файл(ИмяФайла);

        Если ВыбФайл.Существует() Тогда

            Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Файловая);

        Иначе

            // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

             Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

            Возврат Результат;

        КонецЕсли;

    КонецЕсли;

Категория: Полезные, Универсальные Функции

Состав информационной базы 1С:Предприятие 7.7 Категория: Администрирование

Очистка базы от документов и остатков, оставляет только справочники 1Cv7

Иногда возникает ситуация, когда необходимо очистить базу от документов, это либо открытие нового периода с чистой базой, либо чистая копия для филиала или отдела.
Вот скрипт для частичной очистки базы, закройте программу "1С:Предприятие", ОБЯЗАТЕЛЬНО СДЕЛАЙТЕ КОПИЮ, поместите файл в рабочую папку базы и запустите на выполнение, запустите программу в монопольном режиме и удалите помеченные объекты.

Есть возможность очистить информационную базу, не удаляя при этом остатки товаров, долги и взаиморасчёты с клиентами. Для этого, прежде чем запустить скрипт удалите в нём строку "del rg*.*. Но такую очистку можно делать только в начале месяца, сразу после открытия нового периода. Обязательно проверьте получившуюся базу данных перед использованием.

Скрипт:

Код DOS Batch File

                rem  ВНИМАНИЕ !!!

                rem  Не храните эту программу вместе с файлами базы,

                rem  при случайном удалении восстановление практически невозможно,

                rem  файлы удаляются минуя корзину. Если Вы случайно запустите её,

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

                rem  любую клавишу. Для отмены выполнения закройте окошко,

                rem  не нажимая на клавиатуру.



                Pause

                Pause



                rem Очищаем служебные папки

                del New_Stru

                del Syslog



                rem Удаляем индексы, списки и шаблоны программиста

                del *.cdx

                del *.lst

                del 1cv7srct.st



                rem Удаляем документы

                del dt*.*

                del dh*.*



                del 1sjourn.dbf

                del 1scrdoc.dbf

                del 1sdnlock.dbf



                rem Очищаем регистры и последовательности (для компоненты Оперативный учёт)

                del 1sstream.dbf

                del rg*.*

                del ra*.*



                rem Удаляем проводки, операции сальдо и остатки (для компоненты Бухгалтерский учет)

                del 1SOPER.dbf

                del 1SENTRY.dbf

                del 1SBKTTLC.dbf

                del 1SBKTTL.dbf

                del 1SACCSEL.dbf

                del 1SSBSEL.dbf



                rem Очищаем журнал регистрации УРИБ

                del 1supdts.dbf

                del 1sdwnlds.dbf

                del 1sdbset.dbf

Источник: Zronet.ru

Категория: Администрирование