FiveTech Support Forums

Amigos del Foro,

1.- En una aplicacion necesito mandar un reporte a impresora , hasta aqui ok, pero ahora necesito enviarlo por correo para ello debo redireccionar la salida a un archivo de texto para adjuntarlo al email, alguien puede orientarme como hacer eso con la clase Tprinter y con la Treport.

2.- Alguien sabe como hacer operaciones con campos de hora ? tengo una tabla con las horas de entrada de un vehiculo a reparacion y con las horas de salida hay funciones especificas para hacer operaciones simples como suma y resta con los campos hora ?

Desde ya agradeciendo sus amables atenciones,

Un saludo desde Managua, Nicaragua

Ramon Paredes

Hola...
Aqui tengo algo para las horas,,,,

//----------------------------------------------------------------------------------------------------
Function QTiempo(cTime1, cTime2)
local nSec1, nSec2, nSec3, nHora, nMinu

IF EMPTY(cTime1) .OR. EMPTY(cTime2) .OR. VAL(SUBSTR(cTime2,1,2)) * 3600 + VAL(SUBSTR(cTime2,4,2)) * 60 + VAL(SUBSTR(cTime2,7,2)) = 0 //VAL(cTime2) = 0 //.OR. VAL(cTime1) = 0
Return("")
EndIf

If VAL(SUBSTR(cTime1,1,2)) > VAL(SUBSTR(cTime2,1,2))
cTime2 := STRZERO( VAL(SUBSTR(cTime2,1,2)) + 24,2 ) + SUBSTR(cTime2,3,6)
EndIf

nSec1 := VAL(SUBSTR(cTime1,1,2)) * 3600 + VAL(SUBSTR(cTime1,4,2)) * 60 + VAL(SUBSTR(cTime1,7,2))
nSec2 := VAL(SUBSTR(cTime2,1,2)) * 3600 + VAL(SUBSTR(cTime2,4,2)) * 60 + VAL(SUBSTR(cTime2,7,2))
nSec3 := nSec2 - nSec1

nHora := nSec3 / 3600
nSec3 := nSec3 - INT(nHora) * 3600
nMinu := nSec3 / 60
nSec3 := nSec3 - INT(nMinu) * 60

Return(STRZERO(nHora,2) + ":" + STRZERO(nMinu,2) + ":" + STRZERO(nSec3,2))

Salu2

Gracias willi,

Tal vez alguien me echa una manito con el redireccionamiento de impresion

Saludes

Ramon Paredes

Ramón:

Prueba con la claúsula TO FILE, ejemplo:

REPORT oReporte CAPTION "Catálogo de clientes" TO FILE Prueba.txt;
....
....
...

Saludos

Armando,

Gracias por tu aporte, funcion ok con Treport, asi como indicas pero con Tprinter : PRINT oPrn TO "TEXTO.TXT" no funciona, no se si habra alguna otra forma de enviarlo a un archivo de texto con tprinter,

Saludos desde Managua, Nicaragua

Ramon Paredes

Ramón:

Para PRINTER usa la vieja usanza como cuando lo hacias con clipper:

Ahora no tengo un ejemplo a la mano, lo busco y te lo publico, pero
recuerdo que iba mas o menos así

SET PRINTER OFF
SET PRINTER TO
SET PRINTER TO "PRUEBA.TXT"
SET PRINTER ON
@ x,y SAY
etc etc
SET PRINTER OFF
SET PRINTER TO

A ver si con eso recuerdas el código exacto.

Saludos