AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prestamo Proveedores Exportar Excel, Ajuestes carta porte nom 043, Balance Genera Formato RepSituacionFinanciera.rdlc fix variables error en expreciones por tipo de dato

Browse Source
This commit is contained in:
rakcsle
2025-03-07 08:48:01 -07:00
parent 61475a8d1f
commit 6ea94bedc5
4 changed files with 62 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Contabilidad/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -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"
<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>
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>

3
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -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>

12
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -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>

22
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -308,4 +308,26 @@ 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