Cambios GlobalDTSubPoryecto

Cambio GlobalDTUsuario

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
 
@@ -15831,7 +15838,7 @@ Partial Class Compras_Compras
                         prorrateo = (row("PU").ToString.ToDecimal * TotalServicios) / TotalFacturas
                         If Not ObjInv.UpdateCostoIndirectoMovimientoDetalle(row("CveMovimientoDetalle").ToString.ToEntero, prorrateo) Then
                             HayError = True
-                            Exit For
+                            Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
 
                         End If
                     Next
@@ -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(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
                         ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
                         DdlProyecto.SelectedValueExist(Drr("CveProyecto"))