Correciones CatProcedmientos Detalles

Ventas/CatProcedimientoDetalle.aspx.vb

@@ -44,12 +44,17 @@ Partial Class Ventas_CatProcedimientoDetalle
             CveProcedimiento = If(Request("CveProcedimiento") <> "", Request("CveProcedimiento").ToString.ToEntero, "-1".ToEntero)
 
             If CveProcedimiento > 0 Then
+
                 CargaDatos()
                 CargaProductos()
                 CargaVentas()
+                TabProductos.Visible = True
+                TabVentas.Visible = True
+                LnkAgregarProducto.Visible = True
+            Else
+                ChkEstatus.Checked = True
             End If
 
-
             DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
             If Not DdlProducto.UsaWebService AndAlso CType(DdlProducto.DataSource, DataTable) Is Nothing Then
@@ -124,19 +129,28 @@ Partial Class Ventas_CatProcedimientoDetalle
 
         If CveProcedimiento > 0 Then
             If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Alert($"Procedimiento Actualizado Correctamente.")
                 ProcesoOK = True
             End If
-            'Else
-            '    If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            '        ProcesoOK = True
-            '    End If
+        Else
+
+            CveProcedimiento = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            If CveProcedimiento > 0 Then
+                ProcesoOK = True
+                TabProductos.Visible = True
+                TabVentas.Visible = True
+                LnkAgregarProducto.Visible = True
+                UpDatos.Update()
+                Alert($"Procedimiento Guardado Correctamente.")
+            End If
+
         End If
 
         ObjVentas.Dispose()
 
         If ProcesoOK Then
-            Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
-            RegistraScript("$('#DVAgregarProcedimiento').modal('hide');")
+
+            'RegistraScript("$('#DVAgregarProcedimiento').modal('hide');")
             CargaDatos()
             CargaGlobal()
             UpDatos.Update()