sal_enter_passbackshiporderh.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_PassBackShipOrderH: TFrm_Sal_Enter_PassBackShipOrderH
  Left = 4
  Top = 98
  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
      FrozenCols = 5
      Columns = <
        Item
          FieldName = 'InvBillWHCHCK'
          PickList.Strings = (
            '未审核'
            '已审核')
          Title.Alignment = taCenter
          Title.Caption = '审核标志'
          Width = 57
          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 = 180
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货日期'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货单号'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeCode'
          PickList.Strings = (
            '0 普通退货'
            '1 其他退货')
          Title.Caption = '单据类型'
          Width = 88
          KeyList.Strings = (
            '0205'
            '0206')
        end
        Item
          FieldName = 'SaleType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型代码'
          Width = 71
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Title.Caption = '销售类型名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHCode'
          PickList.Strings = ()
          Title.Caption = '仓库代码'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhName'
          PickList.Strings = ()
          Title.Caption = '仓库名称'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Title.Caption = '货位代码'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Caption = '货位名称'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Title.Caption = '销售类型标识'
          Width = 80
          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 = 'SaleEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员名称'
          Width = 89
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeFalg'
          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 = 'PayTermName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款名称'
          Width = 111
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermFalg'
          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 = 'createEmployeeFalg'
          PickList.Strings = ()
          Title.Caption = '制单人员标识'
          Width = 75
          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,Warehouse.WhName,'
      '                       WhPosition.WhPositionName,'
      
        '                       InvOutBill.CustomerCode+'#39' '#39'+ CustomerName' +
        ' as CustomerFalg,'
      '                       DeptName,'
      
        '                       InvOutBill.DeptCode+'#39' '#39'+DeptName As DeptF' +
        'alg, '
      '                       SaleType.SaleTypeName, '
      
        '                       InvOutBill.SaleType+'#39' '#39'+SaleType.SaleType' +
        'Name as SaleTypeflag,'
      
        '                       Employee1.EmployeeName as SaleEmployeenam' +
        'e, '
      
        '                       SaleEmployeeCode+'#39' '#39'+Employee1.EmployeeNa' +
        'me  As SaleEmployeeFalg, '
      '                       CurrencyName,'
      
        '                       InvOutBill.CurrencyCode+'#39' '#39'+CurrencyName ' +
        'As CurrencyFalg, '
      '                       PayTerm.PayTermName,   '
      
        '                       InvOutBill.PayTermCode+'#39' '#39'+PayTerm.PayTer' +
        'mName As PayTermFalg,'
      '                       tt.EmployeeName as createEmployeeName, '
      
        '                       Sal_EmployeeCode+'#39' '#39'+tt.EmployeeName As c' +
        'reateEmployeeFalg, '
      '                        Employee2.EmployeeName as assessName,  '
      
        '                       InvOutBill.Wh_EmployeeCode+'#39' '#39'+Employee2.' +
        'EmployeeName as assessflag, '
      '                       ShipModeName,'
      
        '                      InvOutBill.ShipModeCode+'#39' '#39'+ShipModeName  ' +
        'As ShipModeFalg,'
      '                       ShipAddressName, '
      
        '                      InvOutBill.ShipAddresSCode+'#39' '#39'+ShipAddress' +
        'Name As ShipAddressFalg'
      '--                 into #BackShipOrderPass  '
      '                 From InvOutBill left  Join Customer '
      
        '                     On InvOutBill.CustomerCode=Customer.Custome' +
        'rCode '
      
        '                     left Join  Warehouse on InvOutBill.WhCode=W' +
        'AreHouse.WhCode '
      
        '                    left Join  WhPosition on InvOutBill.WhCode=W' +
        'hPosition.WhCode '
      
        '                                           and InvOutBill.WhPosi' +
        'tionCode=WhPosition.WhPositionCode '
      '                    left   Join Dept     '
      '                     On InvOutBill.DeptCode=Dept.DeptCode    '