Всем доброго вечера,
перед экспортом отчёта перевыбираю данные для отчёта через TSQLQuery.
Далее запускаю экспорт отчёта.
Такое ощущение что экспорт происходит раньше чем данные обновились т.к. данные в отчёте не обновлены.
Если повторяю операцию, данные уже получаю обновлёнными.
Свойства TSQLQuery:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
object Q_REL: TSQLQuery
PacketRecords = -1
FieldDefs = <>
AfterScroll = Q_RELAfterScroll
Database = IBConnection
Transaction = SQLUpdTransaction
SQL.Strings = (
'select'
' PRC_ID,'
' PRC_TYPE_ID,'
' TYPE_NAME,'
' SAISON,'
' MANUFACTUR_ID,'
' MANUFACTUR,'
' CUSTOMER_ID,'
' CUSTOMER,'
' PHD_ID,'
' PHD_TYPE_ID,'
' MANDANT_ID,'
' MANDANT,'
' PLACE_ID,'
' PLACE_NAME,'
' NR,'
' DT,'
' CL_NR,'
' MORE,'
' VAL_TOTAL,'
' STATUS_TYPE_ID,'
' STATUS_NAME,'
' DELIVERER_ID,'
' DELIVERER,'
' RELEASE_ID,'
' DELIVERY_TYPE_ID,'
' DELIVERY_TYPE,'
' CUSTOMS_PAPERS,'
' PACKING_WITH_IRON,'
' ADV_MAT_DESIRED,'
' ADV_NUMBERS,'
' CARTON_MARKING,'
' VAT,'
' ASSORTIMENT,'
' ATTENTION,'
' PARENT_PRC_ID,'
' PARENT_PHD_ID,'
' RELATIONS_1_TO_1,'
' DT_CALL,'
' DT_RELEASE,'
' INVOIC,'
' PACKUP'
'from SEL_RELEASE ('
' :LANG,'
' :PARENT_PRC_ID,'
' :PARENT_PHD_ID,'
' :PRC_TYPE_ID,'
' :PHD_TYPE_ID,'
' :STATUS_TYPE_ID)'
)
InsertSQL.Strings = (
'execute procedure UPD_RELEASE'
' :PRC_ID,'
' :SAISON,'
' :MANUFACTUR_ID,'
' :CUSTOMER_ID,'
' :MANDANT_ID,'
' :PLACE_ID,'
' :PRC_TYPE_ID,'
' :PHD_ID,'
' :PHD_TYPE_ID,'
' :NR,'
' :DT,'
' null,'
' null,'
' null,'
' null,'
' null,'
' null,'
' :CL_NR,'
' :MORE,'
' :PARENT_PRC_ID,'
' :PARENT_PHD_ID,'
' :RELATIONS_1_TO_1,'
' null,'
' null,'
' null,'
' null,'
' null,'
' null,'
' :VAL_TOTAL,'
' :STATUS_TYPE_ID,'
' :DELIVERER_ID,'
' :RELEASE_ID,'
' :DELIVERY_TYPE_ID,'
' :CUSTOMS_PAPERS,'
' :PACKING_WITH_IRON,'
' :ADV_MAT_DESIRED,'
' :ADV_NUMBERS,'
' :CARTON_MARKING,'
' :VAT,'
' :ASSORTIMENT,'
' :ATTENTION,'
' :DT_CALL,'
' :DT_RELEASE,'
' :INVOIC,'
' :PACKUP;'
)
UpdateSQL.Strings = (
'execute procedure UPD_RELEASE'
' :PRC_ID,'
' :SAISON,'
' :MANUFACTUR_ID,'
' :CUSTOMER_ID,'
' :MANDANT_ID,'
' :PLACE_ID,'
' :PRC_TYPE_ID,'
' :PHD_ID,'
' :PHD_TYPE_ID,'
' :NR,'
' :DT,'
' null,'
' null,'
' null,'
' null,'
' null,'
' null,'
' :CL_NR,'
' :MORE,'
' :PARENT_PRC_ID,'
' :PARENT_PHD_ID,'
' :RELATIONS_1_TO_1,'
' null,'
' null,'
' null,'
' null,'
' null,'
' null,'
' :VAL_TOTAL,'
' :STATUS_TYPE_ID,'
' :DELIVERER_ID,'
' :RELEASE_ID,'
' :DELIVERY_TYPE_ID,'
' :CUSTOMS_PAPERS,'
' :PACKING_WITH_IRON,'
' :ADV_MAT_DESIRED,'
' :ADV_NUMBERS,'
' :CARTON_MARKING,'
' :VAT,'
' :ASSORTIMENT,'
' :ATTENTION,'
' :DT_CALL,'
' :DT_RELEASE,'
' :INVOIC,'
' :PACKUP;'
''
)
DeleteSQL.Strings = (
'DELETE FROM PROCESSES WHERE PRC_ID = :PRC_ID'
)
RefreshSQL.Strings = (
'select'
' PRC_ID,'
' PRC_TYPE_ID,'
' TYPE_NAME,'
' SAISON,'
' MANUFACTUR_ID,'
' MANUFACTUR,'
' CUSTOMER_ID,'
' CUSTOMER,'
' PHD_ID,'
' PHD_TYPE_ID,'
' MANDANT_ID,'
' MANDANT,'
' PLACE_ID,'
' PLACE_NAME,'
' NR,'
' DT,'
' CL_NR,'
' MORE,'
' VAL_TOTAL,'
' STATUS_TYPE_ID,'
' STATUS_NAME,'
' DELIVERER_ID,'
' DELIVERER,'
' RELEASE_ID,'
' DELIVERY_TYPE_ID,'
' DELIVERY_TYPE,'
' CUSTOMS_PAPERS,'
' PACKING_WITH_IRON,'
' ADV_MAT_DESIRED,'
' ADV_NUMBERS,'
' CARTON_MARKING,'
' VAT,'
' ASSORTIMENT,'
' ATTENTION,'
' PARENT_PRC_ID,'
' PARENT_PHD_ID,'
' RELATIONS_1_TO_1,'
' DT_CALL,'
' DT_RELEASE,'
' INVOIC,'
' PACKUP'
'from SEL_RELEASE ('
' :LANG,'
' :PARENT_PRC_ID,'
' :PARENT_PHD_ID,'
' :PRC_TYPE_ID,'
' :PHD_TYPE_ID,'
' :STATUS_TYPE_ID)'
'WHERE PHD_ID = :PHD_ID'
''
''
)
Params = <
item
DataType = ftUnknown
Name = 'LANG'
ParamType = ptInput
end
item
DataType = ftUnknown
Name = 'PARENT_PRC_ID'
ParamType = ptInput
end
item
DataType = ftUnknown
Name = 'PARENT_PHD_ID'
ParamType = ptInput
end
item
DataType = ftUnknown
Name = 'PRC_TYPE_ID'
ParamType = ptInput
end
item
DataType = ftUnknown
Name = 'PHD_TYPE_ID'
ParamType = ptInput
end
item
DataType = ftUnknown
Name = 'STATUS_TYPE_ID'
ParamType = ptInput
end>
Left = 704
Top = 448
end
Свойства Lazreport:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
object frReport: TfrReport
InitialZoom = pzDefault
ModalPreview = False
Options = [roSaveAndRestoreBookmarks]
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
OnGetValue = frReportGetValue
OnExportFilterSetup = frReportExportFilterSetup
Left = 656
Top = 24
end
object lrCairoExport: TlrCairoExport
Left = 792
Top = 80
end
и собственно как делаю экспорт:
1.
2.
sTmpFileName := GetTmpFileName('',ExportFilePrefix,'pdf');
oDM.frReport.ExportTo(TlrCairoPDFExportFilter, sTmpFileName);
что посоветуете? как правильно дождаться данных?
Вся проблема в том что данные надо перевыбирать непосредственно перед созданим отчёта (меняется язык в данных). При последующем отображении данные надо вернуть на другом языке.
Спасибо |
