📄 mrp_enter_newmossparent.dfm
字号:
PopuPmenu = PopuPmenu
ReadOnly = True
TabOrder = 0
TitleFont.ChArset = GB2312_CHArSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDrawDataCell = DBGridEhDrawDataCell
FrozenCols = 3
OnGetCellParams = DBGridEhGetCellParams
Columns = <
Item
FieldName = 'Itemflag'
Width = 174
end
Item
FieldName = 'ItemCode'
Visible = False
end
Item
FieldName = 'ItemName'
Visible = False
end
Item
FieldName = 'UomName'
Width = 31
end
Item
FieldName = 'ItemType'
PickList.Strings = (
'0 普通物料'
'1 资源'
'2 工具'
'3 参考'
'4 虚项'
'5 劳务'
'6 副产品'
'7 成本')
KeyList.Strings = (
'0'
'1'
'2'
'3'
'4'
'5'
'6'
'7')
end
Item
FieldName = 'PmCode'
PickList.Strings = (
'0 制造'
'1 采购'
'2 委外'
'3 既自制又委外')
KeyList.Strings = (
'0'
'1'
'2'
'3')
end
Item
FieldName = 'PrepareLT'
end
Item
FieldName = 'QcLT'
end
Item
FieldName = 'RunLT'
end
Item
FieldName = 'BatchStrat'
PickList.Strings = (
'0 直接批量法'
'1 固定批量法')
KeyList.Strings = (
'0'
'1')
end
Item
FieldName = 'PmBatch'
end
Item
FieldName = 'MaxQty'
end
Item
FieldName = 'MinQty'
end>
end
end
object Panel2: TPanel [6]
Left = 0
Top = 147
Width = 694
Height = 30
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = '父项需求追溯'
TabOrder = 6
end
inherited AdoQry_Tmp: TAdoQuery
Left = 237
Top = 179
end
inherited ActionList: TActionList
Left = 504
Top = 192
inherited Action1: TAction [23]
Caption = '返回下级'
Hint = '返回下级'
OnExecute = Action1Execute
end
inherited Action2: TAction [24]
Caption = '反查上级'
Hint = '反查上级'
OnExecute = Action2Execute
end
inherited Act_Look: TAction [25]
end
inherited Act_Check: TAction [26]
end
inherited Act_error: TAction [27]
end
inherited Act_auto: TAction [28]
end
inherited Act_all: TAction [29]
end
inherited Act_CheckDebt: TAction [30]
end
inherited Act_Print: TAction [31]
end
inherited Act_Preview: TAction [32]
end
inherited Act_Expend: TAction [33]
end
inherited Act_CollApse: TAction [34]
end
end
inherited AdoQry_Main: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
'8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
'ize=4096;Workstation ID=XYB'
CurSorType = ctStatic
SQL.Strings = (
'select MrpResult.*,'
' Bom.Bomqty,'
' ScrAprate='#39'dfssssssssdfsfddsfds'#39','
' Mrpqty=case ordinal'
' when 2 then Orderqty'
' when 5 then netqty'
' end,'
' noFinishqty=convert(float,0),'
' Itemflag=MrpResult.ItemCode+'#39' '#39'+Item.ItemName,'
' Item.Qclt,Item.Preparelt,'
' Uom.UomName'
'from MrpResult,Uom,Item,Bom'
'where MrpResult.ItemCode=Item.ItemCode'
' and Item.UomCode*=Uom.UomCode'
' and (ordinal=2 or ordinal=5)'
' and MrpResult.ItemCode=Bom.ite_ItemCode'
'')
Left = 168
Top = 177
object AdoQry_MainItemCode: TStringField
FieldName = 'ItemCode'
Size = 16
end
object AdoQry_MainDueDate: TDateTimeField
DisplayLabel = '约定开工日'
FieldName = 'DueDate'
end
object AdoQry_MainReleaseDate: TDateTimeField
DisplayLabel = '约定交货日'
FieldName = 'ReleaseDate'
end
object AdoQry_MaInOrderNo: TStringField
DisplayLabel = '生产订单号'
FieldName = 'OrderNo'
Size = 16
end
object AdoQry_MainGrossQty: TFloatField
FieldName = 'GrossQty'
end
object AdoQry_MaInOrderQty: TFloatField
DisplayLabel = '约定交货量'
FieldName = 'OrderQty'
end
object AdoQry_MainOnHand: TFloatField
FieldName = 'OnHand'
end
object AdoQry_MainCanUseOnHand: TFloatField
FieldName = 'CanUseOnHand'
end
object AdoQry_MainNetQty: TFloatField
DisplayLabel = '约定交货量'
FieldName = 'NetQty'
end
object AdoQry_MainOrdinal: TIntegerField
FieldName = 'Ordinal'
end
object AdoQry_MainPmCode: TIntegerField
FieldName = 'PmCode'
end
object AdoQry_MaInOrderLineStatus: TIntegerField
DisplayLabel = '行状态'
FieldName = 'OrderLineStatus'
end
object AdoQry_MaInOrderLineno: TIntegerField
DisplayLabel = '订单行号'
FieldName = 'OrderLineno'
end
object AdoQry_Mainpegging: TStringField
FieldName = 'pegging'
end
object AdoQry_Mainoncheck: TFloatField
FieldName = 'oncheck'
end
object AdoQry_MainBomqty: TFloatField
DisplayLabel = '子项定额'
FieldName = 'Bomqty'
end
object AdoQry_MainScrAprate: TStringField
DisplayLabel = '子项损耗率'
FieldName = 'ScrAprate'
ReadOnly = True
end
object AdoQry_MainMrpqty: TFloatField
DisplayLabel = '约定交货量'
FieldName = 'Mrpqty'
ReadOnly = True
end
object AdoQry_MainItemflag: TStringField
DisplayLabel = '物料标识'
FieldName = 'Itemflag'
ReadOnly = True
Size = 77
end
object AdoQry_MainUomName: TStringField
DisplayLabel = '单位'
FieldName = 'UomName'
Size = 10
end
object AdoQry_MainQclt: TIntegerField
FieldName = 'Qclt'
end
object AdoQry_MainPreparelt: TIntegerField
FieldName = 'Preparelt'
end
object AdoQry_MainnoFinishqty: TFloatField
DisplayLabel = '未结量'
FieldName = 'noFinishqty'
ReadOnly = True
end
end
inherited DataSource: TDataSource
Left = 400
Top = 201
end
inherited PopuPmenu: TPopuPmenu
Left = 344
Top = 145
end
object AdoQuery1: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
'8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
'ize=4096;Workstation ID=XYB'
CurSorType = ctStatic
LockType = ltBatchOptimistic
AfterOpen = AdoQueryAfterOpen
EnableBCD = False
Parameters = <>
SQL.Strings = (
'select Item.*,Uom.UomName,Itemflag=ItemCode+'#39' '#39'+ItemName'
' from Item,Uom'
'where Item.UomCode=Uom.UomCode'
' ')
Left = 456
Top = 137
object StringField1: TStringField
DisplayLabel = '物料代码'
FieldName = 'ItemCode'
Size = 16
end
object AdoQry_MainItemName: TStringField
DisplayLabel = '物料描述'
FieldName = 'ItemName'
Size = 80
end
object AdoQry_MainItemType: TIntegerField
DisplayLabel = '物料类型'
FieldName = 'ItemType'
end
object IntegerField1: TIntegerField
DisplayLabel = '制购码'
FieldName = 'PmCode'
end
object AdoQry_MainBatchStrat: TIntegerField
DisplayLabel = '批量策略'
FieldName = 'BatchStrat'
end
object AdoQry_MainMaxQty: TFloatField
DisplayLabel = '最大库存'
FieldName = 'MaxQty'
end
object AdoQry_MainMinQty: TFloatField
DisplayLabel = '安全库存'
FieldName = 'MinQty'
end
object AdoQry_MainPurchLDTime: TFloatField
DisplayLabel = '采购提前期'
FieldName = 'PurchLDTime'
end
object StringField2: TStringField
DisplayLabel = '物料标识'
FieldName = 'Itemflag'
ReadOnly = True
Size = 97
end
object AdoQry_MainMNLDTime: TFloatField
DisplayLabel = '制造提前期'
FieldName = 'MNLDTime'
end
object StringField3: TStringField
DisplayLabel = '单位'
FieldName = 'UomName'
Size = 10
end
object AdoQry_MainPmBatch: TIntegerField
DisplayLabel = '批量'
FieldName = 'PmBatch'
end
object AdoQuery1PrepareLT: TIntegerField
DisplayLabel = '准备提前期'
FieldName = 'PrepareLT'
end
object AdoQuery1RunLT: TIntegerField
DisplayLabel = '运行提前期'
FieldName = 'RunLT'
end
object AdoQuery1QcLT: TIntegerField
DisplayLabel = '质检提前期'
FieldName = 'QcLT'
end
end
object DataSource1: TDataSource
DataSet = AdoQuery1
Left = 200
Top = 113
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -