+(7) Например, такой как тут - в комментах

(7) А, я Гарамонд оставил... Сейчас поправлю.

(15)
"Ну, платформа-то универсальна."(с)
В смысле операторов "Если ... Тогда ..." или ОткрытьФорму() - да, универсальная. ;-)
А в смысле "механизмов"© хранения и обработки информации - нет.
Да, и в смысле модульности-развития функционала в предметной области - ОченьНет. ;-)
Думаю, это и есть "основная тема" наших с Вами расхождений во взглядах на АвтоМехАнизацию. Для такого расхождения взглядов есть объективные причины.
Думаю, лет так через десять разберемся и придем к общему и НеПротиворичимому (между нами) взгляду на эТТо. Надеюсь...

(15)
P.S. к сообщению #16.
Вот, любопытная статья про "универсальность" платформы в част хУ:
http://www.ms-dynamics.ru/index.php/solutions/microsoft-dynamics-ax/146-microsoft-dynamics-ax-arc

(18)
1) "А ты, кстати, так до сих по и не обозначил: твоя система на чем писана?"(с)
На стандартном встроенном языке "1С 7.7". Плюс - ВК. Как и у тебя. ;-) Только мои ВК призваны обеспечивать взаимодействие с внешним оборудованием. И еще позволяют получить полноценный "навигационный" доступ к БД. Интерфейс описан и, даже, опубликован на данном ресурсе. Т.е. в моих ВК уделяется внимание не "внешней" форме (окон, кнопок, цвету и т.д.), а внутреннему содержанию системы. Это, типа, я тебя подколол... ;-)
2) " вот справочник, вот регистр, вот документ"(с)
У меня нет регистров. Документ (формы ввода информации) и справочник - есть.
3) "Вот то-то этот документ двигает и т.д. и т.п."(с)
Если ты говоришь об учете документов в "производственном блоке"(ПБ), то это не ПБ, а хУ документов. Документ ничего не может "двигать". Двигаются материальные ценности и деньги между объектами их "использования" - складами, контрагентами, цехами, людьми...
4) "Надо добавить - жми кнопку "добавить" и нет проблем. "(с)
Следует, конечно, уточнить - что "добавить". Отчет, форму ввода информации, справочник - аналогично стандартным возможностям "1С 7.7". Хотя, замечу, что за 11 лет приходилось это делать не часто. Например, была торговля - добавилось производство-ремонт. Всякие отчеты появляются чаще.
5) "Каков принцип хранения/движений, в чем база хранится? "(с)
В этом вопросе - два вопрос. ;-)
5.1) "Каков принцип хранения/движений"(с)
Фиксируются хозяйственные операции (ХО) по месту их возникновения. В "унифицированной" структуре на справочниках (в терминах 1С). Движение - см. выше.
5.2) "в чем база хранится"(с)
Хранится в БД. ;-) Поддерживается клиент-серверной СУБД. Информация опубликовано на данном ресурсе.
6) "Лично меня хранение/обработка информации в скуль базах вполне устраивает, я тебе там хоть черта лысого сохраню."(с)
Т.е. твои "Сакральные Знания(с)" глубже моих. :-) У меня описание схемы БД "укладывается" в стандартном 1CV7.DD. Хотя планирую сделать отдельную подсхему с прямым доступом через штатную ВК для хранения динамических итогов. Но, видимо, так и не доберусь до этой задачи. :-(
7) "Без комментариев. Что ты под этим подразумеваешь - одному богу и тебе известно "(с)
Да ты явно - не Бог. Элементарно. Например, у 1С есть конфигурации на все случае жизни нашей Родины. Каждая базируется на своей схеме базы данных. На самом деле БД (и схема) должна быть общая и добавляется в систему несколько модуле (без изменения ранее существующих) которые обеспечивают "предметное" расширение функционала. Основы информатики, 9-ый класс. Моя жена рассказывала деткам. И они, даже, понимали... :-)

(45)
Представь себе- рулю.
Семилетней давности: в базе комплесной 7.7 создается документ "Поручение на платеж".
В базе обычной бухни цепляемся к скуль-таблицам комплексной, выбираем контрагентов со всеми потрохами, при надобности создаем нового в бухне и формируем платежки с нужным контриком, суммами и прочей фигней.
Пример 2: база проходная, ночью цепляется к скуль-таблицам зарплаты на "Камине", определяем какой сотр принят, какой уволен, соответственно перемещаем уволенных в папку "Уволенные" (в базе проходной), нового добавляем.
Что за проблемы разобраться что и как в скуле хранится? Если только для "одноэснегов"
Да на ДЗНВА у меня 80% запросов шло напрямую, в гробу я видал ублюдочные родные запросы от семерки. А 1С++ тогда и в помине не было.

+(45) Чтобы не быть голословным, нашел какое-то старье свое под названием УниверсальныйSQL-запрос
Уж что делало и не помню ;)
//"SET LANGUAGE russian use nva SET IDENTITY_INSERT SC1439 ON insert into SC1439"
Перем ConnectionString;
Перем Connection;
Перем Cmd;
Перем Текст;
Перем ТЗТ;
Перем СтатусСтрока;
Процедура Выгрузить()
Если Поле.РазмерСписка()=0 Тогда
Предупреждение("Нет полей для выгрузки!");
Возврат;
КонецЕсли;

