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

-- se elminó usacontabilidadSIG

Browse Source
This commit is contained in:
rrene
2023-02-08 08:30:44 -07:00
parent d2b316377d
commit 60ecea1eef
9 changed files with 10 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
AF/AF.aspx.vb
View File

@@ -2568,9 +2568,6 @@ Partial Class AF_AF
End If End If
End If End If
End If End If
@@ -2581,7 +2578,7 @@ Partial Class AF_AF
'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero 'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
If Not ErrorGuardar Then If Not ErrorGuardar Then
Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual) Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual)
If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(DdlCtaContable.SelectedValue.Trim.ToEntero, UsuarioActual.CveEmpresa), -1)) Then If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then
If Not ErrorGuardar Then If Not ErrorGuardar Then
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then
ErrorGuardar = True ErrorGuardar = True

18
App_Code/ClsPaginas.vb
View File

@@ -1268,21 +1268,12 @@ Public Class ClsPaginas
Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
'sino existe, recarga los datos
If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then
Dim ObjProyectos As New ClsProyectos Dim ObjProyectos As New ClsProyectos
If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados
ObjProyectos.Dispose() ObjProyectos.Dispose()
Dim msg As String = "aqui no se carga proyectos"
If HttpContext.Current.Request IsNot Nothing Then
msg += HttpContext.Current.Request.ServerVariables("URL")
End If
msg.GuardaLog()
End If End If
If Estatus <> -1 Then 'OrElse CveProyecto <> -1 If Estatus <> -1 Then
'Dim StrSQL As New StringBuilder
'If Estatus <> -1 Then StrSQL.Append($"Estatus = {Estatus}")
'If CveProyecto <> -1 Then StrSQL.Append(" {If(StrSQL.Length > 0, "AND", "")} CveProyecto = {CveProyecto}")
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEstatus = {Estatus}", "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEstatus = {Estatus}", "", DataViewRowState.CurrentRows)
GlobalDTProyectos = Dv.ToTable GlobalDTProyectos = Dv.ToTable
Dv.Dispose() Dv.Dispose()
@@ -1291,13 +1282,6 @@ Public Class ClsPaginas
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
If value Is Nothing OrElse value.Rows.Count = 0 Then
Dim msg As String = "aqui no se carga proyectos"
If HttpContext.Current.Request IsNot Nothing Then
msg += HttpContext.Current.Request.ServerVariables("URL")
End If
msg.GuardaLog()
End If
Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set

12
App_Code/ClsRH.vb
View File

@@ -1483,8 +1483,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Public Property CveMotivoBaja As Integer Public Property CveMotivoBaja As Integer
Public Property FechaBaja As Date Public Property FechaBaja As Date
Public Property CveEstatusPersonal As Integer Public Property CveEstatusPersonal As Integer
Public Property IdCtaContPrestamos As Integer Public Property IdCtaContPrestamos As Integer
Public Property CveCuentaPrestamos As Integer
Public Property CtaContPrestamos As String Public Property CtaContPrestamos As String
Public Property TelefonoExtension As String Public Property TelefonoExtension As String
Public Property CelularPersonal As String Public Property CelularPersonal As String
@@ -1538,8 +1537,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Public Property CveUsuario As Integer Public Property CveUsuario As Integer
Public Property Usuario As String Public Property Usuario As String
Public Property CveEmpresa As Integer Public Property CveEmpresa As Integer
Public Property IdCtaContPersonal As Integer Public Property IdCtaContPersonal As Integer
Public Property CveCuentaPersonal As Integer
Public Property CtaContPersonal As String Public Property CtaContPersonal As String
Public Property CvePersonalPadre As Integer Public Property CvePersonalPadre As Integer
@@ -1700,10 +1698,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Me.Jornada = Data.Rows(0)("Jornada").ToString Me.Jornada = Data.Rows(0)("Jornada").ToString
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString
CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero
@@ -1880,16 +1876,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Me.Jornada = Data.Rows(0)("Jornada").ToString Me.Jornada = Data.Rows(0)("Jornada").ToString
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString
CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero
End If End If
Retorno = True Retorno = True
Catch ex As SqlException Catch ex As SqlException

1
App_Code/ClsSisEmpresas.vb
View File

