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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20175 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2010-03-02 10:38:50 +00:00
parent 573041263c
commit 18abfd89cf
4 changed files with 46 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lv/lv1200.cpp
View File

@ -81,18 +81,19 @@ bool TStampa_a_kg_rep::get_usr_val(const TString& name, TVariant& var) const
const TRectype& unita = cache().get("%UMS", ump);
//leggo e controllo se esiste l'unità di misura di riferimento
const TString4 umrif = unita.get("S7");
real fatconv = UNO;
if (umrif == _umkg)
{
//leggo e controllo il fattore di conversione
const real fatconv = unita.get_real("R10");
if (fatconv != ZERO)
{
//se tutti i controlli sono andati a buon fine, converto la quantità e la restituisco
const real qtaconv = qta * fatconv * peso;
var = qtaconv;
}
}
if (fatconv != ZERO)
{
//se tutti i controlli sono andati a buon fine, converto la quantità e la restituisco
const real qtaconv = qta * fatconv * peso;
var = qtaconv;
}
}
/* else da decidere se gestire
{
@ -207,8 +208,8 @@ void TStampa_a_kg_app::prepara_recordset(TStampa_a_kg_rep & rep) const
righedoc->set_var("#AITI", _msk->get_long(F_ACODITI));
break;
case 3:
righedoc->set_var("#DAAUT", _msk->get_long(F_DACODAUT));
righedoc->set_var("#AAUT", _msk->get_long(F_ACODAUT));
righedoc->set_var("#DAAUT", _msk->get(F_DACODAUT).right(5));
righedoc->set_var("#AAUT", _msk->get(F_ACODAUT).right(5));
break;
default:
break;

4
lv/lv1200a.uml
View File

@ -201,10 +201,10 @@ BEGIN
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
INPUT CODTAB F_DACODAUT
DISPLAY "Autista" S1
DISPLAY "Autista" S1
DISPLAY "Descrizione Autista@50" 1000@->S0
DISPLAY "Itinerario" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@50" 1000@->S0
DISPLAY "Targa@8" S2
DISPLAY "Descrizione Mezzo@50" 2000@->S0
OUTPUT F_DACODAUT S1

36
lv/lv1200b.rep
View File

@ -4,6 +4,9 @@
<font face="Courier New" size="10" />
<section type="Head" height="2" />
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">0 #F1.101 !
0 #F1.102 !
0 #F1.103 !</prescript>
<field x="23.5" y="0.5" type="Testo" align="center" width="55" height="2" pattern="1" text="Stampa Consegnato per articolo">
<font face="Courier New" bold="1" size="14" />
</field>
@ -18,19 +21,18 @@
<field x="29" y="2" type="Testo" width="4" height="1.5" pattern="1" text="Dal" />
<field x="34" y="2" type="Data" width="12" height="1.5" pattern="1">
<source>#DADATA</source>
<prescript description="H1.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
<field x="56" y="2" type="Testo" width="4" height="1.5" pattern="1" text="Al" />
<field x="61" y="2" type="Data" width="12" height="1.5" pattern="1">
<source>#ADATA</source>
<prescript description="H1.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
</section>
<section type="Head" level="2" height="6">
<groupby>DOC.CODCF</groupby>
<prescript description="H2 PRESCRIPT">0 #F2.101 !
0 #F2.102 !
0 #F2.103 !</prescript>
0 #F2.103 !
</prescript>
<field y="2" type="Testo" width="10" pattern="1" text="Cliente:" />
<field x="17" y="2" type="Stringa" width="50" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#99,RAGSOC</prescript>
@ -65,9 +67,10 @@ MESSAGE RESET,F2.103
</section>
<section type="Head" level="3">
<groupby>CODART</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103</prescript>
<prescript description="H3 PRESCRIPT">0 #F3.101 !
0 #F3.102 !
0 #F3.103 !
</prescript>
</section>
<section type="Body" />
<section type="Body" level="1">
@ -83,11 +86,10 @@ MESSAGE ADD,F1.101</postscript>
MESSAGE ADD,F2.102
MESSAGE ADD,F1.102</postscript>
</field>
<field x="90" type="Numero" hidden="1" align="right" width="10" id="103" pattern="1" text="#####,@@@">
<field x="90" type="Numero" align="right" width="10" id="103" pattern="1" text="#####,@@@">
<source>#PESO</source>
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F3.103
MESSAGE ADD,F2.103
MESSAGE ADD,F1.103</postscript>
<prescript description="B1.103 PRESCRIPT">MESSAGE ADD,F3.103
</prescript>
</field>
<field type="Stringa" hidden="1" width="20" id="201" pattern="1">
<source>RDOC.CODART</source>
@ -103,7 +105,7 @@ MESSAGE ADD,F1.103</postscript>
<field y="3" type="Testo" width="20" pattern="1" text="** Peso totale **" />
<field x="71" y="2" type="Numero" hidden="1" align="right" width="15" id="101" pattern="1" />
<field x="86.5" y="2" type="Valuta" hidden="1" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="26" y="3" type="Numero" align="right" width="15" id="103" pattern="1" />
<field x="26" y="3" type="Numero" align="right" width="15" id="103" pattern="1" text="#####,@@@" />
</section>
<section type="Foot" level="2">
<field border="2" type="Linea" width="105" height="0" pattern="1" />
@ -111,12 +113,11 @@ MESSAGE ADD,F1.103</postscript>
<field y="2" type="Testo" width="10" pattern="1" text="** Peso **" />
<field x="71" y="1" type="Numero" align="right" width="15" id="101" pattern="1" />
<field x="86.5" y="1" type="Valuta" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="13" y="2" type="Numero" align="right" width="15" id="103" pattern="1" />
<field x="13" y="2" type="Numero" align="right" width="15" id="103" pattern="1" text="#####,@@@">
<prescript description="F2.103 PRESCRIPT">MESSAGE ADD,F1.103</prescript>
</field>
</section>
<section type="Foot" level="3">
<postscript description="F3 POSTSCRIPT">MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103</postscript>
<field type="Stringa" width="20" pattern="1">
<source>B1.201</source>
</field>
@ -125,7 +126,10 @@ MESSAGE RESET,F3.103</postscript>
</field>
<field x="70.5" type="Numero" align="right" width="15" id="101" pattern="1" />
<field x="86" type="Valuta" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="96.5" type="Numero" hidden="1" align="right" width="15" id="103" pattern="1" />
<field x="96.5" type="Numero" align="right" width="15" id="103" pattern="1" text="#####,@@@">
<prescript description="F3.103 PRESCRIPT">MESSAGE ADD,F2.103
</prescript>
</field>
</section>
<sql>USE RDOC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC</sql>

28
lv/lv1200c.rep
View File

@ -4,6 +4,9 @@
<font face="Courier New" size="10" />
<section type="Head" height="2" />
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">0 #F1.101 !
0 #F1.102 !
0 #F1.103 !</prescript>
<field x="23.5" y="0.5" type="Testo" align="center" width="55" height="2" pattern="1" text="Stampa Consegnato per articolo">
<font face="Courier New" bold="1" size="14" />
</field>
@ -18,12 +21,10 @@
<field x="29" y="2" type="Testo" width="4" height="1.5" pattern="1" text="Dal" />
<field x="34" y="2" type="Data" width="12" height="1.5" pattern="1">
<source>#DADATA</source>
<prescript description="H1.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
<field x="56" y="2" type="Testo" width="4" height="1.5" pattern="1" text="Al" />
<field x="61" y="2" type="Data" width="12" height="1.5" pattern="1">
<source>#ADATA</source>
<prescript description="H1.0 PRESCRIPT">MESSAGE _TODAY</prescript>
</field>
</section>
<section type="Head" level="2" height="6">
@ -65,9 +66,9 @@ MESSAGE RESET,F2.103
</section>
<section type="Head" level="3">
<groupby>CODART</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103</prescript>
<prescript description="H3 PRESCRIPT">0 #F3.101 !
0 #F3.102 !
0 #F3.103 !</prescript>
</section>
<section type="Body" />
<section type="Body" level="1">
@ -86,8 +87,7 @@ MESSAGE ADD,F1.102</postscript>
<field x="90" type="Numero" hidden="1" align="right" width="10" id="103" pattern="1" text="#####,@@@">
<source>#PESO</source>
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F3.103
MESSAGE ADD,F2.103
MESSAGE ADD,F1.103</postscript>
</postscript>
</field>
<field type="Stringa" hidden="1" width="20" id="201" pattern="1">
<source>RDOC.CODART</source>
@ -103,7 +103,7 @@ MESSAGE ADD,F1.103</postscript>
<field y="3" type="Testo" width="20" pattern="1" text="** Peso totale **" />
<field x="71" y="2" type="Numero" hidden="1" align="right" width="15" id="101" pattern="1" />
<field x="86.5" y="2" type="Valuta" hidden="1" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="26" y="3" type="Numero" align="right" width="15" id="103" pattern="1" />
<field x="26" y="3" type="Numero" align="right" width="15" id="103" pattern="1" text="#####,@@@" />
</section>
<section type="Foot" level="2">
<field border="2" type="Linea" width="105" height="0" pattern="1" />
@ -111,12 +111,11 @@ MESSAGE ADD,F1.103</postscript>
<field y="2" type="Testo" width="10" pattern="1" text="** Peso **" />
<field x="71" y="1" type="Numero" align="right" width="15" id="101" pattern="1" />
<field x="86.5" y="1" type="Valuta" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="13" y="2" type="Numero" align="right" width="15" id="103" pattern="1" />
<field x="13" y="2" type="Numero" align="right" width="15" id="103" pattern="1" text="#####,@@@">
<prescript description="F2.103 PRESCRIPT">MESSAGE ADD,F1.103</prescript>
</field>
</section>
<section type="Foot" level="3">
<postscript description="F3 POSTSCRIPT">MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103</postscript>
<field type="Stringa" width="20" pattern="1">
<source>B1.201</source>
</field>
@ -125,7 +124,10 @@ MESSAGE RESET,F3.103</postscript>
</field>
<field x="70.5" type="Numero" align="right" width="15" id="101" pattern="1" />
<field x="86" type="Valuta" align="right" width="10" id="102" pattern="1" text="#########,@@" />
<field x="96.5" type="Numero" hidden="1" align="right" width="15" id="103" pattern="1" />
<field x="96.5" type="Numero" hidden="1" align="right" width="15" id="103" pattern="1" text="#####,@@@">
<prescript description="F3.103 PRESCRIPT">MESSAGE ADD,F2.103
</prescript>
</field>
</section>
<sql>USE RDOC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC</sql>