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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Stampa Storico Consegne


git-svn-id: svn://10.65.10.50/trunk@18239 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2009-02-10 15:51:53 +00:00
parent 4f2b49879c
commit 6917e4fb0f
4 changed files with 336 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lv/lv0600a.h Executable file
View File

@ -0,0 +1,15 @@
//Stampa Storico Consegne per Cliente
#define F_CODCF_DA 201
#define F_RAGSOC_DA 202
#define F_CODCF_A 203
#define F_RAGSOC_A 204
#define F_DATA_DA 205
#define F_DATA_A 206
#define F_CODART_DA 207
#define F_DESART_DA 208
#define F_CODART_A 209
#define F_DESART_A 210
#define F_CODCAUS_DA 211
#define F_DESCAUS_DA 212
#define F_CODCAUS_A 213
#define F_DESCAUS_A 214

94
lv/lv0600a.rep Executable file
View File

@ -0,0 +1,94 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lv0600a" orientation="1" lpi="6" command="lv0 -1 lv0600a">
<description>Stampa Storico Consegne per Cliente</description>
<font face="Courier New" size="10" />
<section type="Head" height="3">
<field x="24.5" y="0.5" type="Testo" align="center" width="55" height="2" pattern="1" text="Stampa Storico Consegne per Cliente">
<font face="Courier New" bold="1" size="14" />
</field>
<field x="1" y="1" type="Testo" width="12" height="1.5" pattern="1" text="Data elab. :" />
<field x="13.5" y="1" type="Stringa" width="12" height="1.5" pattern="1">
<prescript description="H0.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
<field x="79.5" y="1" type="Testo" width="5" height="1.5" pattern="1" text="Pag." />
<field x="84.63" y="1" type="Stringa" width="10" height="1.5" pattern="1">
<prescript description="H0.0 PRESCRIPT">MESSAGE _PAGENO</prescript>
</field>
</section>
<section type="Head" level="1" />
<section repeat="1" type="Head" level="2" height="4.5" page_break="1">
<groupby>33.CODCF</groupby>
<field border="2" type="Linea" width="90" height="0" pattern="1" />
<field x="1" y="1" type="Testo" width="8" pattern="1" text="Cliente">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="20" y="1" type="Testo" width="20" pattern="1" text="Ragione Sociale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="12" y="1.06" type="Numero" align="right" width="6" pattern="1">
<source>1000@.CODCF</source>
</field>
<field x="37.12" y="1.12" type="Stringa" width="50" pattern="1">
<source>2000@.RAGSOC</source>
</field>
<field x="1" y="2" type="Testo" width="18" pattern="1" text="Codice Articolo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="22" y="2" type="Testo" width="18" pattern="1" text="Descr. Articolo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="22" y="3" type="Testo" width="10" pattern="1" text="Data Doc.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="40" y="3" type="Testo" width="13" pattern="1" text="Qta Cons.">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="64" y="3" type="Testo" width="10" pattern="1" text="Causale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="76" y="3" type="Testo" align="right" width="10" pattern="1" text="Importo">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="53.5" y="3.06" type="Testo" width="13" pattern="1" text="Qta Rit.">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="2" y="4" type="Linea" width="90" height="0" pattern="1" />
</section>
<section type="Head" level="3">
<groupby>CODART</groupby>
<field x="1" type="Stringa" width="20" pattern="1">
<source>34.CODART</source>
</field>
<field x="22" type="Stringa" width="50" pattern="1">
<source>3000@.DESCR</source>
</field>
</section>
<section type="Body" />
<section type="Body" level="1" height="1">
<field x="22" type="Data" width="10" pattern="1">
<source>1000@.DATADOC</source>
</field>
<field x="33" type="Numero" align="right" width="15" pattern="1">
<source>34.QTA</source>
</field>
<field x="49" type="Numero" align="right" width="13" pattern="1">
<source>34.QTAGG1</source>
</field>
<field x="66" type="Stringa" width="5" pattern="1">
<source>34.CODAGG1</source>
</field>
<field x="73" type="Numero" align="right" width="12" pattern="1">
<source>34.PREZZO</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2" />
<section type="Foot" level="3" />
<sql>USE 34
SELECT ((34.CODNUM="B01")&#26;&#26;(BETWEEN(33.DATADOC,#F_DATA_FROM,#F_DATA_TO))&#26;&#26;(BETWEEN(33.CODCF,#F_CODCF_FROM,#F_CODCF_TO))&#26;&#26;(BETWEEN(CODART,#F_CODARTI_FROM,#F_CODARTI_TO))&#26;&#26;(BETWEEN(CODAGG1,#F_CODCAUSA_FROM,#F_CODCAUSA_TO)))
BY 33.CODCF 34.CODART 33.DATADOC
JOIN 33 TO 34 ALIAS 1000 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 20 TO 33 ALIAS 2000 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 47 TO 34 ALIAS 3000 INTO CODART==CODART</sql>
</report>

226
lv/lv0600a.uml Executable file
View File

@ -0,0 +1,226 @@
#include "lv0600a.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Storico Consegne per Cliente" -1 -1 40 5
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 1 "@b Parametri Cliente"
END
NUMBER F_CODCF_DA 6
BEGIN
PROMPT 2 2 "Da Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_DA
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF_DA CODCF
OUTPUT F_RAGSOC_DA RAGSOC
CHECKTYPE SEARCH
FIELD #F_CODCF_FROM
END
STRING F_RAGSOC_DA 50
BEGIN
PROMPT 25 2 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC_DA
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CODCF_DA
END
NUMBER F_CODCF_A 6
BEGIN
PROMPT 2 3 "A Cliente "
FLAGS "U"
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODCF_A
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF_A CODCF
OUTPUT F_RAGSOC_A RAGSOC
CHECKTYPE SEARCH
FIELD #F_CODCF_TO
END
STRING F_RAGSOC_A 50
BEGIN
PROMPT 25 3 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC_A
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_CODCF_A CODCF
OUTPUT F_RAGSOC_A RAGSOC
END
GROUPBOX DLG_NULL 80 3
BEGIN
PROMPT 1 5 "@b Parametri Data"
END
DATE F_DATA_DA
BEGIN
PROMPT 2 6 "Da Data "
FLAGS "A"
FIELD #F_DATA_FROM
GROUP 1
END
DATE F_DATA_A
BEGIN
PROMPT 40 6 "A Data "
FLAGS "A"
FIELD #F_DATA_TO
VALITATE DATE_CMP_FUNC >= F_DATA_DA
WARNING "La data finale deve essere successiva a quella iniziale"
GROUP 1
END
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 8 "@b Parametri Articolo"
END
STRING F_CODART_DA 20
BEGIN
PROMPT 2 9 "Da Articolo "
FLAG "U"
USE 47
INPUT CODART F_CODART_DA
DISPLAY "Codice@20" CODART
DISPAY "Descrizione@50" DESCR
OUTPUT F_CODART_DA CODART
OUTPUT F_DESART_DA DESCR
CHECKTYPE SEARCH
FIELD #F_CODARTI_FROM
END
STRING F_DESART_DA 40
BEGIN
PR 38 9 ""
USE 47 KEY 2
INPUT DESCR F_DESART_DA
DISPLAY "Codice@20" CODART
DISPALY "Descrizione@50" DESCR
OUTPUT F_CODART_DA CODART
OUTPUT F_DESART_DA DESCR
FIELD #F_DESART_FROM
END
STRING F_CODART_A 20
BEGIN
PROMPT 2 10 "Ad Articolo "
FLAG "U"
USE 47
INPUT CODART F_CODART_A
DISPLAY "Codice@20" CODART
DISPAY "Descrizione@50" DESCR
OUTPUT F_CODART_A CODART
OUTPUT F_DESART_A DESCR
CHECKTYPE SEARCH
FIELD #F_CODARTI_TO
END
STRING F_DESART_A 40
BEGIN
PR 38 10 ""
USE 47 KEY 2
INPUT DESCR F_DESART_A
DISPLAY "Codice@20" CODART
DISPALY "Descrizione@50" DESCR
OUTPUT F_CODART_A CODART
OUTPUT F_DESART_A DESCR
FIELD #F_DESART_TO
END
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 12 "@b Parametri Causale"
END
STRING F_CODCAUS_DA 3
BEGIN
PROMPT 2 13 "Da Causale "
FLAGS "U"
HELP "Inserire il codice della causale."
USE &CAU KEY 1
INPUT CODTAB F_CODCAUS_DA
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Descr. breve@10" S3
DISPLAY "Ritiro@C" B0
DISPLAY "Consegna@C" B1
DISPLAY "Reso@C" B2
OUTPUT F_CODCAUS_DA CODTAB
OUTPUT F_DESCAUS_DA S0
CHECKTYPE SEARCH
FIELD #F_CODCAUSA_FROM
END
STRING F_DESCAUS_DA 50
BEGIN
PROMPT 20 13 ""
HELP "Inserire la descrizione della causale."
USE &CAU KEY 2
INPUT S0 F_DESCAUS_DA
DISPLAY "Descrizione@50" S0
DISPLAY "Descr. breve@10" S3
DISPLAY "Codice@8" CODTAB
DISPLAY "Ritiro@C" B0
DISPLAY "Consegna@C" B1
DISPLAY "Reso@C" B2
COPY OUTPUT F_CODCAUS_DA
END
STRING F_CODCAUS_A 3
BEGIN
PROMPT 2 14 "A Causale "
FLAGS "U"
HELP "Inserire il codice della causale."
USE &CAU KEY 1
INPUT CODTAB F_CODCAUS_A
DISPLAY "Codice@8" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Descr. breve@10" S3
DISPLAY "Ritiro@C" B0
DISPLAY "Consegna@C" B1
DISPLAY "Reso@C" B2
OUTPUT F_CODCAUS_A CODTAB
OUTPUT F_DESCAUS_A S0
CHECKTYPE SEARCH
FIELD #F_CODCAUSA_TO
END
STRING F_DESCAUS_A 50
BEGIN
PROMPT 20 14 ""
HELP "Inserire la descrizione della causale."
USE &CAU KEY 2
INPUT S0 F_DESCAUS_A
DISPLAY "Descrizione@50" S0
DISPLAY "Descr. breve@10" S3
DISPLAY "Codice@8" CODTAB
DISPLAY "Ritiro@C" B0
DISPLAY "Consegna@C" B1
DISPLAY "Reso@C" B2
COPY OUTPUT F_CODCAUS_A
END
ENDPAGE
ENDMASK

1
lv/lvmenu.men
View File

@ -113,3 +113,4 @@ Module = 41
Flags = ""
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"