Parameter LCALIAS2TXT, LCFILEPATH
*---------------------------------------------------
* VERIFICAR SI EXISTE LA CARPETA DEL USUARIO LOGEADO
Local lcCarpeta As String
lcCarpeta = MiRuta + "Respaldo\" + Alltrim(NOMBRE_USUARIO) + "\"

=crear_folder(lcCarpeta)
LCFILEPATH = lcCarpeta + LCFILEPATH

LCFIELDSTRING = ''
LCMEMO = ''
Select &LCALIAS2TXT
LNFIELDCOUNT = Afields(LAGETFIELDS)
LCTEXTFILE = Fcreate(LCFILEPATH)
Scan
	Wait Window Nowait Str(Recno())+' Of '+Str(Reccount())
	For LNCOUNT = 1 To LNFIELDCOUNT
		LCTYPE = LAGETFIELDS(LNCOUNT, 2)
		
		If LCTYPE<>'G'
			LCSTRING = Evaluate(LAGETFIELDS(LNCOUNT, 1))
		Endif
		
		Do Case
		Case LCTYPE='M'
			LNMEMOLINES = Memlines(Evaluate(LAGETFIELDS(LNCOUNT, 1)))
			For LNLOOP = 1 To LNMEMOLINES
				If LNLOOP<LNMEMOLINES
					LCMEMO = LCMEMO+Alltrim(Mline(Evaluate(LAGETFIELDS(LNCOUNT, 1)), LNLOOP))+' '
				Else
					LCMEMO = LCMEMO+Alltrim(Mline(Evaluate(LAGETFIELDS(LNCOUNT, 1)), LNLOOP))
				Endif
			Endfor
			LCSTRING = LCMEMO
			LCMEMO = ''
		
		Case LCTYPE='G'
			LCSTRING = 'Gen'
		Case LCTYPE='D'
			LCSTRING = Dtoc(LCSTRING)
		Case LCTYPE='T'
			LCSTRING = Ttoc(LCSTRING)
		Case LCTYPE='N'
			LCSTRING = Str(LCSTRING, Len(Str(LCSTRING)), 2)
		Case LCTYPE='I'
			LCSTRING = Str(LCSTRING)
		Case LCTYPE='L'
			If LCSTRING=.T.
				LCSTRING = 'T'
			Else
				LCSTRING = 'F'
			Endif
		Endcase
		If LNCOUNT<LNFIELDCOUNT
			LCFIELDSTRING = LCFIELDSTRING+'"'+LCSTRING+'"'+','
		Else
			LCFIELDSTRING = LCFIELDSTRING+'"'+LCSTRING+'"'
		Endif
	Endfor
	Fputs(LCTEXTFILE, LCFIELDSTRING)
	LCFIELDSTRING = ''
Endscan
Fclose(LCTEXTFILE)
Wait Window Nowait 'Auto guardando, Rendición'
Endproc
**
