sal_qry_shiporder.dfm

一个MRPII系统源代码版本

        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发运地址'
          Width = 60
          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
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单号'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单行号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillWhChCk'
          PickList.Strings = (
            '未核定'
            '已核定')
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 216
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDAT' +
      'ASERVER'
    CurSorType = ctStatic
    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,'
      '   InvOutBillLine.InvBillPriceC,'
      '   InvOutBillLine.InvBillAmount,'
      '   InvOutBillLIne.InvBillAmountC,'
      '   InvOutBillLine.InvBillNOtaxPrice,'
      '   InvOutBillLine.InvBillNoTaxPriceC,'
      '   InvOutBillLine.InvBillNOtaxAmount,'
      '   InvOutBillLine.InvBillNoTaxAmountC,'
      '   InvOutBill.ExchRate,'
      
        '   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 = 320
    Top = 225
    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
      DisplayLabel = '出货日期'
      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'
      Origin = 'InvOutBill'
      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'
      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 = 'InvOutBillLine'
      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 = 'WhPosition'
      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'
      Origin = 'Employee'
      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'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_MainCurrencyFlag: TStringField
      FieldName = 'CurrencyFlag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainInvBillTaxRate: TFloatField
      FieldName = 'InvBillTaxRate'
    end
    object AdoQry_MainCustomerPayTermCode: TStringField
      FieldName = 'CustomerPayTermCode'
      Origin = 'Customer'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      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 = 'customerShipAddress'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = 'customerShipAddress'
      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_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'InvOutBill'
      Size = 12
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_MainSaleEmployeeFlag: TStringField
      FieldName = 'SaleEmployeeFlag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainSaleEmployeeName: TStringField
      FieldName = 'SaleEmployeeName'
      Size = 60
    end
    object AdoQry_MainInvBillWhChCk: TIntegerField
      DisplayLabel = '仓库核定否'
      FieldName = 'InvBillWhChCk'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainInvBillPriceC: TFloatField
      DisplayLabel = '本位币含税价'
      FieldName = 'InvBillPriceC'
      Origin = 'InvOutBillLine'
    end
    object AdoQry_MainInvBillAmountC: TFloatField
      DisplayLabel = '本位币含税金额'
      FieldName = 'InvBillAmountC'
      Origin = 'InvOutBillLine'
    end
    object AdoQry_MainInvBillNoTaxPriceC: TFloatField
      DisplayLabel = '本位币未税价'
      FieldName = 'InvBillNoTaxPriceC'
      Origin = 'InvOutBillLine'
    end
    object AdoQry_MainInvBillNoTaxAmountC: TFloatField
      DisplayLabel = '本位币未税金额'
      FieldName = 'InvBillNoTaxAmountC'
      Origin = 'InvOutBillLine'
    end
    object AdoQry_MainExchRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchRate'
      Origin = 'InvOutBill'
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
end