Databases
StackOverflow2013
Postsdbo
POStuck with Unprocessed document in Lotus notes
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POStuck with Unprocessed document in Lotus notes
    primarykey
    data
    text
    <p>I am using unprocessed document so that it will run on selected document only , but after selection its looking for column values in a view to export document to excel . I am using the below code its working fine but my first document is always displaying in last after all other exported documents in excel sheet . Any idea what can be done with the code so that Exported document display perfectly in order as in the view.</p> <p>Look at the below code which I used for exporting –</p> <pre><code>Sub Initialize 'On Error Goto errhandler On Error Resume Next Dim session As New NotesSession Dim db As NotesDatabase Dim doccoll As NotesDocumentCollection Dim view As NotesView Dim doc As NotesDocument Dim otherdoc As NotesDocument Set db = session.CurrentDatabase Set view = db.GetView("CRMOpenIssue") Set doccoll=db.UnprocessedDocuments Set oExcel = CreateObject ( "Excel.Application" ) Set oWorkbook = oExcel.Workbooks.Add Set oWorkSheet= oWorkbook.Sheets ( 1 ) oWorkSheet.Cells(1,1).value="Quote# " oWorkSheet.Cells(1,2).value="Quote Line#" oWorkSheet.Cells(1,3).value="Customer - fab" oWorkSheet.Cells(1,4).value="OppNum" oWorkSheet.Cells(1,5).value="OppLine#" oWorkSheet.Cells(1,6).value="Open Issue#" oWorkSheet.Cells(1,7).value="Open Issue" oWorkSheet.Cells(1,8).value="Category" oWorkSheet.Cells(1,9).value="Due date" oWorkSheet.Cells(1,10).value="Owner to resolve issue" 'oWorkSheet.Cells(1,11).value="Owner/PME Verify when closed" oExcel.Worksheets(1).Range("A1:J1").Font.Bold = True oExcel.columns("A:A").ColumnWidth=15.00 oExcel.columns("B:B").ColumnWidth=8.00 oExcel.columns("C:C").ColumnWidth=15.00 oExcel.columns("D:D").ColumnWidth=10.00 oExcel.columns("E:E").ColumnWidth=8.00 oExcel.columns("F:F").ColumnWidth=8.00 oExcel.columns("G:G").ColumnWidth=30.00 oExcel.columns("H:H").ColumnWidth=30.00 oExcel.columns("I:I").ColumnWidth=15.00 oExcel.columns("J:J").ColumnWidth=15.00 'oExcel.columns("K:K").ColumnWidth=30.00 row% = 1 offset% = 0 lastOffset% = 0 If doccoll.count &gt;1 Then 'if more than one doc selected then confirm resp = Messagebox("Do you want to export only the " &amp; _ "selected " &amp; doccoll.count &amp; " documents?", 36, "Selected only?" ) Else Messagebox "Exporting all rows. (To export only selected " &amp; _ "rows tick those required in the left margin first.)" End If '6= yes oExcel.visible=True Dim i As Integer If resp=6 Then 'selected documents Set doc = doccoll.GetFirstDocument While Not doc Is Nothing If resp=6 Then 'row% = offset% + 2 If y="" Then row% = row% + 2 Else row%=row%+y+1 End If col% = 0 'Reset the Columns Set otherdoc = view.getnextdocument(doc) If otherdoc Is Nothing Then Set otherdoc = view.getprevdocument(doc) If otherdoc Is Nothing Then Print " &gt;1 doc should be selected" End Else Set otherdoc = view.getnextdocument(otherdoc) End If Else 'got next doc Set otherdoc = view.getprevdocument(otherdoc) End If End If Forall colval In otherdoc.ColumnValues col% = col% + 1 If Isarray(colval) Then ''If col%=10 Then '''''''' columnVal=Fulltrim(colval) For y = 0 To Ubound(columnVal) offset% = row% + y +lastOffset% 'offset% = row% + y oWorkSheet.Cells(offset%,col%).value = columnVal(y) 'i=offset% Next Else oWorkSheet.Cells(row%, col%).value = colval 'offset% = offset% + 1 End If '''' oWorkSheet.Cells(row%, col%).value = colval ''''' '''''''End If'''''''' End Forall Set doc = doccoll.GetNextDocument(doc) Wend End if </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PTQuestion
    1. USKen Pespisa
    1. USRupesh
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    3. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POStuck with Unprocessed document in Lotus notes
      1. This table or related slice is empty.
      1. VTUpMod
    1. COYour loops are borked, and you have strange logic - e.g. why check the collection size *in* the loop? Why check the value of `resp` *in the loop*? If you clean up how you iterate your documents, everything else will follow.
      singulars
      1. POStuck with Unprocessed document in Lotus notes
      1. USBen
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload