Bandera EsGarantia al generar RNC por garantia

2022-01-24 17:38:48 -07:00
parent 94edde16fc
commit b3d1a552b9
1 changed files with 3 additions and 0 deletions
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2389,6 +2389,9 @@ Partial Class Inventarios_RecepcionUsados

        'GUARDAR AJUSTES
        Me.ObjRemisionNC.DtAjustes = TmpDTAjustes
+        If Me.ObjRemisionNC.DtAjustes IsNot Nothing AndAlso Me.ObjRemisionNC.DtAjustes.Rows.Count > 0 Then
+            Me.ObjRemisionNC.EsGarantia = True
+        End If

        'VALIDA PROMOCIONES Y EXISTENCIAS
        Dim ObjVentas As New ClsVentas