Cambios BDH

Inventarios/RecepcionUsados.aspx.vb

@@ -2525,8 +2525,14 @@ Partial Class Inventarios_RecepcionUsados
         If RblUsadosAjuste.SelectedValue = "1" Then
             'agrego un registro extra del importe de ajuste
             Dim PU As Decimal = TxtImporteAjuste.Text.ToDecimal
-            Dim CveSATNC As String = "84111506"
-            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
+            'CONSULTA EL CONCEPTO DE NC
+            Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
+            Dim NCAjuste As Integer = -1
+            If ArrayNC.Length > 5 Then
+                NCAjuste = ArrayNC(5).ToEntero()
+            End If
+
+            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).FiltroPrimero("")
 
             If Dr IsNot Nothing Then
                 Dim CveUnidadMedida, CveClasificacion, CvePS As Integer
@@ -2534,7 +2540,7 @@ Partial Class Inventarios_RecepcionUsados
                 CveClasificacion = Dr("CveClasificacion").ToString.ToEntero
                 CvePS = Dr("CvePS").ToString.ToEntero
                 Dim PorcentajeIVA As Decimal = 0.16D
-                Dim Obs As String = "Descuento por garantía"
+                Dim Obs As String = $"Descuento por garantía. BCI: {DdlBCIAjuste.SelectedValue}"
 
                 AddPSRNC(ObjRemisionNC.DtDetalle, 1, CveUnidadMedida, "", CveClasificacion, "", CvePS, "", Obs, PU, 0, -1, "",
                      ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA)
@@ -2806,13 +2812,6 @@ Partial Class Inventarios_RecepcionUsados
         Dim ClasificacionPS As String = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionPS).FiltroPrimeroValor("Clasificacion").ToString()
         Select Case TipoFolio
             Case "GENERAL"
-                '20520        ACUM. AUTOMOTRIZ
-                '20522       ACUM. ESPECIALES
-                '20513       ACUM. ESTANDAR
-                '20521       ACUM. PESADO
-                '20512       ACUM. PREMIUM
-                '20514       ACUM. VALUE
-                '20229       Acumulador
                 ListaClasificacionesPermitidas.Add(20520) 'ACUM. AUTOMOTRIZ 
                 ListaClasificacionesPermitidas.Add(20522) 'ACUM. ESPECIALES 
                 ListaClasificacionesPermitidas.Add(20513) 'ACUM. ESTANDAR