Команда="Select ";
// --- считываем первую запись для получения типов-----
Cmd.CommandText ="Select top 1 * from "+ СокрЛП(Таблица);
RST = СоздатьОбъект("ADODB.RecordSet");
RST= Cmd.Execute; // в RST одна строчка с полями=типы
Для А=1 По Поле.РазмерСписка() Цикл
Т=СокрЛП(Таблица);
Если Поле.Пометка(А)=0 Тогда Продолжить; КонецЕсли;
ID=Поле.ПолучитьЗначение(А);
Команда=Команда+" dbo."+Т+"."+ID+" as "+ID;
Команда=Команда+", ";
КонецЦикла;
Команда=Лев(Команда,СтрДлина(Команда)-2); // убрали последнюю запятую
Команда=Команда+" from "+Т;
Cmd.CommandText =Команда;
RST= Cmd.Execute; // список с типами (без преобразования строку)
Команда="Select ";
Для А=1 По Поле.РазмерСписка() Цикл
Т=СокрЛП(Таблица);
Если Поле.Пометка(А)=0 Тогда Продолжить; КонецЕсли;
ID=Поле.ПолучитьЗначение(А);
Команда=Команда+" Cast(dbo."+Т+"."+ID+" as char) as "+ID;
Команда=Команда+", ";
КонецЦикла;
Команда=Лев(Команда,СтрДлина(Команда)-2); // убрали последнюю запятую
Команда=Команда+" from "+Т;
Cmd.CommandText =Команда;
RS= Cmd.Execute;
Стр="";
НС=0;
RST.MoveFirst();
Кол=2;
Пока Rs.EOF() = 0 Цикл
Если (ВыгрЗаписей<>0) И (НС=ВыгрЗаписей) Тогда Прервать; КонецЕсли;
НС=НС+1;
Стр="";
Для А=0 По rs.Fields.Count-1 Цикл
Идентификатор=RST.Fields(А).Name;
Тип=RST.Fields(А).Type;
ТипЧ=Число(Тип);
Ст=0;
Если ТЗТ.НайтиЗначение(Тип,Ст,Кол)=1 Тогда
ТипСтр=СокрЛП(ТЗТ.ПолучитьЗначение(Ст,1));
КонецЕсли;
//Длина=RST.Fields(А).DefinedSize;
//ВсегоЗнаков=RST.Fields(А).Precision;
//ЗнаковПослеЗапятой=RST.Fields(А).Precision;
Стр=Стр+Идентификатор+","+rs.Fields(А).Value+","+ТипЧ+","+ТипСтр+";";
КонецЦикла;
Стр=Лев(Стр,СтрДлина(Стр)-1); // убрали последнюю точку с запятой
Текст.ДобавитьСтроку(Стр);
Rs.MoveNext();
КонецЦикла;
ИмяФайла="c:\ SQL_"+Т+".sql";
Текст.Записать(ИмяФайла);
RS.Close();
RST.Close();
Connection.Close();
Сообщить("Выгружено "+Строка(НС)+" строк в файл "+ИмяФайла);
КонецПроцедуры

Процедура Соединить()
Поле.УдалитьВсе();
Connection=СоздатьОбъект("ADODB.Connection");
Cmd=СоздатьОбъект("ADODB.Command");
ConnectionString="Provider=SQLOLEDB.1;Password="+СокрЛП(Пароль)+"; Persist Security Info=True; User ID="+
СокрЛП(Логин)+"; Initial Catalog="+СокрЛП(База)+"; Data Source="+СокрЛП(Сервер);
Connection.ConnectionTimeOut =30;
Connection.CursorLocation = 3;
Попытка
Если Connection.State=0 Тогда
Connection.Open(ConnectionString);
КонецЕсли;
Исключение
Предупреждение("Невозможно установить Соединение!"+РазделительСтрок+
"Проверте параметры соединения"+РазделительСтрок+
"(Возможно 1С включена в монопольном режиме)");
Возврат;
КонецПопытки;
Cmd.ActiveConnection = Connection;
// --- считываем первую запись для получения идентификаторов полей в таблице-----
Cmd.CommandText ="Select top 1 * from "+ СокрЛП(Таблица);
RS = СоздатьОбъект("ADODB.RecordSet");
RS= Cmd.Execute;
Поле.УдалитьВсе();
Для А=0 По rs.Fields.Count-1 Цикл
Поле.ДобавитьЗначение(RS.Fields(А).Name);
КонецЦикла ;
Cmd.CommandText ="Select count (*) from "+ СокрЛП(Таблица);
RSC = СоздатьОбъект("ADODB.RecordSet");
RSC= Cmd.Execute;
ВыгрЗаписей=rsc.Fields(0).Value;
СтатусСтрока="Всего записей: "+rsc.Fields(0).Value; Форма.Обновить();
RSC.Close();
КонецПроцедуры

