udayaccbook.~pas

天涯進銷存系統

      else //付款
      if Fieldbyname('BillType').asinteger=2 then
      begin
        case Fieldbyname('BILLMODELCODE').asinteger of
        0: begin   //采购付款
             Sm3:=Sm3+Fieldbyname('TOTALSUM').asFloat;
             if Fieldbyname('ISUSEPREPAYSUM').asstring='True' then
                Sm3:=Sm3-Fieldbyname('PREPAYSUM').asFloat;
             if FieldByName('ISBALANCETO').AsString='1' then
                Sm3:=Sm3+Fieldbyname('BALANCE').asFloat;
           end;
        1: begin //采购退货收款
             Sum7.Caption:=
             Addradixpoint(FloatToStr(Fieldbyname('TOTALSUM').asFloat),2);
             S2:=S2+Fieldbyname('TOTALSUM').asFloat;
             if Fieldbyname('PAYMENTWHITHER').Asstring='1' then
             Sm2:=Sm2+Fieldbyname('TOTALSUM').asFloat;
           end;
        2: begin //预收款
             Sm4:=Sm4+Fieldbyname('TOTALSUM').asFloat;
           end;
        3: begin //内部调出收款
             Label31.Caption:=Addradixpoint(FloatToStr(Fieldbyname('TOTALSUM').asFloat), 2);
             S2:=S2+Fieldbyname('TOTALSUM').asFloat;
           end;
        end;
      end;
      Next;
    end;
    Sum6.Caption:=Addradixpoint(FloatToStr(Sm1), 2);
    Sum10.Caption:=Addradixpoint(FloatToStr(Sm2), 2);
    S1:=S1+Sm1+Sm2;
    Sum25.Caption:=Addradixpoint(FloatToStr(S1), 2);
    Sum5.Caption:=Addradixpoint(FloatToStr(Sm3), 2);
    Sum9.Caption:=Addradixpoint(FloatToStr(Sm4), 2);
    S2:=S2+Sm3+Sm4;
    Sum24.Caption:=Addradixpoint(FloatToStr(S2), 2);
    Sum26.Caption:=Addradixpoint(FloatToStr(S1-S2), 2);
{    //退货转预付&收款
    OpenData('select Sum(TOTALSUM) as TOTALSUM, BILLTYPE '+
             'FROM PayMentHand where ISAUDITING="1" and BILLMODELCODE="1" and '+
             'PAYMENTWHITHER="1" and BILLDATE='+#39+DateToStr(SDate)+#39+' Group by BILLTYPE',
             dmData.sdsPublic);
    while not Eof do
    begin
      if FieldByName('BILLTYPE').AsString='1' then
        S1:=S1+Fieldbyname('TOTALSUM').asFloat
      else
      if FieldByName('BILLTYPE').AsString='2' then
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
      Next;
    end;
    //余额转预付&收款
    OpenData('select Sum(BALANCE) as TOTALSUM, BILLTYPE '+
             'FROM PayMentHand where ISAUDITING="1" and BILLMODELCODE="0" and '+
             'ISBALANCETO="1" and BILLDATE='+#39+DateToStr(SDate)+#39+' Group by BILLTYPE',
             dmData.sdsPublic);
    while not Eof do
    begin
      if FieldByName('BILLTYPE').AsString='2' then
        S1:=S1+Fieldbyname('TOTALSUM').asFloat
      else
      if FieldByName('BILLTYPE').AsString='1' then
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
      Next;
    end;
    //余额转预付&收款
    OpenData('select Sum(TOTALSUM) as TOTALSUM, BILLTYPE '+
             'FROM PayMentHand where ISAUDITING="1" and BILLMODELCODE="2" and '+
             'BILLDATE='+#39+DateToStr(SDate)+#39+' Group by BILLTYPE',
             dmData.sdsPublic);
    while not Eof do
    begin
      if FieldByName('BILLTYPE').AsString='2' then
        S1:=S1+Fieldbyname('TOTALSUM').asFloat
      else
      if FieldByName('BILLTYPE').AsString='1' then
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
      Next;
    end;
    s:='￥'+FloatToStr(S2);
    Sum10.Caption:=Addradixpoint(s, 2);
    s:='￥'+FloatToStr(S1);
    Sum9.Caption:=Addradixpoint(s, 2);

    //收付款
    OpenData('select Sum(TOTALSUM) as TOTALSUM, BILLTYPE '+
             'FROM PayMentHand where ISAUDITING="1" and BILLMODELCODE="0" and '+
             ' BILLDATE='+#39+DateToStr(SDate)+#39+' Group by BILLTYPE',
             dmData.sdsPublic);
    Sum5.Caption:='￥0.00';
    Sum6.Caption:='￥0.00';
    while not Eof do
    begin
      if FieldByName('BILLTYPE').AsString='2' then
      begin
        S1:=S1+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum5.Caption:=Addradixpoint(s, 2);
      end
      else
      if FieldByName('BILLTYPE').AsString='1' then
      begin
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum6.Caption:=Addradixpoint(s, 2);
      end;
      Next;
    end;
    //退货款
    OpenData('select Sum(TOTALSUM) as TOTALSUM, BILLTYPE '+
             'FROM PayMentHand where ISAUDITING="1" and BILLMODELCODE="1" and '+
             ' BILLDATE='+#39+DateToStr(SDate)+#39+' Group by BILLTYPE',
             dmData.sdsPublic);
    Sum7.Caption:='￥0.00';
    Sum8.Caption:='￥0.00';
    while not Eof do
    begin
      if FieldByName('BILLTYPE').AsString='2' then
      begin
        S1:=S1+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum7.Caption:=Addradixpoint(s, 2);
      end
      else
      if FieldByName('BILLTYPE').AsString='1' then
      begin
        S2:=S2+Fieldbyname('TOTALSUM').asFloat;
        s:='￥'+FloatToStr(Fieldbyname('TOTALSUM').asFloat);
        Sum8.Caption:=Addradixpoint(s, 2);
      end;
      Next;
    end;
    Close;
    s:=FloatToStr(S1);
    Sum24.Caption:='￥'+Addradixpoint(s, 2);
    s:=FloatToStr(S2);
    Sum25.Caption:='￥'+Addradixpoint(s, 2);
    s:=FloatToStr(S2-S1);
    Sum26.Caption:='￥'+Addradixpoint(s, 2);}
  end;
