Domino 9 und frühere Versionen > ND8: Entwicklung

Excel upload

<< < (2/3) > >>

Alperen15:
stimmt du hast recht hat geklappt dankeschön =)

Alperen15:
Hallo alle zusammen.

ich war mal am testen, da haben sich folgende Fehler sich herausgestellt.
1. wie schon eben erwähnt habe ich zwei kunden in der File die eine Kundennummer (Kunde A) existiert in der Ansicht und die andere Kundennummer (Kunde B))habe ich frei erfunden,

2. Den Kunden (Kunde A) der in der DB existiert, wird kein neues Dokument erstellt
3. Bei Kunde B wird ein neues Dokument erstellt so wie ich es mir vorgestellt

Wenn ich den Agenten erneut starte sollte er mir keine neuen Dokumente erstellen. Da Kunde A Kunde B bereits existiert.
Der Kunde B wird aber erneut angelegt somit habe ich das selbe Dokument mehrmals  ???  ???  ???  ???

Excel.Workbooks.Open PathFileName
   Set xlWorkbook = Excel.ActiveWorkbook
      'Set xlSheet = xlWorkbook.Worksheets(1)
   
   Set xlSheet = xlWorkbook.ActiveSheet                          ' *** Nur ein Sheet - wird hier definiert
   row = 2      
   
   With xlSheet
      
      tmpKundennr = .Cells( row, 1 ).Value
      Set view = db.GetView ("vwUpload")
      While tmpKundennr <> ""
         'tmpKundennr = .Cells( row, 1 ).Value
         Set vdoc = view.GetDocumentByKey(tmpKundennr)
         
         If   vdoc Is Nothing Then
            Set vdoc = New NotesDocument(db)   
            vdoc.Form = "maLCU"
            vdoc.txCustNo = .Cells( row, 1 ).Value
            vdoc.txCustName = .Cells( row, 2 ).Value                   
            vdoc.fdMandant = .Cells( row, 3 ).Value                 
            vdoc.fdAnzahlMA = .Cells( row, 4 ).Value       
               
            
            Call vdoc.save(False,True)   
            row = row + 1
            tmpKundennr = .Cells( row, 1 ).Value
         Else
            row = row + 1
            tmpKundennr = .Cells( row, 1 ).Value
         End If
         
      Wend
   End With 
NextDoc:
      ' *** Disconnecting from Excel...            
   xlWorkbook.Close False          
   Excel.Quit
   Set Excel = Nothing
End Sub

koehlerbv:
Dann kläre, warum das Dokument in der Ansicht nicht gefunden wird. Eine Möglichkeit wäre, dass die Ansicht gar nicht schnell genug aktualisiert wird.

Bernhard

Alperen15:
also vom Script her sieht ihr auch keine Fehler oder?

Peter Klett:
Ich tippe auch eher darauf, dass die Ansicht nicht aktualisiert wurde. Daher würde ich beim Initialisieren der Ansicht diese refreshen

Set view = ...
Call view.Refresh

Wenn das dann auch nicht funktioniert, schau Dir die erste Spalte der Ansicht an, vielleicht werden da führende Nullen vorangesetzt.

Kunde A ist 11111 der funktioniert, Kunde B ist 2222, wird aber als 02222 in der Ansicht dargestellt.

Noch ein Hinweis: Verwende unbedingt Set vdoc = view.GetDocumentByKey(tmpKundennr, True), sonst findet Kundennummer 1234 den Kunden 12345

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete