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

aggiunta dati relativi alla fattura nel programma di "variazione effetti"

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4160 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
paola 1997-02-24 15:40:06 +00:00
parent 9d89332a8a
commit ffa4a790c9
4 changed files with 96 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ef/ef0100.cpp
View File

@ -147,6 +147,9 @@ void TVariazione_effetti::common_f(const TMask& m)
rec.put(REFF_NUMPART, row.get());
rec.put(REFF_NRIGA, row.get_int());
rec.put(REFF_NRATA, row.get_int());
rec.put(REFF_PROVV, row.get()[0]);
rec.put(REFF_CODNUM, row.get());
rec.put(REFF_ANNODOC, row.get_int());
rec.put(REFF_NFATT, row.get());
rec.put(REFF_DATAFATT, row.get());
ii++;
@ -205,6 +208,13 @@ int TVariazione_effetti::read(TMask& m)
riga.add(rec.get(REFF_NUMPART));
riga.add(rec.get(REFF_NRIGA));
riga.add(rec.get(REFF_NRATA));
char tipo_num = rec.get(REFF_PROVV)[0];
if (tipo_num == 'D')
riga.add("Definitiva");
else
riga.add("Provvisoria");
riga.add(rec.get(REFF_CODNUM));
riga.add(rec.get(REFF_ANNODOC));
riga.add(rec.get(REFF_NFATT));
riga.add(rec.get(REFF_DATAFATT));
shrighe.row(i-1) = riga;
@ -272,8 +282,8 @@ bool TVariazione_effetti::user_destroy()
// che venga inserita almeno una riga per un effetto
bool TVariazione_effetti::handle_sheet(TMask_field &f, KEY k)
{
TMask& m = f.mask();
const int mode = m.mode();
TMask& m = f.mask();
const int mode = m.mode();
// se si vuole salvare e si è in uno dei due modi di funzionamento
if ( k == K_ENTER && (mode == MODE_INS || mode == MODE_MOD) )
{ // si controllano le righe del effetto nello sheet
@ -355,7 +365,17 @@ void TVariazione_effetti::calcola_totali()
// vengano eliminate tutte le righe dell'effetto, almeno una deve rimanere
bool TVariazione_effetti::impeff_notify(TSheet_field& s, int r, KEY key)
{
if (s.to_check(key, TRUE)) calcola_totali();
if (s.to_check(key, TRUE))
{
TToken_string& row = s.row(s.selected());
char tipo_num = row.get(8)[0];
if (tipo_num == 'D')
row.add("Definitiva",8);
else
row.add("Provvisoria",8);
calcola_totali();
}
//se rimane una sola riga nello sheet non la si può cancellare
if (key == K_DEL && s.items() == 1)
{

67
ef/ef0100.h
View File

@ -4,36 +4,36 @@
// DEFINIZIONE CAMPI MASCHERE PER LA GESTIONE EFFETTI
// campi maschera ef0100a.uml
#define F_NPROGTR 101
#define F_CODCF 102
#define F_CFRAGSOC 103
#define F_DATASCAD 104
#define F_TIPOPAG 105
#define F_ULTCLASS 106
#define F_CODVAL 107
#define F_DATACAM 108
#define F_CAMBIO 109
#define F_ULTRATA 110
#define F_SHEET_RIGHE 111
#define F_TOTIMP 112
#define F_TOTIMPVAL 113
#define F_CODABI 114
#define F_CODCAB 115
#define F_CODABIP 116
#define F_CODCABP 117
#define F_DATAEMISS 118
#define F_NUMEMISS 119
#define F_EFFSTAMP 120
#define F_TIPODIST 121
#define F_NDIST 122
#define F_DATADIST 123
#define F_DISTSTAM 124
#define F_NRIGADIST 125
#define F_DATARIBA 126
#define F_DISRIBAEST 127
#define F_EFFCONT 128
#define F_EFFCOMP 129
#define F_SHEET_EFF 130
#define F_NPROGTR 201
#define F_CODCF 202
#define F_CFRAGSOC 203
#define F_DATASCAD 204
#define F_TIPOPAG 205
#define F_ULTCLASS 206
#define F_CODVAL 207
#define F_DATACAM 208
#define F_CAMBIO 209
#define F_ULTRATA 210
#define F_SHEET_RIGHE 211
#define F_TOTIMP 212
#define F_TOTIMPVAL 213
#define F_CODABI 214
#define F_CODCAB 215
#define F_CODABIP 216
#define F_CODCABP 217
#define F_DATAEMISS 218
#define F_NUMEMISS 219
#define F_EFFSTAMP 220
#define F_TIPODIST 221
#define F_NDIST 222
#define F_DATADIST 223
#define F_DISTSTAM 224
#define F_NRIGADIST 225
#define F_DATARIBA 226
#define F_DISRIBAEST 227
#define F_EFFCONT 228
#define F_EFFCOMP 229
#define F_SHEET_EFF 230
// Identificatori campi per lo spreadsheet dei Cessionari
#define F_RAGSOC 101
@ -51,7 +51,10 @@
#define F_NUMPART 106
#define F_NUMRIGA 107
#define F_NUMRATA 108
#define F_NUMFATT 109
#define F_DATAFATT 110
#define F_PROVV 109
#define F_CODNUM 110
#define F_ANNODOC 111
#define F_NUMFATT 112
#define F_DATAFATT 113
#endif // __EF0100_H

3
ef/ef0100a.uml
View File

@ -164,6 +164,9 @@ BEGIN
ITEM "Nr. partita"
ITEM "Nr. riga"
ITEM "Nr. rata"
ITEM "Numerazione"
ITEM "Codice numeraz."
ITEM "Anno fattura"
ITEM "Nr. fattura"
ITEM "Data fattura"
END

52
ef/ef0100c.uml
View File

@ -1,31 +1,31 @@
// DEFINIZIONE MASCHERA, DELLO SHEET DELLE RIGHE EFFETTO, PER LA GESTIONE EFFETTI
#include "ef0100.h"
PAGE "Righe Effetto" -1 -1 76 13
PAGE "Righe Effetto" -1 -1 76 16
NUMBER F_IMPFATT 20 2
BEGIN
PROMPT 2 1 "Importo fattura "
PROMPT 2 1 "Importo fattura "
PICTURE "###.###.###.###,@@"
END
NUMBER F_IMPEFF 14 2
BEGIN
PROMPT 2 2 "Importo effett. "
PROMPT 2 2 "Importo effett. "
PICTURE "###.###.###,@@"
NUM_EXPR #F_IMPFATT>=#F_IMPEFF
WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
END
NUMBER F_IMPFATTVAL 20 3
BEGIN
PROMPT 2 3 "Imp. fatt. val "
BEGIN
PROMPT 2 3 "Imp. fatt. val "
PICTURE "###.###.###.###,@@@"
END
NUMBER F_IMPEFFVAL 15 3
BEGIN
PROMPT 2 4 "Imp. effet. val "
BEGIN
PROMPT 2 4 "Imp. effet. val "
PICTURE "###.###.###,@@@"
NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
WARNING "L'importo dell'effetto in valuta non puo' superare l'importo della fattura in valuta"
@ -33,38 +33,56 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 5 "Anno partita "
PROMPT 2 5 "Anno partita "
END
STRING F_NUMPART 7
BEGIN
PROMPT 2 6 "Nr. partita "
FLAG "R"
PROMPT 2 6 "Nr. partita "
FLAG "R"
END
NUMBER F_NUMRIGA 4
BEGIN
PROMPT 2 7 "Nr. riga "
PROMPT 2 7 "Nr. riga "
END
NUMBER F_NUMRATA 3
BEGIN
PROMPT 2 8 "Nr. rata "
PROMPT 2 8 "Nr. rata "
END
LIST F_PROVV 13
BEGIN
PROMPT 2 9 "Tipo numerazione "
FIELD LF_REFFETTI->PROVV
ITEM "D|Definitiva"
ITEM "P|Provvisoria"
END
STRING F_CODNUM 4
BEGIN
PROMPT 2 10 "Codice numeraz. "
FIELD LF_REFFETTI->CODNUM
END
NUMBER F_ANNODOC 4
BEGIN
PROMPT 2 11 "Anno documento "
FIELD LF_REFFETTI->ANNODOC
END
STRING F_NUMFATT 7
BEGIN
PROMPT 2 9 "Nr. fattura "
FLAG "R"
PROMPT 2 12 "Nr. fattura "
FLAG "R"
END
DATA F_DATAFATT
BEGIN
PROMPT 2 10 "Data fattura "
FLAG "R"
PROMPT 2 13 "Data fattura "
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""