From 08dcc5ec4e64471571b03c9db5130e7b69ee4d43 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 10 Mar 2022 15:01:31 -0700
Subject: [PATCH] E140. Nombre de producto en campo de tipo en motobaterias

---
 Compras/PopUpVerFactura.aspx.vb      | 22 ++++++++++++++++++++--
 Empresas/Grales/Formatos/Ajuste.rdlc |  6 +++---
 2 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 35c9b14ff..4134770d5 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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()
 
diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc
index bc19d8a58..609acd1cd 100644
--- a/Empresas/Grales/Formatos/Ajuste.rdlc
+++ b/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>