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

Migliorata stampa contratti per cliente, incorporando personalizzazione LIF

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@23080 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-05-07 13:20:33 +00:00
parent 4169ad44c7
commit 0942d486bf
4 changed files with 162 additions and 159 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lv/lv0400.cpp
View File

@ -38,14 +38,10 @@ long lv_new_contract(long cliente, int indsped)
} }
else //altrimenti cerco il codcont più grande di un determinato cliente else //altrimenti cerco il codcont più grande di un determinato cliente
{ {
TString query; TISAM_recordset recset ("USE LVCONDV\nFROM CODCF=#CLIENTE\nTO CODCF=#CLIENTE");
query<<"USE LVCONDV\n" recset.set_var("#CLIENTE",cliente);
<<"FROM CODCF=#CLIENTE\n" if (recset.move_last())
<<"TO CODCF=#CLIENTE\n"; codcont=recset.get("CODCONT").as_int();
TISAM_recordset recset (query);
recset.set_var("#CLIENTE",cliente);
if (recset.move_last())
codcont=recset.get("CODCONT").as_int();
} }
codcont++; codcont++;
return codcont; return codcont;
@ -1430,13 +1426,13 @@ bool TContratti_app::kill_planning (TISAM_recordset& selrighe) const
const int righe = selrighe.items(); const int righe = selrighe.items();
if (righe > 0) if (righe > 0)
{ {
TProgind pi(righe, TR("Eliminazione planning in corso..."), true, true); TProgress_monitor pi(righe, TR("Eliminazione planning in corso..."));
TLocalisamfile& rplan = selrighe.cursor()->file(); TLocalisamfile& rplan = selrighe.cursor()->file();
for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev()) for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev())
{ {
if (!pi.addstatus(1))
break;
rplan.remove(); rplan.remove();
if (!pi.add_status())
break;
} }
} }
return true; return true;

2
lv/lv0400g.h
View File

@ -4,4 +4,6 @@
#define F_DARAGSOC 202 #define F_DARAGSOC 202
#define F_ACODCF 203 #define F_ACODCF 203
#define F_ARAGSOC 204 #define F_ARAGSOC 204
#define F_DASCAD 205
#define F_ASCAD 206
#define F_ANNOES 207 #define F_ANNOES 207

259
lv/lv0400g.rep
View File

