1 *:
2 *:
3 *: Procedure file: D:\FPD26\PR3.PRG
4 *:
5 *: System: ETL
6 *: Author: Valentin Chirosca
7 *: Copyright (c) 2003, C & IE
8 *: Last modified: 12/31/03 16:44
9 *: 10 *: Procs & Fncts: ACTFIS 11 *: : CATALOG 12 *: : NOTE 13 *: : CREDITE 14 *: : INTRARI 15 *: : CALMAT 16 *: : AN1 17 *: : AN2 18 *: : AN3 19 *: : AN4 20 *: : NAN1S1 21 *: : NAN2S1 22 *: : NAN3S1 23 *: : NAN4S1 24 *: : NAN1S2 25 *: : NAN2S2 26 *: : NAN3S2 27 *: : NAN4S2 28 *: : NANI 29 *: : CAN1S1 30 *: : CAN1S2 31 *: : CAN2S1 32 *: : CAN2S2 33 *: : CAN3S1 34 *: : CAN3S2 35 *: : CAN4S1 36 *: : CAN4S2 37 *: : ANUNU 38 *: : ANDOI 39 *: : ANTREI 40 *: : ANPATRU 41 *: : ABSOLVENTI 42 *: QAN11.FPQ 46 *: : CREDITE (procedure in PR3.PRG)
45 *: : NOTE (procedure in PR3.PRG)
44 *: : CATALOG (procedure in PR3.PRG)
43 *: Calls: ACTFIS (procedure in PR3.PRG)
47 *:
48 *: Documented 01/01/10 at 22:04 FoxDoc version 2.10f Main | |TOP||
49
*:**********************************************************************
50 @ 1,0 CLEAR
51 DEFINE MENU m MESSAGE 'MATRICOLE;Credite;ACTUALIZARI'
52 DEFINE PAD p1 OF m PROMPT 'actualizare'AT 1,1
53 DEFINE PAD p2 OF m PROMPT 'DA CATALOG'AT 1,20
54 DEFINE PAD p5 OF m PROMPT 'Da credite'AT 1,45
55 DEFINE PAD p3 OF m PROMPT 'Rescrie'AT 1,60
56 DEFINE PAD p4 OF m PROMPT 's |TOP|'AT 1,70
57 DEFINE POPUP b1 FROM 2,1 TO 10,15
58 DEFINE POPUP b2 FROM 2,20 TO 8,30
59 DEFINE POPUP b3 FROM 2,60 TO 12,75
60 DEFINE POPUP b4 FROM 2,55 TO 7,60
61 DEFINE POPUP b5 FROM 2,45 TO 12,60
62 DEFINE BAR 1 OF b1 PROMPT 'intrari'
63 DEFINE BAR 2 OF b1 PROMPT 'Matricola'
64 DEFINE BAR 3 OF b1 PROMPT 'Anul I'
65 DEFINE BAR 4 OF b1 PROMPT 'Anul II'
66 DEFINE BAR 5 OF b1 PROMPT 'Anul III'
67 DEFINE BAR 6 OF b1 PROMPT 'Anul IV'
68 DEFINE BAR 7 OF b1 PROMPT 'ABSOLVENTI'
69 DEFINE BAR 1 OF b2 PROMPT 'An I'
70 DEFINE BAR 2 OF b2 PROMPT 'An II'
71 DEFINE BAR 3 OF b2 PROMPT 'An III'
72 DEFINE BAR 4 OF b2 PROMPT 'An IV'
73 DEFINE BAR 1 OF b3 PROMPT 'An I sem 1'
74 DEFINE BAR 2 OF b3 PROMPT 'An II sem 1'
75 DEFINE BAR 3 OF b3 PROMPT 'An III sem 1 '
76 DEFINE BAR 4 OF b3 PROMPT 'An IV sem 1 '
77 DEFINE BAR 5 OF b3 PROMPT 'An I sem 2 '
78 DEFINE BAR 6 OF b3 PROMPT 'An II sem 2 '
79 DEFINE BAR 7 OF b3 PROMPT 'An III sem 2 '
80 DEFINE BAR 8 OF b3 PROMPT 'An VI sem 2 '
81 DEFINE BAR 9 OF b3 PROMPT 'Foia matricola '
82 DEFINE BAR 1 OF b5 PROMPT 'An I sem 1'
83 DEFINE BAR 2 OF b5 PROMPT 'An II sem 1'
84 DEFINE BAR 3 OF b5 PROMPT 'An III sem 1 '
85 DEFINE BAR 4 OF b5 PROMPT 'An IV sem 1 '
86 DEFINE BAR 5 OF b5 PROMPT 'An I sem 2 '
87 DEFINE BAR 6 OF b5 PROMPT 'An II sem 2 '
88 DEFINE BAR 7 OF b5 PROMPT 'An III sem 2 '
89 DEFINE BAR 8 OF b5 PROMPT 'An VI sem 2 '
90 ON PAD p1 OF m ACTIVATE POPUP b1
91 ON PAD p2 OF m ACTIVATE POPUP b2
92 ON PAD p3 OF m ACTIVATE POPUP b3
93 ON PAD p5 OF m ACTIVATE POPUP b5
94 ON SELECTION PAD p4 OF m DEACTIVATE MENU
95 ON SELECTION POPUP b1 DO actfis
96 ON SELECTION POPUP b2 DO CATALOG
97 ON SELECTION POPUP b3 DO NOTE
98 ON SELECTION POPUP b5 DO credite
99 ACTIVATE MENU m
100 DEACTIVATE POPUP
116
*!**********************************************************************
117 *! 118 *! Procedure: ACTFIS
|TOP|
119 *!
120 *! Called by: PR3.PRG
121 *!
122 *! Calls: INTRARI (procedure in PR3.PRG)
123 *! : CALMAT (procedure in PR3.PRG)
124 *! : ANUNU (procedure in PR3.PRG)
125 *! : ANDOI (procedure in PR3.PRG)
126 *! : ANTREI (procedure in PR3.PRG)
127 *! : ANPATRU (procedure in PR3.PRG)
128 *! : ASOLVENTI (procedure in PR3.PRG)
129 *!
130
*!**********************************************************************
116 PROCEDURE actfis
117 HIDE POPUP b1
118 ╒DO CASE
119 ╞CASE BAR()=1
120 │DO intrari
121 ╞CASE BAR()=2
122 │ DO calmat
123 ╞CASE BAR()=3
124 │ DO anunu
125 ╞CASE BAR()=4
126 │ DO andoi
127 ╞CASE BAR()=5
128 │ DO antrei
129 ╞CASE BAR()=6
130 │ DO anpatru
131 ╞CASE BAR()=7
132 │ DO asolventi
133 ╘ENDCASE
144
*!**********************************************************************
145 *! 146 *! Procedure: INTRARI
|TOP|
147 *!
148 *! Called by: ACTFIS (procedure in PR3.PRG)
149 *!
150 *! Calls: QYZERO.FXP
151 *! : FOAIA_MA.SPR
152 *!
153
*!**********************************************************************
144 PROCEDURE intrari
145 @ 1,0 CLEAR
146 DO .\qyzero.fxp
147 DO .\foaia_ma.spr
166
*!**********************************************************************
167 *! 168 *! Procedure: CALMAT
|TOP|
169 *!
170 *! Called by: ACTFIS (procedure in PR3.PRG)
171 *!
172 *! Uses: FOAIA_MA.DBF
173 *! : FM1.DBF
174 *! : FM2.DBF
175 *! : FM3.DBF
176 *! : FM4.DBF
177 *!
178 *! Indexes: NUME (tag in FOAIA_MA.CDX)
179 *! : CNP (tag in FOAIA_MA.CDX)
180 *!
181 *! CDX files: FOAIA_MA.CDX
182 *!
183
*!**********************************************************************
166 PROCEDURE calmat
167 @ 1,0 CLEAR
168 USE foaia_ma.dbf
169 REPLACE ALL foaia_ma.matricola WITH foaia_ma.sectia+"/"+
STR(foaia_ma.an_studiu,1,1)+"/"+ foaia_ma.an_inscris+"/"+
ALLTRIM(foaia_ma.nr)
170 BROWSE LAST
171 COPY TO .\fm1\fm1.dbf FOR foaia_ma.an_studiu=1 FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.oras,foaia_ma.strada,foaia_ma.bloc,foaia_ma.apartament,foaia_ma.numar,foaia_ma.cod_postal,foaia_ma.telefon,foaia_ma.sectia,foaia_ma
172 USE .\fm1\fm1.dbf
173 INDEX ON nume TAG nume ADDITIVE
174 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
175 USE foaia_ma.dbf
176 COPY TO .\fm1\fm2\fm2.dbf FOR foaia_ma.an_studiu=2 FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.oras,foaia_ma.strada,foaia_ma.bloc,foaia_ma.apartament,foaia_ma.numar,foaia_ma.cod_postal,foaia_ma.telefon,foaia_ma.sectia,foaia_ma.
177 USE .\fm1\fm2\fm2.dbf
178 INDEX ON nume TAG nume ADDITIVE
179 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
180 USE foaia_ma.dbf
181 COPY TO .\fm1\fm2\fm3\fm3.dbf FOR foaia_ma.an_studiu=3
FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.oras,foaia_ma.strada,foaia_ma.bloc,foaia_ma.apartament,foaia_ma.numar,foaia_ma.cod_postal,foaia_ma.telefon,foaia_ma.sectia,foa
182 USE .\fm1\fm2\fm3\fm3.dbf
183 INDEX ON nume TAG nume ADDITIVE
184 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
185 USE foaia_ma.dbf
186 COPY TO .\fm1\fm2\fm3\fm4\fm4.dbf FOR foaia_ma.an_studiu=4
FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.oras,foaia_ma.strada,foaia_ma.bloc,foaia_ma.apartament,foaia_ma.numar,foaia_ma.cod_postal,foaia_ma.telefon,foaia_ma.sectia,F
187 INDEX ON nume TAG nume ADDITIVE
188 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
189 CLOSE ALL
202
*!**********************************************************************
203 *! 204 *! Procedure: CATALOG
|TOP|
205 *!
206 *! Called by: PR3.PRG
207 *!
208 *! Calls: AN1 (procedure in PR3.PRG)
209 *! : AN2 (procedure in PR3.PRG)
210 *! : AN3 (procedure in PR3.PRG)
211 *! : AN4 (procedure in PR3.PRG)
212 *!
213
*!**********************************************************************
202 PROCEDURE CATALOG
203 HIDE POPUP b2
204 ╒DO CASE
205 ╞CASE BAR()=1
206 │ DO an1
207 ╞CASE BAR()=2
208 │ DO an2
209 ╞CASE BAR()=3
210 │ DO an3
211 ╞CASE BAR()=4
212 │ DO an4
213 ╘ENDCASE
230
*!**********************************************************************
231 *! 232 *! Procedure: AN1 |TOP|
233 *!
234 *! Called by: CATALOG (procedure in PR3.PRG)
235 *!
236 *! Uses: FOAIA_MA.DBF
237 *! : CATALOGA.DBF
238 *!
239 *! Indexes: NUME (tag in FOAIA_MA.CDX)
240 *! : CNP (tag in FOAIA_MA.CDX)
241 *!
242 *! CDX files: FOAIA_MA.CDX
243 *! : CATALOGA.CDX
244 *!
245
*!**********************************************************************
230 PROCEDURE an1
231 USE foaia_ma.dbf
232 COPY TO .\fm1\cataloga.dbf FOR foaia_ma.an_studiu=1 FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp,foaia_ma.matricola,foaia_ma.cran1s1m1,foaia_ma.cran1s1m2,foaia_ma.cran1s1m3,foaia_ma.cran1s1m4,foaia_ma.cran1s1m5,foaia_ma.cran1s1m6,foaia_ma.cran1s1m7
233 USE .\cataloga.dbf
234 INDEX ON nume TAG nume ADDITIVE
235 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
236 BROWSE LAST
237 CLOSE ALL
254
*!**********************************************************************
255 *! 256 *! Procedure: AN2 |TOP|
257 *!
258 *! Called by: CATALOG (procedure in PR3.PRG)
259 *!
260 *! Uses: FOAIA_MA.DBF
261 *! : CATALOGB.DBF
262 *!
263 *! Indexes: NUME (tag in FOAIA_MA.CDX)
264 *! : CNP (tag in FOAIA_MA.CDX)
265 *!
266 *! CDX files: FOAIA_MA.CDX
267 *! : CATALOGB.CDX
268 *!
269
*!**********************************************************************
254 PROCEDURE an2
255 USE foaia_ma.dbf
256 COPY TO .\fm1\fm2\catalogb.dbf FOR foaia_ma.an_studiu=2
FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.cnp,foaia_ma.matricola,foaia_ma.cran2s1m1,foaia_ma.cran2s1m2,foaia_ma.cran2s1m3,foaia_ma.cran2s1m4,foaia_ma.cran2s1m5,foaia_ma.cran
257 USE .\fm1\fm2\catalogb.dbf
258 INDEX ON nume TAG nume ADDITIVE
259 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
260 BROWSE LAST
261 CLOSE ALL
278
*!**********************************************************************
279 *! 280 *! Procedure: AN3 |TOP|
281 *!
282 *! Called by: CATALOG (procedure in PR3.PRG)
283 *!
284 *! Uses: FOAIA_MA.DBF
285 *! : CATALOGB.DBF
286 *!
287 *! Indexes: NUME (tag in FOAIA_MA.CDX)
288 *! : CNP (tag in FOAIA_MA.CDX)
289 *!
290 *! CDX files: FOAIA_MA.CDX
291 *! : CATALOGB.CDX
292 *!
293
*!*****************************************************************************
278 PROCEDURE an3
279 USE foaia_ma.dbf
280 COPY TO .\fm1\fm2\fm3\catalogb.dbf FOR foaia_ma.an_studiu=3
FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.cnp,foaia_ma.matricola,foaia_ma.cran3s1m1,foaia_ma.cran3s1m2,foaia_ma.cran3s1m3,foaia_ma.cran3s1m4,foaia_ma.cran3s1m5,foaia_ma.
281 USE .\fm1\fm2\fm3\catalogb.dbf
282 INDEX ON nume TAG nume ADDITIVE
283 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
284 BROWSE LAST
285 CLOSE ALL
302
*!**********************************************************************
303 *! 304 *! Procedure: AN4
|TOP|
305 *!
306 *! Called by: CATALOG (procedure in PR3.PRG)
307 *!
308 *! Uses: FOAIA_MA.DBF
309 *! : CATALOGB.DBF
310 *!
311 *! Indexes: NUME (tag in FOAIA_MA.CDX)
312 *! : CNP (tag in FOAIA_MA.CDX)
313 *!
314 *! CDX files: FOAIA_MA.CDX
315 *! : CATALOGB.CDX
316 *!
317
*!**********************************************************************
302 PROCEDURE an4
303 USE foaia_ma.dbf
304 COPY TO .\fm1\fm2\fm3\fm4\catalogb.dbf FOR
foaia_ma.an_studiu=4 FIELDS
foaia_ma.nume,foaia_ma.prenume,foaia_ma.n_mijlociu,foaia_ma.cnp,foaia_ma.matricola,foaia_ma.cran4s1m1,foaia_ma.cran4s1m2,foaia_ma.cran4s1m3,foaia_ma.cran4s1m4,foaia_ma.cran4s1m5,foaia
305 USE .\fm1\fm2\fm3\fm4\catalogb.dbf
306 INDEX ON nume TAG nume ADDITIVE
307 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
308 BROWSE LAST
309 CLOSE ALL
327
*!**********************************************************************
328 *! 329 *! Procedure: NOTE
|TOP|
330 *!
331 *! Called by: PR3.PRG
332 *!
333 *! Calls: NAN1S1 (procedure in PR3.PRG)
334 *! : NAN2S1 (procedure in PR3.PRG)
335 *! : NAN3S1 (procedure in PR3.PRG)
336 *! : NAN4S1 (procedure in PR3.PRG)
337 *! : NAN1S2 (procedure in PR3.PRG)
338 *! : NAN2S2 (procedure in PR3.PRG)
339 *! : NAN3S2 (procedure in PR3.PRG)
340 *! : NAN4S2 (procedure in PR3.PRG)
341 *! : NANI (procedure in PR3.PRG)
342 *!
343
*!**********************************************************************
327 PROCEDURE NOTE
328 HIDE POPUP b3
329 ╔═DO CASE
330 ╟─CASE BAR()=1
331 │ DO nan1s1
332 ╟─CASE BAR()=2
333 │ DO nan2s1
334 ╟─CASE BAR()=3
335 │ DO nan3s1
336 ╟─CASE BAR()=4
337 │ DO nan4s1
338 ╟─CASE BAR()=5
339 │ DO nan1s2
340 ╟─ÍCASE BAR()=6
341 │ DO nan2s2
342 ╟─CASE BAR()=7
343 │ DO nan3s2
344 ╟─CASE BAR()=8
345 │ DO nan4s2
346 ╟─CASE BAR()=9
347 │ DO nani
348 ╚═ENDCASE
366
*!**********************************************************************
367 *! 368 *! Procedure: NAN1S1
|TOP|
369 *!
370 *! Called by: NOTE (procedure in PR3.PRG)
371 *!
372 *! Calls: QUERY5.FPQ
373 *!
374 *! Uses: CATALOGA.DBF
375 *! : FM1.DBF
376 *!
377 *! Indexes: NUME (tag in FOAIA_MA.CDX)
378 *! : CNP (tag in FOAIA_MA.CDX)
379 *!
380 *! CDX files: CATALOGA.CDX
381 *!
382
*!**********************************************************************
366 PROCEDURE nan1s1
367 USE .\fm1\cataloga.dbf
368 INDEX ON nume TAG nume ADDITIVE
369 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
370 DO .\fm1\query5.fpq
371 REPLACE ALL fm1.cran1s1m1 WITH cataloga.cran1s1m1
372 REPLACE ALL fm1.cran1s1m2 WITH cataloga.cran1s1m2
373 REPLACE ALL fm1.cran1s1m3 WITH cataloga.cran1s1m3
374 REPLACE ALL fm1.cran1s1m4 WITH cataloga.cran1s1m4
375 REPLACE ALL fm1.cran1s1m5 WITH cataloga.cran1s1m5
376 REPLACE ALL fm1.cran1s1m6 WITH cataloga.cran1s1m6
377 REPLACE ALL fm1.cran1s1m7 WITH cataloga.cran1s1m7
378 BROWSE LAST
379 CLOSE ALL
380 USE .\fm1\fm1.dbf
381 BROWSE
382 CLOSE ALL
400
*!**********************************************************************
401 *! 402 *! Procedure: NAN2S1
|TOP|
403 *!
404 *! Called by: NOTE (procedure in PR3.PRG)
405 *!
406 *! Calls: QUERY.FPQ
407 *!
408 *! Uses: CATALOGB.DBF
409 *! : FM2.DBF
410 *!
411 *! Indexes: NUME (tag in FOAIA_MA.CDX)
412 *! : CNP (tag in FOAIA_MA.CDX)
413 *!
414 *! CDX files: CATALOGB.CDX
415 *!
416
*!**********************************************************************
400 PROCEDURE nan2s1
401 USE .\fm1\fm2\catalogb.dbf
402 INDEX ON nume TAG nume ADDITIVE
403 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
404 DO .\fm1\fm2\query.fpq
405 REPLACE ALL fm2.cran2s1m1 WITH catalogb.cran2s1m1
406 REPLACE ALL fm2.cran2s1m2 WITH catalogb.cran2s1m2
407 REPLACE ALL fm2.cran2s1m3 WITH catalogb.cran2s1m3
408 REPLACE ALL fm2.cran2s1m4 WITH catalogb.cran2s1m4
409 REPLACE ALL fm2.cran2s1m5 WITH catalogb.cran2s1m5
410 REPLACE ALL fm2.cran2s1m6 WITH catalogb.cran2s1m6
411 REPLACE ALL fm2.cran2s1m7 WITH catalogb.cran2s1m7
412 BROWSE LAST
413 CLOSE ALL
414 USE .\fm1\fm2\fm2.dbf
415 BROWSE
416 CLOSE ALL
434
*!**********************************************************************
435 *! 436 *! Procedure: NAN3S1
|TOP|
437 *!
438 *! Called by: NOTE (procedure in PR3.PRG)
439 *!
440 *! Calls: QUERY.FPQ
441 *!
442 *! Uses: CATALOGB.DBF
443 *! : FM3.DBF
444 *!
445 *! Indexes: NUME (tag in FOAIA_MA.CDX)
446 *! : CNP (tag in FOAIA_MA.CDX)
447 *!
448 *! CDX files: CATALOGB.CDX
449 *!
450
*!**********************************************************************
434 PROCEDURE nan3s1
435 USE .\fm1\fm2\fm3\catalogb.dbf
436 INDEX ON nume TAG nume ADDITIVE
437 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
438 DO .\fm1\fm2\fm3\query.fpq
439 REPLACE ALL fm3.cran3s1m1 WITH catalogb.cran3s1m1
440 REPLACE ALL fm3.cran3s1m2 WITH catalogb.cran3s1m2
441 REPLACE ALL fm3.cran3s1m3 WITH catalogb.cran3s1m3
442 REPLACE ALL fm3.cran3s1m4 WITH catalogb.cran3s1m4
443 REPLACE ALL fm3.cran3s1m5 WITH catalogb.cran3s1m5
444 REPLACE ALL fm3.cran3s1m6 WITH catalogb.cran3s1m6
445 REPLACE ALL fm3.cran3s1m7 WITH catalogb.cran3s1m7
446 BROWSE LAST
447 CLOSE ALL
448 USE .\fm1\fm2\fm3\fm3.dbf
449 BROWSE
450 CLOSE ALL
468
*!**********************************************************************
469 *! 470 *! Procedure: NAN4S1
|TOP|
471 *!
472 *! Called by: NOTE (procedure in PR3.PRG)
473 *!
474 *! Calls: QUERY.FPQ
475 *!
476 *! Uses: CATALOGB.DBF
477 *! : FM4.DBF
478 *!
479 *! Indexes: NUME (tag in FOAIA_MA.CDX)
480 *! : CNP (tag in FOAIA_MA.CDX)
481 *!
482 *! CDX files: CATALOGB.CDX
483 *!
484
*!**********************************************************************
468 PROCEDURE nan4s1
469 USE .\fm1\fm2\fm3\fm4\catalogb.dbf
470 INDEX ON nume TAG nume ADDITIVE
471 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
472 DO .\fm1\fm2\fm3\fm4\query.fpq
473 REPLACE ALL fm4.cran4s1m1 WITH catalogb.cran4s1m1
474 REPLACE ALL fm4.cran4s1m2 WITH catalogb.cran4s1m2
475 REPLACE ALL fm4.cran4s1m3 WITH catalogb.cran4s1m3
476 REPLACE ALL fm4.cran4s1m4 WITH catalogb.cran4s1m4
477 REPLACE ALL fm4.cran4s1m5 WITH catalogb.cran4s1m5
478 REPLACE ALL fm4.cran4s1m6 WITH catalogb.cran4s1m6
479 REPLACE ALL fm4.cran4s1m7 WITH catalogb.cran4s1m7
480 BROWSE LAST
481 CLOSE ALL
482 USE .\fm1\fm2\fm3\fm4\fm4.dbf
483 BROWSE
484 CLOSE ALL
502
*!**********************************************************************
503 *! 504 *! Procedure: NAN1S2
|TOP|
505 *!
506 *! Called by: NOTE (procedure in PR3.PRG)
507 *!
508 *! Calls: QUERY5.FPQ
509 *!
510 *! Uses: CATALOGA.DBF
511 *! : FM1.DBF
512 *!
513 *! Indexes: NUME (tag in FOAIA_MA.CDX)
514 *! : CNP (tag in FOAIA_MA.CDX)
515 *!
516 *! CDX files: CATALOGA.CDX
517 *!
518
*!**********************************************************************
502 PROCEDURE nan1s2
503 USE .\fm1\cataloga.dbf
504 INDEX ON nume TAG nume ADDITIVE
505 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
506 DO .\fm1\query5.fpq
507 REPLACE ALL fm1.cran1s2m1 WITH cataloga.cran1s2m1
508 REPLACE ALL fm1.cran1s2m2 WITH cataloga.cran1s2m2
509 REPLACE ALL fm1.cran1s2m3 WITH cataloga.cran1s2m3
510 REPLACE ALL fm1.cran1s2m4 WITH cataloga.cran1s2m4
511 REPLACE ALL fm1.cran1s2m5 WITH cataloga.cran1s2m5
512 REPLACE ALL fm1.cran1s2m6 WITH cataloga.cran1s2m6
513 REPLACE ALL fm1.cran1s2m7 WITH cataloga.cran1s2m7
514 BROWSE LAST
515 CLOSE ALL
516 USE .\fm1\fm1.dbf
517 BROWSE
518 CLOSE ALL
536
*!**********************************************************************
537 *! 538 *! Procedure: NAN2S2
|TOP|
539 *!
540 *! Called by: NOTE (procedure in PR3.PRG)
541 *!
542 *! Calls: QUERY.FPQ
543 *!
544 *! Uses: CATALOGB.DBF
545 *! : FM2.DBF
546 *!
547 *! Indexes: NUME (tag in FOAIA_MA.CDX)
548 *! : CNP (tag in FOAIA_MA.CDX)
549 *!
550 *! CDX files: CATALOGB.CDX
551 *!
552
*!**********************************************************************
536 PROCEDURE nan2s2
537 USE .\fm1\fm2\catalogb.dbf
538 INDEX ON nume TAG nume ADDITIVE
539 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
540 DO .\fm1\fm2\query.fpq
541 REPLACE ALL fm2.cran2s2m1 WITH catalogb.cran2s2m1
542 REPLACE ALL fm2.cran2s2m2 WITH catalogb.cran2s2m2
543 REPLACE ALL fm2.cran2s2m3 WITH catalogb.cran2s2m3
544 REPLACE ALL fm2.cran2s2m4 WITH catalogb.cran2s2m4
545 REPLACE ALL fm2.cran2s2m5 WITH catalogb.cran2s2m5
546 REPLACE ALL fm2.cran2s2m6 WITH catalogb.cran2s2m6
547 REPLACE ALL fm2.cran2s2m7 WITH catalogb.cran2s2m7
548 BROWSE LAST
549 CLOSE ALL
550 USE .\fm1\fm2\fm2.dbf
551 BROWSE
552 CLOSE ALL
570
*!**********************************************************************
571 *! 572 *! Procedure: NAN3S2
|TOP|
573 *!
574 *! Called by: NOTE (procedure in PR3.PRG)
575 *!
576 *! Calls: QUERY.FPQ
577 *!
578 *! Uses: CATALOGB.DBF
579 *! : FM3.DBF
580 *!
581 *! Indexes: NUME (tag in FOAIA_MA.CDX)
582 *! : CNP (tag in FOAIA_MA.CDX)
583 *!
584 *! CDX files: CATALOGB.CDX
585 *!
586
*!**********************************************************************
570 PROCEDURE nan3s2
571 USE .\fm1\fm2\fm3\catalogb.dbf
572 INDEX ON nume TAG nume ADDITIVE
573 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
574 DO .\fm1\fm2\fm3\query.fpq
575 REPLACE ALL fm3.cran3s2m1 WITH catalogb.cran3s2m1
576 REPLACE ALL fm3.cran3s2m2 WITH catalogb.cran3s2m2
577 REPLACE ALL fm3.cran3s2m3 WITH catalogb.cran3s2m3
578 REPLACE ALL fm3.cran3s2m4 WITH catalogb.cran3s2m4
579 REPLACE ALL fm3.cran3s2m5 WITH catalogb.cran3s2m5
580 REPLACE ALL fm3.cran3s2m6 WITH catalogb.cran3s2m6
581 REPLACE ALL fm3.cran3s2m7 WITH catalogb.cran3s2m7
582 BROWSE LAST
583 CLOSE ALL
584 USE .\fm1\fm2\fm3\fm3.dbf
585 BROWSE
586 CLOSE ALL
604
*!**********************************************************************
605 *! 606 *! Procedure: NAN4S2
|TOP|
607 *!
608 *! Called by: NOTE (procedure in PR3.PRG)
609 *!
610 *! Calls: QUERY.FPQ
611 *!
612 *! Uses: CATALOGB.DBF
613 *! : FM4.DBF
614 *!
615 *! Indexes: NUME (tag in FOAIA_MA.CDX)
616 *! : CNP (tag in FOAIA_MA.CDX)
617 *!
618 *! CDX files: CATALOGB.CDX
619 *!
620
*!**********************************************************************
604 PROCEDURE nan4s2
605 USE .\fm1\fm2\fm3\fm4\catalogb.dbf
606 INDEX ON nume TAG nume ADDITIVE
607 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
608 DO .\fm1\fm2\fm3\fm4\query.fpq
609 REPLACE ALL fm4.cran4s2m1 WITH catalogb.cran4s2m1
610 REPLACE ALL fm4.cran4s2m2 WITH catalogb.cran4s2m2
611 REPLACE ALL fm4.cran4s2m3 WITH catalogb.cran4s2m3
612 REPLACE ALL fm4.cran4s2m4 WITH catalogb.cran4s2m4
613 REPLACE ALL fm4.cran4s2m5 WITH catalogb.cran4s2m5
614 REPLACE ALL fm4.cran4s2m6 WITH catalogb.cran4s2m6
615 REPLACE ALL fm4.cran4s2m7 WITH catalogb.cran4s2m7
616 BROWSE LAST
617 CLOSE ALL
618 USE .\fm1\fm2\fm3\fm4\fm4.dbf
619 BROWSE
620 CLOSE ALL
638
*!**********************************************************************
639 *! 640 *! Procedure: NANI
|TOP|
641 *!
642 *! Called by: NOTE (procedure in PR3.PRG)
643 *!
644 *! Calls: QAN11.FPQ
645 *! : QYAN2.FXP
646 *! : QYAN3.FXP
647 *! : QYAN4.FXP
648 *!
649 *! Uses: FM1.DBF
650 *!
651 *! Indexes: NUME (tag in FOAIA_MA.CDX)
652 *! : CNP (tag in FOAIA_MA.CDX)
653 *!
654
*!**********************************************************************
638 PROCEDURE nani
639 USE .\fm1\fm1.dbf
640 INDEX ON nume TAG nume ADDITIVE
641 INDEX ON cnp UNIQUE TAG cnp ADDITIVE
642 CLOSE ALL
643 DO .\qan11.fpq
644 BROWSE
645 REPLACE ALL foaia_ma.cran1s1m1 WITH fm1.cran1s1m1
646 REPLACE ALL foaia_ma.cran1s1m2 WITH fm1.cran1s1m2
647 REPLACE ALL foaia_ma.cran1s1m3 WITH fm1.cran1s1m3
648 REPLACE ALL foaia_ma.cran1s1m4 WITH fm1.cran1s1m4
649 REPLACE ALL foaia_ma.cran1s1m5 WITH fm1.cran1s1m5
650 REPLACE ALL foaia_ma.cran1s1m6 WITH fm1.cran1s1m6
651 REPLACE ALL foaia_ma.cran1s2m7 WITH fm1.cran1s1m7
652 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m1
653 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m2
654 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m3
655 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m4
656 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m5
657 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m6
658 REPLACE ALL foaia_ma.cran1s2m2 WITH fm1.cran1s2m7
659 DO .\fm1\fm2\qyan2.fxp
660 REPLACE ALL foaia_ma.cran2s1m1 WITH fm2.cran2s1m1
661 REPLACE ALL foaia_ma.cran2s1m2 WITH fm2.cran2s1m2
662 REPLACE ALL foaia_ma.cran2s1m3 WITH fm2.cran2s1m3
663 REPLACE ALL foaia_ma.cran2s1m4 WITH fm2.cran2s1m4
664 REPLACE ALL foaia_ma.cran2s1m5 WITH fm2.cran2s1m5
665 REPLACE ALL foaia_ma.cran2s1m6 WITH fm2.cran2s1m6
666 REPLACE ALL foaia_ma.cran2s1m7 WITH fm2.cran2s1m7
667 REPLACE ALL foaia_ma.cran2s2m1 WITH fm2.cran2s2m1
668 REPLACE ALL foaia_ma.cran2s2m2 WITH fm2.cran2s2m2
669 REPLACE ALL foaia_ma.cran2s2m3 WITH fm2.cran2s2m3
670 REPLACE ALL foaia_ma.cran2s2m4 WITH fm2.cran2s2m4
671 REPLACE ALL foaia_ma.cran2s2m5 WITH fm2.cran2s2m5
672 REPLACE ALL foaia_ma.cran2s2m6 WITH fm2.cran2s2m6
673 REPLACE ALL foaia_ma.cran2s2m7 WITH fm2.cran2s2m7
674 DO .\fm1\fm2\fm3\qyan3.fxp
675 REPLACE ALL foaia_ma.cran3s1m1 WITH fm3.cran3s1m1
676 REPLACE ALL foaia_ma.cran3s1m2 WITH fm3.cran3s1m2
677 REPLACE ALL foaia_ma.cran3s1m3 WITH fm3.cran3s1m3
678 REPLACE ALL foaia_ma.cran3s1m4 WITH fm3.cran3s1m4
679 REPLACE ALL foaia_ma.cran3s1m5 WITH fm3.cran3s1m5
680 REPLACE ALL foaia_ma.cran3s1m6 WITH fm3.cran3s1m6
681 REPLACE ALL foaia_ma.cran3s1m7 WITH fm3.cran3s1m7
682 REPLACE ALL foaia_ma.cran3s2m1 WITH fm3.cran3s2m1
683 REPLACE ALL foaia_ma.cran3s2m2 WITH fm3.cran3s2m2
684 REPLACE ALL foaia_ma.cran3s2m3 WITH fm3.cran3s2m3
685 REPLACE ALL foaia_ma.cran3s2m4 WITH fm3.cran3s2m4
686 REPLACE ALL foaia_ma.cran3s2m5 WITH fm3.cran3s2m5
687 REPLACE ALL foaia_ma.cran3s2m6 WITH fm3.cran3s2m6
688 REPLACE ALL foaia_ma.cran3s2m7 WITH fm3.cran3s2m7
689 DO .\fm1\fm2\fm3\fm4\qyan4.fxp
690 REPLACE ALL foaia_ma.cran4s1m1 WITH fm4.cran4s1m1
691 REPLACE ALL foaia_ma.cran4s1m2 WITH fm4.cran4s1m2
692 REPLACE ALL foaia_ma.cran4s1m3 WITH fm4.cran4s1m3
693 REPLACE ALL foaia_ma.cran4s1m4 WITH fm4.cran4s1m4
694 REPLACE ALL foaia_ma.cran4s1m5 WITH fm4.cran4s1m5
695 REPLACE ALL foaia_ma.cran4s1m6 WITH fm4.cran4s1m6
696 REPLACE ALL foaia_ma.cran4s1m7 WITH fm4.cran4s1m7
697 REPLACE ALL foaia_ma.cran4s2m1 WITH fm4.cran4s2m1
698 REPLACE ALL foaia_ma.cran4s2m2 WITH fm4.cran4s2m2
699 REPLACE ALL foaia_ma.cran4s2m3 WITH fm4.cran4s2m3
700 REPLACE ALL foaia_ma.cran4s2m4 WITH fm4.cran4s2m4
701 REPLACE ALL foaia_ma.cran4s2m5 WITH fm4.cran4s2m5
702 REPLACE ALL foaia_ma.cran4s2m6 WITH fm4.cran4s2m6
703 REPLACE ALL foaia_ma.cran4s2m7 WITH fm4.cran4s2m7
704 BROWSE LAST
705 CLOSE ALL
722
*!**********************************************************************
723 *! 724 *! Procedure: CREDITE
|TOP|
725 *!
726 *! Called by: PR3.PRG
727 *!
728 *! Calls: CAN1S1 (procedure in PR3.PRG)
729 *! : CAN2S1 (procedure in PR3.PRG)
730 *! : CAN3S1 (procedure in PR3.PRG)
731 *! : CAN4S1 (procedure in PR3.PRG)
732 *! : CAN1S2 (procedure in PR3.PRG)
733 *! : CAN2S2 (procedure in PR3.PRG)
734 *! : CAN3S2 (procedure in PR3.PRG)
735 *! : CAN4S2 (procedure in PR3.PRG)
736 *!
737
*!**********************************************************************
722 PROCEDURE credite
723 HIDE POPUP b5
724 ╒DO CASE
725 ╞CASE BAR()=1
726 │ DO can1s1
727 ╞CASE BAR()=2
728 │ DO can2s1
729 ╞CASE BAR()=3
730 │ DO can3s1
731 ╞CASE BAR()=4
732 │ DO can4s1
733 ╞CASE BAR()=5
734 │ DO can1s2
735 ╞CASE BAR()=6
736 │ DO can2s2
737 ╞CASE BAR()=7
738 │ DO can3s2
739 ╞CASE BAR()=8
740 │ DO can4s2
741 ╘ENDCASE
752
*!**********************************************************************
753 *! 754 *! Procedure: CAN1S1
|TOP|
755 *!
756 *! Called by: CREDITE (procedure in PR3.PRG)
757 *!
758 *! Calls: SQY1.FXP
759 *! : CATALOG1.SPR
760 *!
761
*!**********************************************************************
752 PROCEDURE can1s1
753 DO .\fm1\sqy1.fxp
754 DO .\fm1\catalog1.spr
755 CLOSE ALL
766
*!**********************************************************************
767 *! 768 *! Procedure: CAN1S2
|TOP|
769 *!
770 *! Called by: CREDITE (procedure in PR3.PRG)
771 *!
772 *! Calls: SQY1.FXP
773 *! : CATALOG2.SPR
774 *!
775
*!**********************************************************************
766 PROCEDURE can1s2
767 DO .\fm1\sqy1.fxp
768 DO .\fm1\catalog2.spr
769 CLOSE ALL
780
*!**********************************************************************
781 *! 782 *! Procedure: CAN2S1
|TOP|
783 *!
784 *! Called by: CREDITE (procedure in PR3.PRG)
785 *!
786 *! Calls: QY2.FXP
787 *! : CATALOGB.SPR
788 *!
789
*!**********************************************************************
780 PROCEDURE can2s1
781 DO .\fm1\fm2\qy2.fxp
782 DO .\fm1\fm2\catalogb.spr
783 CLOSE ALL
794
*!**********************************************************************
795 *! 796 *! Procedure: CAN2S2
|TOP|
797 *!
798 *! Called by: CREDITE (procedure in PR3.PRG)
799 *!
800 *! Calls: QY2.FXP
801 *! : CATALOG2.SPR
802 *!
803
*!**********************************************************************
794 PROCEDURE can2s2
795 DO .\fm1\fm2\qy2.fxp
796 DO .\fm1\fm2\catalog2.spr
797 CLOSE ALL
808
*!**********************************************************************
809 *! 810 *! Procedure: CAN3S1 |
|TOP||
811 *!
812 *! Called by: CREDITE (procedure in PR3.PRG)
813 *!
814 *! Calls: QY3.FXP
815 *! : CATALOG1.SPR
816 *!
817
*!**********************************************************************
808 PROCEDURE can3s1
809 DO .\fm1\fm2\fm3\qy3.fxp
810 DO .\fm1\fm2\fm3\catalog1.spr
811 CLOSE ALL
822
*!**********************************************************************
823 *! 824 *! Procedure: CAN3S2 |
|TOP||
825 *!
826 *! Called by: CREDITE (procedure in PR3.PRG)
827 *!
828 *! Calls: QY3.FXP
829 *! : CATALOG2.SPR
830 *!
831
*!**********************************************************************
822 PROCEDURE can3s2
823 DO .\fm1\fm2\fm3\qy3.fxp
824 DO .\fm1\fm2\fm3\catalog2.spr
825 CLOSE ALL
836
*!**********************************************************************
837 *! 838 *! Procedure: CAN4S1 |
|TOP||
839 *!
840 *! Called by: CREDITE (procedure in PR3.PRG)
841 *!
842 *! Calls: QY4.FXP
843 *! : CATALOGB.SPR
844 *!
845
*!**********************************************************************
836 PROCEDURE can4s1
837 DO .\fm1\fm2\fm3\fm4\qy4.fxp
838 DO .\fm1\fm2\fm3\fm4\catalogb.spr
839 CLOSE ALL
850
*!**********************************************************************
851 *! 852 *! Procedure: CAN4S2 |
|TOP||
853 *!
854 *! Called by: CREDITE (procedure in PR3.PRG)
855 *!
856 *! Calls: QY4.FXP
857 *! : CATALOG2.SPR
858 *!
859
*!**********************************************************************
850 PROCEDURE can4s2
851 DO .\fm1\fm2\fm3\fm4\qy4.fxp
852 DO .\fm1\fm2\fm3\fm4\catalog2.spr
853 CLOSE ALL
866
*!**********************************************************************
867 *! 868 *! Procedure: ANUNU |
|TOP||
869 *!
870 *! Called by: ACTFIS (procedure in PR3.PRG)
871 *!
872 *! Uses: FOAIA_MA.DBF
873 *! : FMAUL1.DBF
874 *!
875 *! CDX files: FOAIA_MA.CDX
876 *!
877
*!**********************************************************************
866 PROCEDURE anunu
867 USE .\foaia_ma.dbf
868 SORT TO .\fmaul1.dbf ON
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp FOR
foaia_ma.an_studiu <1
869 BROWSE LAST
870 CLOSE ALL
883
*!**********************************************************************
884 *! 885 *! Procedure: ANDOI |
|TOP||
886 *!
887 *! Called by: ACTFIS (procedure in PR3.PRG)
888 *!
889 *! Uses: FOAIA_MA.DBF
890 *! : FMANUL2.DBF
891 *!
892 *! CDX files: FOAIA_MA.CDX
893 *!
894
*!**********************************************************************
883 PROCEDURE andoi
884 USE .\foaia_ma.dbf
885 REPLACE ALL foaia_ma.cran1 WITH foaia_ma.cran1s1m1+
foaia_ma.cran1s1m2+ foaia_ma.cran1s1m3+ foaia_ma.cran1s1m4+
foaia_ma.cran1s1m5+
foaia_ma.cran1s1m6+foaia_ma.cran1s1m7+foaia_ma.cran1s2m1+foaia_ma.cran1s2m2+foaia_ma.cran1s2m3+foaia_ma.cran1s2m4+foaia
886 SORT TO D:\fpd26\fmanul2.dbf ON
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp FOR foaia_ma.cran1
>500 WHILE foaia_ma.an_studiu =1
887 BROWSE LAST
888 CLOSE ALL
901
*!**********************************************************************
902 *! 903 *! Procedure: ANTREI |
|TOP||
904 *!
905 *! Called by: ACTFIS (procedure in PR3.PRG)
906 *!
907 *! Uses: FOAIA_MA.DBF
908 *! : FMANUL3.DBF
909 *!
910 *! CDX files: FOAIA_MA.CDX
911 *!
912
*!**********************************************************************
901 PROCEDURE antrei
902 USE .\foaia_ma.dbf
903 REPLACE ALL foaia_ma.cran2 WITH foaia_ma.cran2s1m1+
foaia_ma.cran2s1m2+ foaia_ma.cran2s1m3+ foaia_ma.cran2s1m4+
foaia_ma.cran2s1m5+
foaia_ma.cran2s1m6+foaia_ma.cran2s1m7+foaia_ma.cran2s2m1+foaia_ma.cran2s2m2+foaia_ma.cran2s2m3+foaia_ma.cran2s2m4+foaia
904 SORT TO .\fmanul3.dbf ON
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp FOR foaia_ma.cran2
>500 WHILE foaia_ma.an_studiu =2
905 BROWSE LAST
906 CLOSE ALL
919
*!**********************************************************************
920 *! 921 *! Procedure: ANPATRU |
|TOP||
922 *!
923 *! Called by: ACTFIS (procedure in PR3.PRG)
924 *!
925 *! Uses: FOAIA_MA.DBF
926 *! : FMANUL4.DBF
927 *!
928 *! CDX files: FOAIA_MA.CDX
929 *!
930
*!**********************************************************************
919 PROCEDURE anpatru
920 USE .\foaia_ma.dbf
921 REPLACE ALL foaia_ma.cran3 WITH foaia_ma.cran3s1m1+
foaia_ma.cran3s1m2+ foaia_ma.cran3s1m3+ foaia_ma.cran3s1m4+
foaia_ma.cran3s1m5+
foaia_ma.cran3s1m6+foaia_ma.cran3s1m7+foaia_ma.cran3s2m1+foaia_ma.cran3s2m2+foaia_ma.cran3s2m3+foaia_ma.cran3s2m4+foaia
922 SORT TO .\fmanul4.dbf ON
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp FOR foaia_ma.cran3
>500 WHILE foaia_ma.an_studiu =3
923 BROWSE LAST
924 CLOSE ALL
937
*!**********************************************************************
938 *! 939 *! Procedure: ABSOLVENTI
| |TOP||
940 *!
941 *! Called by: ACTFIS (procedure in PR3.PRG)
942 *!
943 *! Uses: FOAIA_MA.DBF
944 *! : FMANUL5.DBF
945 *!
946 *! CDX files: FOAIA_MA.CDX
947 *!
948
*!**********************************************************************
937 PROCEDURE asolventi
938 USE .\foaia_ma.dbf
939 REPLACE ALL foaia_ma.cran4 WITH foaia_ma.cran4s1m1+
foaia_ma.cran4s1m2+ foaia_ma.cran4s1m3+ foaia_ma.cran4s1m4+
foaia_ma.cran4s1m5+
foaia_ma.cran4s1m6+foaia_ma.cran4s1m7+foaia_ma.cran4s2m1+foaia_ma.cran4s2m2+foaia_ma.cran4s2m3+foaia_ma.cran4s2m4+foaia
940 SORT TO .\fmanul5.dbf ON
foaia_ma.nume,foaia_ma.prenume,foaia_ma.cnp FOR foaia_ma.cran4
>500 WHILE foaia_ma.an_studiu =4
941 BROWSE LAST
942 CLOSE ALL
943 *: EOF: PR3.ACT
1
*:**********************************************************************
2 *: 3 *: Program: D:\FPD26\QAN11.FPQ | |TOP||
4 *:
5 *: System: ETL
6 *: Author: Valentin Chirosca
7 *: Copyright (c) 2003, C & IE
8 *: Last modified: 12/31/103 12:30
9 *:
10 *: Called by: NANI (procedure in PR3.PRG)
11 *:
12 *: Calls: NORMALIZE() (function in PROJECT)
13 *:
14 *: Uses: FOAIA_MA.DBF
15 *: : FM1.DBF
16 *: : DBF(ALIAS()).DBF
17 *:
18 *: Indexes: CNP (tag in FOAIA_MA.CDX)
19 *:
20 *: CDX files: FOAIA_MA.CDX
21 *:
22 *: Documented 12/31/10 at 14:48 FoxDoc version 2.10f
23
*:**********************************************************************
24
25 * WIZNAME = WZ_BQUER
26 * VERSION = .96
27 * TIMESTAMP = 798974933.0000
28 * CLIENTSERVER = IDENTITY
_PID_GUID
{993AB080-3CE4-11D8-BB0D-92515C4F5D56}
{993AB080-3CE4-11D8-BB0D-92515C4F5D56}
29 * TABLES = D:\FPD26\FOAIA_MA.DBF;D:\FPD26\FM1\FM1.DBF
30 * JOINS = Fm1;Cnp;Foaia_ma;Cnp;0
31 * FIELDS =
Foaia_ma.nume;Foaia_ma.cnp;Foaia_ma.cran1s1m1;Foaia_ma.cran1s1m2;Foaia_ma.cran1s1m3;Foaia_ma.cran1s1m4;Foaia_ma.cran1s1m5;Foaia_ma.cran1s1m6;Foaia_ma.cran1s1m7;Foaia_ma.cran1s2m1;Foaia_ma.cran1s2m2;Foaia_ma.cran1s2m3;Foaia_ma.cran1s2m4
32 * FIELDS =
Foaia_ma.cran1s2m5;Foaia_ma.cran1s2m6;Foaia_ma.cran1s2m7;Foaia_ma.cran1;Fm1.nume;Fm1.cnp;Fm1.cran1s1m1;Fm1.cran1s1m2;Fm1.cran1s1m3;Fm1.cran1s1m4;Fm1.cran1s1m5;Fm1.cran1s1m6;Fm1.cran1s1m7;Fm1.cran1s2m1;Fm1.cran1s2m2;Fm1.cran1s2m3
33 * FIELDS =
Fm1.cran1s2m4;Fm1.cran1s2m5;Fm1.cran1s2m6;Fm1.cran1s2m7;Fm1.cran1
34 * SORT FIELDS =
35 * GROUP =
36 * SQL = SQL Select statement for Mailmerge Wizard:
37 * SELECT
Foaia_ma.nume,Foaia_ma.cnp,Foaia_ma.cran1s1m1,Foaia_ma.cran1s1m2,Foaia_ma.cran1s1m3,Foaia_ma.cran1s1m4,Foaia_ma.cran1s1m5,Foaia_ma.cran1s1m6,Foaia_ma.cran1s1m7,Foaia_ma.cran1s2m1,Foaia_ma.cran1s2m2,Foaia_ma.cran1s2m3,Foaia_ma.cran1s2m4,;
38 *
Foaia_ma.cran1s2m5,Foaia_ma.cran1s2m6,Foaia_ma.cran1s2m7,Foaia_ma.cran1,Fm1.nume,Fm1.cnp,Fm1.cran1s1m1,Fm1.cran1s1m2,Fm1.cran1s1m3,Fm1.cran1s1m4,Fm1.cran1s1m5,Fm1.cran1s1m6,Fm1.cran1s1m7,Fm1.cran1s2m1,Fm1.cran1s2m2,Fm1.cran1s2m3,;
39 *
Fm1.cran1s2m4,Fm1.cran1s2m5,Fm1.cran1s2m6,Fm1.cran1s2m7,Fm1.cran1;
40 * FROM D:\FPD26\FOAIA_MA.DBF,D:\FPD26\FM1\FM1.DBF;
41 * WHERE Foaia_ma.Cnp = Fm1.Cnp;
42 * INTO CURSOR Query
43 ┌IF !USED("Foaia_ma")
44 │ SELECT 0
45 │ USE (LOCFILE("D:\FPD26\FOAIA_MA.DBF","DBF","Where is
Foaia_ma.DBF ?")) AGAIN ALIAS foaia_ma
46 ├─ELSE
47 │ SELECT foaia_ma
48 │ SET RELATION TO
49 │ SET SKIP TO
50 │ SET ORDER TO
51 │ SET FILTER TO
52 └─ENDIF
53 ┌─IF !USED("Fm1")
54 │ SELECT 0
55 │ USE (LOCFILE("D:\FPD26\FM1\FM1.DBF","DBF","Where is
Fm1.DBF ?")) AGAIN ALIAS fm1
56 ├─ELSE
57 │ SELECT fm1
58 │ SET RELATION TO
59 │ SET SKIP TO
60 │ SET ORDER TO
61 │ SET FILTER TO
62 └─ENDIF
63 SELECT fm1
64 m.i=1
65 ╔═DO WHILE !EMPTY(KEY(m.i))
66 ║ ┌─IF normalize(KEY(m.i))="CNP"
67 ║ │ SET ORDER TO m.i
68
v═════════
EXIT
69 ║ └─ ENDIF
70 ║ m.i=m.i+1
71 ╚═ENDDO
72 ┌─IF EMPTY(SET("ORDER"))
73 │ ┌─IF SYS(2011)#"Exclusive"
74 │ │ USE DBF(ALIAS()) EXCLUSIVE AGAIN ALIAS
(ALIAS())
75 │ └─ENDIF
76 │ INDEX ON cnp TAG cnp &&Cnp
77 └─ENDIF
78 SELECT foaia_ma &&Parent Area
79 SET RELATION TO cnp INTO fm1 ADDITIVE
80 SET FILTER TO FOUND("Fm1")
81 SELECT foaia_ma
82 SET SKIP TO fm1
83 LOCATE
84 SET FIELDS global
85 SET FIELDS TO
86 SET FIELDS TO
foaia_ma.nume,foaia_ma.cnp,foaia_ma.cran1s1m1,foaia_ma.cran1s1m2,foaia_ma.cran1s1m3,foaia_ma.cran1s1m4,foaia_ma.cran1s1m5,foaia_ma.cran1s1m6,foaia_ma.cran1s1m7,foaia_ma.cran1s2m1,foaia_ma.cran1s2m2,foaia_ma.cran1s2m3,foaia_ma.cran1s2m4
87 SET FIELDS TO
foaia_ma.cran1s2m5,foaia_ma.cran1s2m6,foaia_ma.cran1s2m7,foaia_ma.cran1,fm1.nume,fm1.cnp,fm1.cran1s1m1,fm1.cran1s1m2,fm1.cran1s1m3,fm1.cran1s1m4,fm1.cran1s1m5,fm1.cran1s1m6,fm1.cran1s1m7,fm1.cran1s2m1,fm1.cran1s2m2,fm1.cran1s2m3
88 SET FIELDS TO
fm1.cran1s2m4,fm1.cran1s2m5,fm1.cran1s2m6,fm1.cran1s2m7,fm1.cran1
89 *: EOF: QAN11.ACT
homepage
