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/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 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) 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 diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index d00d8b753..4856937c2 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 @@ -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 bd3f7d941..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 @@ -1145,9 +1142,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 +1162,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 +1172,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 @@ -1191,14 +1185,14 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For 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), + 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), - 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 +1202,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 +1218,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")) @@ -1731,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 @@ -1998,22 +1989,15 @@ 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 + dRow("Modificado") = True Next 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 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 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"); } 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 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/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); 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"; } 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"> - - + +