Здравствуйте , первый раз на вашем форуме , привела нужда . Есть конфигурация 1с 7.7  автосервис от рарус , занимаюсь авторемонтом , необходимо добавить в справочник работ процедуру добавления работ из документа с расширением .PR аудатекс ,  процедура с описанием вариантов кодов ( виды работ и материалы) и местоположением значения в строке с кодом ( по количеству знаков)в документе аудатекс с расширением PR есть , но написана в 1с8 , хотелось бы ( вернее необходимо ) сделать тоже самое для своей 7.7. Если кто то согласится помочь , выложу все необходимые скрины и все , что будет необходимо . Возможна оплата услуг .

Кидай на почту, гляну. Может займусь.

отправил сообщ на почту

"Возможна оплата услуг" - а возможна и неоплата? :) Аська в личке, сделаю на месте 1,5 тыры в час по факту.

(3) как можно по факту с удаленщиками работать? может ты там по факту коньяк будешь пить да девок портить?

>>по факту коньяк будешь пить да девок портить
(4) а в ТЗ разве что то другое было?

(4) Читай внематочно "сделаю на месте". С удаленщиком у которого "Возможна оплата" а возможно и неоплата я работать не буду.

(6) а вдруг владивосток?

(7) Ну значит не судьба... Дальше казани или питера не вариант вообще )

расслабьтесь, там bizon2008 уже ангажирован на мазурку

(9) Ну лохов-то хватает на мисте...

Северо-запад , как надо , так и оплачу

можно оплату вперед
не надо на месте

сколько примерно будет стоить

(13) не вполне понятно что есть "с расширением .PR аудатекс" надо взглянуть на месте, как оно в восьмерке фунциклирует. Думаю часа на три-четыре возни, цена часа выше. Предоплаты не требуется, проще доехать и на месте разобраться при условии что это северо-запад москвы, а не страны.

(14)+ часа на 1,5 отойду от компа, как вернусь загляну в ветку.

(10)почему сразу лохи? может мне просто скучно. щас возьму вот и ут с нуля бесплатно напишу с блекжеом и шл......

ут с блекджеком это уже упп ))

(16)то с гемороем

(9) Ваще.. мне кажется это бан.. за такие сообщения..

Может для начала выложить задачу подробно со скринами , можнокартинки то в форум вставлять ? на скинах обьяснить куда кнопку вставить и её функции , какие задавть значения для работ , нормочасов и кодов работ ? чтоб человек мого пердставить , что требуется . Можно работать и удаленно , называется сумма за работу , через мобильный банк кидаю деньги , куда укажете , и спокойно работаете. Фаил с расширением PR, вот его копия в тексте , открывется с помощья оффиса или экселя , если что то нужно посмотреть .

