ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazreport + TSQLQuery
3 сообщений из 3, страница 1 из 1
Lazreport + TSQLQuery
    #40055681
hlopotun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hlopotun
Гость
Всем доброго вечера,

перед экспортом отчёта перевыбираю данные для отчёта через 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:20
| Ответить | Цитировать | Написать  
Lazreport + TSQLQuery
    #40055686
hlopotun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hlopotun
Гость
sorry,
отбой. Там у чуваков таймер висел который всё и творил
...
Рейтинг: 0 / 0
21.03.2021, 22:45
| Ответить | Цитировать | Написать  
Lazreport + TSQLQuery
    #40055699
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
hlopotun,

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


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