D7gmYushang/应收应付/U_QTFYInput.pas

unit U_QTFYInput;

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
  TfrmQTFYInput = class(TForm)
    DataSource1: TDataSource;
    YFSub: TClientDataSet;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ToolBar1: TToolBar;
    TSave: TToolButton;
    TBClose: TToolButton;
    ToolBar2: TToolBar;
    TADD: TToolButton;
    TDEl: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    ZBID: TEdit;
    Label2: TLabel;
    FYDATE: TDateTimePicker;
    ADOQueryTmp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Label8: TLabel;
    Label7: TLabel;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    Tv2Column8: TcxGridDBColumn;
    v2Note: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    CCREN: TEdit;
    Label3: TLabel;
    xmNAME: TEdit;
    Label4: TLabel;
    BEGPLACE: TEdit;
    Label5: TLabel;
    endPLACE: TEdit;
    Label6: TLabel;
    Label9: TLabel;
    BEGDATE: TDateTimePicker;
    Label10: TLabel;
    ENDDATE: TDateTimePicker;
    Label13: TLabel;
    DAYS: TEdit;
    Label17: TLabel;
    BTBZ: TEdit;
    Label18: TLabel;
    Note: TEdit;
    Label14: TLabel;
    ywzb: TBtnEditA;
    ZTGJ: TBtnEditA;
    Label15: TLabel;
    FKFS: TEdit;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    Tv2Column3: TcxGridDBColumn;
    SY: TBtnEditA;
    Label11: TLabel;
    FILLER: TEdit;
    FILLTIME: TDateTimePicker;
    Tv2Column4: TcxGridDBColumn;
    Tv2Column5: TcxGridDBColumn;
    Tv2Column6: TcxGridDBColumn;
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TSaveClick(Sender: TObject);
    procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure TADDClick(Sender: TObject);
    procedure TDElClick(Sender: TObject);
    procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure HuiLvKeyPress(Sender: TObject; var Key: Char);
    procedure Panel1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
//    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure ToolButton6Click(Sender: TObject);
    procedure ywzbBtnClick(Sender: TObject);
    procedure ZTGJBtnClick(Sender: TObject);
    procedure SYBtnClick(Sender: TObject);
    procedure Tv2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
  private
    procedure initGrid();
    procedure SaveDate();

    { Private declarations }
  public
    FYFID: string;
    canshu1: string;
    { Public declarations }
  end;

var
  frmQTFYInput: TfrmQTFYInput;

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;
{$R *.dfm}

procedure TfrmQTFYInput.SaveDate();
var
  MaxYFSID, MaxYFID: string;
begin
  ADOQueryCmd.Connection.BeginTrans;
  try
    if trim(FYFID) = '' then
    begin
      if GetLSNo(ADOQueryTmp, MaxYFID, 'QT', 'CW_QTFEE', 4, 1) = False then
      begin
        Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
        Exit;
      end;
      ZBID.Text := MaxYFID;
    end
    else
    begin
      MaxYFID := trim(FYFID);
    end;

    with YFSub do
    begin
      first;
      while not eof do
      begin
        if fieldbyname('FYID').AsString = '' then
        begin
          if GetLSNo(ADOQueryTmp, MaxYFSID, 'FY', 'CW_QTFEE', 4, 1) = False then
          begin
            Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
            Exit;
          end;
        end
        else
        begin
          MaxYFSID := YFSub.fieldbyname('FYID').AsString;
        end;
        with ADOQueryCmd do
        begin
          close;
          sql.Clear;
          sql.add('select * from CW_QTFEE where FYID=' + Quotedstr(trim(MaxYFSID)));
          open;
        end;
        if ADOQueryCmd.IsEmpty then
        begin
          ADOQueryCmd.append;
          ADOQueryCmd.Fieldbyname('FYID').value := trim(MaxYFSID);
          ADOQueryCmd.Fieldbyname('ZBID').value := trim(MaxYFID);
//          ADOQueryCmd.FieldByName('Filler').Value := Trim(DName);
//          ADOQueryCmd.FieldByName('Filltime').AsString := (FormatDateTime('yyyy-MM-dd', SGetServerDateTime(ADOQueryTmp)));

        end
        else
        begin
          ADOQueryCmd.edit;
          ADOQueryCmd.FieldByName('Editer').Value := Trim(DName);
          ADOQueryCmd.FieldByName('EditTime').AsString := (FormatDateTime('yyyy-MM-dd', SGetServerDateTime(ADOQueryTmp)));

        end;
