Validar seleccion de personal y caja chica al actualizar compra

Compras/Compras.aspx.vb

@@ -8591,19 +8591,18 @@ Partial Class Compras_Compras
             End If
         End If
 
-
-
         'VALIDA IMPORTES
         If CveFactura > 0 Then 'SI NO VIENE DE FACTURA/XML NO VALIDA TOTALES
-
-
-
-
             If Not ValidaTotalesGuardar() Then
                 Exit Sub
             End If
         End If
 
+        If DdlRembolsoCajaChica.SelectedValue.ToEntero() > 0 AndAlso DdlRembolsoPersonal.SelectedValue.ToEntero() > 0 Then
+            Alert("No se puede tener seleccionada una 'Caja Chica' y 'Personal/Empleado' a la vez", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         For Each Row As DataRow In TmpDT.Rows
             If Row("CveSubProyecto").ToString.ToEntero <= 0 Then
                 Alert("No se ha completado la asignacion de proyectos en la compra. ", TipoMensaje.MsgAdvertencia)
@@ -11968,13 +11967,15 @@ Partial Class Compras_Compras
     Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
         TrRembolsoCajaChica.Visible = False
         TrRembolsoPersonal.Visible = False
-        DdlRembolsoCajaChica.SelectedValueExist("-1")
+        DdlRembolsoCajaChica.SelectedValueExistInsert("-1", "Seleccione")
-        DdlRembolsoPersonal.SelectedValueExist("-1")
+        DdlRembolsoPersonal.SelectedValueExistInsert("-1", "Seleccione")
         If RblRembolso.SelectedValue.ToEntero = 1 Then
             TrRembolsoPersonal.Visible = True
         ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
             TrRembolsoCajaChica.Visible = True
         End If
+
+        UPCondicionesPago.Update()
     End Sub
 #End Region