Upperizzato il codice di magazzino

Corretto errore su omaggi
Corretto errore su stampa documenti
Aggiunti Zoom fields (su note clienti)


git-svn-id: svn://10.65.10.50/trunk@4956 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-07-28 14:16:44 +00:00
parent 34b681453b
commit 58d416af3f
6 changed files with 25 additions and 9 deletions

View File

@ -569,7 +569,7 @@ void TCond_vendita::update_omaggi(bool full)
r.put("CODART", codart_omaggio);
r.put("UMQTA", _rcondv.get("UMOM"));
r.put("QTA", qta);
r.put("PREZZO", _rcondv.get("PROMAGGIO"));
// r.put("PREZZO", _rcondv.get("PROMAGGIO"));
const TString16 codiva_cli(clifo().vendite().get(CFV_ASSFIS));
if (codiva_cli.not_empty())
r.put("CODIVA", codiva_cli);
@ -580,6 +580,13 @@ void TCond_vendita::update_omaggi(bool full)
r.autoload(sh);
sh.check_row(current_doc_row);
r.autosave(sh);
const real prezzo = _prezzo;
set_prezzo(_rcondv.get_real("PROMAGGIO"));
r.put("PREZZO", _prezzo);
r.autoload(sh);
_prezzo = prezzo;
update = TRUE;
}
}

View File

@ -353,6 +353,9 @@ void TMaschera::control( const int type, const int id, const int size )
case T_MEMO:
_out << "ME";
break;
case T_ZOOM:
_out << "ZO";
break;
case T_CORNICE:
_out << "GR";
break;
@ -806,7 +809,7 @@ void TField::genera( )
break;
}
if ((_type == T_DATA || _type == T_STRINGA ||
_type == T_NUMERO || _type == T_MEMO) &&
_type == T_NUMERO || _type == T_MEMO || _type == T_ZOOM) &&
(_stato == S_OBBLIGATORIO || !_use.blank()))
m.check( _stato );
if ( !_fieldname.blank( ) ) m.field( _fieldname );

View File

@ -1216,7 +1216,7 @@ HELP=Inserisci il codice del primo (o unico) vettore
[CODNOTE]
GROUP=2500
X=2
Y=1
Y=0
FIELDNAME=CODNOTE
MSKID=F_CODNOTE
TYPE=T_STRINGA
@ -1230,13 +1230,13 @@ WARNING=Note clienti assenti
[NOTECLI]
GROUP=2500
X=2
Y=2
X=24
Y=0
FIELDNAME=NOTE
MSKID=F_NOTECLI
TYPE=T_MEMO
TYPE=T_ZOOM
PROMPT=" "
SIZE=7704
SIZE=7750
[NCOPIE]
GROUP=1600

View File

@ -950,7 +950,9 @@ class TStampaDoc_application: public TApplication
bool _definitiva; // flag che indica se la stampa è definitiva o no
TRelation *_firmrel; // puntatore alla relazione che gestisce i dati della ditta corrente
TDocumento_form *_form; // puntatore al form di stampa
TLocalisamfile *_occas;
TLocalisamfile * _clifo;
TLocalisamfile * _occas;
protected:
virtual bool create();
virtual bool destroy();
@ -1179,6 +1181,7 @@ bool TStampaDoc_application::create()
_firmrel->add(LF_COMUNI, "COM=STATORES+COMRES", 1, LF_ANAG, 100+LF_COMUNI);
_firmrel->add(LF_COMUNI, "COM=STATORES+COMRF", 1, LF_ANAG, 200+LF_COMUNI);
_occas = new TLocalisamfile(LF_OCCAS);
_clifo = new TLocalisamfile(LF_CLIFO);
const int argc = TApplication::argc();
_is_lista = argc == 3 && argv(2)[0] == 'L';
@ -1222,7 +1225,8 @@ bool TStampaDoc_application::create()
bool TStampaDoc_application::destroy()
{
delete _firmrel; // distruzione della relazione di gestione della ditta corrente
if (_occas) delete _occas;
delete _clifo;
delete _occas;
return TApplication::destroy();
}

View File

@ -6,6 +6,7 @@
#define T_MEMO 6
#define T_CORNICE 7
#define T_BOTTONE 8
#define T_ZOOM 9
#define S_NASCOSTO 0
#define S_DISABILITATO 1

View File

@ -169,6 +169,7 @@ ENDIF
IFDEF(FL_CODART)
FLAGS FL_CODART
ENDIF
FLAGS "U"
FIELD CODART
ADD RUN ve2 -3
END