generalledgerreport.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount6.AsCurrency;
       end;
    7: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount7.AsCurrency;
       end;
    8: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency
                                                                                  + qryGLAccntAmount7.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount8.AsCurrency;
       end;
    9: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency
                                                                                  + qryGLAccntAmount7.AsCurrency
                                                                                  + qryGLAccntAmount8.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount9.AsCurrency;
       end;
   10: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency
                                                                                  + qryGLAccntAmount7.AsCurrency
                                                                                  + qryGLAccntAmount8.AsCurrency
                                                                                  + qryGLAccntAmount9.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount10.AsCurrency;
       end;
   11: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency
                                                                                  + qryGLAccntAmount7.AsCurrency
                                                                                  + qryGLAccntAmount8.AsCurrency
                                                                                  + qryGLAccntAmount9.AsCurrency
                                                                                  + qryGLAccntAmount10.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount11.AsCurrency;
       end;
   12: begin
         qryGLAccntPeriodOpeningBal.AsCurrency := qryGLAccntOpeningBal.AsCurrency + qryGLAccntAmount1.AsCurrency
                                                                                  + qryGLAccntAmount2.AsCurrency
                                                                                  + qryGLAccntAmount3.AsCurrency
                                                                                  + qryGLAccntAmount4.AsCurrency
                                                                                  + qryGLAccntAmount5.AsCurrency
                                                                                  + qryGLAccntAmount6.AsCurrency
                                                                                  + qryGLAccntAmount7.AsCurrency
                                                                                  + qryGLAccntAmount8.AsCurrency
                                                                                  + qryGLAccntAmount9.AsCurrency
                                                                                  + qryGLAccntAmount10.AsCurrency
                                                                                  + qryGLAccntAmount11.AsCurrency;
         qryGLAccntPeriodClosingBal.AsCurrency := qryGLAccntPeriodOpeningBal.AsCurrency + qryGLAccntAmount12.AsCurrency;
       end;
  end;
end;

procedure TrptGeneralLedger.FormCreate(Sender: TObject);
begin
  qryGLAccnt.DatabaseName := strDatabaseName;
  tblGLHist.DatabaseName := strDatabaseName;
  qryGLAccnt.Params[0].AsInteger := frmGLReports.GLYear;
  qryGLAccnt.Active := true;
  tblGLHist.Active := true;

  if frmGLReports.GLPeriod <10 then lblPeriod.caption := 'Period: 0' + IntToStr(frmGLReports.GLPeriod) + '/' + IntToStr(frmGLReports.GLYear)
  else lblPeriod.caption := 'Period: ' + IntToStr(frmGLReports.GLPeriod) + '/' + IntToStr(frmGLReports.GLYear);

  if frmGLReports.GLPeriod <10 then lblPeriodTotals.caption := 'Period 0' + IntToStr(frmGLReports.GLPeriod) + ' Totals:'
  else lblPeriodTotals.caption := 'Period ' + IntToStr(frmGLReports.GLPeriod) + ' Totals:';

  tblGLHist.MasterSource := nil;   //Prevent report crash (Error: At beginning of table) that disables subsequent QuickReports.
  if tblGLHist.RecordCount > 0 then tblGLHist.MasterSource := dsGLAccnt;
end;

procedure TrptGeneralLedger.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TrptGeneralLedger.tblGLHistCalcFields(DataSet: TDataSet);
var
  LookupResults: variant;
begin
  tblGLHistSourceType.value := tblGLHistSource.value + ' ' + tblGLHistTransType.value;
  if tblGLHistAmount.AsCurrency >0 then begin
    tblGLHistDebit.AsCurrency := tblGLHistAmount.AsCurrency;
    tblGLHistCredit.AsVariant := null;
  end else begin
    tblGLHistDebit.AsVariant := null;
    tblGLHistCredit.AsCurrency := -tblGLHistAmount.AsCurrency;
  end;

  if tblGLHistSource.value = 'AP' then begin
    LookupResults := dmLookUps.tblVendor.Lookup('VendorID', tblGLHistVendorID.value, 'VendorName;VendorNo');
    if LookupResults[0] <> null then tblGLHistTransDescriptionPlus.value := tblGLHistTransDescription.value + ' for ' + LookupResults[0] + ' (' + LookupResults[1] + ')'
    else tblGLHistTransDescriptionPlus.value := tblGLHistTransDescription.value;
  end else if tblGLHistSource.value = 'AR' then begin
    LookupResults := dmLookUps.tblCustomer.Lookup('CustomerID', tblGLHistCustomerID.value, 'CustomerName;CustomerNo');
    if LookupResults[0] <> null then tblGLHistTransDescriptionPlus.value := tblGLHistTransDescription.value + ' for ' + LookupResults[0] + ' (' + LookupResults[1] + ')'
    else tblGLHistTransDescriptionPlus.value := tblGLHistTransDescription.value;
  end else tblGLHistTransDescriptionPlus.value := tblGLHistTransDescription.value;
end;

procedure TrptGeneralLedger.tblGLHistFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := true;
  if ((tblGLHistGLPeriod.value <> frmGLReports.GLPeriod) or (tblGLHistGLYear.value <> frmGLReports.GLYear)) then Accept := false;
end;

procedure TrptGeneralLedger.HistoryFooterBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if tblGLHist.RecordCount = 0 then PrintBand := false;

  lblTotGDebit.caption := FloatToStrF(totGDebit.value.dblResult,ffCurrency,18,2);
  lblTotGCredit.caption := FloatToStrF(totGCredit.value.dblResult,ffCurrency,18,2);
  lblTotGAmount.caption := FloatToStrF(totGAmount.value.dblResult,ffCurrency,18,2);
end;

procedure TrptGeneralLedger.QuickReportPreview(Sender: TObject);
begin
  frmPreview := TfrmPreview.Create(Application);
  frmPreview.QRPreview1.QRPrinter := TQRPrinter(sender);
  frmPreview.QuickReport := QuickReport;   //Set dummy quickreport so as to be able to apply selected printer and from/to page.
  frmPreview.show;
end;

end.