diff --git a/ba/bastuue.uml b/ba/bastuue.uml new file mode 100755 index 000000000..8276e1bdc --- /dev/null +++ b/ba/bastuue.uml @@ -0,0 +1,41 @@ +#include "ba3200.h" + +PAGE "Stampa uffici concessione" -1 -1 50 8 + +NUMBER F_INIZIO1 3 +BEGIN + PROMPT 3 1 "Da codice " + USE %UUE + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Dizione@30" S0 + OUTPUT F_INIZIO1 CODTAB + FIELD CODTAB + GROUP 1 + FLAGS "RZ" +END + +NUMBER F_FINE1 3 +BEGIN + PROMPT 3 3 "A codice " + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + FIELD CODTAB + GROUP 2 + FLAGS "RZ" +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/batbuue.h b/ba/batbuue.h new file mode 100755 index 000000000..07d375828 --- /dev/null +++ b/ba/batbuue.h @@ -0,0 +1,8 @@ +#define F_CODICE 100 +#define F_DIZIONE 101 +#define F_INDIRIZZO 102 +#define F_CIV 103 +#define F_CODCOM 104 +#define F_DENCOM 105 +#define F_PROVCOM 109 +#define F_CAP 106 diff --git a/ba/batbuue.rpt b/ba/batbuue.rpt new file mode 100755 index 000000000..e8c5d8809 --- /dev/null +++ b/ba/batbuue.rpt @@ -0,0 +1,15 @@ +[Headers] +132 +Tabella concessioni +1|@2g%s|Codice +1|@10g%s|Descrizione ufficio concessioni +1|@62g%s|Indirizzo ufficio +1|@99g%s|N. civico +1|@111g%s|Comune + +[Rows] +1|CODTAB|@2g@6,ls +1|S0|@10g@50,ls +1|S1|@62g@35,ls +1|S3|@99g@10,ls +1|S7|@111g@6,ls diff --git a/ba/batbuue.uml b/ba/batbuue.uml new file mode 100755 index 000000000..d72071e13 --- /dev/null +++ b/ba/batbuue.uml @@ -0,0 +1,88 @@ +#include "batbuue.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Uffici concessioni" -1 -1 78 19 + +NUMBER F_CODICE 3 +BEGIN + PROMPT 3 1 "Codice " + FIELD CODTAB + FLAGS "Z" + KEY 1 + USE %UUE + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Dizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DIZIONE S0 + CHECKTYPE REQUIRED +END + +STRING F_DIZIONE 30 +BEGIN + PROMPT 3 3 "Dizione " + FIELD S0 + KEY 2 + USE %UUE KEY 2 + INPUT S0 F_DIZIONE + DISPLAY "Dizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DIZIONE S0 + CHECKTYPE REQUIRED +END + +STRING F_INDIRIZZO 35 +BEGIN + PROMPT 3 5 "Indirizzo " + FIELD S1 +END + +STRING F_CIV 5 +BEGIN + PROMPT 56 5 "N." + FIELD S3 +END + +STRING F_CODCOM 4 +BEGIN + PROMPT 3 7 "Codice comune " + FIELD S6 + FLAGS "U" + USE LF_COMUNI KEY 1 + INPUT STATO "" + INPUT COM F_CODCOM +#include + OUTPUT F_CODCOM COM + OUTPUT F_DENCOM DENCOM + OUTPUT F_PROVCOM PROVCOM + OUTPUT F_CAP CAPCOM + CHECKTYPE REQUIRED + WARNING "Comune non presente" +END + +STRING F_DENCOM 50 +BEGIN + PROMPT 3 9 "Denominazione " + FLAGS "D" +END + +STRING F_PROVCOM 2 +BEGIN + PROMPT 3 11 "Provincia " + FLAGS "D" +END + +STRING F_CAP 5 +BEGIN + PROMPT 56 11 "CAP " + FIELD S7 +END + +ENDPAGE +ENDMASK