Como mandar N numero de registros a cambio de etapa - VB y SQL
Publicado por Jonathan (3 intervenciones) el 18/01/2021 22:29:04
Hola amigos podrían asesorarme en solucionar el siguiente detalle que tengo por favor.
El siguiente código lo estoy implementado para cambiar de etapa el registro previamente seleccionado de un Grid.
Si tengo 1 módulo registrado y 1 usuario, el cambio de etapa se realiza de manera correcta pero si tengo N numero de módulos o N numero de usuarios aquí es donde el programa se cierra.
Incluso agregue validaciones para verificar que contenga mínimo un módulo y un usuario pero al contener más de un módulo o usuario, no me reconoce las validaciones. Espero y me puedan asesorar por favor. De antemano muchas gracias.
En la siguiente imagen se ve los datos que traigo a través oDesarrollador.BuscaEnvio()
Al igual no sé si sea posible pasar columna por columna para mandar los datos si tiene mas de un registro en un arreglo y ejecutarla con un for
si es que se puede de la ultima forma en la que comente, como se pasarían?
El siguiente código lo estoy implementado para cambiar de etapa el registro previamente seleccionado de un Grid.
Si tengo 1 módulo registrado y 1 usuario, el cambio de etapa se realiza de manera correcta pero si tengo N numero de módulos o N numero de usuarios aquí es donde el programa se cierra.
Incluso agregue validaciones para verificar que contenga mínimo un módulo y un usuario pero al contener más de un módulo o usuario, no me reconoce las validaciones. Espero y me puedan asesorar por favor. De antemano muchas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub EnviarRegistro()
Try
hidIdPrueba.Value = rgrdPruebaDesarrolladores.SelectedValue
Using oDesarrollador As New libPruebas.AnceSystem.rnPruebas
oDesarrollador.Activo = 1
oDesarrollador.IdPrueba = rgrdPruebaDesarrolladores.SelectedValue
oDesarrollador.IdPrueba = hidIdPrueba.Value
Using oDesarrolladorModulo As New libPruebasModulos.AnceSystem.rnPruebasModulos
oDesarrolladorModulo.Activo = 1
oDesarrolladorModulo.IdPrueba = hidIdPrueba.Value
Using oDesarrolladorPrueba As New libPruebasUsuarios.AnceSystem.rnPruebasUsuarios
oDesarrolladorPrueba.Activo = 1
oDesarrolladorPrueba.IdPrueba = hidIdPrueba.Value
oDesarrollador.BuscaEnvio()
If oDesarrollador.objError.bError Then
Throw oDesarrollador.objError.uException
End If
If oDesarrollador.dt.Rows.Count > 0 Then
oDesarrollador.IdPrueba = oDesarrollador.Propiedades("IdPrueba")
oDesarrollador.IdPruebaStatus = oDesarrollador.Propiedades("IdPruebaStatus")
oDesarrollador.FechaPrueba = oDesarrollador.Propiedades("FechaPrueba")
oDesarrolladorPrueba.IdUsuarioPrueba = oDesarrollador.Propiedades("IdUsuarioPrueba")
oDesarrolladorModulo.IdPruebaModulo = oDesarrollador.Propiedades("IdPruebaModulo")
End If
If oDesarrollador.IdPruebaStatus = 1 Then
If oDesarrollador.dt.Rows.Count > 0 Then
Dim dateNow = DateTime.Now
dateNow = New DateTime(dateNow.Year, dateNow.Month, dateNow.Day, 0, 0, 0)
Dim fechaBase = oDesarrollador.FechaPrueba
If fechaBase >= dateNow Then
If oDesarrolladorPrueba.IdUsuarioPrueba <> "" Then
If oDesarrolladorModulo.IdPruebaModulo <> "" Then
oDesarrollador.EnviarDatos()
rgrdPruebaDesarrolladores.Rebind()
RadMsgBox(rwinManager, "Se a Enviado el Registro a Pruebas", "Datos Enviado a Pruebas", clssMensaje.eImgMessage.Exitoso)
Else
RadMsgBox(rwinManager, "Se requiere un Módulo registrado</p> Verifique el Módulo", "Advertencia de Envio a Prueba", clssMensaje.eImgMessage.Alert)
End If
Else
RadMsgBox(rwinManager, "Se requiere un Usuario de Prueba registrado</p> Verifique el Usuario de Prueba", "Advertencia de Envio a Prueba", clssMensaje.eImgMessage.Alert)
End If
Else
RadMsgBox(rwinManager, "La fecha seleccionada debe de ser igual o mayor al díá Actual</p> Verifique la fecha", "Advertencia de Envio a Prueba", clssMensaje.eImgMessage.Alert)
End If
End If
ElseIf oDesarrollador.IdPruebaStatus = 2 Then
RadMsgBox(rwinManager, "El Módulo seleccionado ya esta en Pruebas", "Módulo en Prueba", clssMensaje.eImgMessage.Alert)
ElseIf oDesarrollador.IdPruebaStatus = 3 Then
RadMsgBox(rwinManager, "El Módulo seleccionado ya esta en Inicio de Prueba", "Módulo en Prueba", clssMensaje.eImgMessage.Alert)
ElseIf oDesarrollador.IdPruebaStatus = 4 Then
RadMsgBox(rwinManager, "El Módulo seleccionado ya esta en Prueba Terminada", "Módulo en Prueba", clssMensaje.eImgMessage.Alert)
ElseIf oDesarrollador.IdPruebaStatus = 5 Then
RadMsgBox(rwinManager, "El Módulo seleccionado ya esta Cerrado", "Módulo Cerrado", clssMensaje.eImgMessage.Alert)
ElseIf oDesarrollador.IdPruebaStatus = 6 Then
RadMsgBox(rwinManager, "El Módulo seleccionado se ecuentra eliminado", "Módulo Eliminado", clssMensaje.eImgMessage.Alert)
End If
End Using
End Using
End Using
Catch ex As Exception
RadMsgBox(rwinManager, "Problemas al Enviar datos del Módulo, intente nuevamente", "Problemas al guardar", clssMensaje.eImgMessage.Error, ex)
End Try
End Sub
En la siguiente imagen se ve los datos que traigo a través oDesarrollador.BuscaEnvio()
Al igual no sé si sea posible pasar columna por columna para mandar los datos si tiene mas de un registro en un arreglo y ejecutarla con un for
si es que se puede de la ultima forma en la que comente, como se pasarían?
Valora esta pregunta
0