7.7 1С Торговля и Склад 9.2

Тема в разделе "Типовые решения "1С:Предприятие 7.7"", создана пользователем NovInNik, 13 май 2009.

0/5, Голосов: 0
Страница 2 из 2
  1. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Вопрос можно задавать в форме обработки, а не использовать функцию Вопрос(). Выложи текст как делаешь и что не получается
    Бухгалтерский угодник, 23 май 2009
    #21
  2. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    скину лучше обработку. может можно как-то уменьшить.
    перебираю группу контрагентов (или одного) проверяю сколько было док-ов на какуюю сумму, возвратов, долг и в итоге его активность. вот эту активность так сказать статус и необходимо присвоить текущему контрагенту или пропустить и обработать следующего

    Вложения:

    NovInNik, 23 май 2009
    #22
  3. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    по применению примера кода

    Код:
    Контрагенты.ЮрФизЛицо.Статус=МоеПеречисление;
Контрагенты.Записать();
    выводит ошибку Поле агрегатного объекта не обнаружено (Статус). Как с этим бороться. Не хочет присваивать и все. Даже любое значение, напрямую.
    NovInNik, 28 май 2009
    #23
  4. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    ЮрФизЛицо это справочник неопределенного типа. Может принимать значения типа Справочник.ЮрЛица или Справочник.ФилЛица Вот именно в ЭТИХ справочниках и нужно добавить реквизит Статус типа МоеПеречисление. Тогда все получится
    Бухгалтерский угодник, 29 май 2009
    #24
  5. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    при выборе контрагента, не вносится запись, или вносится но по всем, как осуществить только данного
    Код:
    Спр=СоздатьОбъект("Справочник.Контрагенты");
Спр.ВыбратьЭлементы()
Пока Спр.ПолучитьЭлемент()=1 Цикл
Спр.ИспользоватьВладельца(Контрагент);//Контрагент берется из формы Справочник.Контрагенты
ВидЮрФизЛица=Спр.ЮрФизЛицо.Вид();
Если ВидЮрФизЛица="ФизЛицо" Тогда
СпрФ=СоздатьОбъект("Справочник.ФизЛица");

КонецЦикла;
    при выборе контрагента, не вносится запись, или вносится но по всем, как осуществить только данного
    Код:
    Спр=СоздатьОбъект("Справочник.Контрагенты");
Спр.ВыбратьЭлементы()
Пока Спр.ПолучитьЭлемент()=1 Цикл
Спр.ИспользоватьВладельца(Контрагент);//Контрагент берется из формы Справочник.Контрагенты
ВидЮрФизЛица=Спр.ЮрФизЛицо.Вид();
Если ВидЮрФизЛица="ФизЛицо" Тогда
СпрФ=СоздатьОбъект("Справочник.ФизЛица");
СпрФ.Статус=Перечисление.Статус.нейтрален;
СпрФ.Записать();
КонецЕсли;
Спр.Записать();
КонецЦикла;
    в чем загвостка, так не работает, а если начинать сразу с ФизЛица, то по всем
    NovInNik, 29 май 2009
    #25
  6. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Можно так:
    В справочники ЮрЛица и ФизЛица добавь реквизит Статус (перечисление). Тогда
    Код:
    Контрагенты.ЮрФизЛицо.Статус=МоеПеречисление;
Контрагенты.Записать();
    А можно так:
    В справочник Контрагенты добавь реквизит Статус (перечисление). Тогда
    Код:
    Контрагенты.Статус=МоеПеречисление;
    Бухгалтерский угодник, 29 май 2009
    #26
  7. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    когда я прописываю
    Код:
    Контрагенты.ЮрФизЛицо.Статус=МоеПеречисление;
    в данном случае в справочниках ЮрЛица и ФизЛица создан элемент Статус, выдает ошибку что Статус не найден.
    NovInNik, 1 июн 2009
    #27
  8. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    Почему не работает данный код, контрагенты находит, а значение присваивает пустое
    Код:
    Спр=СоздатьОбъект("Справочник.Контрагенты");
