Re: Cadena demasiado larga (Error 1903)

[Fidel Charny]

Puedes intentar de la forma siguiente:

PROCEDURE facturax
*-------------------
#DEFINE _COMID_        CHR(34)
LOCAL lcFile, lnHand

lcFile = ALLTRIM(nusuario)+'paso.txt'
lnHand = FCREATE(lcfile)
=FPUTS(lnHand , SPACE(5) + '<cfdi:Complemento>' )
=FPUTS(lnhand , SPACE(10) + [<tfd:TimbreFiscalDigital xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/TimbreFiscalDigital/TimbreFiscalDigital.xsd" version="1.0" xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital"] )
=FPUTS(lnHand , SPACE(10) + 'selloSAT=' + _COMID_ +ALLTRIM(facelei.sellosat) + _COMID_ )
=FPUTS(lnHand , SPACE(10) + 'selloCFD='+ _COMID_ +ALLTRIM(facelei.sellocfd) + _COMID_ )
=FPUTS(lnhand , SPACE(5) + "LO que sea" )

=FCLOSE(lnHand)

#UNDEFINE _COMID_

Nota: copio lo que pusiste como datos, aunque me parece que no cierran las tags.

De paso:
Para escribir un encomillado literal, es más claro utilizar:
lcEncomillado = CHR(34) + "Esto quedará escrito entre comillas dobles" + chr(34). Te evita ese bodrio visual de = '"'
Cuando un texto puede contener comillas simples y dobles, es mejor usar corchetes:
lcBodrio = [Los muchachos no estaban 'de joda', se habían tomado unas "vacaciones".]

o más generalmente:
LOCAL lcText

TEXT TO lcTExt NOSHOW PRETEXT 15
Los muchachos no estaban 'de joda',
estaban de "vacaciones".
ENDTEXT

MESSAGEBOX(lcText)


El sábado, 12 de septiembre de 2015, 2:52:14 (UTC-3), Sergio Monroy escribió:

Buen dia a todos

tengo este error que no he podido resolver, si me pueden ayudar, se los voy a agradecer

me explico:

Tengo un archivo donde guardo los datos del timbrado en campos memo, utilizo un archivo temporal (txt) para despues agregarlo al xml original, pero con este cliente en especifico me esta marcando el error "Cadena demasiado larga (Error 1903)" como puedo resolver esto?

esta es parte del codigo:

PROCEDURE facturax

apaso = ALLTRIM(nusuario)+'paso.txt'

SET DEVI TO FILE &apaso

renglon = 1

@ renglon, 5 SAY '<cfdi:Complemento>'

renglon = renglon+1

@ renglon, 10 SAY '<tfd:TimbreFiscalDigital xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/TimbreFiscalDigital/TimbreFiscalDigital.xsd" version="1.0" xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital"'

renglon = renglon+1

@ renglon, 10 SAY 'selloSAT='+'"'+ALLTRIM(facelei.sellosat)+'"'

renglon = renglon+1

@ renglon, 10 SAY 'selloCFD='+'"'+ALLTRIM(facelei.sellocfd)+'"'         AQUI ES DONDE MARCA EL ERROR

de antemano gracias por su apoyo

[Fargoz]

ummm

creo que es un problema de los say .... estan limitados... por el tipo de letra.. y el tamaño...

intenta con esto...

_screen.FontSize = 4 

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Cordialmente,

MedeSoft Developer Ltda
Fabio Ramirez G.
Ingenieria de Software

Medellin - Colombia

Horario Atención

Lunes - Viernes

8am - 12pm   2pm-4pm

www.fmovil.co

www.fargoz.com

www.elvendedor.co

www.elcomprador.co

www.medesoft.co

[Sergio Monroy]

Fabio Gracias por responder

fijate que sigo con el problema, hice la prueba con el tamaño de letra y no funciono, por otra parte si lo separo en 2 variables si funciona, pero me deja un espacio en blanco entre las 2 cadenas (incorrecto)

si alguien me puede ayudar se los voy a agradecer

El viernes, 11 de septiembre de 2015, 22:52:14 (UTC-7), Sergio Monroy escribió:

[Carlos Miguel FARIAS]

De donde sale la "supongo" tabla facelei?, tampoco veo donde se cargan ni sellosat ni sellocfd.

Al menos en el código que se ve.

Saludos: Miguel, La Pampa (RA)

--