From 474be9518cbc3c2ea67f41ea9d90f2386f4bdce3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 12:45:51 -0700 Subject: [PATCH 1/8] mejoras en combos y global --- Ventas/CatMetasVendedores.aspx.vb | 7 +------ Ventas/MetasVendedores.aspx | 2 +- Ventas/MetasVendedores.aspx.vb | 13 +++++++++---- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index d8871551c..ac1883e6e 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -46,12 +46,7 @@ Partial Class CatMetasVendedores DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarca.DataSource = ObjPS.DtResultados - End If - ObjPS.Dispose() - + DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) DdlMarca.DataBind() DdlMarca.Items.Insert(0, New ListItem("Todas", "-1")) diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx index 54b52aa47..bc92e3f74 100644 --- a/Ventas/MetasVendedores.aspx +++ b/Ventas/MetasVendedores.aspx @@ -124,7 +124,7 @@
- +
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 984b62242..95b680714 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -51,16 +51,21 @@ Partial Class MetasVendedores DdlClasificacion2.DataBind() DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1")) - DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlCliente.DataBind() - DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlCliente.DataBind() + 'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargarDatosReporte() + Dim CveCliente As Integer = -1 + If DdlClientes.SelectedValue.ToEntero > 0 Then + CveCliente = DdlClientes.SelectedValue.ToEntero + End If + Dim ObjVentas As New ClsVentas If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero, - DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then + DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlGrupo.SelectedValue.ToEntero) Then GV.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If From a2d85f728337bea49bd92e793688abccbb6e7037 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:15:38 -0700 Subject: [PATCH 2/8] porcentaje iva columna --- Contabilidad2/CatCuentasAsignaciones.aspx | 3 ++- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 11 ++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 730aca935..c48771d03 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -76,7 +76,8 @@ - + + diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index a4bcacc73..8acd80a65 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -39,16 +39,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjConta.DtResultados - End If + End If + GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0 + GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0 If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then GvGlobal.DataSource = ObjConta.DtResultados - End If - + End If + + ObjConta.Dispose() GvDatos.DataBind() GvGlobal.DataBind() UpDatos.Update() + + End Sub From 9eee73c59ecb33106f28329567be6315ed36b5d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:16:15 -0700 Subject: [PATCH 3/8] mensaje 2 botones --- OC/OC.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 3a038344b..df8847e67 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2742,7 +2742,7 @@ Partial Class OC 'ES NUEVO Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""" Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx""" - Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) + Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) @@ -3116,7 +3116,7 @@ Partial Class OC 'Edicion Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""" Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx""" - Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) + Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) Else Dim ImprimirOC = "" @@ -3143,7 +3143,7 @@ Partial Class OC 'Edicion Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""" Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx""" - Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) + Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2) From cffab0e70c746ff0703c35015265bc84be4a3932 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:16:33 -0700 Subject: [PATCH 4/8] mejoras en fecha --- General/SaldosIniciales.aspx.vb | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 80285172c..bff609215 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1697,7 +1697,7 @@ Partial Class General_SaldosIniciales Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - For Each Row As DataRow In dt.Rows + For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows NombreCuenta = Row("NombreCuenta").ToString Cuenta = Row("Cuenta").ToString @@ -1709,11 +1709,8 @@ Partial Class General_SaldosIniciales Dim YaExiste As Boolean = False Dim DataTemp As DataTable - Dim SubP As String = Row("SubProyecto").ToString - If SubP <> "" Then - DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP)) - CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero - End If + + Cuenta = Cuenta.Replace(" ", "") If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then @@ -1729,6 +1726,17 @@ Partial Class General_SaldosIniciales Exit For End If + Dim SubP As String = Row("SubProyecto").ToString + If SubP <> "" OrElse SubP <> "-" Then + DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP)) + CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero + If CveSubProyecto <= 0 Then + Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos
") + TieneError = True + Exit For + End If + End If + 'If TipoCuenta.Contiene("A", "C", "E") Then ' CargoAbono = False @@ -1738,6 +1746,8 @@ Partial Class General_SaldosIniciales If IdCuenta > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then TieneError = True + Reporte.Append(NombreCuenta) + NombreCuenta.GuardaLog Exit For End If Else From a4014ed1770434d97d2b654d75d1261d4a57612f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:16:47 -0700 Subject: [PATCH 5/8] =?UTF-8?q?mejoras=20en=20visualziaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RepProductosPorCaducar.aspx | 52 +++++++++++-------------- 1 file changed, 23 insertions(+), 29 deletions(-) diff --git a/Inventarios/RepProductosPorCaducar.aspx b/Inventarios/RepProductosPorCaducar.aspx index 02cc54362..b2dc48c13 100644 --- a/Inventarios/RepProductosPorCaducar.aspx +++ b/Inventarios/RepProductosPorCaducar.aspx @@ -96,7 +96,16 @@
- + +
+
+ + Caducidad + Elaboración + +
+
+
@@ -108,8 +117,8 @@
-
- +
+
@@ -120,27 +129,24 @@
-
-
+
+
+ +
+ + - - - - - + From 846be4e9e528abd9854e7435933e5c771ca36e98 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:17:13 -0700 Subject: [PATCH 6/8] dropdonwlost --- Inventarios/RepOcInv.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RepOcInv.aspx b/Inventarios/RepOcInv.aspx index b3e143a13..04668fa8c 100644 --- a/Inventarios/RepOcInv.aspx +++ b/Inventarios/RepOcInv.aspx @@ -40,7 +40,7 @@
Proveedor
- +
<%--
Folio
From 640dd32ea412c867fc3d8e3e580619a2aa5cb954 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:17:33 -0700 Subject: [PATCH 7/8] caducidad --- App_Code/ClsInventarios.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index eecdcfd14..fe7480f7c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1646,7 +1646,7 @@ Public Class ClsInventarios End Function Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, - FiltroFecha As Integer, CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean + CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ProductosCaducidadGet") @@ -1658,7 +1658,6 @@ Public Class ClsInventarios .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@FiltroFecha", SqlDbType.SmallInt).Value = FiltroFecha .Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa From 2b6205e0e55221bc4afd3abf79c7bdad75c9dafd Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Oct 2021 16:18:16 -0700 Subject: [PATCH 8/8] -- numero de decimales en cantidad y pu --- App_Code/Timbrado.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 8ad810f78..e6d226c83 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1963,7 +1963,7 @@ Public Class Timbrado If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos - cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("#.######"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("#.######"), concep.Importe, concep.Descuento) + cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento) For Each imp As CFDIConceptosImpuestos In concep.Impuestos If imp.TrasladooRetencion = "T" Then cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)