Gracias Cristian por responder.
En otras palabras estamos haciendo lo mismo, en la apertura y cierre, utilizas la letra M, el resto igual. Voy a seguir investigando. Saludos. De: [email protected] [mailto:[email protected]] En nombre de Cristian Conte Enviado el: lunes, 05 de mayo de 2014 10:44 a.m. Para: GUFA List Member Asunto: [GUFA] Imprimir Nota de Credito en controlador TM-U 220 AFII 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. cid:[email protected] Alguna sugerencia? Saludos. Ariel Luna _____ Se certificó que el correo no contiene virus. Comprobada por AVG - www.avg.es <http://www.avg.es/> Versión: 2014.0.4570 / Base de datos de virus: 3931/7434 - Fecha de la versión: 03/05/2014 _____ 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 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/7442 - Fecha de la versión: 05/05/2014 _____ 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