end;

procedure TfrmDayAccBook.FormShow(Sender: TObject);
begin
  SDate:=Date;
  DayLabel.Caption:='日期：'+GetLongDate(SDate);
  OpenView.Visible:=True;
  Update;
  GetSum;
  OpenView.Visible:=False;
end;

procedure TfrmDayAccBook.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TfrmDayAccBook.LBSpeecButton2Click(Sender: TObject);
begin
  GetXoY(LBSpeecButton2);
  SDate:=Date;
  SelectDate;
  DayLabel.Caption:='日期：'+GetLongDate(SDate);
  OpenView.Visible:=True;
  Update;
  GetSum;
  OpenView.Visible:=False;
end;

procedure TfrmDayAccBook.PrintButtonClick(Sender: TObject);
var
  RepView: TfrView;
  Page: TfrPage;
  RepPrintView: TfrPreview;
begin
  RepPrintView:=TfrPreview.Create(Nil);
  Report.LoadFromFile(ReportPath+'RepDayAccBook.frf');
  Page:=Report.Pages[0];
  RepView := Page.FindObject('Sum1');
  RepView.Memo.Add(Sum1.Caption);
  RepView := Page.FindObject('Sum2');
  RepView.Memo.Add(Sum2.Caption);
  RepView := Page.FindObject('Sum3');
  RepView.Memo.Add(Sum3.Caption);
  RepView := Page.FindObject('Sum4');
  RepView.Memo.Add(Sum4.Caption);
  RepView := Page.FindObject('Sum5');
  RepView.Memo.Add(Sum11.Caption);
  RepView := Page.FindObject('Sum6');
  RepView.Memo.Add(Sum12.Caption);
  RepView := Page.FindObject('Sum7');
  RepView.Memo.Add(Sum21.Caption);
  RepView := Page.FindObject('Sum8');
  RepView.Memo.Add(Sum22.Caption);
  RepView := Page.FindObject('Sum21');
  RepView.Memo.Add(Sum23.Caption);
  RepView := Page.FindObject('Sum9');
  RepView.Memo.Add(Sum5.Caption);
  RepView := Page.FindObject('Sum10');
  RepView.Memo.Add(Sum6.Caption);
  RepView := Page.FindObject('Sum11');
  RepView.Memo.Add(Sum7.Caption);
  RepView := Page.FindObject('Sum12');
  RepView.Memo.Add(Sum8.Caption);
  RepView := Page.FindObject('Sum13');
  RepView.Memo.Add(Sum9.Caption);
  RepView := Page.FindObject('Sum14');
  RepView.Memo.Add(Sum10.Caption);
  RepView := Page.FindObject('Sum15');
  RepView.Memo.Add(Sum24.Caption);
  RepView := Page.FindObject('Sum16');
  RepView.Memo.Add(Sum25.Caption);
  RepView := Page.FindObject('Sum22');
  RepView.Memo.Add(Sum26.Caption);
  RepView := Page.FindObject('Sum29');
  RepView.Memo.Add(Label24.Caption);
  RepView := Page.FindObject('Sum30');
  RepView.Memo.Add(Label27.Caption);
  RepView := Page.FindObject('Sum33');
  RepView.Memo.Add(Label31.Caption);
  RepView := Page.FindObject('Sum34');
  RepView.Memo.Add(Label29.Caption);
  Report.PrepareReport;
//  Report.ShowPreparedReport;
  Report.Preview:=RepPrintView;
  RepPrintView.Print;
  RepPrintView.Free;
end;

procedure TfrmDayAccBook.EnterButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmDayAccBook.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.