From 3e6d9ec9c6cfe0b70da2fcbf89dc5f2b6a205cb7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 21 May 2024 18:50:42 -0700 Subject: [PATCH] --FIX, soportes --- Empresas/190/Formatos/RepCortes.rdlc | 12 ++++++++ Empresas/193/Formatos/RepCortes.rdlc | 12 ++++++++ Ventas/CatClasificaciones2.aspx.vb | 44 +++++++++++++--------------- Ventas/Ventas.aspx.vb | 2 +- 4 files changed, 46 insertions(+), 24 deletions(-) diff --git a/Empresas/190/Formatos/RepCortes.rdlc b/Empresas/190/Formatos/RepCortes.rdlc index 3d72d3b77..b967bd1ab 100644 --- a/Empresas/190/Formatos/RepCortes.rdlc +++ b/Empresas/190/Formatos/RepCortes.rdlc @@ -402,6 +402,7 @@ =Fields!SerieFolio.Value @@ -415,6 +416,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -434,6 +436,7 @@ =Fields!NombreComercial.Value @@ -447,6 +450,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -468,6 +472,7 @@ @@ -481,6 +486,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -501,6 +507,7 @@ =Fields!MetodoPago.Value @@ -514,6 +521,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -1668,6 +1676,10 @@ /* Local Query */ + + CveVenta + System.Integer + SerieFolio System.String diff --git a/Empresas/193/Formatos/RepCortes.rdlc b/Empresas/193/Formatos/RepCortes.rdlc index 5b7ac4c46..8a722aea3 100644 --- a/Empresas/193/Formatos/RepCortes.rdlc +++ b/Empresas/193/Formatos/RepCortes.rdlc @@ -182,6 +182,7 @@ =Fields!SerieFolio.Value @@ -195,6 +196,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -214,6 +216,7 @@ =Fields!NombreComercial.Value @@ -227,6 +230,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -248,6 +252,7 @@ @@ -261,6 +266,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -281,6 +287,7 @@ =Fields!MetodoPago.Value @@ -294,6 +301,7 @@ + =IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White") 2pt 2pt 2pt @@ -2577,6 +2585,10 @@ /* Local Query */ + + CveVenta + System.Integer + SerieFolio System.String diff --git a/Ventas/CatClasificaciones2.aspx.vb b/Ventas/CatClasificaciones2.aspx.vb index 4380f1c83..f1a7b9dcf 100644 --- a/Ventas/CatClasificaciones2.aspx.vb +++ b/Ventas/CatClasificaciones2.aspx.vb @@ -186,33 +186,31 @@ Partial Class Ventas_CatClasificaciones2 Protected Sub LbAgregarS_Click(sender As Object, e As EventArgs) Handles LbAgregarS.Click Dim ObjClasificaciones As New ClsClasificaciones - 'If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "", - ' -1, "", -1, "", -1, "", - ' DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then + If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "", DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then - ' 'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text, - ' 'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text, - ' 'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text, - ' TxtClasificacionS.Text = "" - ' Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion) - ' UpTitulosS.Update() + 'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text, + 'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text, + 'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text, + TxtClasificacionS.Text = "" + Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion) + UpTitulosS.Update() - ' If ObjClasificaciones.GetClasificaciones(-1, 4) Then - ' GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing - ' ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - ' GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) - ' End If + If ObjClasificaciones.GetClasificaciones(-1, 4) Then + GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing + ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + End If - ' 'DdlCuentaGastoS.SelectedValue = "-1" - ' 'DdlCuentaAnticipoS.SelectedValue = "-1" - ' 'DdlCuentaInventarioS.SelectedValue = "-1" + 'DdlCuentaGastoS.SelectedValue = "-1" + 'DdlCuentaAnticipoS.SelectedValue = "-1" + 'DdlCuentaInventarioS.SelectedValue = "-1" - ' If ViewState("Orden2").ToString() <> String.Empty Then - ' CargaGridS(ViewState("Orden2").ToString()) - ' Else - ' CargaGridS("") - ' End If - 'End If + If ViewState("Orden2").ToString() <> String.Empty Then + CargaGridS(ViewState("Orden2").ToString()) + Else + CargaGridS("") + End If + End If ObjClasificaciones.Dispose() End Sub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index bd8cae3a5..fbbffc483 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5073,7 +5073,7 @@ Partial Class Ventas 'End If 'si utiliza cortes, y cajas, no permitir cancelar de días anteriores If UsuarioActual.CveRol <> 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then - LbCancelarDocumento.Visible = False + LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378) End If End If