Спр.ИспользоватьВладельца(Контр);
Если Спр.НайтиЭлемент(Контр)=1 Тогда
//например присвоим статус активный
Спр.ЮрФизЛицо.Статус=Перечисление.Статус.активный;
Спр.Записать();
КонецЕсли;
    NovInNik, 1 июн 2009
    #28
  9. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Скорее всего реквизит справочника Статус имеет другой тип (не перечисление.Статус)
    Бухгалтерский угодник, 1 июн 2009
    #29
  10. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    да нет, как раз именно перечисление, в обоих справочниках (ФизЛица и ЮрЛица)
    NovInNik, 1 июн 2009
    #30
  11. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Код:
    Спр=СоздатьОбъект("Справочник.Контрагенты");    
Если Спр.НайтиЭлемент(Контр)=1 Тогда    //например присвоим статус активный 
Спр.ЮрФизЛицо.Статус=Перечисление.Статус.активный;    
Спр.Записать();    
КонецЕсли;
    Т.е. вдадельца не надо. Контр это владелец справочников Юр/ФизЛица, а ты применяешь его для справочника контрагентов - масло масленное
    Бухгалтерский угодник, 1 июн 2009
    #31
  12. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    ну и как тогда быть с присвоением реквизита Статус.
    NovInNik, 1 июн 2009
    #32
  13. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Смотри в примере
    Бухгалтерский угодник, 1 июн 2009
    #33
  14. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    не помогает, не присваивает и все, пустое значение остается
    NovInNik, 1 июн 2009
    #34
  15. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    А ты уверен что НайтиЭлемент срабатывает?
    Бухгалтерский угодник, 1 июн 2009
    #35
  16. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    да, в условии "Если" после "НайтиЭлемент" перед "Записать()" выводил Сообщить(Контр); выводит выбранный в диалоге обработки
    NovInNik, 1 июн 2009
    #36
  17. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор Заблокирован

    Регистрация:
    29 дек 2008
    Сообщения:
    19.279
    Симпатии:
    466
    Баллы:
    204
    Извиняюсь - поторопился. Так должно работать
    Код:
    Спр=СоздатьОбъект("Справочник.Контрагенты");    
Если Спр.НайтиЭлемент(Контр)=1 Тогда    //например присвоим статус активный 
Подчиненный=СоздатьОбъект("Справочник."+Спр.ЮрФизЛицо.Вид());    
Если Подчиненный.НайтиЭлемент(Спр.ЮрФизЛицо.ТекущийЭлемент())=1 Тогда
Подчиненный.Статус=Перечисление.Статус.активный;     
Подчиненный.Записать();    
КонецЕсли; 
КонецЕсли;
    Бухгалтерский угодник, 1 июн 2009
    #37
  18. TopicStarter Overlay
    NovInNik
    Offline

    NovInNik Опытный в 1С

    Регистрация:
    12 ноя 2007
    Сообщения:
    219
    Симпатии:
    2
    Баллы:
    29
    большое спасибо, дальше сам попробую докумекать. пока все работает
    NovInNik, 1 июн 2009
    #38
Страница 2 из 2
Похожие темы
  1. Денис

    7.7 чек ккм в торговля и склад

    Денис, 21 июл 2006, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    6
    Просмотров:
    4.487
    GP_
    16 авг 2006
  2. Sayan

    7.7 Торговля и склад 9.0

    Sayan, 14 апр 2007, в разделе: Общие вопросы "1С:Предприятие 7.7"
    Ответов:
    5
    Просмотров:
    3.075
    Ymorozoff
    14 июл 2007
  3. РусланН

    7.7 1C Торговля и склад

    РусланН, 16 апр 2007, в разделе: Типовые решения "1С:Предприятие 7.7"
    Ответов:
    5
    Просмотров:
    3.473
    Неназываемый
    20 апр 2007
  4. serega2671

    7.7 1С 7.7 Торговля и склад 9.2

    serega2671, 18 май 2009, в разделе: Типовые решения "1С:Предприятие 7.7"
    Ответов:
    2
    Просмотров:
    1.446
    Бухгалтерский угодник
    19 май 2009
  5. astron

    7.7 1С 7.7 торговля и склад

    astron, 13 сен 2012, в разделе: Типовые решения "1С:Предприятие 7.7"
    Ответов:
    5
    Просмотров:
    1.248
    Бухгалтерский угодник
    15 сен 2012
Загрузка...