unit U_DJBJYInput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
  RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
  ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
  MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;

type
  TfrmDJBJYInput = class(TForm)
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxGridPopupMenu1: TcxGridPopupMenu;
    DataSource1: TDataSource;
    Order_MJ: TClientDataSet;
    ADOQueryMain: TADOQuery;
    ADOCmd: TADOQuery;
    ADOTmp: TADOQuery;
    RMDB_Main: TRMDBDataSet;
    RM2: TRMGridReport;
    DataSource2: TDataSource;
    CDS_MJCD: TClientDataSet;
    DataSource3: TDataSource;
    CDS_MJID: TClientDataSet;
    Timer1: TTimer;
    ADOQueryPrint: TADOQuery;
    cxStyleRepository2: TcxStyleRepository;
    cxStyle3: TcxStyle;
    cxStyleRepository3: TcxStyleRepository;
    cxStyle4: TcxStyle;
    cxStyleRepository4: TcxStyleRepository;
    cxStyle5: TcxStyle;
    cxStyleRepository5: TcxStyleRepository;
    cxStyle6: TcxStyle;
    cxGridPopupMenu2: TcxGridPopupMenu;
    ADOQueryMainDSC: TADOQuery;
    Panel2: TPanel;
    Label9: TLabel;
    MJLen: TEdit;
    Label5: TLabel;
    BTPrint: TButton;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label16: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    APID: TEdit;
    BTEdit: TButton;
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    Button3: TButton;
    Label36: TLabel;
    MJStr4: TEdit;
    Label37: TLabel;
    MJXH: TEdit;
    Label38: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    ADOTmp1: TADOQuery;
    lbl1: TLabel;
    BTAdd: TButton;
    GroupBox1: TGroupBox;
    cxGrid3: TcxGrid;
    Tv3: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    v3Column1: TcxGridDBColumn;
    v3Column2: TcxGridDBColumn;
    v3Column6: TcxGridDBColumn;
    v3Column3: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure FormClick(Sender: TObject);
    procedure BTAddClick(Sender: TObject);
    procedure BTEditClick(Sender: TObject);
    procedure BTPrintClick(Sender: TObject);
    procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
    procedure cxGridDBColumn2PropertiesChange(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure APIDKeyPress(Sender: TObject; var Key: Char);
    procedure Label9Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
    procedure MJQty3Change(Sender: TObject);
    procedure MJStr4Exit(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure MJLenKeyPress(Sender: TObject; var Key: Char);
    procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
  private
    { Private declarations }
    FInt, PState, PrintInt, SCInitGrid, FState, FCK, FFirstJ, FLastJ: Integer;
    FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
    fRollType: string;
    isCommopen, IsJsMessage: boolean;
    MValue, FCDName: string;
    fxsws, fxsws1: string;
    FL: string;
    FJC: Double;
    procedure InitDDSL();
    procedure InitCDGridID();
    procedure AddCD(Fbtn: TButton);
    function SaveData(): Boolean;
    procedure BtnStatus(BSInt: Boolean);
    procedure AddCDNew(Fbtn: TSpeedButton);
    procedure PrtData(FMJID: string);
  public
    fmanage: string;
    FLen1: Double;
    { Public declarations }

  end;

var
  frmDJBJYInput: TfrmDJBJYInput;
  newh, newh1: hwnd;

implementation

uses
  U_DataLink, U_Fun, U_ZDYHelp, U_iniParam;

{$R *.dfm}

procedure TfrmDJBJYInput.FormDestroy(Sender: TObject);
begin
  frmDJBJYInput := nil;
end;

procedure TfrmDJBJYInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmDJBJYInput.InitCDGridID();
begin
  with ADOQueryMain do
  begin
    Close;
    SQL.Clear;
    sql.Add('select ');
    sql.Add(' A.* from WFB_MJJY_DJB A where APID=''' + Trim(FAPID) + '''');
    sql.Add(' order by FillTime desc');
    Open;
  end;
  SCreateCDS20(ADOQueryMain, CDS_MJID);
  SInitCDSData20(ADOQueryMain, CDS_MJID);
end;

procedure TfrmDJBJYInput.InitDDSL();
begin
  with ADOTmp do
  begin
    Close;
    SQL.Clear;
    sql.Add('select sum(mjlen) as ZPLen,sum(MJQty4) as ZPJZ,sum(MJMaoz) as ZPMZ,count(mjid) as ZPPI from WFB_MJJY_DJB where apid=''' + trim(FAPID) + ''' and MJType=''正品''  ');
    Open;
  end;
  lbl1.Visible := True;
  lbl1.Caption := '正品匹数：' + ADOTmp.fieldbyname('ZPPI').AsString + '   正品长度：' + ADOTmp.fieldbyname('ZPLen').AsString;
end;

procedure TfrmDJBJYInput.TBCloseClick(Sender: TObject);
var
  maxno: string;
begin
  if CDS_MJCD.IsEmpty = False then
  begin
    if Trim(CDS_MJCD.FieldByName('MCID').AsString) = '' then
    begin

    end
    else
    begin
      Close;
    end;
  end
  else
  begin
    Close;
  end;

end;

procedure TfrmDJBJYInput.AddCD(Fbtn: TButton);
begin
  if PState < 1 then
    Exit;
  if Order_MJ.IsEmpty then
    Exit;
  with CDS_MJCD do
  begin
    Append;
    FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption);
    Post;
  end;
end;

procedure TfrmDJBJYInput.AddCDNew(Fbtn: TSpeedButton);
begin
  with CDS_MJCD do
  begin
    Append;
    FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint);
    Post;
  end;
end;

procedure TfrmDJBJYInput.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  FInt := 4;
  InitCDGridID();
end;

procedure TfrmDJBJYInput.FormClick(Sender: TObject);
begin
  FInt := 4;
end;

function TfrmDJBJYInput.SaveData(): Boolean;
var
  maxno, FMJID, BZID, strsql: string;
  FMJLen: Double;
  FOrder: Integer;
begin

  result := false;
  if PState = 1 then
    FMJID := ''
  else if PState = 2 then
    FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString)
  else if PState < 1 then
    Exit;

  if PState = 1 then
  begin

    if fRollType = '按订单生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end
    else if fRollType = '按缸号生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
        sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end
    else if fRollType = '无规则生成' then
    begin

    end
    else if fRollType = '按指定生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
//        sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
        sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
        sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        if strtoint(mjxh.Text) > flastj then
        begin
          Application.MessageBox('卷号超出范围！', '提示', 0);
          exit;
        end;
      end;
    end
    else
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end;

  end;
  try
    ADOCmd.Connection.BeginTrans;


    ///保存主表
    with ADOCmd do
    begin
      Close;
      sql.Clear;
      SQL.Add('select * from WFB_MJJY_DJB where MJId=''' + Trim(FMJID) + '''');
      Open;
    end;
    with ADOCmd do
    begin
      if Trim(FMJID) = '' then
      begin
        Append;
        if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY_DJB', 4, 1) = False then
        begin
          ADOCmd.Connection.RollbackTrans;
          Application.MessageBox('生成流水号异常！', '提示', 0);
          exit;
        end;
      end
      else
      begin
        maxno := Trim(FMJID);
        Edit;
      end;
      FieldByName('MainId').value := Trim(FMainId);
      FieldByName('SubId').value := Trim(FSubId);
      FieldByName('APId').value := Trim(FAPId);
      FieldByName('MJID').Value := Trim(maxno);
      FieldByName('MJStr2').Value := '未入库';
      if trim(MJstr4.Text) = '' then
      begin
        FieldByName('MJstr4').Value := '0';
      end
      else
      begin
        FieldByName('MJstr4').Value := Trim(MJstr4.Text);
      end;

      if combobox2.ItemIndex = 2 then
      begin
        FieldByName('mjxh').Value := '0';
      end
      else if combobox2.ItemIndex = 3 then
      begin
        FieldByName('mjxh').Value := '0';
      end
      else if combobox2.ItemIndex = 4 then
      begin
        FieldByName('mjxh').Value := '0';
      end
      else
      begin
        FieldByName('mjxh').Value := Trim(mjxh.Text);
      end;
      FieldByName('MJTypeOther').Value := Trim(Label9.Caption);

      FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0);

      FieldByName('MJType').Value := '';

      FieldByName('MJType').Value := combobox2.Text;

      if Trim(FMJID) = '' then
      begin
        FieldByName('Filler').Value := Trim(DName);
      end
      else
      begin
        FieldByName('Editer').Value := Trim(DName);
        FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp);
      end;
      if Trim(SCXFlag) <> '' then
      begin
        FieldByName('JTType').Value := Trim(SCXFlag);
      end;

      FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
      Post;

    end;
    if PState = 1 then
    begin
      if combobox2.ItemIndex = 2 then
      begin

      end
      else if combobox2.ItemIndex = 3 then
      begin

      end
      else if combobox2.ItemIndex = 4 then
      begin

      end
      else if fRollType = '按订单生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.mainID=WFB_MJJY_DJB.mainID and X.MJID<>WFB_MJJY_DJB.MJID),0)');
          sql.Add('where MJID=''' + Trim(maxno) + '''');
          execsql;
        end;
      end
      else if fRollType = '按缸号生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.subID=WFB_MJJY_DJB.subID and X.mjstr4=WFB_MJJY_DJB.mjstr4 and X.MJID<>WFB_MJJY_DJB.MJID),0)');
          sql.Add('where MJID=''' + Trim(maxno) + '''');
          execsql;
        end;
      end
      else if fRollType = '无规则生成' then
      begin
        with ADOCmd do
        begin

        end;
      end
      else if fRollType = '按指定生成' then
      begin
        with ADOCmd do
        begin

        end;
      end
      else
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('update WFB_MJJY_DJB SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY_DJB X where X.subID=WFB_MJJY_DJB.subID  and X.MJID<>WFB_MJJY_DJB.MJID),0)');
          sql.Add('where MJID=''' + Trim(maxno) + '''');
          execsql;
        end;
      end;
    end;

    if combobox2.ItemIndex = 2 then
    begin
      if fRollType = '按订单生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end
      else if fRollType = '按缸号生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
          sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end
      else if fRollType = '无规则生成' then
      begin

      end
      else if fRollType = '按指定生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
//          sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
          sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
          sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
          if strtoint(mjxh.Text) > flastj then
          begin
            Application.MessageBox('卷号超出范围！', '提示', 0);
            exit;
          end;
        end;
      end
      else
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end;
    end
    else if combobox2.ItemIndex = 3 then
    begin
      if fRollType = '按订单生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fmainId) + ''' ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end
      else if fRollType = '按缸号生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
          sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end
      else if fRollType = '无规则生成' then
      begin

      end
      else if fRollType = '按指定生成' then
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
//          sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
          sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
          sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
          if strtoint(mjxh.Text) > flastj then
          begin
            Application.MessageBox('卷号超出范围！', '提示', 0);
            exit;
          end;
        end;
      end
      else
      begin
        with ADOCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
          sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
          Open;
          MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        end;
      end;
    end
    else
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select MJXH from WFB_MJJY_DJB');
        sql.Add('where MJID=''' + Trim(maxno) + '''');
        open;
        if not IsEmpty then
        begin
          MJXH.Text := fieldbyname('mjxh').AsString;
        end;
      end;
    end;

    with ADOCmd do
    begin
      Close;
      sql.Clear;
      sql.add('exec P_Do_JYRK ''' + trim(maxno) + ''',''' + trim(DName) + ''' ');
      execsql;
    end;

    FMJID := Trim(maxno);
    FFFMJID := Trim(maxno);

    ADOCmd.Connection.CommitTrans;
    Result := True;
  except
    btprint.Enabled := true;
    Result := False;
    ADOCmd.Connection.RollbackTrans;
    Application.MessageBox('保存失败！', '提示', 0);
  end;
end;

procedure TfrmDJBJYInput.BTAddClick(Sender: TObject);
begin
  if Trim(Label24.Caption) = '' then
    Exit;

  PState := 1;
  InitCDGridID();
  BtnStatus(True);
  Label16.Caption := '新增';
end;

procedure TfrmDJBJYInput.BTEditClick(Sender: TObject);
begin
  if CDS_MJID.IsEmpty then
    Exit;
  PState := 2;
  Label16.Caption := '修改';
end;

procedure TfrmDJBJYInput.BTPrintClick(Sender: TObject);
var
  fPrintFile: string;
  mvalue: Double;
  mvalue1: integer;
  i: Integer;
  FLen2: Double;
begin

  if (strtofloatdef(trim(MJLen.Text), 0) = 0) then
  begin
    application.MessageBox('长度不能为零！', '提示信息', 0);
    exit;
  end;

  if Trim(FAPID) = '' then
    Exit;

  if trim(MJXH.text) = '' then
  begin
    application.MessageBox('卷号不能为空', '提示');
    exit;
  end;

  if trim(Label9.Caption) = '' then
  begin
    Application.MessageBox('长度单位不能为空!', '提示', 0);
    Exit;
  end;

  if ComboBox2.Text = '' then
  begin
    Application.MessageBox('类型不能为空!', '提示', 0);
    Exit;
  end;

  with ADOTmp do
  begin
    Close;
    SQL.Clear;
    sql.Add('select sum(mjlen) as ZPLen,count(mjid) as ZPPI from WFB_MJJY_DJB where apid=''' + trim(FAPID) + ''' ');
    Open;
  end;

  FLen2 := StrToFloatDef(ADOTmp.fieldbyname('ZPLen').asstring, 0);

  FLen2 := StrToFloatDef(Format('%.2f', [FLen2 + StrToFloatDef(MJLen.Text, 0)]), 0);

  if FLen2 > FLen1 then
  begin
    Application.MessageBox('总数量超过待检布出库登记的数量，不能保存!', '提示', 0);
    Exit;
  end;

  btprint.Enabled := false;

  if SaveData() then
  begin

    MJLen.Text := '';
    ComboBox2.ItemIndex := 0;

    if combobox2.ItemIndex = 0 then
      MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
    if combobox2.ItemIndex = 1 then
      MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);

    if PState = 2 then
    begin
      apid.Text := FAPID;
      Button3.Click;
    end;

  end
  else
  begin
    btprint.Enabled := true;
    exit;
  end;

  btprint.Enabled := true;
  Label16.Caption := '';
  BTAdd.Click;
  InitDDSL();
  MJLen.SetFocus;
end;

procedure TfrmDJBJYInput.PrtData(FMJID: string);
var
  fPrintFile: string;
  Txt, fImagePath: string;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
begin

  with ADOQueryPrint do
  begin
    Close;
    SQL.Clear;
    sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.conno ');
    sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
    sql.Add(',B.MPRTCF,C.*,A.* ');
    sql.Add(' from WFB_MJJY_DJB A');
    sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
    sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
    SQL.Add(' where A.MJID=''' + Trim(FMJID) + '''');
    Open;
  end;

  try
    Moudle := LoadLibrary('MakeQRBarcode.dll');
    @Makebar := GetProcAddress(Moudle, 'Make');
    @Mixtext := GetProcAddress(Moudle, 'MixText');
    Txt := Trim(ADOQueryPrint.fieldbyname('MJID').AsString);
    fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
    if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
      CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
    if FileExists(fImagePath) then
      DeleteFile(fImagePath);
    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
  except
    application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
    CDS_MJID.EnableControls;
    exit;
  end;
  if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
  begin
    fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
    ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
  end
  else
  begin
    fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用标签.rmf';
    ExportFtErpFile('通用标签.rmf', ADOCmd);
  end;

  if FileExists(fPrintFile) then
  begin
    RMVariables['QRBARCODE'] := fImagePath;
    RM2.LoadFromFile(fPrintFile);

    RM2.PrintReport;
  end
  else
  begin
    Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
  end;
end;

procedure TfrmDJBJYInput.BtnStatus(BSInt: Boolean);
begin
 // Tv2.OptionsSelection.CellSelect:=BSInt;
end;

procedure TfrmDJBJYInput.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
var
  mvalue: string;
begin
  try
    mvalue := TcxTextEdit(Sender).EditingText;
    if Trim(mvalue) <> '' then
    begin
      CDS_MJCD.Edit;
      CDS_MJCD.FieldByName('CDQty').Value := mvalue;
      CDS_MJCD.Post;
    end
    else
    begin
      CDS_MJCD.Edit;
      CDS_MJCD.FieldByName('CDQty').Value := 0;
      CDS_MJCD.Post;
    end;
    CDS_MJCD.Edit;
    CDS_MJCD.FieldByName('CDQtyS').Value := mvalue;
  except
    Application.MessageBox('非法数字！', '提示', 0);
  end;
end;

procedure TfrmDJBJYInput.cxGridDBColumn2PropertiesChange(Sender: TObject);
var
  fsj: string;
begin

  fsj := Trim(Order_MJ.fieldbyname('SubId').AsString);
  Order_MJ.DisableControls;
  with Order_MJ do
  begin
    First;
    while not Eof do
    begin
      if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then
      begin
        Edit;
        FieldByName('SSel').Value := False;
      end;
      Next;
    end;
  end;
  Order_MJ.EnableControls;
  Order_MJ.Locate('SubId', fsj, []);
end;

procedure TfrmDJBJYInput.Button20Click(Sender: TObject);
var
  fPrintFile: string;
  i: Integer;
begin
  if CDS_MJID.IsEmpty then
    Exit;
  PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
end;

procedure TfrmDJBJYInput.APIDKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Button3.Click;
  end;
end;

procedure TfrmDJBJYInput.Label9Click(Sender: TObject);
begin
  if trim(Label9.Caption) = 'M' then
  begin
    Label9.Caption := 'Y';
  end
  else
  begin
    Label9.Caption := 'M';
  end;
end;

procedure TfrmDJBJYInput.Button3Click(Sender: TObject);
var
  FBaoID: string;
begin
  fRollType := '';
  with ADOTmp do
  begin
    Close;
    sql.Clear;
    sql.Add('select B.*,B.OrderNo OrderNoM,C.*,D.gangno GN,D.firstJ,D.lastJ, ');
    sql.add('maxMJxh=case when B.Orddefstr15=''按指定生成'' then isnull((select max(mjxh) from WFB_MJJY_DJB X where X.SubID=C.subID and cast(X.mjxh as int)>=cast(D.firstJ as int) and cast(X.mjxh as int)<=cast(D.lastJ as int)),(cast(D.firstJ as int)-1))');
    sql.Add('else isnull((select max(mjxh) from WFB_MJJY_DJB X where X.SubID=C.subID),0) end,');
    sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY_DJB X where X.subID=C.subID ),0)');
    sql.Add('from JYOrder_Sub C');
    SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
    sql.add('inner join CK_SXPB_CR D on D.ORDSubIdCK=C.subid and D.SPID=''' + Trim(APID.Text) + '''');
    sql.Add('where exists(select SPID from CK_SXPB_CR X where X.OrdsubIDCK=C.subID and X.SPID=''' + Trim(APID.Text) + ''' )');
//      showmessage(sql.text);
    Open;
  end;
  if ADOTmp.IsEmpty = False then
  begin

    fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
    Label24.Visible := True;
    Label24.Caption := '订单号:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
    Label38.Visible := True;
    Label38.Caption := '颜色:' + Trim(ADOTmp.fieldbyname('PRTColor').AsString);
    Label25.Visible := True;
    Label25.Caption := '色号:' + Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
    Label2.Visible := true;
    Label2.Caption := '花型号:' + Trim(ADOTmp.fieldbyname('PRTHX').AsString);
    FAPID := Trim(APID.Text);

    FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
    FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
    MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);
    FJC := StrToFloatDef(ADOTmp.fieldbyname('jiaChang').asstring, 0);
    fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
    fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);

    MJStr4.Text := '1';

    if trim(ADOTmp.fieldbyname('Orddefstr15').AsString) = '按指定生成' then
    begin
      FFirstJ := ADOTmp.fieldbyname('firstJ').AsInteger;
      FlastJ := ADOTmp.fieldbyname('lastJ').AsInteger;
    end;
  end
  else
  begin
    Application.MessageBox('条码错误!', '提示', 0);
    Label2.Visible := False;
    Label2.Caption := '';
    APID.Text := '';
    FAPID := '';
    FMainId := '';
    FSubId := '';
    MJStr4.Text := '';
    fRollType := '';
    Exit;
  end;

  InitDDSL();

  APID.Text := '';
  BTAdd.Click;
end;

procedure TfrmDJBJYInput.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
//    BTPrint.Click;
  end;
end;

procedure TfrmDJBJYInput.MJQty3Change(Sender: TObject);
begin
 // MJQty3.Text:=JsXj(MJQty3.Text);
end;

procedure TfrmDJBJYInput.MJStr4Exit(Sender: TObject);
begin
  if Pstate = 1 then
  begin
    if fRollType = '按订单生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.mainID=''' + trim(fMainID) + ''' ');
       //   sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text)));
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end
    else if fRollType = '按缸号生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
        sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end
    else if fRollType = '无规则生成' then
    begin

    end
    else if fRollType = '按指定生成' then
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),(cast(''' + inttostr(FFirstJ) + ''' as int) - 1)) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
//        sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
        sql.add('and mjxh>=cast(''' + inttostr(FFirstJ) + ''' as int) ');
        sql.add('and mjxh<=cast(''' + inttostr(FLastJ) + ''' as int) ');
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
        if strtoint(mjxh.Text) > flastj then
        begin
          Application.MessageBox('卷号超出范围！', '提示', 0);
          exit;
        end;
      end;
    end
    else
    begin
      with ADOCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
        sql.Add('from WFB_MJJY_DJB X where X.subID=''' + trim(FSubId) + ''' ');
        Open;
        MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
      end;
    end;
  end;
end;

procedure TfrmDJBJYInput.ToolButton3Click(Sender: TObject);
begin
  if CDS_MJID.IsEmpty then
    exit;
  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
    Exit;

  with ADOCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('delete WFB_MJJY_DJB where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
    execsql;
  end;
  InitCDGridID();
  InitDDSL();
end;

procedure TfrmDJBJYInput.MJLenKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    BTPrint.Click;
  end;
end;

procedure TfrmDJBJYInput.Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  if CDS_MJID.IsEmpty then
    exit;
  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
    Exit;

  with ADOCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('delete WFB_MJJY_DJB where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' ');
    execsql;
  end;
  InitCDGridID();
  InitDDSL();
end;

end.