Процедура ПриВыбореОбъекта()
Если ФС.СуществуетФайл(КаталогИБ()+"1Cv7.DDS")=0 Тогда
Сообщить("Файл 1Cv7.DDS в Каталоге бызы не обнаружен!","!");
Возврат;
КонецЕсли;
Т=СоздатьОбъект("Текст");
Т.Открыть(КаталогИБ()+"1Cv7.DDS");
ТекОбъект=Объект.ПолучитьЗначение(Объект.ТекущаяСтрока());
Для А=1 По Т.КоличествоСтрок() Цикл
ТекСтр=СокрЛП(Т.ПолучитьСтроку(А));
Если Найти(ТекСтр,": "+ТекОбъект)>0 Тогда
Стр=СокрЛП(Т.ПолучитьСтроку(А+2));
Стр=СтрЗаменить(Стр,"|",РазделительСтрок);
Стр=СокрЛП(СтрПолучитьСтроку(Стр,3));
Таблица=Стр;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Процедура ПриОткрытии()
Сервер="COUTCHER";
Логин="sa";
Пароль="";
База="nvalocal";
Текст=СоздатьОбъект("Текст");
Для А=1 По Метаданные.Справочник() Цикл
Объект.ДобавитьЗначение("Справочник "+Метаданные.Справочник(А).Идентификатор);
КонецЦикла;
Для А=1 По Метаданные.Документ() Цикл
Объект.ДобавитьЗначение("Документ "+Метаданные.Документ(А).Идентификатор);
Объект.ДобавитьЗначение("Документ (Мн.ч.) "+Метаданные.Документ(А).Идентификатор);
КонецЦикла;
Объект.ТекущаяСтрока(1);
ПриВыбореОбъекта();
ВыгрЗаписей=1;
КонецПроцедуры

Процедура ПометитьВсе(Как)
Если Поле.РазмерСписка()=0 Тогда Возврат; КонецЕсли;
Для А=1 По Поле.РазмерСписка() Цикл
Поле.Пометка(А,Как);
КонецЦикла ;
КонецПроцедуры

//----------------- таблица типов------------------
ТЗТ=СоздатьОбъект("ТаблицаЗначений");
ТЗТ.НоваяКолонка("Тип","Строка",50);
ТЗТ.НоваяКолонка("Знач","Число",3,0);
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adBigInt";
ТЗТ.Знач=20;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adBinary";
ТЗТ.Знач=128;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adBoolean";
ТЗТ.Знач=11;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adBSTR";
ТЗТ.Знач=8;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adChapter";
ТЗТ.Знач=136;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adChar";
ТЗТ.Знач=129;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adCurrency";
ТЗТ.Знач=6;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDate";
ТЗТ.Знач=7;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDBDate";
ТЗТ.Знач=133;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDBTime";
ТЗТ.Знач=134;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDBTimeStamp";
ТЗТ.Знач=135;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDecimal";
ТЗТ.Знач=14;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adDoublel";
ТЗТ.Знач=5;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adEmpty";
ТЗТ.Знач=0;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adError";
ТЗТ.Знач=10;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adError";
ТЗТ.Знач=10;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adFileTime";
ТЗТ.Знач=64;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adGUID";
ТЗТ.Знач=72;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adIDispatch";
ТЗТ.Знач=9;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adInteger";
ТЗТ.Знач=3;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adIUnknown";
ТЗТ.Знач=13;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adLongVarBinary";
ТЗТ.Знач=205;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adLongVarChar";
ТЗТ.Знач=201;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adLongVarWChar";
ТЗТ.Знач=203;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adNumeric";
ТЗТ.Знач=131;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adPropVariant";
ТЗТ.Знач=138;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adSingle";
ТЗТ.Знач=4;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adSmallInt";
ТЗТ.Знач=2;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adTinyInt";
ТЗТ.Знач=16;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adUnsignedBigInt";
ТЗТ.Знач=21;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adUnsignedInt";
ТЗТ.Знач=19;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adUnsignedSmallInt";
ТЗТ.Знач=18;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adUnsignedTinyInt";
ТЗТ.Знач=17;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adUserDefined";
ТЗТ.Знач=132;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adVarBinary";
ТЗТ.Знач=204;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adVarChar";
ТЗТ.Знач=200;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adVariant";
ТЗТ.Знач=12;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adVarNumeric";
ТЗТ.Знач=139;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adVarWChar";
ТЗТ.Знач=202;
ТЗТ.НоваяСтрока();
ТЗТ.Тип="adWChar";
ТЗТ.Знач=130;

_______________________
И че тут, блин сложного? Для ПРОГГЕРА

(45) Мысли в посте в основном правильные. Только вот критика как-то не по адресу. Поскольку и hogik, и Abadonna относятся к семерке, восьмерке, и вообще к 1С как к навязанному на воспитание дауну, хотя смотрят на это с разных слегка позиций.

(45), (49) Вот из принципа и вредности нашел ту хрень, которая доки создавала в другой базе (бухне) без всяких файлов, OLE и прочей лабуды. Прямой скуль-коннект.
Перем Соединение,ConnectionString,cmd,спрКонтрагенты,спрРС,спрБанки,КонтрДЗНВА1,КонтрДЗНВА2;
Перем сзСтавкиНДС,спрСтавкиНДС,спрБанкСчета,ФирмаУП;

Функция НайтиКонтрагента(п_ИНН)
спрКонтрагенты.ВыбратьЭлементы();
Пока спрКонтрагенты.ПолучитьЭлемент()=1 Цикл
т_ИНН=спрКонтрагенты.ИНН;
Если т_ИНН=п_ИНН Тогда
рд_ТЗ.Контрагент2=спрКонтрагенты.ТекущийЭлемент();
Возврат 1;
КонецЕсли;
КонецЦикла;
// ТЗ.Статус="нет Контрагента";
// Сообщить(Строка(ТЗ.Номер)+": Не найден контрагент");
Возврат 0;
КонецФункции

