Search options (Page 1 of 3)

KPADDUslugi.Edit4.Tshape := 20;

procedure Print_Button_OnClick (Sender: string; var Cancel: boolean);
var
    frxDBActs, frxDBMyFirm, frxDBCounterparty, frxDBNomenclature, frxDBActsPositions: TfrxDBDataset;
    Acts, MyFirm, Counterparty, Nomenclature, ActsPositions: TDataSet;

begin

SQLQuery('SELECT * FROM Acts WHERE Acts.id ='+ Main.TableGrid1.sqlValue , Acts);
SQLQuery('SELECT * FROM MyFirm', MyFirm);
SQLQuery('SELECT * FROM Counterparty WHERE Counterparty.id ='+ Main.TableGrid1.sqlValue, Counterparty);
SQLQuery('SELECT * FROM Nomenclature WHERE Nomenclature.id ='+ Main.TableGrid1.sqlValue, Nomenclature);
SQLQuery('SELECT * FROM ActsPositions', ActsPositions);

 // create Acts
    frxDBActs := TfrxDBDataset.Create(Acts);
    frxDBActs.UserName        := 'Acts';
    frxDBActs.CloseDataSource := True;
    frxDBActs.OpenDataSource  := True;
    frxDBActs.DataSet         := Acts;

 // create MyFirm
    frxDBMyFirm := TfrxDBDataset.Create(MyFirm);
    frxDBMyFirm.UserName        := 'MyFirm';
    frxDBMyFirm.CloseDataSource := True;
    frxDBMyFirm.OpenDataSource  := True;
    frxDBMyFirm.DataSet         := MyFirm;

 // create Counterparty
    frxDBCounterparty := TfrxDBDataset.Create(Counterparty);
    frxDBCounterparty.UserName        := 'Counterparty';
    frxDBCounterparty.CloseDataSource := True;
    frxDBCounterparty.OpenDataSource  := True;
    frxDBCounterparty.DataSet         := Counterparty;

 // create Nomenclature
    frxDBNomenclature := TfrxDBDataset.Create(Nomenclature);
    frxDBNomenclature.UserName        := 'Nomenclature';
    frxDBNomenclature.CloseDataSource := True;
    frxDBNomenclature.OpenDataSource  := True;
    frxDBNomenclature.DataSet         := Nomenclature;

 // create ActsPositions
    frxDBActsPositions := TfrxDBDataset.Create(ActsPositions);
    frxDBActsPositions.UserName        := 'ActsPositions';
    frxDBActsPositions.CloseDataSource := True;
    frxDBActsPositions.OpenDataSource  := True;
    frxDBActsPositions.DataSet         := ActsPositions;

    Main.frxReport.Clear;
    Main.frxReport.DataSets.Clear;
    Main.frxReport.DataSets.Add(frxDBActs);
    Main.frxReport.DataSets.Add(frxDBCounterparty);
    Main.frxReport.DataSets.Add(frxDBMyFirm);
    Main.frxReport.DataSets.Add(frxDBNomenclature);
    Main.frxReport.DataSets.Add(frxDBActsPositions);


    // DESIGN MODE
    Main.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'Report\rep.fr3');
    Main.frxReport.DesignReport;

    frxDBActs.Free;
    frxDBMyFirm.Free;
    frxDBCounterparty.Free;
    frxDBNomenclature.Free;
    frxDBActsPositions.Free;

end;