/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 474
от 19.04.2007, 14:05

Вопрос № 82.431

Доброго времени суток! Подскажите пожалуйста, можно ли в 1С 7.7 ТИС сделать так, чтобы один и тот же документ делал приход и расход по регистру. Т.е. предполагается, что при проведении списывается некоторое количество товара А по регистру, а затем то же количество товара Б приходуется на тот же регистр. Товары по сути идентичны, отличается только код. Или это лучше делать двумя документами? Спасибо!

Отправлен: 13.04.2007, 17:56 Вопрос задала: KittyJ (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Андрей Тимофеев Здравствуйте, KittyJ! Да, можно. Нужно всего-лишь дописать в модуле проведения еще и движение прихода (или расхода) по нужному Вам регистру.

Ответ отправил: Андрей Тимофеев (статус: 2-ой класс) Ответ отправлен: 13.04.2007, 18:06

Отвечает: Strawberry Здравствуйте, KittyJ! 1)можно 2)Лучше делать так как удобнее если удобно одним документов и списывание и приход взаимосвязаны то тогда одним, если невзаимосвязаны то тогда двумя --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 6-ой класс) Ответ отправлен: 13.04.2007, 19:03 Оценка за ответ: 5

Отвечает: Ноговицин Роман Викторович Здравствуйте, KittyJ! Никаких ограничений для таких операций по регистрам не существует. Копируйте код с расходом, меняйте его на приход. Вносите изменения в условия проведения. Удачи!

Ответ отправил: Ноговицин Роман Викторович (статус: 1-ый класс) Ответ отправлен: 13.04.2007, 19:49 Оценка за ответ: 5

Отвечает: BigHard Здравствуйте, KittyJ! А почему нельзя? Так даже лучше - с меньшеим количеством документов работать придется. Конечно можно. --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 9-ый класс) Ответ отправлен: 16.04.2007, 06:53

Отвечает: Ovr1970 Здравствуйте, KittyJ! Конечно можно, и иногда даже нужно (при внутреннем перемещении или пересорте). Если у Вас производство, то логичнее будет создать два документа, один передача товара в производство ( с возможностью возврата), а второй - приходывание произведенного товара. Это лучше сделать двумя документами потому, что отправка номенклатуры в производство и прием готовой продукции - это процессы, которые отделены друг от друга значительным промежутком времени.

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 16.04.2007, 11:33

Вопрос № 82.459

Доброго времени суток уважаемые эксперты. Есть обработка выгрузки/загрузки справочника ТОвары по определенной группе. Выгружаеться все замечательно. Загвоздка в загрузке. Если была добавлена новая группа, в ней новая подгруппа, а в подгруппе новые элементы, то при загрузке первая группа (подгруппа) попадает туда куда надо (тоесть в определенную категорию из которой выгружалась), но все остальное загружаеться в корень справочника. Подскажите пожалуйста где ошибка. Надо сделать так чтобы загружалось именно в те категории, откуда и выгружалась с учетом того что могли быть созданы новые категории и элементы. Спасибо если подправите код. Приложение: Процедура Выгрузить() Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Спр=СоздатьОбъект("Справочник.Товары"); Если ВыбГруппа.Выбран()=1 Тогда // проверяем если что-то в нашем реквизите формы Если ВыбГруппа.ЭтоГруппа()=1 Тогда // проверяем группа ли это... Спр.ИспользоватьРодителя(ВыбГруппа); // в реквизите выбрана группа выбираем товары только из нее // то что ниже лишнее // Спр.ВключатьПодчиненные(1); //это чтобы обработка заходила в подгруппы если есть КонецЕсли; КонецЕсли; Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл Список.ДобавитьЗначение(Спр.Код); Список.ДобавитьЗначение(Спр.Наименование); Список.ДобавитьЗначение(Спр.Прих_Цена); Список.ДобавитьЗначение(?(Спр.ЭтоГруппа()=1,"Г","Э")); // группа или элемент Список.ДобавитьЗначение(Спр.Родитель.код); // для востановления подчинености Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); Список.УдалитьВсе(); КонецЦикла; Текст.Записать("C:111555.txt"); КонецПроцедуры Процедура Загрузить() Спр=СоздатьОбъект("Справочник.Товары"); Род=СоздатьОбъект("Справочник.Товары"); Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Текст.Открыть("C:111555.txt"); Для Ном=1 По Текст.КоличествоСтрок() Цикл Стр=Текст.ПолучитьСтроку(Ном); Список.ИзСтрокиСРазделителями(Стр); Спр.ИспользоватьРодителя(0); Род.ИспользоватьРодителя(0); //****************************Существующии группы и элементы************************ Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=1 Тогда //********Проверка существования группы если есть просто перезаписываем************* Если Спр.ЭтоГруппа()=1 Тогда Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьГруппа"); //*********Конец проверки группы на наличие существующей**************************** Иначе //**********Проверка существования элемента****************************************** Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьЭлемент"); //***********Конец проверки существования элемента*********************************** КонецЕсли; //*********************Конец проверки существующих групп и элементов******************* Иначе //********Начало новая группа********************************************************* Если Список.ПолучитьЗначение(4)="Г" Тогда Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.ИспользоватьРодителя(Род.ТекущийЭлемент()); Спр.НоваяГруппа(); Спр.Наименование=Список.ПолучитьЗначение(2); Спр.Записать(); Сообщить("Новая Группа"); //********Конец новая группа********************************************************** Иначе //********Новый элемент*************************************************************** Если Список.ПолучитьЗначение(4)="Э" Тогда Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.ИспользоватьРодителя(Род.ТекущийЭлемент()); Спр.Новый(); Спр.Наименование=Список.ПолучитьЗначение(2); Спр.Прих_Цена=Число(Список.ПолучитьЗначение(3)); Спр.Записать(); Сообщить("Новый Элемент"); КонецЕсли; //*******Конец новый элемент*********************************************************** КонецЕсли; Спр.Записать(); КонецЕсли; Спр.Записать(); КонецЦикла; Сообщить("Конец"); КонецПроцедуры

