VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fpvt 
   Caption         =   "UserForm1"
   ClientHeight    =   6780
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   12735
   OleObjectBlob   =   "fpvt.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "fpvt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mod_adjust As Boolean
Option Explicit



Private Sub tbAdjVal_Change()
    
    If IsNumeric(tbAdjVal.value) Then
            tbFcVal = Format(CDbl(tbAdjVal.value) + CDbl(tbBaseVal.value), "#,###")
    Else
        tbFcVal = Format(CDbl(tbBaseVal.value), "#,###")
    End If

End Sub

Private Sub UserForm_Activate()
    
    Dim s_tot As Object
    Dim i As Long

    Set s_tot = handler.scenario_totals(handler.scenario)
    
    '---show existing adjustment if there is one----
    fpvt.mod_adjust = False
    fpvt.lOrigAdj.Visible = False
    fpvt.tbOrigAdj.Visible = False
    
    For i = 1 To s_tot("x").Count
        Select Case s_tot("x")(i)("order_season")
            Case 2020
                Select Case s_tot("x")(i)("iter")
                    Case "copy"
                        fpvt.tbBaseVol.Text = Format(s_tot("x")(i)("units"), "#,###")
                        fpvt.tbBaseVal.Text = Format(s_tot("x")(i)("value_usd"), "#,###")
                        
                    Case "adjustment"
                        fpvt.tbAdjVol.Text = Format(s_tot("x")(i)("units"), "#,###")
                        fpvt.tbAdjVal.Text = Format(s_tot("x")(i)("value_usd"), "#,###")
                        
                        '---show existing adjustment if there is one----
                        fpvt.mod_adjust = True
                        fpvt.lOrigAdj.Visible = True
                        fpvt.tbOrigAdj.Visible = True
                        fpvt.tbOrigAdj.value = Format(s_tot("x")(i)("value_usd"), "#,###")
                End Select
        End Select
    Next i
    
    fpvt.tbFcVol.Text = Format(fpvt.tbBaseVol.value + fpvt.tbAdjVol.value, "#,###")
    fpvt.tbFcVal.Text = Format(fpvt.tbBaseVal.value + fpvt.tbAdjVal.value, "#,###")
    
    sbEdit.SimpleText = "idle"
End Sub