CONVERSIÓN A UTF-8

[OTILIA CAÑON]

LOCAL Lnumfactu

Lnumfactu ='c:\Factura _electronica\'+'factura'+ALLTRIM(This.pid)+'.xml'

**--Verifica si el archivo existe lo elimina 

DELETE FILE 'c:\Factura _electronica\'+'factura'+ALLTRIM(This.pid)+'.xml'

TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW PRETEXT 4

<?xml version="1.0" encoding="UTF-8"?>

<PhysicalLocation>

<Address>

<ID><<This.AddressId>></ID>

<CityName><<This.CityName>></CityName>

<PostalZone><<This.PostalZone>></PostalZone>

<CountrySubentity><<ALLTRIM(This.CountrySubentity)>></CountrySubentity>

<CountrySubentityCode><<This.CountrySubentityCode>></CountrySubentityCode>

</Address>

</PhysicalLocation>

ENDTEXT

YlcText=STRCONV(lcText, 9,1033)

=STRTOFILE(YlcText,Lnumfactu,.T.)

Me genera este xml 

<PhysicalLocation>

<Address>

<ID>11001</ID>

<CityName>BOGOTÁ, D.C.</CityName>

<PostalZone></PostalZone>

<CountrySubentity>Bogotá</CountrySubentity>

<CountrySubentityCode>11</CountrySubentityCode>

</Address>

</PhysicalLocation>

Pero cuando cuando llega la validacion a BOGOTÁ, NO RECONOCE LA TILDE Y SACA EL SIGUIENTE ERROR 

Y CUANDO VA A VALIDAR EL ARCHIVO ME SALE EL ERROR EN ESTA LINEA:

<CityName>BOGOTÁ, D.C.</CityName>

input is not proper UTF-8 indicate encoding

Yo pienso que es la tilde, pero se supone que la función me convierte a UTF-8, y reconoce los caracteres especiales, si alguien me puede colaborar con este error

[Zarlu]

Buenos días Otilia Cañon!

Observo que estás codificando con el parámetro "1033" que corresponde al inglés.

Yo también tuve problemas con los acentos en el idioma español y lo solucioné con el parámetro de conversión "11"

Quedaría así: StrConv(mitxt,11,1034)

Puedes referirte a la ayuda de VFP.

Suerte

zarlu

Chetumal, Quintana Roo, México

[OTILIA CAÑON]

Chetumal 

 

Gracias pero te hago una pregunta el parámetro 11, dice que convierte de  11 Convierte caracteres UTF-8 en cExpression en caracteres de doble byte . 

y yo necesito que me quede en UTF-8, 

OTILIA 

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/mozVata_kmQ/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/a8185bf8-313b-4e11-9fa6-c4d5b5c63b90%40googlegroups.com.

[Zarlu]

Hola Otilia Cañon!

Usa primero el 9 y luego entonces el 11

Algo así:

=STRCONV(STRCONV(tutexto,9),11)

Te sugiero el 11 por los acentos, pero igual el 13 como lo tenías.

Te dejo éste link del mismo grupo, mencionan una rutina para confirmar la conversión

https://groups.google.com/forum/#!searchin/publicesvfoxpro/utf-8%7Csort:date/publicesvfoxpro/CIRVhB3l8PU/EGoUBiNbCAAJ

Y por supuesto haz pruebas de envío/recepción y comparación para validar los acentos

[OTILIA CAÑON]

Muchas gracias voy a probar 

otilia

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/mozVata_kmQ/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/95a47779-f1f4-4ced-affc-5ce1ffc4a4b0%40googlegroups.com.

[OTILIA CAÑON]

Asi como dices no funciona, eso es de una factura electrónica, y le he hecho de todo

otiliA

[Zarlu]

Buenos días Otilia Cañon!

Te pido disculpas ya por distraído no reparé en que tu mensaje inicial mencionas que es para factura electrónica...y eso tiene otras vertientes.

He leído al respecto ya que tuve la intención de entrarle al tema, pero es un asunto que requiere atención en producción y seguimiento en ejecución por las reformas fiscales y mi ocupación principal no me daría tregua.

Pero bueno....

Te paso éste link que, aunque ya no le veo movimiento, en su momento debatieron al respecto.

https://groups.google.com/forum/#!forum/vfp-factura-electronica-mexico

Haz probado CURSORTOXML(), opción 32?

Te paso también unos códigos que encontré para verificar UTF-8.

Quizá no sea la misma validación que requieres, pero como los localicé en la red te los paso.

Con el bloc de notas puedes guardar en diferentes formatos y entonces probar la validación

*-valida si es utf-8

lcText = Filetostr(getfile())
If lcText == STRCONV(STRCONV(lcText,12),10)
   ? "File is UTF8"
Else
   ? "File is ANSI"
Endif

*-valida si es utf-8 con cabacera Bom

LOCAL lcFile, lnH, lcBOM
lcFile = GETFILE()
lnH = FOPEN(m.lcFile, 10)
IF lnH > 0
  lcBOM = FREAD(m.lnH, 3)
  IF m.lcBOM == 0hEFBBBF
    WAIT WINDOW "UTF-8 BOM present"
  ELSE
    WAIT WINDOW "No UTF-8 BOM"
  ENDIF
  = FCLOSE(m.lnH)
ELSE
  *-- Process possible error here
ENDIF

[OTILIA CAÑON]

MUCHAS GRACIAS 

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/mozVata_kmQ/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/3bfe1612-de21-44ef-b2f8-9cfdef72a54d%40googlegroups.com.