D7gmYushang/应收应付/U_FYInput.pas

unit U_FYInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
  DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
  cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar;

type
  TfrmFYInput = class(TForm)
    DataSource1: TDataSource;
    YFSub: TClientDataSet;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ToolBar1: TToolBar;
    TSave: TToolButton;
    TBClose: TToolButton;
    ToolBar2: TToolBar;
    TADD: TToolButton;
    TDEl: TToolButton;
    Panel1: TPanel;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1_KXType: TcxGridDBColumn;
    v1Qty: TcxGridDBColumn;
    v1QtyUnit: TcxGridDBColumn;
    v1note: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Label1: TLabel;
    FYID: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    FYDATE: TDateTimePicker;
    Note: TMemo;
    PayMent: TBtnEditA;
    FYNAME: TBtnEditA;
    Label4: TLabel;
    Label6: TLabel;
    ADOQueryTmp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Label8: TLabel;
    SFDW: TBtnEditA;
    Label12: TLabel;
    je: TEdit;
    v1Column3: TcxGridDBColumn;
    Label7: TLabel;
    v1Column4: TcxGridDBColumn;
    ToolButton1: TToolButton;
    v1Column5: TcxGridDBColumn;
    fyyt: TBtnEditA;
    Label13: TLabel;
    ZHMC: TBtnEditA;
    v1Column7: TcxGridDBColumn;
    v1Column10: TcxGridDBColumn;
    ToolButton2: TToolButton;
    Tv1Column1: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    Label14: TLabel;
    Label15: TLabel;
    YWY: TBtnEditA;
    YWZB: TBtnEditA;
    ToolButton5: TToolButton;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    Label5: TLabel;
    JSR: TBtnEditA;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Tv1Column2: TcxGridDBColumn;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TSaveClick(Sender: TObject);
    procedure PayMentBtnClick(Sender: TObject);
    procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure TADDClick(Sender: TObject);
    procedure TDElClick(Sender: TObject);
    procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
    procedure SFDWBtnClick(Sender: TObject);
    procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure HuiLvKeyPress(Sender: TObject; var Key: Char);
    procedure Panel1Click(Sender: TObject);
    procedure HuiLvExit(Sender: TObject);
    procedure v1MoneyPropertiesEditValueChanged(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure YWYBtnClick(Sender: TObject);
    procedure YWZBBtnClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
//    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure FYNAMEBtnClick(Sender: TObject);
    procedure JSRBtnClick(Sender: TObject);
    procedure fyytBtnClick(Sender: TObject);
    procedure ZHMCBtnClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    procedure initGrid();
    procedure SaveDate();
    procedure HJJE();
    { Private declarations }
  public
    FYFID: string;
    { Public declarations }
  end;

var
  frmFYInput: TfrmFYInput;

implementation

uses
  U_Fun10, U_ZDYHelp, U_ZdyAttachment, U_dataLink, U_ZdyAttachGYS, U_CKList,
  U_PBRKlistSel, U_CPManageSel, U_ZZJWLRKListSel, U_WDBLIST, U_SXXSListSel3,
  U_DHXSListSel, U_JYLIST2, U_TCLIST2, U_PBXSListSel;
{$R *.dfm}

procedure TfrmFYInput.HJJE();
var
  FMoney, FHuiLv, FBBMoney: double;
begin
  if TV1.DataController.Summary.FooterSummaryValues[1] <> NULL then
    FMoney := TV1.DataController.Summary.FooterSummaryValues[1]
  else
    FMoney := 0;
//
//  FHuiLv := strtofloat(HuiLv.Text);
//  if FHuiLv = 0 then
//    FHuiLv := 1;
  FBBMoney := FHuiLv * FMoney;
//  Money.Text := floattostr(FMoney);
//  HuiLv.Text := floattostr(FHuiLv);
//  BBMoney.Text := floattostr(FBBMoney);
end;

procedure TfrmFYInput.SaveDate();
var
  MaxYFSID, MaxYFID: string;
begin
  ADOQueryCmd.Connection.BeginTrans;
  try
    if trim(FYFID) = '' then
    begin
      if GetLSNo(ADOQueryTmp, MaxYFID, 'FY', 'CW_FY_MX', 4, 1) = False then
      begin
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
      FYID.Text := MaxYFID;
    end
    else
    begin
      MaxYFID := trim(FYFID);
    end;
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.add('select * from CW_FY where FYID=' + quotedstr(FYFID));
      open;
    end;
    with ADOQueryCmd do
    begin
      if trim(FYFID) = '' then
      begin
        append;
        Fieldbyname('FYID').value := trim(MaxYFID);
        FieldByName('status').Value := '0';
        FieldByName('Filler').Value := Trim(DName);
        FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTmp);
      end
      else
      begin
        edit;
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
      end;

      SSetsaveSqlnew(ADOQueryCmd, 'CW_FY', panel1, 0);
      post;
    end;

    with YFSub do
    begin
      first;
      while not eof do
      begin
        if fieldbyname('FYSID').AsString = '' then
        begin
          if GetLSNo(ADOQueryTmp, MaxYFSID, 'FYS', 'CW_FY_MX', 4, 1) = False then
          begin
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
        begin
          MaxYFSID := YFSub.fieldbyname('FYSID').AsString;
        end;
        with ADOQueryCmd do
        begin
          close;
          sql.Clear;
          sql.add('select * from CW_FY_MX where FYSID=' + Quotedstr(trim(MaxYFSID)));
          open;
        end;
        if ADOQueryCmd.IsEmpty then
        begin
          ADOQueryCmd.append;
          ADOQueryCmd.Fieldbyname('FYSID').value := trim(MaxYFSID);
          ADOQueryCmd.Fieldbyname('FYID').value := trim(MaxYFID);
        end
        else
        begin
          ADOQueryCmd.edit;
        end;

        RTSetSaveDataCDS(ADOQueryCmd, Tv1, YFSub, 'CW_FY_MX', 0);

        ADOQueryCmd.Post;
        with YFSub do
        begin
          Edit;
          YFSub.Fieldbyname('FYSID').value := trim(MaxYFSID);
          YFSub.Fieldbyname('FYID').value := trim(MaxYFID);

          Post;
        end;
        next;
      end;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ');
