-- se elminó usacontabilidadSIG

AF/AF.aspx.vb

@@ -2568,9 +2568,6 @@ Partial Class AF_AF
 
                     End If
 
-
-
-
                 End If
 
             End If
@@ -2581,7 +2578,7 @@ Partial Class AF_AF
                 'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
                 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)
-                    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 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

App_Code/ClsPaginas.vb

@@ -1268,21 +1268,12 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable
         Get
             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
                 Dim ObjProyectos As New ClsProyectos
                 If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados
                 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
-            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)
                 GlobalDTProyectos = Dv.ToTable
                 Dv.Dispose()
@@ -1291,13 +1282,6 @@ Public Class ClsPaginas
             End If
         End Get
         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}"
             HttpContext.Current.Application(AppNombre) = value
         End Set

App_Code/ClsRH.vb

@@ -1484,7 +1484,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
     Public Property FechaBaja As Date
     Public Property CveEstatusPersonal As Integer
     Public Property IdCtaContPrestamos As Integer
-    Public Property CveCuentaPrestamos As Integer
     Public Property CtaContPrestamos As String
     Public Property TelefonoExtension As String
     Public Property CelularPersonal As String
@@ -1539,7 +1538,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
     Public Property Usuario As String
     Public Property CveEmpresa As Integer
     Public Property IdCtaContPersonal As Integer
-    Public Property CveCuentaPersonal As Integer
     Public Property CtaContPersonal As String
     Public Property CvePersonalPadre As Integer
 
@@ -1700,10 +1698,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                 Me.Jornada = Data.Rows(0)("Jornada").ToString
                 Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                 IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
-                CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
                 CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
                 IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
-                CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
                 CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString
                 CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").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.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                 IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
-                CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
                 CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
                 IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
-                CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
                 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
 
-
             End If
             Retorno = True
         Catch ex As SqlException

App_Code/ClsSisEmpresas.vb

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

App_Code/Empresa.vb

@@ -69,7 +69,6 @@ Public Class Empresa
     Public Property EstatusFacturacion As Boolean
     Public Property Estatus As Boolean
     Public Property UsaContabilidad As Boolean
-    Public Property UsaContabilidadSIG As Boolean
     Public Property UsaBancos As Boolean
     Public Property UsaVentas As Boolean
     Public Property UsaCompras As Boolean

Bancos/PolizaCheque.aspx.vb

@@ -954,7 +954,7 @@ Partial Class Bancos_PolizaCheque
                                                 Importe = Importe * TC
                                             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"
                                             End If
 

Bancos/ProductosFinancieros.aspx.vb

@@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros
                             idCuentaContabilizacion = 0
                         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
                         End If
                     End If

Bancos/ProveedoresAbonar.aspx.vb

@@ -887,7 +887,7 @@ Partial Class Bancos_ProveedoresAbonar
                         If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
                             Dim ObjCreditos As New ClsBancos
                             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
                             End If
 

Bancos/Transferencias.aspx.vb

@@ -378,14 +378,14 @@ Partial Class Bancos_Transferencias
 
                             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"
                                 End If
                             Next
 
                             'Agregamos la contraria a bancos cuando es cuenta
                         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"
                             End If