From d778bfcf4e17ec2eaaaa84cfb6c93452c9e54744 Mon Sep 17 00:00:00 2001 From: lvietri Date: Thu, 9 Jul 2009 14:29:19 +0000 Subject: [PATCH] Patch level :10.0 Files correlati : Ricompilazione Demo : [ ] Commento :Nuova stampa Interrogazione Cliente\Articolo git-svn-id: svn://10.65.10.50/trunk@19101 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv0700a.h | 15 ++++ lv/lv0700a.rep | 201 +++++++++++++++++++++++++++++++++++++++++++++++++ lv/lv0700a.uml | 173 ++++++++++++++++++++++++++++++++++++++++++ lv/lvmenu.men | 1 + 4 files changed, 390 insertions(+) create mode 100755 lv/lv0700a.h create mode 100755 lv/lv0700a.rep create mode 100755 lv/lv0700a.uml diff --git a/lv/lv0700a.h b/lv/lv0700a.h new file mode 100755 index 000000000..7d81faceb --- /dev/null +++ b/lv/lv0700a.h @@ -0,0 +1,15 @@ +//Definizione campi per maschera lv0700a +//Interrogazione Cliente\Articolo +#define F_CODCF_1 201 +#define F_RAGSOC_1 202 +#define F_CODART_1 203 +#define F_DESART_1 204 +#define F_CODAGG1_1 205 +#define F_DESCODAGG1_1 206 +#define F_CODNUM_1 207 +#define F_DESCODNUM_1 208 +#define F_TIPODOC_1 209 +#define F_DESTIPODOC_1 210 +#define F_DATADOC_DA_1 211 +#define F_DATADOC_A_1 212 +#define F_TOT_1 213 diff --git a/lv/lv0700a.rep b/lv/lv0700a.rep new file mode 100755 index 000000000..c9e906199 --- /dev/null +++ b/lv/lv0700a.rep @@ -0,0 +1,201 @@ + + + Interrogazione Cliente\Articolo + +
+
+
+ CODCF +
+
+ 34.CODART + MESSAGE RESET,F3.1000 +MESSAGE RESET,F3.2000 + + + + + + MESSAGE _TODAY + + + + MESSAGE _PAGENO + + + + + + + #F_CODCF + + + #F_RAGSOC + + + + + + #F_CODART + + + #F_DESART + + + + + + #F_CODAGG1 + + + #F_DESCODAGG1 + + + + + + #F_CODNUM + + + #F_DESCODNUM + + + + + + #F_TIPODOC + + + #F_DESTIPODOC + + + + + + #F_DATADOC_DA + + + + + + #F_DATADOC_A + + + + + + IF(#F_TOT=='X';'Si';'No') + + + + + + + + 166.DOTIN + + + 166.DOTOD + + + 166.DOTTM + + + IF(#F_TOT=='X';' ';'Num. Tipo Anno') + + + IF(#F_TOT=='X';' ';'Num.Doc.') + + + IF(#F_TOT=='X';' ';'Data Doc.') + + + IF(#F_TOT=='X';' ';'Caus.Lav.') + + + IF(#F_TOT=='X';' ';'') + + + IF(#F_TOT=='X';' ';'') + + + TRIM(34.CODART) + "-" + TRIM(47.DESCR) + +
+
+
+ #F_TOT!='X' + + 33.CODNUM + + + 33.TIPODOC + + + 33.ANNO + + + 33.NDOC + + + 33.DATADOC + + + 34.CODAGG1 + + + 34.QTAGG1 + MESSAGE ADD,F3.1000 + + + 34.QTA + MESSAGE ADD,F3.2000 + +
+
+ #F_TOT=='X' + + + + + + + + +
+
+
+
+
+ + + + + + +
+ USE 34 KEY 5 +SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)(34.CODART!='')(BETWEEN(33.CODCF,#F_CODCF,#F_CODCF))(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))(BETWEEN(34.CODART,#F_CODART,#F_CODART))(BETWEEN(34.CODAGG1,#F_CODAGG1,#F_CODAGG1))) +JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC +JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF +JOIN 47 TO 34 INTO CODART==CODART +JOIN 166 TO 34 INTO ANNOES==ANNO TIPOCF=="C" CODCF==#F_CODCF CODART==CODART + \ No newline at end of file diff --git a/lv/lv0700a.uml b/lv/lv0700a.uml new file mode 100755 index 000000000..b57843ddc --- /dev/null +++ b/lv/lv0700a.uml @@ -0,0 +1,173 @@ +#include "lv0700a.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +PAGE "Stampa Interrogazione Cliente\Articolo" -1 -1 40 5 + +GROUPBOX DLG_NULL 85 14 +BEGIN + PROMPT 1 1 "@b Parametri Estrazione" +END + +NUMBER 201 6 +BEGIN + PROMPT 2 2 "Cliente " + FIELD #F_CODCF + FLAGS "U" + KEY 1 + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF 201 + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + OUTPUT 201 CODCF + OUTPUT 202 RAGSOC + CHECKTYPE REQUIRED +END + +STRING 202 50 +BEGIN + PROMPT 24 2 "" + KEY 2 + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC 202 + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice" CODCF + COPY OUTPUT 201 + FIELD #F_RAGSOC +END + +STRING 203 20 + BEGIN + PROMPT 2 3 "Articolo " + FLAG "U" + USE 47 + INPUT CODART 203 + DISPLAY "Codice@20" CODART + DISPAY "Descrizione@50" DESCR + OUTPUT 203 CODART + OUTPUT 204 DESCR + FIELD #F_CODART +END + +STRING 204 50 +BE + PR 2 4 "Descrizione " + USE 47 KEY 2 + INPUT DESCR 204 + DISPLAY "Codice@20" CODART + DISPALY "Descrizione@50" DESCR + OUTPUT 203 CODART + OUTPUT 204 DESCR + FIELD #F_DESART +END + +STRING 205 3 +BEGIN + PROMPT 2 6 "Causale Lav." + FLAGS "U" + USE &CAU + INPUT CODTAB 205 + DISPLAY "Codice@8" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT 205 CODTAB + OUTPUT 206 S0 + FIELD #F_CODAGG1 +END + +STRING 206 50 +BEGIN + PROMPT 24 6 "" + FLAGS "D" + FIELD #F_DESCODAGG1 +END + + +STRING 207 4 +BEGIN + PROMPT 2 8 "Numerazione " + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB 207 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT 207 CODTAB + OUTPUT 208 S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" + FIELD #F_CODNUM +END + +STRING 208 50 +BEGIN + PROMPT 24 8 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 208 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT 207 CODTAB + OUTPUT 208 S0 + FIELD #F_DESCODNUM +END + + + +STRING 209 4 +BEGIN + PROMPT 2 9 "Tipo " + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB 209 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT 209 CODTAB + OUTPUT 210 S0 + FLAGS "UP" + FIELD #F_TIPODOC +END + +STRING 210 50 +BEGIN + PROMPT 24 9 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 210 + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT 209 + FIELD #F_DESTIPODOC +END + +DATE 211 +BEGIN + PROMP 2 11 "Da Data " + FIELD #F_DATADOC_DA + CHECKTYPE REQUIRED +END + +DATE 212 +BEGIN + PROMP 40 11 "Da Data " + FIELD #F_DATADOC_A + VALIDATE DATE_CMP_FUNC >= 211 + WARNING "La data finale non deve essere successiva a quella finale" + CHECKTYPE REQUIRED + FLAGS "A" +END + +BOOLEAN 213 +BEGIN + FIELD #F_TOT + PROMPT 2 13 "Solo Totali" +END + + +ENDPAGE +ENDMASK + + diff --git a/lv/lvmenu.men b/lv/lvmenu.men index af0204fb5..e16e6981c 100755 --- a/lv/lvmenu.men +++ b/lv/lvmenu.men @@ -116,3 +116,4 @@ Item_01 = "Riepilogo Bolle di Lavanderie", "lv2 -6 lv2700a", "F" Item_02 = "Venduto Per Cliente nei 12 Mesi", "lv2 -7 lv2800a", "F" Item_03 = "Storico Consegne per Cliente", "lv0 -1 lv0600a", "F" Item_04 = "Stampa Documenti", "ve1 -2", "F" +Item_05 = "Interrogazione Cliente\Articolo", "lv0 -1 lv0700a", "F"