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

-- idcta

Browse Source
This commit is contained in:
rrene
2023-11-17 13:16:27 -07:00
parent 0db011e749
commit 69cfb6e609
4 changed files with 52 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
Ventas/CatClasificaciones2.aspx.vb
View File

@@ -186,33 +186,33 @@ 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, "",
' -1, "", -1, "", -1, "",
' 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
@@ -362,17 +362,17 @@ Partial Class Ventas_CatClasificaciones2
Dim DdlCategoria As DropDownList = GvDatosS.Rows(e.RowIndex).FCDropDownList("DdlCategoria")
'Dim IDCuentaGasto As Integer = GvDatosS.Rows(e.RowIndex).FCDropDownList("DdlCuentaGasto").SelectedValue.ToEntero
If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", -1, "", -1, "", -1, "", Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then
'DdlGasto.SelectedValue.ToEntero, DdlGasto.SelectedItem.Text,
'DdlAnticipo.SelectedValue.ToEntero, DdlAnticipo.SelectedItem.Text,
'DdlInventario.SelectedValue.ToEntero, DdlInventario.SelectedItem.Text,
'If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", -1, "", -1, "", -1, "", Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then
' 'DdlGasto.SelectedValue.ToEntero, DdlGasto.SelectedItem.Text,
' 'DdlAnticipo.SelectedValue.ToEntero, DdlAnticipo.SelectedItem.Text,
' 'DdlInventario.SelectedValue.ToEntero, DdlInventario.SelectedItem.Text,
GvDatosS.EditIndex = -1
If ObjClasificaciones.GetClasificaciones(-1, 4) Then
ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
End If
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If
' GvDatosS.EditIndex = -1
' If ObjClasificaciones.GetClasificaciones(-1, 4) Then
' ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
' End If
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
'End If
ObjClasificaciones.Dispose()

19
Ventas/CatClasificacionesDetalle.aspx.vb
View File

@@ -139,9 +139,7 @@ Partial Class CatClasificacionesDetalle
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.UpdateClasificacion(TxtClasificacion.Text, "", DdlCuentaGasto.SelectedValue.ToEntero, DdlCuentaGasto.SelectedItem.Text,
DdlCuentaCostos.SelectedValue.ToEntero, DdlCuentaCostos.SelectedItem.Text, DdlCuentaIngresos.SelectedValue.ToEntero, DdlCuentaIngresos.SelectedItem.Text,
ChkEstado.Checked, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then
If ObjClasificaciones.UpdateClasificacion(TxtClasificacion.Text, "", ChkEstado.Checked, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion) Then
GvDatos.EditIndex = -1
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -251,14 +249,13 @@ Partial Class CatClasificacionesDetalle
Dim DdlCostos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaCostos")
Dim DdlIngresos As DropDownList = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuentaIngresos")
If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlGasto.SelectedValue.ToEntero, DdlGasto.SelectedItem.Text,
DdlCostos.SelectedValue.ToEntero, DdlCostos.SelectedItem.Text, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then
GvDatos.EditIndex = -1
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If
'If ObjClasificaciones.UpdateClasificacionSubProyecto(tCveClasificacion, CveSubProyecto, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text) Then
' GvDatos.EditIndex = -1
' ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
'Else
' Alert("Ocurrió un error al actualizar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
'End If
ObjClasificaciones.Dispose()