diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 837f097a5..1dc6523ba 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5235,7 +5235,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function AutorizacionLimitesAdd(CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveUsuario As Integer, CveEstatus As Integer) As Boolean
+    Public Function AutorizacionLimitesAdd(CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveUsuario As Integer, CveEstatus As Integer, Optional CveVenta As Integer = -1, Optional CveIE As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_AutorizacionLimitesAdd", CommandType.StoredProcedure)
@@ -5247,7 +5247,8 @@ Public Class ClsVentas
             .Add("@Importe", SqlDbType.Money).Value = Importe
             .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
         End With
 
         Try
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 633720008..63e02e2f0 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1345,6 +1345,8 @@ Namespace Modelos
 
                 ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
                 ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero
+
+                ObjFactura.CveMoneda = CveMoneda
                 'DETALLES
                 ObjFactura.DtDetalle = CreaDTFactura()
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 57ee0c71f..707a35cea 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -108,6 +108,9 @@
             padding-left: 28px;
         }
 
+        .titulops {
+            width: 300px !important;
+        }
 
         .GVAnticipos input {
             text-align: right;
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c167ad3ec..d4819b53d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -40681,9 +40681,14 @@ Partial Class Ventas
 
             'GvExist.Columns(0).ItemStyle.Width = New Unit(200, UnitType.Pixel)
             'ORDENA HACIA LA DERECHA LAS CANTIDAD - OJO!! NO SE USO GV.COLUMNS.COUNT PORQUE LAS COLUMNAS GENERADAS EN BEHIND NO LAS RECONOCE
-            For index As Integer = 1 To DtExistencias.Columns.Count - 1
+            For index As Integer = 0 To DtExistencias.Columns.Count - 1
                 For Each gvr As GridViewRow In GvExist.Rows
-                    gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
+                    If index = 0 Then
+                        gvr.Cells(index).CssClass = "titulops"
+                    Else
+                        gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
+                    End If
+
                 Next
             Next
         End If