📄 sal_enter_passshiporderh.dfm
字号:
inherited Frm_Sal_Enter_PassShipOrderH: TFrm_Sal_Enter_PassShipOrderH
Left = 164
Top = 160
Caption = '销售发货出库核定'
PixelsPerInch = 96
TextHeight = 12
inherited Pnl_Title: TPanel
Caption = '销售发货出库核定'
end
inherited Pnl_Head: TPanel
inherited Lbl_Condition: TLabel
Width = 36
Caption = '未核定'
end
inherited Lbl_Order: TLabel
Width = 102
Caption = '发货日期/发货单号'
end
end
inherited Pnl_Body: TPanel
inherited DBGridEh: TDBGridEh
Columns = <
Item
FieldName = 'InvBillWHCHCK'
PickList.Strings = (
'未核定'
'已核定')
Title.Alignment = taCenter
Title.Caption = '仓库核定否'
Width = 67
KeyList.Strings = (
'0'
'1')
end
Item
FieldName = 'CUSTOMERCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户代码'
Width = 80
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CustomerName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户名称'
Width = 150
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CustomerFalg'
PickList.Strings = ()
Title.Caption = '销售客户标识'
Width = 150
KeyList.Strings = ()
end
Item
FieldName = 'InvBillDate'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '发货日期'
Width = 70
KeyList.Strings = ()
end
Item
FieldName = 'InvBillNo'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售发货单号'
Width = 90
KeyList.Strings = ()
end
Item
FieldName = 'BillTypeCode'
PickList.Strings = (
'材料销售发货'
'产品销售发货')
Title.Caption = '单据类型'
Width = 88
KeyList.Strings = (
'0205'
'0206')
end
Item
FieldName = 'SaleType'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售类型代码'
Width = 80
KeyList.Strings = ()
end
Item
FieldName = 'SaleTypeName'
PickList.Strings = ()
Title.Caption = '销售类型名称'
KeyList.Strings = ()
end
Item
FieldName = 'DeptCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售部门代码'
Width = 78
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'DeptName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售部门名称'
Width = 82
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'DeptFalg'
PickList.Strings = ()
Title.Caption = '销售部门标识'
Width = 107
KeyList.Strings = ()
end
Item
FieldName = 'SaleEmployeeCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售人员代码'
Width = 83
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'EmployeeName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售人员名称'
Width = 89
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'EmployeeFalg'
PickList.Strings = ()
Title.Caption = '销售人员标识'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CURRENCYCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '货币代码'
Width = 55
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CurrencyName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '货币名称'
Width = 60
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CurrencyFalg'
PickList.Strings = ()
Title.Caption = '货币标识'
Width = 70
KeyList.Strings = ()
end
Item
FieldName = 'InvBilltaxrate'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '销售税率'
Width = 57
KeyList.Strings = ()
end
Item
FieldName = 'PayTermCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '付款条款代码'
Width = 83
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'SaleTermName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '付款条款名称'
Width = 111
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'SaleTermFalg'
PickList.Strings = ()
Title.Caption = '付款条款标识'
Width = 112
KeyList.Strings = ()
end
Item
FieldName = 'Sal_EmployeeCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '制单人员代码'
Width = 85
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CreateEmployeeName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '制单人员名称'
Width = 81
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'EmployeeFalg1'
PickList.Strings = ()
Title.Caption = '制单人员标识'
Width = 83
KeyList.Strings = ()
end
Item
FieldName = 'ShipModeCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '发货方式代码'
Width = 76
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'ShipModeName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '发货方式名称'
Width = 141
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'ShipModeFalg'
PickList.Strings = ()
Title.Caption = '发货方式标识'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'ShipAddresSCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '发货地址代码'
Width = 81
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'ShipAddressName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '发货地址名称'
Width = 165
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'ShipAddressFalg'
PickList.Strings = ()
Title.Caption = '发货地址标识'
Width = 131
KeyList.Strings = ()
end
Item
FieldName = 'RemArk'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '备注'
Width = 156
KeyList.Strings = ()
end>
end
end
inherited AdoQry_Tmp: TAdoQuery
Left = 525
Top = 163
end
inherited AdoQry_Head: TAdoQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
'.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
'ze=4096;Workstation ID=XYB'
SQL.Strings = (
' Select InvOutBill.*,CustomerName,SaleType.SaleTypeName,'
' InvOutBill.CustomerCode+'#39' '#39'+ CustomerName' +
' as CustomerFalg,'
' DeptName,'
' ee.EmployeeName as Wh_EmployeeName,'
' InvOutBill.DeptCode+'#39' '#39'+DeptName As DeptF' +
'alg, '
' Warehouse.WhName,'
' WhPosition.WhPositionName,'
' Employee.EmployeeName, '
' SaleEmployeeCode+'#39' '#39'+Employee.EmployeeNam' +
'e As EmployeeFalg, '
' CurrencyName,'
' InvOutBill.CurrencyCode+'#39' '#39'+CurrencyName ' +
'As CurrencyFalg, '
' InvOutBill.InvBillTaxRate, '
' PayTerm.PayTermName as SaleTermName, '
' InvOutBill.PayTermCode+'#39' '#39'+PayTermName As' +
' SaleTermFalg,'
' tt.EmployeeName as CreateEmployeeName, '
' InvOutBill.Sal_EmployeeCode+'#39' '#39'+tt.Employ' +
'eeName As EmployeeFalg1, '
' ShipModeName,'
' InvOutBill.ShipModeCode+'#39' '#39'+ShipModeName ' +
' As ShipModeFalg,'
' ShipAddressName, '
' InvOutBill.ShipAddresSCode+'#39' '#39'+ShipAddres' +
'sName As ShipAddressFalg'
' From InvOutBill left outer Join Customer '
' On InvOutBill.CustomerCode=Customer.Custome' +
'rCode '
' left outer Join Dept '
' On InvOutBill.DeptCode=Dept.DeptCode '
' left Join Warehouse on InvOutBill.WhCode=Wa' +
'reHouse.WhCode '
' left Join WhPosition on (InvOutBill.WhCode=' +
'WhPosition.WhCode and InvOutBill.WhPositionCode=WhPosition.WhPos' +
'itionCode) '
' left Join Employee '
' On InvOutBill.SaleEmployeeCode=Employee.Emp' +
'loyeeCode '
' left Join Currency '
' On InvOutBill.CurrencyCode=Currency.Currenc' +
'yCode '
' left Join PayTerm '
' On InvOutBill.PayTermCode=PayTerm.PayTermCo' +
'de '
' left Join Employee tt '
' On InvOutBill.Sal_EmployeeCode=tt.EmployeeC' +
'ode '
' left Join Employee ee '
' On InvOutBill.Wh_EmployeeCode=ee.EmployeeCo' +
'de '
' left Join ShipMode '
' On InvOutBill.ShipModeCode=ShipMode.ShiPmod' +
'eCode '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -