diff --git a/ef/ef0100.cpp b/ef/ef0100.cpp index a727b1ba4..f93e83174 100755 --- a/ef/ef0100.cpp +++ b/ef/ef0100.cpp @@ -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) { diff --git a/ef/ef0100.h b/ef/ef0100.h index 558d0bfeb..89286ed52 100755 --- a/ef/ef0100.h +++ b/ef/ef0100.h @@ -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 diff --git a/ef/ef0100a.uml b/ef/ef0100a.uml index 4468e3b0c..460aa48d1 100755 --- a/ef/ef0100a.uml +++ b/ef/ef0100a.uml @@ -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 diff --git a/ef/ef0100c.uml b/ef/ef0100c.uml index 84aa07b52..6d2de5a85 100755 --- a/ef/ef0100c.uml +++ b/ef/ef0100c.uml @@ -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 ""