sal_qry_chginfosaleorderh.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_ChgInfoSaleOrderH: TFrm_Sal_Qry_ChgInfoSaleOrderH
  Caption = '销售订单表头操作日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售订单表头操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '销售客户/操作日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户标识'
          Width = 131
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下单日期'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售订单号'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型标识'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门标识'
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员标识'
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxRate_Percent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售税率'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款标识'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额总额'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额总额'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注1'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCodeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '建档人员标识'
          Width = 115
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改日期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改人员代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改人员名称'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCodeB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '修改人员标识'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ChgEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员代码'
          Width = 20
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName_3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作人员名称'
          Width = 20
          Visible = False