Donde puedo enecontrar un manual de Dbase IV porque no me imprime los reportes en programa viejito en Win Vista ni en Win7, esto si lo hace en Win 98 y louqe hace lo correr en Win XP con los emuladiores de impresora (PDF Creator) este es la rutina mi correo es
[email protected] si noo es posible imprimer como puedo enviar la informacion a un archivo TXT o DBF. De antemano Gracias...
procedure imprime
store 0 to valorsup,contreg,disope,dismec,disele,disins,v_copia
v_enca1 = "C A R N E T"
v_coll1 = (189 - len(v_enca1)) / 2
v_enca4 = "MEXICANA DE COBRE S. A. DE C. V."
v_coll4 = (172 - len(v_enca4)) / 2
v_enca5 = "CARNET DE CAPACITACION, USO EXCLUSIVO. NO ES UN DOCUMENTO OFICIAL"
v_coll5 = (150 - len(v_enca5)) / 2
v_enca6 = "NOTA : EVALUACION = 0 (PLATICA O EVENTO)"
v_coll6 = (150 - len(v_enca6)) / 2
disscip = " "
store space(8) to v_fini,v_ffin
do &camino.colstand
desrep = v_enca1
tipapel = "CARTA"
if readkey() <> 12
save screen to perso
_porientation = "PORTRAIT"
_pageno = 1
_plineno = 1
v_pag = 0
set device to screen
set print on
set console off
v_resu = "N"
v_hoja = 0
v_cont = 0
v_contar = 62
v_avanza = "N"
set color to &c_standard.
clear
@ 2,(79-len(v_enca4))/2 say v_enca4 color w+/bg
@ 4,(79-len(v_enca1))/2 say v_enca1 color w/bg
@ 12,12 say "Espere un Momento, Imprimiendo N£m. Registro : [ ]" color &c_datos2.
select 2
seek v_numero + v_tipo
if .not. eof()
do while numero = v_numero .and. tipoperso = v_tipo
do lineas
select 2
skip
enddo
do notapie
else
if v_numero <> space(6)
do encabe
?
?
?
?
?
?
?
?
?
?"ESTA PERSONA NO HA ASISTIDO A NINGUN CURSO" style "3B" at 25
?
endif
endif
endif
restore screen from perso
clear gets
close printer
set print off
set console on
return
&& Esta es la rutina que queero que envia a un archivo...
procedure lineas
store space(5) to v_eva, v_asis
v_nomins = space(40)
v_cvein = space(6)
v_tipoin = " "
v_descur = space(35)
v_numcur = space(10)
dura = 0
if baja = "S"
v_eva = evaluacion
else
v_eva = calif
endif
v_asis = asistencia
v_cvecurso = cvecurso
v_numcur = numcurso
select 1
seek v_numcur + v_cvecurso
if .not. eof()
v_fini = finicio
v_ffin = ffinal
dura = val(duracion)
endif
select 4
seek v_cvecurso
if .not. eof()
v_descur = descurso
endif
select 6
seek v_numcur + v_cvecurso
if .not. eof()
v_cveins = cveinst
v_tipoin = tipoperso
select 5
seek v_cveins + v_tipoin
if .not. eof()
v_nomins = trim(paterno) + " " + trim(materno) + " " + nombre
endif
endif
if _plineno >= 54 .or. _pageno > v_pag
do encabe
v_avanza = "S"
endif
v_cont = v_cont + 1
@ 12,60 say str(v_cont,4,0) color &c_datos2.
? transform(val(v_numcur),"999999") style "7"
??substr(v_descur,1,30) style "7" at 6.5
??v_fini style "7" at 29
??v_ffin style "7" at 36.5
??transform(dura,"999") style "7" at 44
??substr(v_nomins,1,28) style "7" at 47
do case
case (val(v_eva) >= 0 .and. val(v_eva) <= 100) .and. v_eva <> space(5) .and. v_eva <> "NP " .and. v_eva <> "N.P. "
??transform(val(v_eva),"999") style "7" at 69
case v_eva = space(5)
??"-" style "7" at 70
case v_eva = "NP" .or. v_eva = "N.P."
??"N.P." style "7" at 69
endcase
do case
case (val(v_asis) >= 0 .and. val(v_asis) <= 100) .and. v_asis <> space(5) .and. v_asis <> "NP " .and. v_asis <> "N.P. "
??transform(val(v_asis),"999") style "7" at 76
case v_asis = space(5)
??"-" style "7" at 77
case v_asis = "NP" .or. v_asis = "N.P."
??"N.P." style "7" at 76
endcase
if _plineno >= 58 .or. _pageno > v_pag
do datos
do encabe
endif
return
procedure encabe
if v_avanza = "S"
eject
endif
fecha = ltrim(str(day(date()))) + "/" + substr(cmonth(date()),1,3) + "/" + ltrim(str(year(date())))
v_hoja = v_hoja + 1
? space(v_coll4) + v_enca4 style "1B"
? fecha style "3B"
??"HOJA : " + trim(str(v_hoja,5,0)) style "3B" at 70
? space(v_coll1) + v_enca1 style "1B"
?
?
?
? "NUMERO" style "3B"
??":" style "3B" at 10
??v_numero style "6B" at 11
? "NOMBRE" style "3B"
??":" style "3B" at 10
??trim(v_pat) + " " + trim(v_mat) + " " + trim(v_nom) style "6B" at 11
? "DEPARTAMENTO" style "3B"
??":" style "3B" at 10
??edosupe style "6B" at 11
? "SECCION" style "3B"
??":" style "3B" at 10
??v_descto style "6B" at 11
?
?"CURSOS ASISTIDOS" style "3B"
?repli("-",255) style "3B"
? "No. CURSO" style "3B"
??"CURSO" style "3B" at 10
??"FECHAS: " style "3B" at 24.5
??"INICIO" style "3B" at 30
??"FINAL" style "3B" at 37
??"HRS." style "3B" at 44
??"INSTRUCTOR" style "3B" at 50
??"EVALUACION" style "3B" at 66
??"ASISTENCIA" style "3B" at 74
?repli("-",255) style "3B"
v_contar = 14
v_pag = _pageno
_plineno = 15.10
return
procedure notapie
do while .t.
?
v_contar = v_contar + 1
if _plineno >= 58 .or. _pageno > v_pag
do datos
exit
endif
enddo
return
procedure datos
?
?repli("-",183) style "2B"
?space(v_coll5) + v_enca5 style "2B"
?
?
?space(v_coll6) + v_enca6 style "2B"
?repli("-",183) style "2B"
return
procedure limpiar
set color to &c_standard.
@ 5,0 clear to 22,88
return
procedure pantalla
set color to &c_standard.
clear
set color to &c_datos2.
@ 1,67 say date()
set color to w/bg
@ 2,34 say "C A R N E T"
return
procedure selecc
do borrarea
@ 20,10 say "Teclee A/S ¢ si es el registro que busca presione <Enter>" color &c_mensaje.
set color to gr+/b
@ 24,18 say "A"
@ 24,29 say "S"
set color to &c_desfun.
@ 24,19 say "nterior"
@ 24,30 say "iguiente"
return
