EN EL BOTON PROCESAR NOTAS.
colW = 12
NumDocW = SPACE(15)
ApeW = SPACE(20)
NomW=SPACE(20)
NotaW=SPACE(15)
Comp1W=SPACE(2)
Comp2W=SPACE(2)
Comp3W=SPACE(2)
Comp4W=SPACE(2)
Comp5W=SPACE(2)
FaltaConJusW=SPACE(5)
FaltaSinJusW=SPACE(5)
DesempenoW=SPACE(10)
USE notas EXCLUSIVE
SELECT notas
APPEND
FROM &fILEW
DELIMITED
WITH CHARACTER ';'
REPLACE
ALL Nie WITH Nie
GO TOP
DO WHILE colW <
12
IF SUBSTR(NumDocW,colW,1) = ' '
colW = colW - 1
REPLACE nie
WITH SUBSTR(NumDocW,1,colW+1)
REPLACE apellidos
WITH (SUBSTR(NomW,colw+2,12))
replace nombres
WITH SUBSTR(ApeW,colw+3,12)
replace nota
WITH SUBSTR(NotaW,colw+4,12)
replace comp1
WITH SUBSTR(Comp1W,colw+5,12)
replace comp2
WITH SUBSTR(Comp2W,colw+6,12)
replace comp3
WITH SUBSTR(Comp3W,colw+7,12)
replace comp4
WITH SUBSTR(Comp4W,colw+8,12)
replace comp5
WITH SUBSTR(Comp5W,colw+9,12)
replace faltaconjus
WITH SUBSTR(FaltaConJusW,colw+10,12)
replace faltasinjus
WITH SUBSTR(FaltaSinJusW,colw+11,12)
replace
desempeno WITH SUBSTR(DesempenoW,colw+12,12)
colW = 12
IF EOF()
EXIT
ELSE
SKIP
ENDIF
ELSE
colW = colW + 1
ENDIF
ENDDO
IF MESSAGEBOX("Datos Importados con exito!!!, desea
salir?",4+64,"CLIC")=6
thisform.Release
ENDIF
thisform.grid1.RecordSource="notas"
thisform.grid1.Refresh
