sal_qry_backshiporder.dfm

一个MRPII系统源代码版本

          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式标识'
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址标识'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注1'
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 264
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'Select Customer.CustomerCode,'
      
        '   Customer.CustomerName,Customer.CustomerCode+'#39' '#39'+Customer.Cust' +
        'omerName As customerflag,  '
      
        '   InvOutBill.InvBillDate,InvOutBillLine.SloNo,InvOutBillLine.SL' +
        'oLineNo,'
      
        '   InvOutBill.InvBillNo,InvBillLineNo,InvOutBillLine.ItemCode,It' +
        'em.ItemName,'
      
        '   Item.ItemCode+'#39' '#39'+Item.ItemName As ItemFlag,(InvOutBillLine.I' +
        'nvBillQty-IsNull(InvOutBillLine.BackShipqty,0)) As ShipQty,'
      
        '   InvOutBill.WhCode,Warehouse.whName,Warehouse.whCode+'#39' '#39'+wAreh' +
        'ouse.whName as whflag, '
      
        '   InvOutBill.WhPositionCode,WhPosition.WhPositionName,Whpositio' +
        'n.WhPositionCode+'#39' '#39'+WhPosition.WhPositionName as WhPositionflag' +
        ','
      
        '   InvOutBillLine.BatchNo,InvOutBillLine.InvBillPrice,InvOutBill' +
        'Line.InvBillAmount,InvOutBillLine.InvBillNOtaxPrice,InvOutBillLi' +
        'ne.InvBillNOtaxAmount,'
      
        '   InvOutBillLine.DiSCountRate,InvOutBillLine.DiSCountAmount,Inv' +
        'OutBill.Sal_EmployeeCode,Employee.EmployeeName,Employee.Employee' +
        'Code+'#39' '#39'+Employee.EmployeeName As EmployeeFlag,'
      
        '   InvOutBill.SaleType,SaleType.SaleTypeName,SaleType.SaleTypeCo' +
        'de+'#39' '#39'+SaleType.SaleTypeName As SaleTypeFlag,'
      
        '   InvOutBill.DeptCode, Dept.DeptName,Dept.DeptCode+'#39' '#39'+Dept.Dep' +
        'tName As DeptFlag,InvOutBill.CurrencyCode,Currency.CurrencyName,' +
        'Currency.CurrencyCode+'#39' '#39'+Currency.CurrencyName As CurrencyFlag,'
      
        '   InvOutBill.InvBillTaxRate,Customer.CustomerPayTermCode,Payter' +
        'm.PayTermName,'
      '   PayTerm.PayTermCode+'#39' '#39'+PayTerm.PayTermName as PayTermflag,  '
      
        '   InvOutBill.ShipModeCode,ShipMode.ShipModeName, ShipMode.ShiPm' +
        'odeCode+'#39' '#39'+ShipMode.ShipModeName as ShipModeflag,'
      
        '   InvOutBill.ShipAddresSCode,customerShipAddress.ShipAddressnam' +
        'e,customerShipAddress.ShipAddresSCode+'#39' '#39'+customerShipAddress.sh' +
        'ipAddressName as ShipAddressflag,'
      '   InvOutBill.RemArk,InvOutBill.RemArk1,'
      '   InvOutBill.InvBillWhChCk,'
      
        '   InvOutBill.SaleEmployeeCode,Employee1.EmployeeName As SaleEmp' +
        'loyeeName,Employee1.EmployeeCode+'#39' '#39'+Employee1.EmployeeName As S' +
        'aleEmployeeFlag'
      'From'
      '   InvOutBill'
      
        '   Join InvOutBillLine On InvOutBill.InvBillID=InvOutBillLine.In' +
        'vBillID'
      '   Join Item On InvOutBillLine.ItemCode=Item.ItemCode'
      '   Join SaleType On SaleType.SaleTypeCode=InvOutBill.SaleType'
      
        '   Left Join Customer On Customer.CustomerCode=InvOutBill.Custom' +
        'erCode'
      
        '   Left Join Employee On Employee.EmployeeCode=InvOutBill.Sal_Em' +
        'ployeeCode'
      
        '   Left Join PayTerm On PayTerm.PayTermCode=Customer.CustomerPay' +
        'TermCode'
      '   Left Join Warehouse On Warehouse.WhCode=InvOutBill.WhCode'
      
        '   Left Join WhPosition On WhPosition.WhPositionCode=InvOutBill.' +
        'WhPositionCode'
      '   Left Join Dept On InvOutBill.DeptCode=Dept.DeptCode'
      
        '   Left Join Currency On InvOutBill.CurrencyCode=Currency.Curren' +
        'cyCode'
      
        '   Left Join ShipMode On InvOutBill.ShipModeCode=ShipMode.ShiPmo' +
        'deCode'
      
        '   Left Join customerShipAddress On InvOutBill.ShipAddresSCode=c' +
        'ustomerShipAddress.ShipAddresSCode'
      
        '   Left Join Employee Employee1 On Employee1.EmployeeCode=Invout' +
        'Bill.SaleEmployeeCode'
      'Where InvOutBill.SaleType In (Select SaleTypeCode From SaleType)')
    Left = 400
    Top = 257
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'InvOutBill'
      Size = 12
    end
    object AdoQry_MainCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_Maincustomerflag: TStringField
      FieldName = 'customerflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainSloNo: TStringField
      FieldName = 'SloNo'
      Origin = 'InvOutBillLIne'
      Size = 16
    end
    object AdoQry_MainSLoLineNo: TIntegerField
      FieldName = 'SLoLineNo'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Size = 10
    end
    object AdoQry_MainInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Origin = 'InvOutBillLIne'
      Size = 10
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'InvOutBillLIne'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainShipQty: TFloatField
      FieldName = 'ShipQty'
      Origin = 'InvOutBillLIne'
      ReadOnly = True
    end
    object AdoQry_MainWhCode: TStringField
      FieldName = 'WhCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_MainwhName: TStringField
      FieldName = 'whName'
      Origin = 'Warehouse'
      Size = 40
    end
    object AdoQry_Mainwhflag: TStringField
      FieldName = 'whflag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_MainWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Origin = 'WhPosition'
      Size = 40
    end
    object AdoQry_MainWhPositionflag: TStringField
      FieldName = 'WhPositionflag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainBatchNo: TStringField
      FieldName = 'BatchNo'
      Origin = 'InvOutBillLIne'
      Size = 16
    end
    object AdoQry_MainInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainInvBillNOtaxPrice: TFloatField
      FieldName = 'InvBillNOtaxPrice'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainInvBillNOtaxAmount: TFloatField
      FieldName = 'InvBillNOtaxAmount'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
      Origin = 'InvOutBillLIne'
    end
    object AdoQry_MainSal_EmployeeCode: TStringField
      FieldName = 'Sal_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_MainEmployeeFlag: TStringField
      FieldName = 'EmployeeFlag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainSaleType: TStringField
      FieldName = 'SaleType'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MainSaleTypeFlag: TStringField
      FieldName = 'SaleTypeFlag'
      ReadOnly = True
      Size = 37
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'InvOutBill'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainDeptFlag: TStringField
      FieldName = 'DeptFlag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'InvOutBill'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Size = 30
    end
    object AdoQry_MainCurrencyFlag: TStringField
      FieldName = 'CurrencyFlag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainInvBillTaxRate: TFloatField
      FieldName = 'InvBillTaxRate'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainCustomerPayTermCode: TStringField
      FieldName = 'CustomerPayTermCode'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
    object AdoQry_MainPayTermflag: TStringField
      FieldName = 'PayTermflag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'InvOutBill'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Size = 120
    end
    object AdoQry_MainShipModeflag: TStringField
      FieldName = 'ShipModeflag'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'InvOutBill'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Size = 60
    end
    object AdoQry_MainShipAddressflag: TStringField
      FieldName = 'ShipAddressflag'
      ReadOnly = True
      Size = 67
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'InvOutBill'
      Size = 60
    end
    object AdoQry_MainRemArk1: TStringField
      FieldName = 'RemArk1'
      Origin = 'InvOutBill'
      Size = 60
    end
    object AdoQry_MainInvBillWhChCk: TIntegerField
      FieldName = 'InvBillWhChCk'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_MainSaleEmployeeName: TStringField
      FieldName = 'SaleEmployeeName'
      Size = 60
    end
    object AdoQry_MainSaleEmployeeFlag: TStringField
      FieldName = 'SaleEmployeeFlag'
      ReadOnly = True
      Size = 91
    end
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 169
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 296
    Top = 185
  end
end