unit U_TaxInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
  dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI;

type
  TfrmTaxInput = class(TForm)
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ToolButton3: TToolButton;
    ScrollBox1: TScrollBox;
    Label7: TLabel;
    Note: TMemo;
    CBusiness_unit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    CCustomer: TEdit;
    Label3: TLabel;
    CC_Name: TEdit;
    Label4: TLabel;
    Csalesman: TEdit;
    Label5: TLabel;
    C_WBHXJE: TEdit;
    Label6: TLabel;
    C_HXrate: TEdit;
    Label8: TLabel;
    C_RMBHXJE: TEdit;
    Label9: TLabel;
    SFHS: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    CWBSHJE: TEdit;
    Label12: TLabel;
    CWBSHrate: TEdit;
    Label13: TLabel;
    CRMBSSJE: TEdit;
    Label14: TLabel;
    CTSSY: TEdit;
    Label15: TLabel;
    CCPKPJE: TEdit;
    Label16: TLabel;
    CGDSL: TEdit;
    Label17: TLabel;
    CRate: TEdit;
    Label18: TLabel;
    COrtherRate: TEdit;
    Label19: TLabel;
    CWBSY: TEdit;
    Label22: TLabel;
    TSLLSY: TEdit;
    Label23: TLabel;
    GDS: TEdit;
    Label24: TLabel;
    COrderSF: TEdit;
    Label25: TLabel;
    CZDDate: TDateTimePicker;
    COrderNo: TBtnEditC;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure PayMentBtnUpClick(Sender: TObject);
    //procedure OppCoNameBtnUpClick(Sender: TObject);
    //procedure OppParentCoNameBtnUpClick(Sender: TObject);
    //procedure OurBankNameBtnUpClick(Sender: TObject);
    //procedure OppBankNameBtnUpClick(Sender: TObject);
    //procedure FFAbstractDLBtnUpClick(Sender: TObject);
    procedure OrderNoBtnUpClick(Sender: TObject);
    procedure COrderNoBtnUpClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CRateChange(Sender: TObject);
    procedure CCPKPJEChange(Sender: TObject);
    procedure CGDSLChange(Sender: TObject);
//    procedure COrderSFChange(Sender: TObject);
    procedure COrtherRateChange(Sender: TObject);
    //procedure ToolButton1Click(Sender: TObject);
    //procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
    procedure InitGrid();
    procedure CalculateProduct(Sender: TObject);
    procedure CalculateProduct2(Sender: TObject);
    procedure CalculateProduct3(Sender: TObject);
    procedure CalculateProduct4(Sender: TObject);
    function SaveData(): Boolean;
    //procedure CalculateProduct;
  public
    { Public declarations }
    FFFID, PState: string;
  end;

var
  frmTaxInput: TfrmTaxInput;

implementation

uses
  U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_ZDYHelpFY,
  U_TradePlanSel, U_FinFileUp, U_FtyFileUp, U_TaxSel;

{$R *.dfm}

