Domino 9 und frühere Versionen > ND7: Entwicklung

Message Box Yes/No

<< < (2/4) > >>

m3:
Probiers morgen nochmal, wenn wieder mehr Blut als Alkohol durch die Venen und Arterien fließt.
Ev. klappt dann wieder ein halbwegs deutscher Satz.

Axel:
Ich habe immer noch nicht ganz verstanden, wo nun eigentlich dein Problem liegt.

Poste bitte mal den gesamten Code und beschreibe genau was nicht funktioniert.

Hast du dir deinen Code auch schon mal mit dem Debugger angeschaut?


Axel

ata:
... ich seh das wie Axel - ohne Code sieht man nicht, wo die angebliche Addition stattfindet - da werden die Werte irgendwo nochmal manipuliert...

Toni

agentzwick:
Jetzt funktioniert es doch. Jetzt habe ich Versucht die ganzen Vorgabenwerte aus einem Profildokument zu holen - aber da bin ich glaub ich mit meinem Latain am Ende.
Habe mich auch schon sehr viel mit der Hilfe beschäftigt aber auch dort komme ich einfach nicht weiter.
Hier mal der Script:

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument 
   
   Dim varKm As Variant
   Dim varKMBis As Variant
   Dim dblTarifK As Double
   Dim dblFeier As Double
   Dim dblEndTarifK As Double
   Dim dblTarifPauschale As Double
   Dim dblEndUTarif As Double
   Dim dblÜbern As Double
   Dim dblLSPauschale As Double    
   Dim intYesNo As Integer
   
   Set uidoc = ws.CurrentDocument
   
   varKm = Inputbox("Wieviele Kilometer sind es zum Zielort und wieder zurück ?")
   If Trim(varKm) = "" Then
      varKm=Msgbox  ("Sie müßen die Kilometer angeben! Ansonsten kann auch nichts berechnet werden !",64,"Hinweis")
      Exit Sub      
   End If
   varKm = Cdbl(varKM)
   
   
   dblTarifPauschale = 0
   dblTarifK = 0
   dblLSPauschale = 0
   
     'Nachtzuschlagberechnung
   intYesNo=Msgbox ("Findet die Fahrt zwischen 21:00 Uhr und 6:00 Uhr oder  an einem Sonn- /Feiertag statt ?",36,"Frage")
   If intYesNo = 6 Then
      
      dblFeier = 38.44      
   Else
      dblFeier = 0
   End If
   
   
   Select Case VarKm   
   Case 0 To 20
      dblTarifPauschale = 39.76     
      dblLSPauschale = 14.93
      
      dblEndTarifK = dblTarifPauschale + dbllspauschale + dblFeier
      Call uidoc.FieldSetText("KMBis","bis 21")
      
   Case  21 To 99
      dblTarifPauschale = 60.06         
      dblLSPauschale = 14.93
      
      dblEndTarifK = dblTarifPauschale + dbllspauschale + dblFeier
      Call uidoc.FieldSetText("KMBis","bis 99")
      
   Case 100 To  999           
      dblTarifPauschale = 60.06
      dblTarifK = 1.87 
      dblLSPauschale = 14.93
      
      dblEndTarifK = ((varKm - 99) * dblTarifK) + dbllspauschale + dblTarifPauschale + dblFeier
      Call uidoc.FieldSetText("KMBis","über 100")
      
   Case Is >= 1000     
      dblTarifPauschale = 60.06
      dblTarifK = 1.87   
      dblLSPauschale = 14.93
      dblÜbern = 50.00
      
      dblEndTarifK = ((varKm - 99) * dblTarifK) + dbllspauschale + dblTarifPauschale  + dblÜbern + dblFeier
   End Select
   
   
   Call uidoc.FieldSetText ("KMK", Cstr(varKm))
   Call uidoc.FieldSetText ("KMPUK",Cstr(dblTarifPauschale))
   Call uidoc.FieldSetText ("KMPK",Cstr( dblTarifK))
   Call uidoc.FieldSetText ("ILSVK", Cstr( dblLSPauschale))
   Call uidoc.FieldSetText ("ÜbernK",Cstr(dblÜbern))
   Call uidoc.FieldSetText("ZuschNK",Cstr(dblFeier)) 'Nacht-,Sonn-,Feiertagszuschlag
   
   Call uidoc.FieldSetText ("EndBK",Cstr( dblEndTarifK))
   
End Sub

Axel:

--- Zitat von: agentzwick am 10.06.08 - 11:59:35 ---Jetzt habe ich Versucht die ganzen Vorgabenwerte aus einem Profildokument zu holen - aber da bin ich glaub ich mit meinem Latain am Ende.

--- Ende Zitat ---

Wir auch, wenn du uns nicht sagst was nicht funktioniert und wo du Probleme hast.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete