agregado procesos y bd clases

chunk_caser.txt

@@ -0,0 +1,16 @@
+Private Shared Function ReciboAHistoricoCaser(codigoRecibo As String) As String
+        Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+        Dim r = bd.recibos.First(Function(x) x.CodigoRecibo = codigoRecibo)
+        Dim idCaser = bd.companias.First(Function(x) x.Codigo = "0017").idCompania
+        Dim i As Integer = 0
+        If r.NumeroRecibo.EndsWith(".") Then r.NumeroRecibo = r.NumeroRecibo.TrimEnd(".")
+        Dim sNuevoRecibo As String = r.NumeroRecibo & "-H"
+        Do Until bd.recibos.FirstOrDefault(Function(x) x.NumeroRecibo = sNuevoRecibo AndAlso x.polizassg.idCompania = idCaser) Is Nothing
+            i += 1
+            sNuevoRecibo = r.NumeroRecibo & "-H" & i.ToString
+        Loop
+        r.NumeroRecibo = sNuevoRecibo
+        r.CodigoRecibo = "0017/" & sNuevoRecibo
+        bd.SaveChanges()
+        Return r.CodigoRecibo
+    End Function