на локальной машине (где запукскаеш ssh клиент) в файл Host Добавить нечто подобное ************* 127.0.0.1 1CServer ************* 1С клиент не понимает IP в поле сервер и имя localhost тоже ее не устраивает поэтому "1CServer" И пробывать работть в конфигураторе в качастве сервера 1С указав "1CServer"
!!!!!!!!!!!!!!!!!!! Если в момент сохранения конфигурации у вас притормозится или оборвется соединение вы с вероятностью 99,999% убьете базу
Если ПустаяСтрока(ДанныеXML) Тогда Предупреждение(НСтр("ru='XML не был загружен!';uk='XML не був завантажений!'")); Возврат; КонецЕсли; // Проверим файл на корректность ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ОткрытьФайл(ДанныеXML); ЧтениеXML.ИгнорироватьПробелы = Истина; Попытка ЧтениеXML.Прочитать(); Исключение
Предупреждение(НСТр("ru='Данный файл содерижит информацию в закодированном виде и не является стандартым текстовым XML-файлом." "Необходимо воспользоваться специализированным программным обеспечением для его расшифровки.';uk='Зазначений файл містить інформацію в закодованому вигляді та не являє собою стандартний текстовий XML-файл." "Необхідно скористатися спеціалізованим програмним забезбеченням для його розшифрування.'"));
// найдем подходящую форму налоговой (регл. отчет) Если (C_DOC = "J12" ИЛИ C_DOC = "F12") И (C_DOC_SUB = "010" ИЛИ C_DOC_SUB = "012") Тогда
Если C_DOC_SUB = "010" Тогда ИмяОтчета = "РегламентированныйОтчетНалоговаяНакладная"; ИначеЕсли C_DOC_SUB = "012" Тогда ИмяОтчета = "РегламентированныйОтчетПриложение2КНалоговойНакладной"; КонецЕсли;
Иначе
// не тот XML подсунули Предупреждение(НСТр("ru='Загруженный файл не является XML образом Налоговой накладной или Приложения 2 к налоговой накладной!';uk='Завантажений файл не є XML образом Податкової накладної або Додатка 2 до податкової накладної!'")); Возврат;
КонецЕсли;
ТекОтчет = РегламентированнаяОтчетность.РеглОтчеты(ИмяОтчета); Если ТекОтчет = Неопределено Тогда ТекстОшибки = НСтр("ru='Не удалось открыть для просмотра отчет ';uk='Не вдалося відкрити для перегляду звіт '")+ИмяОтчета+""""; Предупреждение(ТекстОшибки); Возврат; КонецЕсли;
Попытка МакетПоказателейЗвит1С = ТекОтчет.ПолучитьМакет("ПоказателиЗвит1С"); Исключение ТекстОшибки = НСтр("ru='Не удалось определить для просмотра требуемую форму отчета ';uk='Не вдалося визначити для перегляду необхідну форму звіту '")+ИмяОтчета+""""; Предупреждение(ТекстОшибки); Возврат; КонецПопытки; МакетПоказателейЗвит1С.КодЯзыкаМакета = "ru";
ИмяФормыПросмотра = ""; ОбластьСтруктура = МакетПоказателейЗвит1С.ПолучитьОбласть("Структура"); Для сч = 1 По ОбластьСтруктура.ВысотаТаблицы Цикл
Если ВерсияДокумента = ИмяСхемыЗвит1С Тогда ИмяФормыПросмотра = СокрЛП(ОбластьСтруктура.Область(сч, 3, сч, 3).Текст); Прервать; КонецЕсли;
КонецЦикла;
// откроем отчет и загрузим в него данные XML Попытка ФормаПросмотра = ТекОтчет.ПолучитьФорму(ИмяФормыПросмотра); Исключение ТекстОшибки = НСтр("ru='Не удалось открыть для просмотра требуемую форму отчета';uk='Не вдалося відкрити для перегляду необхідну форму звіту '")+ИмяОтчета+""""; Предупреждение(ТекстОшибки); Возврат; КонецПопытки;
Попытка ТабличныйДокумент = ФормаПросмотра.ЗагрузитьТекстXMLНаФорму(ДанныеXML); УдалитьФайлы(ДанныеXML); Исключение ТекстОшибки = НСтр("ru='Не удалось открыть для просмотра требуемую форму отчета. Возможно не обновлены встроенные регламентированные отчеты';uk='Не вдалося відкрити для перегляду необхідну форму звіту. Можливе не оновлені вбудовані регламентовані звіти'")+ИмяОтчета+""""; Предупреждение(ТекстОшибки); Возврат; КонецПопытки;
// откроем печатную форму на просмотр ТабличныйДокумент.Показать(НСТР("ru='ОЗНАКОМИТЕЛЬНАЯ печатная форма входящего документа';uk='ОЗНАЙОМЛЮЮЧА друкована форма вхідного документа'")); КонецПроцедуры
Функция НайтиКвитанцию(Квитан)Экспорт Результат =""; Попытка Если Квитан.RecordCount()<1 тогда Возврат Результат; КонецЕсли Исключение КонецПопытки; ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ИгнорироватьПробелы = Истина; Пока НЕ Квитан.EOF Цикл Попытка XML=Сокрлп(Квитан.Fields.Item("KVT_TEXT").value); ЧтениеXML.УстановитьСтроку(XML); // определим номер схемы документа C_DOC = ""; C_DOC_SUB = ""; C_DOC_VER = "";
Пока ЧтениеXML.Прочитать() Цикл
Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
// найдем подходящую форму налоговой (регл. отчет) Если (C_DOC = "J12" ИЛИ C_DOC = "F12") И (C_DOC_SUB = "010" ИЛИ C_DOC_SUB = "012") Тогда ИмяВременногоФайла = ПолучитьИмяВременногоФайла(); Текст = Новый ТекстовыйДокумент; Текст.УстановитьТекст(XML); Текст.Записать(ИмяВременногоФайла, "windows-1251"); Результат =ИмяВременногоФайла;
//******" Попытка //Если ЭлементыФормы.фЗагрузкаXML.Значение И (ИмяБазы="БУ" ИЛИ ИмяБазы="УТП" или ИмяБазы="УСХ") тогда primДокументы = App.GetPrimaryDocs(); Квитан=primДокументы.getdockvt("",Отчет.Cardcode); ИмяВременногоФайла=НайтиКвитанцию(Квитан); Если Не ПустаяСтрока(ИмяВременногоФайла) тогда ННВх.ДанныеXML = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИмяВременногоФайла), Новый СжатиеДанных(9)); ННВх.ЕстьXML = Истина; УдалитьФайлы(ИмяВременногоФайла); Конецесли; //Конецесли; Исключение Сообщить(Нстр("ru = 'Не удалось загрузить XML!';uk = 'Не вдолося завантажити XML!'")); КонецПопытки; //******"
Для нужного человеку функционала нужно всего добавить 7 строк кода в конфигурациию А печатная форма даже если копи пасте большей части из конфигурации несколько сот строк, которые еще через отладку нужно пропустить
Нужно еще убедится что вся эта беда экспортируется в XML и 1СЗвіт
Поэтому по трудозатратам в данном конкретном случае ковырнуть конфигурацию в разы проще.
Насчет пункта III Обращения игнорируются Видимо все усилия брошены на развитие конфигураций с новым интерфейсом
Есть надежда на новый механизм Расширений и сравнений (внешне diff утилиты) в новой платформе 8.3.6
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!