E140. Nombre de producto en campo de tipo en motobaterias

Compras/PopUpVerFactura.aspx.vb

@@ -5685,6 +5685,7 @@ Partial Class PopUpVerFactura
         Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString
         Dim CodigoTD As String = RowAjuste("CodigoTD").ToString
 
+        Dim PSAjuste As String = ""
         Dim MarcaPS As String = ""
         Dim CveMarca As Integer = -1
 
@@ -5715,7 +5716,15 @@ Partial Class PopUpVerFactura
 
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
-            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste))
+            Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
+            If RowPS IsNot Nothing Then
+                PSAjuste = RowPS("PS").ToString()
+                MarcaPS = RowPS("Marca").ToString()
+                'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
+                If RowPS("CveClasificacion").ToString() = "20517" Then
+                    BCIAjuste = PSAjuste
+                End If
+            End If
         End If
         ObjPS.Dispose()
 
@@ -5813,6 +5822,7 @@ Partial Class PopUpVerFactura
 
         Dim MesesUso As String = "0"
 
+        Dim PSAjuste As String = ""
         Dim MarcaPS As String = ""
         Dim CveMarca As Integer = -1
 
@@ -5843,7 +5853,15 @@ Partial Class PopUpVerFactura
 
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
-            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste))
+            Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
+            If RowPS IsNot Nothing Then
+                PSAjuste = RowPS("PS").ToString()
+                MarcaPS = RowPS("Marca").ToString()
+                'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
+                If RowPS("CveClasificacion").ToString() = "20517" Then
+                    BCIAjuste = PSAjuste
+                End If
+            End If
         End If
         ObjPS.Dispose()