-

Ventas/Ventas.aspx.vb

@@ -3463,10 +3463,14 @@ Partial Class Ventas
                 LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
                 LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
 
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+                If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
                     HplDownPDF.Visible = False
                 End If
 
+                DdlPS.Attributes.Remove("data-cvesubproyecto")
+                DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
+
+                UpPS.Update()
                 UPObservaciones.Update()
             End If
 
@@ -7893,10 +7897,10 @@ Partial Class Ventas
             End If
 
             Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue
-            If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                'cuando es empresa llantera (558) o cuando es empresa acumuladores
-                cvesubproyecto = "-1"
-            End If
+            'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            '    'cuando es empresa llantera (558) o cuando es empresa acumuladores
+            '    cvesubproyecto = "-1"
+            'End If
 
             Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto)
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString())
@@ -17431,6 +17435,11 @@ Partial Class Ventas
         CargaVendedores()
         HabilitarRemisionesPublicoGeneral()
 
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            DdlPS.Attributes.Remove("data-cvesubproyecto")
+            DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
+        End If
+
         UpDetalle.Update()
         UpEmitirTransitorio.Update()
     End Sub
@@ -34706,9 +34715,6 @@ Partial Class Ventas
             End If
         Catch ex As Exception
         End Try
-
-
-
     End Sub
 
     Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click
@@ -36610,7 +36616,8 @@ Partial Class Ventas
 
 
         If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
-            DdlTipoComprobante.SelectedValueExist("Ing")
+            'DdlTipoComprobante.SelectedValueExist("Ing")
+            DdlTipoComprobante.SelectedValueExist("Ped")
 
             TrVentasMedicas1.Visible = True
             TrVentasMedicas2.Visible = True