como puedo armar prueba de caja blanca con estructura de grafos

Question

necesito sacar la prueba de caja blanca de un modulo de mi proyecto

Answer 1

quien me podra ayudar :(

Answer 2

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