From 1aaa0d130330cd6f22510c044d56337a48a2074b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 20 Nov 2019 13:49:08 -0700
Subject: [PATCH] agregando validacion de no deducible NOTA: Falta descomentar
 una linea en el rowdatabound de la tabla GvChequesFYE en
 ReembolsosComprobaciones.vb

---
 Compras/PopUpVerFactura.aspx.vb             |  2 +-
 Compras/ReembolsosComprobaciones.aspx       |  2 +-
 Compras/ReembolsosComprobaciones.aspx.vb    | 10 ++++---
 Empresas/Grales/Formatos/EntradaSalida.rdlc | 32 ++++++++++-----------
 4 files changed, 23 insertions(+), 23 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 4558ac809..00ce5db51 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1402,8 +1402,8 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Fecha", Fecha))
                     params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
+                    params.Add(New ReportParameter("FacturadoA", NombreCliente))
                     params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
-                    params.Add(New ReportParameter("FacturadoA", RazonSocial))
                     params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
                     params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                     params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx
index b8d1aeefe..fe450a8f9 100644
--- a/Compras/ReembolsosComprobaciones.aspx
+++ b/Compras/ReembolsosComprobaciones.aspx
@@ -291,7 +291,7 @@
 
             <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
 
-            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje">
+            <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,NoDeducible">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 59620eeb6..fe376a7fb 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -626,6 +626,8 @@ Partial Class Compras_ReembolsosComprobaciones
                         ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                         ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
 
+                        Dim ConceptoDeducible As Integer = If(gvr.DataKey("NoDeducible").ToDecimal > 0, 280, 19)
+
                         If SaldoCheque > 0 Then
                             ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
                             CvePrePolizaPago = CvePrePolizaIERegistrado
@@ -698,7 +700,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     End If
 
                                     'Agrego el IVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -1004,7 +1006,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                             End If
 
                                             'Agrego el IVA
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                 MsgError = "Detalle"
                                             End If
                                         End If
@@ -1015,7 +1017,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                         End If
 
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, ConceptoDeducible, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
@@ -1494,7 +1496,7 @@ Partial Class Compras_ReembolsosComprobaciones
     Protected Sub GvChequesFYE_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FCHyperLink("HLFYE").NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", e.Row.DBCampo("CvePersonal"))
-            e.Row.FCHyperLink("HLCheque").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            'e.Row.FCHyperLink("HLCheque").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
         End If
     End Sub
diff --git a/Empresas/Grales/Formatos/EntradaSalida.rdlc b/Empresas/Grales/Formatos/EntradaSalida.rdlc
index 8310200d3..b5fd6cb99 100644
--- a/Empresas/Grales/Formatos/EntradaSalida.rdlc
+++ b/Empresas/Grales/Formatos/EntradaSalida.rdlc
@@ -523,8 +523,8 @@
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
-        <Height>1.11095cm</Height>
-        <Width>17.80043cm</Width>
+        <Height>1.11096cm</Height>
+        <Width>17.80045cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -567,10 +567,10 @@
     <Height>0.82291in</Height>
     <Style />
   </Body>
-  <Width>7.12873in</Width>
+  <Width>7.05896in</Width>
   <Page>
     <PageHeader>
-      <Height>3.79401cm</Height>
+      <Height>4.11151cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -644,7 +644,7 @@
           <Value>=Parameters!LogoPath.Value</Value>
           <Sizing>FitProportional</Sizing>
           <Top>0.3175cm</Top>
-          <Left>0.16459cm</Left>
+          <Left>0.19987cm</Left>
           <Height>1.66316cm</Height>
           <Width>3.43141cm</Width>
           <ZIndex>2</ZIndex>
@@ -669,7 +669,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox15</rd:DefaultName>
-          <Top>2.09104cm</Top>
+          <Top>2.40854cm</Top>
           <Left>2.30482cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
@@ -685,7 +685,6 @@
           </Style>
         </Textbox>
         <Textbox Name="Textbox18">
-          <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
@@ -699,7 +698,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox18</rd:DefaultName>
-          <Top>2.83214cm</Top>
+          <Top>3.14964cm</Top>
           <Left>2.30482cm</Left>
           <Height>0.6cm</Height>
           <Width>9.54145cm</Width>
@@ -731,7 +730,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox16</rd:DefaultName>
-          <Top>2.843cm</Top>
+          <Top>3.1605cm</Top>
           <Left>0.14172cm</Left>
           <Height>0.6cm</Height>
           <Width>2.11724cm</Width>
@@ -766,7 +765,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>2.09104cm</Top>
+          <Top>2.40854cm</Top>
           <Left>0.12931cm</Left>
           <Height>0.6cm</Height>
           <Width>2.12965cm</Width>
@@ -872,7 +871,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
-          <Top>2.84301cm</Top>
+          <Top>3.16051cm</Top>
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
@@ -888,7 +887,6 @@
           </Style>
         </Textbox>
         <Textbox Name="Textbox10">
-          <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
@@ -904,10 +902,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox6</rd:DefaultName>
-          <Top>2.09105cm</Top>
+          <Top>2.40855cm</Top>
           <Left>13.98125cm</Left>
           <Height>0.6cm</Height>
-          <Width>3.94849cm</Width>
+          <Width>3.65324cm</Width>
           <ZIndex>10</ZIndex>
           <Style>
             <Border>
@@ -938,10 +936,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox32</rd:DefaultName>
-          <Top>2.84301cm</Top>
+          <Top>3.16051cm</Top>
           <Left>13.98125cm</Left>
           <Height>0.59999cm</Height>
-          <Width>3.94849cm</Width>
+          <Width>3.65324cm</Width>
           <ZIndex>11</ZIndex>
           <Style>
             <Border>
@@ -970,7 +968,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>2.09105cm</Top>
+          <Top>2.40855cm</Top>
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>