AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-validacion garantías

Browse Source
This commit is contained in:
rrene
2024-10-29 19:00:42 -07:00
parent 99481020bb
commit 70e900931d
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/Modelos.vb
View File

@@ -2335,6 +2335,7 @@ Namespace Modelos
End If End If
'AJUSTES' 'AJUSTES'
If factura.EsGarantia Then
If DtAjustes IsNot Nothing AndAlso DtAjustes.FiltraParametros("CveVentaDetalle > 0").Rows.Count > 0 Then If DtAjustes IsNot Nothing AndAlso DtAjustes.FiltraParametros("CveVentaDetalle > 0").Rows.Count > 0 Then
For Each Dr As DataRow In DtAjustes.Rows For Each Dr As DataRow In DtAjustes.Rows
If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
@@ -2344,6 +2345,9 @@ Namespace Modelos
ErrorList.Add("Ocurrió un error al agregar la garantia detalle.") ErrorList.Add("Ocurrió un error al agregar la garantia detalle.")
End If End If
Next Next
Else
ErrorList.Add("Ocurrió un error. la garantía no tiene información detallada.")
End If
End If End If
'POLIZA VIRTUAL 'POLIZA VIRTUAL