AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX, soportes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-21 18:50:42 -07:00
parent 8379eb3b37
commit 3e6d9ec9c6
4 changed files with 46 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Ventas/CatClasificaciones2.aspx.vb
View File

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

2
Ventas/Ventas.aspx.vb
View File

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