Функция НайтиПП(п_Пар)
Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с '01.01.2005' по '31.12.2025';
|ОбрабатыватьДокументы все;
|ПП = Документ.ПлатежноеПоручение.ТекущийДокумент;
|Основание = Документ.ПлатежноеПоручение.Основание;
|Группировка Документ;
|Условие(Основание = п_Пар);
|"//}}ЗАПРОС
;

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат ПолучитьПустоеЗначение("Документ.ПлатежноеПоручение");
КонецЕсли;

Док_=ПолучитьПустоеЗначение("Документ.ПлатежноеПоручение");
Пока Запрос.Группировка(1)=1 Цикл
Док_=Запрос.ПП;
КонецЦикла;
Возврат Док_;
КонецФункции


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

Функция ПолучитьВидПлатежа(пар)
Если пар="8UJ" Тогда
Возврат Перечисление.ВидыПлатежа.Почтой;
ИначеЕсли пар="8UK" Тогда
Возврат Перечисление.ВидыПлатежа.Телеграфом;
ИначеЕсли пар="8UL" Тогда
Возврат Перечисление.ВидыПлатежа.Электронно;
Иначе
Возврат Null;
КонецЕсли;
КонецФункции

Функция ПолучитьАвтоПодст(пар)
Если пар="8VV" Тогда
Возврат Перечисление.ПодстановкаСуммыНДС.СуммаНДС;
ИначеЕсли пар="8VW" Тогда
Возврат Перечисление.ПодстановкаСуммыНДС.БезСуммыНДС;
ИначеЕсли пар="8VW" Тогда
Возврат Перечисление.ПодстановкаСуммыНДС.СуммаБезНДС;
ИначеЕсли пар="8VY" Тогда
Возврат Перечисление.ПодстановкаСуммыНДС.БезСуммыБезНДС;
Иначе
Возврат Null;
КонецЕсли;
КонецФункции

Функция ПолучитьСтавкуНДС(п_Н)
Перем t_str;
Если (п_Н>0) and (п_Н<7) Тогда
Возврат сзСтавкиНДС.Получить(п_Н,t_str);
Иначе
Возврат null;
КонецЕсли;
КонецФункции

Функция ПолучитьБанковскийСчет(п_БС)
спрБанкСчета.ИспользоватьВладельца(ФирмаУП);
Если спрБанкСчета.НайтиПоРеквизиту("Номер",п_БС,0)=1 Тогда
Возврат спрБанкСчета.ТекущийЭлемент();
Иначе
Возврат Null;
КонецЕсли;
КонецФункции

Процедура НайтиКонтрагентов()
спрКонтрагенты.ВыбратьЭлементы();
Пока спрКонтрагенты.ПолучитьЭлемент()=1 Цикл
Если спрКонтрагенты.ПометкаУдаления()=1 Тогда
Продолжить;
КонецЕсли;
Если ПустоеЗначение(спрКонтрагенты.ИНН)=1 Тогда
Продолжить;
КонецЕсли;
Состояние(спрКонтрагенты.Наименование);

т_ИНН=СокрЛП(спрКонтрагенты.ИНН);
Если Прав(т_ИНН,1)="/" Тогда
т_ИНН=Лев(т_ИНН,СтрДлина(т_ИНН)-1);
КонецЕсли;

рд_ТЗ.ВыбратьСтроки();
Пока рд_ТЗ.ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(рд_ТЗ.Контрагент2)=0 Тогда
Продолжить;
КонецЕсли;
Если т_ИНН=СокрЛП(рд_ТЗ.ИНН) Тогда
рд_ТЗ.Контрагент2=спрКонтрагенты.ТекущийЭлемент();
Если НайтиРС()=0 Тогда
рд_ТЗ.Контрагент2=Null;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;

спрКонтрагенты.ВыбратьЭлементы();
Пока спрКонтрагенты.ПолучитьЭлемент()=1 Цикл
Если спрКонтрагенты.ПометкаУдаления()=1 Тогда
Продолжить;
КонецЕсли;
Если ПустоеЗначение(спрКонтрагенты.ИНН)=1 Тогда
Продолжить;
КонецЕсли;
Состояние(спрКонтрагенты.Наименование);
рд_ТЗ.ВыбратьСтроки();
Пока рд_ТЗ.ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(рд_ТЗ.Контрагент2)=0 Тогда
Продолжить;
КонецЕсли;
н_ИНН=Найти(рд_ТЗ.ИНН,"/");

Если н_ИНН=0 Тогда
т_ИНН=СокрЛП(рд_ТЗ.ИНН);
Иначе
н_ИНН=н_ИНН-1;
т_ИНН=Лев(рд_ТЗ.ИНН,н_ИНН);
КонецЕсли;

Если СокрЛП(спрКонтрагенты.ИНН1)=т_ИНН Тогда
рд_ТЗ.Контрагент2=спрКонтрагенты.ТекущийЭлемент();
Если НайтиРС()=0 Тогда
рд_ТЗ.Контрагент2=Null;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры

