-- se elminó usacontabilidadSIG
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
'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}")
|
||||
If Estatus <> -1 Then
|
||||
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
|
||||
|
||||
@@ -1483,8 +1483,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
|
||||
Public Property CveMotivoBaja As Integer
|
||||
Public Property FechaBaja As Date
|
||||
Public Property CveEstatusPersonal As Integer
|
||||
Public Property IdCtaContPrestamos As Integer
|
||||
Public Property CveCuentaPrestamos As Integer
|
||||
Public Property IdCtaContPrestamos As Integer
|
||||
Public Property CtaContPrestamos As String
|
||||
Public Property TelefonoExtension 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 Usuario As String
|
||||
Public Property CveEmpresa As Integer
|
||||
Public Property IdCtaContPersonal As Integer
|
||||
Public Property CveCuentaPersonal As Integer
|
||||
Public Property IdCtaContPersonal 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
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -68,8 +68,7 @@ Public Class Empresa
|
||||
Public Property RegimenFiscal As String
|
||||
Public Property EstatusFacturacion As Boolean
|
||||
Public Property Estatus As Boolean
|
||||
Public Property UsaContabilidad As Boolean
|
||||
Public Property UsaContabilidadSIG As Boolean
|
||||
Public Property UsaContabilidad As Boolean
|
||||
Public Property UsaBancos As Boolean
|
||||
Public Property UsaVentas As Boolean
|
||||
Public Property UsaCompras As Boolean
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user