Presentació
Llistat de la macro "DAU_ADRE".
Descripció: crea fitxer adreces reunits
1 {SI SE CANCELA}{IR}Fugida~~
2
3 {ROTULO}Explicació~
4 {ANIDAR}{VARIABLE}viaMacros~Dau_i002~
5
6 {;}Inicialitzem els paràmetres de DAU_TEXT.~
7 {ASIGNAR}VP-missatge~Nom del fitxer [*]~
8 {ASIGNAR}VP-resposta~~
9 {ASIGNAR}VP-obliga~no~
10 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
11 {ASIGNAR}NF~{VARIABLE}VP-resposta~~
12 {SI}"{VARIABLE}NF~"=""~
13 {ANIDAR}{VARIABLE}viaMacros~DauLlist~
14 {FIN SI}
15 {SI}"{VARIABLE}NF~"="*"~
16 {ANIDAR}{VARIABLE}viaMacros~DauDir~
17 {DES VISUALIZ.}{ACT VISUALIZ.}
18 {IR}Explicació~
19 {FIN SI}
20 {SI HAY ERROR}{IR}Explicació~~
21 {recuperar}{VARIABLE}viaDossier~{VARIABLE}NF~{retorn}
22 {SI HAY ERROR}{REGR./ERROR}~
23 {ACT VISUALIZ.}
24 {esborra fins a fi de línia}{Supr}{esborra fins a fi de línia}{Supr}
25 {Fin}{Retroceso}{Retroceso}{Retroceso}{Retroceso}{Retroceso}
26 {avall}{Fin}{Retroceso}{Retroceso}
27 {Retroceso}{Retroceso}{Retroceso}
28 {amunt}
29 {ASIGNAR}4~desconegut~
30
31 {ROTULO}Demana~
32 {DES VISUALIZ.}
33 {inici}{esquerra}{bloc}{Fin}{Comandos macro}a1{retorn}
34 {SI}"{VAR 1}"="{VAR 4}"|"{VAR 1}"=""~
35 {IR}Salvament~
36 {FIN SI}
37
38 {ASIGNAR}4~{VAR 1}~
39 {ASIGNAR}VP-qui~{VAR 4}~
40 {ANIDAR}{VARIABLE}viaMacros~DauSexe~
41 {inici}{esquerra}Sr
42 {SI}"{VARIABLE}VP-sexe~"="dona"~
43 a
44 {FIN SI}
45 . {Fin}
46 {AVISO}{^P}{NAT}1~{NAT}1~{^Q}{esborra fins a fi de pàgina}
47 {^P}{NAT}2~{NAT}4~
48 Entreu l'adreça on cal enviar la convocatòria de
49 {^P}{NAT}10~{NAT}5~{^R}{VAR 4}{^S}
50 {^P}{NAT}2~{NAT}6~
51 (escriviu seguit, i separat per comes, el carrer, el núm.,
52 el pis i la porta)
53 {^P}{NAT}8~{NAT}7~
54 ~
55
56 {;}Inicialitzem els paràmetres de DAU_TEXT.~
57 {ASIGNAR}VP-missatge~~
58 {ASIGNAR}VP-resposta~~
59 {ASIGNAR}VP-obliga~sí~
60 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
61 {^R}{retorn}{VARIABLE}VP-resposta~{^R}{retorn}
62 {ANIDAR}{VARIABLE}viaMacros~Dau_cp~
63 {VARIABLE}VP-codiPostal~
64 {ANIDAR}{VARIABLE}viaMacros~Dau_pobl~
65 {VARIABLE}VP-població~
66 {^E}{avall}
67 {IR}Demana~
68
69 {ROTULO}Salvament~
70 {ANIDAR}{VARIABLE}viaMacros~DauNoCom~
71
72 {;}Inicialitzem els paràmetres de DAU_TEXT.~
73 {ASIGNAR}VP-missatge~Nom d'aquest fitxer d'adreces~
74 {ASIGNAR}VP-resposta~~
75 {ASIGNAR}VP-obliga~sí~
76 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
77 {salvar}{VARIABLE}viaDossier~{VARIABLE}VP-resposta~{retorn}
78
79 {SI}{ESTADO}&1024~ {;}El fitxer ja existia.~
80 N{cancel lar}
81 {AVISO}Tria una altre nom de fitxer~
82 {CAMPANA}
83 {ESPERAR}15~
84 {IR}Salvament~
85 {FIN SI}
86
87 {sortir}NN {;}Netejar document~
88 {ASIGNAR}NFA~{VARIABLE}VP-resposta~~
89 {ANIDAR}{VARIABLE}viaMacros~Dau_i004~
90 {REGRESAR}
91
92 {ROTULO}Fugida~
93 {ANIDAR}{VARIABLE}viaMacros~DauCance~
Comentaris
Macro cridada des de la macro DAU_ARCR.WPM.
1. {SI SE CANCELA} si premem la tecla de CANCEL.LAR (F1),
tranfereix l'execució al rètol "fugida".
3. {ROTULO} declara el rètol "Explicació", que transfereix
l'execució a la macro DAU_I002.WPM, que recupera l'estructura
creada per la macro DAULLIST.WPM.
6. {;} comentari que ens avisa que tot seguit inicialitzarem els
paràmetres de la macro DAU_TEXT.WPM, que controla el valor de
les variables que ens serviran per definir el lloc de reunió,
els assistents, etc.
7. {ASIGNAR} assigna a la variable "VP-missatge" el valor
"Nom del fitxer [*]".
8. {ASIGNAR} inicialitza la variable "VP-resposta".
9. {ASIGNAR} assigna a la variable "VP-obliga" el valor "no".
10. {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que
retorna una resposta després de rebre una pregunta.
11. {ASIGNAR} assigna a la variable "NF" el valor que tenia la
variable "VP-resposta".
12. {SI} si la variable "VP-resposta" està en blanc...
13. ... {ANIDAR} transfereix l'execució a la macro DAULLIST.WPM, que
genera la llista d'assistents a la reunió.
15. {SI} si el valor de la variable "NF" és "*" (demanem ajuda)...
16. ... {ANIDAR} transfereix l'execució a la macro DAUDIR.WPM, que
ens presenta el directori DOSSIER\.
17. {DES VISUALIZ.}{ACT VISUALIZ.}, neteja la pantalla.
18. {IR}Explicació~ ens torna a mostrar el text d'ajuda inicial.
20. {SI HAY ERROR} li indica al programa que vagi al rètol
"Explicació" si el programa detecta qualsevol error de
funcionament.
21. {Recuperar} obre el document que hem triat.
22. {SI HAY ERROR}{REGR./ERROR} restaura el valor del comandament
{SI HAY ERROR} que havíem modificat a la línia 20, perquè si no,
a partir d'aquest moment qualsevol error que detectés el
programa actuaria de la manera que li hem demanat en aquest punt
de la macro, i segurament això no ens interessa.
23. {ACT VISUALIZ.} activa la visualització de la macro.
24. i fins 28., esborra les dues primeres línies del fitxer (el nom
de l'òrgan que es reuneix i el lloc on es reuneix) i esborra la
informació del sexe dels assistents, perquè després ho
preguntarà novament el programa.
29. {ASIGNAR} assigna a la variable "4" el valor "desconegut", per
inicialitzar-la amb algun valor, que no sigui buit, perquè
posteriorment el programa li pot donar aquest valor i ens
confondria.
31. {ROTULO} declara el rètol "Demana".
33. Marca com a bloc la primera línia que ens ha quedat del fitxer
de noms i l'assigna a la variable "1".
34. Si el valor de la variable "1" és igual al de la variable "4"
(que era "desconegut"), o la variable "1" està buida...
35. ... {IR} transfereix l'execució al rètol "Salvament".
38. {ASIGNAR} assigna a la variable "4" el valor de la variable "1"
i...
39. ... {ASIGNAR} assigna a la variable "VP-qui" el valor de la
variable "4"
40. {ANIDAR} transfereix l'execució a la macro DAUSEXE.WPM, que
demana el sexe dels assistents a la reunió.
41. Escriu a l'inici de la línia "Sr" i...
42. ... {SI} el valor de la variable "VP-sexe", que haurem
inicialitzat quan s'ha executat la macro DAUSEXE.WPM, és
"dona"...
43. ... hi afegirà una "a".
45. Afegeix, a continuació, un "." i un espai en blanc, i se situa
al final de la línia.
46. {AVISO} presenta un avís en pantalla, després d'esborrar la
visualització de tota la pantalla, en què ens demana que entrem
l'adreça on cal enviar la convocatòria del primer assistent.
56. {;} comentari que ens avisa que tot seguit inicialitzarem els
paràmetres de la macro DAU_TEXT.WPM, que controla el valor de
les variables que ens serviran per definir el codi postal i la
població de cada un dels assistents a la reunió.
57. {ASIGNAR} inicialitza la variable "VP-missatge".
58. {ASIGNAR} inicialitza la variable "VP-resposta".
59. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí".
60. {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que
retorna una resposta després de rebre una pregunta.
61. {^R} col.loca un codi de fusió de final de camp, fa un salt de
línia i escriu l'adreça (continguda a la variable "VP-resposta"
després d'actuar la macro DAU_TEXT.WPM) i un nou codi de fusió
de final de camp i fa un nou salt de línia.
62. {ANIDAR} transfereix l'execució a la macro DAU_CP.WPM, que
demana el codi postal i l'arregla.
63. escriu la variable "VP-codiPostal", que conté el codi postal que
haurem escrit nosaltres a través del diàleg de la macro
DAU_CP.WPM.
64. {ANIDAR} transfereix l'execució a la macro DAU_POBL.WPM, que
demana la població facilitant Barcelona i l'Hospitalet de
Llobregat.
65. escriu a continuació la variable "VP-població", que conté la
població que haurem triat a través del diàleg de la macro
DAU_POBL.WPM.
66. insereix un codi de fusió de final de registre i baixa el cursor
una línia.
67. {IR} transfereix l'execució al rètol "Demana" de la línia 31,
que ens torna a demanar l'adreça completa del segon assistent a
la reunió. Crea un bucle mentre trobi text en aquesta nova línia
(la qual cosa li indicarà que encara queda un altre assistent).
69. {ROTULO} declara el rètol "salvament".
70. {ANIDAR} transfereix l'execució a la macro DAUNOCOM.WPM, que
treu els comentaris virtuals del document.
72. {;} comentari que ens avisa que tot seguit inicialitzarem els
paràmetres de la macro DAU_TEXT.WPM, que controla el valor de
les variables que ens serviran per definir el nom del fitxer
d'adreces.
73. {ASIGNAR} assigna a la variable "VP-missatge" el valor
"Nom d'aquest fitxer d'adreces [*]".
74. {ASIGNAR} inicialitza la variable "VP-resposta".
75. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí".
76. {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que
retorna una resposta després de rebre una pregunta.
77. {salvar} grava el document que haurem generat d'adreces al
subdirectori \DOSSIER, amb el nom que li haurem donat a través
del diàleg de la macro DAU_TEXT.WPM.
79. {SI}{ESTADO}&1024~ si el document ja existia. En aquest moment
el programa es troba intentant guardar un document. L'estat 1024
indica que hi ha activa una pregunta del tipus Sí/No, que només
s'activarà si el document ja existeix i ens demana si el volem
sobreescriure.
80. cancel.la la gravació del fitxer.
81. {AVISO} ens diu que aquest fitxer ja existeix i que triem un
altre nom.
82. {CAMPANA} fa sonar el xiulet de l'ordinador.
83. {ESPERAR} manté el missatge en pantalla durant un segon i mig
(15 dècimes de segon).
84. {IR} transfereix l'execució novament al rètol "salvament" de la
línia 69, perquè el programa ens permeti salvar el document
generat amb un altre nom.
87. neteja l'àrea de treball de WordPerfect (el guarda, no el grava
i no surt de WordPerfect).
88. {ASIGNAR} assigna a la variable "NFA" el valor de la variable
"VP-resposta" (que contenia el nom del document d'adreces).
89. {ANIDAR} transfereix l'execució a la macro DAU_I004.WPM, que ens
avisa de com poder mantenir i guardar el fitxer d'adreces que
hem generat.
92. {ROTULO} declara el rètol "Fugida".
93. {ANIDAR} transfereix l'execució a la macro DAUCANCE.WPM, que
cancel.la l'execució de la macro i inicialitza les variables
generals.
Josep Tordera, Lluís de Yzaguirre i Víctor Pàmies
Institut de Lingüística Aplicada (
Universitat "Pompeu Fabra")
Servei de Llengua Catalana (
Universitat de Barcelona)
corr-el: lluis punt deyzaguirre arrova upf punt edu