![]() |
|
Модераторы: stron |
![]()
|
|
| JaxTesla |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 2.4.2010 Репутация: нет Всего: нет |
Здравствуйте.
Возникла небольшая (а может и большая )проблема: Необходимо (в типовой конфигурации 1с Управление торговли 8.1) загружать в реализацию товаров и услуг с терминала данные, но чтобы они при выгрузке не складывались (если набиваешь одну и туже позицию, но несколько раз с разным или одинаковым количеством) как отключить сложение при подборе вручную, я разобрался, но при выгрузке с терминала не пойму Подскажите пожалуйста очень надо. Я потом буду делать отдельный документ на основе реализации и делать отдельную обработку на основе исправлений для ТОСервера чтобы новый документ ссылался на эту обработку а все остальные документы работали по старому. Очень надеюсь на помощь |
|||
|
||||
| JaxTesla |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 2.4.2010 Репутация: нет Всего: нет |
Ну неужели нет программистов?????
Вот код, Может кто-нить показать как надо поправить?? Очень надо!! ХЕЛП!!! Реализация товаров и услуг Процедура КоманднаяПанельТоварыИзТерминалаСбораДанных(Кнопка) ПолучитьСерверТО().ЗагрузитьИзТерминалаСбораДанных(мТерминалы, ЭтаФорма); КонецПроцедуры МОДУЛЬ ПРИЛОЖЕНИЙ Функция ПолучитьСерверТО() Экспорт Если глСерверТО = Неопределено Тогда глСерверТО = Обработки.ТОСервер.Создать(); КонецЕсли; Возврат глСерверТО; КонецФункции // ПолучитьСерверТО() ОБРАБОТКА ТОСЕРВЕР Функция НачатьЗагрузкуТСД(Идентификатор, Количество) Экспорт Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда Результат = Обработка.НачатьЗагрузку(Объект, Количество); мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // НачатьЗагрузкуТСД() Функция ЗагрузитьСтрокуТСД(Идентификатор, ДанныеИзТСД) Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда ШК = Неопределено; Количество = Неопределено; Результат = Обработка.ЗагрузитьСтроку(Объект, ШК, Количество); Если НЕ ЗначениеЗаполнено(Результат) Тогда НоваяСтрока = ДанныеИзТСД.Добавить(); НоваяСтрока.ШК = ШК; НоваяСтрока.Количество = Количество; КонецЕсли; мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // ЗагрузитьСтрокуТСД() Функция ЗавершитьЗагрузкуТСД(Идентификатор) Экспорт Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда Результат = Обработка.ЗавершитьЗагрузку(Объект); мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // ЗавершитьЗагрузкуТСД() Вот код 3 операций, они взаимопоследовательно связанны, где видимо на этапе формирования обработки ТОСервера одинаковые позиции складываются в одну строчку. Я вот не вижу где, или может это происходит в другом месте!? тогда ГДЕ??? ПОМОГИТЕ |
|||
|
||||
![]()
|
| Правила форума "1C: Предприятие, SAP, ERP и учётные системы" | |
|
|
Запрещается! 1. Обсуждение крэков, кейгенов и других подобных программ Пробуйте искать сами или обращайтесь в приват к участникам форума. Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения. Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...) 2. Давать ссылки на взломанные продукты
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |