wissen? Auf den erste nschnellen Blick schaut der doch brauchbar aus.

Bitte, wie beim letzten Mal such dir erst einmal die Bücher vom Herdt Verlag raus, mach die Kurse durch und fang dann das Entwickeln an.

Thomas

Das Script ist ok, wenn auch nicht besonders performant bei vielen Positionen (aber das ist ein anderes Thema).

Ist das jetzt nur ein Beispiel oder ein Auszug aus dem richtigen Code. Es fehlt ja wohl der Anfang, wo die Collection aufgebaut wird.

Gibt es die Felder Pos und LastDetailPos?

Was sagt der Debugger?

Andreas

Hi,

auf den ersten Blick sieht das Script ganz ok aus. Da der Debugger sich weigert, solltest du dir an den entsprechenden Stellen des Scrptes Messageboxen einbauen um die Variablen so zu kontrollieren.

Andere Alternative wäre den Code in eine Ansichtenaktion zu packen und in dann auszuführen, denn damit lässt sich der Debugger zur Zusammenarbeit überreden.

 
Axel

der case else Fall.
Es sind mehrere Positionen vorhanden, eine davon soll gelöscht werden und dann sollen die Positionsnummern wieder neu durchnummeriert werden, also bei z.B. 6 Positionen wird Pos 3 gelöscht, und dann sollen die Positionen nicht 1,2,4,5,6 lauten, sonern 1,2,3,4,5.

Dokumente werden gelöscht, sind in der Anzeige nicht mehr zu sehen, aber die Nummerierung funktioniert dann eben nicht.

Bin noch bei dem Test mit Messageboxen.

Ok da ist ein massiver Fehler drin und dann noch ein Menge Folgefehler:
Wo wird denn bitteschön Thisdoc definiert?
Daraus ergeben sich Etliche Folgefehler. Ich hab mal alles was mir Spanisch vorkommt GROSSGESCHRIEBEN.

Sub Click(Source As Button)
   Dim collection As NotesDocumentCollection
   Dim docDetail As NotesDocument    
   Dim viewForRefresh As NotesView  
   Dim strPos As String
   
   Dim i As Integer
   
   Set viewForRefresh = db.GetView( "(BestellPositionen)" )
   Set view2 = db.GetView( "(BestellPositionenByKey)")
HIER SIND LAUFZEITPROBLEME BEI VIELEN DOKUMENTEN IN DER DATENBANK ZU ERWARTEN
   Call view2.Refresh()
HIER HAST DU DEINEN KARDINALFEHLER
   Set collection = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
   
DAS HIER KANN NICHT LAUFEN WEIL ER GAR KEINE COLLECTION HABEN KANN SIEHE OBEN
   Select Case collection.Count
   Case 0:
      Msgbox "Keine Position vorhanden.", 48, db.title
   Case 1:
      Set docDetail = collection.GetFirstDocument
      Call docDetail.Remove (True)
   Case Else:
      strPos = Inputbox$( "Welche Position löschen?", "Position löschen", "1" )
      If strPos <> "" Then
         Call view2.Refresh()
         Set docDetail = view2.GetDocumentByKey( thisDoc.UniversalID + "-" + strPos )
         Call docDetail.Remove( True)  
      End If
   End Select      
   
   REM Positionen neu durchnummerieren
LOGIKFEHLER, WIESO BAUST DU DIE COLLECTION ÜBER EINEN DB.SEARCH NEU AUF DIE GIBT ES DOCH SCHON.
LAUFZEITPROBLEME GIBT ES DA UNTER UMSTÄNDEN AUCH

   Set collection = db.Search( |Form = "BestandsabfrageDetail" & ParentUNID = "| + thisDoc.UniversalID + |"|, Nothing, 0 )
NETT ABER WARUM SPEICHERST DU DAS HIER AB?
   thisDoc.LastDetailPos= collection.count
   Call thisdoc.Save(True, True)
WENN DU ES HIER DIREKT VERGLEICHEN KÖNNTEST!
   If thisDoc.LastDetailPos(0) > 1 Then        
      For i = 1 To collection.count
         Set docdetail = collection.GetNthDocument(i)
         docDetail.Pos = i
         Call docDetail.Save( True, True )
      Next
ACH JA UND DAS HIER IST AUCH IDIOTISCH, WARUM SETZT DU EINEN WERT DEN DU SCHON GESETZT HAST IMMER WIEDER?
      thisDoc.LastDetailPos = collection.count
