Das solltest du mal einigen Institutionen wie z.B. einer Finanzbuchhaltung,  einer Revision oder der Steuerfahndung erklären. Die werden dich diesbezüglich erst An-, dann Auslachen und anschließend zu Ihrem Tagesgeschäft mit der fortlaufenden Belegnummerierung zurückkehren.

Falls es dafür keine ökonomisch begründbaren Intentionen gibt:
Alles eine Frage des Evolutionsdrucks. Der wird hierzulande in den nächsten Jahren sowieso zunehmen.  
Irgendwann wird der Druck dann so stark, dass die Deutschländer immer mehr Würsteleien aufgeben.
As simple as that.

@7Stein: Eine generelle Anmerkung:
Es würde uns die Hilfe wesentlich erleichtern, ja eigentlich erst ermöglichen, wenn Du uns folgendes sagst:
1. Was für ein Ergebnis erwartest Du, wenn das Script läuft.
2. Wenn das Ergebnis nicht eintritt - und das wird ja der Grund einer Frage hier sein : Was passiert stattdessen GENAU?
3. Bitte beantworte Fragen - am besten mit

...

.
Die Frage nach LastDetailPos hatte ich bereits am Anfang gestellt und dann hätte man sich einiges sparen können.

In dem o.g. Script werden einige Messageboxen bzw. Inputboxen aufgerufen. Es wäre gut zu wissen, ob der Code bis dahin kommt und welche Meldung kommt (gut, das wissen wir jetzt).
Dann werden Felder gesetzt - Pos und LastEditPos. Wie ist der Wert der Felder VOR dem Scriptlauf und NACH dem Scriptlauf.

Es hakt eigentlich nicht an den Formulierungen, sondern an Detailinformationen. Daher gibt es hier die starken Reaktionen.

Ein Tipp für das "Debuggen", wenn der Debugger nicht geht (wg. Dialogbox). Baue der Messageboxen ein, die den Wert anzeigen.
Z.B. mache ich das so:

dim searchstring as string
searchstring = |Form = "BestandsabfrageDetail" & ParentUNID = "| + thisDoc.UniversalID + |"|

msgbox searchstring
Set collection = db.Search( searchstring, Nothing, 0 )

Dann siehst Du, welcher Suchstring ausgeführt wird.
Als nächstes
msgbox collection.Count

Dann siehst Du, wieviele Dokumente das Script gefunden hat.

thisDoc.LastDetailPos steht eine 0 drin.

heisst, das Script findet KEINE Dokumente! Also wird nichts weiter gemacht. Es wäre jetzt zu untersuchen, warum keine Dokumente gefunden werden und dazu ist o.g. Messagebox gedacht.

Andreas

Falls es dafür keine ökonomisch begründbaren Intentionen gibt:

Jetzt machst du es dir zu einfach. Diesen Druck gibt es tatsächlich, z.b. von Seiten der Finanzbehörden. Die verlangen eine lückenlose Verfolgung der Eingangsbelege. und das erreichst du nur über fortlaufende Nummern. Wenn da etwas nicht stimmt fängt die Außenprüfung an zu bohren und dann viel Spaß.

Thomas

Man kann ja eine stored procedure schreiben, die dann angetriggered wird, wenn die/der an der Pforte 4 mal pfeift.

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.

@Thomas

So ganz kann ich deiner Aussage aber nicht zustimmen. Sauber strukturiert - ja, aber überflüssiger Code - na ja.  

      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

Meines Erachtes ist das unnötig. Wenn innerhalb so einer Schleife das Dokument gelöscht wird, ist das zwingend notwendig, aber hier.  

Zum zweiten ist mir beim Überfliegen des Code auch noch ein anderer Fehler aufgefallen.

Relativ weit oben im Code füllst du die collection mit den Positionsdokumenten.

...
  Set collection = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
...

Weiter unten wird ein Positionsdok. gelöscht und dann sollen die restlichen neu nummeriert werden. Dafür wird jedes Dokument in der collection durchlaufen, aber...
In der collection ist auch noch der Verweis auf das gelöschte Dokument drin. Meines Erachtens knallts hier. Oder liege ich da falsch.

