From 56b39374b6c1f33bc596c36aaf2c49e5253df06a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Oct 2023 12:29:13 -0700 Subject: [PATCH 01/21] - vista --- Contabilidad2/RepEstadoResultadosHorizontal.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 83ea70d21..27dcbc893 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -145,7 +145,7 @@ - Vista Porcentaje: + Vista %:
Horizontal From de64e0cdba756f3db3a08eb39f76fc508d566d9a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Oct 2023 13:45:40 -0700 Subject: [PATCH 02/21] -- liga concepto 287,288 --- Contabilidad/RegPrePolizaS.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index fec541fc1..7c8cb4597 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -558,7 +558,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta")) - If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) + If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259, 287, 288) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) 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")) From 5d806e8728f9edd02a06c8eef2cac93cf90cf3ba Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 Oct 2023 13:45:51 -0700 Subject: [PATCH 03/21] =?UTF-8?q?--=20correcci=C3=B3n=20colectivas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/OtrosIE.aspx.vb | 2 +- Bancos/PopUpBuscarColectiva.aspx.vb | 2 +- General/Colectivas.aspx.vb | 2 +- OC/CotizacionEnLinea.aspx.vb | 10 +++++----- OC/CotizacionEnvio.aspx.vb | 4 ++-- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/Bancos/OtrosIE.aspx.vb b/Bancos/OtrosIE.aspx.vb index 263f9eff2..36f7c0632 100644 --- a/Bancos/OtrosIE.aspx.vb +++ b/Bancos/OtrosIE.aspx.vb @@ -565,7 +565,7 @@ Partial Class Bancos_OtrosIE End If If TipoBeneficiario > 0 And TipoBeneficiario < 7 Then - If ObjColectiva.GetColectivas(CveColectiva, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then + If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, CveColectiva:=CveColectiva) Then If ObjColectiva.DtResultados.Rows.Count > 0 Then TxtPagueseA.Text = ObjColectiva.Colectiva Else diff --git a/Bancos/PopUpBuscarColectiva.aspx.vb b/Bancos/PopUpBuscarColectiva.aspx.vb index aade4936d..6946ceda2 100644 --- a/Bancos/PopUpBuscarColectiva.aspx.vb +++ b/Bancos/PopUpBuscarColectiva.aspx.vb @@ -46,7 +46,7 @@ Partial Class Bancos_PopUpBuscarColectiva If TxtColectiva.Text.Trim <> String.Empty Then Colectiva = TxtColectiva.Text.Trim If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim - If ObjColectiva.GetColectivas(-1, Colectiva, Codigo, DdlTipo.SelectedValue, UsuarioActual.CveEmpresa) Then + If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa, Tipo:=DdlTipo.SelectedValue) Then If ObjColectiva.DtResultados.Rows.Count > 0 Then LtlTotalRegistros.Text = ObjColectiva.DtResultados.Rows.Count.ToString.FormatoNumero(0) diff --git a/General/Colectivas.aspx.vb b/General/Colectivas.aspx.vb index f0e8d7dee..e623a2a94 100644 --- a/General/Colectivas.aspx.vb +++ b/General/Colectivas.aspx.vb @@ -17,7 +17,7 @@ Partial Class General_Colectivas Public Sub CargaDatos() Dim ObjColectiva As New ClsGenerales - If ObjColectiva.GetColectivas(-1, "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then + If ObjColectiva.GetColectivas(UsuarioActual.CveEmpresa) Then ViewState("DTColectivas") = ObjColectiva.DtResultados Else Me.GvDatos.DataSource = Nothing diff --git a/OC/CotizacionEnLinea.aspx.vb b/OC/CotizacionEnLinea.aspx.vb index 245e73b4d..79b2ad250 100644 --- a/OC/CotizacionEnLinea.aspx.vb +++ b/OC/CotizacionEnLinea.aspx.vb @@ -232,7 +232,7 @@ Partial Class OC_CotizacionEnLinea ElseIf objCotizacion.CveColectiva > 0 Then Dim objColectiva As New ClsGenerales - If objColectiva.GetColectivas(CveColectiva, "-1", "-1", "1", CveEmpresa) Then + If objColectiva.GetColectivas(CveEmpresa, CveColectiva:=CveColectiva) Then If objColectiva.DtResultados.Rows.Count > 0 Then lblProveedor.Text = objColectiva.DtResultados.Rows(0)("Colectiva").ToString End If @@ -293,9 +293,9 @@ Partial Class OC_CotizacionEnLinea Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim objCotizacion As New ClsOC objCotizacion.IniciaTransacSQL() - Dim TieneError = False + Dim TieneError As Boolean = False - If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then + If objCotizacion.UpdateCotizacion(CveProveedor, CveColectiva, TxtFolio.Text, ClsPaginas.NowADS().ToShortDateString(), IO.Path.GetExtension(FUArchivo.FileName), ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, 0, CveCotizacion) Then If FUArchivo.HasFile Then 'verificar que exista el directorio @@ -364,7 +364,7 @@ Partial Class OC_CotizacionEnLinea Dim strBody As New StringBuilder If objCotizacion.GetOC(CveOrdenCompra, CveEmpresa) Then - Dim Folio = "", Descripcion = "", Justificacion = "", Estatus = "", Empresa = "", FechaEstimadaEntrega = "" + Dim Folio As String = "", Descripcion As String = "", Justificacion As String = "", Estatus As String = "", Empresa As String = "", FechaEstimadaEntrega As String = "" Folio = objCotizacion.Folio.ToString Descripcion = objCotizacion.Descripcion @@ -509,7 +509,7 @@ Partial Class OC_CotizacionEnLinea Protected Sub GvD_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = NowADS() + e.Row.FCCalendarExtender("CEFechaEntrega").StartDate = ClsPaginas.NowADS() e.Row.FCTextBox("TxtPU").Attributes.Add("onchange", String.Format("$get('{0}').value = FormatNumber(parseFloat(this.value) * parseFloat($get('{1}').value), 2, true, true, true);", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.FCTextBox("TxtCant").ClientID)) Page.ClientScript.RegisterExpandoAttribute(e.Row.FCCustomValidator("CVFechaEntrega").ClientID, "txtCantidadSurtir", e.Row.FCTextBox("txtCantidadSurtir").ClientID, False) diff --git a/OC/CotizacionEnvio.aspx.vb b/OC/CotizacionEnvio.aspx.vb index e49748aed..8fc084c94 100644 --- a/OC/CotizacionEnvio.aspx.vb +++ b/OC/CotizacionEnvio.aspx.vb @@ -86,7 +86,7 @@ Partial Class OC_CotizacionEnvio Protected Sub CargaColectivas() Dim objColectiva As New ClsGenerales - If objColectiva.GetColectivas(-1, "-1", "-1", "1", UsuarioActual.CveEmpresa) Then + If objColectiva.GetColectivas(UsuarioActual.CveEmpresa, -1) Then DtColectivas = objColectiva.DtResultados ddlColectiva.DataSource = DtColectivas @@ -272,7 +272,7 @@ Partial Class OC_CotizacionEnvio If TieneError = False Then Dim Body As String - For i = 0 To Correo.Count - 1 + For i As Integer = 0 To Correo.Count - 1 'Dim Body As String = GeneraCorreo(objCotizacion.CveCotizacion, objCotizacion) Body = GeneraCorreo(OrdenCotizacion(i), objCotizacion) From 3cc819da7205659abff81a20e8bf343ff6343a78 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 18 Oct 2023 22:53:30 -0700 Subject: [PATCH 04/21] -- como para activar el ps en ecomerce --- App_Code/ClsProductosServicios.vb | 9 ++++++--- Ventas/ProductosServicios.aspx | 7 ++++--- Ventas/ProductosServicios.aspx.vb | 8 +++++--- 3 files changed, 15 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index bdd504361..70185ce97 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -412,7 +412,7 @@ Public Class ClsProductosServicios Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "") As Integer + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -513,6 +513,7 @@ Public Class ClsProductosServicios .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial .Add("@NotasAdicionales", SqlDbType.VarChar).Value = NotasAdicionales .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas + .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce End With @@ -638,7 +639,7 @@ Public Class ClsProductosServicios Return Retorno End Function Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer, - AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1, + AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1, Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0, Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, @@ -648,7 +649,7 @@ Public Class ClsProductosServicios Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "-") As Boolean + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -682,6 +683,7 @@ Public Class ClsProductosServicios .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = IEPSPorcentaje .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa 'Nuevo R: 26/09/2017' .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable @@ -748,6 +750,7 @@ Public Class ClsProductosServicios .Add("@NombreComercial", SqlDbType.VarChar).Value = NombreComercial .Add("@NotasAdicionales", SqlDbType.VarChar).Value = NotasAdicionales .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas + .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce End With diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 091b4269b..d21635f06 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -536,10 +536,11 @@
- Ecommerce + Ecommerce   
+
@@ -554,7 +555,7 @@
- + @@ -562,7 +563,7 @@
- + diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 2ac66a252..13a1ba368 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -973,6 +973,8 @@ Partial Class ProductosyServicios DdlEmpacado.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoEmpacado").ToString) DdlTipoOrganico.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoOrganico").ToString) TxtNombreComercial.Text = ObjProductosServicios.DtResultados.Rows(0)("NombreComercial").ToString + + ChkActivoEcommerce.Checked = ObjProductosServicios.DtResultados.Rows(0)("ActivoEcommerce").ToString = "True" TxtEcommerceNota.Text = ObjProductosServicios.DtResultados.Rows(0)("NotasAdicionales").ToString TxtEcommerceEtiquetas.Text = ObjProductosServicios.DtResultados.Rows(0)("EcommerceEtiquetas").ToString @@ -1518,7 +1520,7 @@ Partial Class ProductosyServicios If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True, - ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero, + ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal, @@ -1533,7 +1535,7 @@ Partial Class ProductosyServicios CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim) Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True @@ -3131,7 +3133,7 @@ Partial Class ProductosyServicios Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero() If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, - EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia, + EsPaquete, DdlSATPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal, From 4017d5fb219f81b4a5d0838398f698b3761b614c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 18 Oct 2023 22:54:19 -0700 Subject: [PATCH 05/21] =?UTF-8?q?--=20a=C3=B1o=20anterior=20para=20bdh?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepProductosServicios.aspx | 5 +++++ Ventas/RepProductosServicios.aspx.vb | 15 ++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index e372cf0b1..2941e38cb 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -379,6 +379,11 @@ + + + + + diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 1e9fd338f..257116385 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -240,6 +240,9 @@ Partial Class Ventas_RepProductosServicios ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados + If UsuarioActual.CveEmpresa = 140 Then + GvDatos.Columns(1).Visible = True + End If Else GvDatos.DataSource = Nothing End If @@ -291,13 +294,15 @@ Partial Class Ventas_RepProductosServicios Else If e.Row.DBCampo("Orden") = "" Then e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(0).Width = Unit.Pixel(200) + e.Row.Cells(0).Width = Unit.Pixel(200) e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(1).Width = Unit.Pixel(60) - e.Row.Cells(2).Width = Unit.Pixel(90) + e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(2).Width = Unit.Pixel(60) e.Row.Cells(3).Width = Unit.Pixel(90) - e.Row.Cells(5).Width = Unit.Pixel(80) - e.Row.Cells(8).Width = Unit.Pixel(100) + e.Row.Cells(4).Width = Unit.Pixel(90) + e.Row.Cells(6).Width = Unit.Pixel(80) + e.Row.Cells(9).Width = Unit.Pixel(100) e.Row.CssClass = "Totales" Css = "Totales" ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then @@ -312,7 +317,7 @@ Partial Class Ventas_RepProductosServicios FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1") FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1") - Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}&CveClasificacion2={38}&ServicioDomicilio={39}", + Dim Liga As String = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}&CveClasificacion2={38}&ServicioDomicilio={39}", e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"), From 87eb99402bb64f261daa401771da6023ae65a4da Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 18 Oct 2023 23:13:00 -0700 Subject: [PATCH 06/21] Estado resultado horizontal por subproyecto grafica pastel negativos y porcentaje acumulado, Rep ventas utilidad porcentaje, Kardex almacen horizontal congelar dos columnas iniciales filtro por producto --- App_Code/ClsInventarios.vb | 4 +- .../RepEstadoResultadosHorizontal.aspx | 30 +++++++++++- .../RepEstadoResultadosHorizontal.aspx.vb | 23 +++++---- Inventarios/KardexAlmacenHorizontal.aspx | 48 ++++++++++++++----- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- TareasProgramadas/Tareas119.ashx | 10 ++-- Ventas/RepVentasUtilidadPadre.aspx | 1 + 7 files changed, 87 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0209ab3a3..67f0db340 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1535,7 +1535,8 @@ Public Class ClsInventarios End Function Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, - Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", Optional GPO As Integer = 1) As Boolean + Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", + Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1558,6 +1559,7 @@ Public Class ClsInventarios .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = IncluyeProyectado .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes .Add("@GPO", SqlDbType.Int).Value = GPO + .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS End With diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 83ea70d21..2345d64c8 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -1231,6 +1231,11 @@ + + + + + <%----%> @@ -1407,7 +1412,15 @@ - + + + + + + + + + <%----%> @@ -1565,11 +1578,20 @@ function CargaGraficaPastel() { let data = cdatos; + let newData = JSON.parse(JSON.stringify(data)); + + newData = newData.map(function (item) { + if (item.Valor < 0) { + item.Valor = Math.abs(item.Valor); + } + return item; + }); + var chart = AmCharts.makeChart("chartdiv", { "type": "pie", "theme": "light", "dataProvider": - data, + newData, "valueField": "Valor", "titleField": "Texto", "outlineAlpha": 0.4, @@ -1583,7 +1605,9 @@ } function ADSBegin() { $('.DdlGrafica').on('select2:select', function (e) { + var data = e.params.data; + currentid = data.id; if (currentid == 1) { CargaGraficaBarras(); @@ -1752,7 +1776,9 @@ }); } } + function initamgrafica() { + AmCharts.addInitHandler(function (chart) { function handleCustomMarkerToggle(legendEvent) { var dataProvider = legendEvent.chart.dataProvider; diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index b1c8f07be..ce859629e 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2096,20 +2096,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() - - Dim Row As DataRow = DtIngresosSubProyectoH.NewRow Dim TotalActual = 0.0, TotalAnterior = 0.0 - Dim IndexData As Integer = 0 Dim IndexGv As Integer = 1 Dim IndexMax As Integer = 1 Dim IndexSubProyecto = 0 Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 - If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then IndexSubProyectoMax = GvIngresosSubProyectoH.Columns.Count - 2 End If @@ -2121,7 +2117,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal '34 Dim IDX_LIMPIAR As Integer = 1 - For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 2 + For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 3 CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False @@ -2236,13 +2232,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next - - Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" + Row.Item("PorcentajeActual") = 100.0 Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero @@ -2299,11 +2293,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If Next + + Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("CtaMayor") = -2 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero + Row.Item("PorcentajeAcumulado") = If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, 100, (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)"))) + DTTotalesSubProyectoH.Rows.Add(Row) End If @@ -2316,6 +2314,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvIngresosSubProyectoH.DataBind() + 'GvIngresosSubProyectoH.Columns(55).Visible = True + 'GvIngresosSubProyectoH.Columns(56).Visible = True + UpDatosSubProyectoH.Update() @@ -2469,6 +2470,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim lista As New List(Of Object) Dim colorindex As Integer = 0 For Each campo As String() In listaCampos + + 'Dim valorCampo As Decimal = If(e.Row.DBCampo(campo(0)).ToDecimal() < 0, (e.Row.DBCampo(campo(0)).ToDecimal() * -1), e.Row.DBCampo(campo(0)).ToDecimal()) + lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) colorindex = colorindex + 1 If colorindex >= listacolores.Count Then @@ -2727,3 +2731,4 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Class + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 37ff0ac0a..e65fcd61b 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -78,6 +78,22 @@ width: 22%; } } + + + .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(1){ + width:150px!important + } + .AdsCEll > div:nth-child(1) > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(2) > th:nth-child(2){ + width:400px!important + } + + #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(1){ + width:150px!important + } + #ADColC_GvDatos > tbody:nth-child(1) > tr:nth-child(2) > td:nth-child(2){ + width:400px!important + } + @@ -195,6 +211,12 @@
+ + +
+ +
+ Orden:
@@ -236,29 +258,29 @@ - + - + Código -
- -
+ + + - - - Producto - + + + Producto -
- -
+ + + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index c82773a48..db5db824f 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -155,7 +155,7 @@ Partial Class Inventarios_KardexAlmacen If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero, - Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then + Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 36d57ea04..4bb8c6f7f 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -66,10 +66,10 @@ public class TareasJam : IHttpHandler DataTable DTClientes = new DataTable(); DataTable DTAlmacenes = new DataTable(); - string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{NowADS().ToString("yyyyMMdd")}.xlsx"; - string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaVentas = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Ventas{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; + string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{ClsPaginas.NowADS().ToString("yyyyMMdd")}.xlsx"; string FormatoVentas = $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoVentas.xlsx"; @@ -543,7 +543,7 @@ public class TareasJam : IHttpHandler ClsSisMail Correo = new ClsSisMail(); string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx"; // string Para = "oscar.irigoyen@adssistemas.mx"; - string Asunto = ErrorProceso ? $"Carga Layout Corteva {NowADS().ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {NowADS().ToString("yyyy-MM-dd")}"; + string Asunto = ErrorProceso ? $"Carga Layout Corteva {ClsPaginas.NowADS().ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {ClsPaginas.NowADS().ToString("yyyy-MM-dd")}"; Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos); this.GuardaLog($"EjecutaThalamus: MandaCorreo() correo enviado. "); diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx index 43a586407..0b3c08446 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx +++ b/Ventas/RepVentasUtilidadPadre.aspx @@ -233,6 +233,7 @@ + From b277b22403c6d48466ef44eb96caed7d04bdb09e Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Oct 2023 13:07:40 -0700 Subject: [PATCH 07/21] Correciones karedes alamcen horizontal, Proveedores abonar error al pagar dolares en dolares --- Bancos/ProveedoresAbonar.aspx.vb | 12 ++++-- .../RepEstadoResultadosHorizontal.aspx | 15 +++++-- Inventarios/KardexAlmacenHorizontal.aspx | 41 +++++++------------ Inventarios/KardexAlmacenHorizontal.aspx.vb | 3 ++ Ventas/RepVentasUtilidadPadre.aspx.vb | 2 +- 5 files changed, 38 insertions(+), 35 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 913c32a1a..4aa540ba3 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -804,7 +804,7 @@ Partial Class Bancos_ProveedoresAbonar Pago.TCPago = 1 ' TxtTC.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES - Pago.TCPago = TxtTCDolares.Text.ToDecimal + Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES Pago.TCPago = TxtTCDolares.Text.ToDecimal Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal) @@ -844,9 +844,13 @@ Partial Class Bancos_ProveedoresAbonar tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL End If - If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then - MsgError = "No se pudo insertar la póliza" - End If + If UsuarioActual.CveRol = 1 Then + Alert($" TxtImporte.Text: { TxtImporte.Text} tImporteMN: {tImporteMN}") + End If + + If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then + MsgError = "No se pudo insertar la póliza" + End If If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 2345d64c8..eed74d468 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -7,12 +7,12 @@ @@ -258,32 +248,31 @@ - + Código - - - + + - - Producto - + + Producto - - - +
+ +
+ + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index db5db824f..a99613ff7 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -203,6 +203,9 @@ Partial Class Inventarios_KardexAlmacen e.Row.CssClass = "Totales" End If + + 'e.Row.Attributes.Add("style", " max-height:31px!important") + e.Row.HorizontalAlign = HorizontalAlign.Right e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index fe43320eb..83879613c 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -252,7 +252,7 @@ Partial Class Ventas_RepVentasUtilidadPadre e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria")) e.Row.Cells(0).Text = String.Format("{2}", Css, Liga, e.Row.Cells(0).Text) Else - e.Row.Cells(9).BackColor = Drawing.Color.LightGray + e.Row.Cells(10).BackColor = Drawing.Color.LightGray End If From 9e9f4fa9b7424f39b9f238a08c94df462cf93c6f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 19 Oct 2023 13:09:38 -0700 Subject: [PATCH 08/21] local --- Bancos/ProveedoresAbonar.aspx.vb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 4aa540ba3..d4d3312cd 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -844,9 +844,7 @@ Partial Class Bancos_ProveedoresAbonar tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL End If - If UsuarioActual.CveRol = 1 Then - Alert($" TxtImporte.Text: { TxtImporte.Text} tImporteMN: {tImporteMN}") - End If + If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then MsgError = "No se pudo insertar la póliza" From 822282e87824cdfa56dc7be72332dda0150e4cd5 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 19 Oct 2023 13:16:17 -0700 Subject: [PATCH 09/21] =?UTF-8?q?--=20Unificar=20un=20solo=20TC=20de=20pag?= =?UTF-8?q?o=20en=20d=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ProveedoresAbonar.aspx | 10 +--------- Bancos/ProveedoresAbonar.aspx.vb | 34 +++++++++----------------------- 2 files changed, 10 insertions(+), 34 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 2f6fc70de..874770e8c 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -79,15 +79,7 @@ -
-
- T.C: - - - - -
-