CftClub.ru

[Псевдоним123]

добрый день.
запрос не выводит данные в excel
в девелопере запрос работает
продебажил все данные - все норм
открывается пустой файл шаблона без заполнения полей.....


[code]
EXCEL.Open_Sheet(1);
iRow := 6;
for
(
SELECT
A1_1(
A1_1%Id : cc_ID
, A1_1.[DOCUMENT_DATE] : cc_DOCUMENT_DATE
, A1_1.[DATE_DOC] : cc_DATE_DOC
, A1_1.[DOCUMENT_NUM] : cc_DOCUMENT_NUM
, decode(A1_1.[SUM], null, A1_1.[SUM_PO], 0, A1_1.[SUM_PO], A1_1.[SUM]) : cc_summa
, A1_1.[SUM_NT] : cc_summa_ecvivalent
, decode(A1_1.[SUM], null, A56_1.[CUR_SHORT], 0, A56_1.[CUR_SHORT], A7_1.[CUR_SHORT]) : cc_valyuta
, A1_1.[NUM_DT] : cc_schet_debet
, A1_1.[NUM_KT] : cc_schet_credit
, A1_1.[DATE_PROV] : cc_date_provodki
, A2_1.[NAME] : cc_create_fio
, A20_1.[NAME] : cc_provedeno_fio
, A1_1.[FILIAL] : cc_filial
, A44_1.[code] : cc_depart_kode
, A1_1.[DEPART] : cc_depart_REF
)
in [MAIN_DOCUM],
([DOCUMENT] all : A1_2),
([DEPART] all : A44_1),
([USER] all : A2_1),
([FT_MONEY] all : A56_1),
([FT_MONEY] all : A7_1),
([USER] all : A20_1),
([STATES] all : A1_1_S) all
WHERE A1_1%ID = A1_2%ID
AND A1_1.[DEPART] = A44_1%ID(TRUE)
AND A1_1.[DOCUMENT_USER] = A2_1%ID(TRUE)
AND A1_1.[PROV_USER] = A20_1%ID(TRUE)
AND A1_1.[VALUTA_PO] = A56_1%ID(TRUE)
AND A1_1.[VALUTA] = A7_1%ID(TRUE)
AND A1_1%STATE = A1_1_S%ID(TRUE)
AND A1_1%CLASS = A1_1_S%CLASS(TRUE)
and A1_1.[DOCUMENT_DATE] = P_DATE
)
loop

::[RUNTIME].[EXCEL].put(iRow, 1, iRow);
::[RUNTIME].[EXCEL].put(iRow, 2, A1_1.[cc_DATE_DOC]);
::[RUNTIME].[EXCEL].put(iRow, 3, A1_1.[cc_filial]);
::[RUNTIME].[EXCEL].put(iRow, 4, A1_1.[cc_create_fio]);
::[RUNTIME].[EXCEL].put(iRow, 5, A1_1.[cc_DOCUMENT_DATE]);
::[RUNTIME].[EXCEL].put(iRow, 6, A1_1.[cc_provedeno_fio]);
::[RUNTIME].[EXCEL].put(iRow, 7, A1_1.[cc_date_provodki]);
::[RUNTIME].[EXCEL].put(iRow, 8, A1_1.[cc_DOCUMENT_NUM]);
::[RUNTIME].[EXCEL].put(iRow, 9, A1_1.[cc_summa]);
::[RUNTIME].[EXCEL].put(iRow,10, A1_1.[cc_valyuta]);
::[RUNTIME].[EXCEL].put(iRow,11, A1_1.[cc_schet_debet]);
::[RUNTIME].[EXCEL].put(iRow,12, A1_1.[cc_schet_credit]);

iRow := iRow + 1;
end loop;
::[RUNTIME].[EXCEL].Borders(6,1,iRow-1,11,'HVLBTR',2)
[/code]

[Blackmore64]

[Псевдоним123]

после внесения изменения - не формирует данные
шаблон открывается, но данных нет...

[Псевдоним123]

нашел причину, спасибо.

[Volod]

Конечно, селект выдрать из представления (или откуда там?) проще, но для того и PL/PLUS придумали, чтобы писать коротко и понятно.

[Эмиралька]

[vtar]