Процедура Сформировать()
Перем стр;
Попытка
Если Соединение.State=0 Тогда
Соединение.Открыть(ConnectionString);
КонецЕсли;
Исключение
Предупреждение("Невозможно установить соединение");
КонецПопытки;
рд_ТЗ.УдалитьСтроки();
Cmd.ActiveConnection = Соединение;
Cmd.CommandText ="Select Дата_time_iddoc, substring(_1sjourn.Дата_TIME_IDDOC,1,8) as DataDoc,_1sjourn.DOCNO,
| sc97.sp73 as BankS4et, sc133.sp122 as KontrNaim, sc133.sp126 as INN,sc174.sp159 as Ras4etnyS4et,
| cast(sp12059 as char) as summa,cast(sp12061 as char) as nds, sp12060 as StavkaNDS,
| sp12063 as SrokPlatezha, sp12066 as Soderzhanie, sp12062 as VidPlatezha, cast(sp12064 as char) as O4erednost,
| sp12065 as AvtoPodst, cast(sp37063 as char) as PerNaloga, sp37064 as StatusSost, sp37065 as KodBK, sp37066 as KodOKATO,
| sp37067 as PokOsnovanija, sp37068 as PokPerioda, sp37069 as PokNomera, sp37070 as PokDaty,sp37071 as PokTipa,
| sp475 as Kom
| from dh12070 as d Лев outer join _1sjourn on d.idDOC=_1sjourn.IDDOC
| Лев outer join sc174 on d.sp12068=sc174.id
| Лев outer join sc133 on d.sp12058=sc133.id
| Лев outer join sc97 on d.sp12057=sc97.id
| where _1sjourn.isMark=0 and substring(_1sjourn.Дата_TIME_IDDOC,1,8)>='"+Формат(НачДата,"DYYYYMMDD")+"' and substring(_1sjourn.Дата_TIME_IDDOC,1,8)<='"+Формат(КонДата,"DYYYYMMDD")+"'";


Rs = СоздатьОбъект("ADODB.RecordSet");
Rs = Cmd.Выполнить;
Если rs.ВКонце()=0 Тогда
Ном=0;
Rs.MoveFirst();
Пока Rs.ВКонце() = 0 Цикл
рд_ТЗ.НоваяСтрока();
Ном=Ном+1;
рд_ТЗ.Номер=ном;
рд_ТЗ.IDDOC=Rs.Fields("Дата_time_iddoc").Значение;
рд_ТЗ.ДатаДок=Rs.Fields("DataDoc").Значение;
рд_ТЗ.НомерДок=Rs.Fields("DOCNO").Значение;
рд_ТЗ.Сумма=Rs.Fields("summa").Значение;
рд_ТЗ.НДС=Rs.Fields("nds").Значение;
рд_ТЗ.СтавкаНДС=Rs.Fields("StavkaNDS").Значение;
рд_ТЗ.СрокПлатежа=Rs.Fields("SrokPlatezha").Значение;
рд_ТЗ.РС=Rs.Fields("Ras4etnyS4et").Значение;
рд_ТЗ.Контрагент=Rs.Fields("KontrNaim").Значение;
рд_ТЗ.ИНН=Rs.Fields("INN").Значение;
рд_ТЗ.БС=Rs.Fields("BankS4et").Значение;
рд_ТЗ.БанковскийСчет=ПолучитьБанковскийСчет(рд_ТЗ.БС);
рд_ТЗ.СтавкаНДС=ПолучитьСтавкуНДС(Число(Rs.Fields("StavkaNDS").Значение));
рд_ТЗ.СрокПлатежа=?(ДатаГод(рд_ТЗ.СрокПлатежа)=1753,ПолучитьПустоеЗначение(),рд_ТЗ.СрокПлатежа);
рд_ТЗ.Содержание=Rs.Fields("Soderzhanie").Значение;
рд_ТЗ.ВидПлатежа=ПолучитьВидПлатежа(СокрЛП(Rs.Fields("VidPlatezha").Значение));
рд_ТЗ.Очередность=Rs.Fields("O4erednost").Значение;
рд_ТЗ.АвтоПодст=ПолучитьАвтоПодст(СокрЛП(Rs.Fields("AvtoPodst").Значение));
рд_ТЗ.ПеречислениеНалога=Rs.Fields("PerNaloga").Значение;
рд_ТЗ.СтатусСоставителяПлДок=Rs.Fields("StatusSost").Значение;
рд_ТЗ.КодБК=Rs.Fields("KodBK").Значение;
рд_ТЗ.КодОКАТО=Rs.Fields("KodOKATO").Значение;
рд_ТЗ.ПоказательОснования=Rs.Fields("PokOsnovanija").Значение;
рд_ТЗ.ПоказательПериода=Rs.Fields("PokPerioda").Значение;
рд_ТЗ.ПоказательНомера=Rs.Fields("PokNomera").Значение;
рд_ТЗ.ПоказательДаты=Rs.Fields("PokDaty").Значение;
рд_ТЗ.ПоказательДаты=?(ДатаГод(рд_ТЗ.ПоказательДаты)=1753,ПолучитьПустоеЗначение(),рд_ТЗ.ПоказательДаты);
рд_ТЗ.ПоказательТипа=Rs.Fields("PokTipa").Значение;
рд_ТЗ.Комментарий=Rs.Fields("Kom").Значение;
рд_ТЗ.ПП=НайтиПП("УП"+рд_ТЗ.IDDOC);
рд_ТЗ.Выбор=1;
Rs.MoveNext();
КонецЦикла;
КонецЕсли;
Rs.Close();
Соединение.Close();
НайтиКонтрагентов();
КонецПроцедуры

