ARIEL:
LO QUE TE ENVIO ES LO QUE YO LO HAGO PERO CON EL PFBATCH
QUE SERIAN LOS MISMOS PARAMETROS A PASARLES. ESTE ES EJEMPLO DE NOTA DE CREDITO
A.
CUALQUIER COSA AVISAME.
COMO ESTA EL INFIERNO DE LA B.
LA PROXIMA TEMPORADA VAMOS A JUGAR JUNTOS ME PARECE.
LINEA1='@FACTABRE'+CHR(124)+'00043'+CHR(124)+'M'+CHR(124)+'C'+CHR(124)+'A'+CHR(124)+'1'+CHR(124)+'P'+CHR(124)+'10'+CHR(124)+'I'+CHR(124)+'I'+CHR(124)
SELE 2
&& archivo indice de la tabla de items.
SET ORDER TO MCODCLI
SEEK MCODCLI
IF FOUND()
*BROW
LINEA1=LINEA1+CHR(242)+SUBSTR(CLI.NOMCLI,1,30)+CHR(124)+CHR(127)+CHR(124)+'CUIT'+CHR(124)+SUBSTR(CLI.cuit,1,11)+CHR(124)
REMITO='CONTADO'
ORDEN='0000000000'
*'Rto.Nro:'+substr(orden,1,20)
LINEA1=LINEA1+'N'+CHR(124)+'Direccion:'+SUBSTR(CLI.DIRCLI,1,20)+CHR(124)+'Localidad:'+SUBSTR(CLI.localidad,1,20)+CHR(124)+CHR(127)+CHR(124)+'Rto.Nro:'+substr(orden,1,20)+'Cond.
de Vta:'+substr(remito,1,40)+CHR(13)
*LINEA1=LINEA1+'N'+CHR(124)+'Direccion:'+SUBSTR(CLI.DIRCLI,1,20)+CHR(124)+'Localidad:'+SUBSTR(CLI.localidad,1,20)+CHR(124)+CHR(127)+CHR(124)+chr(127)+chr(124)+chr(127)+CHR(13)
ENDIF
&& el chr(13) hace salto de LINEA
LINEA1=LINEA1+CHR(13)
DO SUMO_LINEA
CLOSE DATABASES
USE WAUXI1
*BROW
SCAN
LINEA1=LINEA1+CHR(13)
LINEA1='@FACTITEM'+CHR(124)+'00043'+chr(124)
LINEA1=LINEA1+SUBSTR(Descrip,1,20)
LINEA1=LINEA1+CHR(124)+rtrim(chrtran(str((PRECIO2*1000),8,0),' ','0'))
LINEA1=LINEA1+CHR(124)+rtrim(chrtran(str((((CANTIDAD))*100),9,0),'
','0'))
LINEA1=LINEA1+CHR(124)
LINEA1=LINEA1+'2100'+CHR(124)
LINEA1=LINEA1+'M'+CHR(124)+'00001'+CHR(124)+'00000000'+CHR(124)+CHR(127)+CHR(124)+CHR(127)+CHR(124)+CHR(127)+CHR(124)+'0000'
LINEA1=LINEA1+CHR(13)
SUBtotal = cantidad*precio1
&& contador total1
SET DECIMALS TO 2
TOTAL1=(CANTIDAD*(PRECIO1*1.21))
SUMADOR = SUMADOR + TOTAL1
DO SUMO_LINEA
activacion = .f.
EnDSCAN
=fwrite(errorarchivo,'')
endif
=fclose(errorarchivo)
TERCERA = 0
M.TOTA = SUMADOR+SUMADOR1
*RUN EDIT TICKEFAC.DAT
*RUN PFBATCH /NOSINCRO /NOECHO /I:TICKEFAC.DAT /O:RESFAC.DAT >null
*RUN EDIT RESFAC.DAT
**RUN DEL *.DAT >null
*SET STEP ON
if file('finaL.dat')
errorarchivo=fopen('finaL.dat',12)
else
errorarchivo=fcreate('finAL.dat')
endif
if errorarchivo < 0 .or. errorarchivo >= 0
LINEA1='@FACTSUBTOTAL'+CHR(124)+CHR(124)+'P'+CHR(124)+'SUBTOT'
LINEA1=LINEA1+CHR(13)
DO SUMO_LINEA
=fwrite(errorarchivo,'')
ENDIF
*ENDIF
=fclose(errorarchivo)
*** IMPORTE TOTALES DE LA FACTURA
*RUN PFBATCH /NOSINCRO /NOECHO /I:FINAL.DAT /O:ASIVER.dat
if file('FIN.dat')
errorarchivo=fopen('FIN.dat',12)
else
errorarchivo=fcreate('FIN.dat')
endif
if errorarchivo < 0 .or. errorarchivo >= 0
LINEA1='@FACTCIERRA'+CHR(124)+'00043'+CHR(124)+'M'+CHR(124)+'A'+CHR(124)+'FINAL'
LINEA1=LINEA1+CHR(13)
DO SUMO_LINEA
=fwrite(errorarchivo,'')
ENDIF
=fclose(errorarchivo)
*RUN EDIT FIN.DAT*
*RUN PFBATCH /NOSINCRO /NOECHO /I:FIN.DAT /O:RESFAC.DAT >null
Visitanos : http://tecnologiayservicios.wordpress.com/
_____ Excelencia Informatica Cristian O. Conte E-mail:
[email protected] Telefonos Movil : 0341-155025469 - 0341-4592174 -
Rosario - Santa Fe - Argentina
El día lunes, 5 de mayo de 2014 9:10, Ariel Luna <[email protected]> escribió:
Tengo problemas para imprimir notas de créditos en controlador TM-U 220 AFII.
Utilizo la ocx de Epson y al abrir o cerrar el comprobante, solo cambio la
letra T por M.
Thisform.epson.OpenInvoice(‘M’,…..
Lei todo el manual y no encuentro el error de no dejar abrir el comprobante.
Podrá ser la versión de la ocx, hoy estoy utilizando esta.
Alguna sugerencia?
Saludos.
Ariel Luna
________________________________
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 2014.0.4570 / Base de datos de virus: 3931/7434 - Fecha de la versión:
03/05/2014
