udayaccbook.pas

天涯進銷存系統

unit uDayAccBook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, FR_Class, FR_View, LBCtrls, jpeg, LBMorphVCLBase, LBMorphButton;

type
  TfrmDayAccBook = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Shape4: TShape;
    DayLabel: TLabel;
    Panel16: TPanel;
    Shape3: TShape;
    Label3: TLabel;
    Shape5: TShape;
    Label5: TLabel;
    Shape6: TShape;
    Label8: TLabel;
    Shape7: TShape;
    Label11: TLabel;
    Panel6: TPanel;
    Panel7: TPanel;
    Label18: TLabel;
    Label21: TLabel;
    Shape8: TShape;
    Shape9: TShape;
    Label6: TLabel;
    Sum2: TLabel;
    Label7: TLabel;
    Sum4: TLabel;
    Label17: TLabel;
    Label1: TLabel;
    Sum1: TLabel;
    Label4: TLabel;
    Sum3: TLabel;
    Label22: TLabel;
    Shape10: TShape;
    Label9: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Sum5: TLabel;
    Sum7: TLabel;
    Sum9: TLabel;
    Label19: TLabel;
    Shape11: TShape;
    Label12: TLabel;
    Sum6: TLabel;
    Label13: TLabel;
    Sum8: TLabel;
    Label15: TLabel;
    Sum10: TLabel;
    Label20: TLabel;
    Panel2: TPanel;
    OpenView: TPanel;
    Image2: TImage;
    Sum11: TLabel;
    Sum12: TLabel;
    Label2: TLabel;
    Label16: TLabel;
    Sum21: TLabel;
    Label25: TLabel;
    Sum22: TLabel;
    Sum23: TLabel;
    Sum24: TLabel;
    Sum25: TLabel;
    Sum26: TLabel;
    Report: TfrReport;
    Image1: TImage;
    WindowCaption: TLabel;
    SysCloseButton: TLBMorphButton;
    PrintButton: TLBButton;
    LBSpeecButton2: TLBSpeecButton;
    EnterButton: TLBButton;
    Panel1: TPanel;
    Panel3: TPanel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LBSpeecButton2Click(Sender: TObject);
    procedure PrintButtonClick(Sender: TObject);
    procedure EnterButtonClick(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    procedure GetSum;
  public
    { Public declarations }
  end;

var
  frmDayAccBook: TfrmDayAccBook;

implementation

uses  uPublicvar, Tools, uDataMo, uPrintView;

{$R *.dfm}

procedure TfrmDayAccBook.GetSum;
var
  S1, S2, Sm1, Sm2, Sm3, Sm4: Double;
  s: string;
begin
  S1:=0; S2:=0;
  //查询订货金额
  with dmData.sdsPublic do
  begin
    OpenData('select Sum(TOTALSUM) as TOTALSUM, ORDERTYPE  '+
             'From OrderBillHand where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='''+'1'''+
             ' Group by OrderType',
             dmData.sdsPublic);
    Sum1.Caption:='￥0.00';
    Sum2.Caption:='￥0.00';
    while not Eof do
    begin
      if FieldByName('OrderType').AsString='1' then
      begin
        S1:=S1+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum1.Caption:=Addradixpoint(s, 2);
      end
      else
      if FieldByName('OrderType').AsString='2' then
      begin
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum2.Caption:=Addradixpoint(s, 2);
      end;
      Next;
    end;
    //采购金额
    OpenData('select Sum(TOTALSUM) as TOTALSUM  '+
             'From PARTSINPUTHAND where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='''+'1'''+
             'and INPUTTYPE='''+'1''' ,dmData.sdsPublic);
    S1:=S1+Fieldbyname('TOTALSUM').asFloat;
    s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
    Sum3.Caption:=Addradixpoint(s, 2);
    //内部调入金额
    OpenData('select Sum(TOTALSUM) as TOTALSUM  '+
             'From PARTSINPUTHAND where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='''+'1'''+
             'and INPUTTYPE='''+'4''' ,dmData.sdsPublic);
    S1:=S1+Fieldbyname('TOTALSUM').asFloat;
    s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
    Label24.Caption:=Addradixpoint(s, 2);
    //销售金额
    OpenData('select Sum(TOTALSUM) as TOTALSUM  '+
             'From PARTSOUTPUTHAND where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='''+'1'''+
             'and OutPutType='''+'1''', dmData.sdsPublic);
    S2:=S2+Fieldbyname('TOTALSUM').asFloat;
    s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
    Sum4.Caption:=Addradixpoint(s, 2);
    //内部调出金额
    OpenData('select Sum(TOTALSUM) as TOTALSUM  '+
             'From PARTSOUTPUTHAND where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='''+'1'''+
             'and OutPutType='''+'2''', dmData.sdsPublic);
    S2:=S2+Fieldbyname('TOTALSUM').asFloat;
    s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
    Label27.Caption:=Addradixpoint(s, 2);
    //退货金额
    OpenData('select Sum(TOTALSUM) as TOTALSUM, REIMBURSETYPE  '+
             'From REIMBURSEBILLHAND where BILLDATE='
             +#39+DateToStr(SDate)+#39+'and ISAUDITING='+#39+'1'+#39+' Group by REIMBURSETYPE',
             dmData.sdsPublic);
    Sum11.Caption:='￥0.00';
    Sum12.Caption:='￥0.00';
    while not Eof do
    begin
      if FieldByName('REIMBURSETYPE').AsString='1' then
      begin
        S1:=S1-Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum11.Caption:=Addradixpoint(s, 2);
      end
      else
      if FieldByName('REIMBURSETYPE').AsString='2' then
      begin
        S2:=S2-Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum12.Caption:=Addradixpoint(s, 2);
      end;
      Next;
    end;
    s:=FloatToStr(S1);
    Sum21.Caption:='￥'+Addradixpoint(s, 2);
    s:=FloatToStr(S2);
    Sum22.Caption:='￥'+Addradixpoint(s, 2);
    s:=FloatToStr(S2-S1);
    Sum23.Caption:='￥'+Addradixpoint(s, 2);

    S1:=0; S2:=0; Sm1:=0; Sm2:=0;

    //收付款
    OpenData('select Sum(TOTALSUM) as TOTALSUM,'+
             'Sum(BALANCE) As BALANCE, Sum(CANUSESUM) As  CANUSESUM,'+
             'Sum(PREPAYSUM) as PREPAYSUM, PAYMENTWHITHER, BILLTYPE, ISBALANCETO,'+
             'ISUSEPREPAYSUM, BILLMODELCODE FROM PayMentHand where ISAUDITING='''+'1'''+
             ' and  BILLDATE='+#39+DateToStr(SDate)+#39+
             'Group By PAYMENTWHITHER, BILLTYPE, ISBALANCETO,'+
             'ISUSEPREPAYSUM, BILLMODELCODE', dmData.sdsPublic);
    while not Eof do
    begin
      //收款
      if Fieldbyname('BillType').asinteger=1 then
      begin
        case Fieldbyname('BILLMODELCODE').asinteger of
        0: begin   //销售收款
             Sm1:=Sm1+Fieldbyname('TOTALSUM').asFloat;
             if Fieldbyname('ISUSEPREPAYSUM').asstring='True' then
                Sm1:=Sm1-Fieldbyname('PREPAYSUM').asFloat;
             if FieldByName('ISBALANCETO').AsString='1' then
                Sm1:=Sm1+Fieldbyname('BALANCE').asFloat;
           end;
        1: begin //采购退货收款
             Sum8.Caption:=
             Addradixpoint(FloatToStr(Fieldbyname('TOTALSUM').asFloat),2);
             S1:=S1+Fieldbyname('TOTALSUM').asFloat;
             if Fieldbyname('PAYMENTWHITHER').Asstring='1' then
             Sm4:=Sm4+Fieldbyname('TOTALSUM').asFloat;
           end;
        2: begin //预收款
             Sm2:=Sm2+Fieldbyname('TOTALSUM').asFloat;
           end;
        3: begin //内部调出收款
             Label29.Caption:=Addradixpoint(FloatToStr(Fieldbyname('TOTALSUM').asFloat), 2);
             S1:=S1+Fieldbyname('TOTALSUM').asFloat;
           end;
        end;
      end