Marcelo, ahi te paso como lo armo en mis clientes el tema del archivo plano y lo levanto sin problemas en el aplicativo del afip regimen de informacion de compras y ventas. Este es un extracto del que genera las alicuotas.Gracias.Cristian Conte
if errorarchivo < 0 .or. errorarchivo >= 0 sen=0 scan if sen=0 sen=1 linea='' else linea=chr(13)+chr(10) endif &&linea=linea+'1' && Fijo 1 *wfecha=dtoc(fecha) *linea=linea+substr(wfecha,7,4) *linea=linea+substr(wfecha,4,2) *linea=linea+substr(wfecha,1,2) && 2-Fecha if tipcp='FAA' TIPO=1 ENDIF IF TIPCP='NDA' TIPO=2 ENDIF IF TIPCP='NCA' TIPO=3 ENDIF linea=linea+rtrim(chrtran(str(tipo,3,0),' ','0')) && 3-Tipo comprobante && linea=linea+'N' && 4-Controlador Fiscal SUCUR=1 linea=linea+rtrim(chrtran(str(sucur,5,0),' ','0')) && 5-sucursal linea=linea+'000000000000' && 6-Espacios adicionales por nro.de comprobante COMPRO = VAL(SUBSTR(STR(VAL(NUMERO),12),5,8)) linea=linea+rtrim(chrtran(str(compro,8,0),' ','0')) && 6-Nro.Comprobante Desde * importe neto gravado NONETO = neto IF tipo=3 wimporte=(noneto*100)*(-1) ELSE wimporte=noneto*100 endif linea=linea+rtrim(chrtran(str(wimporte,15,0),' ','0')) && 12-No integra el neto grabado *** alicuota iva alicuota='0005' linea=linea+alicuota *** impuesto liquidado NONETO = iva1 IF tipo=3 wimporte=(noneto*100)*(-1) ELSE wimporte=noneto*100 endif linea=linea+rtrim(chrtran(str(wimporte,15,0),' ','0')) DO SUMO_LINEA ENDSCAN ENDIF =fclose(errorarchivo) Visitanos : http://tecnologiayservicios.wordpress.com/_____ Excelencia Informatica Cristian O. Conte E-mail: [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174 - Rosario - Santa Fe - Argentina De: Marcelo Espinosa <[email protected]> Para: GUFA List Member <[email protected]> Enviado: Miércoles, 17 de junio, 2015 15:18:54 Asunto: [GUFA] Archivo de texto Hola grupo Estoy generando el txt para el aplicativo de la resolución 3685. Todo va bien pero en la máquina de un cliente, los txt que se generan se ven como que no tuvieran el retorno de carro y por lo tanto el aplicativo importa un solo registro. Lo raro es que en mis otros clientes va todo bien. Estoy usando la función FPUTS. Cómo puedo hacer para evitar que pase esto. Gracias SaludosMarcelo Estoy generando el txt para el aplicativo de la resolución 3685. Todo va bien pero en la máquina de un cliente, los txt que se generan se ven como que no tuvieran el retorno de carro y por lo tanto el aplicativo importa un solo registro. Lo raro es que en mis otros clientes va todo bien. Estoy usando la función FPUTS. Cómo puedo hacer para evitar que pase esto. Gracias SaludosMarcelo
