diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb
index 03b7aaf75..c78d0f4e3 100644
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -38,17 +38,16 @@ Partial Class AF_RepDepreciacion
For Each RowsDt As GridViewRow In GvDatos.Rows
CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
- If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then
-
- Dim MontoDepreciacion As Double = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble
+ Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
+ If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)
If CvePrePoliza > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 101, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True
Exit For
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 51, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
ErrorMovInv = True
Exit For
End If
diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb
index 3e71a5f47..0f204a538 100644
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombos()
- Dim ObjPS As New ClsProductosServicios
+ 'Dim ObjPS As New ClsProductosServicios
- If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
- DdlMarca.DataSource = ObjPS.DtResultados
- DdlMarca.DataBind()
- DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlMarca.SelectedValue = "-1"
- End If
- ObjPS.Dispose()
+ 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+ ' DdlMarca.DataSource = ObjPS.DtResultados
+ ' DdlMarca.DataBind()
+ ' DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+ ' DdlMarca.SelectedValue = "-1"
+ 'End If
+ 'ObjPS.Dispose()
+
+ DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+ DdlMarca.DataBind()
+ DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlMarca.SelectedValue = "-1"
DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombosModal()
- Dim ObjPS As New ClsProductosServicios
+ 'Dim ObjPS As New ClsProductosServicios
- If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
- DdlMarcaM.DataSource = ObjPS.DtResultados
+ 'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+ ' DdlMarcaM.DataSource = ObjPS.DtResultados
- End If
- ObjPS.Dispose()
+ 'End If
+ 'ObjPS.Dispose()
+ DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaM.DataBind()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()
diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 2fa90b6e1..14f390bd5 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -589,7 +589,7 @@ Public Class ClsClientes
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
- Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha) As Boolean
+ Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1") As Boolean
Dim Retorno As Boolean = False
@@ -737,6 +737,9 @@ Public Class ClsClientes
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
.Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito
+ .Add("@ComExtCalle", SqlDbType.VarChar).Value = ComExtCalle
+ .Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
+ .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
End With
Try
SqlAdapter.Fill(Data)
@@ -785,7 +788,7 @@ Public Class ClsClientes
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
- Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha) As Boolean
+ Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1") As Boolean
Dim Retorno As Boolean = False
@@ -949,6 +952,9 @@ Public Class ClsClientes
.Add("@RepresentanteLegal", SqlDbType.VarChar).Value = RepresentanteLegal
.Add("@FechaLimiteCredito", SqlDbType.Date).Value = FechaLimiteCredito
+ .Add("@ComExtCalle", SqlDbType.VarChar).Value = ComExtCalle
+ .Add("@ComExtNumExt", SqlDbType.VarChar).Value = ComExtNumExt
+ .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
@@ -1427,7 +1433,7 @@ Public Class ClsClientes
Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError)
End If
Catch ex As Exception
- OnError("Ocurrió un error al Actualizar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ OnError("Ocurrió un error al actualizar el giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
@@ -1448,10 +1454,10 @@ Public Class ClsClientes
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
- Alert("La Clasificación ya existe en el Catálogo.", TipoMensaje.MsgError)
+ Alert("Eñ giro ya existe en el catálogo.", TipoMensaje.MsgError)
End If
Catch ex As Exception
- OnError("Ocurrió un error al Guardar una Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ OnError("Ocurrió un error al guardar un giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
@@ -1467,7 +1473,7 @@ Public Class ClsClientes
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- OnError("Ocurrió un error al obtener las Clasificaciones de los Clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al obtener los giros de los clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
@@ -1483,7 +1489,7 @@ Public Class ClsClientes
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
- OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error eliminar el giro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index d80321677..51d7d76b3 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3378,10 +3378,10 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
- .Add("@Afectable", SqlDbType.VarChar).Value = Afectable
- .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
+ .Add("@Afectable", SqlDbType.Int).Value = Afectable
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre
- .Add("@RowNum", SqlDbType.VarChar).Value = RowNum
+ .Add("@RowNum", SqlDbType.Int).Value = RowNum
.Add("@CvePadre", SqlDbType.Int).Value = CvePadre
End With
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d72be053a..7bb89b66e 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4712,7 +4712,6 @@ Public Class ClsPaginas
PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168)
PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186)
- PaginaDict.Add("/Compras/CatAcreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303)
PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286)
PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1)
@@ -5778,11 +5777,11 @@ Public Class ClsPaginas
If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then
sw.Stop()
- 'If Not Page.IsPostBack Then
- ' Using ObjUsuario As New ClsSisUsuarios
- ' ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
- ' End Using
- 'End If
+ If Not Page.IsPostBack Then
+ Using ObjUsuario As New ClsSisUsuarios
+ ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
+ End Using
+ End If
End If
If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then
@@ -8016,7 +8015,7 @@ Public Class ClsPaginas
End If
'TEMPORAL, DEBE CAMBIARSE A FUNCIONALIDAD
- If Vta.CveEmpresa.Contiene(172, 173) Then
+ If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then
Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt"))
If ArchivoStimulsfot.Exists Then
UsarStimulsoft = True
@@ -8070,8 +8069,7 @@ Public Class ClsPaginas
RutaFormato = RutaFormato.Replace(".rdlc", ".mrt")
retorno = StreamBytesStimulsoft("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF")
- 'TEMPORAL, EMPRESAS EN LAS QUE SE UTILIZARA PRIMERO STIMULSOFT
- If Vta.CveEmpresa.Contiene(172, 173) Then
+ If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then
Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio))
If Guardar Then
If Not ArchivoPDF.Exists Then
@@ -9633,6 +9631,8 @@ Public Class ClsPaginas
Dim ImporteMN As Decimal = 0
Dim ImporteME As Decimal = 0
Dim TCValuacion As Decimal = CompraActual.TC
+ Dim TCValuacionPago As Decimal = Pago.TCPago
+ Dim tFechaUltimaFluctuacion As Date
Dim tImportePago, tImporteCompra As Decimal
Dim CveConceptoContableComplementaria As Integer = 206
@@ -9650,16 +9650,15 @@ Public Class ClsPaginas
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
Dim tFecha As Date = Pago.Fecha
+ Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
- If CompraActual.CveMoneda <> 1 OrElse Pago.CveMonedaPago <> 1 Then
- Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
-
- If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
- If UltimaFluctuacion.FechaFluctuacion <= tFecha AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then
- 'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
- TCValuacion = UltimaFluctuacion.TCFluctuacion
- End If
+ If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+ If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+ tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+ TCValuacion = UltimaFluctuacion.TCFluctuacion
End If
+ If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
+ If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
End If
If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares
@@ -9793,6 +9792,82 @@ Public Class ClsPaginas
End If
+ 'concepto pago
+ Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
+
+ If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R
+ Dim Ret As New ConceptosRetenciones
+ If Pago.CveMonedaPago > 1 Then
+ 'Agregamos la Extranjera
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+ ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+ Else
+ 'Agregamos Nacional
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+
+ End If
+
+ End If
+
+ If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O
+ Dim Ret As New ConceptosRetenciones
+ If Pago.CveMonedaPago > 1 Then
+ 'Agregamos la Extranjera
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+ ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+ Else
+ 'Agregamos Nacional
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+ End If
+
+ End If
+
+ If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O
+ Dim Ret As New ConceptosRetenciones
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+ If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+ End If
+
+ If Pago.CveMonedaPago > 1 Then
+ 'Agregamos la Extranjera
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+ ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+ Else
+ 'Agregamos Nacional
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+ End If
+ End If
+
+ 'If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R
+ ' Dim Ret As New ConceptosRetenciones
+ ' If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ ' If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+ ' If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+
+ ' End If
+
+ ' If Pago.CveMonedaPago > 1 Then
+ ' 'Agregamos la Extranjera
+ ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+ ' ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+ ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+ ' Else
+ ' 'Agregamos Nacional
+ ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+ ' End If
+ 'End If
+
If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
Dim ConceptoContable, IdCtaContable As Integer
Dim TipoMovimiento As Boolean
@@ -9844,6 +9919,7 @@ Public Class ClsPaginas
Public Property OtroGastoIngreso As Decimal = 0
Public Property CveConceptoPago As Integer = -1 'no definido de inicio
Public Property CveCreditoDetalle As Integer = -1
+ Public Property Referencia As String = ""
Public Property AplicaAcreditable As Boolean = True
End Class
@@ -9870,9 +9946,10 @@ Public Class ClsPaginas
Public Property CveConceptoRetISR As Integer
Public Property CveSubProyecto As Integer
Public Property UsuarioActual As Usuario
-
Public Property IdCtaContableProv As Integer
Public Property IdCtaContableProvComplementaria As Integer
+ Public Property IdCtaContableAnticipoProv As Integer
+ Public Property IdCtaContableAnticipoProvComplementaria As Integer
Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
Get
Dim Ret As New ConceptosRetenciones
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 2d74edb22..352595214 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -5,12 +5,12 @@ Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Public Class ClsSisUsuarios
- Implements IDisposable
-
-
+ Implements IDisposable
+
+
#Region "Campos"
-
- 'SQL
+
+ 'SQL
Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter
Private SqlTransacc As SqlTransaction
@@ -21,12 +21,12 @@ Public Class ClsSisUsuarios
Private disposedValue As Boolean = False ' Para detectar llamadas redundantes
'PARA REGISTRAR CONEXION
- Private CveConexion As Integer = 0
-
+ Private CveConexion As Integer = 0
+
#End Region
-
+
#Region "Propiedades"
-
+
Public ReadOnly Property DtResultados() As DataTable
Get
DtResultados = Data
@@ -60,9 +60,9 @@ Public Class ClsSisUsuarios
Public Property CveSubProyecto As Integer
Public Property AsignarAutomaticamenteSubProyecto As Boolean
Public Property AsignarAutomaticamenteOC As Boolean
- Public Property DescuentoAutorizado As Double
+ Public Property DescuentoAutorizado As Double
#End Region
-
+
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
If TransaccionCompartida Is Nothing Then
@@ -90,9 +90,9 @@ Public Class ClsSisUsuarios
End With
If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
Data = New DataTable
- End Sub
+ End Sub
#Region "Conexiones"
-
+
Private Sub ConexionAdd()
If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
@@ -127,7 +127,7 @@ Public Class ClsSisUsuarios
End If
- End Sub
+ End Sub
#End Region
Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
With SqlCommand
@@ -237,9 +237,9 @@ Public Class ClsSisUsuarios
'*
Retorno.NombreAbreviatura = Data.Rows(0)("NombreAbreviatura").ToString()
- Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble()
-
- Retorno.PorcentajeMaximoAutorizacion = Data.Rows(0)("PorcentajeMaximoAutorizacion").ToString().ToDecimal()
+ Retorno.DescuentoAutorizado = Data.Rows(0)("DescuentoAutorizado").ToString().ToDouble()
+
+ Retorno.PorcentajeMaximoAutorizacion = Data.Rows(0)("PorcentajeMaximoAutorizacion").ToString().ToDecimal()
Retorno.DiasMaximoAutorizacion = Data.Rows(0)("DiasMaximoAutorizacion").ToString().ToEntero()
Retorno.CodigoAutorizado = Data.Rows(0)("CodigoAutorizado").ToString()
@@ -415,8 +415,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
Public Function ValidaUsuarioCodigoAcceso(CodigoAcceso As String, CveEmpresa As Integer) As Integer
Dim Retorno As Integer = Nothing
@@ -429,7 +429,7 @@ Public Class ClsSisUsuarios
Try
SqlAdapter.Fill(Data)
- If Data.Rows.Count > 0 Then
+ If Data.Rows.Count > 0 Then
Retorno = Data.Rows(0)("CveUsuario").ToString.ToEntero
End If
@@ -439,7 +439,7 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
@@ -467,7 +467,7 @@ Public Class ClsSisUsuarios
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveCliente = CveCliente
- Retorno.ClienteGPS = False
+ Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
@@ -495,8 +495,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
@@ -524,7 +524,7 @@ Public Class ClsSisUsuarios
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
Retorno.CveProveedor = CveProveedor
- Retorno.ClienteGPS = False
+ Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
@@ -553,9 +553,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
-
+ End Function
+
+
#Region "U S U A R I O - I N D I C A D O R E S"
Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
@@ -576,9 +576,9 @@ Public Class ClsSisUsuarios
Return dTable
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O - E M P R E S A S "
Public Function AddUsuariosEmpresas(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -716,9 +716,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O S"
Public Function GetUsuarios(CveUsuario As Integer, Optional CveRol As Integer = -1, Optional CveUsuarioControlado As Integer = -1, Optional Estatus As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -731,9 +731,9 @@ Public Class ClsSisUsuarios
.Add("@Usuario", SqlDbType.VarChar).Value = "-1"
.Add("@Contraseña", SqlDbType.VarChar).Value = "-1"
.Add("@EsLogIn", SqlDbType.Bit).Value = 0
- .Add("@Estatus", SqlDbType.Int).Value = Estatus
-
-
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+
End With
Try
@@ -825,7 +825,7 @@ Public Class ClsSisUsuarios
Public Function AddUsuario(Usuario As String, Contraseña As String, Nombre As String, CveRol As Integer, Correo As String,
CvePersonal As Integer, CveVendedor As Integer, CambiarContraseña As Boolean,
CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
- Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
+ Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Integer
Dim Retorno = -1
DataAdapter("PA_Sis_UsuarioAdd")
@@ -848,10 +848,10 @@ Public Class ClsSisUsuarios
.Add("@DescuentoAutorizado", SqlDbType.Float).Value = DescuentoAutorizado
.Add("@CodigoAcceso", SqlDbType.VarChar).Value = CodigoAcceso
.Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
- .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
+ .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
.Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
- .Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
+ .Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
@@ -970,8 +970,8 @@ Public Class ClsSisUsuarios
.Add("@AsignarOC", SqlDbType.Bit).Value = AsignarOC
.Add("@DescuentoAutorizado", SqlDbType.Float).Value = DescuentoAutorizado
.Add("@CodigoAcceso", SqlDbType.VarChar).Value = CodigoAcceso
- .Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
- .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
+ .Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
+ .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
.Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
End With
@@ -1061,16 +1061,18 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "B I T A C O R A D E U S A R I O S"
- Public Function GetBitacora(CveUsuario As Integer) As Boolean
+ Public Function GetBitacora(CveUsuario As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosBitacoraGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@FechaI", SqlDbType.DateTime).Value = FechaI
+ .Add("@FechaF", SqlDbType.DateTime).Value = FechaF
End With
Try
@@ -1105,14 +1107,14 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "R O L E S"
-
- '''
- ''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario
- '''
+
+ '''
+ ''' Consulta para generar las opciones del MENU, Modulos que tiene un ususario
+ '''
Public Function GetUsuariosRolesModulos(ByVal pCveUsuario As Integer, CveEmpresa As Integer) As DataTable
DataAdapter("PA_Sis_UsuariosRolesModulosGet")
@@ -1144,9 +1146,9 @@ Public Class ClsSisUsuarios
End Try
Return Data
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O S - M O D U L O S"
Public Function GetUsuariosModulos(CveUsuario As Integer, CveEmpresa As Integer, Optional CveUsuarioActual As Integer = -1, Optional CvePlataforma As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -1235,9 +1237,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O S - D I S P O S I T I V O S"
Public Function UpdateUsuariosDispositivos(CveUsuario As Integer, CveDispositivo As Integer, Permitir As Boolean) As Boolean
Dim Retorno As Boolean = False
@@ -1262,9 +1264,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O S - C O M A N D O S"
Public Function UpdateUsuariosComandos(CveUsuario As Integer, CveUsuarioAsigno As Integer, CveComando As Integer, Permitir As Boolean, EsFavorito As Boolean) As Boolean
Dim Retorno As Boolean = False
@@ -1291,10 +1293,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
-
+
+
#Region "U S U A R I O S - P R O C E S O S "
Public Function GetUsuariosProcesos(CveUsuario As Integer, Optional CveUsuarioActual As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -1382,11 +1384,11 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "U S U A R I O S - P O R T AL "
-
+
Public Function GetUsuariosPortal(pCveUsuarioPortal As Integer, pCveCliente As Integer, pCveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -1488,12 +1490,12 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
-
+ End Function
+
+
#End Region
-
-
+
+
#Region " S U B - P R O Y E C T O S "
Public Function GetSubProyectos(CveUsuario As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -1576,10 +1578,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " E S T A T U S O C "
Public Function GetEstatusOC(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -1656,8 +1658,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
#Region "C L A S I F I C A C I O N E S"
Public Function AddUsuariosClasificaciones(CveUsuario As Integer, CveClasificacion As Integer, CveUsuarioIng As Integer, CveUsuarioModifico As Integer) As Boolean
@@ -1721,8 +1723,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
#Region " A L M A C E N "
Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
@@ -1805,9 +1807,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean
Dim Retorno As Boolean = False
dtMenu.TableName = "UsuariosModulos"
@@ -1836,10 +1838,10 @@ Public Class ClsSisUsuarios
Return Retorno
- End Function
-
-
-
+ End Function
+
+
+
#Region " CLONAR USUARIOS "
Public Function ClonarUsuario(CveUsuario As Integer, CveUsuarioClonado As Integer, UsuariosEmpresas As Boolean, UsuariosModulos As Boolean, UsuariosProcesos As Boolean, UsuariosSubProyectos As Boolean, UsuariosAlmacenes As Boolean, UsuariosOC As Boolean, UsuariosOS As Boolean) As Boolean
Dim Retorno As Boolean = False
@@ -1884,12 +1886,12 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
-
+
+
#Region " RESTRICCIONES ACCESO "
-
+
Public Function UsuariosRestriccionesAccesoAdd(CveUsuario As Integer, IP As String, MAC As String, HI1 As String, HF1 As String, HI2 As String, HF2 As String, HI3 As String, HF3 As String, HI4 As String, HF4 As String, HI5 As String, HF5 As String, HI6 As String, HF6 As String, HI7 As String, HF7 As String, Optional CveUsuarioModifico As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -2016,10 +2018,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
-
+
+
#Region "ACTUALIZAR USUARIO RESPONSABLE MASIVAMENTE"
Public Function UpdateUsuarioResponsableMasivo(CveUsuario As Integer, CveUsuarioResponsable As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2035,13 +2037,13 @@ Public Class ClsSisUsuarios
OnError("Ocurrio un error al actualizar el Usuario Responsable.", ex)
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
-
+
+
#Region " ASIGNAR "
-
+
#Region " ALMACEN ASIGNAR "
Public Function GetAlmacenAsignar(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2098,9 +2100,9 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region " SUBPROYECTOS ASIGNAR "
Public Function GetSubProyectosAsignar(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2157,10 +2159,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " CUENTAS BANCARIAS "
Public Function GetCuentasBancariasAsignar(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2217,10 +2219,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " MODULOS "
Public Function GetModulosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2278,10 +2280,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " PERMISOS "
Public Function GetPermisosAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2338,10 +2340,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " EMPRESAS "
Public Function GetEmpresasAsignar(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2398,10 +2400,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " ROLES "
Public Function GetRolesAsignar(CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2458,10 +2460,10 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region " PERMISOS "
Public Function GetIndicadoresAsignar(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2518,12 +2520,12 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#End Region
-
+
Public Function GetClienteGPSRolesModulos(ByVal pCveUsuario As Integer, CveCliente As Integer) As DataTable
DataAdapter("PA_Sis_ClienteGPSRolesModulosGet")
@@ -2539,11 +2541,11 @@ Public Class ClsSisUsuarios
End Try
Return Data
- End Function
-
-
+ End Function
+
+
#Region "U S U A R I O S - GPS "
-
+
Public Function ValidaUsuarioGPS(Clave As String, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
@@ -2825,8 +2827,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
Public Function GetUsuarioCliente(CveUsuario As Integer, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosClienteGet")
@@ -2849,8 +2851,8 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedoresAdd")
@@ -2873,7 +2875,7 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
+ End Function
Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Sis_UsuariosProveedorGet")
@@ -2896,13 +2898,13 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
-
+
+
#Region "U S U A R I O S - PyME"
-
+
Public Function AddUsuariosModulosPyMe(CveUsuario As Integer, Rol As String) As Boolean
Dim Retorno As Boolean = False
@@ -2941,22 +2943,22 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
- End Function
-
-
+ End Function
+
+
#End Region
-
+
#Region "IDisposable Support"
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
-
-
- If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If disposing Then
+
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
@@ -2967,9 +2969,9 @@ Public Class ClsSisUsuarios
ConexionClose()
Dispose(True)
GC.SuppressFinalize(Me)
- End Sub
+ End Sub
#End Region
-
+
End Class
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index abe6d4e94..0ca7bf273 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -4960,18 +4960,23 @@ Public Class Timbrado
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
- cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
- ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
+
+ If ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario IsNot Nothing Then
+ cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
+ ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
+ End If
+
+
'MERCANCIAS
If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 38687b3e8..0f178b373 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1004,11 +1004,11 @@ Namespace Extensiones
'**********Une la parte entera y la parte decimal*************
If dec <> "" Then
- palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+ palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString
Else
- palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+ palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)
Retorno = palabras.ToString
End If
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index ab47bc026..0fce0f8df 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -505,7 +505,7 @@
F. Captura
-
+
@@ -5925,12 +5925,9 @@
if (!isNaN(txtComision.value)) {
txtComisionImporte = ToDouble(txtComision.value);
}
- }
-
-
-
- var txtvalue = ToDouble(txt.value);
+ }
+ var txtvalue = ToDouble(txt.value);
if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {
@@ -5941,7 +5938,7 @@
return;
}
-
+ debugger;
if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
txtvalue = ToDouble(txtvalue / TCAnticipo);
} else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
@@ -5949,7 +5946,7 @@
}
var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
-
+ alert(txtvalue);
if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
//minimo entre saldocompra y el saldoanticipo
if (SaldoCompra < saldo) saldo = SaldoCompra;
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d7a183627..6ff2b3fef 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2642,6 +2642,7 @@ Partial Class Compras_Compras
TxtObsFact.Text = dr("Observaciones").ToString
LblUsuarioCaptura.Text = dr("Usuario").ToString
LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
+ LitFechCaptura.ToolTip = dr("FechaIng").ToString
LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%"
LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3)
If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
@@ -4774,7 +4775,7 @@ Partial Class Compras_Compras
'End If
'METODO DE PREPOLIZA DE ALMACEN
- If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+ If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
If ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index dad72b1e8..373264917 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -3101,7 +3101,7 @@
-
+ Archivo
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 9a3504bbc..cc90a744c 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -163,7 +163,7 @@ Partial Class Compras_RepCxP
If lItem.Value.ToEntero = 9 Then
lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
End If
- Next
+ Next
End Sub
@@ -1426,7 +1426,24 @@ Partial Class Compras_RepCxP
TCEspecifico = -1
End If
- Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}")
+ Dim Proyecto = ""
+ Dim Sucursal = ""
+
+ Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+ Case 1
+ Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Centro de costo: {DdlSubProyecto.SelectedItem.Text}")
+ Case 2
+ Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}")
+ Case 3
+ Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlSubProyecto.SelectedItem.Text}")
+ Case 4
+ Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}")
+ Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sub Proyecto: {DdlSubProyecto.SelectedItem.Text}")
+ Case 5
+ Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlProyecto.SelectedItem.Text}")
+ Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}")
+ End Select
+
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $" Proveedor: {DdlProveedor.SelectedText}")
Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $" Clasificación: {DdlProveedoresClasificaciones.SelectedItem.Text}")
Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $" Grupo: {DdlGrupo.SelectedItem.Text}")
@@ -1465,7 +1482,7 @@ Partial Class Compras_RepCxP
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
- params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
+ params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
params.Add(New ReportParameter("CantColumnas", CantidadColumnas))
If Imagen.Exists Then
@@ -1531,23 +1548,34 @@ Partial Class Compras_RepCxP
UpPersonalizarRango.Update()
End Sub
- Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
- DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
DtPersonalizarRango.AcceptChanges()
CargaGv()
End Sub
+ Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+ Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+ DtPersonalizarRango.Rows.RemoveAt(gvRow.RowIndex)
+ DtPersonalizarRango.AcceptChanges()
+ CargaGv()
+ End Sub
- Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+ Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+ Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Index = gvRow.RowIndex
Modalidad = "U"
- DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
TxtRI.Text = gvRow.DataKey("RangoInicial")
TxtRF.Text = gvRow.DataKey("RangoFinal")
If Not TxtRF.Text.ToDouble > 0 Then
+ DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
+ TxtRI.Text = gvRow.DataKey("RangoInicial")
+ TxtRF.Text = gvRow.DataKey("RangoFinal")
+ If Not TxtRF.Text.ToDouble > 0 Then
ChkMayor.Checked = True
TxtRF.Enabled = False
Else
ChkMayor.Checked = False
End If
- RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
End Sub
+ RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
+ UpPersonalizarRangoEditar.Update()
+ End Sub
Private Sub LimpiaPersonalizarColumna()
DdlTipo.SelectedIndex = 0
- TxtRI.Text = ""
TxtRF.Text = ""
+ TxtRI.Text = ""
+ TxtRF.Text = ""
ChkMayor.Checked = False
SoloNumeros2.Enabled = True
TxtRF.Enabled = True
@@ -1670,7 +1698,8 @@ Partial Class Compras_RepCxP
Protected Sub BtnAgregarRango_Click(sender As Object, e As EventArgs)
Modalidad = "A"
LimpiaPersonalizarColumna()
- RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
UpPersonalizarRangoEditar.Update()
+ RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
+ UpPersonalizarRangoEditar.Update()
End Sub
Protected Sub BtnPersonalizarRango_Click(sender As Object, e As EventArgs)
diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb
index 54ffcf3c7..ec96f64eb 100644
--- a/Contabilidad/DiarioPagos.aspx.vb
+++ b/Contabilidad/DiarioPagos.aspx.vb
@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos
Select Case UsuarioActual.CveEmpresa
- Case 13
+ Case 13, 83
Select Case gvr.DataKey("CveTipoTransaccion")
Case "1" 'cheque
Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
End If
'registro los movimientos en proveedores, cuando es de contado que toque
- If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
CargoProveedor += CompraPagadoTotal
AbonoProveedor += CompraPagadoTotal
End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
End If
Dim ttTipoCambioPago As Double = TipoCambioPago
- If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra
If IVAAcreditable > 0 Then 'iva Acreditable
@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos
If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
'no registra la retencion de iva al pagar
- If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0
-
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0
ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index ec1b8e94a..2b79f5b48 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
ObjPlantillaPolizasTipo.Dispose()
Dim dt As DataTable = Nothing
- If UsuarioActual.Empresa.UsaContabilidad Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
TxtOrden.Text = ""
If Not ChkSeguirAgregando.Checked Then
- updatatos()
Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
Else
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
UpModal.Update()
End If
-
+ updatatos()
Else
ErrorDetalle = True
End If
diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 153b14da1..7817aaf45 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -210,7 +210,7 @@ Partial Class PopUpAuxiliar
e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}", Liga, e.Row.DBCampo("ConceptoContable"))
End If
- If e.Row.DBCampo("CveConceptoContable").Contiene("91", "251", "301") Then 'desaplicar NC
+ If e.Row.DBCampo("CveConceptoContable").Contiene("91", "294", "251", "301") Then 'desaplicar NC
e.Row.FCLinkButton("LnkDesAplicar").Visible = True
e.Row.FCLinkButton("imgD").Visible = False
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 2c8963058..59e0d8c68 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -60,7 +60,7 @@