Выгрузка в шаблон Excel

[srg]

Ребята, подскажите пожалуйста с чего начать?
Заставили сделать выгрузку в шаблон Excel, отчет реально не по моему уровню, и у меня скоро закипит мозг и голова и я начну паниковать((

[InTacto]

Разбейте задачу на подзадачи.
После того как это сделаете, то можете задавать более конкретные вопросы, тогда Вам скорее помогут

[srg]

Спасибо, сейчас попытаюсь это сделать)


Вообщем есть Отчет, а нужно :

1) создать шаблон в который он будет выгружаться. ( в экселе нарисовал какой он должен быть )
2) создать кодеюнит, и пилить там сам шаблон, но как?!!, вот это я и не понимаю />
3) кодеюнит создал, привязал его на кнопку, которая на форме
а вот собственно и шаблон, который нужно сделать

[Constantine_imported]

Вам нужно этот шаблон где-то хранить, в каталоге доступным всем или в BLOB поле (мы используем BLOB). Потом дергаете этот файл в темповую папку пользователя (или куда вам нужно), открываете, заполняете и показываете пользователю.

[Sancho]

создайте шаблончик и сохраните его
откройте шаблончик(ИмяФайла):

IF NOT EXISTS(ИмяФайла) THEN
  ERROR('Файл с именем %1 не найден.',ИмяФайла);

IF NOT CREATE(xlApplication,TRUE) THEN
  ERROR('Excel не установлен');

xlApplication.Workbooks._Open(ИмяФайла);

[Kalex63]

Цитата:

Сообщение от Fierce

Ребята, подскажите пожалуйста с чего начать?
Заставили сделать выгрузку в шаблон Excel, отчет реально не по моему уровню, и у меня скоро закипит мозг и голова и я начну паниковать(( /> /> />

В Российской локализации НАВ2009 есть объекты, в которые можно использовать для выгрузки данных отчета в шаблон Excel:
T14919 Excel Template
F14919 Excel Templates
CU12416 Excel Management

Б качестве примера использования можно посмотреть отчет 14918 (Items Receipt Act TORG-1).

[srg]

сделал через поле блоб, добавил загрузку эксель шаблона, теперь пишу выгрузку в него.
столкнулся с проблемой.
не выгружает данные таблицы customer

как правильно обратиться к таблице, чтоб можно было найти определенную фирму ?

customer.get(????)

сделал через setrange//

[InTacto]

Цитата:

Сообщение от Fierce

сделал через поле блоб, добавил загрузку эксель шаблона, теперь пишу выгрузку в него.
столкнулся с проблемой.
не выгружает данные таблицы customer

как правильно обратиться к таблице, чтоб можно было найти определенную фирму ?

customer.get(????)

сделал через setrange//

get ничего не нащел?
может там этого не было?

[srg]

вопрос 2.
как номер телефона вывести по одной цифре?

[InTacto]

Цитата:

Сообщение от Fierce

вопрос 2.
как номер телефона вывести по одной цифре?

есть операторы работы с текстом: copystr(то что нужно в вашем случае), strlen и т.д. - кнопка F5/SYSTEM/String

[InTacto]

и текстовыми переменными можно работать как с массивом

[srg]

ооооо))), точно ). спасибо !)
сейчас попробую)

[srg]

Проблема №3

)))

если какой то рак ошибся, который заполнял данные, нужно сделать проверку, и выводить эти данные начиная справа...
если есть 12 итемов на шаблоне, но у нас имеется только 9 цифр, нам нужно заполнять с права это все...
вообщем, если такое же количество как на фото, то два белых пробела должно быть слева
каким образом мне построить этот масив?(

[InTacto]

Какие-то законы природы или религиозные предрассудки мешают обходить массив справа налево?

[srg]

Цитата:

Сообщение от InTacto

Какие-то законы природы или религиозные предрассудки мешают обходить массив справа налево? />

Расскажите тогда как это возможно реализовать без массива, буду очень благодарен

[Kadawrik]

Цитата:

Сообщение от Fierce

Расскажите тогда как это возможно реализовать без массива, буду очень благодарен

FOR i := STRLEN(Вашастрока) DOWNTO 1 DO
   очереднойсимвол := COPYSTR(вашастрока, i, 1);

или (если через массив):

FOR i := STRLEN(Вашастрока) DOWNTO 1 DO
   очереднойсимвол := вашастрока[i];

[Yoil]

STRLEN(текстовая переменная) возвратит длину строки
если длина окажется меньше 12, прибавьте соответствующее кол-во пробелов спереди
что-то типа

IF STRLEN(текст) < 12 THEN
FOR i := 1 TO (12 - STRLEN(текст)) DO
текст := ' ' + текст;

[InTacto]

Для строчного поля, то

For i:=strlen(полеTxt) downto 1 do
  begin
    excel(строкаInt,i + смещение от правого краяInt) = copystr(полеTxt,i,1);
  end

[srg]

Не совсем понял, если честно, либо меня не совсем поняли.
Задача стоит в том, чтоб сделать заполнение с конца в любом случае, будь то меньше символов чем ячеек, и будь то равное количество (больше быть не может)

к примеру.
имеем таблицу "Петя" и поле "Номер", нужно сделать проверку на этом, почему то не вижу решения кроме массива

[InTacto]

Думается мне что вариант Kadawrik и мой почти покрывают вашу задачу.
Нужно еще прикрутить верхнюю границу и все заработает