diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1fbacf4dc..589e83ab4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7945,6 +7945,16 @@ Partial Class Ventas
                                 End If
                             End If
 
+                            'SOLO HABILITAR PARA GENERAR NOTAS DE CREDITO
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                LnkSolicitarCredito.Visible = True
+
+                                If DdlSolCreditoTipoDocto.Items.FindByValue("Ing") IsNot Nothing Then
+                                    DdlSolCreditoTipoDocto.Items.Remove(DdlSolCreditoTipoDocto.Items.FindByValue("Ing"))
+                                End If
+
+                            End If
+
                         End If
 
 
@@ -9185,7 +9195,7 @@ Partial Class Ventas
             Dim ConsecutivoActual As Integer = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero()
 
             If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-                ObjDescuento = CalcularDescuentos(GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero(), Cantidad, PU)
+                ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
             End If
 
             Dim NumTurnos As Decimal = 0
@@ -9216,11 +9226,30 @@ Partial Class Ventas
                 End If
             End If
 
+            Dim SubProyecto As String = ""
+            Dim CveSubProyecto As Integer = -1
+
+            Dim Proyecto As String = ""
+            Dim CveProyecto As Integer = -1
+
+            If GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem IsNot Nothing Then
+                Proyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text
+                CveProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero()
+            End If
+
+            If GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem IsNot Nothing Then
+                SubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text
+                CveSubProyecto = GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero()
+            Else
+                SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
+                CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
+            End If
+
             AgregarProductoServicio(Cantidad, DdlUM.SelectedValue.ToEntero(), DdlUM.SelectedItem.Text, DdlCla.SelectedValue.ToEntero(), DdlCla.SelectedItem.Text,
                                     GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownLost("DdlPS").SelectedText,
                                     GvPS.Rows(e.RowIndex).FCTextBox("TxtObsPS").Text.Trim, PU, ObjDescuento.ImporteDescuento,
-                                    GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownList("DdlProyecto").SelectedItem.Text,
-                                    GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), GvPS.Rows(e.RowIndex).FCDropDownList("DdlSubProyecto").SelectedItem.Text,
+                                    CveProyecto, Proyecto,
+                                    CveSubProyecto, SubProyecto,
                                     CuentaPredial:=CuentaPredial, CveVentaDetalle:=GvPS.Rows(e.RowIndex).DataKey("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle,
                                     ObjDescuento:=ObjDescuento, NumTurnos:=NumTurnos, CvePrecioLista:=CvePrecioLista, PrecioLista:=PrecioLista, ConsecutivoManual:=ConsecutivoActual)
 
@@ -25377,8 +25406,8 @@ Partial Class Ventas
                 TxtDireccionCliente.Text = DrSP("Calle").ToString()
                 TxtNumExtCliente.Text = DrSP("NoExt").ToString()
                 TxtNumIntCliente.Text = DrSP("NoInt").ToString()
-                TxtCorreoCliente.Text = DrSP("Correo").ToString()
-                TxtTelefonoCliente.Text = DrSP("Telefono").ToString()
+                'TxtCorreoCliente.Text = DrSP("Correo").ToString()
+                'TxtTelefonoCliente.Text = DrSP("Telefono").ToString()
 
             End If