Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

More documents

Recommendations

Info

Figur 2.6 Arket Avdelingsoppsett i MORSK 16 Inputdataene for KOSTMOD-avdelinger hentes fra en KOSTMOD A1-rapport, lagret i Excelformat. Hvordan en slik rapport lages, er beskrevet i (1). Inputdataene for nye byggeklosser hentes fra et Excel-regneark som inneholder følgende informasjon: • Gren • MORSK navn • Matr. Inv • Matr. Drift • Pers. Antall • EBA-drift • TKF • Innfasing-start • Innfasing-slutt • Beskrivelse Figur 2.7 Oppsett for import av nye byggeklosser til MORSK På bakgrunn av informasjonen i Figur 2.7 beregner importfunksjonen i MORSK de relevante kostnadene for byggeklossen. Import av nye byggeklosser gjøres ved å trykke på knappen Importer ikke-KOSTMOD-avdelinger. Ved å trykke på knappen Sett inn ny KM-MORSK avdeling vil brukeren få opp et skjema som vist i Figur 2.8, hvor man kan registrere informasjon om byggeklosser som har vært simulert i KOSTMOD. En nærmere beskrivelse av feltene i skjemaet og arket Avdelingsoppsett følger under. I arket Avdelingsimport angis MORSK-avdelingens navn i første kolonne. Andre kolonne angir
17 navnet til den korresponderende KOSTMOD-avdelingen. Det er meget viktig at dette navnet er riktig skrevet, ellers vil ikke MORSK finne avdelingen i A1-rapporten fra KOSTMOD. 7 Tredje kolonne angir divisjonsfaktor. Dersom denne verdien ikke er blank, vil KOSTMODavdelingens kostnader bli dividert med denne faktoren ved import til MORSK. Dette er aktuelt både ved oppsplitting fra f eks fartøys-skvadron i KOSTMOD til fartøy i MORSK, og ved etablering av generiske MORSK-avdelinger som består av gjennomsnitt av flere KOSTMODavdelinger. Fjerde kolonne angir maksimalt antall man kan velge av denne avdelingen til den kostnad som er simulert. Dette gjelder f eks når man allerede har et gitt antall av avdelingens hovedkapasitet, og en struktur med flere avdelinger vil innebære betydelige skift i investerings- og eller driftsnivå. I femte kolonne angis forsvarsgren – dvs et av alternativene Hær, Sjø, Luft, HV, KVRT, Felles. I sjette kolonne skriver man JA eller NEI avhengig av om KOSTMOD-avdelingen man importere skal være en egen MORSK-byggekloss eller om den skal være en del av en MORSK- byggekloss. Når importen gjennomføres vil alle linjer hvor det står JA i kolonne seks bli opprette som egne byggeklosser, mens alle andre linjer blir inkludert i de tilhørende byggeklossene. 7 KOSTMOD avdelingen som brukeren velger i listeboksen KM Navn i skjemaet vist i Figur 2.8 hentes fra arket KOSTMODNAVN. Det er derfor viktig at de navnene som legges inn i dette arket samsvarer med de navnene som finnes i A1-rapporten
Page 1: FFI RAPPORT MORSK (Modell for Raske
Page 5: FORSVARETS FORSKNINGSINSTITUTT (FFI
Page 8 and 9: A.5.2.1 Prosedyren cmdAvbryt_Click(
Page 11 and 12: MORSK (Modell for Raske Strukturkos
Page 13 and 14: 2 BRUKERVEILEDNING 11 MORSK baserer
Page 15 and 16: de aktuelle årene. Denne mulighete
Page 17: 15 I dette skjemaet kan brukeren ve
Page 21 and 22: Morsk navn KOSTMOD navn Divisjonsfa
Page 23 and 24: 21 byggeklossene. Hvor stor endring
Page 25 and 26: kan bruke mer av tiden analysere re
Page 27 and 28: strInnlogget = "" A.1.2.2 Prosedyre
Page 29 and 30: Sheets("Forsvaret").Activate A.2.2.
Page 31 and 32: 29 brukeren MsgBox "Du må oppgi et
Page 33 and 34: intKolonneteller = 4 ElseIf cmbGren
Page 35 and 36: Figur A.5 Skjemaet frmSlett i MORSK
Page 37 and 38: A.6.2.2 Prosedyren cmdOK_Click() 35
Page 39 and 40: txtGrunnPD.Text, txtMarginalPD.Text
Page 41 and 42: A.7.2 Kildekode A.7.2.1 Prosedyren
Page 43 and 44: Unload Me 'Finner siste operative a
Page 45 and 46: Figur A.8 Skjemaet frmBeskrivelse i
Page 47 and 48: A.9.2 Innledende deklareringer 45 '
Page 49 and 50: 'Aktivere arbeidsboken som innehold
Page 51 and 52: 49 If strGren = "Sjø" Then strKort
Page 53 and 54: 51 'Henter inn EBA-driften for det
Page 55 and 56: 53 intMaks = 0 DKVPers = Sheets("Mo
Page 57 and 58: intRadTeller2 = 4 'Finner frem til
Page 59 and 60: 57 Cells(intRadTeller2 + 3, 3).Valu
Page 61 and 62: 59 With Cells(intRadTeller2, 2).Val
Page 63 and 64: A.9.8 Prosedyren Importer_Basisstru
Page 65 and 66: Select Case Cells(dumpRekke, 4).Val
Page 67 and 68: A.9.12.2 Kildekode 65 Sub Open_NyAv
Page 69 and 70:
strFunnet1 = "" strFunnet2 = "" Do
Page 71 and 72:
69 avdelingsnavnet skal stå. Avdel
Page 73 and 74:
71 If UCase(Cells(intAvdOppsettTell
Page 75 and 76:
Range("Y" & intTeller & ":Z" & intT
Page 77 and 78:
'Lager Advarselsfunksjon i d-kolonn
Page 79 and 80:
77 Sheets("Avdelingsoppsett").Activ
Page 81 and 82:
strGlobalAvbryt = "JA" Exit Sub End
Page 83 and 84:
81 Windows(Mid(strFilnavn, InStrRev
Page 85 and 86:
83 OperativStrukturRad = 5 Do Until
Page 87 and 88:
85 Cells(rekke, 1).Value = StotteAv
Page 89 and 90:
'Initsierer variabler strAvdeling =
Page 91 and 92:
intTeller = intTeller + 1 Loop 'Bes
Page 93 and 94:
91 If Cells(rekke, 1).Value = Stott
Page 95 and 96:
de skjulte arkene i modellen, vises
Page 97:
Litteratur (1) STEDER Frank B (2001
show all

Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

Create successful ePaper yourself

Delete template?

Save as template?