371 lines
6.5 KiB
Plaintext
Executable File
371 lines
6.5 KiB
Plaintext
Executable File
#include "at1200a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
ENDPAGE // FINE TOOLBAR
|
|
|
|
PAGE "Attribuzione complessiva" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 0 "Scelta sezione/sottogruppo"
|
|
END
|
|
|
|
STRING F_SEZINI 2
|
|
BEGIN
|
|
PROMPT 2 1 "Sezione "
|
|
FLAGS "U"
|
|
USE LF_SEZIONI
|
|
INPUT CODSEZ F_SEZINI
|
|
INPUT CODSOT F_SOTINI
|
|
DISPLAY "Cod.sez" CODSEZ
|
|
DISPLAY "Cod.sot." CODSOT
|
|
DISPLAY "Sezione@25" DENSEZ
|
|
DISPLAY "Sottogruppo@25" DENSOT
|
|
OUTPUT F_SEZINI CODSEZ
|
|
OUTPUT F_D_SEZINI DENSEZ
|
|
OUTPUT F_SOTINI CODSOT
|
|
OUTPUT F_D_SOTINI DENSOT
|
|
CHECKTYPE SEARCH
|
|
HELP "Codice sezione da stampare"
|
|
END
|
|
|
|
STRING F_D_SEZINI 25
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
FLAGS "U"
|
|
USE LF_SEZIONI KEY 2
|
|
INPUT DENSEZ F_D_SEZINI
|
|
DISPLAY "Sezione@25" DENSEZ
|
|
DISPLAY "Sottogruppo@25" DENSOT
|
|
DISPLAY "Cod.sez" CODSEZ
|
|
DISPLAY "Cod.sot." CODSOT
|
|
COPY OUTPUT F_SEZINI
|
|
CHECKTYPE NORMAL
|
|
HELP "Sezione da stampare"
|
|
END
|
|
|
|
STRING F_SOTINI 2
|
|
BEGIN
|
|
PROMPT 2 2 "Sottogruppo "
|
|
COPY ALL F_SEZINI
|
|
CHECKTYPE SEARCH
|
|
HELP "Codice sottogruppo da stampare"
|
|
END
|
|
|
|
STRING F_D_SOTINI 25
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
FLAGS "U"
|
|
COPY USE F_D_SEZINI
|
|
INPUT DENSEZ F_D_SEZINI
|
|
INPUT DENSOT F_D_SOTINI
|
|
COPY DISPLAY F_D_SEZINI
|
|
COPY OUTPUT F_D_SEZINI
|
|
CHECKTYPE NORMAL
|
|
HELP "Sottogruppo da cui partire"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 4 "Categorie donatori"
|
|
END
|
|
|
|
STRING F_CAT1 2
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_CAT1 CODTAB
|
|
OUTPUT F_D_CAT1 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT1 30
|
|
BEGIN
|
|
PROMPT 8 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAT2 2
|
|
BEGIN
|
|
PROMPT 2 6 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT2
|
|
COPY DISPLAY F_CAT1
|
|
OUTPUT F_CAT2 CODTAB
|
|
OUTPUT F_D_CAT2 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT2 30
|
|
BEGIN
|
|
PROMPT 8 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAT3 2
|
|
BEGIN
|
|
PROMPT 2 7 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT3
|
|
COPY DISPLAY F_CAT1
|
|
OUTPUT F_CAT3 CODTAB
|
|
OUTPUT F_D_CAT3 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT3 30
|
|
BEGIN
|
|
PROMPT 8 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAT4 2
|
|
BEGIN
|
|
PROMPT 40 5 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT4
|
|
COPY DISPLAY F_CAT1
|
|
OUTPUT F_CAT4 CODTAB
|
|
OUTPUT F_D_CAT4 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT4 30
|
|
BEGIN
|
|
PROMPT 46 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAT5 2
|
|
BEGIN
|
|
PROMPT 40 6 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT5
|
|
COPY DISPLAY F_CAT1
|
|
OUTPUT F_CAT5 CODTAB
|
|
OUTPUT F_D_CAT5 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT5 30
|
|
BEGIN
|
|
PROMPT 46 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAT6 2
|
|
BEGIN
|
|
PROMPT 40 7 ""
|
|
FLAGS "U"
|
|
USE CTD
|
|
INPUT CODTAB F_CAT6
|
|
COPY DISPLAY F_CAT1
|
|
OUTPUT F_CAT6 CODTAB
|
|
OUTPUT F_D_CAT6 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Categoria di appartenenza"
|
|
END
|
|
|
|
STRING F_D_CAT6 30
|
|
BEGIN
|
|
PROMPT 46 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 8
|
|
BEGIN
|
|
PROMPT 1 9 "Opzioni per l'attribuzione"
|
|
END
|
|
|
|
DATE F_DATAELA
|
|
BEGIN
|
|
PROMPT 2 10 "Data elaborazione "
|
|
CHECKTYPE REQUIRED
|
|
HELP "Data di riferimento per l'attribuzione delle benemerenze"
|
|
END
|
|
|
|
DATE F_DATAPRE
|
|
BEGIN
|
|
PROMPT 2 11 "Data prevista consegna "
|
|
HELP "Data di prevista consegna"
|
|
END
|
|
|
|
BOOLEAN F_ATTGRUPPI
|
|
BEGIN
|
|
PROMPT 2 12 "Attribuzione fatta dai gruppi aziendali"
|
|
MESSAGE TRUE ENABLE,1@|RESET,F_ANCHEGRUPPI|DISABLE,F_ANCHEGRUPPI
|
|
MESSAGE FALSE RESET,1@|DISABLE,1@|ENABLE,F_ANCHEGRUPPI
|
|
END
|
|
|
|
STRING F_GRUPPOAZIE 4
|
|
BEGIN
|
|
PROMPT 2 13 "Gruppo az. che attribuisce "
|
|
FLAGS "U"
|
|
USE GAZ
|
|
INPUT CODTAB F_GRUPPOAZIE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_GRUPPOAZIE CODTAB
|
|
OUTPUT F_D_GRUPPOAZIE S0
|
|
CHECKTYPE NORMAL
|
|
MESSAGE DISABLE,F_ANCHEGRUPPI
|
|
MESSAGE EMPTY ENABLE,F_ANCHEGRUPPI
|
|
WARNING "Codice gruppo aziendale non presente"
|
|
HELP "Gruppo aziendale di appartenenza"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_D_GRUPPOAZIE 30
|
|
BEGIN
|
|
PROMPT 37 13 ""
|
|
FLAGS "U"
|
|
USE GAZ KEY 2
|
|
INPUT S0 F_D_GRUPPOAZIE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
COPY OUTPUT F_GRUPPOAZIE
|
|
CHECKTYPE NORMAL
|
|
WARNING "Gruppo aziendale non presente"
|
|
HELP "Gruppo aziendale di appartenenza"
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_ANCHEGRUPPI
|
|
BEGIN
|
|
PROMPT 2 14 "Includi soggetti appartenenti a gruppi aziendali"
|
|
END
|
|
|
|
BOOLEAN F_DEFINITIVA
|
|
BEGIN
|
|
PROMPT 2 15 "Attribuzione definitiva"
|
|
HELP "Se attribuzione definitiva, le benemerenze stampate verranno registrate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Visualizzazione attribuzioni fatte" -1 -1 78 18
|
|
|
|
STRING F_RCODSEZ 2
|
|
BEGIN
|
|
PROMPT 2 1 "Sezione "
|
|
FLAGS "U"
|
|
USE LF_ATOPERA KEY 2 SELECT TIPOOPE = 'B'
|
|
INPUT CODSEZ F_RCODSEZ
|
|
INPUT CODSOT F_RCODSOT
|
|
DISPLAY "Cod.sez" CODSEZ
|
|
DISPLAY "Cod.sot." CODSOT
|
|
DISPLAY "Gr.az." GRUPPOAZIE
|
|
DISPLAY "Data ela.@10" DATA1
|
|
DISPLAY "Data pr.con.@10" DATA2
|
|
DISPLAY "Anche gruppi" FLAG1
|
|
DISPLAY "Utente" UTENTE
|
|
OUTPUT F_RCODSEZ CODSEZ
|
|
OUTPUT F_RCODSOT CODSOT
|
|
OUTPUT F_RDATAELA DATA1
|
|
OUTPUT F_RDATAPRE DATA2
|
|
OUTPUT F_RATTGRUPPI FLAG2
|
|
OUTPUT F_RGRUPPOAZIE GRUPPOAZIE
|
|
OUTPUT F_RANCHEGRUPPI FLAG1
|
|
OUTPUT F_RUTENTE UTENTE
|
|
CHECKTYPE SEARH
|
|
END
|
|
|
|
STRING F_RCODSOT 2
|
|
BEGIN
|
|
PROMPT 2 2 "Sottogruppo "
|
|
COPY ALL F_RCODSEZ
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 8
|
|
BEGIN
|
|
PROMPT 1 4 "Opzioni dell'attribuzione"
|
|
END
|
|
|
|
|
|
DATE F_RDATAELA
|
|
BEGIN
|
|
PROMPT 2 5 "Data elaborazione "
|
|
FLAGS "D"
|
|
HELP "Data di riferimento per l'attribuzione delle benemerenze"
|
|
END
|
|
|
|
DATE F_RDATAPRE
|
|
BEGIN
|
|
PROMPT 2 6 "Data prevista consegna "
|
|
FLAGS "D"
|
|
HELP "Data di prevista consegna"
|
|
END
|
|
|
|
BOOLEAN F_RATTGRUPPI
|
|
BEGIN
|
|
PROMPT 2 7 "Attribuzione fatta dai gruppi aziendali"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RGRUPPOAZIE 4
|
|
BEGIN
|
|
PROMPT 2 8 "Gruppo az. che attribuisce "
|
|
FLAGS "D"
|
|
USE GAZ
|
|
INPUT CODTAB F_RGRUPPOAZIE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_RGRUPPOAZIE CODTAB
|
|
OUTPUT F_D_RGRUPPOAZIE S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice gruppo aziendale non presente"
|
|
HELP "Gruppo aziendale di appartenenza"
|
|
END
|
|
|
|
STRING F_D_RGRUPPOAZIE 30
|
|
BEGIN
|
|
PROMPT 37 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_RANCHEGRUPPI
|
|
BEGIN
|
|
PROMPT 2 9 "Includi soggetti appartenenti a gruppi aziendali"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RUTENTE 8
|
|
BEGIN
|
|
PROMPT 2 10 "Utente che ha attribuito "
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|