RE:Falla al Imprimir Ticket
UTILIZA LO MISMO
Ejemplo.
xLpn="lpt1"
SET PRINTER TO "FACTURA.TXT"
SET DEVICE TO PRINTER
SET CONSOLE OFF
faprinter()
DO ACTVTASM.FXP
SET PRINTER TO
SET DEVICE TO SCREEN
SET CONSOLE ON
IF xSilp=1
COPY FILE FACTURA.TXT TO &xLpn
ENDIF
SELECT FAVENTA2
SET FILTER TO CIA+NROPED="99ZZ"
GO BOTTOM
IF NOT EOF()
SKIP
ENDIF
RETURN .T.
********************************************
FUNCTION faprinter
STORE 0 TO l,lf,tg0,tg1,tg2,tg3,tg4,tg5,pg
********************************************
SELECT FAVENTA1
xnfa=FAVENTA1.NROFA
xfechav=DTOC(FAVENTA1.FECHA)
IF VAL(xnfa)=0 && Si Nrofa no a sido asignado &&
SET PROCEDURE TO FOXSERVI
xnfa=getnrofa() && Busca Numero de factura &&
SET PROCEDURE TO
SELECT FAVENTA1
REPLACE FAVENTA1.NROFA WITH xnfa && Asigna numero de Factura &&
ENDIF
SELECT FAVENTA1
xnfa=FAVENTA1.NROFA
xnped=FAVENTA1.NROPED
xfechav=DTOC(FAVENTA1.FECHA)
xfecha=FAVENTA1.FECHA
***************************************************************************
SET PROCEDURE TO UTIL
STORE 0 TO x1,x2,x3,x4,x5,x6
x1=centra(40,xRazonsoc)
x2=centra(40,"R.I.F. "+xNrif)
x3=centra(40,xDirecion1)
x4=centra(40,xDirecion2)
x5=centra(40,xCiudad+"/"+xEstado)
x6=centra(40,xTelefonos)
SET PROCEDURE TO
SELECT FAVENTA2
SET FILTER TO FAVENTA2.CIA+FAVENTA2.NROPED=xcods+xNroped
GO TOP
@PROW()+1,x1 SAY xRazonsoc
@PROW()+1, 0 SAY ""
@PROW()+1,x2 SAY "R.I.F. "+xNrif
@PROW()+1,x3 SAY xDirecion1
@PROW()+1,x4 SAY xDirecion2
@PROW()+1,x5 SAY xCiudad+"/"+xEstado
@PROW()+1,x6 SAY xTelefonos
@PROW()+1, 0 SAY "----------------------------------------"
@PROW()+1, 0 SAY "Rif:"+FAVENTA1.NRORIF
@PROW()+1, 0 SAY "Cte:"+left(FAVENTA1.Razonsoc,36)
@PROW()+1, 0 SAY "Tlf:"+FAVENTA1.telefono1
@PROW()+1, 0 SAY "----------------------------------------"
@PROW()+1, 0 SAY "PEDIDO:&xnped &xfechav FACTURA: &xnfa"
@PROW()+1, 0 SAY "CANT DESCRIPCION DEL PRODUCTO IMPORTE"
@PROW()+1, 0 SAY "---- ------------------------ ----------"
DO WHILE NOT EOF()
IF FAVENTA2.EXCENTO="S"
xtexto1=LEFT(faventa2.descripc,19)+"(E)"
ELSE
xtexto1=LEFT(faventa2.descripc,23)
ENDIF
xdata=TRANSFORM(faventa2.cant,"9999")+" "+xtexto1+" "+TRANSFORM(faventa2.totalmerca,"9999,999.99")
@PROW()+1,0 SAY xdata
tg0=tg0+faventa2.totalmerca
tg1=tg1+faventa2.totalsiva
tg2=tg2+faventa2.totaldes
tg3=tg3+faventa2.totaliva
tg4=tg4+faventa2.totalciva
tg5=tg5+faventa2.totalexcen
REPLACE FAVENTA2.NROFA WITH xnfa
REPLACE FAVENTA2.FECHA WITH xfecha
IF FAVENTA2.STS1="S"
REPLACE FAVENTA2.STS1 with "I"
REPLACE FAVENTA2.STS2 with "I"
REPLACE FAVENTA2.STS3 with "M"
ENDIF
SKIP
ENDDO
SELECT FAVENTA1
destxt=TRANSFORM(FAVENTA1.TASADES,"99.99")+"%"
ivatxt=TRANSFORM(FAVENTA1.IVA,"99.99")+"%.."
@PROW()+1,0 SAY ""
l=PROW()+1
@l,0 SAY "**** ------ SUB-TOTAL......"
@l,28 SAY TRANSFORM(tg0,"99999,999.99")
l = l + 1
@l, 0 SAY " Descuento&destxt"
@l,28 SAY TRANSFORM(tg2,"99999,999.99")
l = l + 1
@l, 0 SAY " I.V.A. &ivatxt."
@l,28 SAY TRANSFORM(tg3,"99999,999.99")
l = l + 1
@l, 0 SAY " NETO A PAGAR..."
@l,28 SAY TRANSFORM(tg4,"99999,999.99")
@PROW()+1,0 SAY ""
@PROW()+1,0 SAY ""
@PROW()+1,0 SAY ""
@PROW()+1,0 SAY ""
@PROW()+1,0 SAY ""
@PROW()+1,0 SAY ""
****************************************
SELECT FAVENTA1
REPLACE FAVENTA1.TOTALMERCA WITH tg0
REPLACE FAVENTA1.TOTALSIVA WITH tg1
REPLACE FAVENTA1.TOTALDES WITH tg2
REPLACE FAVENTA1.TOTALIVA WITH tg3
REPLACE FAVENTA1.TOTALCIVA WITH tg4
REPLACE FAVENTA1.TOTALEXCEN WITH tg5
IF FAVENTA1.STS1="S"
REPLACE FAVENTA1.STS1 WITH "I"
REPLACE FAVENTA1.STS2 WITH "I"
REPLACE FAVENTA1.STS3 WITH "M"
ENDIF
SELECT CONTROLP
REPLACE CONTROLP.STSV WITH "P"
DELETE
RETURN