Пример файла
[URL=http://imageshack.us/photo/my-images/94/88632737.jpg/][IMG]http://img94.imageshack.us/img94/4616/88632737.jpg[/IMG][/URL]

Это не баян , просто местные парни мозги долго парят , а ручками добавлять  - долго .

(19) тебя это беспокоит? ты хочешь об этом поговорить?

вот так http://imageshack.us/photo/my-images/94/88632737.jpg/

так из екселя загрузит надо, для этого есть стандартная обработка на итс

(23) там неструктурированные данные. как ты их загрузишь?

из экселя  - не надо . если надо в экселе , там есть екселевский вариант фаила калькуляции  - выглядит вот так

http://imageshack.us/photo/my-images/560/43878457.jpg/

надо , чтоб этот фаил грузился в справочник работ , под кодами идут и время , нч, и код работы по аудатекс и наименование работы , а уже из справочника работ выбираются работы в заказ-наряд и печатается для клиента .

pr - это то, что идет на принтер
смотреть обычным текстовым редактором. может еще и в кодировке 866 (DOS)
там слабо структурированные данные
но пытаться вытащить то что нужно можно
кода-то делал...

Данные как раз структурированные

процедура выгрузки данных из фаила есть , если нужна  - выложу

нам нужны всего три позиции , идущие под кодами в начале строки , это работы , их 2 типа (слесарные и малярные) , соотв под разными кодами в начале строки, и запчасти , все

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

Процедура ЗагрузитьАudatex()    
   ТЗ=Новый ТаблицаЗначений;
   ТЗ.Колонки.Вставить(0, "НомерСтр", Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(6)));
   ТЗ.Колонки.Вставить(1, "Тип", Новый ОписаниеТипов("Строка"));
   DefAW=10;
   Key1000=0;
   Текст=Новый ЧтениеТекста(ИмяФайла, КодировкаТекста.OEM);
   МассивСтрок=Новый Массив;
   КоличествоЭлементов=0;
   _Стр=Текст.ПрочитатьСтроку();
   Пока _Стр<>Неопределено Цикл
       МассивСтрок.Добавить(_Стр);
       _Стр=Текст.ПрочитатьСтроку();
   КонецЦикла;
   МассивПараметров=Новый Массив;
   МассивПараметров.Добавить("K000120126099901"); //Маляр
   МассивПараметров.Добавить("K000120168099901"); // Маляр AZT
   МассивПараметров.Добавить("K000120121099930"); // мелкие детали
   МассивПараметров.Добавить("K00012015"); // Все работы
   МассивПараметров.Добавить("K0001201135"); // Пробег
   МассивПараметров.Добавить("K00013018"); // Новые детали
   МассивПараметров.Добавить("K0001201420"); // Е-новые детали
   МассивПараметров.Добавить("K00012016200"); // Окраска
   МассивПараметров.Добавить("K0001301622"); // Подготовка к окраске
   МассивПараметров.Добавить("K0001201660"); // Окраска AZT
   МассивПараметров.Добавить("K0001201622"); // Подготовка к окраске
   МассивПараметров.Добавить("K0001201680"); // AZT - затраты на работы
   МассивПараметров.Добавить("K000120168100101"); // AZT - затраты на материал металл.
   МассивПараметров.Добавить("K000130168"); // AZT - затраты на материал пласт.
   МассивПараметров.Добавить("K00012016209"); // окраска доп.
   МассивПараметров.Добавить("K000120121000230"); // мелкие детали
   МассивПараметров.Добавить("K000120164");
   МассивПараметров.Добавить("K000130164");
   МассивПараметров.Добавить("K000120168");
   МассивПараметров.Добавить("K000120128"); // НДС
   
   // Получим количество AW в нормочасе    
   Для Каждого Стр Из МассивСтрок Цикл
       Если Найти(Стр,"K000120124000100") Тогда
           DefAW=Число(Сред(Стр, 21,2));
       КонецЕсли;
   КонецЦикла;
   Для Каждого Параметр Из МассивПараметров Цикл
       Для Каждого Стр Из МассивСтрок Цикл
           Если Найти(Стр, Параметр)<>0 Тогда
               Если Параметр="K000120113599901" Тогда
                   // Нахождение VIN и регномера пропускаем
               ИначеЕсли Параметр="K0001201420" Тогда
                   // Данные по запчастям
                   ВнНомерДетали = Сред(Стр, 22, 4);
                   НазваниеДетали = Сред(Стр, 26, 20);
                   ОригинальныйНомер = Сред(Стр, 46, 16);
                   ЦенаДетали = Число(Сред(Стр, 64, 9));
                   ДопДеталь = Сред(Стр, 74, 1)="*";
                   НоваяСтрока=Запчасти.Добавить();
                   НоваяСтрока.Пометка=Истина;
                   НоваяСтрока.ОригНомер=СокрЛП(ОригинальныйНомер);
                   НоваяСтрока.Наименование=СокрЛП(НазваниеДетали);
                   НоваяСтрока.Сумма=ЦенаДетали;
                   НоваяСтрока.ДопОборудование=ДопДеталь;
                   НоваяСтрока.Количество=1;
               ИначеЕсли Параметр="K00012016200" ИЛИ Параметр="K0001201660" Тогда
                   // окраска
                   Наименование=Сред(Стр, 26, 40);
                   Если Найти(Наименование,"+") Тогда
                       Продолжить;
                   КонецЕсли;
                   НомерРаботы=СокрЛП(Сред(Стр, 22, 4));
                   Наименование=СокрЛП(Наименование);
                   СтоимостьРаботы=Число(Сред(Стр, 78, 9));
                   КолВоНормо%t0447асов=Число(Сред(Стр,91,4))/100;
                   Если Найти(НомерРаботы, "1000")=0 Тогда
                       ДопРабота=Сред(Стр, 96, 1)="*";
                   Иначе
                       ДопРабота=Сред(Стр, 127, 1)="*";
                   КонецЕсли;
                   НоваяСтрока=Работы.Добавить();
                   НоваяСтрока.Пометка=Истина;
                   НоваяСтрока.КодРаботы=НомерРаботы;
                   НоваяСтрока.Наименование=Наименование;
                   НоваяСтрока.КоличествоНормочасов=КолВоНормочасов;
                   НоваяСтрока.ДопРабота=ДопРабота;
                   НоваяСтрока.Сумма=СтоимостьРаботы;
                   НоваяСтрока.Категория="Окраска";
               ИначеЕсли Параметр="K0001301622" ИЛИ Параметр="K0001201622" Тогда
                   НомерРаботы=СокрЛП(Сред(Стр, 66, 12));
                   Наименование=СокрЛП(Сред(Стр,26, 40));
                   СтоимостьРаботы=Число(Сред(Стр, 78, 9));
                   КолВоНормочасов=Число(Сред(Стр,91,4))/100;
                   НоваяСтрока=Работы.Добавить();
                   НоваяСтрока.Пометка=Истина;
                   НоваяСтрока.КодРаботы=НомерРаботы;
                   НоваяСтрока.Наименование=Наименование;
                   НоваяСтрока.КоличествоНормочасов=КолВоНормочасов;
                   НоваяСтрока.ДопРабота=Ложь;
                   НоваяСтрока.Сумма=СтоимостьРаботы;
               ИначеЕсли Параметр="K00012015" Тогда
                   Если Сред(Стр, 18, 4) = " H  " И Сред(Стр, 22, 4) <> "1000" Тогда
                       Продолжить;
                   КонецЕсли;
                   Если Key1000=1 Тогда
                       НазваниеРаботы=СокрЛП(Сред(Стр,26, 38));
                       НомерРаботы="KN";
                       СтоимостьРаботы=Сред(Стр,64, 9);
                       КолВоНормочасов = Сред(Стр, 77, 4);
                   ИначеЕсли Сред(Стр, 18, 4) = " U  " Тогда
                       Возврат;
                   ИначеЕсли Сред(Стр, 22, 4) = "1000" ИЛИ Сред(Стр, 18, 4) = " N  " ИЛИ
                       Сред(Стр, 18, 2) = " I" ИЛИ Сред(Стр, 18, 4) = " P  " Тогда
                       НазваниеРаботы=СокрЛП(Сред(Стр,26, 38));
                       НомерРаботы=СокрЛП(Сред(Стр, 22, 4));
                       Попытка
                       СтоимостьРаботы=Число(Сред(Стр,64, 9));
                   Исключение
                       СтоимостьРаботы=0;
                       КонецПопытки;
                       КолВоНормочасов = Число(Сред(Стр, 77, 4))/100;        
                   Иначе
                       НазваниеРаботы=СокрЛП(Сред(Стр,26, 40));
                       НомерРаботы=Сред(Стр, 66, 12);
                       Попытка
                       СтоимостьРаботы=Сред(Стр,78, 9);
                   Исключение
                       СтоимостьРаботы=0;
                       КонецПопытки;
                       КолВоНормочасов = Число(Сред(Стр, 91, 4))/100;        
                   КонецЕсли;
                   ДопРабота = Сред(Стр, 82, 1)="*";
                   НоваяСтрока=Работы.Добавить();
                   НоваяСтрока.Пометка=Истина;
                   НоваяСтрока.КодРаботы=НомерРаботы;
                   НоваяСтрока.Наименование=НазваниеРаботы;
                   НоваяСтрока.КоличествоНормочасов=КолВоНормочасов;
                   НоваяСтрока.ДопРабота=ДопРабота;
                   НоваяСтрока.Сумма=СтоимостьРаботы;

