salesorderunit.dfm

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

      object cxDBLabel3: TcxDBLabel
        Left = 261
        Top = 74
        DataBinding.DataField = #23458#25143#21517#31216
        DataBinding.DataSource = DS_SO
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlue
        Style.Font.Height = -12
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = []
        Height = 16
        Width = 292
      end
    end
  end
  object RzSizePanel1: TRzSizePanel
    Left = 535
    Top = 0
    Width = 202
    Height = 609
    Align = alRight
    HotSpotVisible = True
    SizeBarStyle = ssGroupBar
    SizeBarWidth = 7
    TabOrder = 1
    object List_SO: TcxListBox
      Left = 8
      Top = 0
      Width = 194
      Height = 100
      Align = alTop
      ItemHeight = 13
      PopupMenu = PopupMenu2
      Style.Color = clBtnFace
      TabOrder = 0
      OnDblClick = List_SODblClick
    end
    object RzGroupBar1: TRzGroupBar
      Left = 8
      Top = 100
      Width = 194
      Height = 509
      BorderInner = fsStatus
      GroupBorderSize = 0
      Style = gbsOutlook
      UseGradients = False
      Align = alClient
      Color = clBtnShadow
      ParentColor = False
      TabOrder = 1
      object RzGroup1: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #26080#35760#24405#38480#38144#27454
        ParentColor = False
        object List_ForbidSaleProd: TcxCheckListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 0
          Align = alClient
          Items = <>
          TabOrder = 0
          OnDblClick = AddSaleOrderNKExecute
        end
      end
      object RzGroup8: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #22833#25928#38480#38144#27454
        ParentColor = False
        object List_SSProd: TcxCheckListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 0
          Align = alClient
          Items = <>
          TabOrder = 0
          OnClick = List_SSProdClick
          OnDblClick = List_SSProdClick
        end
      end
      object RzGroup2: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #20801#38144#27454
        ParentColor = False
        object List_AcceptSaleProd: TcxCheckListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 0
          Align = alClient
          Items = <>
          TabOrder = 0
        end
      end
      object RzGroup3: TRzGroup
        Items = <>
        Opened = True
        OpenedHeight = 367
        UseGradients = True
        Caption = #21152#38138#36873#25321'  ['#25991#33016#31867']'
        ParentColor = False
        object List_SelectSaleWX: TcxListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 347
          Align = alClient
          ItemHeight = 13
          PopupMenu = TranMenu
          TabOrder = 0
          OnDblClick = QueryPlanStateWXExecute
        end
      end
      object RzGroup4: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #25991#33016#36817#26399#38138#36135' 0 '#27454', '#35843#36135' 0 '#27454
        ParentColor = False
        object List_CusPHWX: TcxListBox
          Left = 0
          Top = 20
          Width = 42
          Height = 0
          Align = alClient
          ItemHeight = 13
          ListStyle = lbVirtual
          TabOrder = 0
        end
        object List_CusDHWX: TcxListBox
          Left = 42
          Top = 20
          Width = 150
          Height = 0
          Align = alRight
          ItemHeight = 13
          TabOrder = 1
        end
      end
      object RzGroup5: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #21152#38138#36873#25321'  ['#20869#35044#31867']'
        ParentColor = False
        OnDblClick = QueryPlanStateNKExecute
        object List_SelectSaleNK: TcxListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 0
          Align = alClient
          ItemHeight = 13
          PopupMenu = TranMenu
          TabOrder = 0
        end
      end
      object RzGroup6: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #20869#35044#36817#26399#38138#36135' 0 '#27454', '#35843#36135' 0 '#27454
        ParentColor = False
        object List_CusPHNK: TcxListBox
          Left = 0
          Top = 20
          Width = 42
          Height = 0
          Align = alClient
          ItemHeight = 13
          Style.Shadow = False
          TabOrder = 0
        end
        object List_CusDHNK: TcxListBox
          Left = 42
          Top = 20
          Width = 150
          Height = 0
          Align = alRight
          ItemHeight = 13
          TabOrder = 1
        end
      end
      object RzGroup7: TRzGroup
        Items = <>
        Opened = False
        OpenedHeight = 361
        UseGradients = True
        Caption = #35745#21010#29366#24577':     0  [  0  +  0  ]  +  0'
        ParentColor = False
        object List_CustWX: TcxListBox
          Left = 97
          Top = 233
          Width = 1
          Height = 128
          Align = alClient
          ItemHeight = 13
          Style.Shadow = False
          TabOrder = 0
        end
        object List_CustYX: TcxListBox
          Left = 0
          Top = 233
          Width = 97
          Height = 128
          Align = alLeft
          ItemHeight = 13
          Style.Shadow = False
          TabOrder = 1
        end
        object List_CustMX: TcxListBox
          Left = 98
          Top = 233
          Width = 94
          Height = 128
          Align = alRight
          ItemHeight = 13
          Style.Shadow = False
          TabOrder = 2
        end
        object List_CustALL: TcxListBox
          Left = 0
          Top = 20
          Width = 192
          Height = 213
          Align = alTop
          ItemHeight = 13
          Style.Shadow = False
          TabOrder = 3
        end
      end
    end
  end
  object DS_SO: TDataSource
    DataSet = DataSet_SO
    Left = 584
    Top = 8
  end
  object DataSet_SO: TADODataSet
    Connection = DM.Conn_UF
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = DataSet_SOAfterOpen
    CommandText = 'execute _PM_V_SaleOrder_Query '#39'200804150010'#39
    CommandTimeout = 900
    Parameters = <>
    Left = 554
    Top = 8
    object DataSet_SODSDesigner: TWideStringField
      FieldName = #23457#26680
    end
    object DataSet_SODSDesigner2: TWideStringField
      FieldName = #35746#21333#32534#21495
      Size = 30
    end
    object DataSet_SODSDesigner3: TWideStringField
      FieldName = #23458#25143#20195#30721
    end
    object DataSet_SODSDesigner4: TWideStringField
      FieldName = #23458#25143#21517#31216
      ReadOnly = True
      Size = 430
    end
    object DataSet_SODSDesigner5: TWideStringField
      FieldName = #21830#21697#20195#30721
    end
    object DataSet_SODSDesigner6: TWideStringField
      FieldName = #21830#21697#21517#31216
      Size = 60
    end
    object DataSet_SODSDesigner7: TBooleanField
      FieldName = #38144
      ReadOnly = True
    end
    object DataSet_SODSDesigner8: TWideStringField
      FieldName = #38144#21806#29366#24577
      ReadOnly = True
      Size = 30
    end
    object DataSet_SODSDesigner9: TFloatField
      FieldName = #25968#37327
      ReadOnly = True
    end
    object DataSet_SODSDesigner10: TBCDField
      FieldName = #21333#20215
      ReadOnly = True
      Precision = 19
    end
    object DataSet_SODSDesigner11: TBCDField
      FieldName = #37329#39069
      ReadOnly = True
      Precision = 19
    end
    object DataSet_SODSDesigner12: TStringField
      FieldName = #26032#27454#26085#26399
      ReadOnly = True
      FixedChar = True
      Size = 10
    end
    object DataSet_SODSDesigner13: TWideStringField
      FieldName = #20572#37319#20449#24687
      ReadOnly = True
      Size = 52
    end
    object DataSet_SODSDesigner14: TBCDField
      FieldName = #34394#25311#20215#26684
      ReadOnly = True
      Precision = 19
    end
    object DataSet_SODSDesigner15: TWideStringField
      FieldName = #22833#25928#26085#26399
      ReadOnly = True
      Size = 10
    end
    object DataSet_SOID: TIntegerField
      FieldName = 'ID'
    end
  end
  object TranMenu: TPopupMenu
    OnPopup = TranMenuPopup
    Left = 840
    Top = 356
    object AddWX: TMenuItem
      Action = AddSaleOrderWX
    end
    object AddNK: TMenuItem
      Action = AddSaleOrderNK
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object QueryWX: TMenuItem
      Action = QueryPlanStateWX
    end
    object QueryNK: TMenuItem
      Action = QueryPlanStateNK
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object DelSalePlanwx: TMenuItem
      Action = DelSalePlansWX
    end
    object DelSalePlannk: TMenuItem
      Caption = #28165#38500#23545#24212#20869#35044#38138#36135#35745#21010
      OnClick = DelSalePlannkClick
    end
  end
  object ActionList1: TActionList
    Left = 386
    Top = 201
    object QueryPlanStateWX: TAction
      Caption = #25991#33016#35745#21010#36827#24230#26597#35810
      OnExecute = QueryPlanStateWXExecute
    end
    object QueryPlanStateNK: TAction
      Caption = #20869#35044#35745#21010#36827#24230#26597#35810
      OnExecute = QueryPlanStateNKExecute
    end
    object AddSaleOrderWX: TAction
      Caption = #21152#38138#25991#33016
      OnExecute = AddSaleOrderWXExecute
    end
    object AddSaleOrderNK: TAction
      Caption = #21152#38138#20869#35044
      OnExecute = AddSaleOrderNKExecute
    end
    object DelSalePlansWX: TAction
      Caption = #28165#38500#23545#24212#25991#33016#38138#36135#35745#21010
      OnExecute = DelSalePlansWXExecute
    end
    object DelSalePlansNK: TAction
      Caption = #28165#38500#23545#24212#20869#35044#38138#36135#35745#21010
      OnExecute = DelSalePlansNKExecute
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 577
    Top = 45
    object N3: TMenuItem
      Caption = #21047#26032
      OnClick = N3Click
    end
  end
  object DS_INV: TDataSource
    DataSet = DataSet_INV
    Left = 608
    Top = 304
  end
  object DataSet_INV: TADODataSet
    Connection = DM.Conn_UF
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 900
    Parameters = <>
    Left = 589
    Top = 304
  end
  object DS_Details: TDataSource
    DataSet = DataSet_Details
    Left = 200
    Top = 288
  end
  object DataSet_Details: TADODataSet
    Connection = DM.Conn_UF
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandTimeout = 900
    Parameters = <>
    Left = 173
    Top = 288
  end
end