Solicito un ejemplo de Tprinter
Posted:
Sat Feb 27, 2010 7:02 am
by juan_arroyo_t
Por favor si alguien me pudiera proporcionar un ejemplo de la clase Tprinter
Gracias
Saludos desde México
Re: Solicito un ejemplo de Tprinter
Posted:
Sat Feb 27, 2010 8:21 pm
by juan_arroyo_t
Maestros
Muchas gracias por sus respuestas, voy a ponerme a trabajar en esto
Saludos
Re: Solicito un ejemplo de Tprinter
Posted:
Tue Mar 02, 2010 2:41 pm
by jll-fwh
Hola Juan:
Aqui tienes un ejemplo funcional para imprimir con TPrinter:
*******************************************************************************
* Archivo: Proc5014.PRG
* Descripcion: Listado de Pollitos Criados a Mano.
* Fecha: 15-02-2010
* Release: 1.0
* Autor: Jose Javier LLoris Roig
*******************************************************************************
#Include "FiveWin.CH"
STATIC cFileBMP
/*------------------------------------------------------------------------------*/
Function ListaPollitos( cModoImp, cDesde, cHasta, cPDF )
/*------------------------------------------------------------------------------*/
LOCAL oPrn, oFontC, oFontD, oFontT, oPen
LOCAL nRow := 0, nTReg := 0, nConta := 0
DEFAULT cPDF := ""
If cModoImp == "P"
PRINT oPrn NAME "Impresión de Pollitos" PREVIEW
Else
PRINT oPrn NAME "Impresión de Pollitos"
End
If Empty( oPrn:hDC )
Return NIL
End
If !Empty( cPDF )
oPrn:cDocument := AllTrim( cPDF )
End
DEFINE FONT oFontC NAME "Tahoma" SIZE 0, -8 BOLD OF oPrn
DEFINE FONT oFontD NAME "Tahoma" SIZE 0, -7 OF oPrn
DEFINE FONT oFontT NAME "Tahoma" SIZE 0, -7 BOLD OF oPrn
DEFINE PEN oPen WIDTH 5 OF oPrn
PAGE
nRow := 1
nConta := 1
Cabeceras( oPrn, @nRow, oFontD, oFontC, oPen )
While ! CriaMano->( Eof() )
If CriaMano->CodAve >= cDesde .AND. CriaMano->CodAve <= cHasta
Detalle( oPrn, @nRow, oFontD, oPen )
nTReg++
nConta++
End
CriaMano->( DbSkip() )
SysRefresh()
If nConta >= 50 .AND. ! CriaMano->( Eof() )
oPrn:EndPage()
oPrn:StartPage()
nRow := 1
nConta := 0
Cabeceras( oPrn, @nRow, oFontD, oFontT, oPen )
End
End
Totales( oPrn, nRow, oFontT, oPen, nTReg )
ENDPAGE
ENDPRINT
oFontC:End()
oFontD:End()
oFontT:End()
oPen:End()
Return NIL
/*------------------------------------------------------------------------------*/
STATIC Function Cabeceras( oPrn, nRow, oFontD, oFontC, oPen )
/*------------------------------------------------------------------------------*/
LOCAL oImageM, oImageH
LOCAL aMacho := Array( 4 )
LOCAL aHembra := Array( 4 )
LOCAL cFileM := ""
LOCAL cFileH := ""
LOCAL nRowImage := 0
/* Impresion de la Cabecera del listado */
oPrn:CmSay( nRow+=1, 3, "Procedimiento: PROC5014.PRG", oFontD )
oPrn:CmSay( nRow, 9, "LISTADO DE POLLITOS", oFontC )
oPrn:CmSay( nRow, 15, "Pagina: " + AllTrim( Str( oPrn:nPage ) ), oFontD )
oPrn:CmSay( nRow, 17, "Fecha: " + dToc( Date() ), oFontD )
oPrn:CmSay( nRow+=0.3, 3, Replicate( "-", 182 ), oFontD )
nRow+=1
oPrn:CmSay( nRow, 3, "Código" , oFontC )
oPrn:CmSay( nRow, 12, "Volumen" , oFontC )
oPrn:CmSay( nRow, 13.7, "Peso" , oFontC )
nRow+=0.3
oPrn:CmSay( nRow, 3, "Ave" , oFontC )
oPrn:CmSay( nRow, 4.5, "Identificación", oFontC )
oPrn:CmSay( nRow, 9.5, "Estado" , oFontC )
oPrn:CmSay( nRow, 12, "Ingerido" , oFontC )
oPrn:CmSay( nRow, 13.7, "Actual" , oFontC )
oPrn:CmSay( nRow, 15, "Ubicación" , oFontC )
nRow+=0.5
LinePrint( oPrn, nRow, 3, nRow, 19, oPen )
Return NIL
/*------------------------------------------------------------------------------*/
STATIC Function Detalle( oPrn, nRow, oFontC, oPen )
/*------------------------------------------------------------------------------*/
nRow+=0.2
oPrn:CmSay( nRow, 3, CriaMano->CodAve, oFontC )
If MiDosBuscar( "Aves", 1, CriaMano->CodAve )
oPrn:CmSay( nRow, 4.5, Aves->Identi, oFontC )
End
oPrn:CmSay( nRow, 9.5, CriaMano->Estado, oFontC )
oPrn:CmSay( nRow, 11.8, TransForm( CriaMano->VolTot, "999,999.99 ml" ), oFontC )
oPrn:CmSay( nRow, 13.7, TransForm( CriaMano->PesAct, "999.99 gr" ) , oFontC )
If MiDosBuscar( "Ubicacio", 1, CriaMano->CodUbi )
oPrn:CmSay( nRow, 15, Ubicacio->DenUbi, oFontC )
End
nRow+=0.2
Return NIL
/*------------------------------------------------------------------------------*/
STATIC Function Totales( oPrn, nRow, oFont, oPen, nTReg )
/*------------------------------------------------------------------------------*/
LinePrint( oPrn, nRow+=0.2, 3, nRow, 19, oPen )
oPrn:CmSay( nRow+=0.2, 3, "Total Registros Seleccionados:", oFont )
oPrn:CmSay( nRow, 7, TransForm( nTReg, "9,999" ), oFont )
Return NIL
Un saludo
JLL
Re: Solicito un ejemplo de Tprinter
Posted:
Sat Mar 13, 2010 7:02 am
by juan_arroyo_t
Gracias JLL-FWH
No había tenido oportunidad de visitar el foro
Saludos
Re: Solicito un ejemplo de Tprinter
Posted:
Sun Mar 28, 2010 8:21 am
by juan_arroyo_t
Para :
José Javier Lloris RSoy novato en esto del foro no se si para contactarte mande este mensaje como una respuesta o si deba hacerlo como un tema nuevo, por ejemplo "Para Jose Javier Lloris R", la cuestión es que ya logré hacer un reporte para mi aplicacón con el el código que me hiciste favor de enviarme.
Sucede que utilizo un campo numérico que no me aparece debidamente alineado, te envío parte de mi código y una imagen del reporte para que me hagas favor de orientarme por que no se donde está la falla.
- Code: Select all Expand view
/*------------------------------------------------------------------------------*/
STATIC Function Detalle( oPrn, nRow, oFontC, oPen )
/*------------------------------------------------------------------------------*/
nRow+=0.2
oPrn:CmSay( nRow, 03, emp->id_emp, oFontC )
oPrn:CmSay( nRow, 05, emp->nomemp, oFontC )
oPrn:CmSay( nRow, 13, emp->esdenom, oFontC )
oPrn:CmSay( nRow, 15, TRANSFORM(emp->cuotaapo,"999,999.99"), oFontC )
nRow+=0.2
Return NIL
Esta es la imagen
[img]
[IMG=http://img718.imageshack.us/img718/3630/tprinter.th.jpg][/img][/img]
Gracias por tus atenciones
Saludos
Re: Solicito un ejemplo de Tprinter
Posted:
Mon Mar 29, 2010 12:34 pm
by karinha
Hola,
Use el comando CENTER, LEFT Ó RIGHT.
Re: Solicito un ejemplo de Tprinter
Posted:
Mon Mar 29, 2010 1:47 pm
by jbrita
Amigo prueba asi:
oPrn:CmSay( nRow, 15, TRANSFORM(emp->cuotaapo,"999,999.99"), oFontC,,,,0)
Saludos
Re: Solicito un ejemplo de Tprinter
Posted:
Mon Apr 05, 2010 5:25 pm
by juan_arroyo_t
Hola amigos :
Quiero expresarles mi agradecimiento por fin estoy elaborando mis reportes con TPrinter
Ya también resolví el aspecto del alineado de las columnas
A todos muchas gracias por sus atenciones, es un gesto que me motiva a seguir adelante en esto del FiveWin