VyA identificar logística, si ocupa 1 ó 2 operadores, campo nuevo nchoferes 1 o 2

Compras/Compras.aspx.vb

@@ -4227,12 +4227,14 @@ Partial Class Compras_Compras
 
     Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
 
+
+
+        '------------------ INICIA VALIDACIONES ------------------
+
         If Not ValidaPresupuesto(2) Then
             Exit Sub
         End If
 
-        '------------------ INICIA VALIDACIONES ------------------
-
         If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then
             Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -4689,6 +4691,11 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
+        If DdlMoneda.SelectedValue.ToEntero > 1 And TxtTC.Text.ToDecimal <= 10 Then
+            Alert("Al seleccionar dólares, el tipo de cambio debe ser superior a 10.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         '------------------TERMINA VALIDACIONES------------------
 
 
@@ -8552,7 +8559,7 @@ Partial Class Compras_Compras
                     If ArrAnticipos.Count > 0 Then
                         For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                             'ImporteAnticipo += (Ant.Importe + Ant.ImporteComision)
-                            ImporteAnticipo += (Ant.Importe)
+                            ImporteAnticipo += ((Ant.Importe) + Ant.ImporteComision)
                         Next
                     End If
 
@@ -17103,7 +17110,7 @@ Partial Class Compras_Compras
                     'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
                     ViewState("IVAPS") = PS("IVA").ToString
                     If ViewState("IVAPS").ToString.ToEntero() = -1 Then
-                        Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)(0)
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
                         DdlProyecto.SelectedValueExist(Drr("CveProyecto"))