FiveTech Software tech 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

Esperamos compartas la solución.

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