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

Patch level : 10.0 patch???

Browse Source 
Files correlati     : lv1 lv1200*.rep
Ricompilazione Demo : [ ]
Commento            :
Sistemata la stampa a Kg


git-svn-id: svn://10.65.10.50/trunk@20178 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-03-02 14:31:43 +00:00
parent e580a22a67
commit a7add47afd
3 changed files with 16 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lv/lv1200.cpp
View File

@ -86,7 +86,7 @@ bool TStampa_a_kg_rep::get_usr_val(const TString& name, TVariant& var) const
if (umrif == _umkg)
{
//leggo e controllo il fattore di conversione
const real fatconv = unita.get_real("R10");
fatconv = unita.get_real("R10");
}
if (fatconv != ZERO)
{
@ -204,12 +204,12 @@ void TStampa_a_kg_app::prepara_recordset(TStampa_a_kg_rep & rep) const
righedoc->set_var("#ACODCF", _msk->get_long(F_ACODCF));
break;
case 2:
righedoc->set_var("#DAITI", _msk->get_long(F_DACODITI));
righedoc->set_var("#AITI", _msk->get_long(F_ACODITI));
righedoc->set_var("#DAITI", _msk->get(F_DACODITI));
righedoc->set_var("#AITI", _msk->get(F_ACODITI));
break;
case 3:
righedoc->set_var("#DAAUT", _msk->get(F_DACODAUT).right(5));
righedoc->set_var("#AAUT", _msk->get(F_ACODAUT).right(5));
righedoc->set_var("#DAAUT", _msk->get(F_DACODAUT).right(5));
righedoc->set_var("#AAUT", _msk->get(F_ACODAUT).right(5));
break;
default:
break;

32
lv/lv1200a.uml
View File

@ -197,18 +197,12 @@ STRING F_DACODAUT 6
BEGIN
PROMPT 2 12 "Da autista "
FLAGS "UZ"
USE &ITI
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
USE &AUT
INPUT CODTAB F_DACODAUT
DISPLAY "Autista" S1
DISPLAY "Descrizione Autista@50" 1000@->S0
DISPLAY "Itinerario" CODTAB
DISPLAY "Descrizione@50" 1000@->S0
DISPLAY "Targa@8" S2
DISPLAY "Descrizione Mezzo@50" 2000@->S0
OUTPUT F_DACODAUT S1
OUTPUT F_DADESAUT 1000@->S0
DISPLAY "Autista" CODTAB
DISPLAY "Descrizione Autista@50" S0
OUTPUT F_DACODAUT CODTAB
OUTPUT F_DADESAUT S0
CHECKTYPE NORMAL
GROUP 3
END
@ -230,18 +224,12 @@ STRING F_ACODAUT 6
BEGIN
PROMPT 2 13 "A autista "
FLAGS "UZ"
USE &ITI
JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
USE &AUT
INPUT CODTAB F_ACODAUT
DISPLAY "Autista" S1
DISPLAY "Descrizione Autista@50" 1000@->S0
DISPLAY "Itinerario" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Targa@8" S2
DISPLAY "Descrizione Mezzo@50" 2000@->S0
OUTPUT F_ACODAUT S1
OUTPUT F_ADESAUT 1000@->S0
DISPLAY "Autista" CODTAB
DISPLAY "Descrizione Autista@50" S0
OUTPUT F_ACODAUT CODTAB
OUTPUT F_ADESAUT S0
CHECKTYPE NORMAL
GROUP 3
END

2
lv/lv1200d.rep
View File

@ -28,7 +28,7 @@
</field>
</section>
<section type="Head" level="2" height="6">
<groupby>DOC.CODAG</groupby>
<groupby>NUM(DOC.CODAG)</groupby>
<prescript description="H2 PRESCRIPT">0 #F2.101 !
0 #F2.102 !
0 #F2.103 !</prescript>