Параметры
Уважаемые мастера, подмогните
Необходимо, чтобы в мемо33 попадало значение выборки, а параметры брались из мемо34. Пишу так:
procedure Memo33OnBeforePrint(Sender: TfrxComponent);
begin
ADOQuery3.Close;
ADOQuery3.Params[3].value:=Memo34.Text;
ADOQuery3.Open;
Memo33.Text:=IntToStr(adoquery3.FieldByName('Expr1').AsInteger);
end;
... не работает, компонент пуст или выводит с параметром, заданным по умолчанию
Необходимо, чтобы в мемо33 попадало значение выборки, а параметры брались из мемо34. Пишу так:
procedure Memo33OnBeforePrint(Sender: TfrxComponent);
begin
ADOQuery3.Close;
ADOQuery3.Params[3].value:=Memo34.Text;
ADOQuery3.Open;
Memo33.Text:=IntToStr(adoquery3.FieldByName('Expr1').AsInteger);
end;
... не работает, компонент пуст или выводит с параметром, заданным по умолчанию
Комментарии
Может какой то Prepared должен быть?
Memo34.Text что содержит?
Расположенны 2 Query.
В первом из них параметры беруться из визуальных компонентов:
SELECT SUM(dbo.DokList.lSale) AS Summa, SUM(dbo.DokList.lWorkDay) AS WorkDay, SUM(dbo.DokList.Empty1) AS Ocki, SUM(dbo.DokList.Empty2) AS Vesna,
dbo.DokList.lKonsID, dbo.Personnel.pFIO, dbo.Shop.sName, dbo.AtributesValues.avLongName, dbo.AtributesValues.avShortName
FROM dbo.AtributesValues RIGHT OUTER JOIN
dbo.DokList ON dbo.AtributesValues.avID = dbo.DokList.lKategoryID LEFT OUTER JOIN
dbo.Shop ON dbo.DokList.lShopID = dbo.Shop.sID LEFT OUTER JOIN
dbo.DokHead ON dbo.DokList.iDokHeadID = dbo.DokHead.hID LEFT OUTER JOIN
dbo.Personnel ON dbo.DokList.lKonsID = dbo.Personnel.pID
WHERE (dbo.DokHead.hBDate >= :BDate) AND (dbo.DokHead.hBDate <= :EDate) AND (dbo.DokHead.hMarkaID = :Marka)
GROUP BY dbo.DokList.lKonsID, dbo.Personnel.pFIO, dbo.Shop.sName, dbo.AtributesValues.avLongName, dbo.AtributesValues.avShortName
ORDER BY dbo.AtributesValues.avShortName, dbo.Shop.sName
Во втором:
SELECT SUM(dbo.DokList.lSale) AS Expr1
FROM dbo.DokHead RIGHT OUTER JOIN
dbo.DokList ON dbo.DokHead.hID = dbo.DokList.iDokHeadID
WHERE (dbo.DokHead.hBDate >= DATEADD(MONTH, - 1, :BDate)) AND (dbo.DokHead.hBDate <= DATEADD(MONTH, - 1, :EDate)) AND
(dbo.DokHead.hMarkaID = :Marka) AND (dbo.DokList.lKonsID = :KonsID)
Memo34.Text содержит KonsID. 3 параметра прописываю из тех же компонентов, а :KonsID храниться в Memo34.
как прочитать значение компонента, если Visible:=False (У меня Memo34.Text). Честно говоря, где то видел, но не помню где, не могу найти в помощи.
У меня в FR 3.19.13 Memo.Text доступно при Memo.Visible=False
Чтобы скрыть Мемо, можно установить его высоту равной 0, или сделать цвет шрифта такой же, как и цвет фона
Где то у него есть свойство, которое позволяет обращаться к Мемо даже когда он не видим. Можно (банально) поставить ширину=0, но тогда при экспорте в Ексель просвечиваетсся лишнее поле- тож не красиво