From 6ea94bedc542749a0ae9a950304ceeccc466320d Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 7 Mar 2025 08:48:01 -0700
Subject: [PATCH] Prestamo Proveedores Exportar Excel, Ajuestes carta porte nom
 043, Balance Genera Formato RepSituacionFinanciera.rdlc fix variables error
 en expreciones por tipo de dato

---
 .../Reportes/RepSituacionFinanciera.rdlc      | 38 +++++++++++++------
 .../Grales/Formatos/CartaPorteTimbrado.rdlc   |  3 +-
 Inventarios/PrestamosdeProveedor.aspx         | 12 ++++++
 Inventarios/PrestamosdeProveedor.aspx.vb      | 22 +++++++++++
 4 files changed, 62 insertions(+), 13 deletions(-)

diff --git a/Contabilidad/Reportes/RepSituacionFinanciera.rdlc b/Contabilidad/Reportes/RepSituacionFinanciera.rdlc
index 40ceecb3d..bcbcee83a 100644
--- a/Contabilidad/Reportes/RepSituacionFinanciera.rdlc
+++ b/Contabilidad/Reportes/RepSituacionFinanciera.rdlc
@@ -2726,7 +2726,7 @@
         <Height>4.77456in</Height>
         <Style />
       </Body>
-      <Width>8.07238in</Width>
+      <Width>8.07239in</Width>
       <Page>
         <PageHeader>
           <Height>0.74083cm</Height>
@@ -3037,36 +3037,50 @@
   </ReportParameters>
   <Variables>
     <Variable Name="TotalActivoActual">
-      <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR  Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9  , Fields!ImporteActual.Value, 0)  , "DataSet1")</Value>
+      <Value>=Sum(
+    IIf(
+        (Fields!Tipo.Value = "A" OR Fields!Tipo.Value = "B" OR Fields!Tipo.Value = "C" OR CInt(Fields!TipoCuenta.Value) = 9) 
+        AND IsNumeric(Fields!ImporteActual.Value), 
+        CDbl(Fields!ImporteActual.Value), 
+        0
+    ), 
+    "DataSet1"
+)</Value>
     </Variable>
     <Variable Name="TotalActivoAnterior">
       <Value>=Sum( iif(Fields!Sup.Value  = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9  ,   Cint(Fields!ImporteAnterior.Value) , 0.0), "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPasivoActual">
-      <Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE"  OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo", 
-Fields!ImporteActual.Value, 0), "DataSet1")</Value>
+      <Value>=Sum( 
+	iif(
+		(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE"  OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo")
+		AND IsNumeric(Fields!ImporteActual.Value),
+		CDbl(Fields!ImporteActual.Value), 
+		0
+		), "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPasivoAnterior">
       <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
       <Writable>true</Writable>
     </Variable>
     <Variable Name="TotalPatrimonioCActual">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE"  , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
+      <Value>=Sum( iif( (Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE")  AND IsNumeric(Fields!ImporteActual.Value)  , 
+		CDbl(Fields!ImporteActual.Value),0),"DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPatrimonioHActual">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" 
-OR Fields!Sup.Value = "CAPITAL CONTABLE"  
-OR Fields!Sup.Value = "Capital Contable"  
-OR Fields!Sup.Value = "Capital Social"
-OR Fields!Sup.Value = "Capital", 
-Fields!ImporteActual.Value, 0),"DataSet1")</Value>
+      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif( (Fields!Sup.Value = "CAPITAL" 
+		OR Fields!Sup.Value = "CAPITAL CONTABLE"  
+		OR Fields!Sup.Value = "Capital Contable"  
+		OR Fields!Sup.Value = "Capital Social"
+		OR Fields!Sup.Value = "Capital") AND   IsNumeric(Fields!ImporteActual.Value), 
+		CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPatrimonioCAnterior">
       <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
       <Writable>true</Writable>
     </Variable>
     <Variable Name="TotalPatrimonioHAnterior">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
+      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif((Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE") AND   IsNumeric(Fields!ImporteActual.Value)  , CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
     </Variable>
     <Variable Name="TotalpasivoYHaciendaActual">
       <Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index ef50cb052..c12514aa1 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -4256,7 +4256,7 @@
                   <Paragraph>
                     <TextRuns>
                       <TextRun>
-                        <Value>="3. Página " &amp; Code.PageNumber &amp; " de " &amp; Code.TotalPages</Value>
+                        <Value>3. Página 1 de 1 Páginas</Value>
                         <Style>
                           <FontFamily>Myriad Pro</FontFamily>
                           <FontSize>8pt</FontSize>
@@ -6636,6 +6636,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox14</rd:DefaultName>
+              <Top>0cm</Top>
               <Left>14.75588cm</Left>
               <Height>0.54708cm</Height>
               <Width>4.70062cm</Width>
diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx
index 9f1680dc4..92f88ec51 100644
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -10,6 +10,18 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+      <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
+      <ContentTemplate>
+
+          <li>
+              <asp:LinkButton ID="LnkExportar" runat="server" Visible="true"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+          </li>
+
+      </ContentTemplate>
+      <Triggers>
+          <asp:PostBackTrigger ControlID="LnkExportar" />
+      </Triggers>
+  </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb
index cf2eda288..d020abdc2 100644
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -307,5 +307,27 @@ Partial Class Inventarios_PrestamosdeProveedor
 
     Private Sub BtnCargaPendientes_Click(sender As Object, e As EventArgs) Handles BtnCargaPendientes.Click
         CargaDatos()
+    End Sub
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Dim SbFiltros As New StringBuilder()
+        'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
+        SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
+        SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
+        SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text)
+        'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+        'SbFiltros.AppendFormat("Ejercicio : {0}  Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
+
+        GvD.Columns(1).Visible = False
+        UppEntrega.Update()
+        GvD.ExportToExcelGembox("PrestamosProveedores", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
+        GvD.Columns(1).Visible = True
+        UppEntrega.Update()
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
+
 End Class