sobre reports
Publicado: Mar Feb 22, 2005 8:06 pm
Los reportes parecen identicos a los de fw ahi no creo que haya mas
problema, pero....
Vamos a ver en fw existia una clase tprinter gracias a la cual y mediante
funciones como la que te muestro abajo podia hacer recuadros, sombreados o
no, lineas, insertar imagenes, etc..... pero... donde para la equivalente a
la tprinter en xailer? si existe podrias pasarme algun ejemplo? me
funcionaria la funcion que te muestro mas abajo sobre ella?
Evidentemente tengo que probar yo mismo pero es que en la documentacion,
algo escasa, - y tranquilo que ya se que estais en ello y que andais muy
pero que muy ocupados asi que no es un reproche - no me aclare mucho la
verdad. Unos samples tipo los que lleva fw vendrian muy bien no os daria
tanto la lata. Parece mentira eh pero ya tantos años acostumbrado a querer
hacer una cosa con fw e ir a ver los samples y encontrar algo igual o
semejante pues en xailer algo asi ayudaria muchiiiiiisimo y os
descargariamos de muchas preguntas tontas que yo al menos os hago por no
saber donde mirar.
Ahi va la funcion :
/* Dibujamos una Caja en Cms
nArriba,nIzq,nAbajo,nDerecha := Coordenadas en Centimetros
oPrn := Objeto Printer
oBrush := Objeto Brush para Caja Rellena
nTipo := Tipo de Caja (0-Vacia) (1-Rellena)
oPen := Objeto oPen para Caja Vacia
*/
Func Caja_pr(nArriba,nIzq,nAbajo,nDerecha,oPrn,nTipo,oBrush,oPen)
Local xCor := {} , yCor := {}
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
DO CASE
CASE nTipo == 0 // Caja Vacia
oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen)
CASE nTipo == 1 // Caja rellena
oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush)
ENDCASE
return NIL
Atentamente Y disculpad las molestias por mi ignorancia : Francisco Sanchez
GERENTE GRUPO ST
problema, pero....
Vamos a ver en fw existia una clase tprinter gracias a la cual y mediante
funciones como la que te muestro abajo podia hacer recuadros, sombreados o
no, lineas, insertar imagenes, etc..... pero... donde para la equivalente a
la tprinter en xailer? si existe podrias pasarme algun ejemplo? me
funcionaria la funcion que te muestro mas abajo sobre ella?
Evidentemente tengo que probar yo mismo pero es que en la documentacion,
algo escasa, - y tranquilo que ya se que estais en ello y que andais muy
pero que muy ocupados asi que no es un reproche - no me aclare mucho la
verdad. Unos samples tipo los que lleva fw vendrian muy bien no os daria
tanto la lata. Parece mentira eh pero ya tantos años acostumbrado a querer
hacer una cosa con fw e ir a ver los samples y encontrar algo igual o
semejante pues en xailer algo asi ayudaria muchiiiiiisimo y os
descargariamos de muchas preguntas tontas que yo al menos os hago por no
saber donde mirar.
Ahi va la funcion :
/* Dibujamos una Caja en Cms
nArriba,nIzq,nAbajo,nDerecha := Coordenadas en Centimetros
oPrn := Objeto Printer
oBrush := Objeto Brush para Caja Rellena
nTipo := Tipo de Caja (0-Vacia) (1-Rellena)
oPen := Objeto oPen para Caja Vacia
*/
Func Caja_pr(nArriba,nIzq,nAbajo,nDerecha,oPrn,nTipo,oBrush,oPen)
Local xCor := {} , yCor := {}
// Pasamos coordenadas de cms a pixel
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)
DO CASE
CASE nTipo == 0 // Caja Vacia
oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen)
CASE nTipo == 1 // Caja rellena
oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush)
ENDCASE
return NIL
Atentamente Y disculpad las molestias por mi ignorancia : Francisco Sanchez
GERENTE GRUPO ST