bas_item_d0.pas

一个MRPII系统源代码版本

    Edt_Mnldtime.text:=inttostr(fieldbyname('mnldtime').asinteger);
    Edt_minqty.text:=floattostr(fieldbyname('minqty').asfloat);
    Edt_PmBatch.text:=fieldbyname('PmBatch').asstring;
    Edt_DeptCode.text:=fieldbyname('DeptCode').asstring;
    lbl_DeptName.Caption:=fieldbyname('DeptName').asstring;
    Edt_Capacityhours.Text :=fieldbyname('Capacityhours').asstring;
    edt_mat.Text:=fieldbyname('Material').asstring;
    LEdt_InspecTEmployeeCode.Text:=fieldbyname('InspecTEmployeeCode').asstring;
    Lbl_InspecTEmployeeName.Caption:=fieldbyname('InspecTEmployeeName').asstring;
    edt_remArk.text:=fieldbyname('remArk').asstring;
    Cmbbx_ScrApType.ItemIndex:=fieldbyname('ScrApType').asinteger-1;
    lbl_CaiGou.Caption:=fieldbyname('CaiGou').asstring;
    lbl_JiHua.Caption:=fieldbyname('JiHua').asstring;
    cmbbx_PmCode.Itemindex:=fieldbyname('PmCode').asinteger;
    Extedt_AssetKmCode.text:=fieldbyname('AssetKmCode').asstring;
    Label48.Caption:=fieldbyname('KmName').asstring;
    if cmbbx_PmCode.ItemIndex=0 then
      begin
      edt_DeptCode.OnKeyDown:=DeptHint;
      edt_DeptCode.OnExit:=getDeptName;
      end
    else 
      begin
      edt_DeptCode.OnKeyDown:=VendorHint;
      edt_DeptCode.OnExit:=getVendorName;
      end;
    Extedt_Wh_EmployeeCode.Text:=fieldbyname('wh_EmployeeCode').asstring;
    lbl_Wh_EmployeeName.Caption:=fieldbyname('wh_EmployeeName').asstring;
    if fieldbyname('onlydefaultwh').asinteger=1 then
       cmbbx_onlydefaultwh.Itemindex:=fieldbyname('onlydefaultwh').asinteger
    else
       cmbbx_onlydefaultwh.Itemindex:=0;

    if fieldbyname('canSale').asinteger=1 then
       cmbbx_CanSale.ItemIndex:=1
    else
       cmbbx_CanSale.ItemIndex:=0;
    if fieldbyname('LongPurchLT').asinteger=1 then
       cmbbx_LongPurchLT.ItemIndex:=fieldbyname('LongPurchLT').asinteger
    else
       cmbbx_LongPurchLT.ItemIndex:=0;
    cmbbx_iScheck.ItemIndex:=fieldbyname('iScheck').asinteger;
    Extedt_ItemCode2.text:=fieldbyname('ItemCode2').asstring;
    Extedt_BarCode.text:=fieldbyname('BarCode').asstring;
    if fieldbyname('ItemUsable').asinteger=1 then
      cmbbx_ItemUsable.Itemindex:=fieldbyname('ItemUsable').asinteger
    else
      cmbbx_ItemUsable.Itemindex:=0;

    if fieldbyname('limitout').asinteger=1 then
      cmbbx_limitout.Itemindex:=fieldbyname('limitout').asinteger
    else
      cmbbx_limitout.Itemindex:=0;

    if fieldbyname('Batchstrat').asinteger=1 then
      cmbbx_Batchstrat.Itemindex:=fieldbyname('Batchstrat').asinteger
    else
      cmbbx_Batchstrat.Itemindex:=0;

    if fieldbyname('BatchCtrl').asinteger=1 then
      cmbbx_BatchCtrl.Itemindex:=fieldbyname('BatchCtrl').asinteger
    else
      cmbbx_BatchCtrl.Itemindex:=0;
    edt_CurrentonhandInv.Text :=floattostr(fieldbyname('CurrentonhandInv').asfloat);
    edt_CurrentonCheckInv.Text :=floattostr(fieldbyname('CurrentonCheckInv').asfloat);
    edt_CurrentFreezeInv.Text :=floattostr(fieldbyname('CurrentFreezeInv').asfloat);
    edt_CurrentOnShipInv.Text :=floattostr(fieldbyname('CurrentOnShipInv').asfloat);
    edt_CurrentWasterInv.Text :=floattostr(fieldbyname('CurrentWasterInv').asfloat);
    edt_OpInv.Text :=floattostr(fieldbyname('opInv').asfloat);
    lbl_Warehouse.Caption:=fieldbyname('whName').asstring;
    if Add then
      Cmbbx_ISStockItem.ItemIndex:=1
    else
      Cmbbx_ISStockItem.ItemIndex:=fieldbyname('ISStockItem').asinteger;
  end;
  Extedt_UomCode.Enabled :=True;
  if not (Add) then
  begin
      with AdoQry_tmp do
      begin
       Close;
       sql.clear;
       sql.Add('select Count(*) nn from InvInBillLine b where '+
               'b.ItemCode='''+Edt_ItemCode.Text+'''');
       open;
       if fieldbyname('nn').asinteger>0 then
       Extedt_UomCode.Enabled :=False;
       if  Extedt_UomCode.Enabled then
       begin
         Close;
         sql.clear;
         sql.Add('select Count(*) nn from InvOutBillLine b where '+
                 'b.ItemCode='''+Edt_ItemCode.Text+'''');
         open;
         if fieldbyname('nn').asinteger>0 then
         Extedt_UomCode.Enabled :=False;
       end;
      end;
  end;
  if reAd_flag then
     Extedt_UomCode.Enabled:=False;
  //根据系统参数的进行控件设置
  initSysParamName;
end;

procedure TFrm_Bas_Item_D0.SaveData;
var
 sql_Itemdisabletime,str_Itemdisabletime,str_ModifyItemdisabletime:string;
 Add_Wh_EmployeeCode,Add_Str_Wh_EmployeeCode,modify_Str_Wh_EmployeeCode,Add_EmployeeCode,Add_Str_EmployeeCode,modify_EmployeeCode,modify_Str_EmployeeCode:string;
 Add_Pla_EmployeeCode,Add_Str_Pla_EmployeeCode,modify_Pla_EmployeeCode,modify_Str_Pla_EmployeeCode:string;
 Itemmodifytime,Add_WhCode,Add_Str_WhCode,modify_Str_WhCode,Add_DeptCode,Add_Str_DeptCode,modify_Str_DeptCode:string;
 canmodify_Itemmodifytime,canmodify_remArk:boolean;
 sAssetKmCode,sAssetKmCode1:string;

begin
  Inherited;
  //控制有效日期
  if not (Add) then
  begin
    canmodify_Itemmodifytime:=False;
    if AdoQry_Item.fieldbyname('ItemCode').asstring<>edt_ItemCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemName').asstring<>edt_ItemName.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('UomCode').asstring<>Extedt_UomCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('designno').asstring<>Edt_Designno.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemUsable').asinteger<>cmbbx_ItemUsable.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('LongPurchLT').asinteger<>cmbbx_LongPurchLT.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('wh_EmployeeCode').asstring<>Extedt_Wh_EmployeeCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemType').asinteger<>cmbbx_ItemType.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('EmployeeCode').asstring<>ExtEdt_EmployeeCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('EmployeeCode').asstring<>ExtEdt_EmployeeCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('Pla_EmployeeCode').asstring<>ExtEdt_Pla_EmployeeCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('whCode').asstring<>Extedt_WhCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('onlydefaultwh').asinteger<>cmbbx_onlydefaultwh.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('maxqty').asstring<>Edt_maxqty.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('minqty').asstring<>Edt_minqty.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('limitout').asinteger<>cmbbx_limitout.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('purchldtime').asstring<>Edt_Purchldtime.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('PrepareLT').asstring<>Edt_PrepareLT.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('RunLT').asstring<>Edt_RunLT.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('QcLT').asstring<>Edt_QcLT.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('mnldtime').asstring<>Edt_Mnldtime.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('PmCode').asinteger<>cmbbx_PmCode.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('Batchstrat').asinteger<>cmbbx_Batchstrat.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('PmBatch').asstring<>Edt_PmBatch.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('DeptCode').asstring<>edt_DeptCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('BarCode').asstring<>Extedt_BarCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('BatchCtrl').asinteger<>cmbbx_BatchCtrl.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('Capacityhours').asstring<>edt_Capacityhours.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('canSale').asinteger<>cmbbx_CanSale.Itemindex then
    begin
      canmodify_Itemmodifytime:=True;
    end;
{    if AdoQry_Maintain.fieldbyname('CurrentOnHandInv').asstring<>edt_CurrentOnHandInv.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Maintain.fieldbyname('CurrentOnCheckInv').asstring<>edt_CurrentOnCheckInv.text then
    begin
      canmodify_Itemmodifytime:=True;
    end; }
    if AdoQry_Item.fieldbyname('ClassCode').asstring<>edt_ClassCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ProductClass').asstring<>edt_ProductClass.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('QcClass').asstring<>edt_QcClass.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;

    if AdoQry_Item.fieldbyname('ItemCode2').asstring<>Extedt_ItemCode2.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('remArk').asstring<>edt_remArk.text then
    begin
      canmodify_remArk:=True;
    end;
    if AdoQry_Item.fieldbyname('ScrApType').asinteger<>Cmbbx_ScrApType.ItemIndex+1 then
    begin
      canmodify_remArk:=True;
    end;
//    if AdoQry_Maintain.fieldbyname('ItemshortName').asstring<>Edt_ItemshortName.text then
//    begin
//      canmodify_Itemmodifytime:=True;
//    end;
    if AdoQry_Item.fieldbyname('ItemClass1').asstring<>Edt_ItemClass1.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemClass2').asstring<>Edt_ItemClass2.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemClass3').asstring<>Edt_ItemClass3.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemClass4').asstring<>Edt_ItemClass4.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;
    if AdoQry_Item.fieldbyname('ItemClass5').asstring<>Edt_ItemClass5.text then
    begin
      canmodify_Itemmodifytime:=True;

    if AdoQry_Item.fieldbyname('AssetKmCode').asstring<>Extedt_AssetKmCode.text then
    begin
      canmodify_Itemmodifytime:=True;
    end;

    end;
    if  canmodify_Itemmodifytime=True then
       Itemmodifytime:='Itemmodifytime='''+formatdatetime('yyyy.mm.dd hh:mm:ss',now)+''','
    else
       Itemmodifytime:='';
  end;

  if cmbbx_ItemUsable.Itemindex=1 then
  begin
    sql_Itemdisabletime:='';
    str_Itemdisabletime:='';
    str_ModifyItemdisabletime:='Itemdisabletime=null,';
  end
  else
  begin
    sql_Itemdisabletime:='Itemdisabletime,';
    str_Itemdisabletime:=''''+formatdatetime('yyyy.mm.dd hh:mm:ss',now)+''',';
    if (not (Add)) and (AdoQry_Item.fieldbyname('ItemUsable').asinteger=0) then
      str_ModifyItemdisabletime:=''
    else
      str_ModifyItemdisabletime:='Itemdisabletime='''+formatdatetime('yyyy.mm.dd hh:mm:ss',now)+''',';
  end;
  //控制采购员代码，当其为空时不能增加，修改
  if Trim(ExtEdt_EmployeeCode.Text)='' then
  begin
    Add_EmployeeCode:='';
    Add_Str_EmployeeCode:='';
    modify_Str_EmployeeCode:='EmployeeCode=null,';
  end
  else
  begin
    Add_EmployeeCode:='EmployeeCode,';
    Add_Str_EmployeeCode:=''''+Extedt_EmployeeCode.text+''',';
    modify_Str_EmployeeCode:='EmployeeCode='''+Extedt_EmployeeCode.text+''',';
  end;
  //控制计划员代码，当其为空时不增加，修改
 if Trim(ExtEdt_Pla_EmployeeCode.Text)='' then
  begin
    Add_Pla_EmployeeCode:='';
    Add_Str_Pla_EmployeeCode:='';
    modify_Str_Pla_EmployeeCode:='Pla_EmployeeCode=null,';
  end
  else
  begin
    Add_Pla_EmployeeCode:='Pla_EmployeeCode,';
    Add_Str_Pla_EmployeeCode:=''''+Extedt_Pla_EmployeeCode.text+''',';
    modify_Str_Pla_EmployeeCode:='Pla_EmployeeCode='''+Extedt_Pla_EmployeeCode.text+''',';
  end;

    //控制缺省仓库管理员
 if Trim(ExtEdt_Wh_EmployeeCode.Text)='' then
  begin
    Add_Wh_EmployeeCode:='';
    Add_Str_Wh_EmployeeCode:='';
    modify_Str_Wh_EmployeeCode:='wh_EmployeeCode=null,';
  end
  else
  begin
    Add_Wh_EmployeeCode:='wh_EmployeeCode,';
    Add_Str_Wh_EmployeeCode:=''''+Extedt_Wh_EmployeeCode.text+''',';
    modify_Str_Wh_EmployeeCode:='wh_EmployeeCode='''+Extedt_Wh_EmployeeCode.text+''',';
  end;

  //控制仓库代码，当仓库代码为空时不用增加，修改
  if Trim(ExtEdt_WhCode.Text)='' then
  begin
    Add_WhCode:='';
    Add_Str_WhCode:='';
    modify_Str_WhCode:='whCode=null,';
  end
  else