Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Вопросы по RepWizard
На страницу Пред.  1, 2, 3, 4  След.
 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Вт Ноя 02, 2010 1:35 pm    Заголовок сообщения: Ответить с цитатой

Конечно не совпадает Smile
Как же может наименование документа совпадать с наименованием корреспондента (в широком смысле)?
И вообще что-то непонятное у Вас:
1 уровень - корерспондент 2
2 уровень - ОУ
3 уровень - партия

При чем тут документ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Vovan
Гость





СообщениеДобавлено: Вт Ноя 02, 2010 8:52 pm    Заголовок сообщения: re: Ответить с цитатой

а партия что возвращает
RW.AddColumn 10, , ,"5+Дата|1+Документ" в стандартном отчёте выводит то что мне надо...
а 3 уровень - партия .AddColumn 10 при вызове .child(j).child(i).child(l).Value непонятно что.
Вернуться к началу
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Ср Ноя 03, 2010 9:05 am    Заголовок сообщения: Ответить с цитатой

Т.е. как это "непонятно что"? ИД партии и возвращает
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Vovan
Гость





СообщениеДобавлено: Ср Ноя 03, 2010 12:33 pm    Заголовок сообщения: Ответить с цитатой

А как ID документа этой партии получить? Чтоб как для "1+Документ" выдавало?
Вернуться к началу
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Ср Ноя 03, 2010 1:11 pm    Заголовок сообщения: Ответить с цитатой

RTFM, RTFM, товарищи...
Как же у партии может быть ИД документа?
Внимательно читаем хелпу на тему AddColumn, после думаем что же такое Партия (Series) и делаем выводы.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Vovan
Гость





СообщениеДобавлено: Ср Ноя 03, 2010 2:03 pm    Заголовок сообщения: Ответить с цитатой

Пасиб за хелп...
Вернуться к началу
samarin
Гость





СообщениеДобавлено: Сб Дек 04, 2010 11:47 am    Заголовок сообщения: Ответить с цитатой

Подскажите, как объединить несколько отчетов в один с разбиением по вкладкам http://www.image2blog.com/index.php?do=get&id=3746&hash=7aa074
А потом в таком же виде(с вкладками) сохранить как xls
Вернуться к началу
Vovan
Гость





СообщениеДобавлено: Сб Дек 04, 2010 5:21 pm    Заголовок сообщения: Ответить с цитатой

