FiveTech Support Forums

Estimados colegas

Tengo un problema con una tickeadora epson tmu200d , la tengo
instalado como generica de texto en Windows y a determinada
cantidas de lineas empieza a imprimir caracteres Raros o
directamente se para , es como si saturara el buffer de impresion
Alguien me puede orientar como puedo vaciar el buffer

desde ya muchas gracias
Fabian

Adjunto rutina de impresion*****

nRow+=0.4

nRow+=0.3

sele 12
use &FACTMP
xtotal=0

oPrn:CmSay(nRow, 0.3,
"---------------------------------------",oFnt)

nRow+=0.4

oPrn:CmSay(nRow, 0.3, "Cant.",oFnt)
oPrn:CmSay(nRow, 3.5.,"Detalle",oFnt)
oPrn:CmSay(nRow, 6.3, "P.unit" ,oFnT)
oPrn:CmSay(nRow, 8.5, "Importe",oFnT)

nRow+=0.4

oPrn:CmSay(nRow, 0.3,
"---------------------------------------",oFnt)

nRow+=0.4

DO WHILE !&FACTMP->(EoF())

oPrn:CmSay(nRow,0.1,tran(&FACTMP->cantidad,"9999.99"),oFnt)
oPrn:CmSay(nRow, 2.7,SUBSTR(&FACTMP->descripcio,1,15),oFnt3)
oPrn:CmSay(nRow, 6.0,tran(&FACTMP->precio,"999,999.99"),oFnT)
oPrn:CmSay(nRow,
7.8,TRAN(&FACTMP->precio*&FACTMP->cantidad,"999,999.99"),oFnT)

xtotal=xtotal + (&FACTMP->precio*&FACTMP->cantidad)

nRow+=0.4
*nRow+=1.0

&FACTMP->(DbSkip())
ENDDO

nRow+= 0.6

oPrn:CmSay(nRow,5.0,"T O T A L" ,oFnt)

oPrn:CmSay(nRow,7.8,TRAN(xtotal,"999,999.99"),oFnt)

nRow+= 1.6

oPrn:CmSay(NROW,2.1," No Valido como Factura ",oFnt2)

nRow+=1.0
oPrn:CmSay(NROW,2.1,"*** GRACIAS POR SU VISITA *** ",oFnt2)
nRow+=4.6
oPrn:CmSay(NROW,1.0," ",oFnt2)
nRow+=1.3
ENDPAGE
ENDPRINT

oFnt:End()
oFnt:End()
oFnt2:End()

Eastimados Colegas

Ya lo resolvi

Gracias
Fabian

Databaselab2002 wrote:Eastimados Colegas

Ya lo resolvi

Gracias
Fabian

William

reemplace

oPrn:CmSay(nRow,0.1,tran(&FACTMP->cantidad,"9999.99"),oFnt)
oPrn:CmSay(nRow, 2.7,SUBSTR(&FACTMP->descripcio,1,15),oFnt3)
oPrn:CmSay(nRow, 6.0,tran(&FACTMP->precio,"999,999.99"),oFnT)
oPrn:CmSay(nRow,
7.8,TRAN(&FACTMP->precio*&FACTMP->cantidad,"999,999.99"),oFnT)

por

        store &FACTMP->cantidad to xcant
        store str(xcant,2) to xcanti
        store &FACTMP->precio*&FACTMP->cantidad to xtot
        store str(xtot,7,2) to xtota
        store &FACTMP->precio to xPRE
        store str(xPRE,7,2) to xPRECIO

         oPrn:CmSay(nRow, 0.1,xcanti+"    "+SUBSTR(&FACTMP->descripcio,1,15)+" "+xPRECIO+" "+xtota,oFnt)

Se ve que con la forma anterior eran paquetes muy grandes que recibia la tickeadora

Fabian

Fabian,

Gracias