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

[srg]

Цитата:

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

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

не выходит у меня реализовать, не понимаю как оно должно отрабатывать

[InTacto]

Цитата:

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

не выходит у меня реализовать, не понимаю как оно должно отрабатывать />

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

Помню такие задачи решали на информатике в 8 классе.

[srg]

такой вот вопрос


TaxBillHeader.RESET;
TaxBillHeader.SETRANGE(Type,Type);
TaxBillHeader.SETRANGE("No.",DocumentNo);
IF TaxBillHeader.FINDFIRST THEN;

CASE TaxBillHeader.Type OF
TaxBillHeader.Type::Responsibility:
BEGIN
Customer.GET(TaxBillHeader."Customer No.");
CustomerAgreement.GET(TaxBillHeader."Customer No.",TaxBillHeader."Agreement No.");
END;
TaxBillHeader.Type::Purchase:
Vendor.GET(TaxBillHeader."Vendor No.");
??? критует эта часть кода, почему?) //VendorAgreement.GET(TaxBillHeader."Vendor No.",TaxBillHeader."Agreement No.");
END;

[Constantine_imported]

Какой ключ у таблицы VendorAgreement? Вы пытаетесь загетиться по двум полям. Если речь идет о стандартной таблице Agreement, то там первичный ключ Code. Вам скорее всего нужно гетиться только по полю TaxBillHeader."Agreement No.". Ну и текст ошибки в студию, чтобы не гадать.

[srg]

Цитата:

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

Какой ключ у таблицы VendorAgreement? Вы пытаетесь загетиться по двум полям. Если речь идет о стандартной таблице Agreement, то там первичный ключ Code. Вам скорее всего нужно гетиться только по полю TaxBillHeader."Agreement No.". Ну и текст ошибки в студию, чтобы не гадать. />

Преобразование типов невозможно, так как один из операторов содержит недопустимый тип

[Eugeny_F]

Непонятно, есть ли какая-то строка после
Vendor.GET(TaxBillHeader."Vendor No.");

или сразу идет END;

Если есть, то не мешало бы после TaxBillHeader.Type::Purchase : сделать BEGIN и в конце END.

[srg]

Цитата:

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

Написал ерунду. Прошу прощения.

VendorAgreement.GET(TaxBillHeader."Vendor No.",TaxBillHeader."Agreement No.");
без этой строки работает, гет в вендор делает..
но не в вендорагримент

[Eugeny_F]

Тогда дело в конструкции BEGIN END.

[srg]

Цитата:

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

Тогда дело в конструкции BEGIN END.

вы были правы

[srg]

По поводу заполнения, вот как реализовал..
(может кому-то нужно будет)


n:=10; //(количество ячеек на шаблоне)
l:=STRLEN(CompanyInfo."Phone No."); // получаем длину номера (количество символов)
rr:=17; //столбец по координатам х
SymbNum:=l; //по какой символ заполнять
FOR i:=1 TO n DO
BEGIN
IF i>n-l THEN
BEGIN
ExcelMgt.FillCell(FORMAT(ColInInteger(rr))+'25',FORMAT(CompanyInfo."Phone No."[SymbNum]));
rr-=1; //счетчик для заполнения
SymbNum-=1; //доп счетчик для заполнения с конца
END;
END;

[srg]

Появился вопрос еще один, как совместить вместе при выгрузке 3 поля, к примеру Индекс,Город и Адрес дома?

[Yoil]

ExcelMgt.FillCell(FORMAT(ColInInteger(rr))+'25',FORMAT(<Индекс> + <Город> + <Адрес дома>); ?

[srg]

Цитата:

Сообщение от Дуд

ExcelMgt.FillCell(FORMAT(ColInInteger(rr))+'25',FORMAT(<Индекс> + <Город> + <Адрес дома>); ?

спасибо, но сделал немного не так)

[srg]

Ребята, опять вопрос
есть форма.
к примеру такого типа

[srg]

Уже разобрался сам, очень сложно полсе джавы работать с синтексисом этим(

[srg]

Еще вот вопрос, теперь нужно подключить строки
вот они -

каким образом правильно сделать сетренж ?

[InTacto]

если это субформа, то нужно в ней посмотреть какие фильтры стоят в св-вах или в опенформ.

[srg]

спасибо.

[srg]

Ребята опять вопрос, по поводу выгрузки в Шаблон ексель, нужно сделать чтоб сумма выводилась в формате "сумма,копейки" -" 123.00коп"

формат ячейки задал числовой, но если на строках сумма 1234, то ее выводит в ячейку екселя именно 1234, а не 1234,00
надеюсь понятно объяснил ...

[Yoil]

начните запись макроса в Экселе
смените формат какой-нибудь ячейки на "Денежный"
остановите запись макроса
посмотрите внутрь макроса
там будет написано что-то вроде
Selection.NumberFormat = "#,##0.00$"

Если выгружаете в Эксель через Excel Buffer, то в буффере есть поле "Number Format", пишите туда этот самый #,##0.00$