Процедура ПриОткрытии()
спрКонтрагенты=СоздатьОбъект("Справочник.Контрагенты");
спрРС=СоздатьОбъект("Справочник.РасчетныеСчета");
спрБанкСчета=СоздатьОбъект("Справочник.БанковскиеСчета");
спрСтавкиНДС=СоздатьОбъект("Справочник.СтавкиНДС");

сзСтавкиНДС=СоздатьОбъект("СписокЗначений");
спрСтавкиНДС.НайтиПоКоду(2);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());
спрСтавкиНДС.НайтиПоКоду(3);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());
спрСтавкиНДС.НайтиПоКоду(1);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());
спрСтавкиНДС.НайтиПоКоду(4);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());
спрСтавкиНДС.НайтиПоКоду(5);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());
спрСтавкиНДС.НайтиПоКоду(6);
сзСтавкиНДС.ДобавитьЗначение(спрСтавкиНДС.ТекущийЭлемент());

спрФирмы=СоздатьОбъект("Справочник.Фирмы");
Если спрФирмы.НайтиПоКоду(3)=1 Тогда
ФирмаУП=спрФирмы.ТекущийЭлемент();
Иначе
Сообщить("Error");
Возврат;
КонецЕсли;
НачДата=РабочаяДата();
КонДата=РабочаяДата();


рд_ТЗ.НоваяКолонка("Выбор","Число",3,0, "Выбор",3,);
рд_ТЗ.НоваяКолонка("Номер","Число",3,0, "№",3,);
рд_ТЗ.НоваяКолонка("ПП","Документ.ПлатежноеПоручение",,,"ПлатежноеПоручение",8);
рд_ТЗ.НоваяКолонка("ДатаДок","Дата",8,0,"ДатаДок",10);
рд_ТЗ.НоваяКолонка("НомерДок","Строка",8,0,"НомерДок",8);
рд_ТЗ.НоваяКолонка("Контрагент","Строка",50,0,"Контрагент",50);
рд_ТЗ.НоваяКолонка("ИНН","Строка",20,0,"ИНН",20);
рд_ТЗ.НоваяКолонка("Контрагент2","Справочник.Контрагенты",50,0,"Контрагент в БД",50);
рд_ТЗ.НоваяКолонка("РасчетныйСчет","Справочник.РасчетныеСчета",50,0,"РасчетныеСчета",50);
// рд_ТЗ.НоваяКолонка("КПП","Строка",9,0,"КПП",11);
рд_ТЗ.НоваяКолонка("РС","Строка",20,0,"р/с",25);
рд_ТЗ.НоваяКолонка("БС","Строка",20,0,"б/с",25);
рд_ТЗ.НоваяКолонка("БанковскийСчет","Справочник.БанковскиеСчета",,,"Банковский Счет",30);
рд_ТЗ.НоваяКолонка("Сумма","Число",13,2,"Сумма",12);
рд_ТЗ.НоваяКолонка("НДС","Число",13,2,"НДС",10);
рд_ТЗ.НоваяКолонка("СтавкаНДС","Справочник.СтавкиНДС",,,"СтавкаНДС",15);
рд_ТЗ.НоваяКолонка("ВидПлатежа","Перечисление.ВидыПлатежа",,,"Вид платежа",9);
рд_ТЗ.НоваяКолонка("СрокПлатежа","Дата",8,0,"Срок платежа",8);
рд_ТЗ.НоваяКолонка("Очередность","Число",1,0,"Очередность",1);
рд_ТЗ.НоваяКолонка("АвтоПодст","Перечисление.ПодстановкаНДС",,,"АвтоПодст",9);
рд_ТЗ.НоваяКолонка("ПеречислениеНалога","Число",1,0,"ПеречислениеНалога",1);
рд_ТЗ.НоваяКолонка("СтатусСоставителяПлДок","Строка",2,,"СтатусСоставителяПлДок",2);
рд_ТЗ.НоваяКолонка("КодБК","Строка",20,,"КодБК",20);
рд_ТЗ.НоваяКолонка("КодОКАТО","Строка",11,,"КодОКАТО",11);
рд_ТЗ.НоваяКолонка("ПоказательОснования","Строка",2,,"ПоказательОснования",2);
рд_ТЗ.НоваяКолонка("ПоказательПериода","Строка",10,,"ПоказательПериода",10);
рд_ТЗ.НоваяКолонка("ПоказательНомера","Строка",18,,"ПоказательНомера",18);
рд_ТЗ.НоваяКолонка("ПоказательДаты","Дата",,,"ПоказательДаты",8);
рд_ТЗ.НоваяКолонка("ПоказательТипа","Строка",2,,"ПоказательТипа",2);
рд_ТЗ.НоваяКолонка("IDDOC","Строка",29,,"IDDOC",29);


рд_ТЗ.НоваяКолонка("Содержание","Строка",,0,"Содержание",100);
рд_ТЗ.НоваяКолонка("Комментарий","Строка",,0,"Комментарий",100);
рд_ТЗ.ВыводитьПиктограммы(1,1);

