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 Contratti in Scadenza


git-svn-id: svn://10.65.10.50/trunk@18179 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2009-02-02 16:49:57 +00:00
parent 00d79f3a36
commit 891b8f3683
4 changed files with 166 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lv/lv0400b.h Executable file
View File

@ -0,0 +1,8 @@
//Definizione campi per maschera lv0400b
//Stampa Contratti in scadenza da a
#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

65
lv/lv0400b.rep Executable file
View File

@ -0,0 +1,65 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="lv0400b" orientation="1" lpi="6" command="lv0 -1 lv0400b">
<description>Stampa Contratti in Scadenza Da&#2F;A</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 Contratti in scadenza Da&#2F;A">
<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" page_break="1">
<groupby>168.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="9" y="1" type="Numero" align="right" width="6" pattern="1">
<source>168.CODCF</source>
</field>
<field x="22.5" y="1" type="Testo" width="20" pattern="1" text="Ragione Sociale:">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="39" y="1" type="Stringa" width="50" pattern="1">
<source>1000@.RAGSOC</source>
</field>
<field x="3.5" y="3" type="Testo" width="10" pattern="1" text="Contratto">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="20" y="3" type="Testo" width="15" pattern="1" text="Data Iniziale">
<font face="Courier New" bold="1" size="10" />
</field>
<field x="40" y="3" type="Testo" width="20" pattern="1" text="Data Scadenza">
<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="Body" />
<section type="Body" level="1" height="1">
<field x="4.5" y="0.25" type="Numero" align="right" width="6" pattern="1">
<source>168.CODCONT</source>
</field>
<field x="22" y="0.25" type="Data" width="10" pattern="1">
<source>168.DATAIN</source>
</field>
<field x="42" y="0.25" type="Data" width="10" pattern="1">
<source>168.DATASC</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2" />
<sql>USE 168 KEY 1
SELECT BETWEEN(DATASC,#F_DATA_FROM,#F_DATA_TO)
JOIN 20 TO 168 ALIAS 1000 INTO TIPOCF=="C" CODCF==CODCF
FROM CODCF=#F_CODCF_FROM
TO CODCF=#F_CODCF_TO</sql>
</report>

92
lv/lv0400b.uml Executable file
View File

@ -0,0 +1,92 @@
#include "lv0400b.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Stampa Contratti in scadenza Da/A" -1 -1 40 5
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 2 "@b Parametri Cliente"
END
NUMBER F_CODCF_DA 6
BEGIN
PROMPT 2 3 "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
FIELD #F_CODCF_FROM
END
STRING F_RAGSOC_DA 50
BEGIN
PROMPT 25 3 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC_DA
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_CODCF_DA CODCF
OUTPUT F_RAGSOC_DA RAGSOC
END
NUMBER F_CODCF_A 6
BEGIN
PROMPT 2 4 "A Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
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
FIELD #F_CODCF_TO
END
STRING F_RAGSOC_A 50
BEGIN
PROMPT 25 4 ""
KEY 2
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 6 "@b Parametri Data Scadenza"
END
DATE F_DATA_DA
BEGIN
PROMPT 2 7 "Da Data "
FIELD #F_DATA_FROM
END
DATE F_DATA_A
BEGIN
PROMPT 40 7 "A Data"
FIELD #F_DATA_TO
VALIDATE DATE_CMP_FUNC >= F_DATA_DA
WARNING "La data finale deve essere successiva a quella iniziale"
END
ENDPAGE
ENDMASK

1
lv/lvmenu.men
View File

@ -74,6 +74,7 @@ Item_01 = "Contratti per cliente", "lv0 -1 lv0400c", "F"
Item_02 = "Passaggi per cliente", "lv0 -1 lv0500c", "F"
Item_03 = "Periodi di sospensione", "lv0 -1 lv0500d", "F"
Item_04 = "Elenco Clienti per Articolo", "lv0 -1 lv0400d", "F"
Item_05 = "Contratti in scadenza Da/A", "lv0 -1 lv0400b", "F"
[LVMENU_030]
Caption = "Giri"