hola otra vez yo tengo problemas con las ññññññññññ,

108 views
Skip to first unread message

Jose Mario

unread,
Jun 12, 2023, 3:23:15 PM6/12/23
to Comunidad de Visual Foxpro en Español

198640749,COF,CARLOS,ARMANDO,CAÑAS,BOLAÑOS,,365.00,
COF,JOSE,ANTONIO,FLORES,PANAMEÑO,,
ANDRES,,ZAÑAS,GARCIA,,365.00,0.00,0.00,31,08
COF,MARIA,PATRICIA ANABEL,VICHEZ,,PEÑA,

tengo que enviar un archivo pero este archivo quieren que lo envie con
: “CSV UTF-8 (delimitado por coma) *.csv”

pedi ayuda y me dijeron que esto me ayudaria, pero mas lo arruina no se porque
mTexto = filetostr("afpssf.csv")
mtexto = ALLTRIM(STRCONV(mTexto, 9,1034))
strtofile(MTexto,"afpssf.csv",.t.)

como hago para que no me de error el lector donde tengo que enviar
estos archivos
ya lo delimito por comas, pero el problema que tengo es que no lee las ññññññññññ

Jose Mario

unread,
Jun 12, 2023, 3:26:22 PM6/12/23
to Comunidad de Visual Foxpro en Español
06140202021067,301031124,052023,01,004070099,01,109540039,COF,FAUSTINO,VIDAL,LOVOS,GIL,,365.00,0.00,0.00,31,08,00,00,00
06140202021067,301031124,052023,01,022156869,01,197753679,MAX,JOSE,HUMBERTO,GRANADOS,ROMERO,,365.00,0.00,0.00,31,08,00,00,00
06140202021067,301031124,052023,01,008909004,01,109590082,MAX,ISRAEL,,RAMIREZ,MAJANO,,365.00,0.00,0.00,31,08,00,00,00

asi lo envio, pero cuando el items, lleva un nombre con ÑÑÑÑÑ
ya me dice que nombre no concuerda, por estar la ÑÑÑ
esa utf-8

Jose Mario

unread,
Jun 12, 2023, 3:28:51 PM6/12/23
to Comunidad de Visual Foxpro en Español
y hacerlo en excel , es muy tedioso, es muy largo, muy complicado
siempre lo hago asi, vfp9, pero hasta hoy salen con ese problema

Sergio Rojas

unread,
Jun 12, 2023, 3:36:52 PM6/12/23
to publice...@googlegroups.com

En la ayuda de VFP está explicado

STRCONV(cExpression, 10)  Converts Unicode characters in cExpression to UTF-8
 
STRCONV(cExpression, 12)  Converts UTF-8 characters in cExpression to UNICODE characters.

ya lo delimito por comas, pero el problema que tengo es que no lee las ññññññññññ --
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b184b25d-3615-4655-97be-6144cf7f972dn%40googlegroups.com.

José Antonio Peña Martínez

unread,
Jun 12, 2023, 3:40:19 PM6/12/23
to publice...@googlegroups.com
Buena tarde, puedes intentar dos maneras más:

una es reemplazando la cadena

