+SN, InvNo

corr_cob.r

+library("R4CouchDB")
+
+## in 
+cin          <- cdbIni()
+cin$DBName   <- "vl_db"
+cin$view     <- "cob"
+cin$design   <- "hlp"
+
+## out
+cout <- cdbIni()
+cout$DBName   <- "vl_db"
+
+ids <- cdbGetView(cin)$res$rows
+N   <- length(ids)
+
+for(i in 1:N){
+    
+    cin$id  <- ids[[i]]$id
+    cout$id <- ids[[i]]$id
+    doc <- cdbGetDoc(cin)$res
+    dc  <- doc$CalibrationObject
+    ## serien Nr
+    if(length(dc$Device) > 0){
+        if(length(dc$Device$Serial) > 0){
+            doc$CalibrationObject$Device$SN <- dc$Device$Serial
+            doc$CalibrationObject$Device$Serial <- NULL
+        }
+        if(length(dc$Device$InventarNo) > 0){
+            if(length(doc$CalibrationObject$Device$InventarNo) > 1){
+                doc$CalibrationObject$Device$InvNo <- dc$Device$InventarNo
+            }
+            doc$CalibrationObject$Device$InventarNo<- NULL
+        }
+        
+    }
+    cout$dataList <- doc
+    cdbUpdateDoc(cout)$res
+                                       #res <- cdbDeleteDoc(cout)
+}
\ No newline at end of file