Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
36<br />
MsgBox "Du må legge inn en marginalverdi for EBA-drift", vbCritical, "Import av<br />
støtteavdeling"<br />
GoTo Slutt<br />
ElseIf txtGrunnPA.Value = "" Then<br />
MsgBox "Du må legge inn en grunnverdi for Pers.antall", vbCritical, "Import av<br />
støtteavdeling"<br />
GoTo Slutt<br />
ElseIf txtMarginalPA.Value = "" Then<br />
MsgBox "Du må legge inn en marginalverdi for Pers.antall", vbCritical, "Import av<br />
støtteavdeling"<br />
GoTo Slutt<br />
Else<br />
'Sjekker at marginalverdien og grunnverdien til sammen ikke er forskjellig fra 100. Dette for<br />
å forsikre at alle kostnadene blir tatt med<br />
If CDbl(txtGrunnMD) + CDbl(txtMarginalMD) 100 Then<br />
MsgBox "Grunnverdien og marginalverdien for materiellrelatert drift må utgjøre 100% til<br />
sammen", vbCritical, "Import av støtteavdeling"<br />
ElseIf CDbl(txtGrunnMI) + CDbl(txtMarginalMI) 100 Then<br />
MsgBox "Grunnverdien og marginalverdien for materiellinvesteringer må utgjøre 100% til<br />
sammen", vbCritical, "Import av støtteavdeling"<br />
ElseIf CDbl(txtGrunnPD) + CDbl(txtMarginalPD) 100 Then<br />
MsgBox "Grunnverdien og marginalverdien for Personellreltatert drift må utgjøre 100% til<br />
sammen", vbCritical, "Import av støtteavdeling"<br />
ElseIf CDbl(txtGrunnEBA) + CDbl(txtMarginalEBA) 100 Then<br />
MsgBox "Grunnverdien og marginalverdien for EBA-drift må utgjøre 100% til sammen",<br />
vbCritical, "Import av støtteavdeling"<br />
ElseIf CDbl(txtGrunnPA) + CDbl(txtMarginalPA) 100 Then<br />
MsgBox "Grunnverdien og marginalverdien for personellantall må utgjøre 100% til<br />
sammen", vbCritical, "Import av støtteavdeling"<br />
Else<br />
'Gir brukeren valget mellom å hente alle data fra en KOSTMOD-dump fil, eller alternativt<br />
å bruke en dump-fil pr KOSTMOD-avdeling<br />
If MsgBox("Vil du bruke samme KOSTMOD-dump for alle avdelinger?" & vbCrLf &<br />
"NB! da må du importere én gren ad gangen", vbYesNo, "MORSK") = vbYes Then<br />
gBrukGlobalPlassering = True<br />
gKostmodDumpPlassering = Application.GetOpenFilename("KOSTMOD Dump filer<br />
(*.xls), *.xls", , "Velg KOSTMOD-dumpfil")<br />
Else<br />
gBrukGlobalPlassering = False<br />
End If<br />
'Looper gjennom listeboksen, og starter importen av Støtteavdelingen for hver<br />
KOSTMOD-avdeling som er merket.<br />
For intTeller = 0 To lstKMNavn.ListCount - 1<br />
If lstKMNavn.Selected(intTeller) = True Then<br />
Sett_Inn_Støtteavdeling txtNavn.Value, cmbGren.Value, lstKMNavn.List(intTeller),<br />
txtGrunnMD.Text, txtMarginalMD.Text, txtGrunnMI.Text, txtMarginalMI.Text,