Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » guardar archivo en red foxpro

FoxPro/Visual FoxPro - guardar archivo en red foxpro

Volver
Nuevo Tema
<<>>
 
Vista:

guardar archivo en red foxpro

Publicado por xeneize73 (14 intervenciones) el 23/05/2012 16:39:47
Hola. tengo una aplicacion que se comunica en red, y sin ningun problema pero cuando quiero generar un archivo txt o caj y guardarlo en el disco, el archivo no se guarda y no se me ocurre que puedo hacer. El archivo se genera y se guarda sin preguntar nada, quizas en ves de darle directamente la direccion donde se debe guardar, que antes te salga el cuadro opcional para guardarlo en la direccion que tu elijas y probarlo asi, el tema que no se como hacer que salga ese cuadro en ves de que se guarde directamente.
Pongo el codigo del click

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
IF USED('tem')

SELECT tem
USE
ENDIF
 
 
SELECT de
SET FILTER TO RECIBAR
 
SORT TO Z:\fr\temporales\tem ON CC
SELECT 0
USE Z:\fr\temporales\tem EXCLU
REPLACE ALL importe WITH total
 
 
thisform.generar_recibos()
 
 
SELECT FYTE
 
APPEND BLANK
REPLACE NUMFACON WITH NNUMFY
REPLACE FECHA WITH DATE()
REPLACE NUMRECWITH TOTALREC
REPLACE TOTAL WITH TOTALTOTALES
 
IF USED('tem1')

SELECT tem1
USE
ENDIF
 
SELECT TEM
REPLACE ALL NUMFAC WITH NNUMFAC
 
COPY TO Z:\fr\temporales\tem1
 
GO TOP
DO WHILE !EOF()
M.NUMFAC=NUMFAC
M.NUMREC=NUMREC
M.NUMFACI=NUMFACI
SELECT PRODE
SET ORDER TO NUMFACI
SEEK M.NUMFACI
IF FOUND()
GATHER MEMVAR FIELDS NUMFAC,NUMREC
ELSE
=MESSAGEBOX('ERROR, 

Nº'+ALLTRIM(STR(M.NUMFAC)))

ENDIF
SELECT TEMR
SKIP
ENDDO
 
 
SELECT DETFAC
 
SET FILTER TO
DELETE ALL FOR NUMFAC=NNUMFAC
APPEND FROM Z:\fr\temporales\TEM1
 
 
 
IF !USED('NUMFAC')

SELECT 0
USE (DATOS+'NUMFAC') ALIAS NUMFAC

ELSE
SELECT NUMFAC
ENDIF
REPLACE NUMFAC WITH NUMFAC+1
USE
 
SELECT de
SET FILTER TO RECI
DELETE ALL
SET FILTER TO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

guardar archivo en red foxpro

Publicado por xeneize73 (14 intervenciones) el 23/05/2012 16:44:26
nada, no se fijen en el codigo, no es ese el que queria poner, igual si saben como guardar preguntandote donde en ves de ir directamente, estoy utilizando fcreate
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio
Val: 471
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

guardar archivo en red foxpro

Publicado por Mauricio (1541 intervenciones) el 24/05/2012 00:33:46
Solo tienes que quitar la linea del copy y sustituirla por =PUTFILE, ejemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
*---
IF USED('tem')

SELECT tem
USE
ENDIF
*---
SELECT de
SET FILTER TO RECIBAR
*---
SORT TO Z:\fr\temporales\tem ON CC
SELECT 0
USE Z:\fr\temporales\tem EXCLU
REPLACE ALL importe WITH total
*---
thisform.generar_recibos()
*---
SELECT FYTE
APPEND BLANK
REPLACE NUMFACON WITH NNUMFY
REPLACE FECHA WITH DATE()
REPLACE NUMRECWITH TOTALREC
REPLACE TOTAL WITH TOTALTOTALES
*---
IF USED('tem1')

	SELECT tem1
USE
ENDIF
*---
SELECT TEM
REPLACE ALL NUMFAC WITH NNUMFAC
*---
*COPY TO Z:\fr\temporales\tem1
=PUTFILE('txt')

*---
GO TOP
DO WHILE !EOF()
	M.NUMFAC=NUMFAC
	M.NUMREC=NUMREC
	M.NUMFACI=NUMFACI
	SELECT PRODE
	SET ORDER TO NUMFACI
	SEEK M.NUMFACI
	IF FOUND()
		GATHER MEMVAR FIELDS NUMFAC,NUMREC
	ELSE
		=MESSAGEBOX('ERROR, Nº'+ALLTRIM(STR(M.NUMFAC)))

	ENDIF
	SELECT TEMR
	SKIP
ENDDO
*---
SELECT DETFAC
*---
SET FILTER TO
DELETE ALL FOR NUMFAC=NNUMFAC
APPEND FROM Z:\fr\temporales\TEM1
*---
IF !USED('NUMFAC')

	SELECT 0
	USE (DATOS+'NUMFAC') ALIAS NUMFAC

ELSE
	SELECT NUMFAC
ENDIF
REPLACE NUMFAC WITH NUMFAC+1
USE
*---
SELECT de
SET FILTER TO RECI
DELETE ALL
SET FILTER TO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

guardar archivo en red foxpro

Publicado por xeneize73 (14 intervenciones) el 24/05/2012 09:15:02
Buenismo, mauricio, pero igual no se soluciono el problema, me sale la opcion de guardar el archivo donde quiera, pero no se guarda, si pongo el programa en c: nunca tengo ese problema, pero si lo tengo en red, z: el archivo no se guarda, no se que puedo hacer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

guardar archivo en red foxpro

Publicado por xeneize73 (14 intervenciones) el 25/05/2012 09:15:17
Ha alguien le ha pasado, o sabe como solucionarlo, por mas que haga modificaciones, cuando el programa esta en red no me guarda el archivo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

guardar archivo en red foxpro

Publicado por Armando Valdes (1 intervención) el 05/06/2012 02:35:27
El problema que debes tener es que no tienes permiso de escritura en el servidor que quieres guardar el archivo y por ende no te lo va a grabar; espero sea este tu problema y ahi esta la solucion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar