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

Patch level :10.0

Browse Source 
Files correlati     :lv0.exe, lv0400a.msk
Ricompilazione Demo : [ ]
Commento            :
modifiche concordate con Tassan


git-svn-id: svn://10.65.10.50/trunk@18198 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill 2009-02-03 16:34:50 +00:00
parent 34d958daf8
commit 467ab3128d
4 changed files with 46 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
lv/f167.trr
View File

Binary file not shown.

35
lv/lv0400.cpp
View File

@ -48,6 +48,7 @@ long lv_new_contract(long cliente, int indsped)
class TContratti_msk: public TAutomask
{
long _post_contr;
TString80 _artrig;
protected:
bool on_art_select();
@ -99,13 +100,13 @@ bool TContratti_msk::on_art_select()
rowmask.set(S_CALCCONS,"0");
row.add("0",ss.cid2index(S_CALCCONS));
for (short id=F_PRZDTTMP; id<=F_PRZDTTMP+35; id++)
for (short id=F_CODART; id<=F_CODART+35; id++)
{
const int pos=id2pos(id);
if (pos>0)
fld(pos).set(row.get(ss.cid2index(id-400)));
}
return true;
}
@ -152,19 +153,32 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
if (!o.empty())
{
if (e==fe_modify)
{
TArticolo art(o.get());
{
const TString& codart=o.get();
TSheet_field& ss=sfield(F_RIGHE);
TMask& m = o.mask(); // maschera di riga!
if (_artrig.full() && codart!=_artrig)
{
if (!yesno_box("Si desidera veramente modificare l'articolo %s",(const char*) _artrig))
{
m.set(S_CODART,_artrig);
TToken_string& row=ss.row(ss.selected());
row.add(_artrig, 0);
ss.force_update(ss.selected());
}
else
_artrig = codart;
}
TArticolo art(codart);
if (art.um().rows() > 0)
{
TSheet_field& ss=sfield(F_RIGHE);
TMask& m = o.mask(); // maschera di riga!
const TString& um = art.um()[1].get(UMART_UM);
m.set(S_UM,um);
TToken_string& row=ss.row(ss.selected());
row.add(o.get(),ss.cid2index(S_CODART));
row.add(um,S_UM);
on_art_select();
}
}
else
@ -183,6 +197,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
if (pos>0)
fld(pos).set(row.get(ss.cid2index(id-400)));
}
_artrig=row.get(0);
}
if (e==se_query_del)
{
@ -468,9 +483,9 @@ void TContratti_app::init_modify_mode(TMask& m)
FOR_EACH_SHEET_ROW(righe,r,row)
{
const TString80 codart=row->get(colart);
righe.disable_cell(r,colart);
righe.disable_cell(r,coldes);
righe.disable_cell(r,colum);
// righe.disable_cell(r,colart);
// righe.disable_cell(r,coldes);
// righe.disable_cell(r,colum);
for (int y = year + oggi.month() == 12; y >= year; y--)
{

8
lv/lv0400.h
View File

@ -46,6 +46,8 @@
// Campi del dettalio sotto lo spreadsheet
#define F_CODART 501
#define F_DESART 502
#define F_CAUSLAVDESCRIG 512
#define F_PRZDTTMP 513
#define F_INDTTEMP 514
@ -75,9 +77,9 @@
#define S_SCONTO 107
#define S_DOTIN 108
#define S_DOTOD 109
#define S_CONSMESE 110
#define S_CONSANNO 111
#define S_DOTTMP 112
#define S_DOTTMP 110
#define S_CONSMESE 111
#define S_CONSANNO 112
#define S_PRZDTTMP 113
#define S_INDTTEMP 114
#define S_FIDTTEMP 115

21
lv/lv0400a.uml
View File

@ -46,7 +46,7 @@ END
STRING F_RAGSOC 50 30
BEGIN
PROMPT 19 1 ""
PROMPT 2 2 "Ragione sociale"
KEY 1
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -95,10 +95,9 @@ BEGIN
CHECKTYPE NORMAL
END
STRING F_RICALT 30
STRING F_RICALT 30 15
BEGIN
PROMPT 2 2 "Ricerca Alt. "
FIELD RICALT
PROMPT 19 1 "Ricerca Alt."
KEY 6
USE LF_CLIFO KEY 6
INPUT TIPOCF F_TIPOCF SELECT
@ -122,9 +121,9 @@ BEGIN
ITEM "Sconto %@5"
ITEM "Dot.\nIniz.@5"
ITEM "Dot.\nOd.@5"
ITEM "Dot.\nTemp.@5"
ITEM "Cons.\nmese@6"
ITEM "Cons.\nanno@6"
ITEM "Dot.\nTemp.@5"
ITEM "Prezzo\nDot.Temp."
ITEM "Inizio\nDot.Temp."
ITEM "Fine\nDot.Temp."
@ -144,6 +143,18 @@ BEGIN
ITEM "Arrotond."
END
STRING F_CODART 20
BEGIN
PROMPT 1 12 "Articolo"
FLAGS "D"
END
STRING F_DESART 50 40
BEGIN
PROMPT 35 12 ""
FLAGS "D"
END
LISTBOX F_ARTBLOC 1 25
BEGIN
PROMPT 1 13 "Bloccato "