у меня клава сдохла окончательно, завтра подробно отвечу, могу по скайпу или аське связаться, если более чем я толковый вариант не найдешь

(31) В каком городе местные-то? Если близко, то безо всяких удаленок за полдня решаемо и 200 баксов максимум, может меньше даже...

на северо-западе страны , так что только удаленно , делаю тех задание , говорите сумму , если все устроит  - отсылаю чистые конфигурации 7 и 8 для оьразца , перечисляю половину суммы , выполняете работу  - мне скрины , я остатки оплачиваю  - вы мне измененную конфу

(34) Хм... ну по сабжу на два часа работы и недели на две переписки. Не уверен что мне это интересно...

фаил вордовский с описанием задачи лежит здесь  http://zalil.ru/32649727

традиционные 100$

проблем нет , лишь бы все хорошо работало

(25) А меня смущает факт, что про загрузку в 8-ке мне настоятельно рекомендовали ею не пользоваться. Именно про эту. Что-то там косячное. Так что Дядя Васька , искренне верящий, что обойдется простым перекодированием, может "по факту" и не сделать.

ситуация с 8 простая , там часть процедуры вынесена в ключ , вот на ломаных автосервисах процедура и не работает

а конфигуратор без ключа не дает переписать

(36) Хрена-се... Впервые вижу столь адекватную постановку задачи от работников автосервиса. Довелось поработать так-то, в том числе и с рарусом восьмерочным. Если базы не секретные хотелось бы их "пощупать". Желательно обе, но как минимум восьмерку, бо они всю эту хрень могут и в dll запрятать. Если это так, то придется разбираться в форматах и самому писать, а если нет, то только разобраться что делают, перевести на другой язык, да немого адаптировать под семерочные доки. Адрес zalexey78 (гав) mail (точго) ru

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

