Ayuda -imprimir factura con columna texto tipo memo

[carlos vargas]

Asi estimados, me urge su asistencia en esto, el tipico caso de imprimir una factura, con encabezado y detalle.
pero aca la particularidad es que una de las columnas es un campo texto con tamaño variable. y es muy importante.

Code: Select all  Expand view

Cantidad   Descripcion                                                               Precio Unit.    Precio Total.
=======   ============================================   ===========   ===========
     1         Este campo es una descripcion con un tamaño vari-        1,200.00          1,200.00
               able, a como puede tener una fila de alto, puede te-
                ner cuatro, cinco, seis. :-(
     1         Este es otro campo es un tamaño variable                         200.00            200.00
 

he aquí mi dilema, como hacer esto?, lo he intentado de varias formas, campos cortados en piezas. etc.
tomando en cuenta que la fuentes es ancho variable, he usado para mis prueba la clase tprinter ya que es la que me permite
ubicar los campos en posiciones en cm especificas.

creo que a tprinter le falta un metodo para imprimir en un area definida y haga un corte automático de palabra.

salu2

[noe aburto]

Que tal, ojala te sirva, yo lo uso para imprimir textos justificados, tipo DOS.


cDesc:='***('+upper(DescNum(abs(tot_car)))+')***, CANTIDAD ABONADA A NUESTRA'+;
' CUENTA NO. '+alltrim(ban->num_cta)+' DE '+alltrim(ban->nom_ban)+;
' SEGUN COPIA DE FICHA DE DEPOSITO DEL DIA '+ceros(day(dFecPag),2)+' DE '+MesLetra(dFecPag)+' DEL '+str(year(dFecPag),4)+;
' Y QUE APLICAMOS A LO SIGUIENTE:'


inicia impresion con fuente tipo texto

aTexto:=ParteMemo(cDesc,55) // ABAJO LA FUNCION

for i:=1 to len(aTexto)
if substr(aTexto[i],len(aTexto[i]),1)==chr(20)
@ nSup+i,nIzq+05 dato substr(aTexto[i],1,len(aTexto[i])-1) en oReci
else
@ nSup+i,nIzq+05 dato Justifica(aTexto[i],55,i%3) en oReci // ABAJO LA FUNCION
endif
next

termina pagina
termina impresion


// --- Parte memo
function ParteMemo(mTex,nLong)
local aTex:={},cTex,i,nPrinc,nUltEsp

cTex:=memotran(mTex,chr(20),chr(29))
nPrinc:=nUltEsp:=1
for i:=1 to len(cTex)
while substr(cTex,i,1)==chr(29)
cTex:=stuff(cTex,i,1,'')
if i>len(cTex)
exit
endif
end
if i>len(cTex)
exit
endif
if substr(cTex,i,1)==chr(20)
aadd(aTex,substr(cTex,nPrinc,i-nPrinc+1))
nPrinc:=nUltEsp:=i+1
loop
endif
if substr(cTex,i,1)==' '
nUltEsp:=i
endif
if i-nPrinc+1>nLong
do case
case nUltEsp==nPrinc
aadd(aTex,substr(cTex,nPrinc,nLong))
nPrinc:=nUltEsp:=i
case nUltEsp==i
aadd(aTex,substr(cTex,nPrinc,nLong))
nPrinc:=nUltEsp:=i+1
otherwise
aadd(aTex,substr(cTex,nPrinc,nUltEsp-nPrinc))
nPrinc:=nUltEsp:=nUltEsp+1
endcase
endif
next
if len(trim(substr(cTex,nPrinc)))<>0
aadd(aTex,substr(cTex,nPrinc))
endif
if substr(aTex[len(aTex)],len(aTex[len(aTex)]),1)<>chr(20)
aTex[len(aTex)]+=chr(20)
endif
return aTex


// --- Justifica un texto
function Justifica(cTex,nLong,nDonde)
local aEspacio:={},i,j,nFaltante,lEspacio

default nDonde:=1
cTex:=trim(cTex)
if len(cTex)>=nLong
return substr(cTex,1,nLong)
endif
nFaltante:=nLong-len(cTex)
lEspacio:=.f.
for i:=1 to len(cTex)
if substr(cTex,i,1)==' '
if lEspacio;aadd(aEspacio,i);endif
lEspacio:=.f.
else
lEspacio:=.t.
endif
next
if len(aEspacio)==0
return padr(cTex,nLong,'-')
endif
do case
case nDonde==0;j:=len(aEspacio)
case nDonde==1;j:=min(len(aEspacio),nFaltante)
otherwise; j:=min(int((len(aEspacio)+nFaltante)/2),len(aEspacio))
endcase
for i:=1 to min(len(aEspacio),nFaltante)
cTex:=substr(cTex,1,aEspacio[j])+substr(cTex,aEspacio[j])
j--
next
cTex:=Justifica(cTex,nLong)
return cTex

[noe aburto]

Se me pasaba, si usas estas funciones en tu impresion, para que no tengas problema con las fuentes usa una font:

DEFINE FONT oFontN NAME "SUPER DRAFT 10CPI" SIZE 0,-9

DEFINE FONT oFontC NAME "SUPER DRAFT 17CPI" SIZE 0,-5

y te quedara de lujo justificado con el texto que quieras automatico

[Antonio Linares]

Carlos,

Puedes usar la función DrawText() del API de Windows incluida en FWH

http://msdn.microsoft.com/en-us/library/windows/desktop/dd162498(v=vs.85).aspx

prueba con el flag DT_WORDBREAK

[Francisco Horta]

Carlos,
yo lo hago asi:

prueba a usar la font "ARIAL" ó "LUCIDA CONSOLE"

nxLen := 50
nxLineas := MlCount( ::oQry:FieldGet("comentarios"), nxLen )
pRen := 3.80 + 00.20
for x := 1 to nxLineas
cLine := MemoLine( ::oQry:FieldGet("comentarios"), nxLen, x )
oPrn:cmSay( pRen, 14.30, cLine, oFnt[5] )
pRen += 00.20
next

saludos
paco

[groiss]

Carlos,

Puedes usar la función DrawText() del API de Windows incluida en FWH

http://msdn.microsoft.com/en-us/library/windows/desktop/dd162498(v=vs.85).aspx

prueba con el flag DT_WORDBREAK

Antonio:
¿Como se usaría desde fivewin?.
veo esta función muy interesante,mas cuando he tenido que imprimir observaciones de un tratamiento en un box del objeto printer, y veo que con esto quedaría perfectamente justificado.
Un saludo y mil gracias

[Antonio Linares]

Jose Luis,

En el código fuente de FWH se usa en diversos sitios. Un ejemplo:

#define DT_TOP 0x00000000
#define DT_LEFT 0x00000000
#define DT_CENTER 0x00000001
#define DT_RIGHT 0x00000002
#define DT_VCENTER 0x00000004
#define DT_BOTTOM 0x00000008
#define DT_WORDBREAK 0x00000010
#define DT_SINGLELINE 0x00000020
#define DT_EXPANDTABS 0x00000040
#define DT_TABSTOP 0x00000080
#define DT_NOCLIP 0x00000100
#define DT_EXTERNALLEADING 0x00000200
#define DT_CALCRECT 0x00000400
#define DT_NOPREFIX 0x00000800

DrawText( hDC, cText, { nRow + 35, nCol - 5, nRow + 48, nCol + 40 }, DT_WORDBREAK )

[Armando]

Antonio:

A partir de que versión se incluyó la función DrawText() ??

Saludos

[Antonio Linares]

Armando,

Desde casi el principio

[Armando]

Gracias maestro !

Saludos

[groiss]

Muchas gracias, Antonio, en cuanto me incorpore de las vacacionesme pongo con ella, pues el ema me ha creado mas de un dolor de cabeza.
Un saludo y mil gracias
José Luis

[Manuel Valdenebro]

Tengo un documento con Tprinter, don he sustituido un campo caracter por otro Memo (mas grande) y logicamente no funciona con el siguiente código:

oPrn:CmSay ( nFilReg+0.5, 4.5, mcomer->NOTAS, oFon3, , ROJO )

Si le pongo ancho,se puede ver solo la primera linea del memo oPrn:CmSay ( nFilReg+0.5, 4.5, mcomer->NOTAS, oFon3, 2500, ROJO )

Logicamente debería usar DrawText.

He probado con nAltoTexto := DrawText( hdc, mcomer->NOTAS, { nFilReg + 0.5, 4.5, nFilReg + 10, 2500 }, DT_WORDBREAK ) y compruebo que me devuelve siempre un valor superior a cero, con el número de lineas del DRAWTEXT con la cual la función es correcta. Pero no aparece nada en el documento.

He probado con oPrn:CmSay ( nFilReg+0.5, 4.5, DrawText( hdc, mcomer->NOTAS, { nFilReg + 0.5, 4.5, nFilReg + 10, 2500 }, DT_WORDBREAK ), oFon3, , NEGRO )

Pero nada. ¿que tengo que hacer para que aparezca en el documento)