//    FYFID := '';
//    initGrid();
    Modalresult := 1;
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', MB_ICONERROR);
  end;
end;

procedure TfrmFYInput.initGrid();
begin
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CW_FY where FYID=' + quotedstr(trim(FYFID)));
    open;
  end;
  if ADOQueryTmp.isempty = False then
  begin
    SCSHDataNew(ADOQueryTmp, Panel1, 0);
  end
  else
  begin

    FYDATE.DateTime := SGetServerDate(ADOQueryTmp);
  end;

  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CW_FY_MX where FYID=''' + trim(FYFID) + '''');
    open;
  end;
  SCreateCDS20(ADOQueryTmp, YFSub);
  SInitCDSData20(ADOQueryTmp, YFSub);
end;

procedure TfrmFYInput.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmFYInput.FormShow(Sender: TObject);
begin
  ReadCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  initGrid();
end;

procedure TfrmFYInput.TSaveClick(Sender: TObject);
var
  FReal: double;
begin
  FYNAME.SetFocus;
  if trim(JE.Text) = '' then
  begin
    application.MessageBox('<27><><EFBFBD><EFBFBD><EEB2BB>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;
  if TryStrToFloat(JE.Text, FReal) = False then
  begin
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>ȷ', '<27><>ʾ');
    exit;
  end;

  if YFSub.Locate('KXType', null, []) then
  begin
    application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
    exit;
  end;

  SaveDate();
end;

procedure TfrmFYInput.PayMentBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'PayMent';
      flagname := '<27><><EFBFBD>ʽ';
      if ShowModal = 1 then
      begin
        PayMent.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'KXType1';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        Self.YFSub.Edit;
        Self.YFSub.FieldByName('KXType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'QtyUnit';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
      if ShowModal = 1 then
      begin
        Self.YFSub.Edit;
        Self.YFSub.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.TADDClick(Sender: TObject);
begin
  with YFSub do
  begin
    Append;
    FieldByName('Qty').Value := 0;

    Post;
  end;

end;

procedure TfrmFYInput.TDElClick(Sender: TObject);
begin
  if YFSub.IsEmpty then
    exit;
  if application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>', '<27><>ʾ', 1) = 2 then
    exit;

  if trim(YFSub.fieldbyname('fySID').asstring) = '' then
  begin
    YFSub.delete;
//    HJJE();
  end
  else
  begin
    with ADOQueryTmp do
    begin
      close;
      sql.clear;
      sql.add('delete from CW_FY_MX where fySID=''' + trim(YFSub.fieldbyname('fySID').asstring) + ''' ');
      execsql;
    end;
    YFSub.delete;
//    HJJE();
//    TSave.Click;
  end;

end;

procedure TfrmFYInput.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
  FQty, FPrice, FMxMoney, FXGFEE: double;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  with YFSub do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;
  with YFSub do
  begin
    Edit;
    FXGFEE := FieldByName('XGFEE').AsFloat;
    FQty := FieldByName('Qty').AsFloat;
    FPrice := FieldByName('Price').AsFloat;
    Post;
  end;
  FMxMoney := strtofloat(format('%.2f', [FQty * FPrice + FXGFEE]));
  with YFSub do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    FieldbyName('MxMoney').Value := FMxMoney;
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();
  HJJE();
end;

procedure TfrmFYInput.SFDWBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SFDW';
      flagname := '<27>շѵ<D5B7>λ';
      if ShowModal = 1 then
      begin
        SFDW.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'MPRTCodeName';
      flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with YFSub do
        begin
          Edit;
//          FieldByName('CPName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
          FieldByName('CPCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  //self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmFYInput.HuiLvKeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
  begin
    Key := #0;
  end
  else if (pos('.', TEdit(Sender).text) <> 0) then
  begin
    if Key = '.' then
    begin
      Key := #0;
    end;
  end;
end;

procedure TfrmFYInput.Panel1Click(Sender: TObject);
begin
  FYname.SetFocus;
end;

procedure TfrmFYInput.HuiLvExit(Sender: TObject);
begin
  HJJE();
end;

procedure TfrmFYInput.v1MoneyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  if Trim(mvalue) = '' then
  begin
    mvalue := '0';
  end;
  with YFSub do
  begin
    Edit;
    FieldByName(FFieldName).Value := Trim(mvalue);
    Post;
  end;
  tv1.Controller.EditingController.ShowEdit();
  HJJE();
end;

procedure TfrmFYInput.ToolButton1Click(Sender: TObject);
var
  CFactoryName, CKXType: string;
  CQtyFlag: integer;
begin
  try
    frmCKList := TfrmCKList.create(self);
    with frmCKList do
    begin
      with frmCKList do
      begin
        if showmodal = 1 then
        begin

          while CDS_Main.Locate('SSel', true, []) do
          begin
            self.YFSub.Append;
            self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('hrname').Value;
            self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('YWY').AsString;
            self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('YWZB').AsString;
            self.YFSub.FieldByName('YFPZNO').Value := CDS_Main.FieldByName('spid').AsString;
            self.YFSub.FieldByName('KXTYPE').Value := CDS_Main.FieldByName('CRTYPE').AsString;

            self.YFSub.FieldByName('MXOrderNo').Value := CDS_Main.FieldByName('QCorderNo').Value;
            self.YFSub.FieldByName('CPCode').Value := CDS_Main.FieldByName('SPCode').Value;
            self.YFSub.FieldByName('RKDATE').Value := CDS_Main.FieldByName('CRTIME').Value;
            self.YFSub.FieldByName('CPColor').Value := CDS_Main.FieldByName('SPColor').Value;
            self.YFSub.FieldByName('CPGANGNO').Value := CDS_Main.FieldByName('GHAO').Value;
//            self.YFSub.FieldByName('KXType').Value := CKXType;
            self.YFSub.FieldByName('PS').Value := CDS_Main.FieldByName('PiQty').AsInteger;
            self.YFSub.FieldByName('Qty').Value := CDS_Main.FieldByName('Qty').AsFloat;
            self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
            self.YFSub.post;
            CDS_Main.Delete;
          end;

        end;
      end;
    end;
  finally
    frmCKList.free;
  end;
end;

procedure TfrmFYInput.ToolButton2Click(Sender: TObject);
var
  CFactoryName, CKXType: string;
  CQtyFlag: integer;
begin
  try
    frmWDBLIST := tfrmWDBLIST.create(self);
    with frmWDBLIST do
    begin

      if showmodal = 1 then
      begin
//        YFName.Text := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
        while CDS_Main.Locate('SSel', true, []) do
        begin
          self.YFSub.Append;
          self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('YWY').AsString;
          self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('YWZB').AsString;
          self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('hrname').Value;
          self.YFSub.FieldByName('YFPZNO').Value := CDS_Main.FieldByName('CRID').Value;
          self.YFSub.FieldByName('MXOrderNo').Value := CDS_Main.FieldByName('FromOrderNo').Value;
          self.YFSub.FieldByName('CPCode').Value := CDS_Main.FieldByName('P_Code').Value;
          self.YFSub.FieldByName('CPColor').Value := CDS_Main.FieldByName('P_Color').Value;
          self.YFSub.FieldByName('PS').Value := CDS_Main.FieldByName('RollNum').AsInteger;
          self.YFSub.FieldByName('Qty').Value := CDS_Main.FieldByName('Qty').AsFloat;
          self.YFSub.FieldByName('KXType').Value := CDS_Main.FieldByName('crtype').Value;
          self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
          self.YFSub.FieldByName('rkdate').Value := CDS_Main.FieldByName('CRTime').AsDateTime;
          self.YFSub.post;
          CDS_Main.Delete;
        end;
      end;
    end;
  finally
    frmWDBLIST.free;
  end;
end;

procedure TfrmFYInput.YWYBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'YWY';
      flagname := 'ҵ<><D2B5>Ա';
      if ShowModal = 1 then
      begin
        Self.YWY.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.YWZBBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SalesClass';
      flagname := 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin

        YWZB.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.ToolButton3Click(Sender: TObject);
var
  CFactoryName, CKXType: string;
  CQtyFlag: integer;
begin
  try
    frmDHXSListSel := TfrmDHXSListSel.create(self);
    with frmDHXSListSel do
    begin

      if showmodal = 1 then
      begin
        while CDS_Main.Locate('SSel', true, []) do

        begin
          with CDS_SUB do
          begin
            First;
            while not Eof do
            begin
              self.YFSub.Append;
              self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('hrname').Value;
              self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('Salesman').AsString;
              self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('SalesCLASS').AsString;
              self.YFSub.FieldByName('YFPZNO').Value := CDS_Main.FieldByName('FSID').Value;
              self.YFSub.FieldByName('KXType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
              self.YFSub.FieldByName('CPCode').Value := CDS_SUB.FieldByName('SPrtCodeName').Value;

              self.YFSub.FieldByName('CPColor').Value := CDS_SUB.FieldByName('prtcolor').Value;
              self.YFSub.FieldByName('CPgangno').Value := CDS_SUB.FieldByName('ganghao').Value;
              self.YFSub.FieldByName('PS').Value := CDS_SUB.FieldByName('FHPS').AsInteger;

              self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('hzunit').Value;
              if (CDS_Main.FieldByName('hzunit').Value = 'KG') or (CDS_Main.FieldByName('hzunit').Value = '<27><><EFBFBD><EFBFBD>') then
              begin
                self.YFSub.FieldByName('Qty').Value := CDS_SUB.FieldByName('FHQTY').AsFloat;
              end
              else
              begin
                self.YFSub.FieldByName('Qty').Value := CDS_SUB.FieldByName('FHms').AsFloat;
              end;
              self.YFSub.FieldByName('rkdate').Value := CDS_Main.FieldByName('FHDate').AsDateTime;
              self.YFSub.post;
              Next;
            end;
          end;
          CDS_Main.Delete;
        end;

        HJJE();

      end;
    end;

  finally
    frmDHXSListSel.free;
  end;

end;

procedure TfrmFYInput.ToolButton5Click(Sender: TObject);
var
  CFactoryName, CKXType: string;
  CQtyFlag: integer;
begin
  try
    frmSXXSListSel3 := TfrmSXXSListSel3.create(self);
    with frmSXXSListSel3 do
    begin

      if showmodal = 1 then
      begin
        while CDS_Main.Locate('SSel', true, []) do

        begin
          with CDS_SUB do
          begin
            First;
            while not Eof do
            begin
              self.YFSub.Append;
              self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('hrname').Value;
              self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('Salesman').AsString;
              self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('SalesCLASS').AsString;
              self.YFSub.FieldByName('YFPZNO').Value := CDS_Main.FieldByName('FSID').Value;
              self.YFSub.FieldByName('KXType').Value := '<27><>Ӧ<EFBFBD><D3A6><EFBFBD>˻<EFBFBD>';
              self.YFSub.FieldByName('CPCode').Value := CDS_SUB.FieldByName('SPrtCodeName').Value;
              self.YFSub.FieldByName('CPColor').Value := CDS_SUB.FieldByName('prtcolor').Value;
              self.YFSub.FieldByName('CPgangno').Value := CDS_SUB.FieldByName('ganghao').Value;
              self.YFSub.FieldByName('PS').Value := CDS_SUB.FieldByName('FHPS').AsInteger;
              self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('hzunit').Value;
              self.YFSub.FieldByName('Qty').Value := CDS_SUB.FieldByName('FHQTY').AsFloat;
              self.YFSub.FieldByName('rkdate').Value := CDS_Main.FieldByName('SQDate').AsDateTime;
              self.YFSub.post;
              Next;
            end;
          end;
          CDS_Main.Delete;
        end;

      end;
    end;

  finally
    frmSXXSListSel3.free;
  end;
end;

procedure TfrmFYInput.FYNAMEBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'FYNAME';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        FYNAME.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.JSRBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'jsr';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        jsr.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.fyytBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'FYYT';
      flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;';
      if ShowModal = 1 then
      begin
        FYYT.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.ZHMCBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'zhmc';
      flagname := '<27>˻<EFBFBD><CBBB><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        ZHMC.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.ToolButton4Click(Sender: TObject);
var
  CFactoryName: string;
begin
  try
    frmJYGLlistSH2 := TfrmJYGLlistSH2.create(self);
    with frmJYGLlistSH2 do
    begin

      if showmodal = 1 then
      begin
        while CDS_Main.Locate('SSel', true, []) do

        begin
          with CDS_SUB do
          begin
            First;
            while not Eof do
            begin

              self.YFSub.Append;
              self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('hrname').Value;
              self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('Salesman').AsString;
              self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('ywzb').AsString;
              self.YFSub.FieldByName('YFPZNO').Value := CDS_Main.FieldByName('INOUTNO').Value;

              self.YFSub.FieldByName('KXType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
              self.YFSub.FieldByName('CPCode').Value := CDS_SUB.FieldByName('P_Code').Value;
              self.YFSub.FieldByName('CPColor').Value := CDS_SUB.FieldByName('P_Color').Value;
              self.YFSub.FieldByName('CPgangno').Value := CDS_SUB.FieldByName('gangno').Value;
              self.YFSub.FieldByName('PS').Value := 0;

              self.YFSub.FieldByName('QtyUnit').Value := CDS_SUB.FieldByName('QtyUnit').Value;

              self.YFSub.FieldByName('Qty').Value := CDS_SUB.FieldByName('qty').AsFloat;
              self.YFSub.FieldByName('rkdate').Value := CDS_Main.FieldByName('CRTime').AsDateTime;
              self.YFSub.post;
              Next;
            end;
          end;
          CDS_Main.Delete;
        end;

      end;
    end;

  finally
    frmJYGLlistSH2.free;
  end;
end;

procedure TfrmFYInput.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'YWY';
      flagname := 'ҵ<><D2B5>Ա';
      if ShowModal = 1 then
      begin
        with YFSub do
        begin
          Edit;
          self.YFSub.FieldByName('YWY').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SalesClass';
      flagname := 'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin
        with YFSub do
        begin
          Edit;
          self.YFSub.FieldByName('YWZB').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('zdyname').AsString);
        end;

      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmFYInput.ToolButton6Click(Sender: TObject);
var
  CFactoryName: string;
begin
  try
    frmTCLIST2 := TfrmTCLIST2.create(self);
    with frmTCLIST2 do
    begin

      if showmodal = 1 then
      begin
        while Order_Main.Locate('SSel', true, []) do

        begin
          with CDS_SUB do
          begin
            First;
            while not Eof do
            begin

              self.YFSub.Append;
              self.YFSub.FieldByName('FactoryName').Value := Order_Main.FieldByName('hrname').Value;
              self.YFSub.FieldByName('YWY').Value := Order_Main.FieldByName('ywy').AsString;
              self.YFSub.FieldByName('YWZB').Value := Order_Main.FieldByName('YWZB').AsString;
              self.YFSub.FieldByName('YFPZNO').Value := Order_Main.FieldByName('MAINID').Value;
              self.YFSub.FieldByName('KXType').Value := '<27>ͻ<EFBFBD><CDBB>˻<EFBFBD>';
              self.YFSub.FieldByName('CPCode').Value := CDS_SUB.FieldByName('PRTCODE').Value;
              self.YFSub.FieldByName('CPColor').Value := CDS_SUB.FieldByName('PRTCOlor').Value;
              self.YFSub.FieldByName('PS').Value := (CDS_SUB.FieldByName('zjyps').AsInteger + +CDS_SUB.FieldByName('fjyps').AsFloat);

              self.YFSub.FieldByName('QtyUnit').Value := CDS_SUB.FieldByName('OrderUnit').Value;

              self.YFSub.FieldByName('Qty').Value := (CDS_SUB.FieldByName('zjyqty').AsFloat + CDS_SUB.FieldByName('fjyqty').AsFloat);

              self.YFSub.post;
              Next;
            end;
          end;
          Order_Main.delete;
        end;
      end;
    end;

  finally
    frmTCLIST2.free;
  end;
end;

procedure TfrmFYInput.ToolButton7Click(Sender: TObject);
var
  CFactoryName, CKXType: string;
  CQtyFlag: integer;
begin
  try
    frmPBOUTSQList := TfrmPBOUTSQList.create(self);
    with frmPBOUTSQList do
    begin
      with frmPBOUTSQList do
      begin
        if showmodal = 1 then
        begin

          while CDS_Main.Locate('SSel', true, []) do
          begin
            self.YFSub.Append;
            self.YFSub.FieldByName('FactoryName').Value := CDS_Main.FieldByName('ToFactoryName').Value;
            self.YFSub.FieldByName('YWY').Value := CDS_Main.FieldByName('YWY').AsString;
            self.YFSub.FieldByName('YWZB').Value := CDS_Main.FieldByName('YWZB').AsString;
            self.YFSub.FieldByName('YFPZNO').Value := CDS_HZ.FieldByName('spid').AsString;
            self.YFSub.FieldByName('KXTYPE').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>';

            self.YFSub.FieldByName('MXOrderNo').Value := CDS_HZ.FieldByName('orderno').Value;
            self.YFSub.FieldByName('CPCode').Value := CDS_HZ.FieldByName('SPCode').Value;
            self.YFSub.FieldByName('RKDATE').Value := CDS_Main.FieldByName('CRTIME').Value;
            self.YFSub.FieldByName('CPColor').Value := CDS_HZ.FieldByName('SPcolor').Value;
            self.YFSub.FieldByName('CPGANGNO').Value := CDS_HZ.FieldByName('gangno').Value;
//            self.YFSub.FieldByName('KXType').Value := CKXType;
            self.YFSub.FieldByName('PS').Value := CDS_HZ.FieldByName('PiQty').AsInteger;
            self.YFSub.FieldByName('Qty').Value := CDS_HZ.FieldByName('Qty').AsFloat;

            self.YFSub.FieldByName('QtyUnit').Value := CDS_HZ.FieldByName('QtyUnit').Value;
            self.YFSub.post;
            CDS_Main.Delete;
          end;

        end;
      end;
    end;
  finally
    frmPBOUTSQList.free;
  end;
end;

end.