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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JPerez
2025-06-06 13:03:21 -07:00
parent 6a8ba84dc8 ab133076e2
commit 61c8638ffb
9 changed files with 33 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
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
@@ -134,7 +132,7 @@ Partial Class Contabilidad_ContabilidadElectronica
Str.AppendFormat("Desc=""{0}"" ", HttpUtility.HtmlEncode(Dr("Nombre").ToString)) Str.AppendFormat("Desc=""{0}"" ", HttpUtility.HtmlEncode(Dr("Nombre").ToString))
Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("CodigoPadre").ToString) Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("CodigoPadre").ToString)
Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel").ToString) Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel").ToString)
Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "D", "G", "H"), "D", "A")) 'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora. Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "E", "G", "I", "K"), "D", "A")) 'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora.
Else Else
Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup").ToString) Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup").ToString)
Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString) Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
@@ -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

16
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -488,7 +488,6 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
InicializaClientes()
InicializaBitacoraTemporal() InicializaBitacoraTemporal()
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
@@ -514,7 +513,6 @@ Partial Class Inventarios_EntradasSalidas
PermisoVerImportes() PermisoVerImportes()
End If End If
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
TxtFecha.Enabled = False TxtFecha.Enabled = False
@@ -3941,17 +3939,7 @@ Partial Class Inventarios_EntradasSalidas
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED" #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
Private Sub InicializaClientes()
If UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso CveMovimiento <= 0 Then
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.DataBind()
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientes.SelectedValue = "-1"
End If
End Sub
Protected Sub ActivaClientes() Protected Sub ActivaClientes()
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
DivCliente.Visible = True DivCliente.Visible = True
@@ -3959,10 +3947,6 @@ Partial Class Inventarios_EntradasSalidas
'TxtDepartamentoEntrega.Text = "" 'TxtDepartamentoEntrega.Text = ""
End If End If
'If UsuarioActual.CveRol = 1 Then
' RfvCliente.Enabled = False
'End If
End Sub End Sub
Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
CambiaCliente() CambiaCliente()

2
RH/Personal.aspx.vb
View File

@@ -1011,7 +1011,7 @@ Partial Class RH_Personal
CargaOutSourcing() CargaOutSourcing()
CargaDDlPersonalRefsReference() CargaDDlPersonalRefsReference()
If UsuarioActual.CveEmpresa = 13 AndAlso UsuarioActual.CveRol = 1 Then If UsuarioActual.CveEmpresa = 13 Then 'código temporal
CargaDTSCaracteristicas() CargaDTSCaracteristicas()
CargaDatosCaracteristicas() CargaDatosCaracteristicas()
End If End If

1
Sistemas/CatSesiones.aspx.vb
View File

@@ -141,6 +141,7 @@ Partial Class Sistemas_CatSesiones
GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
GlobalDTEstadoActivoFijo() = Nothing
End Sub End Sub
Private Sub CargaSATGenerales() Private Sub CargaSATGenerales()

2
Ventas/ClientesAbonar.aspx
View File

@@ -173,7 +173,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Observaciones</label> <label class="col-md-2">Observaciones</label>
<div class="col-md-7"> <div class="col-md-7">
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox> <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="750" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" /> <asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
</div> </div>
<div class="col-md-2 input-icon"> <div class="col-md-2 input-icon">

9
Ventas/RepPedidosSTF.aspx.vb
View File

@@ -1,11 +1,10 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports DocumentFormat.OpenXml.Office.CustomUI
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Ventas_RepPedidosSTF Partial Class Ventas_RepPedidosSTF
Inherits ClsPaginas Inherits ClsPaginas
@@ -297,6 +296,7 @@ Partial Class Ventas_RepPedidosSTF
ObjA.IniciaTransacSQL() ObjA.IniciaTransacSQL()
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim StrAlerta As New StringBuilder Dim StrAlerta As New StringBuilder
Dim ActivaEnvio As Boolean = False
For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
@@ -327,10 +327,13 @@ Partial Class Ventas_RepPedidosSTF
TieneError = True TieneError = True
End If End If
End If End If
If dr("CvePS").ToString.ToEntero = 1069499 Then ActivaEnvio = True
End If End If
Next Next
If drt("GastosEnvio").ToString.ToDecimal > 0 Then If drt("GastosEnvio").ToString.ToDecimal > 0 AndAlso ActivaEnvio Then
Dim tCvePSEnvio As Integer = UsuarioActual.Empresa.Funcionalidad(160).ToEntero Dim tCvePSEnvio As Integer = UsuarioActual.Empresa.Funcionalidad(160).ToEntero
If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
TieneError = True TieneError = True

4
Ventas/Ventas.aspx.vb
View File

@@ -9115,10 +9115,10 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If ModalidadEdicion Then If ModalidadEdicion Then
e.Row.FCLinkButton("imgE").Visible = True e.Row.FCLinkButton("imgE").Visible = True
e.Row.FCLinkButton("imgD").Visible = False 'e.Row.FCLinkButton("imgD").Visible = False
Else Else
e.Row.FCLinkButton("imgE").Visible = False e.Row.FCLinkButton("imgE").Visible = False
e.Row.FCLinkButton("imgD").Visible = False 'e.Row.FCLinkButton("imgD").Visible = False
End If End If
End If End If
End If End If