From 6db3834d1e1888ae210c2c2695f5c1de5b316cb3 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Fri, 4 Oct 2019 12:08:32 -0700
Subject: [PATCH] reporte Poliza  se muestra el usuario registro por pagina

---
 App_Code/ClsContPAQi.vb            | 3 ++-
 Compras/Compras.aspx.vb            | 6 +++---
 Empresas/119/Formatos/Polizas.rdlc | 5 +++--
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 2abd5de9e..57b8483c9 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -1067,11 +1067,12 @@ Public Class ClsContPAQi
         StrSQL.Append("          CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014
         StrSQL.Append("          SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ")
         StrSQL.Append("          SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ")
-        StrSQL.Append("          mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado   ")
+        StrSQL.Append("          mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT  REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre)  AS UsuarioRegistro   ")
         StrSQL.Append("      FROM    MovimientosPoliza mp  ")
         StrSQL.Append("              INNER JOIN Polizas p ON mp.IdPoliza = p.Id  ")
         StrSQL.Append("              INNER JOIN Cuentas c ON c.Id = mp.IdCuenta  ")
         StrSQL.Append("              INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo  ")
+        StrSQL.Append("   LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario  ")
         StrSQL.Append("              LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id  ")
         StrSQL.Append("      WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ")
         StrSQL.Append("         AND (@Eje = -1 OR mp.Ejercicio = @Eje) ")
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 31b36d589..3c9640274 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3755,7 +3755,7 @@ Partial Class Compras_Compras
         Dim GuardaNoDeducibles As Boolean = False
         If ChkEsNoDeducible.Checked Then
             For Each Row As DataRow In TmpDT.Rows
-                If Row("NoDeducible").ToString = "True" Then
+                If Row("NoDeducible").ToString().ToUpper() = "TRUE" OrElse Row("NoDeducible").ToString().ToUpper() = "1" Then
                     GuardaNoDeducibles = True
                 End If
             Next
@@ -4748,7 +4748,7 @@ Partial Class Compras_Compras
                                                                             CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
                                                                             RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
                                                                             IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
-                                                                            IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If(Row("NoDeducible").ToString = "True" AndAlso EsNoDeducible, True, False)) Then
+                                                                            IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString = "True" OrElse Row("NoDeducible").ToString = "1") AndAlso EsNoDeducible, True, False)) Then
 
                                             ErrorDetalles = True
                                             Exit For
@@ -18939,11 +18939,11 @@ Partial Class Compras_Compras
         Dim gvr As GridViewRow = CType(Chk.BindingContainer, GridViewRow)
 
         For Each drt As DataRow In TmpDT.Select("Consec = " & gvr.RowIndex + 1)
-
             drt("NoDeducible") = Chk.Checked
         Next
 
         TmpDT.AcceptChanges()
+        Alert((TmpDT.Select("Consec = " & gvr.RowIndex + 1)(0))("NoDeducible").ToString())
         AddPS2(EsNoDeducible:=EsNoDeducible)
 
     End Sub
diff --git a/Empresas/119/Formatos/Polizas.rdlc b/Empresas/119/Formatos/Polizas.rdlc
index 5df38836e..71816c9f8 100644
--- a/Empresas/119/Formatos/Polizas.rdlc
+++ b/Empresas/119/Formatos/Polizas.rdlc
@@ -1099,10 +1099,10 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value />
+                                  <Value>=Fields!UsuarioRegistro.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>1pt</FontSize>
                                     <Color>White</Color>
                                   </Style>
                                 </TextRun>
@@ -1120,6 +1120,7 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>