Presentació
Llistat de la macro "DAU4H1".
Descripció: CONVOCATÒRIA DE REUNIÓ
1 {SI SE CANCELA}{IR}Fugida~~
2
3 {ASIGNAR}NF~%~
4 {ROTULO}DemanarAD~
5 {ANIDAR}{VARIABLE}viaMacros~Dau_i005~
6
7 {;}Inicialitzem els paràmetres de DAU_TEXT.~
8 {ASIGNAR}VP-missatge~Nom del fitxer [*]~
9 {ASIGNAR}VP-resposta~~
10 {ASIGNAR}VP-obliga~sí~
11 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
12 {SI}"{VARIABLE}VP-resposta~"="*"~
13 {ANIDAR}{VARIABLE}viaMacros~DauDir~
14 {DES VISUALIZ.}{ACT VISUALIZ.}
15 {IR}DemanarAD~
16 {FIN SI}
17
18 {ASIGNAR}NFA~{VARIABLE}VP-resposta~~
19
20 {SI}"{VARIABLE}NFA~"=""~
21 {ANIDAR}{VARIABLE}viaMacros~Dau_adre~
22 {REGRESAR}
23 {FIN SI}
24
25 {;}el valor de NF="%" si no ha estat modificat a DAU_ADRE~
26 {SI}"{VARIABLE}NF~"!="%"~
27 {IR}Seguim~
28 {FIN SI}
29
30
31 {ROTULO}Explicació~
32 {ANIDAR}{VARIABLE}viaMacros~Dau_i002~
33 {;}Inicialitzem els paràmetres de DAU_TEXT.~
34 {ASIGNAR}VP-missatge~Nom del fitxer [*]~
35 {ASIGNAR}VP-resposta~~
36 {ASIGNAR}VP-obliga~sí~
37 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
38 {SI}"{VARIABLE}VP-resposta~"="*"~
39 {ANIDAR}{VARIABLE}viaMacros~DauDir~
40 {DES VISUALIZ.}{ACT VISUALIZ.}
41 {IR}Explicació~
42 {FIN SI}
43
44 {ASIGNAR}NF~{VARIABLE}VP-resposta~~
45
46 {ROTULO}Seguim~
47 {SI HAY ERROR}{IR}Explicació~~
48 {recuperar}{VARIABLE}viaDossier~{VARIABLE}NF~{retorn}
49 {SI HAY ERROR}{REGR./ERROR}~
50 {DES VISUALIZ.}
51
52 {;}recuperem informació habitual~
53 {bloc}{Fin}{Comandos macro}a0{retorn}
54 {ASIGNAR}nom~{VAR 0}~
55 {avall}
56 {bloc}{Fin}{Comandos macro}a0{retorn}
57 {ASIGNAR}lloc~{VAR 0}~
58 {dreta}
59 {ANIDAR}{VARIABLE}viaMacros~Dau_mhd~
60 {ASIGNAR}sexeP~{VARIABLE}VP-sex~~
61 {dreta}
62 {ANIDAR}{VARIABLE}viaMacros~Dau_mhd~
63 {ASIGNAR}sexeS~{VARIABLE}VP-sex~~
64 {Retroceso}{Retroceso}{Retroceso}{Retroceso}{Retroceso}{inici}
{esquerra}
65 {bloc}{Fin}{Comandos macro}a0{retorn}
66 {ASIGNAR}nomSecre~{VAR 0}~
67 {sortir}NN
68 {ACT VISUALIZ.}
69 {ASIGNAR}VP-model~{VARIABLE}viaDocs~dauMdel5.w51~
70 {ANIDAR}{VARIABLE}viaMacros~DauForma~
71
72 {;}A:Situar els codis de fusió al fitxer primari~
73 {comandes de fusió}11{retorn}{retorn}
74 {comandes de fusió}12{retorn}{retorn}
75 {comandes de fusió}13{retorn}{retorn}
76
77
78 {;}A:Entrar característiques de la convocatòria~
79 {ASIGNAR}VP-númLínia~10~
80 {ANIDAR}{VARIABLE}viaMacros~DauLinia~
81 Per indicació
82 {SI}"{VARIABLE}sexeP~"="home"~
83 del president
84 {DE OTRO MODO}
85 de la presidenta
86 {FIN SI}
87 , us convoco a la propera reunió ordinària {VARIABLE}nom~.
88 {retorn}{retorn}
89 Dia:
90 {ANIDAR}{VARIABLE}viaMacros~Dau_dia7~
91 ,
92 {ANIDAR}{VARIABLE}viaMacros~Dau_data~
93 {retorn}
94
95 Hora:
96 {ANIDAR}{VARIABLE}viaMacros~Dau_hora~
97 {VARIABLE}VP-hora~{retorn}
98
99 Lloc: {VARIABLE}lloc~{retorn}{retorn}
100 {negreta}Ordre del dia{negreta}:{retorn}{retorn}
101
102 {;}A:Demanar i integrar fitxer de l'ordre del dia~
103 {ROTULO}DemanarOD~
104 {;}Inicialitzem els paràmetres de DAU_TEXT.~
105 {ASIGNAR}VP-missatge~Nom del fitxer amb l'ordre del dia [*]~
106 {ASIGNAR}VP-resposta~~
107 {ASIGNAR}VP-obliga~sí~
108 {ANIDAR}{VARIABLE}viaMacros~Dau_text~
109 {SI}"{VARIABLE}VP-resposta~"="*"~
110 {ANIDAR}{VARIABLE}viaMacros~DauDir~
111 {DES VISUALIZ.}{ACT VISUALIZ.}
112 {IR}DemanarOD~
113 {FIN SI}
114 {SI HAY ERROR}{IR}DemanarOD~~
115 {recuperar}{VARIABLE}viaDossier~{VARIABLE}VP-resposta~{retorn}
116 {SI HAY ERROR}{REGR./ERROR}~
117 {DES VISUALIZ.}
118 {inici}{inici}{dreta}{retorn}{retorn}{retorn}
119
120 {SI}"{VARIABLE}sexeS~"="home"~
121 El secretari
122 {DE OTRO MODO}
123 La secretària
124 {FIN SI}
125
126 {VARIABLE}nom~{retorn}
127 {ANIDAR}{VARIABLE}viaMacros~DauSigna~
128
129 {VARIABLE}nomSecre~{retorn}{retorn}
130 {ANIDAR}{VARIABLE}viaMacros~Dau_l_d~
131 {retorn}
132 {ANIDAR}{VARIABLE}viaMacros~DauNoCom~
133 {ANIDAR}{VARIABLE}viaMacros~DauSalva~
134 {sortir}NN
135
136 {fusió/ordenació}1{VARIABLE}viaDocs~TEMPORAL.W51{retorn}
137 {VARIABLE}viaDossier~{VARIABLE}NFA~{retorn}
138 {LLAMAR}OrdenarCapçal~
139 {ACT VISUALIZ.}
140 {TERMINAR}
141
142 {;}A:Refer la capçalera del 1r full que queda desajustada~
143 {ROTULO}OrdenarCapçal~
144 {inici}{inici}{inici}{amunt}
145 {buscar}{format}23a{buscar}
146 {Retroceso}{cancel lar}1{Retroceso}
147 {REGRESAR}
148
149 {;}AC:Si es cancel.la~
150 {ROTULO}Fugida~
151 {ANIDAR}{VARIABLE}viaMacros~DauCance~
Comentaris
Macro cridada des de la macro DAU_ARCR.WPM.
1. {SI SE CANCELA}{IR} redirecciona la funció de la tecla de
cancel.lació cap al rètol "Fugida", que transfereix l'execució
a la macro DAUCANCE.WPM, que cancel.la el procediment i torna a
la macro matriu d'on parteix aquesta.
3. {ASIGNAR} assigna a la variable "NF" el valor "%".
4. {ROTULO] declara el rètol "DemanarAD".
5. {ANIDAR} transfereix l'execució a la macro DAU_I005.WPM, que ens
presenta un avís en pantalla en què ens recorda que si ja tenim
un fitxer d'adreces de les persones convocades, el podem
recuperar.
8. {ASIGNAR} assigna a la variable "VP-missatge" el valor
"Nom del fitxer [*]".
9. {ASIGNAR} inicialitza la variable "VP-resposta".
10. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí".
11. {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que
retorna una resposta després de rebre una pregunta.
12. {SI} si al diàleg de la macro DAU_TEXT.WPM l'usuari ha premut
"*"...
13. ... {ANIDAR} transfereix l'execució a la macro DAUDIR.WPM, que
ens presenta el directori DOSSIER\.
14. {DES VISUALIZ.}{ACT VISUALIZ.}, neteja la pantalla.
15. {IR} transfereix l'execució al rètol "DemanaAD", novament,
perquè ara escriguem el nom del fitxer que ja hem consultat.
18. {ASIGNAR} assigna a la variable "NFA" el valor de la variable
"VP-resposta", que contindrà el nom del fitxer que volem obrir.
20. {SI} si la variable NFA no conté cap valor (està buida) vol dir
que volem generar un nou fitxer d'adreces.
21. {ANIDAR} transfereix l'execució a la macro DAU_ADRE.WPM, que
genera el fitxer d'adreces dels assistents a la reunió.
22. {REGRESAR} marca la fi de la subrutina.
26. {SI} si el valor de la variable "NF" és diferent de "%" (això
vol dir que l'hem modificat a la macro DAU_ADRE.WPM, i que, per
tant, hem triat un nom de fitxer)...
27. ... {IR} transfereix l'execució al rètol "Seguir". En el cas
contrari, que el valor de la variable "NF" és "%", (no hem triat
encara cap fitxer d'adreces), segueix l'execució seqüencial de
la macro.
31. {ROTULO] declara el rètol "Explicació".
32. {ANIDAR} transfereix l'execució a la macro DAU_I002.WPM, que ens
dóna la possibilitat de recuperar el fitxer d'assistents creat
per la macro DAULLIST.WPM o crear-ne un de nou.
34. a 40. és idèntic a l'estructura comentada als punts 7. a 14.
d'aquesta mateixa macro.
41. {IR} transfereix l'execució al rètol "Explicació".
44. {ASIGNAR} assigna a la variable "NF" el valor de la variable
"VP-resposta".
46. {ROTULO] declara el rètol "Seguim".
47. {SI HAY ERROR} li indica al programa que vagi al rètol
"Explicació" si el programa detecta qualsevol error de
funcionament.
48. {Recuperar} obre el document que hem triat i que hem guardat a
la variable "NF".
49. {SI HAY ERROR}{REGR./ERROR} restaura el valor del comandament
{SI HAY ERROR} que havíem modificat a la línia 47, 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.
50. {DES VISUALIZ.} desactiva la visualització de la macro.
53. {bloc}{fin}{comandos macro}a0{retorn} marca com a bloc la
primera línia del fitxer d'assistents (nom de l'organisme que es
reuneix) i ho guarda en la variable {VAR 0}.
54. {ASIGNAR} assigna a la variable "nom" el valor de la variable
{VAR 0}.
55. {avall} baixa el cursor a la segona línia del fitxer
d'assistents.
56. {bloc}{fin}{comandos macro}a0{retorn} marca com a bloc la segona
línia del fitxer d'assistents (lloc de reunió) i ho guarda en la
variable {VAR 0}.
57. {ASIGNAR} assigna a la variable "lloc" el valor de la variable
{VAR 0}.
58. {dreta} mou el cursor una posició cap a la dreta (baixa a la
tercera línia del fitxer d'assistents, on hi ha el primer
assistent, el/la president/a).
59. {ANIDAR} transfereix l'execució a la macro DAU_MHD.WPM, que
determina el sexe dels assistents.
60. {ASIGNAR} assigna a la variable "sexeP" el valor de la variable
"VP-sex".
61. {dreta} mou el cursor una posició cap a la dreta (baixa a la
quarta línia del fitxer d'assistents, on hi ha el segon
assistent, el/la secretari/ària).
62. {ANIDAR} transfereix l'execució a la macro DAU_MHD.WPM, que
determina el sexe dels assistents.
63. {ASIGNAR} assigna a la variable "sexeS" el valor de la variable
"VP-sex".
64. esborrem la marca del sexe del/de la secretari/ària i...
65. ... marquem com a bloc aquesta línia, l'assignem a la variable
{VAR 0} i...
66. {ASIGNAR} assigna a la variable "nomSecre" el valor de la
variable {VAR 0}.
67. tanca el document que teníem obert (el fitxer d'assistents).
68. {ACT VISUALIZ.} activa la visualització de l'execució de la
macro.
69. {ASIGNAR} assigna a la variable "VP-model" el valor
"dauMdel5.w51".
NOTA: Si no hem fet la personalització de la capçalera del
DAU el programa ens donarà error, perquè no trobarà
aquest fitxer. Per defecte, amb la instal.lació del
DAU aquest fitxer té l'extensió FMT, que la canviem
quan personalitzem la nostra capçalera.
70. {ANIDAR} transfereix l'execució a la macro DAUFORMA.WPM, que
recupera un model i formata el document.
73. Entra la comanda de fusió del camp 1 i fa un salt de línia.
74. Entra la comanda de fusió del camp 2 i fa un salt de línia.
75. Entra la comanda de fusió del camp 3 i fa un salt de línia.
79. {ASIGNAR} assigna a la variable "VP-númLínia" el valor "10".
80. {ANIDAR} transfereix l'execució a la macro DAULINIA.WPM, que
col.loca el cursor en una línia determinada.
81. escriu "Per indicació ".
82. {SI} si la variable "sexeP" té el valor "home", a continuació
escriu "del president".
84. {DE OTRO MODO} altrament...
85. escriu "de la presidenta".
87. escriu a continuació
", us convoco a la propera reunió ordinària" i el valor de la
variable "nom", que conté el nom de l'òrgan que convoca la
reunió.
88. fa dos salts de línia
89. escriu "Dia: ".
90. {ANIDAR} transfereix l'execució a la macro DAU_DIA7.WPM, que ens
demana el dia de la setmana.
91. escriu ", ".
92. {ANIDAR} transfereix l'execució a la macro DAU_DATA.WPM, que ens
demana la data completa.
93. fa un salt de línia.
95. Escriu "Hora: ".
96. {ANIDAR} transfereix l'execució a la macro DAU_HORA.WPM, que ens
demana l'hora de la reunió.
97. escriu el valor de la variable "VP-hora" i fa un salt de línia.
99. Escriu "Lloc: ", el valor de la variable "lloc" i fa dos salts
de línia.
100. En negreta escriu "Ordre del dia:" i fa dos salts de línia.
103. {ROTULO] declara el rètol "DemanarOD".
105. {ASIGNAR} assigna a la variable "VP-missatge" el valor
"Nom del fitxer amb l'ordre del dia [*]".
106. {ASIGNAR} inicialitza la variable "VP-resposta".
107. {ASIGNAR} assigna a la variable "VP-obliga" el valor "sí".
108. {ANIDAR} transfereix l'execució a la macro DAU_TEXT.WPM, que
retorna una resposta després de rebre una pregunta.
109. {SI} si al diàleg de la macro DAU_TEXT.WPM l'usuari ha premut
"*"...
110. ... {ANIDAR} transfereix l'execució a la macro DAUDIR.WPM, que
ens presenta el directori DOSSIER\.
111. {DES VISUALIZ.}{ACT VISUALIZ.}, neteja la pantalla.
112. {IR} transfereix l'execució al rètol "DemanaOD", novament,
perquè ara escriguem el nom del fitxer que ja hem consultat.
114. {SI HAY ERROR} li indica al programa que vagi al rètol
"DemanarOD" si el programa detecta qualsevol error de
funcionament.
115. {recuperar} obre el document contingut en la variable "VP-
resposta" dins l'àrea de treball on estem generant la
convocatòria de reunió.
116. {SI HAY ERROR}{REGR./ERROR} restaura el valor del comandament
{SI HAY ERROR} que havíem modificat a la línia 114, 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.
117. {DES VISUALIZ.} desactiva la visualització de l'execució de la
macro.
118. {inici}{inici}{dreta} se'n va al final de la darrera línia del
fitxer, on estem situats, i fa tres salts de línia.
120. {SI} si el valor de la variable "sexeS" és "home"...
121. ... escriu a continuació "El secretari".
122. {DE OTRO MODO} altrament...
123. ... escriu a continuació "La secretària".
126. Escriu a continuació el valor de la variable "nom", que conté el
nom de l'organisme que convoca la reunió, precedit d'un espai i
seguit d'un salt de línia.
127. {ANIDAR} transfereix l'execució a la macro DAUSIGNA.WPM, que
deixa espai per a la signatura i presenta en pantalla un
comentari.
129. Escriu el nom del/de la secretari/secretària, contingut a la
variable "nomSecre" i fa dos salts de línia.
130. {ANIDAR} transfereix l'execució a la macro DAU_L_D.WPM, que ens
demana el lloc i la data de l'escrit.
131. {retorn} fa un salt de línia.
132. {ANIDAR} transfereix l'execució a la macro DAUNOCOM.WPM, que
treu els comentaris virtuals del document.
133. {ANIDAR} transfereix l'execució a la macro DAUSALVA.WPM, que
salva el document generat.
134. {sortir}NN neteja l'àrea de treball i tanca el document generat.
136. {fusió/ordenació}1 equival a activar CTRL-F9, el menú de fusió
de documents. L'arxiu primari serà TEMPORAL.W51.
137. L'arxiu secundari de fusió serà el que contingui la variable
"NFA", o sigui, el fitxer d'adreces.
138. {LLAMAR} transfereix l'execució al rètol "OrdenarCapçal".
140. {TERMINAR}deté l'execució de la macro.
143. {ROTULO] declara el rètol "OrdenarCapçal".
144. {inici}{inici}{inici}{amunt} situa el cursor al capdamunt del
document, davant els codis de control, fins i tot.
145. {buscar}{format}23a{buscar} cerca la capçalera del document
({format} equival a MAJ-F8.
146. {retroceso}{cancel lar}1{retroceso} genera un bloc inicial
davant la capçalera que seguidament esborra. Es fa això perquè
sinó el programa tenia problemes amb el format de la primera
carta.
147. {REGRESAR} marca la fi de la subrutina i retorna el control al
punt des d'on l'havíem cridat.
150. {ROTULO} declara el rètol "fugida", que...
151. ... transfereix l'execució a la macro DAUCANCE.WPM, que
cancel.la l'execució de la macro, neteja la pantalla 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