como puedo armar prueba de caja blanca con estructura de grafos

0 votos
preguntado por yenired (200 puntos) Ene 28, 2016 en .Net
necesito sacar la prueba de caja blanca de un modulo de mi proyecto

2 Respuestas

0 votos
respondido por yenired (200 puntos) Ene 28, 2016
PUBLIC SUB guardar_Click()

DIM codepar AS String

DIM hres AS Result

DIM RESP AS String

DIM query AS String

DIM Clave AS String

DIM res AS result

RESP = Message.Question("¿Desea guardar los datos introducidos?", "Guardar", "No Guardar")

IF RESP = 1

    conexion.ConectarBase()

    conexion.hconn.begin

    hres = conexion.hconn.CREATE("expedientes")

    hres!cedula_alu = cedula.Text

    hres!pnombre_alu = nombre.Text

    hres!snombre_alu = snombre.Text

    hres!papellido_alu = apellido.text

    hres!sapellido_alu = sapellido.text

    hres!fecha_nac_alu = fechanac.Text

    IF femenino.Value = TRUE THEN hres!sexo_alu = "F"

    IF masculino.Value = TRUE THEN hres!sexo_alu = "M"

    hres!urbanizacion_alu = urbanizacion.Text

    hres!municipio_alu = municipio.Text

    hres!estado_alu = estado.Text

    hres!telefono_alu = telefono.Text

    hres!celular_alu = celular.Text

    hres!correo_alu = correo.Text

    hres!carrera_alu = variables.codcar

    hres!cohorte_alu = periodo_cohorte.Text & "-" & ano_cohorte.Text

    IF activo.Value = TRUE THEN hres!condicion_alu = TRUE

    IF inactivo.Value = TRUE THEN hres!condicion_alu = FALSE

    hres!cod_archivador = variables.codar

    hres!gaveta_num = gaveta.Text

    IF fotos.Value = TRUE THEN hres!fotos = TRUE

    IF ccedula.Value = TRUE THEN hres!ccedula = TRUE

    IF partida.Value = TRUE THEN hres!partida = TRUE

    IF cnotas.Value = TRUE THEN hres!cnotas = TRUE

    IF ctitulo.Value = TRUE THEN hres!ctitulo = TRUE

    IF fondonegro.Value = TRUE THEN hres!fondonegro = TRUE

    IF examenpsicologico.Value = TRUE THEN hres!examenpsicologico = TRUE

    IF certificadosalud.Value = TRUE THEN hres!certificadosalud = TRUE

    IF cinscripcionmilitar.Value = TRUE THEN hres!inscripcionmilitar = TRUE

    IF inscripcionrusnies.Value = TRUE THEN hres!registrorusnies = TRUE

    IF asignacionopsu.Value = TRUE THEN hres!asignacionopsu = TRUE

    IF inscripcionunefa.Value = TRUE THEN hres!webunefa = TRUE

    hres.update

    Message.Info("Datos guardados con éxito")

ELSE

    otro_Click()

ENDIF


0 votos
respondido por yenired (200 puntos) Ene 28, 2016
quien me podra ayudar :(


Preguntas relacionadas

0 votos
1 respuesta
0 votos
0 respuestas
preguntado por drotha2 (120 puntos) Ene 28, 2016 en .Net
0 votos
3 respuestas
0 votos
0 respuestas
preguntado por rblanco102 (140 puntos) Ago 20, 2016 en Java
Bienvenido a Dudas de Programación, donde puedes hacer preguntas y recibir respuestas sobre los problemas más frecuentes de los lenguajes de programación, frameworks de desarrollo y bases de datos que utilices. Foro de Línea de Código
...