<%@ Page Language="VB" MasterPageFile="~/masterpages/MaestraRegistro.master" AutoEventWireup="false" CodeFile="crias.aspx.vb" Inherits="Registro_crias" Title="Crias del animal" %>
CRIAS
▲ Por arriba del promedio
► Promedio
▼ Por debajo del promedio
   HIJOS: 0 HIJAS: 0 GENERAL: 0
  Tienta Lidia Tienta Lidia Tienta Lidia
A Pie - -
A Caballo  - -
<% If count > 0 Then%>
General
Tienta
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%> <% If (CInt(dct("G-T-P-"+st.ToString +"-C").ToString()) = 1) %>
<%=dct("G-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("G-T-P-"+st+"-C").ToString()) = 2 )%>
<%=dct("G-T-P-" + st.ToString).ToString %>
<%=st.ToString()%>
<% ElseIf CInt(dct("G-T-P-"+st+"-C").ToString()) = 3 Then%>
<%=dct("G-T-P-" + st.ToString).ToString %>
<%=st.ToString()%>
<% end if %> <%Next%>
Totales
▲
<%# dctTotal("G-T-P-PAP")%>
►<%# dctTotal("G-T-PF") %>
<%# dctTotal("G-T-P-PROM")%>
▼
<%# dctTotal("G-T-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("G-T-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("G-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("G-T-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("G-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("G-T-C-"+st+"-C").ToString()) = 3 Then%>
<%=dct("G-T-C-" + st.ToString).ToString %>
<%=st.ToString()%>
<% end if %>
<%Next%>
 
▲
<%# dctTotal("G-T-C-PAP")%>
►<%# dctTotal("G-T-CF")%>
<%# dctTotal("G-T-C-PROM")%>
▼
<%# dctTotal("G-T-C-PDP")%>
Lidia
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("G-L-P-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("G-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("G-L-P-" + st + "-C").ToString()) = 2) Then%>
<%=dct("G-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("G-L-P-" + st + "-C").ToString()) = 3 Then%>
<%=dct("G-L-P-" + st.ToString).ToString %>
<%=st.ToString()%>
<% end if %>
<%Next%>
Totales
▲
<%# dctTotal("G-L-P-PAP")%>
►<%# dctTotal("G-L-PF")%>
<%# dctTotal("G-L-P-PROM")%>
▼
<%# dctTotal("G-L-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("G-L-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("G-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("G-L-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("G-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("G-L-C-" + st + "-C").ToString()) = 3 Then%>
<%=dct("G-L-C-" + st.ToString).ToString %>
<%=st.ToString()%>
<% end if %>
<%Next%>
 
▲
<%# dctTotal("G-L-C-PAP")%>
►<%# dctTotal("G-L-PF")%>
<%# dctTotal("G-L-C-PROM")%>
▼
<%# dctTotal("G-L-C-PDP")%>
Hijos
Tienta
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HO-T-P-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HO-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HO-T-P-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HO-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HO-T-P-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HO-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
Totales
▲
<%# dctTotal("HO-T-P-PAP")%>
►<%# dctTotal("HO-T-PF")%>
<%# dctTotal("HO-T-P-PROM")%>
▼
<%# dctTotal("HO-T-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HO-T-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HO-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HO-T-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HO-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HO-T-C-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HO-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
 
▲
<%# dctTotal("HO-T-C-PAP")%>
►<%# dctTotal("HO-T-CF")%>
<%# dctTotal("HO-T-C-PROM")%>
▼
<%# dctTotal("HO-T-C-PDP")%>
Lidia
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HO-L-P-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HO-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HO-L-P-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HO-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HO-L-P-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HO-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
Totales
▲
<%# dctTotal("HO-L-P-PAP")%>
►<%# dctTotal("HO-L-PF")%>
<%# dctTotal("HO-L-P-PROM")%>
▼
<%# dctTotal("HO-L-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HO-L-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HO-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HO-L-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HO-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HO-L-C-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HO-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
 
▲
<%# dctTotal("HO-L-C-PAP")%>
►<%# dctTotal("HO-L-CF")%>
<%# dctTotal("HO-L-C-PROM")%>
▼
<%# dctTotal("HO-L-C-PDP")%>
Hijas
Tienta
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HI-T-P-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HI-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HI-T-P-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HI-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HI-T-P-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HI-T-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
Totales
▲
<%# dctTotal("HI-T-P-PAP")%>
►<%# dctTotal("HI-T-PF")%>
<%# dctTotal("HI-T-P-PROM")%>
▼
<%# dctTotal("HI-T-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HI-T-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HI-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HI-T-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HI-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HI-T-C-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HI-T-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
 
▲
<%# dctTotal("HI-T-C-PAP")%>
►<%# dctTotal("HI-T-CF")%>
<%# dctTotal("HI-T-C-PROM")%>
▼
<%# dctTotal("HI-T-C-PDP")%>
Lidia
A Pie
A Caballo
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HI-L-P-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HI-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HI-L-P-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HI-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HI-L-P-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HI-L-P-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next%>
Totales
▲
<%# dctTotal("HI-L-P-PAP")%>
►<%# dctTotal("HI-L-PF")%>
<%# dctTotal("HI-L-P-PROM")%>
▼
<%# dctTotal("HI-L-P-PDP")%>
<% For Each st In dcCalificacion.Keys%>
<% If (CInt(dct("HI-L-C-" + st.ToString + "-C").ToString()) = 1) Then%>
<%=dct("HI-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf (CInt(dct("HI-L-C-" + st + "-C").ToString()) = 2) Then%>
<%=dct("HI-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% ElseIf CInt(dct("HI-L-C-" + st + "-C").ToString()) = 3 Then%>
<%=dct("HI-L-C-" + st.ToString).ToString%>
<%=st.ToString()%>
<% end if %>
<%Next %>
 
▲
<%# dctTotal("HI-L-C-PAP")%>
►<%# dctTotal("HI-L-CF")%>
<%# dctTotal("HI-L-C-PROM")%>
▼
<%# dctTotal("HI-L-C-PDP")%>

<% End If%>
No existen crias para el animal seleccionado.