Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

More documents

Recommendations

Info

A.6 Skjemaet frmStøtte A.6.1 Hensikt 34 I administrasjonsdelen av MORSK legger man inn støttestrukturelementer basert på KOSTMOD-avdelinger. For hvert støttestrukturelement må det legges inn en linje i regnearket for henholdsvis materielldrift, materiellinvesteringer, personelldrift, personellantall og EBAdrift. Skjemaet frmStøtte automatiserer denne innleggingen, og gjør samtidig at sannsynligheten for at feil skjer i innleggingen går ned. Under vises skjemaet slik det ser ut i Excel Figur A.6 Skjemaet frmStøtte i MORSK A.6.2 Kildekode A.6.2.1 Prosedyren cmdAvbryt_Click() 'Avbryter innleggingen av en ny støtteavdelinge ved å lukke skjemaet Unload Me
A.6.2.2 Prosedyren cmdOK_Click() 35 'Deklarerer variabler Dim intTeller As Integer 'Brukes til å iterere gjennom listeboksen 'Slår av skjermoppdateringen Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Sjekker at brukeren har fylt inn verdier i alle feltene If txtNavn.Value = "" Then MsgBox "Du må gi støtteavdelingen et navn", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf cmbGren.Value = "" Then MsgBox "Du må velge en gren for støtteavdelingen", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf cmbDriver.Value = "" Then MsgBox "Du må velge en kostnadsdriver for avdelingen", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtGrunnMD.Value = "" Then MsgBox "Du må legge inn en grunnverdi for Matr.drift", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtMarginalMD.Value = "" Then MsgBox "Du må legge inn en marginalverdi for Matr.drift", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtGrunnMI.Value = "" Then MsgBox "Du må legge inn en grunnverdi for Matr.inv", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtMarginalMI.Value = "" Then MsgBox "Du må legge inn en marginalverdi for Matr.inv", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtGrunnPD.Value = "" Then MsgBox "Du må legge inn en grunnverdi for Pers.drift", vbCritical, "Import av støteavdeling" GoTo Slutt ElseIf txtMarginalPD.Value = "" Then MsgBox "Du må legge inn en marginalverdi for Pers.drift", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtGrunnEBA.Value = "" Then MsgBox "Du må legge inn en grunnverdi for EBA-drif", vbCritical, "Import av støtteavdeling" GoTo Slutt ElseIf txtMarginalEBA.Value = "" Then
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 and 18: 15 I dette skjemaet kan brukeren ve
Page 19 and 20: 17 navnet til den korresponderende
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: Figur A.5 Skjemaet frmSlett i MORSK
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

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?