diff --git a/ba/bastabe.uml b/ba/bastabe.uml new file mode 100755 index 000000000..7a06d4dbc --- /dev/null +++ b/ba/bastabe.uml @@ -0,0 +1,42 @@ +#include "ba3200.h" + +PAGE "Stampa Aspetto dei Beni" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN +PROMPT 2 1 "Da codice " +FLAGS "U" +HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" +FIELD LF_TABCOM->CODTAB +USE %ABE +INPUT CODTAB F_INIZIO1 +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione@30" S0 +OUTPUT F_INIZIO1 CODTAB +GROUP 1 +END + +STRING F_FINE1 3 +BEGIN +PROMPT 2 3 "A codice " +FLAGS "U" +HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" +FIELD LF_TABCOM->CODTAB +COPY USE F_INIZIO1 +INPUT CODTAB F_FINE1 +COPY DISPLAY F_INIZIO1 +OUTPUT F_FINE1 CODTAB +GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN +PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastctr.uml b/ba/bastctr.uml new file mode 100755 index 000000000..4ec9de1ff --- /dev/null +++ b/ba/bastctr.uml @@ -0,0 +1,42 @@ +#include "ba3200.h" + +PAGE "Stampa Causali di Trasporto" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN +PROMPT 2 1 "Da codice " +FLAGS "U" +HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" +FIELD LF_TABCOM->CODTAB +USE %CTR +INPUT CODTAB F_INIZIO1 +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione@30" S0 +OUTPUT F_INIZIO1 CODTAB +GROUP 1 +END + +STRING F_FINE1 3 +BEGIN +PROMPT 2 3 "A codice " +FLAGS "U" +HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" +FIELD LF_TABCOM->CODTAB +COPY USE F_INIZIO1 +INPUT CODTAB F_FINE1 +COPY DISPLAY F_INIZIO1 +OUTPUT F_FINE1 CODTAB +GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN +PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN +PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastvet.uml b/ba/bastvet.uml index 750acae4e..6b7517c5f 100755 --- a/ba/bastvet.uml +++ b/ba/bastvet.uml @@ -37,7 +37,7 @@ END BUTTON DLG_QUIT 8 2 BEGIN -PROMPT -22 -3 "" +PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/batbabe.h b/ba/batbabe.h new file mode 100755 index 000000000..953355d30 --- /dev/null +++ b/ba/batbabe.h @@ -0,0 +1,7 @@ + +// campi maschera batb%abe.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + diff --git a/ba/batbabe.rpt b/ba/batbabe.rpt new file mode 100755 index 000000000..524ab9f19 --- /dev/null +++ b/ba/batbabe.rpt @@ -0,0 +1,10 @@ +[Headers] +80 +Tabella Aspetto dei Beni +1|@3g%s|Codice +1|@14g%s|Descrizione + +[Rows] +1|CODTAB|@3g@3,ls +1|S0|@14g@30,ls + diff --git a/ba/batbabe.uml b/ba/batbabe.uml new file mode 100755 index 000000000..21d87e50f --- /dev/null +++ b/ba/batbabe.uml @@ -0,0 +1,43 @@ +#include "batbabe.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Aspetto dei Beni" -1 -1 78 8 + +STRING F_CODICE 3 +BEGIN + PROMPT 4 2 "Codice " + FIELD CODTAB + FLAGS "UZ" + KEY 1 + USE %ABE + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + FIELD LF_TABCOM->S0 + KEY 2 + USE %ABE KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK + + diff --git a/ba/batbctr.h b/ba/batbctr.h new file mode 100755 index 000000000..e86bd7c30 --- /dev/null +++ b/ba/batbctr.h @@ -0,0 +1,7 @@ + +// campi maschera batb%ctr.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + diff --git a/ba/batbctr.rpt b/ba/batbctr.rpt new file mode 100755 index 000000000..f043ad903 --- /dev/null +++ b/ba/batbctr.rpt @@ -0,0 +1,10 @@ +[Headers] +80 +Tabella Causali di Trasporto +1|@3g%s|Codice +1|@14g%s|Descrizione + +[Rows] +1|CODTAB|@3g@3,ls +1|S0|@14g@30,ls + diff --git a/ba/batbctr.uml b/ba/batbctr.uml new file mode 100755 index 000000000..f611cc887 --- /dev/null +++ b/ba/batbctr.uml @@ -0,0 +1,43 @@ +#include "batbctr.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Causali di Trasporto" -1 -1 78 8 + +STRING F_CODICE 3 +BEGIN + PROMPT 4 2 "Codice " + FIELD CODTAB + FLAGS "UZ" + KEY 1 + USE %CTR + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + FIELD LF_TABCOM->S0 + KEY 2 + USE %CTR KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK + + diff --git a/ba/batbvet.h b/ba/batbvet.h index 47020fab5..fe3817cd1 100755 --- a/ba/batbvet.h +++ b/ba/batbvet.h @@ -4,8 +4,18 @@ #define F_CODVETT 101 #define F_RAGSO 102 -#define F_RESI 103 +#define F_IND 103 #define F_TEL 104 +#define F_PTEL 105 +#define F_FAX 106 +#define F_TELEX 107 +#define F_CAP 108 +#define F_LOCALITA 109 +#define F_PROV 110 +#define F_CODNAZ 111 +#define F_DENNAZ 112 +#define F_CODCOM 113 +#define F_DENCOM 114 diff --git a/ba/batbvet.rpt b/ba/batbvet.rpt index 573c2d616..67c6a161b 100755 --- a/ba/batbvet.rpt +++ b/ba/batbvet.rpt @@ -1,13 +1,33 @@ +[Relations] +LF_COMUNI,STATO=S8|COM=S9 +%STA,CODTAB=S8 + [Headers] 132 Tabella vettori 1|@2g%s|Codice vettore 1|@18g%s|Ragione sociale 1|@70g%s|Indirizzo -1|@110g%s|Telefono +2|@2g%s|C.A.P. +2|@10g%s|Localita' +2|@33g%s|Comune +2|@85g%s|Provincia +2|@98g%s|Stato +3|@2g%s|Telefono +3|@30g%s|Fax +3|@60g%s|Telex + [Rows] 1|CODTAB|@2g@14n 1|S0|@18g@50,ls 1|S1|@70g@40,ls -1|S2|@110g@15,ls +2|S7|@2g@5,ls +2|S5|@10g@20,ls +2|LF_COMUNI->DENCOM|@33g@50,ls +2|LF_COMUNI->PROVCOM|@85g@2,ls +2|%STA->S0|@98g@50,ls +3|S6|@2g@5,ls +3|S2|@10g@15,ls +3|S3|@30g@15,ls +3|S4|@60g@15,ls diff --git a/ba/batbvet.uml b/ba/batbvet.uml index a40b3587a..5e8606d1c 100755 --- a/ba/batbvet.uml +++ b/ba/batbvet.uml @@ -11,7 +11,7 @@ BEGIN PROMPT 4 1 "Codice vettore " FIELD LF_TABCOM->CODTAB HELP "Codice del vettore" -FLAGS "RZ" +FLAGS "RZU" USE %VET CHECKTYPE REQUIRED INPUT CODTAB F_CODVETT @@ -38,22 +38,128 @@ OUTPUT F_RAGSO S0 KEY 2 END -STRING F_RESI 50 +STRING F_IND 50 BEGIN -PROMPT 4 5 "Residenza " -HELP "Residenza del vettore" +PROMPT 4 5 "Indirizzo " +HELP "Indirizzo di residenza del vettore" FIELD LF_TABCOM->S1 FLAGS "U" END +STRING F_CAP 5 +BEGIN +PROMPT 4 6 "C.A.P. " +HELP "C.A.P. di residenza del vettore" +FIELD LF_TABCOM->S7 +END + +STRING F_LOCALITA 20 +BEGIN +PROMPT 32 6 "Localita' " +HELP "Localita' di residenza del vettore" +FIELD LF_TABCOM->S5 +END + +STRING F_PROV 2 +BEGIN +PROMPT 64 6 "Provincia " +FLAGS "D" +HELP "Provincia di residenza del vettore" +END + +NUMBER F_CODNAZ 3 +BEGIN +PROMPT 4 7 "Stato " +HELP "Codice nazione di residenza del vettore" +FIELD LF_TABCOM->S8 +FLAGS "RZ" +USE %STA +INPUT CODTAB F_CODNAZ +DISPLAY "Codice" CODTAB +DISPLAY "Denominazione@50" S0 +OUTPUT F_CODNAZ CODTAB +OUTPUT F_DENNAZ S0 +CHECKTYPE NORMAL +WARNING "Stato assente" +END + +STRING F_DENNAZ 50 30 +BEGIN +PROMPT 32 7 "" +USE %STA KEY 2 +INPUT S0 F_DENNAZ +DISPLAY "Stato@50" S0 +DISPLAY "Codice" CODTAB +HELP "Nome dello stato del vettore" +COPY OUTPUT F_CODNAZ +END + +STRING F_CODCOM 4 +BEGIN +PROMPT 4 8 "Comune " +HELP "Codice comune di residenza del vettore" +FIELD LF_TABCOM->S9 +USE LF_COMUNI +INPUT STATO F_CODNAZ +INPUT COM F_CODCOM +DISPLAY "Stato" STATO +DISPLAY "Cod. comune" COM +DISPLAY "Den. comune@50" DENCOM +OUTPUT F_CODNAZ STATO +OUTPUT F_CODCOM COM +OUTPUT F_DENCOM DENCOM +OUTPUT F_CAP CAPCOM +OUTPUT F_PROV PROVCOM +MESSAGE K_TAB,F_CODNAZ +CHECKTYPE NORMAL +WARNING "Comune assente" +END + +STRING F_DENCOM 50 30 +BEGIN +PROMPT 32 8 "" +USE LF_COMUNI KEY 2 +INPUT DENCOM F_DENCOM +DISPLAY "Comune@50" DENCOM +DISPLAY "Stato" STATO +DISPLAY "Codice" COM +COPY OUTPUT F_CODCOM +HELP "Nome del comune del vettore" +END + +STRING F_PTEL 5 +BEGIN +PROMPT 4 10 "Telefono " +HELP "Prefisso telefonico del vettore" +FIELD LF_TABCOM->S6 +FLAGS "U" +END + STRING F_TEL 15 BEGIN -PROMPT 4 7 "Telefono " +PROMPT 31 10 "" HELP "Numero telefonico del vettore" FIELD LF_TABCOM->S2 FLAGS "U" END +STRING F_FAX 15 +BEGIN +PROMPT 4 11 "Fax " +HELP "Numero di Fax del vettore" +FIELD LF_TABCOM->S3 +FLAGS "U" +END + +STRING F_TELEX 15 +BEGIN +PROMPT 4 12 "Telex " +HELP "Numero di Telex del vettore" +FIELD LF_TABCOM->S4 +FLAGS "U" +END + + ENDPAGE ENDMASK