Отправлен: 13.04.2007, 19:01 Вопрос задал: Аржаник Антон Николаевич (статус: 2-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Аржаник Антон Николаевич! При создании новой группы ей нужно присвоить код такой же как и в старой базе (базы из которой выгружается) Приложение: Процедура Загрузить() Спр=СоздатьОбъект("Справочник.Товары"); Род=СоздатьОбъект("Справочник.Товары"); Текст=СоздатьОбъект("Текст"); Список=СоздатьОбъект("СписокЗначений"); Текст.Открыть("C:111555.txt"); Для Ном=1 По Текст.КоличествоСтрок() Цикл Стр=Текст.ПолучитьСтроку(Ном); Список.ИзСтрокиСРазделителями(Стр); Спр.ИспользоватьРодителя(0); Род.ИспользоватьРодителя(0); //****************************Существующии группы и элементы************************ Если Спр.НайтиПоКоду(Список.ПолучитьЗначение(1))=1 Тогда //********Проверка существования группы если есть просто перезаписываем************* Если Спр.ЭтоГруппа()=1 Тогда Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьГруппа"); //*********Конец проверки группы на наличие существующей**************************** Иначе //**********Проверка существования элемента****************************************** Спр.Наименование=Список.ПолучитьЗначение(2); Сообщить("ЕстьЭлемент"); //***********Конец проверки существования элемента*********************************** КонецЕсли; //*********************Конец проверки существующих групп и элементов******************* Иначе //********Начало новая группа********************************************************* Если Список.ПолучитьЗначение(4)="Г" Тогда Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.ИспользоватьРодителя(Род.ТекущийЭлемент()); Спр.НоваяГруппа(); Спр.Код=Список.ПолучитьЗначение(1);// ставим такой же код как и в старой базе Спр.Наименование=Список.ПолучитьЗначение(2); Спр.Записать(); Сообщить("Новая Группа"); //********Конец новая группа********************************************************** Иначе //********Новый элемент*************************************************************** Если Список.ПолучитьЗначение(4)="Э" Тогда Род.НайтиПокоду(Список.ПолучитьЗначение(5)); Спр.ИспользоватьРодителя(Род.ТекущийЭлемент()); Спр.Новый(); Спр.Код=Список.ПолучитьЗначение(1); Спр.Наименование=Список.ПолучитьЗначение(2); Спр.Прих_Цена=Число(Список.ПолучитьЗначение(3)); Спр.Записать(); Сообщить("Новый Элемент"); КонецЕсли; //*******Конец новый элемент*********************************************************** КонецЕсли; Спр.Записать(); КонецЕсли; Спр.Записать(); КонецЦикла; Сообщить("Конец"); КонецПроцедуры --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 6-ой класс) Ответ отправлен: 13.04.2007, 19:25

Отвечает: svsrus Здравствуйте, Аржаник Антон Николаевич! Вы пошли немного сложным путем. Можно легко запутаться. 1.Самое главное, НЕЛЬЗЯ(!!!) использовать коды справочников при переносе. Код можно использовать при полной синхронизации справочника, а вы переносите только группу. Хоть у вас конфигурации и идентичные, но это не значит что и коды в справочнике идентичные(хотя и такое может быть, если база только-что скопирована). А вы ищете элемент справочника по коду... Кстати, поэтому и ответ Strawberry не совсем корректен, хотя для вашего кода правильный, но все равно перенос будет неверный:) 2. У вас ошибка в коде уже при выгрузке, вернее не ошибка, а неправильный порядок выгрузки. Дело в том, что когда вы выбираете ИспользоватьРодителя(ВыбГруп), затем перебираете элементы, ТО элементы будет перебираться не по порядку с учетом подчинения группе (т.е. сначала группа, потом все ее элементы), а по порядку кодов(по умолчанию). И возникает ситуация, что у вас в список, а потом и в файл записывается сначала сам элемент некой группы, а потом только группа(если номер элемента < номера группы). И что получается? При загрузке вы перебираете строки из файла и натыкаетесь вот на такой элемент - > ищете родителя. А родителя то еще нет!!! Он дальше и вы еще его не создали! Поэтому не все элементы попадут в нужную группу. Тут надо либо сначала создать все группы, а потом проверять элементы, либо... вариантов много. Вот вам пример кода. На мой взгляд он лаконичней и прозрачней. Да и не приведет к ошибкам см. выше. Я использую ТЗ при переносе. Доработайте сами. Будут вопросы, пишите на мыло. Приложение: Процедура Выгрузить() ТЗ = СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("ПолноеНаименование","Строка"); ТЗ.НоваяКолонка("Наименование", "Строка"); ТЗ.НоваяКолонка("Группа", "Число", 1, 0); // 1-группа, 0 - элемент. ТЗ.НоваяКолонка("Прих_Цена", "Число", 15, 2); Спр=СоздатьОбъект("Справочник.Товары"); Если (ВыбГруппа.Выбран()=1) и (ВыбГруппа.ЭтоГруппа()=1) Тогда // проверяем если что-то в нашем реквизите формы Спр.ИспользоватьРодителя(ВыбГруппа); // в реквизите выбрана группа выбираем товары только из нее ТЗ.НоваяСтрока(); ТЗ.ПолноеНаименование = ВыбГруппа.ПолноеНаименование(); ТЗ.Группа = 1; ТЗ.Наименование = ВыбГруппа.Наименование; Иначе Предупреждение("Нужно выбрать группу!"); Возврат; КонецЕсли; Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл ТЗ.НоваяСтрока(); ТЗ.ПолноеНаименование = Спр.ПолноеНаименование(); ТЗ.Наименование = Спр.Наименование; Если Спр.ЭтоГруппа() = 1 Тогда ТЗ.Группа = 1; Иначе ТЗ.Прих_Цена = Спр.Прих_Цена; КонецЕсли; КонецЦикла; ЗначениеВФайл("C:Выгрузка.txt", ТЗ); КонецПроцедуры Процедура Загрузить() Спр = СоздатьОбъект("Справочник.Товары"); ТЗ = СоздатьОбъект("ТаблицаЗначений"); ЗначениеИзФайла("C:Выгрузка.txt", ТЗ); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл // Находим уровень текущего элемента, т.к. справочник многоуровневый. Уровень = СтрЧислоВхождений(ТЗ.ПолноеНаименование, ""); // Кол-во вышестоящих групп Если Уровень > 0 Тогда Для i = 1 По Уровень Цикл // Дальше писать не буду. Напишете сами:-) Алгоритм примерный: // 1. Берем строку ТЗ.ПолноеНаименование. Выделяем строку до первого символа "". Это будет самая вышестоящяя группа // 2. Провереям, если нет такой группы. Создаем её. // 3. И дальше до последнего "" т.е. когда i = Уровень. Последний уровень и будет группа-родитель.ТЗ // Даллее: // Спр.ИспользоватьРодителя(группа-родитель); // перед этим конечно найти группу-родитель. // Спр.Новый(); ... и т.д. // .... КонецЦикла; Иначе // Значит нет вышестоящих групп, но у нас как минимум одна группа Если Спр.НайтиПоНаименованию(СокрЛП(ТЗ.Наименование)) = 0 Тогда //нет такой группы Спр.НоваяГруппа(); Спр.Наименование = ТЗ.Наименование; Спр.Записать(); КонецЕсли; КонецЕсли; КонецЦикла; Сообщить("Конец"); КонецПроцедуры;

Ответ отправил: svsrus (статус: 5-ый класс) Ответ отправлен: 14.04.2007, 10:38

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.50 (beta) от 15.04.2007