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_NUMPART, row.get());
rec.put(REFF_NRIGA, row.get_int()); rec.put(REFF_NRIGA, row.get_int());
rec.put(REFF_NRATA, 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_NFATT, row.get());
rec.put(REFF_DATAFATT, row.get()); rec.put(REFF_DATAFATT, row.get());
ii++; ii++;
@ -205,6 +208,13 @@ int TVariazione_effetti::read(TMask& m)
riga.add(rec.get(REFF_NUMPART)); riga.add(rec.get(REFF_NUMPART));
riga.add(rec.get(REFF_NRIGA)); riga.add(rec.get(REFF_NRIGA));
riga.add(rec.get(REFF_NRATA)); 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_NFATT));
riga.add(rec.get(REFF_DATAFATT)); riga.add(rec.get(REFF_DATAFATT));
shrighe.row(i-1) = riga; shrighe.row(i-1) = riga;
@ -272,8 +282,8 @@ bool TVariazione_effetti::user_destroy()
// che venga inserita almeno una riga per un effetto // che venga inserita almeno una riga per un effetto
bool TVariazione_effetti::handle_sheet(TMask_field &f, KEY k) bool TVariazione_effetti::handle_sheet(TMask_field &f, KEY k)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
const int mode = m.mode(); const int mode = m.mode();
// se si vuole salvare e si è in uno dei due modi di funzionamento // se si vuole salvare e si è in uno dei due modi di funzionamento
if ( k == K_ENTER && (mode == MODE_INS || mode == MODE_MOD) ) if ( k == K_ENTER && (mode == MODE_INS || mode == MODE_MOD) )
{ // si controllano le righe del effetto nello sheet { // 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 // vengano eliminate tutte le righe dell'effetto, almeno una deve rimanere
bool TVariazione_effetti::impeff_notify(TSheet_field& s, int r, KEY key) 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 //se rimane una sola riga nello sheet non la si può cancellare
if (key == K_DEL && s.items() == 1) if (key == K_DEL && s.items() == 1)
{ {

67
ef/ef0100.h
View File

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

3
ef/ef0100a.uml
View File

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

52
ef/ef0100c.uml
View File

@ -1,31 +1,31 @@
// DEFINIZIONE MASCHERA, DELLO SHEET DELLE RIGHE EFFETTO, PER LA GESTIONE EFFETTI // DEFINIZIONE MASCHERA, DELLO SHEET DELLE RIGHE EFFETTO, PER LA GESTIONE EFFETTI
#include "ef0100.h" #include "ef0100.h"
PAGE "Righe Effetto" -1 -1 76 13 PAGE "Righe Effetto" -1 -1 76 16
NUMBER F_IMPFATT 20 2 NUMBER F_IMPFATT 20 2
BEGIN BEGIN
PROMPT 2 1 "Importo fattura " PROMPT 2 1 "Importo fattura "
PICTURE "###.###.###.###,@@" PICTURE "###.###.###.###,@@"
END END
NUMBER F_IMPEFF 14 2 NUMBER F_IMPEFF 14 2
BEGIN BEGIN
PROMPT 2 2 "Importo effett. " PROMPT 2 2 "Importo effett. "
PICTURE "###.###.###,@@" PICTURE "###.###.###,@@"
NUM_EXPR #F_IMPFATT>=#F_IMPEFF NUM_EXPR #F_IMPFATT>=#F_IMPEFF
WARNING "L'importo dell'effetto non puo' superare l'importo della fattura" WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
END END
NUMBER F_IMPFATTVAL 20 3 NUMBER F_IMPFATTVAL 20 3
BEGIN BEGIN
PROMPT 2 3 "Imp. fatt. val " PROMPT 2 3 "Imp. fatt. val "
PICTURE "###.###.###.###,@@@" PICTURE "###.###.###.###,@@@"
END END
NUMBER F_IMPEFFVAL 15 3 NUMBER F_IMPEFFVAL 15 3
BEGIN BEGIN
PROMPT 2 4 "Imp. effet. val " PROMPT 2 4 "Imp. effet. val "
PICTURE "###.###.###,@@@" PICTURE "###.###.###,@@@"
NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
WARNING "L'importo dell'effetto in valuta non puo' superare l'importo della fattura in valuta" 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 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 5 "Anno partita " PROMPT 2 5 "Anno partita "
END END
STRING F_NUMPART 7 STRING F_NUMPART 7
BEGIN BEGIN
PROMPT 2 6 "Nr. partita " PROMPT 2 6 "Nr. partita "
FLAG "R" FLAG "R"
END END
NUMBER F_NUMRIGA 4 NUMBER F_NUMRIGA 4
BEGIN BEGIN
PROMPT 2 7 "Nr. riga " PROMPT 2 7 "Nr. riga "
END END
NUMBER F_NUMRATA 3 NUMBER F_NUMRATA 3
BEGIN 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 END
STRING F_NUMFATT 7 STRING F_NUMFATT 7
BEGIN BEGIN
PROMPT 2 9 "Nr. fattura " PROMPT 2 12 "Nr. fattura "
FLAG "R" FLAG "R"
END END
DATA F_DATAFATT DATA F_DATAFATT
BEGIN BEGIN
PROMPT 2 10 "Data fattura " PROMPT 2 13 "Data fattura "
FLAG "R"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""