Changeset 1254

Show
Ignore:
Timestamp:
1/19/2010 11:55:00 AM (2 months ago)
Author:
vessper
Message:

19/01/2010 (1.14.0.1254)

- V2: Updated with fixes 1245-1253

Location:
branches/EveHQv2
Files:
10 modified

Legend:

Unmodified
Added
Removed

  • branches/EveHQv2

    • Property svn:mergeinfo

      •  

        old new  
        11/branches/PrismPhaseII:589-675 
        2 /trunk:1195-1210,1216-1230,1232-1233,1235,1237,1239-1241,1243 
         2/trunk:1195-1210,1216-1230,1232-1233,1235,1237,1239-1241,1243,1245-1253 

  • branches/EveHQv2/EveHQ.HQF/Classes/PlugInData.vb

    r1152 r1254  
    18651865            Call PopulateModuleGroups(CInt(rootRow.Item("marketGroupID")), rootNode, marketTable) 
    18661866            Select Case rootNode.Text 
    1867                 Case "Ship Equipment", "Ammunition & Charges", "Drones", "Ship Modifications" ', "Implants & Boosters" 
     1867                Case "Ship Equipment", "Ammunition & Charges", "Drones", "Ship Modifications", "Implants & Boosters" 
    18681868                    tvwItems.Nodes.Add(rootNode) 
    18691869            End Select 

  • branches/EveHQv2/EveHQ.HQF/Forms/frmHQF.Designer.vb

    r1231 r1254  
    18311831        Me.tabFit.Location = New System.Drawing.Point(4, 22) 
    18321832        Me.tabFit.Name = "tabFit" 
    1833         Me.tabFit.Size = New System.Drawing.Size(584, 670) 
     1833        Me.tabFit.Size = New System.Drawing.Size(589, 670) 
    18341834        Me.tabFit.TabIndex = 2 
    18351835        Me.tabFit.Text = "Fitting" 
    … …  
    18411841        Me.panelShipSlot.Location = New System.Drawing.Point(0, 0) 
    18421842        Me.panelShipSlot.Name = "panelShipSlot" 
    1843         Me.panelShipSlot.Size = New System.Drawing.Size(334, 670) 
     1843        Me.panelShipSlot.Size = New System.Drawing.Size(339, 670) 
    18441844        Me.panelShipSlot.TabIndex = 1 
    18451845        ' 
    … …  
    18471847        ' 
    18481848        Me.panelShipInfo.Dock = System.Windows.Forms.DockStyle.Right 
    1849         Me.panelShipInfo.Location = New System.Drawing.Point(334, 0) 
     1849        Me.panelShipInfo.Location = New System.Drawing.Point(339, 0) 
    18501850        Me.panelShipInfo.Name = "panelShipInfo" 
    18511851        Me.panelShipInfo.Size = New System.Drawing.Size(250, 670) 

  • branches/EveHQv2/EveHQ.HQF/Forms/frmHQF.resx

    r1231 r1254  
    319319        AU4DSwGKA0sBjQNBAW4DFQEbAwMBArwAAwcBCAMwAUoDQQFvAyQBMwMKAQsEAwwABAMDDgERAy8ERwF/ 
    320320        AyIBLwQGFAADCwENA0MBdAz/A1oBvgMWARwDUQGeDP8DUQGcAxYBHAQDLAADAwECAwgBCQMNARADCAEJ 
    321         AwMBAnQAAwIBAQMSARcDXAHDAWECVgHzA1wByANDAXMDJAEzAwwBDgQEAwsBDQMrAT8DTwGYA10B3wGo 
    322         AkEB/QNDAXUDCgELAwIBAQwABAYDQQFvAWYCXAHxBP8DVwG2A0oBhwM4AVsDCgEMAy4BRgNJAYQDUgGg 
    323         AWQCTgH2AXACVwH3A1MBoQMZASADAgEBKAADCAEJAzMBUANLAYoDMgFNAwkBCgMCAQEkAAMCAQEDAgEB 
     321        AwMBAnQAAwIBAQMSARcDXAHDAWECWAHzA1wByANDAXMDJAEzAwwBDgQEAwsBDQMrAT8DTwGYA10B3wGo 
     322        AkEB/QNDAXUDCgELAwIBAQwABAYDQQFvAWYCXgHxBP8DVwG2A0oBhwM4AVsDCgEMAy4BRgNJAYQDUgGg 
     323        AWQCTwH2AXACWAH3A1MBoQMZASADAgEBKAADCAEJAzMBUANLAYoDMgFNAwkBCgMCAQEkAAMCAQEDAgEB 
    324324        AwIBAQMCAQEDAgEBAwIBAQMCAQEDAgEBAwIBAQMCAQEDAgEBAwIBAQMCAQEDAgEBAwIBARAAAwIBAQMO 
    325         AREDWgHHAWACJwH7A4AB/gFmAlwB8QNYAbUDPAFiAxkBIQM/AWsDXwHQAywB/AGoAkEB/QFlAmIB5wM6 
     325        AREDWgHHAWACKAH7A4AB/gFmAl4B8QNYAbUDPAFiAxkBIQM/AWsDXwHQAywB/AGoAkEB/QFlAmMB5wM6 
    326326        AV4EBxAAAwoBDAFgAlwB0wT/A1sBvwMfASsEBgMDBAIBAQMDAQIEBQMQARMDSQGECP8DLQFDAwMBAiQA 
    327         AwIBAQMRARUDXQHEAV0CSgH4A0sBjQMSARYDAgEBIAADAgEBBAUDDQEQAxQBGgMUARoDFAEaAxQBGgMQ 
     327        AwIBAQMRARUDXQHEAV0CTQH4A0sBjQMSARYDAgEBIAADAgEBBAUDDQEQAxQBGgMUARoDFAEaAxQBGgMQ 
    328328        ARQDBwEIAwkBCgMSARcDFAEaAxQBGgMUARoDEwEYAwwBDgQFEAAEAwMQARMDNAFSA2AB4AOAAf4DLAH8 
    329329        A1oBuQMsAUEDXwHtA4AB/gGoAkEB/QNOAZQDHgEpBAYUAAMLAQ0BYAJcAdME/wNIAYADFAEaAwIBARAA 
    … …  
    336336        AxABFAMJAQoDAgEBFAADAwECAwsBDQMSARYDDgERBAUkAAMCAQEDEgEWAV8CWwHNA4AB/gNTAaEDKwFA 
    337337        BAcgAAQFAzkBXQNbAb0DWwG9A1sBvQNbAb0DWwG9AzMBTwMQARMDUgGfA1sBvQNbAb0DWwG9A1sBvQNN 
    338         AZIDEAETBAQgAAMCAQEDEAETA1oBuQFlAmAB7ANRAZ0DLAFCBAcgAAQDAzABSQNBAXADPAFjAykBPAQF 
     338        AZIDEAETBAQgAAMCAQEDEAETA1oBuQFlAmIB7ANRAZ0DLAFCBAcgAAQDAzABSQNBAXADPAFjAykBPAQF 
    339339        FAAEBwM6AV8DRgF9AzkBXAMaASMDAwECIAADAgEBAxEBFQNdAcwDgAH+A0UBegMcASUEByAAAwIBAQQF 
    340340        BwcBCAMHAQgDBwEIBAcEBQQDBAYDBwEIAwcBCAMHAQgDBwEIBAYDAwECJAADAgEBAxIBFgFfAlsBzQOA 
    … …  
    343343        IAADCwENA2IB1AT/A0UBewNCAXIDLwFHAxQBGgMNARADCQEKAwMBAgMKAQwDKgE9CP8DSAGAAyoBPgQF 
    344344        JAADAwECCAUEA4wAAwIBAQMSARYBXwJbAc0DgAH+A08BmAM8AWMDEgEWAwMBAhwAAwgBCQNYAboE/wNg 
    345         AdgDRQF7A0UBeAM+AWgDOQFcAywBQQMWARwDMgFNA1wBywT/AWMCWwHuAzoBXwMTARgDAgEBwAADAgEB 
     345        AdgDRQF7A0UBeAM+AWgDOQFcAywBQQMWARwDMgFNA1wBywT/AWMCXQHuAzoBXwMTARgDAgEBwAADAgEB 
    346346        AxIBFgFfAlsBzQOAAf4DPwFrAyEBLQMLAQ0DAwECHAAEAwMaASMDYAHVDP8DXAHGAzwBZANXAbEM/wFl 
    347         AmAB7ANAAW0DGAEfAwMBAsgAAwoBCwNNAZADWwG9AyYBNwQFAwMBAiQABAYDJgE2A10B0Qj/AVcCVQGr 
     347        AmIB7ANAAW0DGAEfAwMBAsgAAwoBCwNNAZADWwG9AyYBNwQFAwMBAiQABAYDJgE2A10B0Qj/AVcCVQGr 
    348348        AxMBGANOAZQI/wNhAdsDMQFMAw4BEQQDzAADAwECBAYEBwQEMAAEBAMQARQDGQEgAxgBHwMLAQ0DAwEC 
    349349        AwoBCwMXAR0DGQEhAxEBFQQG/wAZAAMCAQEDAgEBAwIBAQwAAwIBAQMCAQEDAgEB/wD/AJoAAUIBTQE+ 

  • branches/EveHQv2/EveHQ.HQF/Forms/frmHQF.vb

    r1231 r1254  
    22352235        Dim cModule As ShipModule = CType(ModuleLists.moduleList.Item(moduleID), ShipModule) 
    22362236        Dim pathLine As String = CStr(Market.MarketGroupPath(cModule.MarketGroup)) 
    2237         ShipModule.DisplayedMarketGroup = pathLine 
     2237        If pathLine IsNot Nothing Then 
     2238            ShipModule.DisplayedMarketGroup = pathLine 
     2239        Else 
     2240            MessageBox.Show("Unable to display Market Group due to absence of Market Group information in HQF.", "Unable to Show Market Group", MessageBoxButtons.OK, MessageBoxIcon.Information) 
     2241        End If 
    22382242    End Sub 
    22392243 

  • branches/EveHQv2/EveHQ.HQF/Forms/frmPilotManager.vb

    r1141 r1254  
    149149                    clvSkills.Items.Add(groupNode) 
    150150                    ' Now cycle through the list to get the skills 
    151                     For Each newSkill In EveHQ.Core.HQ.SkillListID.Values 
     151                    For Each newSkill In EveHQ.Core.HQ.SkillListName.Values 
    152152                        If newSkill.GroupID <> "505" Then 
    153153                            If newSkill.GroupID = newSkillGroup.ID And newSkill.Published = True Then 

  • branches/EveHQv2/EveHQ.Prism/Forms/frmPrism.Designer.vb

    r1055 r1254  
    248248        Me.colJobsStatus = New DotNetLib.Windows.Forms.ContainerListViewColumnHeader 
    249249        Me.tabRecycle = New System.Windows.Forms.TabPage 
     250        Me.btnExport = New EveHQ.Core.SplitButton 
     251        Me.ctxRecycleExport = New System.Windows.Forms.ContextMenuStrip(Me.components) 
     252        Me.mnuExportToCSV = New System.Windows.Forms.ToolStripMenuItem 
     253        Me.mnuExportToTSV = New System.Windows.Forms.ToolStripMenuItem 
     254        Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator 
     255        Me.mnuExportTotalsToCSV = New System.Windows.Forms.ToolStripMenuItem 
     256        Me.mnuExportTotalsToTSV = New System.Windows.Forms.ToolStripMenuItem 
    250257        Me.chkFeesOnItems = New System.Windows.Forms.CheckBox 
    251258        Me.lblPriceTotals = New System.Windows.Forms.Label 
    … …  
    407414        Me.ColumnHeader12 = New System.Windows.Forms.ColumnHeader 
    408415        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) 
    409         Me.btnExport = New EveHQ.Core.SplitButton 
    410         Me.ctxRecycleExport = New System.Windows.Forms.ContextMenuStrip(Me.components) 
    411         Me.mnuExportToCSV = New System.Windows.Forms.ToolStripMenuItem 
    412         Me.mnuExportToTSV = New System.Windows.Forms.ToolStripMenuItem 
    413         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator 
    414         Me.mnuExportTotalsToCSV = New System.Windows.Forms.ToolStripMenuItem 
    415         Me.mnuExportTotalsToTSV = New System.Windows.Forms.ToolStripMenuItem 
     416        Me.chkCorpHangarMode = New System.Windows.Forms.CheckBox 
    416417        Me.ctxAssets.SuspendLayout() 
    417418        Me.ctxFilter.SuspendLayout() 
    … …  
    439440        Me.tabJobs.SuspendLayout() 
    440441        Me.tabRecycle.SuspendLayout() 
     442        Me.ctxRecycleExport.SuspendLayout() 
    441443        CType(Me.nudTax, System.ComponentModel.ISupportInitialize).BeginInit() 
    442444        CType(Me.nudBrokerFee, System.ComponentModel.ISupportInitialize).BeginInit() 
    … …  
    458460        Me.StatusStrip1.SuspendLayout() 
    459461        Me.ToolStrip1.SuspendLayout() 
    460         Me.ctxRecycleExport.SuspendLayout() 
    461462        Me.SuspendLayout() 
    462463        ' 
    … …  
    465466        Me.ctxAssets.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuItemName, Me.ToolStripMenuItem1, Me.mnuAddCustomName, Me.mnuRemoveCustomName, Me.ToolStripMenuItem3, Me.mnuViewInIB, Me.mnuViewInHQF, Me.mnuModifyPrice, Me.mnuToolSep, Me.mnuItemRecycling}) 
    466467        Me.ctxAssets.Name = "ctxAssets" 
    467         Me.ctxAssets.Size = New System.Drawing.Size(198, 176) 
     468        Me.ctxAssets.Size = New System.Drawing.Size(194, 176) 
    468469        ' 
    469470        'mnuItemName 
    … …  
    471472        Me.mnuItemName.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold) 
    472473        Me.mnuItemName.Name = "mnuItemName" 
    473         Me.mnuItemName.Size = New System.Drawing.Size(197, 22) 
     474        Me.mnuItemName.Size = New System.Drawing.Size(193, 22) 
    474475        Me.mnuItemName.Text = "Item Name" 
    475476        ' 
    … …  
    477478        ' 
    478479        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" 
    479         Me.ToolStripMenuItem1.Size = New System.Drawing.Size(194, 6) 
     480        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(190, 6) 
    480481        ' 
    481482        'mnuAddCustomName 
    482483        ' 
    483484        Me.mnuAddCustomName.Name = "mnuAddCustomName" 
    484         Me.mnuAddCustomName.Size = New System.Drawing.Size(197, 22) 
     485        Me.mnuAddCustomName.Size = New System.Drawing.Size(193, 22) 
    485486        Me.mnuAddCustomName.Text = "Add Custom Name" 
    486487        ' 
    … …  
    488489        ' 
    489490        Me.mnuRemoveCustomName.Name = "mnuRemoveCustomName" 
    490         Me.mnuRemoveCustomName.Size = New System.Drawing.Size(197, 22) 
     491        Me.mnuRemoveCustomName.Size = New System.Drawing.Size(193, 22) 
    491492        Me.mnuRemoveCustomName.Text = "Remove Custom Name" 
    492493        ' 
    … …  
    494495        ' 
    495496        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" 
    496         Me.ToolStripMenuItem3.Size = New System.Drawing.Size(194, 6) 
     497        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(190, 6) 
    497498        ' 
    498499        'mnuViewInIB 
    499500        ' 
    500501        Me.mnuViewInIB.Name = "mnuViewInIB" 
    501         Me.mnuViewInIB.Size = New System.Drawing.Size(197, 22) 
     502        Me.mnuViewInIB.Size = New System.Drawing.Size(193, 22) 
    502503        Me.mnuViewInIB.Text = "View In Item Browser" 
    503504        ' 
    … …  
    505506        ' 
    506507        Me.mnuViewInHQF.Name = "mnuViewInHQF" 
    507         Me.mnuViewInHQF.Size = New System.Drawing.Size(197, 22) 
     508        Me.mnuViewInHQF.Size = New System.Drawing.Size(193, 22) 
    508509        Me.mnuViewInHQF.Text = "Copy Setup for HQF" 
    509510        ' 
    … …  
    511512        ' 
    512513        Me.mnuModifyPrice.Name = "mnuModifyPrice" 
    513         Me.mnuModifyPrice.Size = New System.Drawing.Size(197, 22) 
     514        Me.mnuModifyPrice.Size = New System.Drawing.Size(193, 22) 
    514515        Me.mnuModifyPrice.Text = "Modify Custom Price" 
    515516        ' 
    … …  
    517518        ' 
    518519        Me.mnuToolSep.Name = "mnuToolSep" 
    519         Me.mnuToolSep.Size = New System.Drawing.Size(194, 6) 
     520        Me.mnuToolSep.Size = New System.Drawing.Size(190, 6) 
    520521        ' 
    521522        'mnuItemRecycling 
    … …  
    523524        Me.mnuItemRecycling.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuRecycleItem, Me.mnuRecycleContained, Me.mnuRecycleAll}) 
    524525        Me.mnuItemRecycling.Name = "mnuItemRecycling" 
    525         Me.mnuItemRecycling.Size = New System.Drawing.Size(197, 22) 
     526        Me.mnuItemRecycling.Size = New System.Drawing.Size(193, 22) 
    526527        Me.mnuItemRecycling.Text = "Recycling Profitability" 
    527528        ' 
    … …  
    529530        ' 
    530531        Me.mnuRecycleItem.Name = "mnuRecycleItem" 
    531         Me.mnuRecycleItem.Size = New System.Drawing.Size(169, 22) 
     532        Me.mnuRecycleItem.Size = New System.Drawing.Size(173, 22) 
    532533        Me.mnuRecycleItem.Text = "Current Item" 
    533534        ' 
    … …  
    536537        Me.mnuRecycleContained.Enabled = False 
    537538        Me.mnuRecycleContained.Name = "mnuRecycleContained" 
    538         Me.mnuRecycleContained.Size = New System.Drawing.Size(169, 22) 
     539        Me.mnuRecycleContained.Size = New System.Drawing.Size(173, 22) 
    539540        Me.mnuRecycleContained.Text = "Contained Items" 
    540541        ' 
    … …  
    543544        Me.mnuRecycleAll.Enabled = False 
    544545        Me.mnuRecycleAll.Name = "mnuRecycleAll" 
    545         Me.mnuRecycleAll.Size = New System.Drawing.Size(169, 22) 
     546        Me.mnuRecycleAll.Size = New System.Drawing.Size(173, 22) 
    546547        Me.mnuRecycleAll.Text = "Container + Items" 
    547548        ' 
    … …  
    570571        Me.ctxFilter.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddToFilterToolStripMenuItem}) 
    571572        Me.ctxFilter.Name = "ctxFilter" 
    572         Me.ctxFilter.Size = New System.Drawing.Size(143, 26) 
     573        Me.ctxFilter.Size = New System.Drawing.Size(147, 26) 
    573574        ' 
    574575        'AddToFilterToolStripMenuItem 
    575576        ' 
    576577        Me.AddToFilterToolStripMenuItem.Name = "AddToFilterToolStripMenuItem" 
    577         Me.AddToFilterToolStripMenuItem.Size = New System.Drawing.Size(142, 22) 
     578        Me.AddToFilterToolStripMenuItem.Size = New System.Drawing.Size(146, 22) 
    578579        Me.AddToFilterToolStripMenuItem.Text = "Add To Filter" 
    579580        ' 
    … …  
    603604        Me.ctxFilterList.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RemoveFilterToolStripMenuItem}) 
    604605        Me.ctxFilterList.Name = "ctxFilterList" 
    605         Me.ctxFilterList.Size = New System.Drawing.Size(147, 26) 
     606        Me.ctxFilterList.Size = New System.Drawing.Size(152, 26) 
    606607        ' 
    607608        'RemoveFilterToolStripMenuItem 
    608609        ' 
    609610        Me.RemoveFilterToolStripMenuItem.Name = "RemoveFilterToolStripMenuItem" 
    610         Me.RemoveFilterToolStripMenuItem.Size = New System.Drawing.Size(146, 22) 
     611        Me.RemoveFilterToolStripMenuItem.Size = New System.Drawing.Size(151, 22) 
    611612        Me.RemoveFilterToolStripMenuItem.Text = "Remove Filter" 
    612613        ' 
    … …  
    645646        Me.ctxTabPrism.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClosePrismTab}) 
    646647        Me.ctxTabPrism.Name = "ctxTabbedMDI" 
    647         Me.ctxTabPrism.Size = New System.Drawing.Size(124, 26) 
     648        Me.ctxTabPrism.Size = New System.Drawing.Size(128, 26) 
    648649        ' 
    649650        'mnuClosePrismTab 
    650651        ' 
    651652        Me.mnuClosePrismTab.Name = "mnuClosePrismTab" 
    652         Me.mnuClosePrismTab.Size = New System.Drawing.Size(123, 22) 
     653        Me.mnuClosePrismTab.Size = New System.Drawing.Size(127, 22) 
    653654        Me.mnuClosePrismTab.Text = "Not Valid" 
    654655        ' 
    … …  
    749750        Me.ctxAPIStatus.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClearXMLCache}) 
    750751        Me.ctxAPIStatus.Name = "ctxAPIStatus" 
    751         Me.ctxAPIStatus.Size = New System.Drawing.Size(198, 26) 
     752        Me.ctxAPIStatus.Size = New System.Drawing.Size(194, 26) 
    752753        ' 
    753754        'mnuClearXMLCache 
    754755        ' 
    755756        Me.mnuClearXMLCache.Name = "mnuClearXMLCache" 
    756         Me.mnuClearXMLCache.Size = New System.Drawing.Size(197, 22) 
     757        Me.mnuClearXMLCache.Size = New System.Drawing.Size(193, 22) 
    757758        Me.mnuClearXMLCache.Text = "Clear Prism XML Cache" 
    758759        ' 
    759760        'tabAssets 
    760761        ' 
     762        Me.tabAssets.Controls.Add(Me.chkCorpHangarMode) 
    761763        Me.tabAssets.Controls.Add(Me.chkExcludeOrders) 
    762764        Me.tabAssets.Controls.Add(Me.btnFilters) 
    … …  
    784786        ' 
    785787        Me.chkExcludeOrders.AutoSize = True 
    786         Me.chkExcludeOrders.Location = New System.Drawing.Point(724, 59) 
     788        Me.chkExcludeOrders.Location = New System.Drawing.Point(455, 60) 
    787789        Me.chkExcludeOrders.Name = "chkExcludeOrders" 
    788790        Me.chkExcludeOrders.Size = New System.Drawing.Size(99, 17) 
    … …  
    811813        'txtMinSystemValue 
    812814        ' 
    813         Me.txtMinSystemValue.Location = New System.Drawing.Point(572, 57) 
     815        Me.txtMinSystemValue.Location = New System.Drawing.Point(679, 57) 
    814816        Me.txtMinSystemValue.Name = "txtMinSystemValue" 
    815817        Me.txtMinSystemValue.Size = New System.Drawing.Size(135, 21) 
    … …  
    821823        ' 
    822824        Me.chkMinSystemValue.AutoSize = True 
    823         Me.chkMinSystemValue.Location = New System.Drawing.Point(453, 60) 
     825        Me.chkMinSystemValue.Location = New System.Drawing.Point(560, 60) 
    824826        Me.chkMinSystemValue.Name = "chkMinSystemValue" 
    825827        Me.chkMinSystemValue.Size = New System.Drawing.Size(113, 17) 
    … …  
    878880        'txtSearch 
    879881        ' 
    880         Me.txtSearch.Location = New System.Drawing.Point(113, 34) 
     882        Me.txtSearch.Location = New System.Drawing.Point(56, 34) 
    881883        Me.txtSearch.Name = "txtSearch" 
    882         Me.txtSearch.Size = New System.Drawing.Size(215, 21) 
     884        Me.txtSearch.Size = New System.Drawing.Size(231, 21) 
    883885        Me.txtSearch.TabIndex = 19 
    884886        ' 
    … …  
    26712673        Me.tabRecycle.UseVisualStyleBackColor = True 
    26722674        ' 
     2675        'btnExport 
     2676        ' 
     2677        Me.btnExport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 
     2678        Me.btnExport.AutoSize = True 
     2679        Me.btnExport.ContextMenuStrip = Me.ctxRecycleExport 
     2680        Me.btnExport.Location = New System.Drawing.Point(1030, 520) 
     2681        Me.btnExport.Name = "btnExport" 
     2682        Me.btnExport.Size = New System.Drawing.Size(100, 23) 
     2683        Me.btnExport.SplitMenu = Me.ctxRecycleExport 
     2684        Me.btnExport.TabIndex = 62 
     2685        Me.btnExport.Text = "Export" 
     2686        Me.btnExport.UseVisualStyleBackColor = True 
     2687        ' 
     2688        'ctxRecycleExport 
     2689        ' 
     2690        Me.ctxRecycleExport.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuExportToCSV, Me.mnuExportToTSV, Me.ToolStripMenuItem5, Me.mnuExportTotalsToCSV, Me.mnuExportTotalsToTSV}) 
     2691        Me.ctxRecycleExport.Name = "ctxResourceExport" 
     2692        Me.ctxRecycleExport.Size = New System.Drawing.Size(282, 98) 
     2693        ' 
     2694        'mnuExportToCSV 
     2695        ' 
     2696        Me.mnuExportToCSV.Name = "mnuExportToCSV" 
     2697        Me.mnuExportToCSV.Size = New System.Drawing.Size(281, 22) 
     2698        Me.mnuExportToCSV.Text = "Copy Recycling Data to Clipboard (CSV)" 
     2699        ' 
     2700        'mnuExportToTSV 
     2701        ' 
     2702        Me.mnuExportToTSV.Name = "mnuExportToTSV" 
     2703        Me.mnuExportToTSV.Size = New System.Drawing.Size(281, 22) 
     2704        Me.mnuExportToTSV.Text = "Copy Recycling Data to Clipboard (TSV)" 
     2705        ' 
     2706        'ToolStripMenuItem5 
     2707        ' 
     2708        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" 
     2709        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(278, 6) 
     2710        ' 
     2711        'mnuExportTotalsToCSV 
     2712        ' 
     2713        Me.mnuExportTotalsToCSV.Name = "mnuExportTotalsToCSV" 
     2714        Me.mnuExportTotalsToCSV.Size = New System.Drawing.Size(281, 22) 
     2715        Me.mnuExportTotalsToCSV.Text = "Copy Recycling Totals to Clipboard (CSV)" 
     2716        ' 
     2717        'mnuExportTotalsToTSV 
     2718        ' 
     2719        Me.mnuExportTotalsToTSV.Name = "mnuExportTotalsToTSV" 
     2720        Me.mnuExportTotalsToTSV.Size = New System.Drawing.Size(281, 22) 
     2721        Me.mnuExportTotalsToTSV.Text = "Copy Recycling Totals to Clipboard (TSV)" 
     2722        ' 
    26732723        'chkFeesOnItems 
    26742724        ' 
    … …  
    31483198        Me.ctxRecycleItems.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAddRecycleItem}) 
    31493199        Me.ctxRecycleItems.Name = "ctxRecycleItem" 
    3150         Me.ctxRecycleItems.Size = New System.Drawing.Size(124, 26) 
     3200        Me.ctxRecycleItems.Size = New System.Drawing.Size(130, 26) 
    31513201        ' 
    31523202        'mnuAddRecycleItem 
    31533203        ' 
    31543204        Me.mnuAddRecycleItem.Name = "mnuAddRecycleItem" 
    3155         Me.mnuAddRecycleItem.Size = New System.Drawing.Size(123, 22) 
     3205        Me.mnuAddRecycleItem.Size = New System.Drawing.Size(129, 22) 
    31563206        Me.mnuAddRecycleItem.Text = "Add Item" 
    31573207        ' 
    … …  
    31603210        Me.ctxRecycleItem.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAlterRecycleQuantity, Me.ToolStripMenuItem2, Me.mnuRemoveRecycleItem}) 
    31613211        Me.ctxRecycleItem.Name = "ctxRecycleItem" 
    3162         Me.ctxRecycleItem.Size = New System.Drawing.Size(149, 54) 
     3212        Me.ctxRecycleItem.Size = New System.Drawing.Size(154, 54) 
    31633213        ' 
    31643214        'mnuAlterRecycleQuantity 
    31653215        ' 
    31663216        Me.mnuAlterRecycleQuantity.Name = "mnuAlterRecycleQuantity" 
    3167         Me.mnuAlterRecycleQuantity.Size = New System.Drawing.Size(148, 22) 
     3217        Me.mnuAlterRecycleQuantity.Size = New System.Drawing.Size(153, 22) 
    31683218        Me.mnuAlterRecycleQuantity.Text = "Alter Quantity" 
    31693219        ' 
    … …  
    31713221        ' 
    31723222        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" 
    3173         Me.ToolStripMenuItem2.Size = New System.Drawing.Size(145, 6) 
     3223        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(150, 6) 
    31743224        ' 
    31753225        'mnuRemoveRecycleItem 
    31763226        ' 
    31773227        Me.mnuRemoveRecycleItem.Name = "mnuRemoveRecycleItem" 
    3178         Me.mnuRemoveRecycleItem.Size = New System.Drawing.Size(148, 22) 
     3228        Me.mnuRemoveRecycleItem.Size = New System.Drawing.Size(153, 22) 
    31793229        Me.mnuRemoveRecycleItem.Text = "Remove Item" 
    31803230        ' 
    … …  
    36523702        Me.ctxBPManager.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuSendToBPCalc, Me.ToolStripMenuItem4, Me.mnuAmendBPDetails, Me.mnuRemoveCustomBP}) 
    36533703        Me.ctxBPManager.Name = "ctxBPManager" 
    3654         Me.ctxBPManager.Size = New System.Drawing.Size(223, 76) 
     3704        Me.ctxBPManager.Size = New System.Drawing.Size(219, 76) 
    36553705        ' 
    36563706        'mnuSendToBPCalc 
    36573707        ' 
    36583708        Me.mnuSendToBPCalc.Name = "mnuSendToBPCalc" 
    3659         Me.mnuSendToBPCalc.Size = New System.Drawing.Size(222, 22) 
     3709        Me.mnuSendToBPCalc.Size = New System.Drawing.Size(218, 22) 
    36603710        Me.mnuSendToBPCalc.Text = "Send to Blueprint Calculator" 
    36613711        ' 
    … …  
    36633713        ' 
    36643714        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" 
    3665         Me.ToolStripMenuItem4.Size = New System.Drawing.Size(219, 6) 
     3715        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(215, 6) 
    36663716        ' 
    36673717        'mnuAmendBPDetails 
    36683718        ' 
    36693719        Me.mnuAmendBPDetails.Name = "mnuAmendBPDetails" 
    3670         Me.mnuAmendBPDetails.Size = New System.Drawing.Size(222, 22) 
     3720        Me.mnuAmendBPDetails.Size = New System.Drawing.Size(218, 22) 
    36713721        Me.mnuAmendBPDetails.Text = "Amend Blueprint Details" 
    36723722        ' 
    … …  
    36743724        ' 
    36753725        Me.mnuRemoveCustomBP.Name = "mnuRemoveCustomBP" 
    3676         Me.mnuRemoveCustomBP.Size = New System.Drawing.Size(222, 22) 
     3726        Me.mnuRemoveCustomBP.Size = New System.Drawing.Size(218, 22) 
    36773727        Me.mnuRemoveCustomBP.Text = "Remove Custom Blueprint" 
    36783728        ' 
    … …  
    36893739        ' 
    36903740        Me.tssLabelTotalAssetsLabel.Name = "tssLabelTotalAssetsLabel" 
    3691         Me.tssLabelTotalAssetsLabel.Size = New System.Drawing.Size(154, 17) 
     3741        Me.tssLabelTotalAssetsLabel.Size = New System.Drawing.Size(143, 17) 
    36923742        Me.tssLabelTotalAssetsLabel.Text = "Total Displayed Asset Value:" 
    36933743        ' 
    … …  
    37043754        ' 
    37053755        Me.tssLabelSelectedAssetsLabel.Name = "tssLabelSelectedAssetsLabel" 
    3706         Me.tssLabelSelectedAssetsLabel.Size = New System.Drawing.Size(162, 17) 
     3756        Me.tssLabelSelectedAssetsLabel.Size = New System.Drawing.Size(153, 17) 
    37073757        Me.tssLabelSelectedAssetsLabel.Text = "     Total Selected Asset Value:" 
    37083758        ' 
    … …  
    39073957        ' 
    39083958        Me.mnuLocation.Name = "mnuLocation" 
    3909         Me.mnuLocation.Size = New System.Drawing.Size(173, 22) 
     3959        Me.mnuLocation.Size = New System.Drawing.Size(184, 22) 
    39103960        Me.mnuLocation.Text = "Grouped by Location" 
    39113961        ' 
    … …  
    39143964        Me.mnuAssetLists.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAssetListName, Me.mnuAssetListQuantity, Me.mnuAssetListPrice, Me.mnuAssetListValue}) 
    39153965        Me.mnuAssetLists.Name = "mnuAssetLists" 
    3916         Me.mnuAssetLists.Size = New System.Drawing.Size(173, 22) 
     3966        Me.mnuAssetLists.Size = New System.Drawing.Size(184, 22) 
    39173967        Me.mnuAssetLists.Text = "Asset Lists" 
    39183968        ' 
    … …  
    39203970        ' 
    39213971        Me.mnuAssetListName.Name = "mnuAssetListName" 
    3922         Me.mnuAssetListName.Size = New System.Drawing.Size(184, 22) 
     3972        Me.mnuAssetListName.Size = New System.Drawing.Size(195, 22) 
    39233973        Me.mnuAssetListName.Text = "Asset List (Name)" 
    39243974        ' 
    … …  
    39273977        Me.mnuAssetListQuantity.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAssetListQuantityA, Me.mnuAssetListQuantityD}) 
    39283978        Me.mnuAssetListQuantity.Name = "mnuAssetListQuantity" 
    3929         Me.mnuAssetListQuantity.Size = New System.Drawing.Size(184, 22) 
     3979        Me.mnuAssetListQuantity.Size = New System.Drawing.Size(195, 22) 
    39303980        Me.mnuAssetListQuantity.Text = "Asset List (Quantity)" 
    39313981        ' 
    … …  
    39333983        ' 
    39343984        Me.mnuAssetListQuantityA.Name = "mnuAssetListQuantityA" 
    3935         Me.mnuAssetListQuantityA.Size = New System.Drawing.Size(129, 22) 
     3985        Me.mnuAssetListQuantityA.Size = New System.Drawing.Size(140, 22) 
    39363986        Me.mnuAssetListQuantityA.Text = "Ascending" 
    39373987        ' 
    … …  
    39393989        ' 
    39403990        Me.mnuAssetListQuantityD.Name = "mnuAssetListQuantityD" 
    3941         Me.mnuAssetListQuantityD.Size = New System.Drawing.Size(129, 22) 
     3991        Me.mnuAssetListQuantityD.Size = New System.Drawing.Size(140, 22) 
    39423992        Me.mnuAssetListQuantityD.Text = "Descending" 
    39433993        ' 
    … …  
    39463996        Me.mnuAssetListPrice.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAssetListPriceA, Me.mnuAssetListPriceD}) 
    39473997        Me.mnuAssetListPrice.Name = "mnuAssetListPrice" 
    3948         Me.mnuAssetListPrice.Size = New System.Drawing.Size(184, 22) 
     3998        Me.mnuAssetListPrice.Size = New System.Drawing.Size(195, 22) 
    39493999        Me.mnuAssetListPrice.Text = "Asset List (Unit Price)" 
    39504000        ' 
    … …  
    39524002        ' 
    39534003        Me.mnuAssetListPriceA.Name = "mnuAssetListPriceA" 
    3954         Me.mnuAssetListPriceA.Size = New System.Drawing.Size(129, 22) 
     4004        Me.mnuAssetListPriceA.Size = New System.Drawing.Size(140, 22) 
    39554005        Me.mnuAssetListPriceA.Text = "Ascending" 
    39564006        ' 
    … …  
    39584008        ' 
    39594009        Me.mnuAssetListPriceD.Name = "mnuAssetListPriceD" 
    3960         Me.mnuAssetListPriceD.Size = New System.Drawing.Size(129, 22) 
     4010        Me.mnuAssetListPriceD.Size = New System.Drawing.Size(140, 22) 
    39614011        Me.mnuAssetListPriceD.Text = "Descending" 
    39624012        ' 
    … …  
    39654015        Me.mnuAssetListValue.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAssetListValueA, Me.mnuAssetListValueD}) 
    39664016        Me.mnuAssetListValue.Name = "mnuAssetListValue" 
    3967         Me.mnuAssetListValue.Size = New System.Drawing.Size(184, 22) 
     4017        Me.mnuAssetListValue.Size = New System.Drawing.Size(195, 22) 
    39684018        Me.mnuAssetListValue.Text = "Asset List (Total Value)" 
    39694019        ' 
    … …  
    39714021        ' 
    39724022        Me.mnuAssetListValueA.Name = "mnuAssetListValueA" 
    3973         Me.mnuAssetListValueA.Size = New System.Drawing.Size(129, 22) 
     4023        Me.mnuAssetListValueA.Size = New System.Drawing.Size(140, 22) 
    39744024        Me.mnuAssetListValueA.Text = "Ascending" 
    39754025        ' 
    … …  
    39774027        ' 
    39784028        Me.mnuAssetListValueD.Name = "mnuAssetListValueD" 
    3979         Me.mnuAssetListValueD.Size = New System.Drawing.Size(129, 22) 
     4029        Me.mnuAssetListValueD.Size = New System.Drawing.Size(140, 22) 
    39804030        Me.mnuAssetListValueD.Text = "Descending" 
    39814031        ' 
    … …  
    40484098        Me.ColumnHeader12.Width = 119 
    40494099        ' 
    4050         'btnExport 
    4051         ' 
    4052         Me.btnExport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 
    4053         Me.btnExport.AutoSize = True 
    4054         Me.btnExport.ContextMenuStrip = Me.ctxRecycleExport 
    4055         Me.btnExport.Location = New System.Drawing.Point(1030, 520) 
    4056         Me.btnExport.Name = "btnExport" 
    4057         Me.btnExport.Size = New System.Drawing.Size(100, 23) 
    4058         Me.btnExport.SplitMenu = Me.ctxRecycleExport 
    4059         Me.btnExport.TabIndex = 62 
    4060         Me.btnExport.Text = "Export" 
    4061         Me.btnExport.UseVisualStyleBackColor = True 
    4062         ' 
    4063         'ctxRecycleExport 
    4064         ' 
    4065         Me.ctxRecycleExport.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuExportToCSV, Me.mnuExportToTSV, Me.ToolStripMenuItem5, Me.mnuExportTotalsToCSV, Me.mnuExportTotalsToTSV}) 
    4066         Me.ctxRecycleExport.Name = "ctxResourceExport" 
    4067         Me.ctxRecycleExport.Size = New System.Drawing.Size(293, 120) 
    4068         ' 
    4069         'mnuExportToCSV 
    4070         ' 
    4071         Me.mnuExportToCSV.Name = "mnuExportToCSV" 
    4072         Me.mnuExportToCSV.Size = New System.Drawing.Size(292, 22) 
    4073         Me.mnuExportToCSV.Text = "Copy Recycling Data to Clipboard (CSV)" 
    4074         ' 
    4075         'mnuExportToTSV 
    4076         ' 
    4077         Me.mnuExportToTSV.Name = "mnuExportToTSV" 
    4078         Me.mnuExportToTSV.Size = New System.Drawing.Size(292, 22) 
    4079         Me.mnuExportToTSV.Text = "Copy Recycling Data to Clipboard (TSV)" 
    4080         ' 
    4081         'ToolStripMenuItem5 
    4082         ' 
    4083         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" 
    4084         Me.ToolStripMenuItem5.Size = New System.Drawing.Size(289, 6) 
    4085         ' 
    4086         'mnuExportTotalsToCSV 
    4087         ' 
    4088         Me.mnuExportTotalsToCSV.Name = "mnuExportTotalsToCSV" 
    4089         Me.mnuExportTotalsToCSV.Size = New System.Drawing.Size(292, 22) 
    4090         Me.mnuExportTotalsToCSV.Text = "Copy Recycling Totals to Clipboard (CSV)" 
    4091         ' 
    4092         'mnuExportTotalsToTSV 
    4093         ' 
    4094         Me.mnuExportTotalsToTSV.Name = "mnuExportTotalsToTSV" 
    4095         Me.mnuExportTotalsToTSV.Size = New System.Drawing.Size(292, 22) 
    4096         Me.mnuExportTotalsToTSV.Text = "Copy Recycling Totals to Clipboard (TSV)" 
     4100        'chkCorpHangarMode 
     4101        ' 
     4102        Me.chkCorpHangarMode.AutoSize = True 
     4103        Me.chkCorpHangarMode.Checked = True 
     4104        Me.chkCorpHangarMode.CheckState = System.Windows.Forms.CheckState.Checked 
     4105        Me.chkCorpHangarMode.Location = New System.Drawing.Point(171, 10) 
     4106        Me.chkCorpHangarMode.Name = "chkCorpHangarMode" 
     4107        Me.chkCorpHangarMode.Size = New System.Drawing.Size(116, 17) 
     4108        Me.chkCorpHangarMode.TabIndex = 30 
     4109        Me.chkCorpHangarMode.Text = "Corp Hangar Mode" 
     4110        Me.chkCorpHangarMode.UseVisualStyleBackColor = True 
    40974111        ' 
    40984112        'frmPrism 
    … …  
    41474161        Me.tabRecycle.ResumeLayout(False) 
    41484162        Me.tabRecycle.PerformLayout() 
     4163        Me.ctxRecycleExport.ResumeLayout(False) 
    41494164        CType(Me.nudTax, System.ComponentModel.ISupportInitialize).EndInit() 
    41504165        CType(Me.nudBrokerFee, System.ComponentModel.ISupportInitialize).EndInit() 
    … …  
    41694184        Me.ToolStrip1.ResumeLayout(False) 
    41704185        Me.ToolStrip1.PerformLayout() 
    4171         Me.ctxRecycleExport.ResumeLayout(False) 
    41724186        Me.ResumeLayout(False) 
    41734187        Me.PerformLayout() 
    … …  
    45614575    Friend WithEvents mnuExportTotalsToCSV As System.Windows.Forms.ToolStripMenuItem 
    45624576    Friend WithEvents mnuExportTotalsToTSV As System.Windows.Forms.ToolStripMenuItem 
     4577    Friend WithEvents chkCorpHangarMode As System.Windows.Forms.CheckBox 
    45634578End Class 

  • branches/EveHQv2/EveHQ.Prism/Forms/frmPrism.resx

    r1055 r1254  
    130130    <value>546, 17</value> 
    131131  </metadata> 
     132  <metadata name="ctxAPIStatus.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
     133    <value>17, 54</value> 
     134  </metadata> 
    132135  <metadata name="ctxRecycleExport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    133136    <value>136, 54</value> 
    134   </metadata> 
    135   <metadata name="ctxAPIStatus.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 
    136     <value>17, 54</value> 
    137137  </metadata> 
    138138  <metadata name="ctxRecycleItems.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> 

  • branches/EveHQv2/EveHQ.Prism/Forms/frmPrism.vb

    r1187 r1254  
    5454    Dim totalAssetBatch As Long = 0 
    5555    Dim HQFShip As New ArrayList 
     56    Dim assetCorpMode As Boolean = False 
    5657    Dim IndustryTimeFormat As String = "yyyy-MM-dd HH:mm:ss" 
    5758    Dim culture As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-GB") 
    … …  
    806807            Dim rep As String = "" 
    807808            Dim IsCorp As Boolean = False 
     809            assetCorpMode = False 
    808810            ' See if this owner is a corp 
    809811            If PlugInData.CorpList.ContainsKey(owner) = True Then 
    810812                IsCorp = True 
     813                assetCorpMode = chkCorpHangarMode.Checked 
    811814                ' See if we have a representative 
    812815                Dim CorpRep As SortedList = CType(PlugInData.CorpReps(0), Collections.SortedList) 
    … …  
    969972                                linePrice = 0 
    970973                            Else 
    971                                 newAsset.SubItems(AssetColumn.Price).Text = FormatNumber(Math.Round(EveHQ.Core.DataFunctions.GetPrice(itemID), 2), 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
    972                                 If IsNumeric(newAsset.SubItems(8).Text) = True Then 
    973                                     linePrice = CDbl(newAsset.SubItems(7).Text) * CDbl(newAsset.SubItems(8).Text) 
     974                                ' Check with BP Manager if this is a BPO 
     975                                Dim IsBPO As Boolean = True 
     976                                If PlugInData.BlueprintAssets.ContainsKey(owner) = True Then 
     977                                    If PlugInData.BlueprintAssets(owner).ContainsKey(newAsset.Tag.ToString) = True Then 
     978                                        Dim chkBPO As BlueprintAsset = PlugInData.BlueprintAssets(owner).Item(newAsset.Tag.ToString) 
     979                                        If chkBPO.Runs > -1 Or chkBPO.BPType = BPType.Unknown Then 
     980                                            IsBPO = False 
     981                                            If chkBPO.BPType <> BPType.Unknown Then 
     982                                                newAsset.Text = newAsset.Text.Replace("Blueprint", "BPC") 
     983                                            End If 
     984                                        Else 
     985                                            newAsset.Text = newAsset.Text.Replace("Blueprint", "BPO") 
     986                                        End If 
     987                                    End If 
     988                                End If 
     989                                If IsBPO = True Then 
     990                                    newAsset.SubItems(AssetColumn.Price).Text = FormatNumber(Math.Round(EveHQ.Core.DataFunctions.GetPrice(itemID), 2), 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
     991                                    If IsNumeric(newAsset.SubItems(AssetColumn.Price).Text) = True Then 
     992                                        linePrice = CDbl(newAsset.SubItems(AssetColumn.Quantity).Text) * CDbl(newAsset.SubItems(AssetColumn.Price).Text) 
     993                                    Else 
     994                                        linePrice = 0 
     995                                    End If 
    974996                                Else 
     997                                    newAsset.SubItems(AssetColumn.Price).Text = FormatNumber(0, 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
    975998                                    linePrice = 0 
    976999                                End If 
    … …  
    10281051        Dim subLoc As XmlNode 
    10291052        Dim containerPrice As Double = 0 
     1053        Dim AssetIsInHanger As Boolean = False 
     1054        Dim hangarPrice As Double = 0 
    10301055        Dim linePrice As Double = 0 
    10311056        subLocList = loc.ChildNodes(0).ChildNodes 
    … …  
    10771102                Dim subAsset As New ContainerListViewItem 
    10781103                subAsset.Tag = subLoc.Attributes.GetNamedItem("itemID").Value 
    1079                 parentAsset.Items.Add(subAsset) 
     1104                Dim subFlagID As Integer = CInt(subLoc.Attributes.GetNamedItem("flag").Value) 
     1105                Dim subFlagName As String = PlugInData.itemFlags(subFlagID).ToString 
     1106                Dim accountID As Integer = subFlagID + 885 
     1107                If accountID = 889 Then accountID = 1000 
     1108                If assetOwner = selPilot.Corp And groupName <> "Station Services" Then 
     1109                    If divisions.ContainsKey(selPilot.CorpID & "_" & accountID.ToString) = True Then 
     1110                        subFlagName = CStr(divisions.Item(selPilot.CorpID & "_" & accountID.ToString)) 
     1111                        If assetCorpMode = True And parentAsset.Items.Count < 7 Then 
     1112                            ' Build the corp division nodes 
     1113                            For div As Integer = 0 To 6 
     1114                                Dim hangar As New ContainerListViewItem 
     1115                                hangar.Text = CStr(divisions.Item(selPilot.CorpID & "_" & (1000 + div).ToString)) 
     1116                                parentAsset.Items.Add(hangar) 
     1117                                hangar.SubItems(AssetColumn.Value).Text = FormatNumber(0, 2) 
     1118                            Next 
     1119                        End If 
     1120                    End If 
     1121                End If 
     1122                If assetCorpMode = True And (subFlagID = 4 Or (subFlagID >= 116 And subFlagID <= 121)) Then 
     1123                    parentAsset.Items(accountID - 1000).Items.Add(subAsset) 
     1124                    AssetIsInHanger = True 
     1125                Else 
     1126                    parentAsset.Items.Add(subAsset) 
     1127                    AssetIsInHanger = False 
     1128                End If 
    10801129                subAsset.SubItems(0).Tag = itemName 
    10811130                If PlugInData.AssetItemNames.ContainsKey(subAsset.Tag.ToString) = True Then 
    … …  
    10871136                subAsset.SubItems(AssetColumn.Group).Text = groupName 
    10881137                subAsset.SubItems(AssetColumn.Category).Text = catName 
    1089                 Dim subFlagID As Integer = CInt(subLoc.Attributes.GetNamedItem("flag").Value) 
    1090                 Dim subFlagName As String = PlugInData.itemFlags(subFlagID).ToString 
    1091                 If assetOwner = selPilot.Corp And subAsset.SubItems(2).Text <> "Station Services" Then 
    1092                     Dim accountID As Integer = subFlagID + 885 
    1093                     If accountID = 889 Then accountID = 1000 
    1094                     If divisions.ContainsKey(selPilot.CorpID & "_" & accountID.ToString) = True Then 
    1095                         subFlagName = CStr(divisions.Item(selPilot.CorpID & "_" & accountID.ToString)) 
    1096                     End If 
    1097                 End If 
    10981138                subAsset.SubItems(AssetColumn.Location).Text = subFlagName 
    10991139                subAsset.SubItems(AssetColumn.Meta).Text = metaLevel 
    … …  
    11041144                    linePrice = 0 
    11051145                Else 
    1106                     subAsset.SubItems(AssetColumn.Price).Text = FormatNumber(Math.Round(EveHQ.Core.DataFunctions.GetPrice(ItemID), 2), 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
    1107                     If IsNumeric(subAsset.SubItems(AssetColumn.Price).Text) = True Then 
    1108                         linePrice = CDbl(subAsset.SubItems(AssetColumn.Quantity).Text) * CDbl(subAsset.SubItems(AssetColumn.Price).Text) 
     1146                    ' Check with BP Manager if this is a BPO 
     1147                    Dim IsBPO As Boolean = True 
     1148                    If PlugInData.BlueprintAssets.ContainsKey(assetOwner) = True Then 
     1149                        If PlugInData.BlueprintAssets(assetOwner).ContainsKey(subAsset.Tag.ToString) = True Then 
     1150                            Dim chkBPO As BlueprintAsset = PlugInData.BlueprintAssets(assetOwner).Item(subAsset.Tag.ToString) 
     1151                            If chkBPO.Runs > -1 Or chkBPO.BPType = BPType.Unknown Then 
     1152                                IsBPO = False 
     1153                                If chkBPO.BPType <> BPType.Unknown Then 
     1154                                    subAsset.Text = subAsset.Text.Replace("Blueprint", "BPC") 
     1155                                End If 
     1156                            Else 
     1157                                subAsset.Text = subAsset.Text.Replace("Blueprint", "BPO") 
     1158                            End If 
     1159                        End If 
     1160                    End If 
     1161                    If IsBPO = True Then 
     1162                        subAsset.SubItems(AssetColumn.Price).Text = FormatNumber(Math.Round(EveHQ.Core.DataFunctions.GetPrice(ItemID), 2), 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
     1163                        If IsNumeric(subAsset.SubItems(AssetColumn.Price).Text) = True Then 
     1164                            linePrice = CDbl(subAsset.SubItems(AssetColumn.Quantity).Text) * CDbl(subAsset.SubItems(AssetColumn.Price).Text) 
     1165                        Else 
     1166                            linePrice = 0 
     1167                            subAsset.SubItems(AssetColumn.Price).Text = FormatNumber(0, 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
     1168                        End If 
    11091169                    Else 
    11101170                        linePrice = 0 
    1111                         subAsset.SubItems(AssetColumn.Price).Text = FormatNumber(linePrice, 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
     1171                        subAsset.SubItems(AssetColumn.Price).Text = FormatNumber(0, 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
    11121172                    End If 
    11131173                End If 
    11141174                containerPrice += linePrice 
    11151175                subAsset.SubItems(AssetColumn.Value).Text = FormatNumber(linePrice, 2, TriState.UseDefault, TriState.UseDefault, TriState.UseDefault) 
     1176 
     1177                ' Update hangar price if applicable 
     1178                If AssetIsInHanger = True Then 
     1179                    hangarPrice = CDbl(subAsset.ParentItem.SubItems(AssetColumn.Value).Text) 
     1180                    subAsset.ParentItem.SubItems(AssetColumn.Value).Text = FormatNumber(hangarPrice + linePrice, 2) 
     1181                End If 
    11161182 
    11171183                ' Add the asset to the list of assets 
    … …  
    54935559                                    newBPItem.Tag = BP.AssetID 
    54945560                                    clvBlueprints.Items.Add(newBPItem) 
    5495  
    54965561                                    newBPItem.SubItems(3).Text = BPData.TechLevel.ToString 
    5497                                     newBPItem.SubItems(4).Text = FormatNumber(BP.MELevel, 0) 
    5498                                     newBPItem.SubItems(5).Text = FormatNumber(BP.PELevel, 0) 
    5499                                     Select Case BP.BPType 
    5500                                         Case BPType.Unknown  ' Undetermined 
    5501                                             newBPItem.SubItems(1).Text = LocationName 
    5502                                             newBPItem.SubItems(2).Text = BP.LocationDetails 
    5503                                             newBPItem.SubItems(6).Text = "Unknown" 
    5504                                             newBPItem.SubItems(6).Tag = BP.Runs 
    5505                                             newBPItem.BackColor = Drawing.Color.LightGray 
    5506                                         Case BPType.BPO  ' BPO 
    5507                                             newBPItem.SubItems(1).Text = LocationName 
    5508                                             newBPItem.SubItems(2).Text = BP.LocationDetails 
    5509                                             newBPItem.SubItems(6).Text = "BPO" 
    5510                                             newBPItem.SubItems(6).Tag = 1000000 
    5511                                             newBPItem.BackColor = Drawing.Color.LightGreen 
    5512                                         Case BPType.BPC  ' BPC 
    5513                                             newBPItem.SubItems(1).Text = LocationName 
    5514                                             newBPItem.SubItems(2).Text = BP.LocationDetails 
    5515                                             newBPItem.SubItems(6).Text = FormatNumber(BP.Runs, 0) 
    5516                                             newBPItem.SubItems(6).Tag = BP.Runs 
    5517                                             newBPItem.BackColor = Drawing.Color.LightSteelBlue 
    5518                                         Case BPType.User 
    5519                                             newBPItem.SubItems(1).Text = owner & "'s Secret BP Stash" 
    5520                                             newBPItem.SubItems(2).Text = owner & "'s Secret BP Stash" 
    5521                                             newBPItem.SubItems(6).Text = "BPO" 
    5522                                             newBPItem.SubItems(6).Tag = 1000000 
    5523                                             newBPItem.BackColor = Drawing.Color.Yellow 
    5524                                     End Select 
    5525                                     newBPItem.SubItems(7).Text = [Enum].GetName(GetType(BPStatus), BP.Status) 
    5526                                     newBPItem.SubItems(7).Tag = BP.Status 
    5527                                     Select Case BP.Status 
    5528                                         Case BPStatus.Missing 
    5529                                             newBPItem.BackColor = Drawing.Color.LightCoral 
    5530                                         Case BPStatus.Exhausted 
    5531                                             newBPItem.BackColor = Drawing.Color.Orange 
    5532                                     End Select 
     5562                                    Call UpdateOwnerBPItem(owner, LocationName, BP, newBPItem) 
    55335563                                End If 
    55345564                            End If 
    … …  
    55405570            clvBlueprints.EndUpdate() 
    55415571        End If 
     5572    End Sub 
     5573    Private Sub UpdateOwnerBPItem(ByVal Owner As String, ByVal LocationName As String, ByVal BP As BlueprintAsset, ByVal newBPItem As ContainerListViewItem) 
     5574        newBPItem.SubItems(4).Text = FormatNumber(BP.MELevel, 0) 
     5575        newBPItem.SubItems(5).Text = FormatNumber(BP.PELevel, 0) 
     5576        Select Case BP.BPType 
     5577            Case BPType.Unknown  ' Undetermined 
     5578                newBPItem.SubItems(1).Text = LocationName 
     5579                newBPItem.SubItems(2).Text = BP.LocationDetails 
     5580                newBPItem.SubItems(6).Text = "Unknown" 
     5581                newBPItem.SubItems(6).Tag = BP.Runs 
     5582                newBPItem.BackColor = Drawing.Color.LightGray 
     5583            Case BPType.BPO  ' BPO 
     5584                newBPItem.SubItems(1).Text = LocationName 
     5585                newBPItem.SubItems(2).Text = BP.LocationDetails 
     5586                newBPItem.SubItems(6).Text = "BPO" 
     5587                newBPItem.SubItems(6).Tag = 1000000 
     5588                newBPItem.BackColor = Drawing.Color.LightGreen 
     5589            Case BPType.BPC  ' BPC 
     5590                newBPItem.SubItems(1).Text = LocationName 
     5591                newBPItem.SubItems(2).Text = BP.LocationDetails 
     5592                newBPItem.SubItems(6).Text = FormatNumber(BP.Runs, 0) 
     5593                newBPItem.SubItems(6).Tag = BP.Runs 
     5594                newBPItem.BackColor = Drawing.Color.LightSteelBlue 
     5595            Case BPType.User 
     5596                newBPItem.SubItems(1).Text = Owner & "'s Secret BP Stash" 
     5597                newBPItem.SubItems(2).Text = Owner & "'s Secret BP Stash" 
     5598                newBPItem.SubItems(6).Text = "BPO" 
     5599                newBPItem.SubItems(6).Tag = 1000000 
     5600                newBPItem.BackColor = Drawing.Color.Yellow 
     5601        End Select 
     5602        newBPItem.SubItems(7).Text = [Enum].GetName(GetType(BPStatus), BP.Status) 
     5603        newBPItem.SubItems(7).Tag = BP.Status 
     5604        Select Case BP.Status 
     5605            Case BPStatus.Missing 
     5606                newBPItem.BackColor = Drawing.Color.LightCoral 
     5607            Case BPStatus.Exhausted 
     5608                newBPItem.BackColor = Drawing.Color.Orange 
     5609        End Select 
    55425610    End Sub 
    55435611 
    … …  
    55955663                            Dim flagID As Integer = CInt(loc.Attributes.GetNamedItem("flag").Value) 
    55965664                            Dim locationDetails As String = PlugInData.itemFlags(flagID).ToString 
    5597  
    55985665                            ' Check the asset 
    55995666                            Dim ItemData As New EveHQ.Core.EveItem 
    … …  
    56045671                            If EveHQ.Core.HQ.itemData.ContainsKey(itemID) Then 
    56055672                                ItemData = EveHQ.Core.HQ.itemData(itemID) 
     5673                                If flagID = 0 Then 
     5674                                    If PlugInData.AssetItemNames.ContainsKey(AssetID) = True Then 
     5675                                        locationDetails = PlugInData.AssetItemNames(AssetID) 
     5676                                    Else 
     5677                                        locationDetails = ItemData.Name 
     5678                                    End If 
     5679                                End If 
    56065680                                If categories.Contains(ItemData.Category) Or groups.Contains(ItemData.Group) Or types.Contains(ItemData.ID) Then 
    56075681                                    Dim newBP As New BlueprintAsset 
    … …  
    57145788                End If 
    57155789            End If 
    5716             End If 
     5790        End If 
    57175791    End Function 
    57185792    Private Sub GetAssetFromNode(ByVal loc As XmlNode, ByVal categories As ArrayList, ByVal groups As ArrayList, ByVal types As ArrayList, ByRef Assets As SortedList(Of String, BlueprintAsset), ByVal locationID As String, ByVal locationDetails As String, ByVal selPilot As EveHQ.Core.Pilot, ByVal IsCorp As Boolean) 
    … …  
    57595833            ' Check child items if they exist 
    57605834            If item.ChildNodes.Count > 0 Then 
    5761                 Call GetAssetFromNode(item, categories, groups, types, Assets, locationID, flagname, selPilot, IsCorp) 
     5835                Call GetAssetFromNode(item, categories, groups, types, Assets, locationID, flagName, selPilot, IsCorp) 
    57625836            End If 
    57635837        Next 
    … …  
    59235997        Else 
    59245998            mnuSendToBPCalc.Enabled = False 
    5925             mnuRemoveCustomBP.Enabled = False 
    5926         End If 
    5927             mnuAmendBPDetails.Enabled = chkShowOwnedBPs.Checked 
     5999            mnuRemoveCustomBP.Text = "Remove Blueprints (" & clvBlueprints.SelectedItems.Count.ToString & ")" 
     6000            mnuRemoveCustomBP.Enabled = True 
     6001        End If 
     6002        mnuAmendBPDetails.Enabled = chkShowOwnedBPs.Checked 
    59286003    End Sub 
    59296004 
    … …  
    59696044        BPForm.AssetIDs = BPs 
    59706045        BPForm.ShowDialog() 
    5971         Call Me.UpdateBPList() 
     6046        ' Update the list using the details 
     6047        Dim BP As New BlueprintAsset 
     6048        Dim locationName As String = "" 
     6049        For Each selitem As ContainerListViewItem In clvBlueprints.SelectedItems 
     6050            BP = PlugInData.BlueprintAssets(BPForm.OwnerName).Item(selitem.Tag.ToString) 
     6051            LocationName = Me.GetLocationNameFromID(BP.LocationID) 
     6052            Call Me.UpdateOwnerBPItem(BPForm.OwnerName, locationName, BP, selitem) 
     6053        Next 
    59726054    End Sub 
    59736055 
    … …  
    59916073    Private Sub mnuRemoveCustomBP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRemoveCustomBP.Click 
    59926074        ' Remove the custom BP from the assets 
    5993         Dim assetID As String = CStr(clvBlueprints.SelectedItems(0).Tag) 
    5994         Dim BPOwner As String = cboOwner.SelectedItem.ToString 
    5995         If PlugInData.BlueprintAssets(BPOwner).ContainsKey(assetID) = True Then 
    5996             PlugInData.BlueprintAssets(BPOwner).Remove(assetID) 
    5997             Call Me.UpdateBPList() 
     6075        If clvBlueprints.SelectedItems.Count > 0 Then 
     6076            Dim rBP As New ContainerListViewItem 
     6077            Dim cIDX As Integer = clvBlueprints.SelectedItems.Count - 1 
     6078            Do 
     6079                rBP = clvBlueprints.SelectedItems(cIDX) 
     6080                Dim assetID As String = CStr(rBP.Tag) 
     6081                Dim BPOwner As String = cboOwner.SelectedItem.ToString 
     6082                If PlugInData.BlueprintAssets(BPOwner).ContainsKey(assetID) = True Then 
     6083                    PlugInData.BlueprintAssets(BPOwner).Remove(assetID) 
     6084                    clvBlueprints.Items.Remove(rBP) 
     6085                    cIDX -= 1 
     6086                End If 
     6087            Loop Until cIDX = -1 
     6088            'Call Me.UpdateBPList() 
    59986089        End If 
    59996090    End Sub 

  • branches/EveHQv2/EveHQ.Prism/My Project/AssemblyInfo.vb

    r1140 r1254  
    3232' <Assembly: AssemblyVersion("1.0.*")>  
    3333 
    34 <Assembly: AssemblyVersion("1.14.0.1140")>  
    35 <Assembly: AssemblyFileVersion("1.14.0.1140")>  
     34<Assembly: AssemblyVersion("1.14.0.1250")>  
     35<Assembly: AssemblyFileVersion("1.14.0.1250")>