Guest User

Untitled

a guest
Oct 21st, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.24 KB | None | 0 0
  1. NotesDatabase notedb = notesSession.GetDatabase(myrootpath, myDBfilename);
  2. NotesDocumentCollection notesColl = notedb.AllDocuments;
  3. if (notesColl.Count > 0)
  4. {
  5. NotesDocument doc = notesColl.GetFirstDocument();
  6. try
  7. {
  8. while (doc != null)
  9. {
  10. if (doc.Items != null)
  11. {
  12. foreach (Domino.NotesItem item in doc.Items)
  13. {
  14. if (item.Values != null)
  15. {
  16. switch (item.Name)
  17. {
  18. //PDB DATA
  19. case "DocArea": pdbdoc.DocArea = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  20. case "DocDisc": pdbdoc.DocDisc = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  21. case "DocObject": pdbdoc.DocObject = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  22. case "DocOrigin": pdbdoc.DocOrigin = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  23. case "DocRef": pdbdoc.DocRef = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  24. case "DocRefClient": pdbdoc.DocRefClient = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  25. case "DocRevDt": pdbdoc.DocRevDt = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  26. case "DocRevNo": pdbdoc.DocRevNo = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  27. case "DocTitle": pdbdoc.DocTitle = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  28. case "DocUnit": pdbdoc.DocUnit = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  29. case "INCABINET": pdbdoc.InCabinet = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  30. //VDB DATA
  31. case "VendorDocNm": pdbdoc.DocTitle = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  32. case "VendorDocRef": pdbdoc.DocRefClient = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  33. case "VendorDocRevNo": pdbdoc.DocRevNo = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  34. case "DocUse": pdbdoc.DocObject = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  35. case "VendorDocRevDt": pdbdoc.DocRevDt = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  36. case "VendorDocClientRef": pdbdoc.DocRef = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  37. case "VendorNm": pdbdoc.VendorName = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  38. }
  39. }
  40. }
  41. }
  42. doc = notesColl.GetNextDocument(doc);
  43. }
  44. }
  45. catch (Exception ex)
  46. {
  47. //Exception handling
  48. }
  49. }
  50.  
  51. var items
  52. from doc in notedb.AllDocuments.Where(doc => doc.Items != null)
  53. from item in doc.Items.Where(item => item.Values != null)
  54. select item;
  55.  
  56. foreach (var item in items)
  57. {
  58. SetDocProperty(pdbdoc, item);
  59. }
  60.  
  61. void SetDocProperty(SomeType pdbdoc, SomeOtherType item)
  62. {
  63. switch (item.Name)
  64. {
  65. //PDB DATA
  66. case "DocArea": pdbdoc.DocArea = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  67. case "DocDisc": pdbdoc.DocDisc = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  68. case "DocObject": pdbdoc.DocObject = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  69. case "DocOrigin": pdbdoc.DocOrigin = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  70. case "DocRef": pdbdoc.DocRef = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  71. case "DocRefClient": pdbdoc.DocRefClient = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  72. case "DocRevDt": pdbdoc.DocRevDt = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  73. case "DocRevNo": pdbdoc.DocRevNo = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  74. case "DocTitle": pdbdoc.DocTitle = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  75. case "DocUnit": pdbdoc.DocUnit = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  76. case "INCABINET": pdbdoc.InCabinet = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  77. //VDB DATA
  78. case "VendorDocNm": pdbdoc.DocTitle = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  79. case "VendorDocRef": pdbdoc.DocRefClient = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  80. case "VendorDocRevNo": pdbdoc.DocRevNo = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  81. case "DocUse": pdbdoc.DocObject = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  82. case "VendorDocRevDt": pdbdoc.DocRevDt = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  83. case "VendorDocClientRef": pdbdoc.DocRef = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  84. case "VendorNm": pdbdoc.VendorName = LotusUtils.LotusUtils.LotusItemToString(item.Values); break;
  85. }
  86. }
Add Comment
Please, Sign In to add comment