AGREGAR CODICIONES NUEVAS A LOS CODIGOS DE INSPECCION,LINEA Y ENSAMBLE DEPENDIENDO DE LA CLASIFICACION

Ventas/PV.aspx.vb

@@ -5232,11 +5232,13 @@ Partial Class PV
             Dim CvePSParametro As Integer = DdlPSAjuste.SelectedValue.ToEntero
             Dim PrecioSugerido As Decimal = 0
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
-            Dim CveMarca As Integer
+            Dim CveMarca As Integer = -1
+            Dim CveClasificacion As Integer = -1
 
             If drPS IsNot Nothing Then
                 PrecioSugerido = drPS("Precio").ToString.ToDecimal
                 CveMarca = drPS("CveMarca").ToString.ToEntero
+                CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
             End If
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
@@ -5247,6 +5249,7 @@ Partial Class PV
             DdlTipoUso.DataBind()
 
             HdnPSAjusteMarca.Value = CveMarca.ToString()
+            HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
 
         End If