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 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) 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 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 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
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 @@
-
-
+
+
+ +
+
+ - - - - - + 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) 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