Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazreport + TSQLQuery / 3 сообщений из 3, страница 1 из 1
21.03.2021, 22:20
    #40055681
hlopotun
hlopotun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lazreport + TSQLQuery
Всем доброго вечера,

перед экспортом отчёта перевыбираю данные для отчёта через TSQLQuery.
Далее запускаю экспорт отчёта.
Такое ощущение что экспорт происходит раньше чем данные обновились т.к. данные в отчёте не обновлены.
Если повторяю операцию, данные уже получаю обновлёнными.
Свойства TSQLQuery:
 

Код: pascal
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:
 

Код: pascal
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




и собственно как делаю экспорт:

 
Код: pascal
1.
2.
       sTmpFileName := GetTmpFileName('',ExportFilePrefix,'pdf');
        oDM.frReport.ExportTo(TlrCairoPDFExportFilter, sTmpFileName);



что посоветуете? как правильно дождаться данных?
Вся проблема в том что данные надо перевыбирать непосредственно перед созданим отчёта (меняется язык в данных). При последующем отображении данные надо вернуть на другом языке.

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 22:45
    #40055686
hlopotun
hlopotun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lazreport + TSQLQuery
sorry,
отбой. Там у чуваков таймер висел который всё и творил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 00:01
    #40055699
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lazreport + TSQLQuery
hlopotun,

Ламеры. Random() надо было вставлять. И проверять его на диапазоны - было бы веселее отлаживать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazreport + TSQLQuery / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]