| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > Загрузка данных с терминала сбора данных |
| Автор: JaxTesla 2.4.2010, 19:55 |
| Здравствуйте. Возникла небольшая (а может и большая )проблема: Необходимо (в типовой конфигурации 1с Управление торговли 8.1) загружать в реализацию товаров и услуг с терминала данные, но чтобы они при выгрузке не складывались (если набиваешь одну и туже позицию, но несколько раз с разным или одинаковым количеством) как отключить сложение при подборе вручную, я разобрался, но при выгрузке с терминала не пойму Подскажите пожалуйста очень надо. Я потом буду делать отдельный документ на основе реализации и делать отдельную обработку на основе исправлений для ТОСервера чтобы новый документ ссылался на эту обработку а все остальные документы работали по старому. Очень надеюсь на помощь |
| Автор: JaxTesla 6.4.2010, 13:19 |
| Ну неужели нет программистов????? Вот код, Может кто-нить показать как надо поправить?? Очень надо!! ХЕЛП!!! Реализация товаров и услуг Процедура КоманднаяПанельТоварыИзТерминалаСбораДанных(Кнопка) ПолучитьСерверТО().ЗагрузитьИзТерминалаСбораДанных(мТерминалы, ЭтаФорма); КонецПроцедуры МОДУЛЬ ПРИЛОЖЕНИЙ Функция ПолучитьСерверТО() Экспорт Если глСерверТО = Неопределено Тогда глСерверТО = Обработки.ТОСервер.Создать(); КонецЕсли; Возврат глСерверТО; КонецФункции // ПолучитьСерверТО() ОБРАБОТКА ТОСЕРВЕР Функция НачатьЗагрузкуТСД(Идентификатор, Количество) Экспорт Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда Результат = Обработка.НачатьЗагрузку(Объект, Количество); мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // НачатьЗагрузкуТСД() Функция ЗагрузитьСтрокуТСД(Идентификатор, ДанныеИзТСД) Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда ШК = Неопределено; Количество = Неопределено; Результат = Обработка.ЗагрузитьСтроку(Объект, ШК, Количество); Если НЕ ЗначениеЗаполнено(Результат) Тогда НоваяСтрока = ДанныеИзТСД.Добавить(); НоваяСтрока.ШК = ШК; НоваяСтрока.Количество = Количество; КонецЕсли; мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // ЗагрузитьСтрокуТСД() Функция ЗавершитьЗагрузкуТСД(Идентификатор) Экспорт Обработка = Неопределено; Объект = Неопределено; Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект); Если НЕ ЗначениеЗаполнено(Результат) Тогда Результат = Обработка.ЗавершитьЗагрузку(Объект); мОписаниеОшибки = Объект.ОписаниеОшибки; Иначе мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД"); КонецЕсли; Возврат Результат; КонецФункции // ЗавершитьЗагрузкуТСД() Вот код 3 операций, они взаимопоследовательно связанны, где видимо на этапе формирования обработки ТОСервера одинаковые позиции складываются в одну строчку. Я вот не вижу где, или может это происходит в другом месте!? тогда ГДЕ??? ПОМОГИТЕ |