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