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

Ventas medicas fuera de linea

Browse Source
This commit is contained in:
rakcsle
2023-11-17 15:50:09 -07:00
parent 3904343f17
commit 7eb061a56c
19 changed files with 1031 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -67,6 +67,7 @@ Partial Class OS_CatEstatusOrdenServicio
CargarTodosLosDatos()
CveEstatuOS = -1
End If
RegistraScript(" $('#TxtBackgroundColor').simpleColorPicker();")
End Sub
Private Sub CargarTodosLosDatos()
@@ -93,24 +94,28 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub
Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
TxtEstatusOS.Text = ""
TxtBackgroundColor.Text = ""
BtnAgregarEstatusOS.Text = "Agregar"
divChkEstatus.Visible = False
UpBodyEstatus.Update()
UpFooter.Update()
RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()")
End Sub
Protected Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
Dim ObjEstatusOrdenServicios As New ClsOS
Dim TieneError = False
If HdnModalidad.Value = "I" Then
If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtBackgroundColor.Text.Replace("#", "")) Then
'CargaDatos()
Alert("Estatus agregado")
End If
Else
If HdnID.Value.ToEntero <> -1 Then
If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero) Then
If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero, TxtBackgroundColor.Text.Replace("#", "")) Then
TieneError = True
End If
End If
@@ -140,6 +145,7 @@ Partial Class OS_CatEstatusOrdenServicio
TxtEstatusOS.Text = GvRow.DataKey("EstatusOrdenServicio")
ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero
TxtBackgroundColor.Text = "#" & GvRow.DataKey("BackgroundColor")
BtnAgregarEstatusOS.Text = "Actualizar"
divChkEstatus.Visible = True
UpBodyEstatus.Update()
@@ -205,10 +211,16 @@ Partial Class OS_CatEstatusOrdenServicio
Dim tableResultado As DataTable = DTUsuarios
For Each Estatus As DataRow In DtEstatusOS.Rows
Dim CveColumnaEstatus As String = Estatus.Item("CveEstatusOrdenServicio").ToString
tableResultado.Columns.Add(CveColumnaEstatus, Type.GetType("System.Boolean"))
If Not tableResultado.Columns.Contains(CveColumnaEstatus) Then
tableResultado.Columns.Add(CveColumnaEstatus, Type.GetType("System.Boolean"))
End If
For Each Usuario As DataRow In tableResultado.Rows
Usuario.Item(CveColumnaEstatus) = Not IsNothing(DTEstatusUsuarios.FiltroPrimero(String.Format("CveUsuario = {0} and CveEstatusOrdenServicio = {1}", Usuario.Item("CveUsuario"), CveColumnaEstatus)))
Next
Next
DtEstatusUsuariosAsociados = tableResultado
End Sub