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()
 

Empresas/Grales/Formatos/Ajuste.rdlc

@@ -990,9 +990,9 @@
             </Paragraphs>
             <rd:DefaultName>Textbox3</rd:DefaultName>
             <Top>2.155in</Top>
-            <Left>2.56338in</Left>
+            <Left>2.76123in</Left>
             <Height>0.16389in</Height>
-            <Width>1.23952in</Width>
+            <Width>1.04167in</Width>
             <ZIndex>22</ZIndex>
             <Style>
               <Border>
@@ -1040,7 +1040,7 @@
             <Top>2.155in</Top>
             <Left>1.37238in</Left>
             <Height>0.16389in</Height>
-            <Width>1.19096in</Width>
+            <Width>1.38885in</Width>
             <ZIndex>23</ZIndex>
             <Style>
               <Border>