Имя: Пароль:
1C
1С v8
Загрузка карты лояльности и накоплений.
0 real-comp-master
 
12.05.15
22:17
Подскажите как выполнить загрузку карт лояльности и накоплений из таблицы excel.

При этом информации по истории покупок клиентов в базе нет!

Есть только номер карты, имя клиента, и сумма накоплений.
1 Лефмихалыч
 
12.05.15
22:19
экая причудливая смесь слов...
Как тебе удалось перемешать их настолько бессвязно?
2 Tarlich
 
12.05.15
23:07
(0) все делается руками (кроме детей)
3 real-comp-master
 
12.05.15
23:09
Когда тебя критикуют за вопрос - это верный признак того что ты попал вопросом не в бровь а в глаз, и ответа на него нет.
4 Tarlich
 
12.05.15
23:17
(3) нету смысла объяснять теорему Пифагора в 3 классе....
начни с того что сделай загрузку из экселя ...
ты хочеш что бы подсказали или за тебя сделали?
5 real-comp-master
 
12.05.15
23:23
Я сделал выгрузку в таблицу из тис 7.7
В УТ 11.1, как я понял из описания, вместо карт скидок применяются карты лояльности.
Нет возможности внесение начального значения регистра накоплений, ибо объём продаж расчитывается из статистики клиента.

Так понятно что нужно делать:

Занесение клиентов отдельно, физ/юрлиц.
Карты отдельно - по номеру.
Суммы накомлений на счёт клиентов отдельно.

С последним запара.

Обработка загрузка из таб. док. глючит в 8.3.5.
- не юзабельно.

Вот и парюсь.
6 Tarlich
 
12.05.15
23:37
Обработка загрузка из таб. док. глючит в 8.3.5.
не подайдет - надо тут свою делать
разбей проблему на несколько:
1) как загрузить карты
2)загрузить владельцев карт (это благо реквизит справочника)
3) как внести уже накопленные суммы
7 Tarlich
 
12.05.15
23:42
Функция ЗагрузкаИзExcel(ИмяФайла)
    //Номер листа в книге Excel для получения данных
    НомерЛиста         = 1;
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
        Возврат Ложь;
    КонецПопытки;    
    //Подключились удачно, открываем файл
    Excel.Workbooks.Open(ИмяФайла);
    //Открываем необходимый лист
    Excel.Sheets(НомерЛиста).select();  
    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
    Иначе
        ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
        ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;  
    Конецесли;
    // Выбираем данные из файла
    Для а = 2 по ФайлСтрок Цикл          
        //Получим данные из соответсвующих ячеек
        карта = Справочники.ИнформационныеКарты.СоздатьЭлемент();
        карта .Наименование = СокрЛП(Excel.Cells(а,4).Value);
        карта .КодКарты= СокрЛП(Excel.Cells(а,1).Value);

        Заемщик.Записать();
    Конеццикла;
    //Закрываем Excel
    Excel.ActiveWorkbook.Close();  
КонецФункции
8 Garykom
 
гуру
12.05.15
23:56
(2) похоже некоторые и детей руками делают...
9 vicof
 
13.05.15
00:01
(0) В УТ11 для карт лояльности берется именно сумма из регистра продаж.
Можешь попробовать ввести продажи до момента начала действия карт, а можешь типовой механизм перепилить. Я за второй вариант.
10 Tarlich
 
13.05.15
00:06
(9) а можно сделать бутафорскую продажу на 1 рубль а в табчасть.карты впихнуть все катры? в 10,3 работало
11 Torquader
 
13.05.15
11:25
А документа "корректировка записей регистров" нету что-ли ?
Как бы для начальной установки значений регистров как раз он и нужен.
12 real-comp-master
 
14.05.15
12:52
Документ такой есть, да только какойто он совсем непонятный.
Сумма начальных накопелний не должна светиться в доходе.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший