невозможность » Поиск

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

Право на изменение и право на редактирование - в чем отличие? Категория: Пользователь, роль доступа, интерфейс

Вертикальная автофиксация для СКД

В СКД очень не хватает возможности автофиксации строк. Обусловлено это невозможностью однозначно определить их количество в общем случае. Однако в большинстве случаев это можно сделать
Обращаю ваше внимание, что приведенная процедура работает не всегда корректно. Но в большинстве случаев она сделает свое дело.

Код 1C v 8.х

 // Выводит результат СКД с установкой вертикальной автофиксации.

// Параметры:

// Таб - ТабличныеДокумент, ПолеТабличногоДокумента - куда выводим отчет;

// ПроцессорКомпоновкиДанных - ПроцессорКомпоновкиДанных;

// ЭлементыРасшировки - ЭлементыРасшифровкиКомпоновкиДанных;

// МассивИгнорируемыхПолей - Массив, *Неопределено - массив имен игнорируемых полей;

// РазрешитьПрерывание - Булево, *Истина.

//

Процедура ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок(Таб, ПроцессорКомпоновкиДанных, ЭлементыРасшировки,

 Знач МассивИгнорируемыхПолей = Неопределено, РазрешитьПрерывание = Истина) Экспорт 

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Таб);

 ПроцессорВывода.НачатьВывод();

 ФиксацияВыполнена = Ложь;

 Если МассивИгнорируемыхПолей = Неопределено Тогда

 	МассивИгнорируемыхПолей = Новый Массив;

 КонецЕсли; 

 Пока Истина Цикл

 	ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();

 	Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда

 	 Прервать;

 	КонецЕсли;

  

 	// Автофиксация

 	Если Не ФиксацияВыполнена Тогда

 	 Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл

 	 Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

 	 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();

 	 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл

 	 Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда

 	 Таб.ФиксацияСверху = Таб.ВысотаТаблицы;

 	 ФиксацияВыполнена = Истина;

 	 Прервать;

 	 КонецЕсли;

 	 КонецЦикла;

 	 Если ФиксацияВыполнена Тогда

 	 Прервать;

 	 КонецЕсли;

 	 КонецЕсли;

 	 КонецЦикла;

 	КонецЕсли;

  

 	ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);

 	Если РазрешитьПрерывание Тогда

 	 ОбработкаПрерыванияПользователя();

 	КонецЕсли; 

 КонецЦикла;

 ПроцессорВывода.ЗакончитьВывод();

 

КонецПроцедуры // ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок

tormozit

Категория: Схема Компоновки Данных

Использование RLS Категория: Пользователь, роль доступа, интерфейс

Что такое СКД? Категория: Схема Компоновки Данных

Запись СД из 1С(без ВК и других программ, проверено на ХР/2003)

Код 1C v 7.x

 

Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1)

    Перем Имя,Каталог;

    scr=СоздатьОбъект("MSScriptControl.ScriptControl");

    scr.language="javascript";

    shell=СоздатьОбъект("Shell.Application");

    scr.AddObject("Shell",shell);

    ИмяСлужбы="ImapiService";

    Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда

        Предупреждение("Вам недозволено записывать диски СД!",5);

        Возврат;

    КонецЕсли;

    scr.Eval("Shell.ServiceStart('"+ИмяСлужбы+"',true)");

    РасположениеФайла(Каталог,Имя);

    Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбирите файл для записи","Все файлы|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    fso=СоздатьОбъект("Scripting.FileSystemObject");

    wshshell=СоздатьОбъект("WScript.Shell");

    КаталогДляЗаписи=wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CD Burning");

    fso.CopyFile(Каталог+Имя,КаталогДляЗаписи+"\"+Имя,-1);

    ДискДляЗаписиNS=shell.NameSpace(ДискДляЗаписи);

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Eject",АвтоИзвлечениеСД,"REG_DWORD");

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Close",АвтоЗакрытиеМастера,"REG_DWORD");

    scr.AddObject("Verbs",ДискДляЗаписиNS.items().item().verbs());

    e=scr.Eval("new Enumerator(Verbs)");

    Пока e.atEnd(0)=0 Цикл

        Если Найти(Нрег(e.item(0).name),"записать файлы на компакт-диск")>0 Тогда

            e.item(0).doit();

            Пока wshshell.appactivate("Мастер записи компакт-дисков")=0 Цикл

            КонецЦикла;

            wshshell.sendkeys("{ENTER}")

        КонецЕсли;

        e.moveNext(0);

    КонецЦикла;

    Пока wshshell.appactivate("Мастер записи компакт-дисков")=-1 Цикл

        ВвестиСтроку("","Пауза",1,0,1);

    КонецЦикла;

КонецПроцедуры

Конечно метод дубовенький, расчитан тока на русскую версию, но можно и допеределать.
Не стал писать код определения пишущего сидирома и возможности записи (хотя на отсутствие диска или невозможность записать ОС сама укажет)...
Автор: smaharbA

А через Nero можно записать так:

Код DOS Batch File

 

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log

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

Функция проверяет соответствие КПП Контрагента требованиям

Код причины постановки на учёт (КПП) представляет собой девятизначный цифровой код, который вместе с ИНН организации позволяет однозначно идентифицировать её обособленные подразделения (см. КПП в Википедии).

Структура КПП:

* 4 цифры – код подразделения ФНС России (справочник СОУН);
* 2 цифры – код причины постановки на учёт;
* 3 цифры – порядковый номер постановки на учёт;

В большинстве случаев КПП выглядит как: код подразделения ФНС + 01001 поскольку не так уж много организаций имеют обособленные подразделения.

К недостаткам КПП можно отнести невозможность проверки КПП по контрольной сумме. Максимум можно проверить “разумность” заполнения каждого из его элементов. В общем случае КПП не несёт больше информации чем несёт ИНН, и практически никогда не используется по отдельности в ИНН организации.

Код 1C v 8.х

 // Параметры:

// КПП - строка - проверяемый код причины постановки на учет

Функция КППСоответствуетТребованиям(Знач КПП) Экспорт

	

	Если НЕ ТолькоЦифрыВСтроке(КПП) Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Если СтрДлина(СтрЗаменить(Строка(КПП), "0", "1")) <> 9 Тогда

		Возврат Ложь;

	КонецЕсли;

	

	Возврат Истина;

	

КонецФункции

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