Uso de SET TEXTMERGE TO ( Para Nuestro Guru Luis Maria)

[Luis Leon]

Estimados amigos tengo que crear un archivo de texto , que posteriormente sera leido por una aplicativo del estado, he estado utilizando el tradicional @ SAY, pero este despues de una cantidad de registro da un error de coordenadas, estuve leyendo un error similar donde nuestro Amigo Luis Maria da una salida a traves de SET TEXTMERGE TO, efectivamente este a funcionado pero al crear el TXT al inicio me da una linea en blanco la cual genera un error en el aplicativo que importara esta informacion.
 
Amigo Luis , si es factible un apoyo de su parte el codigo que estoy usando lo describo en la parte de abajo
 

SET TEXT ON NOSHOW
SET TEXTMERGE TO D:\LUIS.TXT
Select _Registro
Go Top
Do Whil !Eof()
   Mi_Cadena = Periodo+'|'+Corr_Comp+'|'+Fecha+'|'
 
   Mi_Cadena = Mi_Cadena + _FVenc+'|'+Tipo_Doc
  
   Mi_Cadena = Mi_Cadena +'|'+ Padl(Alltrim(Serie),4,'0')+'|'+Alltrim(Documento)
   _CampoFinal = '0'
  
   Mi_Nombre = Nombre
   Mi_Ruc    = Ruc
   If Isdigit(Subs(Nombre,09,10))
      _CampoFinal = Subs(Nombre,09,10)
      Mi_Nombre = '-'
      Mi_Ruc    = '-'
   Endif
  
   Mi_Cadena = Mi_Cadena +'|'+_CampoFinal
   
   Mi_Cadena = Mi_Cadena +'|'+Strzero(Val(Tipo_DocId),1)+'|'+Alltrim(Mi_Ruc)+'|'+Iif(Empty(Mi_Nombre),'-',Alltrim(Substr(Mi_Nombre,1,60)))
  
   Store '0.00' To Campo13,Campo14,Campo15,Campo16,Campo17,Campo18,Campo19,Campo20
  
   If Cod_Destin='1' And Tipo_Cv='02'
       Campo13 = Str(Afecto + Exonerado,12,2)
   Endif
   If Cod_Destin='1' And  Tipo_Cv='01'
      Campo14 = Str(Afecto,12,2)
   Endif
   If Tipo_Cv='01' And Exonerado<>0
      Campo15 = Str(Exonerado,12,2)
   Endif
   Campo18 = Str(Impuesto)
   If Cod_Destin='4' && Ivap
      Campo19 =  Str(Afecto + Exonerado,12,2)
      Campo20 =  Str(Impuesto)
      Campo18 = '0.00'
   Endif
  
   Mi_Cadena1 = Mi_Cadena +'|'+Campo13 +'|'+Campo14 +'|'+Campo15 +'|'+Campo16 +'|'+Campo17 +'|'+Campo18 +'|'+Campo19 +'|'+Campo20
  
   Mi_Cadena2 = '|'+Str(Otros,12,2)+'|'+Str(Mi_Total,12,2)+'|'+Str(Mi_TC,5,3)
   
   _Fecha = '01/01/0001'
   _TipoD = '00'
   _Serie = '-'
   _DocDo = '-'
   If Tipo_Doc='07' Or Tipo_Doc='08' Or Tipo_Doc='87' Or Tipo_Doc='88' Or Tipo_Doc='97' Or Tipo_Doc='98'
       _Fecha = Fecha_Doc
       _TipoD = TipoDo_Doc
       _Serie = Serie_Doc
       _DocDo = Doc_Doc
      
   Endif
   Mi_Cadena2 = Mi_Cadena2 +'|'+_Fecha+'|'+_TipoD+'|'+_Serie+'|'+_DocDo+'|'+Estado+'|'
  
    \<<Mi_Cadena1+Mi_Cadena2>>
   Skip
Endd
SET TEXTMERGE TO

[Luis Maria Guayan]

1.  No soy gurú de nadie
2. No me preguntes solo a mi porque te quedaras si otras respuestas