@ -1,129 +1,132 @@
<?xml version="1.0" encoding="UTF-8" ?> <?xml version="1.0" encoding="UTF-8" ?>
<report name="lv0400g" lpi="6"> <report name="LV0400G" lpi="6">
<font face="Courier New" size="10" /> <font face="Courier New" size="10" />
<section type="Head" pattern="1" /> <section type="Head" pattern="1" />
<section type="Head" level="1" pattern="1" /> <section type="Head" level="1" pattern="1" />
<section type="Body" pattern="1" /> <section type="Body" pattern="1" />
<section type="Body" level="1" page_break="1" pattern="1"> <section type="Body" level="1" page_break="1" pattern="1">
<field x="1" type="Testo" align="center" width="91" height="1.5" pattern="1" text="Stampa Contratti per Cliente"> <field x="1" type="Testo" align="center" width="83" height="1.5" pattern="1" text="Stampa Contratti per Cliente">
<font italic="1" face="Times New Roman" bold="1" size="12" /> <font italic="1" face="Times New Roman" bold="1" size="12" />
</field> </field>
<field border="2" x="1" y="1.75" type="Linea" width="91" height="0" pattern="1" /> <field border="2" x="1" y="1.75" type="Linea" width="83" height="0" pattern="1" />
<field x="1" y="2.5" type="Testo" width="7" height="1.25" pattern="1" text="Cliente:"> <field x="63.5" y="1.75" type="Testo" width="6" height="1.25" pattern="1" text="Sconto:">
<font face="Times New Roman" size="10" /> <font face="Times New Roman" size="10" />
</field> </field>
<field x="6.5" y="2.5" type="Numero" align="right" width="6" height="1.25" pattern="1"> <field x="69" y="1.75" type="Stringa" width="14" pattern="1">
<font face="Times New Roman" size="10" /> <source>CFVEN.SCONTO</source>
<source>LVCONDV.CODCF</source> </field>
</field> <field x="1" y="2.5" type="Testo" width="7" height="1.25" pattern="1" text="Cliente:">
<field x="13.5" y="2.5" type="Stringa" width="50" height="1.25" pattern="1"> <font face="Times New Roman" size="10" />
<font face="Times New Roman" bold="1" size="10" /> </field>
<source>CLIFO.RAGSOC</source> <field x="6.5" y="2.5" type="Numero" align="right" width="6" height="1.25" pattern="1">
</field> <font face="Times New Roman" size="10" />
<field x="76" y="2.5" type="Testo" width="10" height="1.25" pattern="1" text="Sconto:"> <source>LVCONDV.CODCF</source>
<font face="Times New Roman" size="10" /> </field>
</field> <field x="13" y="2.5" type="Stringa" width="50" height="1.25" pattern="1">
<field border="2" x="1" y="4" type="Linea" width="91" height="0" pattern="1" /> <font face="Times New Roman" bold="1" size="10" />
<field x="1" y="4.5" type="Testo" align="right" width="10" pattern="1" text="Art."> <source>CLIFO.RAGSOC</source>
<font face="Times New Roman" size="7" /> </field>
</field> <field x="63.5" y="2.75" type="Testo" width="9.5" height="1.25" pattern="1" text="Scadenza:">
<field x="12" y="4.5" type="Testo" width="25" pattern="1" text="Descrizione"> <font face="Times New Roman" size="10" />
<font face="Times New Roman" size="7" /> </field>
</field> <field x="70.5" y="2.75" type="Data" width="12.5" pattern="1">
<field x="39" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Col."> <source>LVCONDV.DATASC</source>
<font face="Times New Roman" size="7" /> </field>
</field> <field border="2" x="1" y="4" type="Linea" width="83" height="0" pattern="1" />
<field x="45" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Dot."> <field y="4.5" type="Testo" width="8" pattern="1" text="Art.">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="51" y="4.5" type="Testo" align="right" width="4" pattern="1" text="D.Temp."> <field x="10" y="4.5" type="Testo" width="25" pattern="1" text="Descrizione">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="57" y="4.5" type="Testo" align="right" width="4" pattern="1" text="C.Mese"> <field x="35" y="4.5" type="Testo" width="6" pattern="1" text="Sconto">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="63" y="4.5" type="Testo" align="right" width="4" pattern="1" text="C.Anno"> <field x="39" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Dot.">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="69" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Prz."> <field x="45" y="4.5" type="Testo" align="right" width="4" pattern="1" text="C.Mese">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="75" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Cicl."> <field x="51" y="4.5" type="Testo" align="right" width="4" pattern="1" text="C.Anno">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="81" y="4.5" type="Testo" align="right" width="4" pattern="1" text="V.Conv."> <field x="57" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Prz.">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
<field x="87" y="4.5" type="Testo" align="right" width="4" pattern="1" text="% Forf."> <field x="63" y="4.5" type="Testo" align="right" width="4" pattern="1" text="Cicl.">
<font face="Times New Roman" size="7" /> <font face="Times New Roman" size="7" />
</field> </field>
</section> <field x="69" y="4.5" type="Testo" align="right" width="8" pattern="1" text="Prz. Nolo">
<section type="Head" level="11" pattern="1" /> <font face="Times New Roman" size="7" />
<section type="Body" level="11" pattern="1"> </field>
<sql>USE LVRCONDV <field x="78" y="4.5" type="Testo" align="right" width="5" pattern="1" text="V.Conv.">
JOIN ANAMAG INTO CODART==CODART <font face="Times New Roman" size="7" />
FROM CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT </field>
TO CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT </section>
<section type="Head" level="11" pattern="1" />
</sql> <section type="Body" level="11" pattern="1">
<field x="1" type="Stringa" align="right" width="10" pattern="1"> <sql>USE LVRCONDV
<font face="Times New Roman" size="7" /> JOIN ANAMAG INTO CODART==CODART
<source>LVRCONDV.CODART</source> FROM CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT
</field> TO CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT
<field x="12" type="Stringa" dynamic_height="1" width="25" pattern="1">
<font face="Times New Roman" size="7" /> </sql>
<source>ANAMAG.DESCR+ANAMAG.DESCRAGG</source> <field type="Stringa" width="9" pattern="1">
</field> <font face="Times New Roman" size="7" />
<field x="39" type="Testo" align="right" width="4" pattern="1" text="0"> <source>LVRCONDV.CODART</source>
<font face="Times New Roman" size="7" /> </field>
</field> <field x="10" type="Stringa" dynamic_height="1" width="25" height="3" pattern="1">
<field x="51" type="Numero" align="right" width="4" pattern="1"> <font face="Times New Roman" size="7" />
<font face="Times New Roman" size="7" /> <source>ANAMAG.DESCR+" "+TRIM(ANAMAG.DESCRAGG)</source>
<source>#DOTMP</source> </field>
</field> <field x="35" type="Stringa" width="5" pattern="1">
<field x="57" type="Numero" align="right" width="4" pattern="1"> <source>LVRCONDV.SCONTPERC</source>
<font face="Times New Roman" size="7" /> </field>
<source>#CONSMESE</source> <field x="45" type="Numero" align="right" width="4" pattern="1">
</field> <font face="Times New Roman" size="7" />
<field x="63" type="Numero" align="right" width="4" pattern="1"> <source>#CONSMESE</source>
<font face="Times New Roman" size="7" /> </field>
<source>#CONSANNO</source> <field x="51" type="Numero" align="right" width="4" pattern="1">
</field> <font face="Times New Roman" size="7" />
<field x="69" type="Prezzo" align="right" width="4" pattern="1" text="#########,@@"> <source>#CONSANNO</source>
<font face="Times New Roman" size="7" /> </field>
<source>LVRCONDV.PREZZO</source> <field x="57" type="Prezzo" align="right" width="4" pattern="1" text="#########,@@">
</field> <font face="Times New Roman" size="7" />
<field x="75" type="Numero" align="right" width="4" pattern="1"> <source>LVRCONDV.PREZZO</source>
<font face="Times New Roman" size="7" /> </field>
<source>LVRCONDV.MINCIC</source> <field x="63" type="Numero" align="right" width="4" pattern="1">
</field> <font face="Times New Roman" size="7" />
<field x="88" type="Numero" align="right" width="4" pattern="1"> <source>LVRCONDV.MINCIC</source>
<font face="Times New Roman" size="7" /> </field>
<source>LVRCONDV.FORFPERCL</source> <field x="69" type="Numero" align="right" width="7" pattern="1" text="#####,@@">
</field> <font face="Times New Roman" size="7" />
<field x="45" type="Numero" align="right" width="4" id="101" pattern="1"> <source>LVRCONDV.PREZNOL</source>
<font face="Times New Roman" size="7" /> </field>
<source>#DOTOD</source> <field x="40" type="Numero" align="right" width="4" id="101" pattern="1">
</field> <font face="Times New Roman" size="7" />
<field x="81" type="Prezzo" align="right" width="5" id="102" pattern="1" text="#########,@@"> <source>#DOTOD</source>
<font face="Times New Roman" size="7" /> </field>
<source>LVRCONDV.VALCONV*#101</source> <field x="77" type="Prezzo" align="right" width="6" id="102" pattern="1" text="#########,@@">
<postscript description="B11.102 POSTSCRIPT">MESSAGE ADD,F11.102</postscript> <font face="Times New Roman" size="7" />
</field> <source>LVRCONDV.VALCONV*#101</source>
</section> <postscript description="B11.102 POSTSCRIPT">MESSAGE ADD,F11.102</postscript>
<section type="Foot" level="11" pattern="1"> </field>
<field type="Testo" width="10" pattern="1" text="Totale"> </section>
<font face="Calibri" size="11" /> <section type="Foot" level="11" pattern="1">
</field> <field x="10" type="Testo" width="10" pattern="1" text="Totale">
<field x="76" type="Prezzo" align="right" width="10" id="102" pattern="1" text="#########,@@"> <font face="Courier New" bold="1" size="11" />
<font face="Calibri" size="11" /> </field>
</field> <field x="76" type="Prezzo" align="right" width="7" id="102" pattern="1" text="###.###.###,@@">
</section> <font face="Times New Roman" bold="1" size="7" />
<section type="Foot" pattern="1" /> </field>
<section type="Foot" level="1" pattern="1" /> </section>
<sql>USE LVCONDV <section type="Foot" pattern="1" />
JOIN CLIFO INTO TIPOCF=="C" CODCF==CODCF <section type="Foot" level="1" pattern="1" />
FROM CODCF=#F_CODCF_FROM <sql>USE LVCONDV SELECT BETWEEN(DATASC,#DASCAD,#ASCAD)*(20->CODCF>0)
TO CODCF=#F_CODCF_TO JOIN CLIFO INTO TIPOCF=="C" CODCF==CODCF
</sql> JOIN CFVEN INTO TIPOCF=="C" CODCF==CODCF
FROM CODCF=#F_CODCF_FROM
TO CODCF=#F_CODCF_TO
</sql>
</report> </report>

