From 64915082012d93077abf0bf51b5e8182b18a6794 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:41:29 -0700 Subject: [PATCH 01/11] - --- General/SaldosIniciales.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 428c5e9b5..1eacb145e 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1455,7 +1455,7 @@ Partial Class General_SaldosIniciales Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate Dim CveMoneda As Integer = 1 Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero - Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0") + Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0").ToDecimal Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal @@ -1499,14 +1499,14 @@ Partial Class General_SaldosIniciales End If If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, - NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then + NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then ErrorCompras = True Exit For End If CveCompra = ObjCompras.CveCompra 'Compra Detalle - If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then + If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, CveSubProyecto, -1, 0, 1, SubTotal, SubTotal * PorcentajeIVA, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then ErrorCompras = True Exit For End If @@ -1518,7 +1518,7 @@ Partial Class General_SaldosIniciales If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For If IVA > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorCompras = True : Exit For End If If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For From 8492e0e75bb84432b7fb4e3725ad0933e4642d40 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:41:49 -0700 Subject: [PATCH 02/11] -- mejora --- Ashx/E119.ashx | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 36d4258df..d9fc7099f 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler End If If Metodo = "RegistraRemision" Then + context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - + MsgLog.AppendLine("Validado:" & Auth.IsSuccess) If Auth.IsSuccess Then - retorno = RegistraRemision(context) + retorno = RegistraRemision(context, MsgLog) Else context.Response.StatusCode = Auth.StatusCode retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) @@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler End If End Function - Private Function RegistraRemision(ByVal context As HttpContext) As String + Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String Dim TieneError As Boolean = False Dim JsonRequest As JObject = Nothing Dim Respuesta As New ResponseMsg Dim RespuestaError As New ResponseMsgError - Dim MsgLog As New StringBuilder - Try + Try MsgLog.AppendLine("1.0 Registra") If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) @@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If Else + MsgLog.AppendLine("json:" & json) TieneError = True End If End Using @@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.1 accedido") If TieneError Then - RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" + RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)" context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) End If @@ -528,9 +529,10 @@ Public Class E119 : Implements IHttpHandler Catch ex As Exception TieneError = True + Finally + MsgLog.ToString.GuardaLogAD("LogE119") End Try - MsgLog.ToString.GuardaLogAD("LogE119") If TieneError Then context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) From ae08d4a52b64717b83c75907b350d14a273c37d0 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:18 -0700 Subject: [PATCH 03/11] -- option explicit --- Compras/RepComplementoPago.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index fe617bac8..eb4b41f15 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago Private Sub CargaDatos() Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero) - Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero - Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) - Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1) + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) + Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) + Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1) Dim Count As Integer = 0 Dim ObjCompras As New ClsCompras From 438a47936a4cb6f25c076c5f0fb6ec14f5b6f1a3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:47 -0700 Subject: [PATCH 04/11] =?UTF-8?q?-=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs | 9 ++++++--- Ventas/RepNCxAplicar.aspx.cs | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs index dd64174fe..cee168ffd 100644 --- a/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs +++ b/Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs @@ -322,7 +322,8 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas ClsContabilidad ObjConta = new ClsContabilidad(); ObjConta.IniciaTransacSQL(); int CvePrePoliza = 0, CveVenta = -1, CveIE = -1; - decimal Saldo = 0; + decimal Saldo = 0; + decimal SaldoAdmin = 0; decimal ImporteTotalGasto = 0; string MsgError = ""; @@ -349,16 +350,18 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas { CveVenta = Gv.DataKey("CveVenta").ToEntero(); Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = Saldo; } else if (Tipo == 3) { ConPreP.CveConcepto = 92; CveIE = Gv.DataKey("CveIE").ToEntero(); - Saldo = Gv.DataKey("Saldo").ToDecimal(); + Saldo = -Gv.DataKey("Saldo").ToDecimal(); + SaldoAdmin = -Saldo; } ImporteTotalGasto += Saldo; - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero())) { MsgError = "Ocurrio un error al saldar el movimiento"; break; diff --git a/Ventas/RepNCxAplicar.aspx.cs b/Ventas/RepNCxAplicar.aspx.cs index b8153eccf..09e31362e 100644 --- a/Ventas/RepNCxAplicar.aspx.cs +++ b/Ventas/RepNCxAplicar.aspx.cs @@ -207,7 +207,7 @@ public partial class Ventas_RepNCxAplicar : ClsPaginas } } - if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) + if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Saldo").ToDecimal() * Gv.DataKey("TipoCambioValuacion").ToDecimal(), 78, Gv.DataKey("Folio").ToString(), TxtConcepto.Text, CveVenta: Gv.DataKey("CveVenta").ToEntero() )) { MsgError = "Ocurrio un error al saldar el movimiento"; } From b903258124684ccc8cd70a1d38a4097d7a5b15b3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:42:54 -0700 Subject: [PATCH 05/11] - --- Ventas/RepComisionesJAM.aspx.cs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs index 74dc3f6dd..cb31e79dd 100644 --- a/Ventas/RepComisionesJAM.aspx.cs +++ b/Ventas/RepComisionesJAM.aspx.cs @@ -54,12 +54,9 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()); DdlVendedor.Attributes.Add("disabled", "disabled"); DdlVendedor.Enabled = false; - - } - + } GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201); - GvDatos.Columns[21].Visible = UsuarioActual.TienePermisoProceso(311); GvDatos.Columns[22].Visible = UsuarioActual.TienePermisoProceso(311); divProforma.Visible = UsuarioActual.TienePermisoProceso(311); From e6264b91e9ab71519ef6159a8f072178f43787e1 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 20 Jan 2024 18:43:09 -0700 Subject: [PATCH 06/11] =?UTF-8?q?--=20liga=20en=20nueva=20pesta=C3=B1a?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepRemisiones.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 2ad99df24..4eab2a885 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -222,8 +222,8 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> - - + + From 47a6fc57553b552815daa0a7e9cb3eaf6b456008 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 15:18:51 -0700 Subject: [PATCH 07/11] -- candado timbrdo CEXT 2.0 --- App_Code/Timbrado.vb | 127 +++++++++++++++++++++++++++++++++++-------- 1 file changed, 103 insertions(+), 24 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 8012321c5..37405a912 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2460,11 +2460,13 @@ Public Class Timbrado #Region "Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + If UsuarioActual.CveEmpresa = 172 Then - 'DATOS GENERALES - cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, @@ -2473,9 +2475,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) - 'EMISOR - cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) - cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + 'EMISOR + cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, @@ -2485,9 +2487,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) - 'RECEPTOR - cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) - cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + 'RECEPTOR + cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, @@ -2498,8 +2500,8 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) - If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then - cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, @@ -2511,27 +2513,104 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) - End If + End If - 'MERCANCIAS - If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then - For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias - cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) - If concep.DescripcionesEspecificas.Marca <> "" Then - cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, concep.DescripcionesEspecificas.Modelo, concep.DescripcionesEspecificas.SubModelo, concep.DescripcionesEspecificas.NumeroSerie) - End If - Next + End If + Next + + End If + End If - - End If - End If + Else + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion, + ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, + ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable, + ObjCFDITimbre.Complementos.ComercioExterior.Incoterm, + ObjCFDITimbre.Complementos.ComercioExterior.Subdivision, + ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, + ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, + ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) + 'EMISOR + cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) + 'RECEPTOR + cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) + + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) + End If + + + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + concep.DescripcionesEspecificas.Modelo, + concep.DescripcionesEspecificas.SubModelo, + concep.DescripcionesEspecificas.NumeroSerie) + End If + Next + + End If + + + End If + End If + + + End if #End Region From 55212338c9a7ffb5cea44cc8f628b59bdd62e527 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 15:19:26 -0700 Subject: [PATCH 08/11] =?UTF-8?q?-=20parametro=20de=20cveclasificaci=C3=B3?= =?UTF-8?q?n=20al=20editar=20prepolizadetalle?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 8 ++---- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 45 +++++++++++++----------------- 3 files changed, 24 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22263859e..03a863762 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -292,12 +292,11 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional TipoCambio As Decimal = -1) As Boolean - + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle .Add("@Concepto", SqlDbType.VarChar).Value = Concepto @@ -318,13 +317,12 @@ Public Class ClsContabilidad .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveIE", SqlDbType.Int).Value = CveIE - + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try SqlAdapter.Fill(Data) Retorno = True - Catch ex As Exception If ex.Message.Contains("CuentasResultados_SubProyectos") Then OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index d00d8b753..b442b4cf4 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -440,7 +440,7 @@
+ DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" > Movimiento diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bd3f7d941..6bb286c1d 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1145,9 +1145,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveIEAgregado As Integer = -1 For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If row.FCCheckBox("chkModificado").Checked Then + If CBool(row.DataKey("Modificado")) Then contador = contador + 1 - Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1166,7 +1165,7 @@ Partial Class ContabilidadC_RegPrePolizaS If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, TipoCambio:=row.DataKey("TC").ToDecimal, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then @@ -1176,8 +1175,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If Else contador = contador + 1 - - Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1192,13 +1189,13 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False), + row.DataKey("Cargo").ToDecimal, + row.DataKey("Abono").ToDecimal, row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then OcurrioError = True @@ -1208,6 +1205,13 @@ Partial Class ContabilidadC_RegPrePolizaS Next End If + If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then + If ObjContabilidad.ValorPolizaDescuadre > 0 Then + OcurrioError = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If Else OcurrioError = True End If @@ -1217,31 +1221,22 @@ Partial Class ContabilidadC_RegPrePolizaS OnError("Ocurrío un error al actualizar la PrePoliza", ex) End Try - If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then - If ObjContabilidad.ValorPolizaDescuadre > 0 Then - OcurrioError = True - Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - End If - If Not OcurrioError Then ObjContabilidad.Commit() + CargaPrePoliza(CvePrePoliza) Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) Else ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) End If ObjContabilidad.Dispose() - CargaPrePoliza(CvePrePoliza) - If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador > 0 Then - Contabilizar() - End If + 'If Not OcurrioError Then + ' If IdPoliza > 0 AndAlso contador > 0 Then + ' Contabilizar() + ' End If - End If + 'End If End Sub Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto")) @@ -2002,6 +1997,7 @@ Partial Class ContabilidadC_RegPrePolizaS For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text + dRow("Modificado") = True Next DtMovimientos.AcceptChanges() @@ -2011,7 +2007,6 @@ Partial Class ContabilidadC_RegPrePolizaS For Each Gvr As GridViewRow In GvPrePoliza.Rows 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) Gvr.FCCheckBox("chkModificado").Checked = True - Next UpPrePoliza.Update() From 4957baf4b083a479114ad15164d2814446714c5b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:50:52 -0700 Subject: [PATCH 09/11] - mejora --- Contabilidad/RegPrePolizaS.aspx | 3 +-- Contabilidad/RegPrePolizaS.aspx.vb | 19 ++++--------------- 2 files changed, 5 insertions(+), 17 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b442b4cf4..4856937c2 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -528,8 +528,7 @@ - + data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 6bb286c1d..8bf6adaad 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - If e.Row.DBCampo("Modificado") = "True" Then - e.Row.FCCheckBox("chkModificado").Checked = True - End If End If If e.Row.RowType = DataControlRowType.Header Then @@ -1188,10 +1185,10 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.DataKey("TipoMovto") = "True", True, False), - row.DataKey("Cargo").ToDecimal, - row.DataKey("Abono").ToDecimal, + Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False) + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), @@ -1726,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() GvPrePoliza.Visible = True - If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero @@ -1993,7 +1989,6 @@ Partial Class ContabilidadC_RegPrePolizaS Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs) If UpPrePoliza.Visible Then - For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text @@ -2003,12 +1998,6 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.AcceptChanges() GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() - - For Each Gvr As GridViewRow In GvPrePoliza.Rows - 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) - Gvr.FCCheckBox("chkModificado").Checked = True - Next - UpPrePoliza.Update() End If If divMovtos.Visible Then From a74aa811614895fecb8bd9a9fa9dcc892d979d99 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:51:04 -0700 Subject: [PATCH 10/11] -- mejora, para incluir descuentos --- SAT/SolicitudesIngresoSat.aspx | 232 +++++------------------------- SAT/SolicitudesIngresoSat.aspx.cs | 128 ++++++----------- 2 files changed, 79 insertions(+), 281 deletions(-) diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 3e4154c9c..7814cf401 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -3,8 +3,16 @@ - @@ -327,57 +156,72 @@ - + - + + + + + + - + - + - + - + - + + + + + + + + + + + - + - + - + - + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index ddf541544..1ff768086 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -7,7 +7,6 @@ using System.Net.Http.Headers; using System.Text; using System.Threading; using System.Threading.Tasks; -using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; @@ -119,7 +118,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { GvResumen.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; - LnkDownloadExcel.Visible = true; + LnkDownloadExcel.Visible = true; + if (UsuarioActual.Empresa.Funcionalidad(713) == "1") + { + GvResumen.Columns[4].Visible = false; + GvResumen.Columns[11].Visible = false; + } } else if (DdlReporte.SelectedValue.ToEntero() == 2) { @@ -400,57 +404,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("Fecha") == "") e.Row.Attributes.Add("class", "Totales"); - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - - } - - if (e.Row.RowType == DataControlRowType.Header) - { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); - - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); - - - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - } + } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) @@ -534,17 +488,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas if (e.Row.RowType == DataControlRowType.Header) { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo + //e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul @@ -556,33 +510,33 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#900"); //Rojo //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#900"); //Rojo - e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); } From 6d6b7924aa22b81fbef1497b17430d0ffaa81a99 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Jan 2024 18:51:15 -0700 Subject: [PATCH 11/11] =?UTF-8?q?--=20correcci=C3=B3n=20de=20par=C3=A1metr?= =?UTF-8?q?o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/UsuarioDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 5ea3af3d8..becfebe4b 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -861,7 +861,7 @@ Partial Class Sistemas_UsuarioDetalle End If For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows - If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then + If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then TieneError = True End If Next