CGM: |
<%=Dados("RGM")%> |
NOME: |
<%=Dados("NOME")%> |
SÉRIE: |
<%=Dados("SERIE")%> |
TURMA: |
<%=Dados("TURMA")%> |
Nº: |
<%=Dados("NUMERO")%> |
<%SQLSTMT = "SELECT * FROM notaS WHERE RGM = '" &RGM& "'"
SQLSTMT = "SELECT M.*,MED.MED1,MED.MED2,MED.MED3,MED.MED4 FROM notaS M,MED_TURMA MED,ALUNOS A WHERE A.RGM = '" &RGM & "' " & _
"And M.RGM=A.RGM And MED.SERIE = A.Serie And MED.Turma = A.Turma and Med.disciplina=M.disciplina"
Set Dados = Banco.Execute(SQLSTMT)
Dim bVazio : bVazio = false
If Dados.EOF Then
bVazio = true%>
Aguarde
Publicações!
<%Else%>
Disciplinas
|
1º
Bim |
2º Bim |
3º Bim |
4º Bim |
Total
Pontos |
Total
Faltas |
Recuper.
|
Média
Final |
Resultado |
Prova |
FT |
Prova |
FT |
Prova |
FT |
Prova |
FT |
<% Dim Nota(5)
Dim Trab(5) 'Trabalho
Dim Comp(5) 'Comportamento
Dim Falta(5)
Dim Ponto(5)
Dim Rec(5)
Dim Media(5) 'Média Trimestral
Dim Precal(5)
Dim Exame
dim strsit
Function ARREDONDA(NOTA)
' VAR VOLTA,X,Y:REAL;
' BEGIN
' {NOTA:=NOTA+0.25;}
'NOTA = CSng(Replace(NOTA, ",", "."))
NOTA = CSng(NOTA)
X = NOTA - Int(NOTA)
Y = 0
IF (X>=0.10) AND (X<=0.2499) THEN Y=0
IF (X>=0.25) AND (X<=0.4999) THEN Y=0.5
IF (X>=0.50) AND (X<=0.7499) THEN Y=0.5
IF (X>=0.75) AND (X<=0.9999) THEN
NOTA = NOTA + 1
Y = 0
END IF
VOLTA = Int(NOTA) + y
Arredonda=VOLTA
End Function ';{FIM DA FUNC. A
'---------------------------------------------------------------
Function fcalcbim(pser,paval,Pprov,ptrab,pcomp,prec,precal)
'var total,total1,total2,total3,total4,vprov,vtrab,vcomp,vrec:real;
'begin
total=0
total1=0
total2=0
total3=0
total4=0
'vprov=CSng(Replace(pprov,",",".")) ' except vprov:=0 end;
vprov=CSng(pprov)
'vtrab=CSng(Replace(ptrab,",",".")) 'except vtrab:=0 end;
vtrab=CSng(ptrab)
'vcomp=CSng(Replace(pcomp,",",".")) 'except vcomp:=0 end;
vcomp=CSng(pcomp)
'vrec=CSng(Replace(prec,",",".")) 'except vrec:=0 end;
vrec=CSng(prec)
precal = CSng(precal)
if vprov=0.1 then vprov=0
if vtrab=0.1 then vtrab=0
if vcomp=0.1 then vcomp=0
if vrec=0.1 then vrec=0
if (pser="1S") or (pser="2S") or _
(pser="3S") or (pser="4S") or (pser="5S") then
total1=vprov
total=total1
end if
if (pser="6S") or (pser="7S") then
if (vrec>vprov) then vprov=vrec
if (vrec>6) then vprov=6
total2=((vprov*4)+(vtrab*3)+(vcomp*3))/10
if paval="N" then total2=(vtrab+vcomp)/2
total=arredonda(total2)
end if
if (pser="8S") or (pser="9S") then
if (vrec>vprov) then vprov=vrec
if (vrec>6) then vprov=6
total3=((vprov*5)+(vtrab*3)+(vcomp*2))/10
if paval="N" then total3=(vtrab+vcomp)/2
total=arredonda(total3)
end if
if (pser="1C") or (pser="2C") or (pser="3C") then
'Response.Write("entrou aki ")
if vrec=0 then total4=(vprov+vtrab)/2
if paval="N" then total4=(vtrab+vcomp)/2
'Response.Write("Vtrab: " & vtrab & " - VComp: " & vcomp & " - Total4: " & total4 & " ")
total=arredonda(total4)
if vcomp > 0 then total = vcomp
end if
'if precal > 0 then total = precal
if (total > 0) then fcalcbim = total 'formatfloat('#0.0',total) else result:='-';
end function
'--------------------------------------------------------------------------------
Do While not Dados.EOF
'response.write(strSerie)
' If Nota(1) > 0 OR Nota(2) > 0 OR Nota(3) > 0 OR Nota(4) > 0 then
Total_Pontos = 0
For N = 1 To 4
Nota(N) = 0
Rec(N) = 0
Media(N) = 0
Next
'--------------------------------------
If Not IsNull(Dados("NOTA01")) Then
'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then
If IsNumeric(Dados("NOTA01")) Then
'Response.Write("é número") : Response.End()
Nota(1) = Dados("NOTA01")
'Response.Write (Nota(1)*1)
End If
End If
'--------------------------------------
If Not IsNull(Dados("NOTA02")) Then
'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then
If IsNumeric(Dados("NOTA02")) Then
'Response.Write("é número") : Response.End()
Nota(2) = Dados("NOTA02")
'Response.Write (Nota(1)*1)
End If
End If
'--------------------------------------
If Not IsNull(Dados("NOTA03")) Then
'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then
If IsNumeric(Dados("NOTA03")) Then
'Response.Write("é número") : Response.End()
Nota(3) = Dados("NOTA03")
'Response.Write (Nota(1)*2)
End If
End If
'-------------------------------------
If Not IsNull(Dados("NOTA04")) Then
'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then
If IsNumeric(Dados("NOTA04")) Then
'Response.Write("é número") : Response.End()
Nota(4) = Dados("NOTA04")
'Response.Write (Nota(1)*2)
End If
End If
'-------------------------------------
'-------------------------------------
If IsNumeric(Dados("FALTA01")) then
Falta(1) = Dados("FALTA01")
else
Falta(1) = 0
end if
If IsNumeric(Dados("FALTA02")) then
Falta(2) = Dados("FALTA02")
else
Falta(2) = 0
end if
If IsNumeric(Dados("FALTA03")) then
Falta(3) = Dados("FALTA03")
else
Falta(3) = 0
end if
If IsNumeric(Dados("FALTA04")) then
Falta(4) = Dados("FALTA04")
else
Falta(4) = 0
end if
Exame = 0
If IsNumeric(Dados("EXAME")) then
if Dados("EXAME") > 0 then Exame = Dados("EXAME")
end if
'Mf=(M1+m2+m3+m4)/4 tem q ser 6 para aprovado
'Se o exame >0 faça Mf=(((M1+m2+m3+m4)/4) +exame)/2 tem q ser 5 para aprovado
MediaFinal = (Nota(1)+Nota(2)+Nota(3)+Nota(4))/4
sRes = "R"
if Exame > 0 then
MediaFinal = (((Nota(1)+Nota(2)+Nota(3)+Nota(4))/4) +exame)/2
if MediaFinal > 4.7 then sRes = "A"
else
if MediaFinal > 5.7 then sRes = "A"
end if
IF sRes = "R" and strsit="C" then sRes = "C"
'Ponto(1) = Dados("PONTOS1")
'Ponto(2) = Dados("PONTOS2")
'Ponto(3) = Dados("PONTOS3")
'Ponto(4) = Dados("PONTOS4")
For N = 1 To 4
Total_Pontos = Total_Pontos + Nota(N)
Next
'Total_Pontos = FormatNumber(Total_Pontos,1)
'if Total_Pontos = 0 then Total_Pontos = " "
'If Dados("MATERIA") = "EDUCAÇÃO FÍSICA" And (Total_Pontos >= 99) Then
' Total_Pontos = "Apto"
'End If
'Ponto(1)+Ponto(2)+Ponto(3)+Ponto(4)
Total_Faltas = Falta(1)+Falta(2)+Falta(3)+Falta(4)
If Total_Faltas = 0 Then Total_Faltas = " "
PegaNotas1 = PegaNotas1 & Nota(1) & ";"
PegaNotas2 = PegaNotas2 & Nota(2) & ";"
PegaNotas3 = PegaNotas3 & Nota(3) & ";"
PegaNotas4 = PegaNotas4 & Nota(4) & ";"
PegaMedTur1 = PegaMedTur1 & dados("MED1") & ";"
PegaMedTur2 = PegaMedTur2 & dados("MED2") & ";"
PegaMedTur3 = PegaMedTur3 & dados("MED3") & ";"
PegaMedTur4 = PegaMedTur4 & dados("MED4") & ";"
PegaDiscips = PegaDiscips & Dados("disciplina") & ";"
'For N = 1 To 3
'If (Nota(N) = Empty) Or (IsNull(Nota(N))) Then
'Nota(N) = " "
'End If
'If (Falta(N) = Empty) Or (IsNull(Falta(N))) Then
'Falta(N) = " "
'End If
'If Left(Nota(N),2) = "99" Then
'Response.Write("nota -99 ")
' Nota(N) = "Apto"
'End If
'Next
'For N = 1 To 4
' If Nota(N) <> "Apto" Then
'Response.Write(Nota(N))
' Nota(N) = Replace(Nota(N), ",", ".")
'Response.Write(Nota(N))
' Response.Write(IsNumeric(Nota(N)))
' Nota(N) = CSng(Nota(N))
' If Nota(N) < 6 Then
' Response.Write("nota negativa! ")
' End If
' End If
'Next
%>
<%=Dados("disciplina")%> |
<% If Nota(1) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(1), 1)) %>
|
<%=FALTA(1)%> |
<% If Nota(2) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(2), 1)) %>
|
<%=FALTA(2)%> |
<% If Nota(3) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(3), 1)) %>
|
<%=FALTA(3)%> |
<% If Nota(4) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(4), 1)) %>
|
<%=FALTA(4)%> |
<%= FormatNumber(Total_Pontos, 1) %> |
<%= Total_Faltas %> |
<% If exame = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(exame, 1)) %> |
<% If MediaFinal = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(arredonda(MediaFinal), 1)) %> |
<%=sRes%> |
<%Dados.Movenext
Loop%>
FT = FALTA
Result
= A = Aprovado
Result
= R = Reprovado
Result
= C = Aprovado pelo Conselho
<%End If%>
<%
if not (bVazio) then
For N = 1 To 4
if N = 1 then sLink = "Notas=" & Mid(PegaNotas1,1,Len(PegaNotas1)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur1,1,Len(PegaMedTur1)-1)
if N = 2 then sLink = "Notas=" & Mid(PegaNotas2,1,Len(PegaNotas2)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur2,1,Len(PegaMedTur2)-1)
if N = 3 then sLink = "Notas=" & Mid(PegaNotas3,1,Len(PegaNotas3)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur3,1,Len(PegaMedTur3)-1)
if N = 4 then sLink = "Notas=" & Mid(PegaNotas4,1,Len(PegaNotas4)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur4,1,Len(PegaMedTur4)-1)
'Response.Write sLink %>
<%Next
end if%>
[
Log-Out
] [
] |