Как помогите написать обработку #1501

Уважаемые Гуру помогите. Мне нужно из таблицы ДБФ перенести справочник Контрагенты и Расчетные счета в 1С торговлю. Я новичек и у меня ничего не получается.(((

а точнее если не трудно

Слово "новичок" пишется с буквой "о" ...

Есть старая программа, в ней справочник в виде ДБФ, по яцейкам как положено разбиты все данные, а мне нужно перенести его в 1С и все сохранить.

Рупор абсурда, спасибо за подсказку. Буду относиться внимательней.

ща он про яцейки завернет.....

Слово "ячейка" с буквой "ц" выглядит неприлично ...

Телепатка?

Валентина, ты что-нибудь делала уже?

Может кто поможет?

Так по мелочам.

Т.е. тебе с самого начала объяснять надо?

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

А _не_из_ДБФ_ ты это делать умеешь?

нет. не умею. Я только что попробоваля из дбф загрузить справочник, нименование загрузилось, а дальше нет.

точно также как и все остальное или там какая кака есть

Код ты нам не покажешь, конечно ...

Утром, только я сечас дома, все на работе.

На печи лежишь?

Нет только что домой пришла, решила  спросить совет у народа, т.к. на рабте интернета нет. Сейчас буду книжки умные листать, как найти владельца Ну обижать-то зачем? Я 1С-ом этим только месяц занимаюсь

вай вай опять хулиганишь

Да нет, просто сложно это все с самого начала методом научного тыка

Рупор, да возьми девушку на буксир.

Что ты, что ты? ... Я теперь исправляться начну ... Мне сёдня ночью даже кошмарики снились ..., kos c Волшебником за мной всю ночь с челаутами наперевес гонялись ... Не выспался нифига из-за них ... :((

Это из того что есть дома //******************************************* Процедура ОткрФайл    пФ="";    пКат="";    Если ФС.ВыбратьФайл(0,пФ,пКат,"Выберите dbf-файл с накладной:","dbf-файлы (*.dbf) |*.dbf","dbf")=1 Тогда        //сообщить(""+пКат+пФ);        пПуть=""+пКат+пФ;    КонецЕсли; КонецПроцедуры //******************************************* Процедура Сформировать    Если СокрЛП(пПуть)="" Тогда        сообщить("Не выбран путь с именем файла!");        статусвозврата;возврат;    КонецЕсли;                            ДБФ=СоздатьОбъект("XBase");    ДБФ.ДобавитьПоле("Name",2,30,0);    ДБФ.ОткрытьФайл(""+СокрЛП(пПуть));        СпрКонтр=СоздатьОбъект("Справочник.Контрагенты");        сообщить("Начало згрузки справочника . . . ");

А сам чего? Не знаешь "как загрузить расчетные счета и банк"?

Лень.

А вот бы и меня бы кто на буксир взял :)

Так ты замужем, небось?

ЛЮЮЮЮДДДИИИ, мы здесь все не замужем, может все-таки к проклятым контрагентам вернемся

Давай, вернёмся ... Чё там в не поместилось?

ДАльше на работе, то что дома выглядело так:        Если ""+СокрЛП(ДБФ.NAME)<>"" Тогда            пТов=Спр.ТекущийЭлемент;        Спр.Наименование=""+СокрЛП(ДБФ.NAME);        Спр.ПолнНаименование=""+СокрЛП(ДБФ.NAME);            Иначе                //не найден            КонецЕсли;        КонецЕсли; Если все это правильно, тогда как згрузить все остальное

надо если спр.найтипонаименованию(СокрЛП(ДБФ.NAME)) = 0 тогда не найден иначе найден конецелси

Спасибо, а как тут же подгузить расчетные счета и банки?

Функция ЗагрузкаЭлемента(Кладр,Таб)    КодСКА = Таб.CODE;    КодРегиона = Лев(КодСКА,2);    КодРайона  = Сред(КодСКА,3,3);    КодГорода  = Сред(КодСКА,6,3);    КодНП      = Сред(КодСКА,9,3);    Если КодНП<>"000" Тогда        Название = СокрЛП(Таб.NAME)+" "+СокрЛП(Таб.SOCR)+" #"+КодРегиона+КодРайона+КодГорода;    ИначеЕсли КодГорода<>"000" Тогда        Название = СокрЛП(Таб.NAME)+" "+СокрЛП(Таб.SOCR)+" #"+КодРегиона+КодРайона;    ИначеЕсли КодРайона<>"000" Тогда        Название = СокрЛП(Таб.NAME)+" "+СокрЛП(Таб.SOCR)+" #"+КодРегиона;    Иначе        Название = СокрЛП(Таб.NAME)+" "+СокрЛП(Таб.SOCR);    КонецЕсли;    Если Кладр.НайтиПоНаименованию(Название)=0 Тогда        Кладр.Новый;        Кладр.Код = КодСКА;        Если (КодНП<>"000") Тогда            Кладр.Регион = "4"+КодРегиона;            Кладр.Район = "4"+КодРегиона+КодРайона;            Кладр.Город = "4"+КодРегиона+КодРайона+КодГорода;            Кладр.Уровень=4;        ИначеЕсли (КодГорода<>"000") Тогда            Кладр.Регион = "3"+КодРегиона;            Кладр.Район  = "3"+КодРегиона+КодРайона;            Кладр.Уровень=3;        ИначеЕсли (КодРайона<>"000") Тогда            Кладр.Регион = "2"+КодРегиона;            Кладр.Уровень=2;        ИначеЕсли (КодРегиона<>"00") Тогда            Кладр.Уровень=1;        КонецЕсли;        Кладр.Наименование = Название;        Кладр.Индекс = Таб.INDEX;        Кладр.Записать;        Возврат 1;    КонецЕсли;    Возврат 0; КонецФункции // ЗагрузкаЭлемента самому лень писать, да и незнаю толком чего надо попробуй может это поможет (с) 1С:Налогоплательщик

Спасибо, попробую

даже близко не похоже, может кто более конкретно знает, как решить проблему?

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

Уважаемый Рупор, скажите как правильно задать вопрос и что вам из моего не понятно. Рябята, я правда погибаю!!!!!

А ты крутой мужик, Рупор. Рисуй карту

Чего я должен делать?

Давай попорядку - что именно не получается на данном этапе?

Диал-ап кончится ... :))

Я пытаюсь загрузить контрагентов, но в этой же таблице нужно и расчетные счета и банки взять. Т.е для контрагента такого-то нужно залить его расчетный счет и проверить есть ли такой банк и если нет, то загрузить или просто выбрать из списка. ((

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