(39) Вася все может, стоит по-разному...

(43) Дело в том что в v8 рарус как я понял. А у них часть кода закрыта. Если этот кусок спрятан, то мне его не переводить, а с нуля писать придется.

и, кстати, все же интересно что за город )

а при чем здесь автосервис , если б время вагон свободного было  - можно и самому попробовать , только время  -  нет его , свободного . А вообще то , если пользуешься в работе чем то , должен знать на зубок , калькуляция правильная сопровожденная заказ нарядом правильным  - залог качественной работы , плюс в судах подспорье хорошее, да и страховые с вниманием относятся к правильно и грамотно составленным документам .

Сразу скажу , в 8 по доступному описанию процедуры выводится таблица с приведенными выше значениями , только вот работы и нормочас в справочник не добавить , части из ключа в процедуре не хватает , нам то все го лишь табличные данные и нужны , описание которых( ПРОЦЕДУРА) У НАС РАБОТАЕТ И БЕЗ КЛЮЧА

Извиняюсь , капслок нажал в конце случаино , не поимите за крик

(47) Здесь не тот случай когда можно знать что-либо на зубок, тут думать надо. Что-то свое делать. Еще раз поясняю - все что выводится все красиво и понятно, мне надо видеть как это все формируется. Если это в закрытом модуле, задача существенно сложнее.

(50)+ Для этого и хочу пощупать сами базы, а не скрины. Потому собсно и предлагал подъехать, так дольше объясняться чем на месте.

