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

Patch level : 10.0 patch 236

Browse Source 
Files correlati     : lv0.exe, lv0400a.msk, tracciati record
Ricompilazione Demo : [ ]
Commento            :
Ulteriori correzioni dei commit di stamattina (vedi txt)


git-svn-id: svn://10.65.10.50/trunk@19011 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-06-11 14:39:43 +00:00
parent 3c2ccd846c
commit eb59d4d7c9
5 changed files with 47 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lv/f168.dir
View File

@ -1,3 +1,3 @@
168
0
$lvcondv|||175|0|Tabella testate di contratto|||
$lvcondv|||176|0|Tabella testate di contratto|||

3
lv/f168.trr
View File

@ -1,5 +1,5 @@
168
43
44
CODCONT|3|6|0|Codice Contratto
STATUS|1|2|0|Stato del contratto, <CH>chiuso, <CO>confermato, <DC>da confermare
PROPOSTA|8|1|0|Proposta di contratto
@ -22,6 +22,7 @@ ADDCAPROT|8|1|0|Addebita i capi rotti in fattura
FORFGLOB|4|18|3|Forfati Globale
TIPOCAN|2|1|0|Tipo canone
CANFIX|2|1|0|Opzioni per importo canone fisso
NOLCICTE|1|1|0|Opzioni per importo % sul valore convenzionale
TIPOIMB|2|1|0|Tipo imballo
SSCONS|8|1|0|Spese di spedizione alla consegna
TIPOSTPRZ|8|1|0|Stampa prezzo in bolla

31
lv/lv0400.cpp
View File

@ -102,6 +102,9 @@ bool TContratti_msk::on_art_select()
rowmask.set(S_UM, um);
}
//abilito il prezzo sempre e comunque
rowmask.enable(S_PREZZOST);
//se esiste il record su LF_CLIFOGIAC, recupero l'unità di misura dalla riga dello sheet selezionata
//e setto i campi delle dotazioni e dei consegnati ai valori corretti riportati alla giusta unità di misura
if (!reclav.empty())
@ -270,6 +273,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
}
break;
case F_TIPOCAN:
case F_NOLCICTE:
{
//copio il valore del campo in questione della testata su tutte le righe se F_TIPOCAN vale
//% su valore convenzionale per cliente, altrimente lascio quello che c'è
@ -279,8 +283,11 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
TSheet_field& ss = sfield(F_RIGHE);
//recupero le posizioni dei campi che devo modificare
const int pos_tipoforf = ss.cid2index(S_TIPOFORF);
const int pos_tipoforf = ss.cid2index(S_TIPOFORF);
const int pos_nolcic = ss.cid2index(S_NOLCIC);
const int pos_vcartcli = ss.cid2index(S_VCARTCLI);
const char nolcicte = field(F_NOLCICTE).get()[0];
if (tipocan == 2)
{
@ -288,14 +295,16 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
{
TToken_string& riga = ss.row(r);
//scrivo i valori alle posizioni corrette
riga.add(4, pos_tipoforf);
riga.add(4, pos_tipoforf);
riga.add(nolcicte, pos_nolcic);
riga.add('C', pos_vcartcli);
//disabilito le celle interessate
ss.disable_cell(r, pos_tipoforf);
ss.disable_cell(r, pos_nolcic);
ss.disable_cell(r, pos_vcartcli);
}
field(F_TIPOFORF).disable();
field(F_VCARTCLI).disable();
field(F_NOLCIC).disable();
}
else
{
@ -304,11 +313,12 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
TToken_string& riga = ss.row(r);
//scrivo i valori alle posizioni corrette
riga.add(0, pos_tipoforf);
ss.enable_cell(r, pos_tipoforf);
ss.enable_cell(r, pos_tipoforf);
ss.enable_cell(r, pos_nolcic);
ss.enable_cell(r, pos_vcartcli);
}
field(F_TIPOFORF).enable();
field(F_VCARTCLI).enable();
field(F_TIPOFORF).enable();
field(F_NOLCIC).enable();
}
ss.force_update();
if (ss.items() >= 0)
@ -398,7 +408,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
}
else
warning_box("Non esiste questo articolo sul listino; "
"come prezzo verrà proposto il valore convenzionale dell'articolo");
"come prezzo verrà proposto il prezzo standard dell'articolo");
}
else
trvlst = false; //probabilmente istruzione inutile
@ -407,8 +417,11 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
//propongo come prezzo il valore convenzionale
if (!trvlst)
{
const TRectype& anamag = cache().get(LF_ANAMAG, codart);
m.set(S_PREZZOST, anamag.get_real(ANAMAG_COSTSTD));
key.cut(0);
key.add(codart);
key.add(1);
const TRectype& umart = cache().get(LF_UMART, key);
m.set(S_PREZZOST, umart.get_real(UMART_PREZZO));
}
//se ho scritto un articolo diverso da quello che esisteva prima

2
lv/lv0400.h
View File

@ -42,6 +42,8 @@
#define F_IMPFIX 240
#define F_CANFIX 241
#define F_RAGART 242
#define F_NOLCICTE 246
// Campi del dettalio sotto lo spreadsheet

33
lv/lv0400a.uml
View File

@ -142,7 +142,7 @@ BEGIN
ITEM "Fatturazione\na kg"
ITEM "Arrotond."
ITEM "UM@3"
ITEM "Pezzi per\nConf."
ITEM "Pezzi per\nPacco"
END
STRING F_CODART 6
@ -223,8 +223,7 @@ END
CURRENCY F_VALCONV 15
BEGIN
PROMPT 30 15 "Val.Conven. "
FLAGS "U"
GROUP 3
FLAGS "U"
END
NUMBER F_MINCIC 4 2
@ -320,7 +319,7 @@ ENDPAGE
PAGE "Dati Testata" 0 2 0 0
GROUPBOX DLG_NULL 79 12
GROUPBOX DLG_NULL 80 12
BEGIN
PROMPT 1 0 "@b Fatturazione"
END
@ -406,20 +405,29 @@ LISTBOX F_TIPOCAN 1 29
BEGIN
PROMPT 2 7 "Tipo canone"
ITEM "0|Nessuno"
MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|DISABLE,F_CANFIX
MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|HIDE,F_NOLCICTE
ITEM "1|Importo fisso"
MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|ENABLE,F_CANFIX
ITEM "2|% sul val. conv. per cliente"
MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|DISABLE,F_CANFIX
MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|SHOW,F_CANFIX|HIDE,F_NOLCICTE
ITEM "2|% sul val. conv. per cli."
MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|SHOW,F_NOLCICTE
FIELD TIPOCAN
END
LISTBOX F_CANFIX 27
LISTBOX F_NOLCICTE 1 20
BEGIN
PROMPT 46 7 "Con "
PROMPT 45 7 "In base a "
ITEM "I|Dot. iniziale"
ITEM "O|Dot. odierna"
FIELD NOLCICTE
GROUP 1
END
LISTBOX F_CANFIX 1 22
BEGIN
PROMPT 45 7 "Con "
ITEM "0|Nessun elenco"
ITEM "1|Elenco articoli con qtà."
ITEM "2|Elenco articoli senza qtà."
ITEM "1|Elenco art. con qtà."
ITEM "2|Elenco art. senza qtà."
FIELD CANFIX
END
@ -778,7 +786,6 @@ BEGIN
PROMPT 30 11 "Val.Conven."
FLAGS "U"
FIELD VALCONV
GROUP 3
END
NUMBER S_MINCIC 4 2