root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :10.0
Ricompilazione Demo : [ ]
Commento            :Stampa Statistica per Mangano e per Lavanderia incluso Menu


git-svn-id: svn://10.65.10.50/trunk@20217 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2010-03-10 12:22:09 +00:00
parent 0d6f84b6f7
commit 773cfefd51
7 changed files with 462 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lv/lv0800a.h Executable file
View File

@ -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

133
lv/lv0800a.rep Executable file
View File

@ -0,0 +1,133 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lv0800a" lpi="6">
<description>Stampa Statistica per Mangano</description>
<font face="Courier New" size="10" />
<section type="Head" height="9.5">
<field x="0.5" type="Testo" width="12" pattern="1" text="Data Elab.:" />
<field x="11.5" type="Stringa" width="12" pattern="1">
<prescript>MESSAGE _TODAY</prescript>
</field>
<field x="71.5" type="Testo" width="6" pattern="1" text="Pag.:" />
<field x="76.5" type="Stringa" width="12" pattern="1">
<prescript>MESSAGE _PAGENO</prescript>
</field>
<field x="21" y="1.25" type="Testo" width="60" height="2" pattern="1" text="Stampa Statistica per Mangano">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" y="3.25" type="Rettangolo" width="91" height="4.5" pattern="1" />
<field x="0.5" y="3.75" type="Testo" width="12" pattern="1" text="Numerazione:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="3.75" type="Stringa" width="4" pattern="1">
<source>#F_CODNUM</source>
</field>
<field x="17.5" y="3.75" type="Stringa" width="50" pattern="1">
<source>#F_DESCODNUM</source>
</field>
<field x="0.5" y="4.75" type="Testo" width="10" pattern="1" text="Tipo:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="4.75" type="Stringa" width="4" pattern="1">
<source>#F_TIPODOC</source>
</field>
<field x="17.5" y="4.75" type="Stringa" width="50" pattern="1">
<source>#F_DESTIPODOC</source>
</field>
<field x="0.5" y="5.75" type="Testo" width="10" pattern="1" text="Da Data:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="5.75" type="Data" width="10" pattern="1">
<source>#F_DATADOC_DA</source>
</field>
<field x="24.5" y="5.75" type="Testo" width="10" pattern="1" text="a Data:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="32" y="5.75" type="Data" width="10" pattern="1">
<source>#F_DATADOC_A</source>
</field>
<field y="8.25" type="Testo" width="10" pattern="1" text="Articolo" />
<field x="14" y="8.25" type="Testo" width="15" pattern="1" text="Descrizione" />
<field x="57" y="8.25" type="Testo" align="right" width="5" pattern="1" text="Qt&#E0;" />
<field x="63" y="8.25" type="Testo" align="right" width="10" pattern="1" text="Importo" />
<field x="74" y="8.25" type="Testo" align="right" width="16" pattern="1" text="Peso" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F2.100
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F1.100
MESSAGE RESET,F1.101
MESSAGE RESET,F1.102</prescript>
</section>
<section type="Head" level="2" height="1.5" page_break="1">
<groupby>47.MANGDEST</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.100
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102</prescript>
<field y="0.25" type="Testo" width="10" pattern="1" text="Mangano:" />
<field x="12" y="0.25" type="Stringa" width="4" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>47.MANGDEST</source>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>#F_TOT!='X'</condition>
<field type="Stringa" width="20" pattern="1">
<source>47.CODART</source>
</field>
<field x="14" type="Stringa" width="42" pattern="1">
<source>47.DESCR</source>
</field>
<field x="57" type="Numero" align="right" width="5" pattern="1">
<source>34.QTA</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.100</prescript>
</field>
<field x="63" type="Numero" align="right" width="13" pattern="1">
<source>34.QTA * 34.PREZZO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.101</prescript>
</field>
<field x="77" type="Numero" align="right" width="13" pattern="1">
<source>34.QTA * 47.PESO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.102</prescript>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1">
<field border="2" y="0.5" type="Rettangolo" width="91" height="2.5" pattern="1" />
<field x="16" y="1.25" type="Testo" width="22" pattern="1" text="Totale Statistica: ">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="1.25" type="Numero" align="right" width="5" id="100" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63" y="1.25" type="Numero" align="right" width="13" id="101" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="77" y="1.25" type="Numero" align="right" width="13" id="102" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
</section>
<section type="Foot" level="2">
<field x="15" y="0.5" type="Testo" width="22" pattern="1" text="Totale per Mangano: ">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="0.5" type="Numero" align="right" width="5" id="100" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
</field>
<field x="63" y="0.5" type="Numero" align="right" width="13" id="101" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.101 PRESCRIPT">MESSAGE ADD,F1.101</prescript>
</field>
<field x="77" y="0.5" type="Numero" align="right" width="13" id="102" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.102 PRESCRIPT">MESSAGE ADD,F1.102</prescript>
</field>
</section>
<sql>USE 34 KEY 5
SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)&#26;&#26;(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))&#26;&#26;(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))&#26;&#26;(34.CODART!=''))
BY 47.MANGDEST
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 47 TO 34 INTO CODART==CODART</sql>
</report>

89
lv/lv0800a.uml Executable file
View File

@ -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

8
lv/lv0900a.h Executable file
View File

@ -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