Puedes intentar ulilizando STRTOFILE() para generar tus archivo plano

Ej
STRTOFILE(lcMiCadena + CHR(13) + CHR(10), "c:\luis.txt",1)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

[Edgar Acevedo]

También puedes utilizar otros comandos como:

SET CONSOLE OFF
SET ALTERNATE TO C:\Luis.TXT

SET ALTERNATE ON

DO WHILE .T.

    (instrucciones...)

    (instrucciones...)

    (instrucciones...)

    (instrucciones...)

    ? Mi_Cadena1+Mi_Cadena2

ENDDO

SET ALTERNATE OFF

SET ALTERNATE TO

SET CONSOLE ON

--
 
 

[Fox Friend]

Y cuál es mejor?... 

SET TEXTMERGE TO

o

SET ALTERNATE TO

Saludos!

[Edgar Acevedo]

Al menos para mi, dificil de responder.  Se me ocurre una respuesta análoga en forma de pregunta: 
¿ Cual de tus 2 manos es la mejor ? ¿Tu mano derecha o tu mano izquierda?

Salu2,

Edgar

2013/1/7 Fox Friend <thenewin...@gmail.com>

--
 
 

[ZeRoberto]

Mi 3er brazo jajajaja

--
 
 

[Miguel Canchas]

Mano, mano, MANOOOOOOOOOOOO… no brazo….

 

MK

--
 
 

[Fox Friend]

Preguntaba porque dice el compañero que el merge le genera una línea vacía al inicio.

No sé si alternate hace eso tambien..

Saludos!

[Víctor Hugo Espínola Domínguez]

Lo que genera un avance de línea es el comando \, debería usar \\

Saludos.

Víctor.

--
 
 

[Fox Friend]

Victor Hugo,

Como sabes tanto ? ..

Algun día quiero saber tanto como tu de programación..

Cómo le haces para saber tanto, es decir, sé que estudias mucho, pero como?

Cuáles son tus "metodos de aprendizaje".

Lees primero un manual y luego practicas, o que es lo que haces para aprender rápidamente.

Si hay alguien que ha tenido exito en aprender tanto, me gustaría saber cómo lo logró.

La pregunta es en serio, no es ninguna broma..

Saludos!

[wpalomo]

Se llama experiencia, amigo. Algo que no se estudia, sino que se adquiere con la practica diaria.

Saludos

[Fox Friend]

De todos modos me gustaría escuchar que dice Victor Hugo.. Gracias!

[Geovanny Quirós Castillo]

Mientras te responde Victor, te dejo las etapas del programador, creo que todos hemos pasado por al menos 7 de estas etapas pero ninguno quiere llegar a la 11, je je.

 

 

--
 
 

[German Abdala (g)]

Gente, bs ts, tengo un sistema administrativo en vfp9, el requerimiento
es poder consultar la cuenta corriente x web, la idea es que vamos
mandando x mail los resumenes en pdf, pero surgio esta idea de poner
consultar x web .- El sistema esta con bases nativas dbf, que opciones
tengo para brindar este servicio de la manera mas simple.-

Gracias

Saludos, German

[Víctor Hugo Espínola Domínguez]

Hola Fox Friend

No te dejes engañar por las apariencias. Si hubiera alguna forma de calcular el promedio de los conocimientos de algunos miembros del foro, como: Luís María Guayán, Víctor Espina, César Chalom, Mario López, Ricardo de Castro, Guillermo Carrero, Walter Ojeda y uff la lista sería muy larga, puedo asegurarte que no llego ni al 20% de dicho promedio.

Cada día aprendo algo nuevo en este maravilloso foro, simplemente leyendo las respuestas dadas por los compañeros.

>Cuáles son tus "metodos de aprendizaje".

Me gusta hacer algo que tú odias: USAR CÓDIGO AJENO, tratar de entenderlo recurriendo a la ayuda de la aplicación y ver si se puede mejorar.

Saludos.

Víctor.

P.D.: Más sabe el diablo por viejo ....

