Codigos de programación sucac

SUCAC9
@ nrow, 87 say saturada->hora picture “@!”
@ nrow, 87 say saturada->asesor picture “@!”
dbskip (1)
if nrow > 55 .or. lastkey()==27
exit
endif
enddo
eject
endo
set device to creen
cls
return
*******************
procedure Ppublicar
*******************
set scoreboard off
set wrap on
clssetcursor (0)
set date british
cls

// base de datos
use código
index on nommat to código2
reindex
dbgotop()

// proceso de impresión

set printer to prn
set device to printer
while !eof() .and. lastkey() !=27
@prow(), pcol() say chr (18)+(chr(27)+ “E”)
@00,22 say “S I S T E M A A B I E R T O D E E D U C A C I O N T E C N O L O G I C A I N D U S T R I A L@01,43 SAY “LISTADO DE ASIGNATURA A CURSAR EN S.A.E.T.I.”
If final12=01 .or. dfinal12=02
@02,44 say “PERIODO ESCOLAR:”+””+np
Elseif dfinal12=08 .or. dfinal12=09
@02,44 say “PERIODO ESCOLAR:”+””+np2
Else
@02,44 say np3
ENDIF
@04,02 say “CODIGO”+space(13)+”CVEMAT”+space!10)+”M A T E R I A”+;
Space(37)+“dia”+space(10)+”SALON”+space(11)+”HORARIO”
@05,01 say replicate(“=”,130)
Nrow:=5
While !eof()
@prow(), pcol() say chr(18)+(chr(27)+”E”)
@++nrow,01 say código->código picture “@!”
@ nrow,23 say código->cvemat picture “99”
@ nrow,28 say código->nommat picture “@!”
@ nrow,86 say código->dia picture “@!”
@ nrow,102 say código->salón picture “@!”
@ nrow,105 saycódigo->hora picture “@!”
Dbskip(1)
If nrow > 55 .or. lastkey()==27
Exit
Endif
enddo
eject
enddo

sucac9
set device tos creen
cls
return
*********************
procedure PListMatHor
*********************
set scoreboard offset wrap on
cls
setcursor(0)
set date british
cls

//base de datos
use codigo
index on nommat to codigo2
reindexdbgotop()

//proceso de impresion
set printer to prn
set device to printer
while !eof() .and. lastkey() !=27
@prow(), pcol() say chr (18)+(chr(27)+”E”)
@01,21 say “SISTEMA ABIERTO DE EDUCACION TECNOLOGICA INDUSTRIAL”
if dfinal12=01 .or. dfinal12=02
@02,20 say “PERIODO ESCOLAR:”+””+np
elseif dfinal12=08 .or. dfinal12=09
@02,20 say “PERIODO ESCOLAR:”+””+np2
else@02,20 say np3
ENDIF
@prow(), pcol() say chr(15)
@04,02 say “CODIGO”+space(7)+”CVMAT”+space(10)+”M A T E R I A”

space(31)+”DIA”+space(3)+”SALON”+space(3)+”HORARIO”+space(13)+”ASESOR”
@05,01 SAY REPLICATE(“=”,130)
nrow:=5
while !eof()
@prow() ,pcol() say chr(15)
@++nrow,01 say código->código picture”@!”
@ nrow,17 say código->código picture”99”
@nrow,20 say código->código picture”@!”
@ nrow,73 say código->código picture”@!”
@ nrow,83 say código->código picture”@!”
@ nrow,87 say código->código picture”@!”
@ nrow,100 say código->código picture”@!”
dbskip(1)
if nrow > 55 .or. lastkey()==27
exit
endif
enddo
eject
enddo
set device to screen
cls
return*********************
procedure PListMatAse
*********************
Set cursor off
Set date british

// variables a utilizar
@07,32 clear to 23,74
Dispbox(07,32,23,74,2)
@22,34 say “Presione [ESC] para salir de Impresión” color cletero
setcolor(cget2)
@10,37 clear to 14,70
dispbox(10,37,14,70,2,cget2)

//base de datos a utilizar

Use código new alias codase
Index on codase->código to códigoSet index to código

Use regord nwe->código to MATEASE
Reindex
Dbgotop()

Sort on nomalum, código to reordaux

Use reordaux new alisas aseso2
Index on aseso2->código to reordaux
Reindex
Dbgotop()

Set relation to aseso->código into codase
Reindex

//bucle de proceso
While .T.
Store space (20) to código

@11,42 say “código a Imprimir” color cget2
@12,39...