Ejercicio Recuperatorio Mundiales

private Function cargarPartidos (anioMundial as Integer, equipoCodigo as Integer, lstSalida as ListBox) as Integer
Dim rsPartido as Recordset
Dim strCriterio as String , strCriterioGlobal as String
Dim contList as Integer

contList = 0

set rsPartido = abrirRs("Partido")

lstSalida.clear

strCriterio = "ptdMundialAnio = " & anioMundial & " AND ((ptdEqLocal = " & equipoCodigo & ") OR (ptdEqVisitante = " & equipoCodigo & ") AND
ptdFecha < #" & format(now,"yyyy-mm-dd") & "#"
strCriterioGlobal = "ptdMundialAnio = " & anioMundial & " AND ptdFecha < #" & format(now,"yyyy-mm-dd") & "#"

'si equipo codigo es -1 tengo que mostrar todos los partidos del mundial , caso contrario muestro el codigo del equipo que me solicitan y cargo dichos
'partidos en el listbox'

lstSalida.addItem "-Seleccione-"
lstSalida.itemData(lstSalida.newIndex) = -1
lstSalida.newIndex = 0

If equipoCodigo = -1 Then
    rsPartido.findFirst strCriterioGlobal
        Do while not rsPartido.noMatch strCriterioGlobal
            lstSalida.addItem rsPartido("ptdFecha") & " " & rsPartido("ptdLocal") & " " & rsPartido("ptdEqLocGoles") & " - " &
            rsPartido("ptdEqVisGoles") & " " & rsPartido("ptdEqVisitante")
            lstSalida.itemData(lstSalida.newIndex) = rsPartido(ptdCodigo)
            contList = contList + 1
            rsPartido.findNext strCriterioGlobal
        loop
    else
        rsPartido.findFirst strCriterio
            Do while not rsPartido.noMatch strCriterio
                lstSalida.addItem rsPartido("ptdFecha") & " " & rsPartido("ptdLocal") & " " & rsPartido("ptdEqLocGoles") & " - " &
                rsPartido("ptdEqVisGoles") & " " & rsPartido("ptdEqVisitante")
                lstSalida.itemData(lstSalida.newIndex) = rsPartido(ptdCodigo)
                contList = contList + 1
                rsPartido.findNext strCriterio
            loop
End If

rsPartido.close
set rsPartido = nothing

cargarPartidos = contList

End Function

-------------------------------------------------------------------------------------

'Debe mostrar el nombre del campeon en el campo txtGanador, cargar los equipos participantes en lstEquipos y llamar a cargarPartidos para completar
'lstPartidos, mostrar la salida en lblCantidad

private Sub cargarMundial(anioMundial as Integer)

Dim strCriterio as String , strCriterioAux as String
Dim rsMundial as Recordset
Dim rsMundialEquipo as Recordset
Dim rsEquipo as Recordset

'cargo el ganador del mundial'
txtGanador.clear

strCriterio = "mdl_anio = " & anioMundial

set rsMundial = abrirRs("Mundial")

rsMundial.findFirst strCriterio

if not rsMundial.noMatch strCriterio then
    txtGanador.text = rsMundial("mdl_Ganador")
end if

'cargo los equipos participantes'

lstEquipos.clear

lstEquipos.addItem "-Seleccione-"
lstEquipos.itemData(lstEquipos.newIndex) = -1
lstEquipos.newIndex = 0

set rsMundialEquipo = abrirRs("MundialEquipo")

strCriterio = "mxeMundialAnio = " & anioMundial
strCriterioAux = "eqpCodigo = " & rsMundialEquipo("mxeEquipoCodigo")

rsMundialEquipo.findFirst strCriterio

Do While not rsMundialEquipo.noMatch strCriterio
    set rsEquipo = buscarRegistro("Equipo", strCriterioAux)
    lstEquipos.addItem rsEquipo("eqpNombre")
    lstEquipos.itemData(lstEquipos.newIndex) = rsEquipo("eqpCodigo")
    rsEquipo.close
    set rsEquipo = nothing
    rsMundialEquipo.findNext strCriterio
Loop

rsMundialEquipo.close

set rsMundialEquipo = nothing

'cargo los partidos'

lstPartidos.clear
lblCantidad.clear

lstPartidos.addItem "-Seleccione-"
lstPartidos.itemData(lstPartidos.newIndex) = -1
lstPartidos.newIndex = 0

lblCantidad.text = cargarPartidos(anioMundial,-1,lstPartidos)

End Sub

---------------------------------------------------------------------------------------
'supongo que obtengo como parametro el año del mundial'
private Sub lstEquipos_click (anioMundial as Integer)
    call cargarPartidos(anioMundial,Cint(lstEquipos.itemData(lstEquipos.listIndex),lstPartidos)
End Sub

---------------------------------------------------------------------------------------

private Sub btnCargarMundial_click ()
    'se debe validar el txtMundial para que ingrese correctamente a la funcion cargarMundial'

    If not IsDate(txtMundial) Then
        msgBox "El contenido ingresado no corresponde a una fecha"
        exit Sub
    End If

    If not Cdate(txtMundial) <= date.now Then
        msgBox "El anio seleccionado no es valido"
        exit sub
    End If

    'tengo que validar la regla de negocios que en este caso seria que exista un mundial en el anio seleccionado'

    If not hayMundial(txtMundial) Then
        msgBox "No existe mundial en el anio seleccionado"
        exit Sub
    End If

call cargarMundial(Cint(txtMundial))

End Sub

------------------------------------------------------------------------------------------

'a- Obtener los partidos en que el equipo (que está disponible a través del recordset almacenado en la variable orsEquipo) haya ganado por una diferencia
'de goles mayor o igual al valor de intDif. Para evitar posibles errores, solo considerar fechas anteriores al dia actual'

strCriterio = "((ptdEqLocal = " & orsEquipo("eqpCodigo") & ") OR (ptdEqVisitante = " & orsEquipo("eqpCodigo") & ")) AND ptdFecha < #" &
format(date.now,"yyyy-mm-dd") & "# AND ((ptdEqLocGoles - ptdEqVisGoles >= " & intDif & ") OR (ptdEqVisGoles - ptdEqLocGoles >= " & intDif & "))"

'b- Obtener todos los eventos del equipo IngEquipo que en su descripcion tengan la cadena parcial strEvento y sean de tipo 2, 3, o 6'

strCriterio = "evtEquipo = " & lngEquipo & " AND ((evtTipo = " & 2 & ") OR (evtTipo = " & 3 & ") OR (evtTipo = " & 6 & ")) AND
evtDescripcion like '*" & strEvento & "*'"