Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > Загрузка данных с терминала сбора данных


Автор: JaxTesla 2.4.2010, 19:55
Здравствуйте.
Возникла небольшая (а может и большая )проблема:
Необходимо (в типовой конфигурации 1с Управление торговли 8.1) загружать в реализацию товаров и услуг с терминала данные, но чтобы они при выгрузке не складывались (если набиваешь одну и туже позицию, но несколько раз с разным или одинаковым количеством) как отключить сложение при подборе вручную, я разобрался, но при выгрузке с терминала не пойму  smile  , это видимо происходит еще на уровне где формируется выгрузка в ТОСервер.
Подскажите пожалуйста очень надо.
Я потом буду делать отдельный документ на основе реализации и делать отдельную обработку на основе исправлений для ТОСервера чтобы новый документ ссылался на эту обработку а все остальные документы работали по старому.
Очень надеюсь на помощь

Автор: JaxTesla 6.4.2010, 13:19
Ну неужели нет программистов?????
Вот код, Может кто-нить показать как надо поправить??
Очень надо!! ХЕЛП!!!

Реализация товаров и услуг

Процедура КоманднаяПанельТоварыИзТерминалаСбораДанных(Кнопка)

    ПолучитьСерверТО().ЗагрузитьИзТерминалаСбораДанных(мТерминалы, ЭтаФорма);

КонецПроцедуры

МОДУЛЬ ПРИЛОЖЕНИЙ

Функция ПолучитьСерверТО() Экспорт

    Если глСерверТО = Неопределено Тогда
        глСерверТО = Обработки.ТОСервер.Создать();
    КонецЕсли;

    Возврат глСерверТО;

КонецФункции // ПолучитьСерверТО()


ОБРАБОТКА ТОСЕРВЕР

Функция НачатьЗагрузкуТСД(Идентификатор, Количество) Экспорт

    Обработка = Неопределено;
    Объект    = Неопределено;
    Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект);

    Если НЕ ЗначениеЗаполнено(Результат) Тогда
        Результат = Обработка.НачатьЗагрузку(Объект, Количество);
        мОписаниеОшибки = Объект.ОписаниеОшибки;
    Иначе
        мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД");
    КонецЕсли;

    Возврат Результат;

КонецФункции // НачатьЗагрузкуТСД()

Функция ЗагрузитьСтрокуТСД(Идентификатор, ДанныеИзТСД)

    Обработка = Неопределено;
    Объект    = Неопределено;
    Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект);

    Если НЕ ЗначениеЗаполнено(Результат) Тогда
        ШК         = Неопределено;
        Количество = Неопределено;

        Результат = Обработка.ЗагрузитьСтроку(Объект, ШК, Количество);
        Если НЕ ЗначениеЗаполнено(Результат) Тогда
            НоваяСтрока = ДанныеИзТСД.Добавить();
            НоваяСтрока.ШК         = ШК;
            НоваяСтрока.Количество = Количество;
        КонецЕсли;

        мОписаниеОшибки = Объект.ОписаниеОшибки;
    Иначе
        мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД");
    КонецЕсли;

    Возврат Результат;

КонецФункции // ЗагрузитьСтрокуТСД()

Функция ЗавершитьЗагрузкуТСД(Идентификатор) Экспорт

    Обработка = Неопределено;
    Объект    = Неопределено;
    Результат = ПолучитьОбъектДрайвера(Идентификатор, Обработка, Объект);

    Если НЕ ЗначениеЗаполнено(Результат) Тогда
        Результат = Обработка.ЗавершитьЗагрузку(Объект);
        мОписаниеОшибки = Объект.ОписаниеОшибки;
    Иначе
        мОписаниеОшибки = ПолучитьТекстОшибкиПодключенияТО("ТСД");
    КонецЕсли;

    Возврат Результат;

КонецФункции // ЗавершитьЗагрузкуТСД()


Вот код 3 операций, они взаимопоследовательно связанны, где видимо на этапе формирования обработки ТОСервера одинаковые позиции складываются в одну строчку. Я вот не вижу где, или может это происходит в другом месте!? тогда ГДЕ??? ПОМОГИТЕ smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)