Что работает без ключа, оно конечно хорошо, только плохо вы знаете рарус...

обьясню более подробно , есть фаил с расширением 90 , его пример открытия в экселе и ворде висит ранее в теме , в начале строки идет код , например K00012015, под этим кодом , например ,идут работы , 7ка  ищет этот код в документе , наидя , по написанному алгоритму отсчитывает от начала строки по знакам табуляции необходимый интервал , наприме 29 знаков  , и записывает оттуда наименование работ , затем там же считает до , например 39 и записывает оттуда значения в графу нормочас , так же точно с кодами работ и номерами и наименованием запчастей , выше же образец именно оттуда процедуры и выложен

а базы не секретные , обе есть в чистом виде , секретности никакой

вы их пишете , я потом ооттуда заберу процедуру и таблицу в свои , рабочие

вернее дописываете

что-то знакомое, с утра в архивах пороюсь вроде аналогичное делал

все описание записи значений из фаила с расширением 90 есть ( доступно для прочтения) в имеющейся 8ке . Мудрить не надо ничего , просто правильно записать процедуру в модуль с использованием идентификаторов от 7ки , на которой работаю

(53) Ну вот за это и недолюбливаю удаленки... На месте давно бы уже от компа отпихнул разобрался и делал, а тут еще базу буду сутки выпрашивать чтобы хотя бы увидеть с чем работать. Вы видите только выходные формы, внутри там может быть что угодно. В v8 можно модули прятать вполне штатно, безо всяких ключей, чем рарус активно пользуется. Сколько кода из того что делает все описанное я увижу, я не могу узнать пока по конфе отладчиком не пройдусь.

базы нужны , ща залью

(60) и примеры файлов конечно...

без проблем , ща скину

(62) Похоже конкретно на северо-западе... У меня второй час ночи, в мыле пусто. Видимо только с утра уже свяжемся. Аська в личке, отвечаю всем кроме тех кто похож на ботов.

да блин , заливается 80 метров , у меня отдача 50 кб , залью  - отправлю

мож надо конкретные какие то фаилы , более маленькие , отпишите , я то всю папку с конфои заливаю

(65) Да пусть льется, сейчас все равно работать уже несколько влом, все ж поздновато. С утра гляну, да отвечу. Только лучше бы в аськах того, друг друга авторизовать. А то все детали на форуме обсуждать как-то не то.

завтра без проблем с утра

(67) icq, жаба или агент есть?

227998386 аська, желательно сейчас там пересечься, чтобы завтра не искать эту ветку...

Слышал семерочный автосервис раруса без ключа не работает?

(70) Ну да... Восьмерочный тоже не работает, хотя впрочем если с руборда скачать... Ну это не типовая в общем которую можно патчем раз и навсегда от ключа отучить. Там просто часть кода ключиком закрыта. Запуститься-запутится, но нормально работать не будет. Чтобы отучить полконфы перепахать надо. В варезниках есть отученный, но от 17-го года релиз...

(65) 1cv7.md зипованый из каталога базы семерки и файл .90 для оценки формата (не нашел примеров в интернетах). Для оценки сложности импорта этого, думаю, будет достаточно.

(72) Хм... Ну вообще-то мне важнее восьмерку посмотреть. То ли надо с языка, на язык перевести, то ли самому написать...

все улетело уже по адресу

все работает без ключей

7- там простенько все , лишнее убрано

Аси здесь нет , есть скаип

в скаипе тоже что и логин на форуме

пошел спать , до завтра

Рад сообщить всем, что задача решена грамотно , четко и в кратчайший срок . Приятно работать с мастерами своего дела , такими , как Алексей ( Дядя Васька). Спасибо ему большое , а так же участникам темы и форуму. Радует , когда есть подобные ресурсы и, главное, люди .
СПАСИБО ЕЩЁ РАЗ.