DER FOLGENDE ZWEIG IST ABSOLUT UNSINNIG. ENTWEDER HAT DEINE COLLECTION EINEN WERT VON NULL ZURÜCKGELIEFERT ODER NICHT. WENN SIE 1 ZURÜCKGELIEFET HAT HAST DU AUF EINMAL DA NULL DRINSTEHEN. WIE SOLL DAS DENN GEHEN. DU HAST NOCH EINE POSITION UND BEHAUPTEST DU HÄTTEST GAR KEINE MEHR. LOGIKFEHLER IM SCRIPT.
   Else
      thisDoc.LastDetailPos = 0            
   End If        
   
   
   
   Call viewForRefresh.Refresh()
   Call uiDoc.Refresh()
   
End Sub


Das Problem ist übrigens nicht das du fragst, sondern die Art wie. Du gibst uns einfach zu wenig und dann meistens noch die falschen Informationen. Jede Anwendung, jede Sprache hat Ihre Syntax und wenn du dieses Fachchinesisch nicht (noch) sprichst, dann haben die Leute die Tiefer drinstecken in der Materie ein Problem mit dem was du willst.

Thomas

Ich fasse es nicht ... Du willst partout nicht begreifen ... Du beantwortest keiner unserer Fragen, gibst uns nicht alle Infos ("thisDoc ist global deklariert." Ach ja ?!?), aber stellst schon wieder neue.

Schon in der DesignerHelp kann man sich schlau machen, was es mit einer embedded view und einem View-Zugriff über's Backend auf sich hat.
Offensichtlich bist Du einfach zu faul, selber zu lesen und dann vor allem zu DENKEN.

Bernhard

thisDoc ist global deklariert.

Genau das meine ich mit zu wenig und auch noch die falschen Informationen. Das gehört einfach dazu.

So und was deine Neuberechnung der Positionen angeht:

  Dim collection As NotesDocumentCollection
  Dim docDetail As NotesDocument  
  Dim olddocdetail as notesdocument
  Dim viewForRefresh As NotesView
  dim view2 as NotesView
  Dim strPos As String
 
  Dim i As Integer
 
  Set viewForRefresh = db.GetView( "(BestellPositionen)" )
  Set view2 = db.GetView( "(BestellPositionenByKey)")
HIER SIND LAUFZEITPROBLEME BEI VIELEN DOKUMENTEN IN DER DATENBANK ZU ERWARTEN
  Call view2.Refresh()
  Set collection = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
 
  Select Case collection.Count
  Case 0:
      Msgbox "Keine Position vorhanden.", 48, db.title

  Case 1:
      Set docDetail = collection.GetFirstDocument
      Call docDetail.Remove (True)
      Thisdoc.LastDetailPos = 0
      Call thisdoc.Save(True,False)

  Case Else:
      strPos = Inputbox$( "Welche Position löschen?", "Position löschen", "1" )
      If strPos <> "" Then
        Call view2.Refresh()
        Set docDetail = view2.GetDocumentByKey( thisDoc.UniversalID + "-" + strPos )
        Call docDetail.Remove( True)
      End If
      set docdetail = collection.getfirstdocument()
      do while not docdetail is nothing
         set olddocdetail = docdetail
         UMWANDELN WENN KEIN STRING ->
         if docdetail.pos(0) > StrPos
           Docdetail.pos = docdetail.pos(0) -1
        end if
        set docdetail = collection.getnextdocument(olddocdetail)
      Enddo
      UND WENN DU PARTOUT DIE ANZAHL DER POSITIONEN SPEICHERN WILLST
      Thisdoc.LastDetailPos = ThisDoc.LastDetailPos(0) - 1
      DANN DAS THISDOC APSPEICHERN WEIL ES JA BACKEND IST
      Call ThisDoc.Save(True,False)

  End Select      

Und hier musst du nur noch das UIdoc wieder in den Voerdergrund holen. Du hast ja schließlich im Backend gearbeitet.




Damit ist das sauber strukturiert und kein überflüssiger Code drin.

wobei es immer noch Performance Probleme geben wird wenn du einige Tausend Dokumente in der Datenbank drin hast.

Für die Blumen brauchst du dich nicht bedanken, in diesem Fall hast du sie verdient. So resistent gegenüber Aufforderungen sich klarer auszudrücken war bis jetzt noch niemand.

Thomas

.... wer wird denn gleich in die Luft gehen......

@thomas
Wenn Frauen versprechen, sich zu ändern, dann überlege, ob du weiterhin mit Ihnen zusammenarbeiten willst....