Richtigerweise müsste man die collection erst im CASE ELSE - Zweig füllen wenn das Positionsdokument bereits gelöscht ist.


Axel  

 

Der Thread wird langsam unübersichtlich  
Und 7 Stein sagt gar nix mehr !?

@glombi
Eben jetzt macht es richtig Spass.

@7Stein, könntest du den Thread bitte auf erledigt setzen, sonst machen wir hier nämlich noch ewig weiter.

Auch wenn das jetzt ein blöder Eintrag ist ist es trotzdem Eine Runde Zahl, darauf geh ich jetzt eine Apfesaftschorle schlürfen.

Thomas

@Atlantischer Seemann

  Ich glaube du verwechselst mit mit dem anderen Axel (dem Marinero Atlántico). Ist aber nicht weiter tragisch. Ich bin der Andere    

... nämlich der docdetail.save damit die veränderte positionsnummer auch abgespeichert wird und dann ist das mit dem Olddoc aber wieder richtig.
Und nein da sollte es eigentlich nicht knallen. sobald du ein Dokument veränderst fliegt es nämlich aus der Collection raus, sonst wäre der Zirkus mit dem Olddoc nicht immer wieder notwendig. ...

Also ich hab' schon öfter's Dokumente innerhalb einer Collection geändert und die sind dabei nicht rausgeflogen. Mit Ausnahme wenn ich Docs aus einer Collection lösche, hab ich den Zirkus mit olddoc nie gebraucht. Deswegen kann ich deine Aussagen nicht so ganz nachvollziehen. Aber sei's drum. Ich will hier keine Grundsatzdiskussion von Zaun brechen. Dieser Thread hat sowieso schon die Gemüter erhitzt. Das bin ich in diesem Forum gar nicht gewöhnt.

Ein schönes Wochenende

Axel

PS: Ich fahr jetzt erstmal in den Urlaub. Notes-freie Zone  

Aber hier so nieder gemacht zu werden, nur weil man sich vielleicht zu umständlich oder zu missverständlich ausdrückt, finde ich echt eine Sauerei.

Letzter Versuch:
Hier findet keine "Sauerei" statt, sondern der Versuch, Dich auf den richtigen Weg zu bringen. Immer wieder wurde von meist extrem hochkarätigen Leuten versucht, Dir klar zu machen, dass DU zunächst mal Nabelschau (sprich Selbsterkenntnis) betreibst, was Du bisher vollkommen ignoriert hat.
Dein Problem ist auch nicht Lotus Notes / Domino, sondern die Programmiererei an sich (und das ist bekanntermassen nicht nur Coding, sondern auch und vor allem das allgemeine Problemverständnis).

Wir helfen hier im Forum alle gerne und sind zudem extrem tolerant. Bedenke aber bitte (und das unbedingt): Jedes Posting hier geht irgendwie von unserer Zeit für andere Dinge ab, mit denen wir entweder unsere Familien ernähren müssen und / oder die Zeit mit unseren Familien verbringen könnten.
Akzeptiere also bitte unbedingt folgendes:
- Wir helfen hier gerne, aber veralbere uns nicht (aus welchen Gründen auch immer)
- Akzeptiere bitte, dass Du momentan noch (!) keine Ahnung von Programmentwicklung hast - völlig unabhängig von Lotus Notes / Domino (das haben Deine Postings eindeutig gezeigt)
- In diesem Zusammenhang: Verstehe unseren Idealismus in der Art, dass wir wissen, dass wir auch alle mal angefangen haben, aber dass es auch für uns noch ein Leben neben der Arbeit und dem Forum gibt
- Beantworte jede (!!) unserer Fragen ausführlich - streng' Dich an.
- DENKE !
- Und vor allem: Trete Deinem / Deinen Chef(s) realistisch und selbstbewusst gegenüber: Diese können von Dir auch nicht erwarten, dass Du morgen mit einem Führerschein der Klasse B den Firmenjet fliegst. Und komm' jetzt ja nicht damit, dass Eure Firma keinen Firmenjet hat, sondern DENKE !

Bernhard