133
lv/lv0900a.rep Executable file
View File

@ -0,0 +1,133 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lv0900a" lpi="6">
<description>Stampa Statistica per Lavanderia</description>
<font face="Courier New" size="10" />
<section type="Head" height="9.5">
<field x="0.5" type="Testo" width="12" pattern="1" text="Data Elab.:" />
<field x="11.5" type="Stringa" width="12" pattern="1">
<prescript>MESSAGE _TODAY</prescript>
</field>
<field x="71.5" type="Testo" width="6" pattern="1" text="Pag.:" />
<field x="76.5" type="Stringa" width="12" pattern="1">
<prescript>MESSAGE _PAGENO</prescript>
</field>
<field x="21" y="1.25" type="Testo" width="60" height="2" pattern="1" text="Stampa Statistica per Lavatrice">
<font face="Courier New" bold="1" size="14" />
</field>
<field border="2" y="3.25" type="Rettangolo" width="91" height="4.5" pattern="1" />
<field x="0.5" y="3.75" type="Testo" width="12" pattern="1" text="Numerazione:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="3.75" type="Stringa" width="4" pattern="1">
<source>#F_CODNUM</source>
</field>
<field x="17.5" y="3.75" type="Stringa" width="50" pattern="1">
<source>#F_DESCODNUM</source>
</field>
<field x="0.5" y="4.75" type="Testo" width="10" pattern="1" text="Tipo:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="4.75" type="Stringa" width="4" pattern="1">
<source>#F_TIPODOC</source>
</field>
<field x="17.5" y="4.75" type="Stringa" width="50" pattern="1">
<source>#F_DESTIPODOC</source>
</field>
<field x="0.5" y="5.75" type="Testo" width="10" pattern="1" text="Da Data:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12.5" y="5.75" type="Data" width="10" pattern="1">
<source>#F_DATADOC_DA</source>
</field>
<field x="24.5" y="5.75" type="Testo" width="10" pattern="1" text="a Data:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="32" y="5.75" type="Data" width="10" pattern="1">
<source>#F_DATADOC_A</source>
</field>
<field y="8.25" type="Testo" width="10" pattern="1" text="Articolo" />
<field x="14" y="8.25" type="Testo" width="15" pattern="1" text="Descrizione" />
<field x="57" y="8.25" type="Testo" align="right" width="5" pattern="1" text="Qt&#E0;" />
<field x="63" y="8.25" type="Testo" align="right" width="10" pattern="1" text="Importo" />
<field x="74" y="8.25" type="Testo" align="right" width="16" pattern="1" text="Peso" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F2.100
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F1.100
MESSAGE RESET,F1.101
MESSAGE RESET,F1.102</prescript>
</section>
<section type="Head" level="2" height="1.5" page_break="1">
<groupby>47.LAVATRICE</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.100
MESSAGE RESET,F2.101
MESSAGE RESET,F2.102</prescript>
<field y="0.25" type="Testo" width="10" pattern="1" text="Lavatrice:" />
<field x="12" y="0.25" type="Stringa" width="4" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>47.LAVATRICE</source>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<condition>#F_TOT!='X'</condition>
<field type="Stringa" width="20" pattern="1">
<source>47.CODART</source>
</field>
<field x="14" type="Stringa" width="42" pattern="1">
<source>47.DESCR</source>
</field>
<field x="57" type="Numero" align="right" width="5" pattern="1">
<source>34.QTA</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.100</prescript>
</field>
<field x="63" type="Numero" align="right" width="13" pattern="1">
<source>34.QTA * 34.PREZZO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.101</prescript>
</field>
<field x="77" type="Numero" align="right" width="13" pattern="1">
<source>34.QTA * 47.PESO</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.102</prescript>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1">
<field border="2" y="0.5" type="Rettangolo" width="91" height="2.5" pattern="1" />
<field x="16" y="1.25" type="Testo" width="22" pattern="1" text="Totale Statistica: ">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="1.25" type="Numero" align="right" width="5" id="100" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="63" y="1.25" type="Numero" align="right" width="13" id="101" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="77" y="1.25" type="Numero" align="right" width="13" id="102" pattern="1">
<font face="Courier New" bold="1" size="10" />
</field>
</section>
<section type="Foot" level="2">
<field x="15" y="0.5" type="Testo" width="22" pattern="1" text="Totale per Lavatrice: ">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="57" y="0.5" type="Numero" align="right" width="5" id="100" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
</field>
<field x="63" y="0.5" type="Numero" align="right" width="13" id="101" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.101 PRESCRIPT">MESSAGE ADD,F1.101</prescript>
</field>
<field x="77" y="0.5" type="Numero" align="right" width="13" id="102" pattern="1">
<font face="Courier New" bold="1" size="10" />
<prescript description="F2.102 PRESCRIPT">MESSAGE ADD,F1.102</prescript>
</field>
</section>
<sql>USE 34 KEY 5
SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)&#26;&#26;(BETWEEN(34.CODNUM,#F_CODNUM,#F_CODNUM))&#26;&#26;(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))&#26;&#26;(34.CODART!=''))
BY 47.LAVATRICE
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 47 TO 34 INTO CODART==CODART</sql>
</report>

89
lv/lv0900a.uml Executable file
View File

@ -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

2
lv/lvmenu.men
View File

@ -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"