在ReportBuilder上生成QRCode,具有多行数据
-
26-12-2019 - |
题
所以这就是发生的事情
Im使用2ddbbarcode在reportBuilder(数字隐喻)上生成QRCode,用于在报告中编码所有ITENS(产品),每行一个项目。 但它只编码第一行数据。 2ddbbarcode位于报告的标题带上。
如何在2dbdbarcode中有多行数据?
我已经在 http://www.digital-metaphors.com/pdf/rbuilder.pdf 但不能从那里得到任何东西
解决方案
我实际上找到了一种解决这个问题的方法。而不是创建报表流水线,以直接从数据库中获取数据,而不是在2dbarcode中从数据库中获取数据,我在打开报告之前传递数据。代码现在是:
with DataModule2.Sql_IdQtd1 do
begin
Close;
SQL.Clear;
Sql.Add('select concat("when ",id_produto," then ",quant) from mv_vendas_movimento');
Sql.Add('where controle=:NumPed');
ParamByName('NumPed').Value := NumPed;
ExecSQL;
Open;
First;
-- here it goes thru each row of data and store it to 2dbarcode.data, one row by line
DataModule2.p2dbrcd1.Data := 'UPDATE cad_produtos SET estoque = estoque + CASE id';
while (not Eof) do begin
DataModule2.p2dbrcd1.Data := DataModule2.p2dbrcd1.Data +sLineBreak+ DataModule2.Sql_IdQtd1concatwhenid_produtothenquant.Text;
Next;
end;
DataModule2.p2dbrcd1.Data := DataModule2.p2dbrcd1.Data +sLineBreak+ 'ELSE estoque END'
end;
. 不隶属于 StackOverflow