@@ -384,7 +384,6 @@ Public Class ClsSisEmpresas
_Empresa.FacturaProduccion = If(Data.Rows(0)("FacturaProduccion").ToString = "", False, CBool(Data.Rows(0)("FacturaProduccion").ToString)) _Empresa.FacturaProduccion = If(Data.Rows(0)("FacturaProduccion").ToString = "", False, CBool(Data.Rows(0)("FacturaProduccion").ToString))
_Empresa.EstatusFacturacion = Data.Rows(0)("EstatusFacturacion").ToString <> "No" _Empresa.EstatusFacturacion = Data.Rows(0)("EstatusFacturacion").ToString <> "No"
_Empresa.UsaContabilidad = Data.Rows(0)("UsaContabilidad").ToString <> "No" _Empresa.UsaContabilidad = Data.Rows(0)("UsaContabilidad").ToString <> "No"
_Empresa.UsaContabilidadSIG = Data.Rows(0)("UsaContabilidadSIG").ToString <> "No"
_Empresa.UsaBancos = Data.Rows(0)("UsaBancos").ToString <> "No" _Empresa.UsaBancos = Data.Rows(0)("UsaBancos").ToString <> "No"
_Empresa.UsaVentas = Data.Rows(0)("UsaVentas").ToString <> "No" _Empresa.UsaVentas = Data.Rows(0)("UsaVentas").ToString <> "No"
_Empresa.UsaCxC = Data.Rows(0)("UsaCxC").ToString <> "No" _Empresa.UsaCxC = Data.Rows(0)("UsaCxC").ToString <> "No"

3
App_Code/Empresa.vb
View File

@@ -68,8 +68,7 @@ Public Class Empresa
Public Property RegimenFiscal As String Public Property RegimenFiscal As String
Public Property EstatusFacturacion As Boolean Public Property EstatusFacturacion As Boolean
Public Property Estatus As Boolean Public Property Estatus As Boolean
Public Property UsaContabilidad As Boolean Public Property UsaContabilidad As Boolean
Public Property UsaContabilidadSIG As Boolean
Public Property UsaBancos As Boolean Public Property UsaBancos As Boolean
Public Property UsaVentas As Boolean Public Property UsaVentas As Boolean
Public Property UsaCompras As Boolean Public Property UsaCompras As Boolean

2
Bancos/PolizaCheque.aspx.vb
View File

@@ -954,7 +954,7 @@ Partial Class Bancos_PolizaCheque
Importe = Importe * TC Importe = Importe * TC
End If End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(gvr.DataKey("IDCuenta").ToEntero, UsuarioActual.CveEmpresa), -1), TipoCambio:=TC) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then
MsgError = "no se pudo insertar el detalle de la póliza2" MsgError = "no se pudo insertar el detalle de la póliza2"
End If End If

2
Bancos/ProductosFinancieros.aspx.vb
View File

@@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento) Then
ErrorTransaccion = True ErrorTransaccion = True
End If End If
End If End If

2
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -887,7 +887,7 @@ Partial Class Bancos_ProveedoresAbonar
If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
Dim ObjCreditos As New ClsBancos Dim ObjCreditos As New ClsBancos
ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then
IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
End If End If

4
Bancos/Transferencias.aspx.vb
View File

@@ -378,14 +378,14 @@ Partial Class Bancos_Transferencias
For Each row As GridViewRow In GvTC.Rows For Each row As GridViewRow In GvTC.Rows
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), UsuarioActual.CveEmpresa), -1)) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble) Then
MsgError = "Ocurrio un error al ingresar la prepoliza" MsgError = "Ocurrio un error al ingresar la prepoliza"
End If End If
Next Next
'Agregamos la contraria a bancos cuando es cuenta 'Agregamos la contraria a bancos cuando es cuenta
Else Else
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(UsuarioActual.CveEmpresa = 119, ImporteDestino, ImporteMXDestino), ImporteME:=If(CveMonedaDestino > 1, TxtImporte.Text.ToDouble * TC, 0), CveCuenta:=CveCuentaDestino) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(UsuarioActual.CveEmpresa = 119, ImporteDestino, ImporteMXDestino), ImporteME:=If(CveMonedaDestino > 1, TxtImporte.Text.ToDouble * TC, 0)) Then
MsgError = "Ocurrio un error al ingresar la prepoliza" MsgError = "Ocurrio un error al ingresar la prepoliza"
End If End If