diff --git a/AF/CatTiposServiciosMateriales.aspx.cs b/AF/CatTiposServiciosMateriales.aspx.cs
index 91633b322..e5b360f3b 100644
--- a/AF/CatTiposServiciosMateriales.aspx.cs
+++ b/AF/CatTiposServiciosMateriales.aspx.cs
@@ -33,7 +33,7 @@ public partial class AF_CatTiposServiciosMateriales : ClsPaginas
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
- if (ObjAF.GetTiposServiciosMaterial(-1, -1))
+ if (ObjAF.GetTiposServiciosMaterial(-1, -1,UsuarioActual.CveEmpresa ))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
@@ -85,7 +85,7 @@ public partial class AF_CatTiposServiciosMateriales : ClsPaginas
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveTipoServicioMaterial = GvRow.DataKey("CveTipoServicioMaterial").ToEntero();
ClsAF ObjAF = new ClsAF();
- if (ObjAF.DeleteTiposServiciosMaterial(CveTipoServicioMaterial))
+ if (ObjAF.DeleteTiposServiciosMaterial(CveTipoServicioMaterial,UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx
index 9fe1ff8df..67f945d0f 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx
@@ -14,7 +14,7 @@
-
+
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 4043c344f..8e389cde6 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -9,6 +9,7 @@ Partial Class Acumuladores_RepEntradasUsados
Private DiasSemana(7) As String
Private Meses(12) As String
+ Private Cargado As Integer = 0
Private Property DatosEntradasUsados() As DataTable
Get
@@ -25,8 +26,6 @@ Partial Class Acumuladores_RepEntradasUsados
txtFechaF.Text = Today
CargarDatos()
CargarCombos()
-
-
End If
End Sub
@@ -36,14 +35,18 @@ Partial Class Acumuladores_RepEntradasUsados
End Sub
Protected Sub CargarCombos()
- Dim ObjAcum As New ClsAcumuladores
Dim fecha As Date = Date.Now.AddMonths(-1)
- ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa)
- DdlAño.DataSource = ObjAcum.DtResultados
- DdlAño.DataBind()
- DdlAño.SelectedValue = fecha.Year.ToEntero
- ObjAcum.Dispose()
+ Dim Años As New ListItem
+ Dim i As Integer
+ If Cargado = 0 Then
+ For i = Date.Now.Year.ToEntero To (fecha.Year.ToEntero - 5) Step -1
+ Años = New ListItem(i, i)
+ DdlAño.Items.Add(Años)
+ Next
+ End If
+ Cargado = 1
+ DdlAño.SelectedValue = fecha.Year.ToEntero
DdlMes.SelectedValue = fecha.Month.ToEntero
End Sub
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index a2dd036e1..7b495acc8 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -16,7 +16,7 @@
-
+
@@ -39,7 +39,7 @@
-
Almacen:
+
Almacén:
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index be1ec4b01..940bf0817 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1206,20 +1206,6 @@ Public Class ClsAcumuladores
Return Retorno
End Function
- Public Function GetAñosVentas(CveEmprea As Integer) As Boolean
- Dim Retorno As Boolean = False
- SqlDataAdapter(String.Format("select top 6 year(Fecha) as Año from Ventas where CveEmpresa = {0} group by year(Fecha) Order by year(Fecha) desc", CveEmprea.ToString), CommandType.Text)
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError(String.Format("Ocurrió un error al consultar los año de venta"), ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
- Return Retorno
-
- End Function
-
#Region " IDisposable Support "
' IDisposable
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index ccf45d815..10b6cbae5 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -1065,11 +1065,11 @@ Public Class ClsContPAQi
StrSQL.Clear()
StrSQL.AppendLine(" SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED; ")
StrSQL.AppendLine(" ")
- StrSQL.AppendLine(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ")
+ StrSQL.AppendLine(" SELECT mp.id, mp.IdPoliza, mp.NumMovto, mp.IdCuenta , mp.IdCuenta as CveCuenta, c.CODIGO, c.NOMBRE as Cuenta , c.NOMBRE as NombreCuenta , T.Codigo as CodigoTipoPoliza, T.Nombre AS TipoPoliza, mp.Folio, mp.Folio as Numero, mp.Importe, mp.Concepto, mp.Referencia, mp.SIGReferencia, mp.Fecha, mp.IdSegNeg, p.IdUsuario, s.Nombre AS SegNeg, p.Fecha AS FechaPol, p.Cargos, p.Abonos, p.Concepto AS ConceptoPoliza, ")
StrSQL.AppendLine(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014
StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ")
StrSQL.AppendLine(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ")
- StrSQL.AppendLine(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ")
+ StrSQL.AppendLine(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CodigoCuenta, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro, MAX(U.Nombre) AS NombreUsuario ")
StrSQL.AppendLine(" FROM MovimientosPoliza mp ")
StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ")
StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ")
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4956aa129..23f649d54 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1604,7 +1604,7 @@ Public Class ClsContabilidad
#End Region
- Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean
+ Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_CuentasConceptosGet")
With SqlAdapter.SelectCommand.Parameters
@@ -1614,6 +1614,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
End With
Try
SqlAdapter.Fill(Data)
@@ -5722,15 +5723,16 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
- Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
- Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+ Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
+ Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -5739,6 +5741,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
End With
Try
@@ -5773,7 +5776,7 @@ Public Class ClsContabilidad
Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
- Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5789,6 +5792,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
End With
Try
@@ -5921,7 +5925,7 @@ Public Class ClsContabilidad
Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
- Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
+ Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveTipoProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasImpresionGet")
@@ -5937,14 +5941,14 @@ Public Class ClsContabilidad
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
- .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Me.OnError("Ocurrió un error al obtener impresión pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index d19cb9541..6ef6a9114 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -3137,6 +3137,24 @@ Public Class ClsGPS
Return Retorno
End Function
+ Public Function ReporteUnidadesnoTransmitenGet(NoHoras As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1, Optional TipoDispositivo As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_GPS_ReporteUnidadesnoTransmitenGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@NoHoras", SqlDbType.Int).Value = NoHoras
+ .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@TipoDispositivo", SqlDbType.Int).Value = TipoDispositivo
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los dispositivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
Public Function DispositivosGet(CveDispositivo As Integer, CveEstatus As Integer, CveCliente As Integer, Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_GPS_DispositivosGet")
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index c4c0b3881..52fd6dc07 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1628,7 +1628,7 @@ Public Class ClsInventarios
End Function
- Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean
+ Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1639,6 +1639,8 @@ Public Class ClsInventarios
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 75a06a6fe..133cb56e1 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2031,6 +2031,28 @@ Public Class ClsNominas
End With
+ SqlAdapter.Fill(DTSet)
+ retorno = True
+ Catch sqEx As SqlException
+ retorno = False
+ OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ retorno = False
+ OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function GetCalculoSBC(CveEmpresa As Integer, FechaCalculo As String) As Boolean
+ Dim retorno As Boolean = False
+ Try
+ DTSet = New DataSet()
+ DataAdapter("PA_GetCalculoSBC", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
+ End With
+
SqlAdapter.Fill(DTSet)
retorno = True
Catch sqEx As SqlException
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b4557e050..148b96b30 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3816,10 +3816,13 @@ Public Class ClsPaginas
If Application("GlobalSIGAppPaginas") Is Nothing Then
PaginaDict = New System.Collections.Hashtable
- PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), -1)
+ PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
+ PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)
PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719)
+ PaginaDict.Add("/GPS/ReporteUnidadesnoTransmiten.aspx".ToUpper(), 917)
+
PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), 718)
PaginaDict.Add("/Ventas/RepConciliacionEmitidosSat.aspx".ToUpper(), -1)
PaginaDict.Add("/Ventas/RepConciliacionSat.aspx".ToUpper(), 716)
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 8afea1057..0a9d5aca9 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1409,6 +1409,30 @@ Public Class ClsProductosServicios
Return Retorno
End Function
+
+ Public Function UpdateAplicaLoteCaducidadAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaLoteAlmacen As Boolean, AplicaCaducidadAlmacen As Boolean) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_ProductosServiciosLoteCaducidadAlmacenUpdate")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@AplicaLoteAlmacen", SqlDbType.Bit).Value = AplicaLoteAlmacen
+ .Add("@AplicaCaducidadAlmacen", SqlDbType.Bit).Value = AplicaCaducidadAlmacen
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar aplicar lote/caducidad almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
Public Function GetMarcas(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_MarcasGet")
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 6179fc9e4..bf3376cf6 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2158,7 +2158,7 @@ Public Class ClsVentas
#End Region
#Region " PROMOCIONES DETALLE "
- Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+ Public Function GetPromocionesPS(CvePS As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveCliente As Integer, CveVendedor As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PromocionesPSGet")
@@ -2168,6 +2168,7 @@ Public Class ClsVentas
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb
index eec8c4022..e445ab25d 100644
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -3,7 +3,7 @@ Option Strict On
Public Class Empresa
-
+ Public Property GralSoloProyecto As Boolean
Public Property CveEmpresa As Integer
Public Property Empresa As String
Public Property NombreCorto As String
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index e378f3aae..61f35a5e7 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -256,7 +256,7 @@ Public Class LogicNominas
'subsidio al empleo
If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
- .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
+ .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal, .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()})
End If
Next
End If
@@ -286,7 +286,7 @@ Public Class LogicNominas
'subsidio al empleo
If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
- .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
+ .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal(), .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()})
End If
Next
End If
@@ -300,7 +300,13 @@ Public Class LogicNominas
If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
- .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()}
+ .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("Importe").ToString().ToDecimal().Abs()}
+ If Row("SATCveConcepto").ToString().ToEntero() = 4 Then
+ otrp.ejercicio = DateTime.Now.Year - 1
+ otrp.SaldoAFavor = Row("ImporteValor").ToString().ToDecimal().Abs()
+ otrp.RemanenteSalFav = Row("ImporteValor").ToString().ToDecimal().Abs() - Row("Importe").ToString().ToDecimal().Abs()
+ End If
+
ObjOtrosPagos.Add(otrp)
@@ -316,6 +322,13 @@ Public Class LogicNominas
Next
End If
+ If CveRegimenContratacion.ToEntero() = 2 AndAlso ((ObjOtrosPagos.FirstOrDefault(Function(m) m.TipoOtroPago.ToEntero().Contiene(2, 7, 8))) Is Nothing) Then
+
+ ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
+ .Clave = "D051", .Concepto = "Subs al Empleo acreditado", .Importe = 0D, .Subsidiocausado = 0D})
+
+ End If
+
If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones
If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras
If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 05ee89800..d9dd46a07 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -526,7 +526,7 @@ Namespace Modelos
Dim ObjVentas As New ClsVentas
'CARGA PROMOCIONES
- If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, Me.CveEmpresa) Then
+ If ObjVentas.GetPromocionesPS(-1, Me.Fecha, Me.CveSubProyecto, CveCliente, Me.CveVendedor, 1, Me.CveEmpresa) Then
Me.DtPromociones = ObjVentas.DtResultados.Copy()
End If
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 94768effd..9a18a5716 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -961,6 +961,8 @@ Namespace Extensiones
Retorno = ""
End If
+ Retorno = UCase(Mid(Retorno, 1, 1)) + Mid(Retorno, 2, Len(Retorno))
+
Return Retorno
End Function
diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx
index eb3f2fa7d..cf37bb840 100644
--- a/Ashx/SIGFacturacion.ashx
+++ b/Ashx/SIGFacturacion.ashx
@@ -362,14 +362,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
- ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+ 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
- If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
- ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
- Else
- ObjFactura.CveMetodoPago = 1
- ObjFactura.MetodoPago = "Efectivo"
- End If
+ 'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
+ ' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+ 'Else
+ ' ObjFactura.CveMetodoPago = 1
+ ' ObjFactura.MetodoPago = "Efectivo"
+ 'End If
End If
End If
If ObjCliente.GetSucursales(CveCliente) Then
diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx
index efa477a6f..35541349c 100644
--- a/Ashx/SIGFacturacionCiclica.ashx
+++ b/Ashx/SIGFacturacionCiclica.ashx
@@ -425,14 +425,14 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
- ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+ 'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
- If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
- ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
- Else
- ObjFactura.CveMetodoPago = 1
- ObjFactura.MetodoPago = "Efectivo"
- End If
+ 'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
+ ' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
+ 'Else
+ ' ObjFactura.CveMetodoPago = 1
+ ' ObjFactura.MetodoPago = "Efectivo"
+ 'End If
End If
End If
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 65a91d93d..acc3565c3 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -433,7 +433,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
}
// OTROS INGRESOS
- if (gvr.FCTextBox("TxtComision").Text.ToDecimal() > 0)
+ if (gvr.FCTextBox("TxtComision").Text.ToDecimal() != 0)
{
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovoDevolucion, gvr.FCTextBox("TxtComision").Text.ToDecimal(), Ref, 78, Conc, DateTime.Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: gvr.FCTextBox("TxtComision").Text.ToDecimal(), CveIEDevolucion: CveIE))
{
diff --git a/Bancos/PopIE.aspx.vb b/Bancos/PopIE.aspx.vb
index a81c67acb..a85cde6f2 100644
--- a/Bancos/PopIE.aspx.vb
+++ b/Bancos/PopIE.aspx.vb
@@ -363,4 +363,44 @@ Partial Class Bancos_PopIE
End If
End If
End Sub
+
+ Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub CVImporteDolares_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub CVImportePesos_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarPesosDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub ChkPagarDolaresDeudores_CheckedChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub CvImporteDolaresDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
+
+ Protected Sub CveImportePesosDeudores_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+ End Sub
End Class
\ No newline at end of file
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index a2726b647..79a889d74 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1386,11 +1386,25 @@ Partial Class Bancos_PopIECompras
#End Region
#Region "G U A R D A R"
- Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
-
-
- If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
- Alert($"La fecha de compra no puede ser mayor que la fecha de pago Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia)
+ Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
+
+
+
+
+ Dim FechaFactura As Date = FechaCompra
+ Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
+
+ Dim AnioFactura As Integer = FechaFactura.Year
+ Dim MesFactura As Integer = FechaFactura.Month
+
+ Dim AnioDocumento As Integer = FechaDocumentoPago.Year
+ Dim MesDocumento As Integer = FechaDocumentoPago.Month
+
+ If AnioFactura > AnioDocumento Then
+ Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+ Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 07c87b1ed..f9d599287 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1390,12 +1390,25 @@ Partial Class Bancos_PopIEVentas
- If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
- Alert($"La fecha de venta no puede ser mayor que la fecha de pago Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+ Dim FechaFactura As Date = FechaVenta
+ Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
+
+ Dim AnioFactura As Integer = FechaFactura.Year
+ Dim MesFactura As Integer = FechaFactura.Month
+
+ Dim AnioDocumento As Integer = FechaDocumentoPago.Year
+ Dim MesDocumento As Integer = FechaDocumentoPago.Month
+
+ If AnioFactura > AnioDocumento Then
+ Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+ Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
+
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If Not Page.IsValid Then
Exit Sub
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 269273ba0..3195700e1 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -716,13 +716,27 @@ Partial Class Bancos_ProveedoresAbonar
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
- FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: ")
+ FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: ")
For Each gvRowVal As GridViewRow In GvCxP.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
- If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then
- FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } ")
+
+
+ Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+ Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+
+ Dim AnioFactura As Integer = FechaFactura.Year
+ Dim MesFactura As Integer = FechaFactura.Month
+
+ Dim AnioDocumento As Integer = FechaDocumento.Year
+ Dim MesDocumento As Integer = FechaDocumento.Month
+
+ If AnioFactura > AnioDocumento Then
+ FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } ")
+ ValFechaDocumento = True
+ ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+ FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } ")
ValFechaDocumento = True
End If
@@ -735,6 +749,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
+
If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
Exit Sub
diff --git a/Bancos/RepComprobaciones.aspx.cs b/Bancos/RepComprobaciones.aspx.cs
index 8c167511a..ba1cc8cb2 100644
--- a/Bancos/RepComprobaciones.aspx.cs
+++ b/Bancos/RepComprobaciones.aspx.cs
@@ -61,7 +61,7 @@ public partial class Bancos_RepComprobaciones : ClsPaginas
}
protected void CargaCuentas()
{
- DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
+ DdlCuentas.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Banco = 'Empresa'");
DdlCuentas.DataBind();
DdlCuentas.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCuentas.SelectedValue = "-1";
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index 99b914bed..9d3ad6219 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -160,7 +160,7 @@ Partial Class Bancos_RepProgramarRecursos
Opcion = IfNull(Request("Op"), "-1").ToString
- If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
+ If True Then 'UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
TdProyecto.Visible = False
TdSubProyectoTitulo.Visible = False
Dim script As String = "Sys.Application.add_load(function (s, e) { $('#tsubprocto').slideDown(200); $('#subproyecto').before($('#dropsubproyecto')); });"
diff --git a/Compras/CatTipoGasto.aspx.cs b/Compras/CatTipoGasto.aspx.cs
index a30f0486c..1d1c7500f 100644
--- a/Compras/CatTipoGasto.aspx.cs
+++ b/Compras/CatTipoGasto.aspx.cs
@@ -46,7 +46,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
ClsCompras ObjCompras = new ClsCompras();
if (ObjCompras.GetTipoGasto(-1, -1))
{
- set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
+ set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados);
}
ObjCompras.Dispose();
}
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6bd0ab547..0809c0dc4 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3987,21 +3987,10 @@ Partial Class Compras_Compras
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
+
+ AjustaCombustibles()
+
'------------------INICIA VALIDACIONES------------------
-
- Dim TempIva As Decimal
- For Each drowv As DataRow In TmpDT.Rows
- TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
- Next
-
- Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
-
- If Math.Abs(DifGenelraIvas) > 0.2 Then
- Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
-
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
@@ -6508,7 +6497,7 @@ Partial Class Compras_Compras
End If
Case 6 'Compra
- Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+ Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -6836,8 +6825,8 @@ Partial Class Compras_Compras
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
- If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
+
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
@@ -7063,7 +7052,7 @@ Partial Class Compras_Compras
End If
Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
- Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
+ Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
If tipoCambioActual <> 1 Then
Select Case ConceptoContable
Case 5
@@ -8540,6 +8529,61 @@ Partial Class Compras_Compras
End If
End Sub
+
+ Private Sub AjustaCombustibles()
+
+
+ If Not TmpDT.Columns.Contains("AplicaIEPS") Then
+ TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
+ End If
+
+ If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
+ TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
+ End If
+
+ For Each dRow As DataRow In TmpDT.Rows
+ If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
+ Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
+ dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
+ dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
+ Else
+ dRow("AplicaIEPS") = False
+ dRow("IEPSGrabaIVA") = False
+ End If
+ Next
+
+ Dim DTConsulta As New DataTable
+ DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ")
+
+ If DTConsulta.Rows.Count > 0 Then
+
+ Dim IndiceContador As Integer = 0
+ Dim IndiceUltimo As Integer = 0
+
+ For Each dRow As DataRow In TmpDT.Rows
+
+ If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
+ IndiceUltimo = IndiceContador
+ End If
+
+ IndiceContador = IndiceContador + 1
+
+ Next
+
+
+ Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
+ Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
+
+ If Math.Abs(DiferenciaIVas) > 0.01D Then
+ TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
+ TmpDT.AcceptChanges()
+ End If
+
+ End If
+
+
+ End Sub
+
Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
Dim ObjProveedores As New ClsCompProveedores()
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index d0c99d4d9..25346b21c 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -852,11 +852,11 @@ Partial Class Compras_Proveedores
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
- If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
- Else
+ ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
divCuentas.Visible = False
divCuentasContp.Visible = True
End If
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs
index 0de7863ff..d2faa08d1 100644
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -129,7 +129,7 @@ public partial class Compras_RepPagado : ClsPaginas
DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0)
{
- DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+ DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
}
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind();
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs
index d1ff01d33..7de9ab3b3 100644
--- a/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -137,7 +137,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
DdlCuentaBancaria.Items.Clear();
if (DdlBanco.SelectedValue.ToEntero() > 0)
{
- DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa:= UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
+ DdlCuentaBancaria.DataSource = get_GlobalDTBancosCuentas(-1, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero()}");
}
DdlCuentaBancaria.Items.Insert(0, new ListItem("Todos", "-1"));
DdlCuentaBancaria.DataBind();
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index 7450186f7..d597518c4 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -49,8 +49,8 @@ Partial Class Contabilidad_PolizasImpresion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
- params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
- params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+ params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index c711b21bb..6e2809470 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index 1f9f6f9d5..40341986f 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas
CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
+ If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+ DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+ ObjContaEmpresa.Dispose()
+ ObjConta.Dispose()
+ Exit Sub
+ End If
+ End If
+
Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
@@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas
updatos.Update()
Alert("La cuenta se guardo correctamente")
+
End If
Else
Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 768a1edda..f326424ab 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -24,7 +24,7 @@
@@ -106,6 +106,10 @@
+
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 6470747bb..ebbef86ba 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -31,6 +31,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End Sub
Private Sub CargaDatosModal()
+
+ DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
+ DdlConceptoNomina.DataBind()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetConta_ConceptosContables() Then
@@ -60,6 +63,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlClasificacion.DataBind()
DdlAlmacen.DataBind()
+ DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -72,6 +76,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+ DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
@@ -123,6 +128,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlProveedor.SelectedValue = -1
DdlClasificacion.SelectedValue = -1
DdlAlmacen.SelectedValue = -1
+ DdlConceptoNomina.SelectedValue = -1
TxtIdCuentaContable.Text = ""
TxtPorcentajeIVA.Text = ""
DdlClientes.ddl.DataSource = ""
@@ -140,16 +146,16 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Dim ObjConta As New ClsContabilidad
Dim ErrorString As String = ""
If LbAgregar.Text = "Agregar" Then
- If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+ If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
- ErrorString = "Error al Agregar"
+ ErrorString = "Error al agregar"
End If
ElseIf LbAgregar.Text = "Actualizar" Then
If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
- ErrorString = "Error al Actualizar"
+ ErrorString = "Error al actualizar"
End If
End If
ObjConta.Dispose()
diff --git a/Contabilidad2/PolizasImpresion.aspx.vb b/Contabilidad2/PolizasImpresion.aspx.vb
index 992887fb8..6b89745ae 100644
--- a/Contabilidad2/PolizasImpresion.aspx.vb
+++ b/Contabilidad2/PolizasImpresion.aspx.vb
@@ -42,7 +42,7 @@ Partial Class Contabilidad2_PolizasImpresion
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
- CveProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
+ CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
If ObjConta.DtResultados.Rows.Count < 10000 Then
If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -51,8 +51,8 @@ Partial Class Contabilidad2_PolizasImpresion
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
- params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
- params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
+ params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 62c309b16..680266bcf 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
+ End If
+
Dim ErrorParametros = True
DtDatos = Nothing
CargaTipoCuentas()
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
index e2ab70cc6..d8c74441f 100644
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -270,19 +270,19 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End If
End Sub
- Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
- If Not IsNothing(DtDatos) Then
- ImprimirReporte()
- End If
- End Sub
+ 'Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+ ' If Not IsNothing(DtDatos) Then
+ ' ImprimirReporte()
+ ' End If
+ 'End Sub
- Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
- If Not IsNothing(DtDatos) Then
- ImprimirReporte("Excel")
- 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
- 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
- End If
- End Sub
+ 'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ ' If Not IsNothing(DtDatos) Then
+ ' ImprimirReporte("Excel")
+ ' 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+ ' 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+ ' End If
+ 'End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
'ubicacion del rdlc
Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
diff --git a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
index d0582aa0c..c159f53cf 100644
--- a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
Private Sub CargaDatos()
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
+ If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12, UsuarioActual.CveUsuario) Then
Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
GvCC.DataSource = Conta.DSResultados.Tables(1)
diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb b/Contabilidad2/RepBalanceGeneral.aspx.vb
index 6bd9126a9..c65a7af4f 100644
--- a/Contabilidad2/RepBalanceGeneral.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneral.aspx.vb
@@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx")
+ End If
+
'If UsuarioActual.Empresa.UsaAC Then
' TipoReporte = -1
'Else
diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
index f02d4a6a7..525bea3b5 100644
--- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
@@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
+ End If
+
Dim ErrorParametros = True
ModoImpresion = False
TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb
index 04957a446..87b1df7e3 100644
--- a/Contabilidad2/RepEstadoResultados.aspx.vb
+++ b/Contabilidad2/RepEstadoResultados.aspx.vb
@@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx")
+ End If
+
'tdTipoReporte.Visible = True
TipoReporte = 1
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
index 77d5c0459..520d31421 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
+ End If
+
Dim ErrorParametros = True
CargaTipoCuentas()
diff --git a/Contratos/ContratosSecciones.aspx b/Contratos/ContratosSecciones.aspx
index 0c1dcfa42..5eff363b7 100644
--- a/Contratos/ContratosSecciones.aspx
+++ b/Contratos/ContratosSecciones.aspx
@@ -1,6 +1,6 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratosSecciones.aspx.vb" Inherits="Contratos_ContratosSecciones" %>
-<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>
+<%--<%@ Register Assembly="AspMapNET" Namespace="AspMap.Web" TagPrefix="cc1" %>--%>
@@ -13,7 +13,7 @@
-
+ <%--