42
lv/lv0400g.uml
View File

@ -6,9 +6,9 @@ ENDPAGE
PAGE "Stampa Contratti per Cliente" -1 -1 40 5 PAGE "Stampa Contratti per Cliente" -1 -1 40 5
GROUPBOX DLG_NULL 85 5 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 1 1 "@b Parametri Estrazione" PROMPT 1 1 "@bParametri Estrazione"
END END
NUMBER F_DACODCF 6 NUMBER F_DACODCF 6
@ -21,25 +21,25 @@ BEGIN
INPUT CODCF F_DACODCF INPUT CODCF F_DACODCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA" PAIV
OUTPUT F_DACODCF CODCF OUTPUT F_DACODCF CODCF
OUTPUT F_DARAGSOC RAGSOC OUTPUT F_DARAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE NORMAL
FIELD #F_CODCF_FROM FIELD #F_CODCF_FROM
END END
STRING F_DARAGSOC 50 STRING F_DARAGSOC 50
BEGIN BEGIN
PROMPT 30 2 "" PROMPT 24 2 ""
KEY 2 KEY 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_DARAGSOC INPUT RAGSOC F_DARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA" PAIV
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_DACODCF COPY OUTPUT F_DACODCF
CHECKTYPE REQUIRED CHECKTYPE NORMAL
END END
NUMBER F_ACODCF 6 NUMBER F_ACODCF 6
@ -52,33 +52,35 @@ BEGIN
INPUT CODCF F_ACODCF INPUT CODCF F_ACODCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA" PAIV
OUTPUT F_ACODCF CODCF OUTPUT F_ACODCF CODCF
OUTPUT F_ARAGSOC RAGSOC OUTPUT F_ARAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE NORMAL
FIELD #F_CODCF_TO FIELD #F_CODCF_TO
END END
STRING F_ARAGSOC 50 STRING F_ARAGSOC 50
BEGIN BEGIN
PROMPT 30 3 "" PROMPT 24 3 ""
KEY 2 KEY 2
USE LF_CLIFO KEY 2 COPY USE F_DARAGSOC
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_ARAGSOC INPUT RAGSOC F_ARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC COPY DISPLAY F_DARAGSOC
DISPLAY "Partita IVA@11" PAIV
DISPLAY "Codice" CODCF
COPY OUTPUT F_ACODCF COPY OUTPUT F_ACODCF
CHECKTYPE REQUIRED CHECKTYPE NORMAL
END END
NUMBER F_ANNOES 4 DATE F_DASCAD
BEGIN BEGIN
PROMPT 2 6 "Anno Es" PROMPT 2 4 "Dalla scadenza contratto "
FLAGS "A" FIELD #DASCAD
FIELD #F_ANNO END
FLAGS "H"
DATE F_ASCAD
BEGIN
PROMPT 2 5 "Alla scadenza contratto "
FIELD #ASCAD
END END
ENDPAGE ENDPAGE