[Manuel Valdenebro]

Tengo un documento con Tprinter, don he sustituido un campo caracter por otro Memo (mas grande) y logicamente no funciona con el siguiente código:

oPrn:CmSay ( nFilReg+0.5, 4.5, mcomer->NOTAS, oFon3, , ROJO )

Si le pongo ancho,se puede ver solo la primera linea del memo oPrn:CmSay ( nFilReg+0.5, 4.5, mcomer->NOTAS, oFon3, 2500, ROJO )

Logicamente debería usar DrawText.

He probado con nAltoTexto := DrawText( hdc, mcomer->NOTAS, { nFilReg + 0.5, 4.5, nFilReg + 10, 2500 }, DT_WORDBREAK ) y compruebo que me devuelve siempre un valor superior a cero, con el número de lineas del DRAWTEXT con la cual la función es correcta. Pero no aparece nada en el documento.

He probado con oPrn:CmSay ( nFilReg+0.5, 4.5, DrawText( hdc, mcomer->NOTAS, { nFilReg + 0.5, 4.5, nFilReg + 10, 2500 }, DT_WORDBREAK ), oFon3, , NEGRO )

Pero nada. ¿que tengo que hacer para que aparezca en el documento)

¿Alguna alma caritativa que me dé una ayudita?

[hmpaquito]

Manuel,

Para imprimir yo utilizo la estupenda clase UtilPrn de Rafa Thefull. Esa clase lleva impresion de campos memo. La clase lleva los fuentes, por lo que debe ser facil coger "lo que se necesite" para adaptarlo a tu situacion.

Saludos

[cnavarro]

Manuel,
tendrás que fabricarte una funcion para imprimir los memos
Basado en el codigo que puso el compañero Francisco Horta unos post más arriba

Code: Select all  Expand view

Function PintaMemo( oPrn, nRow, nCol, nWidth, cMemo, oFont )
Local cLine  := ""
Local nLineas := 0
Local x
Local nAvanza  := 0
    //nWidth ancho de columna
    nLineas := MlCount( cMemo, nWidth  )
    nAvanza := nRow
    for x := 1 to nLineas
        cLine := MemoLine( cMemo, nWidth, x )
        oPrn:cmSay( nAvanza, nCol, cLine, oFont )
        nAvanza += oFont:nHeight + 0.2    // Esto será lo más dificil aunque con oFont:nHeight podrás calcular algo
   next
Return nLineas
 

No lo he probado, pero espero te de por lo menos alguna luz