Так создай листы, как в Excel'e. И на кажждый лист выводи нужную информацию
А вот с сохранением не подскажу (
Вернуться к началу
AllexL



Зарегистрирован: 10.03.2005
Сообщения: 434
Откуда: Donetsk

СообщениеДобавлено: Вс Дек 05, 2010 1:27 pm    Заголовок сообщения: Ответить с цитатой

samarin писал(а):
А потом в таком же виде(с вкладками) сохранить как xls

Нажатием кнопки - никак.
Последнее время использую визуализацию отчетов в ms Excel.
Рекомендую.
Можно очень интересные вещи писАть.
пишу по памяти:

Код:

set xl = createObject("Microsoft.Excel")
set wb = xl.ActiveWorkBook
set sh = wb.ActiveSheet 'current sheet
set newSh = wb.Sheets.Add("name") 'add new sheet to workbook
newSh.Cell(row,col).Value = "value"
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
kris



Зарегистрирован: 12.01.2006
Сообщения: 371

СообщениеДобавлено: Пн Дек 06, 2010 11:17 am    Заголовок сообщения: Ответить с цитатой

samarin писал(а):
Подскажите, как объединить несколько отчетов в один с разбиением по вкладкам http://www.image2blog.com/index.php?do=get&id=3746&hash=7aa074
А потом в таком же виде(с вкладками) сохранить как xls

Есть как минимум 2 способа, которые можно использовать в зависимости от сложности поставленной задачи:
1. Переносить все в эксель поячеечно. При необходимости повторять раскраску, форматирование и т.д. Довольно геморно (особенно, учитывая то, что форматирование в акценте и экселе не совпадает Sad )
2. Сохранять каждый шит как хтмл, потом открывать в экселе и "склеивать".
Оба способа требуют некоторого программирования, но ничего сложного в этом нет - один раз написал и пользуйся всю оставшуюся жизнь.
Все необходимое описано в хелпе по экселю, для простоты можно сначала понакликивать макросы и увидеть как это делает сам эксель, а после уже подогнать свое.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
samarin
Гость





СообщениеДобавлено: Вт Дек 14, 2010 5:15 pm    Заголовок сообщения: Ответить с цитатой

AllexL писал(а):

Последнее время использую визуализацию отчетов в ms Excel.
Рекомендую.
Можно очень интересные вещи писАть.

Интересный способ. Не могли бы Вы скинуть любой,работающий, пример для разбора.
Вернуться к началу
AllexL



Зарегистрирован: 10.03.2005
Сообщения: 434
Откуда: Donetsk

СообщениеДобавлено: Вт Дек 14, 2010 5:22 pm    Заголовок сообщения: Ответить с цитатой

samarin писал(а):
Интересный способ. Не могли бы Вы скинуть любой,работающий, пример для разбора.

Код:

       If UCase(oSheet.Name) = "SOURCE" Then
                Set sh = oSheet
                sh.Activate
                Set r = sh.Range("A8")
                sh.Range("A8:IV65535").Clear
               
                Set rs = GetDataSP(sh.Range("B5").Value, CDate(sh.Range("B2").Value), CDate(sh.Range("B3").Value))
                If rs.State = adStateOpen Then
                    'If rs.EOF Then
                        sh.Range("A8").CopyFromRecordset rs
                        Set pv = Worksheets("Report").PivotTables("СводнаяТаблица1")
                        pv.PivotTableWizard xlDatabase, "Source!R7C1:R" & (rs.RecordCount + 9) & "C" & rs.Fields.Count
           
                        pv.PivotCache.Refresh
                        Worksheets("Report").Activate
                     '      Else
                       '         MsgBox "Данные отсутствуют"
                      'End If
                    Else 'state
                        MsgBox "проблема получить данные"
                End If
                Exit For
        End If
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
samarin
Гость





СообщениеДобавлено: Вт Дек 14, 2010 8:40 pm    Заголовок сообщения: Ответить с цитатой

а где же
Код:
set xl = createObject("Microsoft.Excel")

и приведенный пример [quote]
Код:
 If UCase(oSheet.Name) = "SOURCE" Then
                Set sh = oSheet
                sh.Activate
                Set r = sh.Range("A8")
......
не работает объясните, пожалуйста, как человеку незнающему, но очень желающему разобраться.
Вернуться к началу
AllexL



Зарегистрирован: 10.03.2005
Сообщения: 434
Откуда: Donetsk

СообщениеДобавлено: Вт Дек 14, 2010 10:14 pm    Заголовок сообщения: Ответить с цитатой

samarin писал(а):
не работает объясните, пожалуйста, как человеку незнающему, но очень желающему разобраться.


1 вариант был для экспорта в MS Excel (скрипт для Акцента),
2 вариант (вышепреведеннй) - код VBA (скрипт, исполняемый в MS Excel), "затрягивающий" результаты выполнения функции GetDataSP (возвращается ADODB.Recordset) в ЛИСТ, затем на основе этих данных строится маленький кубик (сводная таблица)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
samarin
Гость





СообщениеДобавлено: Пн Дек 20, 2010 10:36 pm    Заголовок сообщения: Ответить с цитатой

Код:
set xl = createObject("Microsoft.Excel")
set wb = xl.ActiveWorkBook
set sh = wb.ActiveSheet 'current sheet
set newSh = wb.Sheets.Add("name") 'add new sheet to workbook
newSh.Cell(row,col).Value = "value"

пытаюсь подключить как .avb
в ответ
Цитата:
Невозможно создание объекта контейнером ActiveX: 'Microsoft.Excel'
Вернуться к началу
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.0 Часовой пояс: GMT + 2
На страницу Пред.  1, 2, 3, 4  След.
Страница 3 из 4

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group