Соединение = СоздатьОбъект("ADODB.Connection");
Cmd = СоздатьОбъект("ADODB.Command");
ConnectionString = "Provider=SQLOLEDB.1;Password=password1C;Persist Security Info=True;User ID=login1C;Initial Catalog=sales;Data Source=SQLSERVER";
Соединение.ConnectionTimeOut =30;
Соединение.CursorLocation = 3;
КонецПроцедуры

Процедура ВыбратьВсе()
//ТЗ.ВыбратьСтроки();
//Пока ТЗ.ПолучитьСтроку()=1 Цикл
// Если (СокрЛП(ТЗ.Статус)="готово к переносу") Тогда
// ТЗ.Выбор=?((ТЗ.Выбор=1),2,1);
// Иначе
// ТЗ.Выбор=1;
// КонецЕсли;
//
//КонецЦикла;
//
рд_ТЗ.Заполнить(2,,,"Выбор");
КонецПроцедуры

Процедура ОтменитьВсе()
рд_ТЗ.Заполнить(1,,,"Выбор");
КонецПроцедуры

Процедура ПометитьСтроку()
Если рд_ТЗ.ТекущаяКолонка()="Контрагент2" Тогда
ОткрытьФорму(рд_ТЗ.Контрагент2,,1);

ИначеЕсли рд_ТЗ.ТекущаяКолонка()="РасчетныйСчет" Тогда
ОткрытьФорму(рд_ТЗ.РасчетныйСчет,,1);
Иначе
рд_ТЗ.Выбор=?((рд_ТЗ.Выбор=1),2,1);
КонецЕсли;
//Если (СокрЛП(ТЗ.Статус)="готово к переносу") Тогда
// ТЗ.Выбор=?((ТЗ.Выбор=1),2,1);
//ИначеЕсли (СокрЛП(ТЗ.Статус)="нет р/с") Тогда
// ДобавитьРС(ТЗ.Контрагент2);
// Если НайтиКонтрагента(СокрЛП(ТЗ.ИНН),СокрЛП(ТЗ.КПП))=1 Тогда
// ТЗ.Выбор=2;
// Иначе
// ТЗ.Выбор=1;
// КонецЕсли;
//ИначеЕсли (СокрЛП(ТЗ.Статус)="нет Контрагента") Тогда
// ДобавитьКонтр();
// Если НайтиКонтрагента(СокрЛП(ТЗ.ИНН),СокрЛП(ТЗ.КПП))=1 Тогда
// ТЗ.Выбор=2;
// Иначе
// ТЗ.Выбор=1;
// КонецЕсли;
//Иначе
// ТЗ.Выбор=1;
//КонецЕсли;
КонецПроцедуры

Процедура СоздатьПП()
рд_ТЗ.ВыбратьСтроки();
Пока рд_ТЗ.ПолучитьСтроку()=1 Цикл
Если рд_ТЗ.Выбор=2 Тогда
Если ПустоеЗначение(рд_ТЗ.Контрагент2)=1 Тогда
Сообщить("Не найден контрагент");
Продолжить;
КонецЕсли;
Если ПустоеЗначение(рд_ТЗ.БанковскийСчет)=1 Тогда
Сообщить("Не найден Банковский счет");
Продолжить;
КонецЕсли;

Если ПустоеЗначение(рд_ТЗ.РасчетныйСчет)=1 Тогда
Сообщить("Не найден Расчетный счет");
Продолжить;
КонецЕсли;

Если ПустоеЗначение(рд_ТЗ.ПП)=0 Тогда
Сообщить("Платежное Поручение "+Строка(рд_ТЗ.ПП)+"уже есть");
Продолжить;
КонецЕсли;

ДокПП=СоздатьОбъект("Документ.ПлатежноеПоручение");
НД=Строка(Число(рд_ТЗ.НомерДок));
Если СтрДлина(НД)>6 Тогда
Сообщить("Слишком длинный номер");
Продолжить;
КонецЕсли;

ДокПП.Новый();
глВводНового(ДокПП);

ДокПП.НомерДок="УП"+НД;
ДокПП.ДатаДок=рд_ТЗ.ДатаДок;
ДокПП.Фирма=ФирмаУП;
ДокПП.Основание="УП"+рд_ТЗ.IDDOC;;


ДокПП.РасчетныйСчет = рд_ТЗ.БанковскийСчет;
ДокПП.Контрагент=рд_ТЗ.Контрагент2;
ДокПП.Сумма=рд_ТЗ.Сумма;
ДокПП.СтавкаНДС=рд_ТЗ.СтавкаНДС;
ДокПП.ВидПлатежа = рд_ТЗ.ВидПлатежа;
ДокПП.СрокПлатежа = рд_ТЗ.СрокПлатежа;
ДокПП.Очередность = рд_ТЗ.Очередность;
ДокПП.АвтоПодстСуммыНДС = рд_ТЗ.АвтоПодст;
ДокПП.Содержание = рд_ТЗ.Содержание;
ДокПП.СчетКонтрагента = рд_ТЗ.РасчетныйСчет;
ДокПП.ПеречислениеНалога = рд_ТЗ.ПеречислениеНалога;
ДокПП.СтатусСоставителяПлДок = рд_ТЗ.СтатусСоставителяПлДок;
ДокПП.КодБК = рд_ТЗ.КодБК;
ДокПП.КодОКАТО = рд_ТЗ.КодОКАТО;
ДокПП.ПоказательОснования = рд_ТЗ.ПоказательОснования;
ДокПП.ПоказательПериода = рд_ТЗ.ПоказательПериода;
ДокПП.ПоказательНомера = рд_ТЗ.ПоказательНомера;
ДокПП.ПоказательДаты = рд_ТЗ.ПоказательДаты;
ДокПП.ПоказательТипа = рд_ТЗ.ПоказательТипа;
ДокПП.Комментарий = рд_ТЗ.Комментарий;
ДокПП.НомерДляБанка= НД;

