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

- cambios

Browse Source
This commit is contained in:
rrene
2025-06-03 15:17:50 -07:00
parent b07bfd120f
commit 1ae9e9cf62
3 changed files with 21 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Contabilidad/ContabilidadElectronica.aspx.vb
View File

@@ -2,7 +2,6 @@
Option Strict On Option Strict On
Imports Extensiones Imports Extensiones
Imports System
Imports System.IO Imports System.IO
Imports System.Security.Cryptography Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates Imports System.Security.Cryptography.X509Certificates
@@ -10,7 +9,6 @@ Imports System.Text
Imports System.Xml Imports System.Xml
Imports System.Xml.Xsl Imports System.Xml.Xsl
Imports System.Data Imports System.Data
Imports CrystalDecisions.Web
Imports DocumentFormat.OpenXml.Wordprocessing Imports DocumentFormat.OpenXml.Wordprocessing
Imports Org.BouncyCastle.Asn1 Imports Org.BouncyCastle.Asn1
Imports Org.BouncyCastle.Tls.Crypto.Impl Imports Org.BouncyCastle.Tls.Crypto.Impl
@@ -274,12 +272,12 @@ Partial Class Contabilidad_ContabilidadElectronica
objconta.Dispose() objconta.Dispose()
If DtCuentas IsNot Nothing Then If DtCuentas IsNot Nothing Then
Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD") Dim Deudor As Decimal = DtCuentas.SUM("SaldoFCargo", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA") Dim Acreedor As Decimal = DtCuentas.SUM("SaldoFAbono", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
'If Deudor <> Acreedor Then If Deudor <> Acreedor Then
' Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError) Alert(String.Format("los Saldos Actuales no cuadran. {0}-{1}", Deudor, Acreedor), TipoMensaje.MsgError)
' Exit Sub Exit Sub
'End If End If
End If End If
Else Else
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)

2
Contabilidad/RepBalanzaComprobacion.aspx
View File

@@ -186,7 +186,7 @@
</table> </table>
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label> <asp:Label ID="LbSaldoInicial" Style="padding-right: 75px;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>

23
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

@@ -11,8 +11,6 @@ Imports System.IO
Imports System.Drawing Imports System.Drawing
Imports System.Web.Services Imports System.Web.Services
Partial Class Contabilidad2_RepBalanzaComprobacion Partial Class Contabilidad2_RepBalanzaComprobacion
Inherits ClsPaginas Inherits ClsPaginas
@@ -193,6 +191,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
'Acomoda Deudor y Acreedor 'Acomoda Deudor y Acreedor
If e.Row.DBCampo("CveTipo") = "1" Then If e.Row.DBCampo("CveTipo") = "1" Then
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero) e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
e.Row.FCLabel("LbSaldoActual").Text = " " e.Row.FCLabel("LbSaldoActual").Text = " "
End If End If
@@ -211,19 +210,25 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
End If End If
'Total general 'Total general
If e.Row.DBCampo("Id") = "" Then If e.Row.DBCampo("CveCuenta") = "" Then
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
e.Row.ControlStyle.Font.Size = 9 e.Row.ControlStyle.Font.Size = 9
e.Row.ControlStyle.Height = 30 e.Row.ControlStyle.Height = 30
e.Row.FCLabel("LbNombre").Text = "Sumas Iguales" e.Row.FCLabel("LbNombre").Text = "Sumas Iguales"
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero) e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero e.Row.FCLabel("LbSaldoInicial").Style.Add("white-space", "pre")
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoICargo").FormatoNumero, e.Row.DBCampo("SaldoIAbono").FormatoNumero)
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").FormatoNumero
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").FormatoNumero
e.Row.FCLabel("LbSaldoActual").Visible = True e.Row.FCLabel("LbSaldoActual").Visible = True
e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero) e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoFCargo").FormatoNumero, e.Row.DBCampo("SaldoFAbono").FormatoNumero)
e.Row.FCHyperLink("HLSaldoActual").Visible = False
Else Else
If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto) If ModoImpresion Then
e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text
Else
e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
End If
End If End If
End If End If
End Sub End Sub