16 lines
877 B
Plaintext
16 lines
877 B
Plaintext
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 |