diff --git a/lv/lv0800a.h b/lv/lv0800a.h new file mode 100755 index 000000000..b76203ca2 --- /dev/null +++ b/lv/lv0800a.h @@ -0,0 +1,8 @@ +//Definizione campi per maschera lv0800a +//Stampa Statistica per Lavatrice +#define F_DATADOC_DA_1 201 +#define F_DATADOC_A_1 202 +#define F_CODNUM_1 203 +#define F_DESCODNUM_1 204 +#define F_TIPODOC_1 205 +#define F_DESTIPODOC_1 206 \ No newline at end of file diff --git a/lv/lv0800a.rep b/lv/lv0800a.rep new file mode 100755 index 000000000..995db15f7 --- /dev/null +++ b/lv/lv0800a.rep @@ -0,0 +1,133 @@ + + + Stampa Statistica per Mangano + +
+ + + MESSAGE _TODAY + + + + MESSAGE _PAGENO + + + + + + + + + + #F_CODNUM + + + #F_DESCODNUM + + + + + + #F_TIPODOC + + + #F_DESTIPODOC + + + + + + #F_DATADOC_DA + + + + + + #F_DATADOC_A + + + + + + +
+
+ MESSAGE RESET,F2.100 +MESSAGE RESET,F2.101 +MESSAGE RESET,F2.102 +MESSAGE RESET,F1.100 +MESSAGE RESET,F1.101 +MESSAGE RESET,F1.102 +
+
+ 47.MANGDEST + MESSAGE RESET,F2.100 +MESSAGE RESET,F2.101 +MESSAGE RESET,F2.102 + + + + 47.MANGDEST + +
+
+
+ #F_TOT!='X' + + 47.CODART + + + 47.DESCR + + + 34.QTA + MESSAGE ADD,F2.100 + + + 34.QTA * 34.PREZZO + MESSAGE ADD,F2.101 + + + 34.QTA * 47.PESO + MESSAGE ADD,F2.102 + +
+
+
+ + + + + + + + + + + + + +
+
+ + + + + + MESSAGE ADD,F1.100 + + + + MESSAGE ADD,F1.101 + + + + MESSAGE ADD,F1.102 + +
+ USE 34 KEY 5 +SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))(34.CODART!='')) +BY 47.MANGDEST +JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC +JOIN 47 TO 34 INTO CODART==CODART + \ No newline at end of file diff --git a/lv/lv0800a.uml b/lv/lv0800a.uml new file mode 100755 index 000000000..1579b5ada --- /dev/null +++ b/lv/lv0800a.uml @@ -0,0 +1,89 @@ +#include "lv0800a.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +PAGE "Stampa Statistica per Lavatrice." -1 -1 40 5 + +GROUPBOX DLG_NULL 85 8 +BEGIN + PROMPT 1 1 "@b Parametri Estrazione" +END + +DATE F_DATADOC_DA_1 +BEGIN + PROMP 2 3 "Da Data " + FIELD #F_DATADOC_DA + CHECKTYPE REQUIRED +END + +DATE F_DATADOC_A_1 +BEGIN + PROMP 40 3 "Da Data " + FIELD #F_DATADOC_A + VALIDATE DATE_CMP_FUNC >= F_DATADOC_A + WARNING "La data finale non deve essere successiva a quella finale" + CHECKTYPE REQUIRED + FLAGS "A" +END + +STRING F_CODNUM_1 4 +BEGIN + PROMPT 2 5 "Numerazione " + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM CODTAB + OUTPUT F_DESCODNUM S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" + FIELD #F_CODNUM +END + +STRING F_DESCODNUM_1 50 +BEGIN + PROMPT 24 5 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESCODNUM + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODNUM CODTAB + OUTPUT F_DESCODNUM S0 + FIELD #F_DESCODNUM +END + +STRING F_TIPODOC_1 4 +BEGIN + PROMPT 2 6 "Tipo " + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC CODTAB + OUTPUT F_DESTIPODOC S0 + FLAGS "UP" + FIELD #F_TIPODOC +END + +STRING F_DESTIPODOC_1 50 +BEGIN + PROMPT 24 6 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC + FIELD #F_DESTIPODOC +END + +ENDPAGE +ENDMASK + + diff --git a/lv/lv0900a.h b/lv/lv0900a.h new file mode 100755 index 000000000..b76203ca2 --- /dev/null +++ b/lv/lv0900a.h @@ -0,0 +1,8 @@ +//Definizione campi per maschera lv0800a +//Stampa Statistica per Lavatrice +#define F_DATADOC_DA_1 201 +#define F_DATADOC_A_1 202 +#define F_CODNUM_1 203 +#define F_DESCODNUM_1 204 +#define F_TIPODOC_1 205 +#define F_DESTIPODOC_1 206 \ No newline at end of file diff --git a/lv/lv0900a.rep b/lv/lv0900a.rep new file mode 100755 index 000000000..bcfb21f7c --- /dev/null +++ b/lv/lv0900a.rep @@ -0,0 +1,133 @@ + + + Stampa Statistica per Lavanderia + +
+ + + MESSAGE _TODAY + + + + MESSAGE _PAGENO + + + + + + + + + + #F_CODNUM + + + #F_DESCODNUM + + + + + + #F_TIPODOC + + + #F_DESTIPODOC + + + + + + #F_DATADOC_DA + + + + + + #F_DATADOC_A + + + + + + +
+
+ MESSAGE RESET,F2.100 +MESSAGE RESET,F2.101 +MESSAGE RESET,F2.102 +MESSAGE RESET,F1.100 +MESSAGE RESET,F1.101 +MESSAGE RESET,F1.102 +
+
+ 47.LAVATRICE + MESSAGE RESET,F2.100 +MESSAGE RESET,F2.101 +MESSAGE RESET,F2.102 + + + + 47.LAVATRICE + +
+
+
+ #F_TOT!='X' + + 47.CODART + + + 47.DESCR + + + 34.QTA + MESSAGE ADD,F2.100 + + + 34.QTA * 34.PREZZO + MESSAGE ADD,F2.101 + + + 34.QTA * 47.PESO + MESSAGE ADD,F2.102 + +
+
+
+ + + + + + + + + + + + + +
+
+ + + + + + MESSAGE ADD,F1.100 + + + + MESSAGE ADD,F1.101 + + + + MESSAGE ADD,F1.102 + +
+ USE 34 KEY 5 +SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))(34.CODART!='')) +BY 47.LAVATRICE +JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC +JOIN 47 TO 34 INTO CODART==CODART + \ No newline at end of file diff --git a/lv/lv0900a.uml b/lv/lv0900a.uml new file mode 100755 index 000000000..1579b5ada --- /dev/null +++ b/lv/lv0900a.uml @@ -0,0 +1,89 @@ +#include "lv0800a.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +PAGE "Stampa Statistica per Lavatrice." -1 -1 40 5 + +GROUPBOX DLG_NULL 85 8 +BEGIN + PROMPT 1 1 "@b Parametri Estrazione" +END + +DATE F_DATADOC_DA_1 +BEGIN + PROMP 2 3 "Da Data " + FIELD #F_DATADOC_DA + CHECKTYPE REQUIRED +END + +DATE F_DATADOC_A_1 +BEGIN + PROMP 40 3 "Da Data " + FIELD #F_DATADOC_A + VALIDATE DATE_CMP_FUNC >= F_DATADOC_A + WARNING "La data finale non deve essere successiva a quella finale" + CHECKTYPE REQUIRED + FLAGS "A" +END + +STRING F_CODNUM_1 4 +BEGIN + PROMPT 2 5 "Numerazione " + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM CODTAB + OUTPUT F_DESCODNUM S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" + FIELD #F_CODNUM +END + +STRING F_DESCODNUM_1 50 +BEGIN + PROMPT 24 5 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESCODNUM + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODNUM CODTAB + OUTPUT F_DESCODNUM S0 + FIELD #F_DESCODNUM +END + +STRING F_TIPODOC_1 4 +BEGIN + PROMPT 2 6 "Tipo " + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC CODTAB + OUTPUT F_DESTIPODOC S0 + FLAGS "UP" + FIELD #F_TIPODOC +END + +STRING F_DESTIPODOC_1 50 +BEGIN + PROMPT 24 6 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC + FIELD #F_DESTIPODOC +END + +ENDPAGE +ENDMASK + + diff --git a/lv/lvmenu.men b/lv/lvmenu.men index 550c5e14f..ae2d518e1 100755 --- a/lv/lvmenu.men +++ b/lv/lvmenu.men @@ -131,3 +131,5 @@ Item_06 = "Stampa Buoni di Prelievo", "lv1 -0 P", "F" Item_07 = "Stampa Buoni di Ritiro", "lv1 -0 R", "F" Item_08 = "Stampa Buoni di Consegna", "lv1 -0 C", "F" Item_09 = "Stampe a Kg", "lv1 -1", "F" +Item_10 = "Stampa Statistica per Mangano", "lv0 -1 lv0800a", "F" +Item_11 = "Stampa Statistica per Lavatrice", "lv0 -1 lv0900a", "F"