//        with ADOQueryCmd do
//        begin
//          close;
//          sql.Clear;
//          sql.add('select * from CW_QTFEE where zbID=' + Quotedstr(trim(MaxYFID)));
//          open;
//        end;
//        if ADOQueryCmd.IsEmpty = false then
//        begin
//
//        end;

        SSetsaveSqlnew(ADOQueryCmd, 'CW_QTFEE', panel1, 0);
        RTSetSaveDataCDS(ADOQueryCmd, Tv2, YFSub, 'CW_QTFEE', 0);

        ADOQueryCmd.Post;

        with ADOQueryTmp do
        begin
          close;
          sql.Clear;
          sql.add('update  CW_QTFEE set sbmoney=money-kcmoney where zbID=' + Quotedstr(trim(MaxYFID)));
         // sql.Add('and sbmoney is null');
          ExecSQL;
        end;

        with YFSub do
        begin
          Edit;
          YFSub.Fieldbyname('FYID').value := trim(MaxYFSID);
          YFSub.Fieldbyname('ZBID').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 TfrmQTFYInput.initGrid();
begin
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CW_QTFEE where ZBID=' + quotedstr(trim(FYFID)));
    open;
  end;
  if ADOQueryTmp.isempty = False then
  begin
    SCSHDataNew(ADOQueryTmp, Panel1, 0);
  end
  else
  begin
    FILLER.Text := Trim(DName);
    FYDATE.DateTime := SGetServerDate(ADOQueryTmp);
    BEGDATE.DateTime := SGetServerDate(ADOQueryTmp);
    BEGDATE.Checked := False;
    ENDDATE.DateTime := SGetServerDate(ADOQueryTmp);
    ENDDATE.Checked := False;
    FILLTIME.DateTime := SGetServerDate(ADOQueryTmp);
  end;
  with ADOQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from CW_QTFEE where ZBID=''' + trim(FYFID) + '''');
    open;
  end;
  SCreateCDS20(ADOQueryTmp, YFSub);
  SInitCDSData20(ADOQueryTmp, YFSub);
  if canshu1 = '<27><><EFBFBD><EFBFBD>' then
  begin
    Tv2Column6.Visible := true;
    Tv2Column6.Hidden := False;
  end
  else
  begin
    Tv2Column6.Visible := False;
    Tv2Column6.Hidden := true;
  end;
end;

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

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

procedure TfrmQTFYInput.TSaveClick(Sender: TObject);
var
  FReal: double;
begin
  if YFSub.IsEmpty = True then
  begin
    application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', MB_ICONERROR);
    Exit;
  end;
  if BEGDATE.Checked = false then
  begin
    application.MessageBox('<27><><EFBFBD><EFBFBD>д<EFBFBD><D0B4>ʼʱ<CABC>䣡', '<27><>ʾ', MB_ICONERROR);
    Exit;
  end;
  if endDATE.Checked = false then
  begin
    application.MessageBox('<27><><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD><EFBFBD>ʱ<EFBFBD>䣡', '<27><>ʾ', MB_ICONERROR);
    Exit;
  end;
  SaveDate();
end;

procedure TfrmQTFYInput.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 TfrmQTFYInput.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 TfrmQTFYInput.TADDClick(Sender: TObject);
begin
  with YFSub do
  begin
    Append;
    FieldByName('ZDATE').Value := SGetServerDate(ADOQueryTmp);
    FieldByName('kcmoney').Value := 0;
    Post;
  end;

end;

procedure TfrmQTFYInput.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('FYID').asstring) = '' then
  begin
    YFSub.delete;
//    HJJE();
  end
  else
  begin
    with ADOQueryTmp do
    begin
      close;
      sql.clear;
      sql.add('delete from CW_QTFEE where FYID=''' + trim(YFSub.fieldbyname('FYID').asstring) + ''' ');
      execsql;
    end;
    YFSub.delete;
//    HJJE();
//    TSave.Click;
  end;

end;

procedure TfrmQTFYInput.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('ZDYNo').AsString);
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
  //self.tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmQTFYInput.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 TfrmQTFYInput.Panel1Click(Sender: TObject);
begin
  CCREN.SetFocus;
end;

procedure TfrmQTFYInput.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 TfrmQTFYInput.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 TfrmQTFYInput.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;

      end;
    end;

  finally
    frmDHXSListSel.free;
  end;

end;

procedure TfrmQTFYInput.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 TfrmQTFYInput.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 TfrmQTFYInput.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 TfrmQTFYInput.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('YWZB').AsString);
        end;

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

procedure TfrmQTFYInput.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 TfrmQTFYInput.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 TfrmQTFYInput.ZTGJBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'ztgj';
      flagname := '<27><>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin

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

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

procedure TfrmQTFYInput.SYBtnClick(Sender: TObject);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SY';
      flagname := '<27><><EFBFBD><EFBFBD>';
      if ShowModal = 1 then
      begin

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

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

procedure TfrmQTFYInput.Tv2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZdyAttachment := TfrmZdyAttachment.Create(Application);
    with frmZdyAttachment do
    begin
      if ShowModal = 1 then
      begin
        with YFSub do
        begin
          Edit;
          FieldByName('khname').value := Trim(CDS_HZ.fieldbyname('CoName').AsString);
        end;

      end;
    end;
  finally
    frmZdyAttachment.Free;
  end;
end;

end.