{================================= post_itALL =================================}
{ }
{ ACE : post_itALL.ace }
{ }
{ SHELL : ../shell_1/post_itALL }
{ }
{ AUTEUR : APL-AML }
{ }
{ Objet : Edition de l'ensemble des post_it (Version Ex&Co) }
{ }
{ Date : 10 Mars 1992 }
{ }
{==============================================================================}
{========================}
{==========================} DATABASE concours END {==========================}
{========================}
{================================} DEFINE {==================================}
{} {}
{} PARAM[1] p_c_ec CHAR(5) {}
{} PARAM[2] p_t_ec CHAR(2) {}
{} PARAM[3] p_s_ec CHAR(2) {}
{} PARAM[4] p_logname CHAR(8) {}
{} {}
{} VARIABLE i_loop INTEGER {}
{} VARIABLE i_1 INTEGER {}
{ VARIABLE i_2 INTEGER }
{ VARIABLE i_3 INTEGER }
{ VARIABLE i_4 INTEGER }
{ VARIABLE i_etiquette INTEGER }
{} {}
{} VARIABLE aig_pile INTEGER {}
{} VARIABLE i_pile_0 INTEGER {}
{} VARIABLE i_pile_1 INTEGER {}
{} VARIABLE i_pile_2 INTEGER {}
{} VARIABLE v_place INTEGER {}
{} VARIABLE v_reste INTEGER {}
{} {}
{} VARIABLE v_post_it INTEGER {}
{} {}
{} VARIABLE v_salle_0 CHAR(4) {}
{} VARIABLE v_salle_1 CHAR(4) {}
{} VARIABLE v_salle_2 CHAR(4) {}
{} VARIABLE v_salle_3 CHAR(4) {}
{} {}
{} VARIABLE v_hall_0 CHAR(38) {}
{} VARIABLE v_hall_1 CHAR(38) {}
{} VARIABLE v_hall_2 CHAR(38) {}
{} VARIABLE v_hall_3 CHAR(38) {}
{} {}
{} VARIABLE v1_salle CHAR(5) {}
{} VARIABLE v1_hall CHAR(38) {}
{} VARIABLE v1_place INTEGER {}
{} VARIABLE v1_lettre_cle CHAR(1) {}
{} VARIABLE v1_civilite CHAR(3) {}
{} VARIABLE v1_nom_usage CHAR(20) {}
{} VARIABLE v1_nom_naiss CHAR(20) {}
{} VARIABLE v1_prenom CHAR(20) {}
{} {}
{} VARIABLE v2_salle CHAR(5) {}
{} VARIABLE v2_hall CHAR(38) {}
{} VARIABLE v2_place INTEGER {}
{} VARIABLE v2_lettre_cle CHAR(1) {}
{} VARIABLE v2_civilite CHAR(3) {}
{} VARIABLE v2_nom_usage CHAR(20) {}
{} VARIABLE v2_nom_naiss CHAR(20) {}
{} VARIABLE v2_prenom CHAR(20) {}
{} {}
{} VARIABLE ctr_place INTEGER {}
{} {}
{} VARIABLE ESC CHAR(1) {}
{} {}
{==================================} END {===================================}
{================================== INPUT ===================================}
{} {}
{ PROMPT FOR v_dp USING " CONCOURS : " }
{} {}
{=================================== END ====================================}
{================================} OUTPUT {==================================}
{} {}
{ REPORT TO PRINTER }
{} REPORT TO PIPE "cat > ${LOGNAME}.prt" {}
{} TOP MARGIN 0 {}
{} BOTTOM MARGIN 0 {}
{} LEFT MARGIN 0 {}
{} PAGE LENGTH 80 {}
{} TOP OF PAGE "^L" {}
{} {}
{==================================} END {===================================}
{=================================} SELECT {=================================}
ec.cts ec_cts,
ec.c_ec ec_c_ec,
ec.t_ec ec_t_ec,
ec.s_ec ec_s_ec,
ec.l_ec_1 ec_l_ec_1,
ec.l_ec_2 ec_l_ec_2,
ec.places ec_places,
tec.t_ec_l_maj tec_t_ec_l_maj,
sp.hall sp_hall,
cec.n_cec cec_n_cec,
cec.c_et cec_c_et,
cec.salle cec_salle,
cec.places cec_places,
cec.lettre_cle cec_lettre_cle,
cec.post_it cec_post_it,
pec.civilite pec_civilite,
pec.nom_naiss pec_nom_naiss,
pec.nom_usage pec_nom_usage,
pec.prenom pec_prenom,
pec.prenom_2eme pec_prenom_2eme,
ln.pre_imprime ln_pre_imprime,
ln.papier_blanc ln_papier_blanc
FROM ec,
sp,
tec,
cec,
pec,
ln
WHERE ec.c_ec = $p_c_ec
AND ec.t_ec = $p_t_ec
AND ec.s_ec = $p_s_ec
AND ec.t_ec = tec.t_ec
AND ec.cts = sp.cts
AND ec.cts = cec.cts
AND (cec.c_decision = "A" OR cec.c_decision = "C")
AND cec.c_et = sp.c_et
AND cec.salle = sp.salle
AND cec.n_pec = pec.n_pec
AND cec.post_it IS NOT NULL
AND ln.logname = $p_logname
AND (ln.service IS NULL OR ln.service = ec.service)
{===============================} ORDER BY {================================}
ec_cts,
cec_post_it
{==================================} END {===================================}
{=================================} FORMAT {=================================}
{------------------------} BEFORE GROUP OF ec_cts {-----------------------}
LET v_post_it = 0
LET i_1 = 0
LET i_pile_0 = ec_places / 4
LET i_pile_1 = ec_places / 4
LET i_pile_2 = ec_places / 4
LET v_reste = ec_places - (i_pile_0 * 4)
IF v_reste > 0
THEN BEGIN
LET i_pile_0 = i_pile_0 + 1
LET v_reste = v_reste - 1
END
IF v_reste > 0
THEN BEGIN
LET i_pile_1 = i_pile_1 + 1
LET v_reste = v_reste - 1
END
IF v_reste > 0
THEN BEGIN
LET i_pile_2 = i_pile_2 + 1
LET v_reste = v_reste - 1
END
LET aig_pile = 3
{---------------------------- FIRST PAGE HEADER ----------------------------}
LET ESC = ASCII 027
PRINT ESC, "E", ESC, "&k0g4S", ESC, "&l1o76p1x6D",
ESC, ln_papier_blanc, ESC, "&a3L", ESC, "(10U";
{------------------------------- PAGE HEADER -------------------------------}
{------------------------------- PAGE TRAILER -------------------------------}
{------------------------------} ON EVERY ROW {------------------------------}
LET v_post_it = v_post_it + 1
FOR i_loop = v_post_it TO cec_post_it
DO BEGIN
IF i_1 = 0
THEN BEGIN
LET i_1 = 1
IF aig_pile = 1
THEN LET aig_pile = 2
ELSE LET aig_pile = 0
IF v_post_it = cec_post_it
THEN BEGIN
IF aig_pile = 0
THEN BEGIN
LET v_salle_0 = cec_salle
LET v_hall_0 = sp_hall
END
ELSE BEGIN
LET v_salle_2 = cec_salle
LET v_hall_2 = sp_hall
END
LET v1_salle = cec_salle
LET v1_hall = sp_hall
LET v1_place = cec_place
LET v1_lettre_cle = cec_lettre_cle
LET v1_civilite = pec_civilite
LET v1_nom_usage = pec_nom_usage
IF pec_civilite = "MME"
AND pec_nom_naiss IS NOT NULL
AND pec_nom_naiss <> pec_nom_usage
THEN LET v1_nom_naiss = pec_nom_naiss
ELSE LET v1_nom_naiss = ""
LET v1_prenom = pec_prenom CLIPPED
{
LET v1_prenom = pec_prenom CLIPPED, 1 SPACE, pec_prenom_2eme CLIPPED
}
END
ELSE BEGIN
IF aig_pile = 0
THEN BEGIN
LET v1_salle = v_salle_0
LET v1_hall = v_hall_0
END
ELSE BEGIN
LET v1_salle = v_salle_2
LET v1_hall = v_hall_2
END
IF aig_pile = 0
THEN LET v1_place = PAGENO
ELSE LET v1_place = i_pile_0 + i_pile_1 + PAGENO
LET v1_lettre_cle = ""
LET v1_civilite = ""
LET v1_nom_usage = ""
LET v1_nom_naiss = ""
LET v1_prenom = ""
LET v_post_it = v_post_it + 1
END
END
ELSE BEGIN
LET i_1 = 0
IF aig_pile = 0
THEN LET aig_pile = 1
ELSE LET aig_pile = 3
IF v_post_it = cec_post_it
THEN BEGIN
IF aig_pile = 1
THEN BEGIN
LET v_salle_1 = cec_salle
LET v_hall_1 = sp_hall
END
ELSE BEGIN
LET v_salle_3 = cec_salle
LET v_hall_3 = sp_hall
END
LET v2_salle = cec_salle
LET v2_hall = sp_hall
LET v2_place = cec_place
LET v2_lettre_cle = cec_lettre_cle
LET v2_civilite = pec_civilite
LET v2_nom_usage = pec_nom_usage
IF pec_civilite = "MME"
AND pec_nom_naiss IS NOT NULL
AND pec_nom_naiss <> pec_nom_usage
THEN LET v2_nom_naiss = pec_nom_naiss
ELSE LET v2_nom_naiss = ""
LET v2_prenom = pec_prenom CLIPPED
{
LET v2_prenom = pec_prenom CLIPPED, 1 SPACE, pec_prenom_2eme CLIPPED
}
END
ELSE BEGIN
IF aig_pile = 1
THEN BEGIN
LET v2_salle = v_salle_1
LET v2_hall = v_hall_1
END
ELSE BEGIN
LET v2_salle = v_salle_3
LET v2_hall = v_hall_3
END
LET v2_salle = cec_salle
LET v2_hall = sp_hall
IF aig_pile = 1
THEN LET v2_place = i_pile_0 + PAGENO
ELSE LET v2_place = i_pile_0 + i_pile_1 + i_pile_2 + PAGENO
LET v2_lettre_cle = ""
LET v2_civilite = ""
LET v2_nom_usage = ""
LET v2_nom_naiss = ""
LET v2_prenom = ""
LET v_post_it = v_post_it + 1
END
IF sp_hall IS NULL
OR sp_hall = " "
THEN BEGIN
PRINT ESC, "&k4S", ESC, "(s3B",
tec_t_ec_l_maj, 16 SPACES,
"Salle : ", v1_salle,
12 SPACES,
tec_t_ec_l_maj, 16 SPACES,
"Salle : ", v2_salle, ESC, "(s0B"
SKIP 1 LINE
PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
ec_l_ec_1, ESC, "(s0p10v0b3T",
ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
ec_l_ec_1, ESC, "(s0p10v0b3T"
PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
ec_l_ec_2, ESC, "(s0p10v0b3T",
ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
ec_l_ec_2, ESC, "(s0p10v0b3T"
SKIP 5 LINES
END
ELSE BEGIN
PRINT ESC, "(s3B", v1_hall, 33 SPACES, v2_hall, ESC, "(s0B"
SKIP 1 LINE
PRINT ESC, "&k4S", ESC, "(s3B",
tec_t_ec_l_maj, 41 SPACES,
tec_t_ec_l_maj CLIPPED, ESC, "(s0B"
SKIP 1 LINE
PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
ec_l_ec_1, ESC, "(s0p10v0b3T",
ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
ec_l_ec_1, ESC, "(s0p10v0b3T"
PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
ec_l_ec_2, ESC, "(s0p10v0b3T",
ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
ec_l_ec_2, ESC, "(s0p10v0b3T"
SKIP 3 LINES
END
PRINT ESC, "&f0S";
IF v1_lettre_cle IS NULL
OR v1_lettre_cle = " "
THEN BEGIN
IF v1_place < 1000 THEN PRINT 2 SPACES;
IF v1_place < 100 THEN PRINT 2 SPACES;
IF v1_place < 10 THEN PRINT 2 SPACES;
PRINT 22 SPACES, ESC, "(s1p50v3b4101T",
v1_place USING "<<<< ",
ESC, "(s0p10v0b3T",
ESC, "&f1S", 71 SPACES;
END
ELSE PRINT 15 SPACES, ESC, "(s1p50v3b4101T",
v1_place USING "&&&& ",
ESC, "*v0n1O", ESC, "*v1T",
ESC, "(s1p50v32s3b4101T",
ESC, "*c45G", ESC, "*v2T", v1_lettre_cle,
ESC, "(s0p10v0b3T", ESC, "*v0T",
ESC, "&f1S", 71 SPACES;
IF v2_lettre_cle IS NULL
OR v2_lettre_cle = " "
THEN BEGIN
IF v2_place < 1000 THEN PRINT 2 SPACES;
IF v2_place < 100 THEN PRINT 2 SPACES;
IF v2_place < 10 THEN PRINT 2 SPACES;
PRINT 22 SPACES, ESC, "(s1p50v3b4101T",
v2_place USING "<<<< ",
ESC, "(s0p10v0b3T"
END
ELSE PRINT 15 SPACES, ESC, "(s1p50v3b4101T",
v2_place USING "&&&& ",
ESC, "*v0n1O", ESC, "*v1T",
ESC, "(s1p50v32s3b4101T",
ESC, "*c45G", ESC, "*v2T", v2_lettre_cle,
ESC, "(s0p10v0b3T", ESC, "*v0T"
PRINT ESC, "&f0S",
ESC, "*c1465a80b15g2P", ESC, "*v0n1O",
ESC, "&f1S", 71 SPACES,
ESC, "*c1465a80b15g2P", ESC, "*v0n1O"
IF v1_nom_usage IS NOT NULL
AND ec_t_ec <> "EB"
THEN PRINT ESC, "&f0S", ESC, "&k4S",
" Numéro de place à reporter sur votre copie";
ELSE
IF ec_t_ec = "EB"
THEN PRINT ESC, "&f0S", ESC, "&k4S";
ELSE PRINT ESC, "&f0S", ESC, "&k4S", 24 SPACES, "Place libre";
IF v2_nom_usage IS NOT NULL
AND ec_t_ec <> "EB"
THEN PRINT ESC, "&f1S", ESC, "&k4S", 71 SPACES,
" Numéro de place à reporter sur votre copie"
ELSE
IF ec_t_ec = "EB"
THEN PRINT ESC, "&f1S", ESC, "&k4S";
ELSE PRINT ESC, "&f1S", ESC, "&k4S", 93 SPACES, "Place libre";
SKIP 3 LINES
IF v1_nom_naiss IS NULL
THEN IF ec_t_ec = "EB"
THEN PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
v1_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T";
ELSE PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
v1_civilite, 1 SPACE, v1_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T";
IF v1_nom_naiss IS NOT NULL
THEN IF ec_t_ec = "EB"
THEN PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
v1_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T";
ELSE PRINT ESC, "&f0S", ESC, "(s1p14v3b4101T",
v1_civilite, 1 SPACE, v1_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T";
IF v1_nom_usage IS NULL
THEN PRINT ESC, "&f0S";
IF v2_nom_naiss IS NULL
THEN IF ec_t_ec = "EB"
THEN PRINT ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
v2_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v2_prenom CLIPPED,
ESC, "(s0p10v0b3T"
ELSE PRINT ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
v2_civilite, 1 SPACE, v2_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v2_prenom CLIPPED,
ESC, "(s0p10v0b3T"
IF v2_nom_naiss IS NOT NULL
THEN IF ec_t_ec = "EB"
THEN PRINT ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
v2_civilite, 1 SPACE, v2_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v2_prenom CLIPPED,
ESC, "(s0p10v0b3T"
ELSE PRINT ESC, "&f1S", 71 SPACES,
ESC, "(s1p14v3b4101T",
v2_civilite, 1 SPACE, v2_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v2_prenom CLIPPED,
ESC, "(s0p10v0b3T"
IF v2_nom_usage IS NULL
THEN PRINT ESC, "&f1S", 1 SPACE
IF v1_nom_naiss IS NOT NULL
THEN PRINT ESC, "&f0S", " pouse ",
ESC, "(s1p14v3b4101T", v1_nom_usage CLIPPED, ESC, "(s0p10v0b3T";
ELSE PRINT ESC, "&f0S";
IF v2_nom_naiss IS NOT NULL
THEN PRINT ESC, "&f1S", 71 SPACES, " pouse ",
ESC, "(s1p14v3b4101T", v2_nom_usage CLIPPED, ESC, "(s0p10v0b3T"
ELSE PRINT ESC, "&f1S"
IF LINENO < 25
THEN SKIP 8 LINES
ELSE SKIP TO TOP OF PAGE
END
END
{-------------------------- TRAITEMENT FIN DE PAGE --------------------------}
{------------------------ TRAITEMENT EN-TETE DE PAGE ------------------------}
{------------------------ TRAITEMENT LIGNE COURANTE ------------------------}
{------------------------- AFTER GROUP OF ec_cts -------------------------}
{------------------------------} ON LAST ROW {-------------------------------}
IF i_1 = 1
THEN BEGIN
IF sp_hall IS NULL
OR sp_hall = " "
THEN BEGIN
PRINT ESC, "(s3B",
tec_t_ec_l_maj, 16 SPACES,
"Salle : ", v1_salle
PRINT ESC, "(s0B"
PRINT ESC, "(s1p14v3b4101T", ec_l_ec_1, ESC, "(s0p10v0b3T"
PRINT ESC, "(s1p14v3b4101T", ec_l_ec_2, ESC, "(s0p10v0b3T"
SKIP 5 LINES
END
ELSE BEGIN
PRINT ESC, "(s3B", v1_hall
SKIP 1 LINE
PRINT tec_t_ec_l_maj CLIPPED
PRINT ESC, "(s0B"
PRINT ESC, "(s1p14v3b4101T", ec_l_ec_1, ESC, "(s0p10v0b3T"
PRINT ESC, "(s1p14v3b4101T", ec_l_ec_2, ESC, "(s0p10v0b3T"
SKIP 3 LINES
END
IF v1_lettre_cle IS NULL
OR v1_lettre_cle = " "
THEN BEGIN
IF v1_place < 1000 THEN PRINT 2 SPACES;
IF v1_place < 100 THEN PRINT 2 SPACES;
IF v1_place < 10 THEN PRINT 2 SPACES;
PRINT 22 SPACES, ESC, "(s1p50v3b4101T",
v1_place USING "<<<< ",
ESC, "(s0p10v0b3T"
END
ELSE PRINT 15 SPACES, ESC, "(s1p50v3b4101T",
v1_place USING "&&&& ",
ESC, "*v0n1O", ESC, "*v1T",
ESC, "(s1p50v32s3b4101T",
ESC, "*c45G", ESC, "*v2T", v1_lettre_cle,
ESC, "(s0p10v0b3T", ESC, "*v0T"
PRINT ESC, "*c1465a80b15g2P", ESC, "*v0n1O"
IF v1_nom_usage IS NOT NULL
AND ec_t_ec <> "EB"
THEN PRINT ESC, "&k4S",
" Numéro de place à reporter sur votre copie"
SKIP 3 LINES
IF v1_civilite = "MME"
THEN IF ec_t_ec = "EB"
THEN PRINT ESC, "(s1p14v3b4101T",
v1_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T"
ELSE PRINT ESC, "(s1p14v3b4101T",
v1_civilite, 1 SPACE, v1_nom_naiss CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T"
ELSE IF ec_t_ec = "EB"
THEN PRINT ESC, "(s1p14v3b4101T",
v1_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T"
ELSE PRINT ESC, "(s1p14v3b4101T",
v1_civilite, 1 SPACE, v1_nom_usage CLIPPED,
1 SPACE, ESC, "(s0B", v1_prenom CLIPPED,
ESC, "(s0p10v0b3T"
IF v1_civilite = "MME"
AND v1_nom_naiss IS NOT NULL
AND v1_nom_naiss <> v1_nom_usage
THEN PRINT " pouse ",
ESC, "(s1p14v3b4101T",
v1_nom_usage CLIPPED,
ESC, "(s0p10v0b3T";
ELSE PRINT " ";
SKIP 8 LINES
END
{ - Reinitialisation de l'imprimante "HP LASERJET III Si" }
{==================================} END {===================================}
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Viadeo](https://forum.developpez.be/images/misc/bookmarksite_viadeo.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Twitter](https://forum.developpez.be/images/misc/bookmarksite_twitter.png)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Google](https://forum.developpez.be/images/misc/bookmarksite_google.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Facebook](https://forum.developpez.be/images/misc/bookmarksite_facebook.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Digg](https://forum.developpez.be/images/misc/bookmarksite_digg.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Delicious](https://forum.developpez.be/images/misc/bookmarksite_delicious.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog MySpace](https://forum.developpez.be/images/misc/bookmarksite_myspace.gif)
![Envoyer le billet « [TUTORIEL] Imprimer des numéros de table en piles » dans le blog Yahoo](https://forum.developpez.be/images/misc/bookmarksite_yahoo.gif)
Consulter le profil
Marquer ce blog comme lu