Если глПриЗаписи(ДокПП)=0 Тогда
Возврат;
КонецЕсли;

ДокПП.Записать();
Сообщить(Строка(рд_ТЗ.Номер)+": ПлатежноеПоручение создано №"+Строка(ДокПП.НомерДок));
рд_ТЗ.Выбор=1;
рд_ТЗ.ПП=ДокПП.ТекущийДокумент();
КонецЕсли;
КонецЦикла
КонецПроцедуры

Процедура ОбновитьПП()
рд_ТЗ.ВыбратьСтроки();
Пока рд_ТЗ.ПолучитьСтроку()=1 Цикл
Если рд_ТЗ.Выбор=2 Тогда
ДокПП=СоздатьОбъект("Документ.ПлатежноеПоручение");
Если ПустоеЗначение(рд_ТЗ.ПП)=1 Тогда
Сообщить("Платежное Поручение не найдено");
Продолжить;
КонецЕсли;
Если ПустоеЗначение(рд_ТЗ.Контрагент2)=1 Тогда
Сообщить("Не найден контрагент");
Продолжить;
КонецЕсли;
Если ПустоеЗначение(рд_ТЗ.БанковскийСчет)=1 Тогда
Сообщить("Не найден Банковский счет");
Продолжить;
КонецЕсли;

Если ПустоеЗначение(рд_ТЗ.РасчетныйСчет)=1 Тогда
Сообщить("Не найден Расчетный счет");
Продолжить;
КонецЕсли;
НД=Строка(Число(рд_ТЗ.НомерДок));
Если СтрДлина(НД)>6 Тогда
Сообщить("Слишком длинный номер");
Продолжить;
КонецЕсли;
Если ДокПП.НайтиДокумент(рд_ТЗ.ПП)=1 Тогда
ДокПП.НомерДок="УП"+НД;
ДокПП.ДатаДок=рд_ТЗ.ДатаДок;
ДокПП.Фирма=ФирмаУП;
ДокПП.Основание="УП"+рд_ТЗ.IDDOC;


ДокПП.РасчетныйСчет = рд_ТЗ.БанковскийСчет;
ДокПП.Контрагент=рд_ТЗ.Контрагент2;
ДокПП.Сумма=рд_ТЗ.Сумма;
ДокПП.СтавкаНДС=рд_ТЗ.СтавкаНДС;
ДокПП.ВидПлатежа = рд_ТЗ.ВидПлатежа;
ДокПП.СрокПлатежа = рд_ТЗ.СрокПлатежа;
ДокПП.Очередность = рд_ТЗ.Очередность;
ДокПП.АвтоПодстСуммыНДС = рд_ТЗ.АвтоПодст;
ДокПП.Содержание = рд_ТЗ.Содержание;
ДокПП.СчетКонтрагента = рд_ТЗ.РасчетныйСчет;
ДокПП.ПеречислениеНалога = рд_ТЗ.ПеречислениеНалога;
ДокПП.СтатусСоставителяПлДок = рд_ТЗ.СтатусСоставителяПлДок;
ДокПП.КодБК = рд_ТЗ.КодБК;
ДокПП.КодОКАТО = рд_ТЗ.КодОКАТО;
ДокПП.ПоказательОснования = рд_ТЗ.ПоказательОснования;
ДокПП.ПоказательПериода = рд_ТЗ.ПоказательПериода;
ДокПП.ПоказательНомера = рд_ТЗ.ПоказательНомера;
ДокПП.ПоказательДаты = рд_ТЗ.ПоказательДаты;
ДокПП.ПоказательТипа = рд_ТЗ.ПоказательТипа;
ДокПП.Комментарий = рд_ТЗ.Комментарий;
ДокПП.НомерДляБанка= НД;

Если глПриЗаписи(ДокПП)=0 Тогда
Возврат;
КонецЕсли;

ДокПП.Записать();
Сообщить(Строка(рд_ТЗ.Номер)+": Платежное поручение исправлено №"+Строка(ДокПП.НомерДок));

КонецЕсли;
рд_ТЗ.Выбор=1;
КонецЕсли;
КонецЦикла

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

P.S. Кое-где мой переводчик на русский (были команды 1С на англ.) перестарался: заменил на русские аналоги и в скуль-командах

(35)
Аркадий.
Ты "расколупал" средство (инструмент). Но, мне казалось (по собственной наивности), что человек у которого "Были бы мозги и желание"(с) может разобраться для чего эти средства существуют. Обидно... Но, моё уважение к тебе от этого не уменьшается.
P.S. Ладно. Завяжем пугать читателей темы. Пойду дослушаю Ozzy Osbourne. Открыл его для себя заново. Удивительно, как я раньше его так не понимал, как сейчас - понимаю. Старею видимо, или может - мудрею... :-)
Желаю тебе успехов.