El 7 de enero de 2013 16:46, Fox Friend <thenewin...@gmail.com> escribió:

De todos modos me gustaría escuchar que dice Victor Hugo.. Gracias!

--
 
 

[Fox Friend]

Pues desde ahora en adelante, bienvenido el "codigo ajeno" que los desarrolladores compartan libremente, para ver si consigo aprender rápidamente.

De hecho, me gustaría ver el manual técnico de una aplicación de inventarios, pero hasta la fecha no consigo uno..

Digo para ver si consigo aprender, porque soy consciente de que cada persona tiene su forma de aprender. Lo he visto en la enseñanza del Inglés:

Algunos son muy buenos para la gramática, pero les cuesta mucho pronunciar.

Otros son buenos para pronunciar, pero les cuesta mucho la gramática..

Al final, le toca a cada uno explorar que métodos de aprendizaje funcionan bien para él.

Probare si este método de aprendizaje funciona para mi.

Saludos!

[Allan Raúl Acuña]

Lo que hice en un momento era enviar datos a MySQL a un Hosting y desde este levantar los datos en PHP para las consultas.
 
Por otro lado se puede tener la base de datos en MySQL en un Honting y desde VFP consultar.

Saludos cordiales;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
            +(505) 8 831 8191      
www.NicEasySoft.com

Managua, Nicaragua

Centroamérica

 

> Date: Mon, 7 Jan 2013 18:08:35 -0300
> From: ggab...@gmail.com
> To: publice...@googlegroups.com
> Subject: [vfp] Opciones Web

> --
>
>

[Luis Maria Guayan]

Mira si este artículo de PortalFox te ayuda

-- Accediendo a datos de VFP 9.0 desde la Web con el Proveedor OLE DB de VFP 9.0 --
http://www.portalfox.com/article.php?sid=1591

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Geovanny Quirós Castillo]

Hola German,
es muy probable que te lluevan opciones para tu necesidad, si conoces algo
de .net lo puedes resolver con vb o C#, para mi gusto es mas sencillo con
VB, deber�as crear una aplicaci�n asp.net pero vas a necesitar un servidor
web y obviamente que tenga salida a internet.

En la web sobran los ejemplos de como acceder a DBFs por medio de .net

Mira estos articulos:

Acceso a datos .DBF desde ADO.NET mediante C# y OLEDB
http://www.fpress.com/revista/Num0102/art.htm

Acceso a ficheros dBase (.dbf) desde Visual Basic .NET y C#
http://www.elguille.info/net/adonet/acceso_ficheros_dbase_vbnet_csharp.aspx


Saludos





-----Mensaje original-----
From: German Abdala (g)
Sent: Monday, January 7, 2013 3:08 PM

To: publice...@googlegroups.com
Subject: [vfp] Opciones Web

--

[German Abdala (g)]

Muchas gracias a todos, me voy a poner a evaluar!


El 07/01/2013 06:30 p.m., Geovanny Quir�s Castillo escribi�:

[Marcos Godoy]

German, hay un servidor web gratis que tiene ejemplos y anda muy bien , que esta hecho totalmente en fox, ni siquiera necesitas apache ni IIS, 

se llama eeva webserver, tiene ejemplos de como usarlo , yo lo tuve andando varios años en un sitio con mas de 1000 clientes. lo aprendes a usar en un día cuesta un poco entender los fuentes por que los programadores son finlandeces, pero la documentación está en Ingles y con un poco de empeño en una tarde lo sacas andando!!!

--

[Viktor Velazquez]

otra que trabaja es https://sites.google.com/a/foxpert.com/active-foxpro-pages/ con tablas nativas de fox y codigo nativo de fox.. con IIS windows server 2003
 

---

Date: Tue, 8 Jan 2013 14:45:44 -0300
Subject: Re: [vfp] Opciones Web
From: mar...@nominasrh.com
To: publice...@googlegroups.com

--
 
 

[Jairo Miranda]

Tengo Windows 8 Premium al iniciar el el programa que baje el eeva webserver la forma server.scx me pide la instalación del winsock

JM

--