-- merge Procedimientos

This commit is contained in:
2023-12-07 12:54:58 -07:00
parent 4b99d4ab0e
commit 5706953e80
10 changed files with 1060 additions and 48 deletions

View File

@@ -56,7 +56,7 @@ Partial Class Ventas_CatProcedimientos
ProcesoOK = True
End If
Else
If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
ProcesoOK = True
End If
End If