mtexto =  strtran(mtexto,"ñ"," ñ "') * como lo harías en html

y la otra es usar iconv, creo tmb te di esa solución 
aqui haces el archivo normal ... con Ñ's y todo y se llamaría archivoentrada...
xarchivo = lcpath + 'Cfdi\ConvUTF8.bat'
* suponiendo que iconv lo instalaste en C en el directorio gnuwin32 ...
mTexto = lcpath + 'c:\gnuwin32\bin\iconv.exe -f 1252 -t UTF-8 ' + alltrim(archivoentrada) + ' > ' + alltrim(archivosalida)
StrToFile(mTexto + CHR(13) + CHR(10),xarchivo,.f.)

loWSH = CreateObject ("Wscript.Shell")
IF FILE(xarchivo)  && Does file exist?
loWSH.run(lcpath + "Cfdi\ConUTF8.bat",0,.t.)
Release loWSH
ENDIF

Aqui ya tendrias el archivo de salida como lo necesitas ..

Prueba ...

Saludos!

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.


--
Desarrollo de Sistemas TecnoPro
José Antonio Peña

Saludos!

Jose Antonio Peña Martínez

unread,
Jun 12, 2023, 3:43:00 PM6/12/23
to Comunidad de Visual Foxpro en Español
Solo revisame los path que usé  ... porque no los verifique ... Saludos!
Message has been deleted

Jose Mario

unread,
Jun 12, 2023, 4:25:18 PM6/12/23
to Comunidad de Visual Foxpro en Español
GRACIAS VOY A PROBAR

Jose Mario

unread,
Jun 12, 2023, 4:27:26 PM6/12/23
to Comunidad de Visual Foxpro en Español
CUAL DE LAS 2 UTILIZO, porque ahi pase de noche

Jose Mario

unread,
Jun 12, 2023, 4:28:39 PM6/12/23
to Comunidad de Visual Foxpro en Español
 ñ

que es ntilde

El lunes, 12 de junio de 2023 a la(s) 13:40:19 UTC-6, Jose Antonio Peña Martínez escribió:

Jose Mario

unread,
Jun 12, 2023, 4:31:36 PM6/12/23
to Comunidad de Visual Foxpro en Español
estoy perdido
  ConvUTF8.bat
que tendria bat

lo que me quieres decir es que tengo que bajar de la web iconv.exe

El lunes, 12 de junio de 2023 a la(s) 13:40:19 UTC-6, Jose Antonio Peña Martínez escribió:

José Antonio Peña Martínez

unread,
Jun 12, 2023, 5:24:47 PM6/12/23
to publice...@googlegroups.com
No Jose Mario ... la carpeta con el Iconv ya te la envie solo la descomprimes ... la opción de hacerlo mediante un archivo .bat es para que no te preocupes como vaya generado el archivo ... el comando lo convierte ...
tu dejas el archivo como lo tienes y solo lo conviertes con la herramienta con la línea de comandos que te pasé .
Si no quieres crear un archivo.bat para que haga la conversión por ti mediante la línea de comandos entonces el siguiente paso

desde VFP estas líneas lleva Ñ...

<cfdi:Emisor Rfc="PEMA691017ACA" Nombre="JOSE ANTONIO PEÑA MARTINEZ" RegimenFiscal="612" />

Y lo que hice para que tuvieran los datos al crear el archivo UTF-8 correctos fue:

StrToFile('<cfdi:Emisor Rfc="' + ALLTRIM(STRTRAN(STRTRAN(Campofac.erfc,' ',''),'-','')) + '"' +;
' Nombre="' + ALLTRIM(STRCONV(campofac.enombre, 9,1034))  + '"' +;
' RegimenFiscal="' + ALLTRIM(campofac.regimen) + '" />' + CHR(13) + CHR(10),xarchivo,.t.)

Y así lo genera correcto.

Saludos!

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/ndndWiWNmWs/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6b9b8e9c-047d-4ee2-ad42-f8cb85fb9183n%40googlegroups.com.

Mario Oviedo

unread,
Jun 12, 2023, 5:29:00 PM6/12/23
to publice...@googlegroups.com
ahi esta ,no recibi esta carpeta

Jose Mario

unread,
Jun 13, 2023, 10:36:35 AM6/13/23
to Comunidad de Visual Foxpro en Español
como lo hago no entiendo la ayuda

El lunes, 12 de junio de 2023 a la(s) 13:36:52 UTC-6, shr...@gmail.com escribió:

Jose Mario

unread,
Jun 13, 2023, 10:37:41 AM6/13/23
to Comunidad de Visual Foxpro en Español
trengo que pasar 830 personas a las afp oficinas de pensiones
de el salvador
no se cuantas ÑÑÑÑ me encontrare


El lunes, 12 de junio de 2023 a la(s) 13:36:52 UTC-6, shr...@gmail.com escribió:

Jose Mario

unread,
Jun 13, 2023, 10:39:09 AM6/13/23
to Comunidad de Visual Foxpro en Español
y hay ayuda en español, porque los traduzco y no entiendo

El lunes, 12 de junio de 2023 a la(s) 13:36:52 UTC-6, shr...@gmail.com escribió:

Jose Mario

unread,
Jun 13, 2023, 10:42:45 AM6/13/23
to Comunidad de Visual Foxpro en Español
STRCONV(afpssf.csv, 10)
asi sera

El lunes, 12 de junio de 2023 a la(s) 13:36:52 UTC-6, shr...@gmail.com escribió:

Jose Mario

unread,
Jun 13, 2023, 12:09:49 PM6/13/23
to Comunidad de Visual Foxpro en Español
como se corrigio esto
genere un archivo csv
en lugar de colocart txt le coloque csv
luego lo accese lo llame en notepad
ahi hay una opcion que dice codificacon UTF-8
LO GUARDE Y SE CORRIGIO
NO ANDUBE HACIENDO NADA MAS

GRACIAS A TODOS

Reply all
Reply to author
Forward
0 new messages