procedure TfrmTaxInput.InitGrid();
begin
  try

    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      SQL.Clear;
      sql.Add(' select * from Costing_Table where CostMID =''' + Trim(FFFID) + '''');
      Open;
    end;
    if not ADOQueryMain.IsEmpty then
    begin
      SCSHData(ADOQueryMain, ScrollBox1, 0);
      //OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
      //OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
      //OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
      //OurBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OurBankID').AsString);
      //OppBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OppBankID').AsString);
    end
    else
    begin
//      SQDate.DateTime := SGetServerDateTime(ADOQueryTemp);
//      PKDate.DateTime := SQDate.DateTime
    end;

    if PState = '复制' then
    begin
      FFFID := '';

    end;
  finally
    ADOQueryMain.EnableControls;
  end;
end;

//procedure TfrmTaxInput.OppBankNameBtnUpClick(Sender: TObject);
//begin
//
//  try
//    frmZDYHelp := TfrmZDYHelp.Create(Application);
//    with frmZDYHelp do
//    begin
//      flag := self.OppCoName.TxtCode;
//      flagname := '对方账户';
//      if ShowModal = 1 then
//      begin
//        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
//      end;
//    end;
//  finally
//    frmZDYHelp.Free;
//  end;
//end;

//procedure TfrmTaxInput.OppCoNameBtnUpClick(Sender: TObject);
//begin
//  try
//    frmCompanySel := TfrmCompanySel.Create(Application);
//    with frmCompanySel do
//    begin
//      if RegType.text = '付款' then
//      begin
//        FCoType := '供应商';
//      end
//      else
//      begin
//        FCoType := '客户';
//      end;
//
//      if ShowModal = 1 then
//      begin
//        OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
//        OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
//        OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
//        OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
//        OppBankName.Text := Trim(CDS_1.fieldbyname('AcName').AsString);
//        OppBankName.TxtCode := Trim(CDS_1.fieldbyname('CBID').AsString);
//      end;
//    end;
//  finally
//    frmCompanySel.Free;
//  end;
//end;

//procedure TfrmTaxInput.OppParentCoNameBtnUpClick(Sender: TObject);
//begin
//  try
//    frmCompanySel := TfrmCompanySel.Create(Application);
//    with frmCompanySel do
//    begin
//      FCoType := '供应商';
//      if ShowModal = 1 then
//      begin
//        OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
//        OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
//      end;
//    end;
//  finally
//    frmCompanySel.Free;
//  end;
//end;

procedure TfrmTaxInput.OrderNoBtnUpClick(Sender: TObject);
begin
  try
    frmTradePlanSel := TfrmTradePlanSel.Create(Application);
    with frmTradePlanSel do
    begin
//      FMainID := MainID.Text;
      if ShowModal = 1 then
      begin
        //Self.OrderNO.Text := CDS_1.fieldbyname('OrderNo').value;
//        Self.OurCoName.Text := Trim(CDS_1.fieldbyname('OurCoName').AsString);
//        Self.OurCoName.TxtCode := Trim(CDS_1.fieldbyname('OurCoNo').AsString);
        //Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
      end;
    end;
  finally
    frmTradePlanSel.Free;
  end;
end;

//procedure TfrmTaxInput.OurBankNameBtnUpClick(Sender: TObject);
//begin
//  try
//    frmBankSel := TfrmBankSel.Create(Application);
//    with frmBankSel do
//    begin
//      if ShowModal = 1 then
//      begin
//        OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
//        OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString);
//      end;
//    end;
//  finally
//    frmBankSel.Free;
//  end;
//end;



procedure TfrmTaxInput.FormDestroy(Sender: TObject);
begin
  frmTaxInput := nil;
end;


procedure TfrmTaxInput.PayMentBtnUpClick(Sender: TObject);
var
  fsj: string;
  FWZ: Integer;
begin
  fsj := Trim(TEdit(Sender).Hint);
  FWZ := Pos('/', fsj);
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      MainType := '付款';
      flag := Copy(fsj, 1, FWZ - 1);
      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
      if ShowModal = 1 then
      begin
        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

//procedure TfrmTaxInput.FFAbstractDLBtnUpClick(Sender: TObject);
//var
//  fsj: string;
//  FWZ: Integer;
//begin
//  fsj := Trim(TEdit(Sender).Hint);
//  FWZ := Pos('/', fsj);
//  try
//    frmZDYHelpFY := TfrmZDYHelpFY.Create(Application);
//    with frmZDYHelpFY do
//    begin
////      if RegType.text = '付款' then
////      begin
////        MainType := '付款类型';
////      end
//      else
//      begin
//        MainType := '收款类型';
//      end;
//      flag := Copy(fsj, 1, FWZ - 1);
//      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
//      if ShowModal = 1 then
//      begin
//        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('Note2').AsString);
//        FFAbstract.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
//      end;
//    end;
//  finally
//    frmZDYHelpFY.Free;
//  end;
//end;

procedure TfrmTaxInput.COrderNoBtnUpClick(Sender: TObject);
begin
  try
    frmTaxSel := TfrmTaxSel.Create(Application);
    with frmTaxSel do
    begin
      if ShowModal = 1 then
      begin
        CBusiness_unit.Text := Trim(CDS_1.fieldbyname('OppCoName').AsString);
        COrderNo.Text := Trim(CDS_1.fieldbyname('OrderNo').AsString);
        CCustomer.Text := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
        CC_Name.Text := Trim(CDS_1.fieldbyname('F_Name').AsString);
        CZDDate.Date := CDS_1.fieldbyname('FFTime').AsDateTime;
        C_WBHXJE.Text := Trim(CDS_1.fieldbyname('TotalUSD').AsString);
        C_RMBHXJE.Text := Trim(CDS_1.fieldbyname('TotalCNY').AsString);
      end;
    end;
  finally
    frmTaxSel.Free;
  end;
end;




procedure TfrmTaxInput.COrtherRateChange(Sender: TObject);
begin
  CalculateProduct4(Sender);
end;

procedure TfrmTaxInput.CRateChange(Sender: TObject);
begin
  CalculateProduct2(Sender);
end;

procedure TfrmTaxInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  Action := caFree;
end;

procedure TfrmTaxInput.FormCreate(Sender: TObject);
begin
  C_HXrate.OnChange := CalculateProduct;
  C_WBHXJE.OnChange := CalculateProduct;
end;

procedure TfrmTaxInput.TBCloseClick(Sender: TObject);
begin

  close;
end;

procedure TfrmTaxInput.FormShow(Sender: TObject);
begin
//  if Trim(FFFID) = '' then
//  begin
//    with ADOQueryTemp do
//    begin
//      Close;
//      SQL.Clear;
//      sql.Add(' select top 1 * from BS_Company where CoType=''我司''  order by CoCode ');
//      Open;
//    end;
//    OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString);
//    OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
//  end;
  CGDSL.text := '0.028';
  CRate.text := '0.13';
  COrtherRate.text := '0.07';
  InitGrid();
end;

procedure TfrmTaxInput.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

function TfrmTaxInput.SaveData(): Boolean;
var
  MaxId, MaxSubId, FCoCode, FCCID: string;
begin
  try
    ADOQueryCmd.Connection.BeginTrans;
    if Trim(FFFID) = '' then
    begin
      if not GetLSNo(ADOQueryCmd, MaxId, 'TAX', 'Costing_Table', 4, 1) then
        raise Exception.Create('取最大号失败！');
    end
    else
    begin
      MaxId := Trim(FFFID);
    end;

    with ADOQueryCmd do
    begin
      Close;
      SQL.Clear;
      sql.Add('select * from Costing_Table where CostMID=''' + Trim(FFFID) + '''');
      Open;
    end;
    with ADOQueryCmd do
    begin
      if Trim(FFFID) = '' then
      begin
        Append;
        FieldByName('FillId').Value := Trim(DCode);
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        Edit;
        FieldByName('EditId').Value := Trim(DCode);
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
      end;
//      FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode);
//      FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
//      FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode);
//      FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
//      FieldByName('OppBankID').Value := Trim(OppBankName.TxtCode);
////      FieldByName('OppBanKID
      FieldByName('CostMID').Value := Trim(MaxId);
      RTSetsavedata(ADOQueryCmd, 'Costing_table', ScrollBox1, 0);
      Post;
    end;

    ADOQueryCmd.Connection.CommitTrans;
    FCCID := Trim(MaxSubId);
    Result := True;
  except
    Result := false;
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
  end;
end;

//procedure TfrmTaxInput.ToolButton1Click(Sender: TObject);
//begin
//  try
//    frmFinFileUp := TfrmFinFileUp.Create(Application);
//    with frmFinFileUp do
//    begin
////      Code.Text := Trim(Self.CDS_1.fieldbyname('CoCode').AsString);
//      FBCIID := FFFID;
//      if ShowModal = 1 then
//      begin
//        Self.InitGrid();
////        Self.CDS_1.Locate('BCIID', BCIID, []);
//      end;
//    end;
//  finally
//    frmFinFileUp.Free;
//  end;
//end;

//procedure TfrmTaxInput.ToolButton2Click(Sender: TObject);
//begin
//  try
//    frmFtyFileUp := TfrmFtyFileUp.Create(Application);
//    with frmFtyFileUp do
//    begin
//      with ADOQueryTemp do
//      begin
//        Close;
//        sql.Clear;
//        sql.Add(' select * from BS_Company where  CoCode=' + quotedstr(Trim(OppCoName.TxtCode)));
//        Open;
//      end;
//      //Code.Text := self.OppCoName.TxtCode;
//      //FBCIID := Trim(ADOQueryTemp.fieldbyname('CoID').AsString);
//      if ShowModal = 1 then
//      begin
//        Self.InitGrid();
////        Self.CDS_1.Locate('BCIID', BCIID, []);
//      end;
//    end;
//  finally
//    frmFtyFileUp.Free;
//  end;
//end;

procedure TfrmTaxInput.CalculateProduct(Sender: TObject);//计算外币收益
var
  AValue, BValue, CValue: Double;
begin
  try
    AValue := StrToFloatDef(C_HXrate.Text, 0);
    BValue := StrToFloatDef(C_WBHXJE.Text, 0);
    CValue := AValue * BValue;
    CWBSY.Text := FormatFloat('0.00', CValue);
  except
    on E: Exception do
      CWBSY.Text := '输入错误';
  end;
end;

procedure TfrmTaxInput.CalculateProduct2(Sender: TObject);//计算退税理论收益
var
  AValue, BValue, CValue, DValue: Double;
begin
  try
    AValue := StrToFloatDef(CCPKPJE.Text, 0);
    BValue := StrToFloatDef(CRate.Text, 0);
    CValue := AValue/(1 + BValue) * BVALUE;
    TSLLSY.Text := FormatFloat('0.00', CValue);
  except
    on E: Exception do
      TSLLSY.Text := '输入错误';
  end;
end;

procedure TfrmTaxInput.CalculateProduct3(Sender: TObject); //计算国地税
var
  AValue, BValue, CValue, DValue: Double;
begin
  try
    AValue := StrToFloatDef(CCPKPJE.Text, 0);
    BValue := StrToFloatDef(CGDSL.Text, 0);
    CValue := AValue * BValue;
    GDS.Text := FormatFloat('0.00', CValue);
  except
    on E: Exception do
      GDS.Text := '输入错误';
  end;
end;

procedure TfrmTaxInput.CalculateProduct4(Sender: TObject); //计算其他税费
var
  AValue, BValue, CValue, DValue: Double;
begin
  try
    AValue := StrToFloatDef(COrtherRate.Text, 0);
    BValue := 0;
    with ADOQueryTemp do
    begin
      Close;
      SQL.Clear;
      SQL.Text := 'SELECT TotalAmount FROM V_SF_YFK WHERE OrderNo = :OrderNo';
      Parameters.ParamByName('OrderNo').Value := COrderNo.Text;
      Open;
      if not IsEmpty then
        BValue := FieldByName('TotalAmount').AsFloat;
      Close;
    end;

    CValue := StrToFloatDef(CCPKPJE.Text, 0);
    DValue := (CValue - BValue) * AValue;
    COrderSF.Text := FormatFloat('0.00', DValue);
  except
    on E: Exception do
      COrderSF.Text := '输入错误: ' + E.Message;
  end;
end;


procedure TfrmTaxInput.CCPKPJEChange(Sender: TObject);
begin
  CalculateProduct2(Sender);
  CalculateProduct3(Sender);
  CalculateProduct4(Sender);
end;

procedure TfrmTaxInput.CGDSLChange(Sender: TObject);
begin
  CalculateProduct3(Sender);
end;

procedure TfrmTaxInput.ToolButton3Click(Sender: TObject);
begin
  ToolBar1.SetFocus;
//  if Trim(OppCoName.Text) = '' then
//  begin
//    Application.MessageBox('对方单位不能为空!', '提示', 0);
//    Exit;
//  end;
//  if Trim(OurCoName.Text) = '' then
//  begin
//    Application.MessageBox('我方单位不能为空!', '提示', 0);
//    Exit;
//  end;
//   if Trim(RegType.Text) = '' then
//  begin
//    Application.MessageBox('登记类型不能为空!', '提示', 0);
//    Exit;
//  end;
//  if Trim(OurBankName.Text) = '' then
//  begin
//    Application.MessageBox('我方账户不能为空!', '提示', 0);
//    Exit;
//  end;
//  if Trim(Currency.Text) = '' then
//  begin
//    Application.MessageBox('币种不能为空!', '提示', 0);
//    Exit;
//  end;
//  if Trim(FFAbstractDL.Text) = '' then
//  begin
//    Application.MessageBox('费用类别不能为空!', '提示', 0);
//    Exit;
//  end;
  if SaveData() then
  begin
    Application.MessageBox('保存成功!', '提示', 0);
    ModalResult := 1;
  end;
end;

end.