FoxPro/Visual FoxPro - modificar print para generar archivo txt

   
Vista:

modificar print para generar archivo txt

Publicado por tazx (2 intervenciones) el 29/07/2017 01:15:56
Que tal amigos tengo una consulta ya que no manejo mucho el foxpro tengo un prg de un sistema cuyo programador esta fuera del pais y es un lio entenderlo ya que otras personas le han metido mano

bueno al grano

quisiera editar la rutina de imprimir el tike y en ves de imprimirlo que me genere un archivo txt en una carpeta con el numero de correlacion todo de forma automatica

o

que en ves de imprimir pase ese tike a una base de datos en mysql



gracias a todos por su tiempo y atencion


este es el prg en cuestion
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
SET CONSOLE OFF
 _peject='NONE'
 _PLENGTH=26
* 		                _PADVANCE='FORMFEED'
printjob
 _PLINENO=0
 _PCOLNO=0
_NUMERO=0
 SET PRINT TO tiket_venta.TXT
                        SET DEVI TO PRINT
                        set print on
 		                _PLENGTH=26
 		                _PLINENO=0
 		                _PCOLNO=0
                        _peject='none'
                           _NUMERO=_NUMERO+1
 
                           if _PLINENO>26
                              _PLINENO=1
                           endi
 
                           @_PLINENO,0 say "COMPROVANTE DE VENTA"
                           _plineno=_plineno+1
                           @_PLINENO,0 say DATE()
                           _PLINENO=_PLINENO+1
                           @_PLINENO,0 say TIME()
                           _PLINENO=_PLINENO+2
                           @_PLINENO,2 say "         Articulo           Cant    P.V.P."
                           _PLINENO=_PLINENO+1
                           *@_plineno,0 say "_____________________________"
                           _PLINENO=_PLINENO+1
                           GO top
                           _subtotal=0
                           _totalcant=0
                           _totalbsf=0
                           SCAN
                               _subtotal=0
	                           @_PLINENO,0  say ALLTRIM(temporal2.descrip)
	                           @_PLINENO,20 say temporal2.cantidad pict "##"
	                           @_PLINENO,24 say temporal2.pvp/1000  pict "####.##"
	                           _subtotal=_subtotal+(temporal2.cantidad*(temporal2.pvp/1000))
	                           @_PLINENO,32 say _subtotal pict "#####.##"
	                           _totalbsf=_totalbsf+_subtotal
	                           _totalcant=_totalcant+1
	                           _plineno=_plineno+1
 
                           endscan
                           *@_plineno,0 say "_____________________________"
                            _plineno=_plineno+1
                           @_plineno,0 say "Total Articulos                     Total BsF"
                           _plineno=_plineno+1
                           @_plineno,4 say _totalcant pict "###"
                           @_plineno,38 say _totalbsf pict "#####.##"
 
                           _plineno=_plineno+2
                           @_plineno,0 say "_________________________________"
                           _plineno=_plineno+2
                           @_plineno,0 say "."
 
 
 
 
 
                        _peject='none'
                        SET PRINT OFF
                        SET PRINT TO
                        SET DEVI TO SCREE
                        endprintjob
 
TYPE tiket_venta.TXT TO print
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

modificar print para generar archivo txt

Publicado por Fidel José (520 intervenciones) el 29/07/2017 12:59:56
lcfileName = "Nombre del archivo de salida.txt"

SET DEVICE TO FILE &lcFilename && en lugar de SET DEVICE TO PRINT
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

modificar print para generar archivo txt

Publicado por tazx (2 intervenciones) el 29/07/2017 15:21:55
si entiendo bien su explicacion deberia quedar haci el prg una pregunta donde genera el archivo ?

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
SET CONSOLE OFF
 
 _peject='NONE'
 
 _PLENGTH=26
 
* 		                _PADVANCE='FORMFEED'
 
printjob
 
 _PLINENO=0
 
 _PCOLNO=0
 
_NUMERO=0
 
lcfileName = "Nombre del archivo de salida.txt"
 
SET DEVICE TO FILE &lcFilename &&
 
	_PLENGTH=26
 
	_PLINENO=0
 
	_PCOLNO=0
 
	_peject='none'
 
		_NUMERO=_NUMERO+1
 
 
 
		if _PLINENO>26
 
			_PLINENO=1
 
		endi
 
 
 
		@_PLINENO,0 say "COMPROVANTE DE VENTA"
 
		_plineno=_plineno+1
 
		@_PLINENO,0 say DATE()
 
		_PLINENO=_PLINENO+1
 
		@_PLINENO,0 say TIME()
 
		_PLINENO=_PLINENO+2
 
		@_PLINENO,2 say "         Articulo           Cant    P.V.P."
 
		_PLINENO=_PLINENO+1
 
		*@_plineno,0 say "_____________________________"
 
		_PLINENO=_PLINENO+1
 
		GO top
 
		_subtotal=0
 
		_totalcant=0
 
		_totalbsf=0
 
		SCAN
 
			_subtotal=0
 
			@_PLINENO,0  say ALLTRIM(temporal2.descrip)
 
			@_PLINENO,20 say temporal2.cantidad pict "##"
 
			@_PLINENO,24 say temporal2.pvp/1000  pict "####.##"
 
			_subtotal=_subtotal+(temporal2.cantidad*(temporal2.pvp/1000))
 
			@_PLINENO,32 say _subtotal pict "#####.##"
 
			_totalbsf=_totalbsf+_subtotal
 
			_totalcant=_totalcant+1
 
			_plineno=_plineno+1
 
 
 
		endscan
 
		*@_plineno,0 say "_____________________________"
 
		_plineno=_plineno+1
 
		@_plineno,0 say "Total Articulos                     Total BsF"
 
		_plineno=_plineno+1
 
		@_plineno,4 say _totalcant pict "###"
 
		@_plineno,38 say _totalbsf pict "#####.##"
 
 
 
		_plineno=_plineno+2
 
		@_plineno,0 say "_________________________________"
 
		_plineno=_plineno+2
 
		@_plineno,0 say "."
 
 
 
 
 
 
 
 
 
 
 
	_peject='none'
	SET DEVI TO SCREE
 
	endprintjob
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

modificar print para generar archivo txt

Publicado por Fidel José (520 intervenciones) el 29/07/2017 17:17:06
Se supone que ahí pones el nombre del archivo y su ruta
1
2
3
4
5
6
7
8
9
10
11
12
13
14
lcfileName = "Nombre del archivo de salida.txt"
 
Ejemplo:
lnNroTicket = 000100036260
lcFileName = "C:\Sistema\Backups\Tickets\"+"T"+transform(m.lnNroTicket)+".txt"
 
SET DEVICE TO FILE &lcFileName
 
Otro ejemplo
lcFolder = "C:\Sistema\Backups\Tickets"
lnNroTicket = 000100036260
 
lcFileName = FORCEEXT(ADDBS(m.lcFolder) + "T" + transform(m.lnNroTicket),"txt")
SET DEVICE TO FILE &lcFileName
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