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

Corretto errore aga006

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4317 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-04-29 16:33:20 +00:00
parent e9be165a5e
commit 7a9e083c22
4 changed files with 86 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ef/ef0100.cpp
View File

@ -136,22 +136,22 @@ void TVariazione_effetti::common_f(const TMask& m)
if (imp_eff == 0.0) continue; // salta le righe con importo nullo if (imp_eff == 0.0) continue; // salta le righe con importo nullo
row.restart(); row.restart();
TRectype& rec = _effetto->row_r(ii, TRUE); TRectype& rec = _effetto->row_r(ii, TRUE);
rec.zero(); rec.zero();
rec.put(REFF_NPROGTR, nprogtr); rec.put(REFF_NPROGTR, nprogtr);
rec.put(REFF_NRIGATR, ii); rec.put(REFF_NRIGATR, ii);
rec.put(REFF_IMPFATT, row.get());
rec.put(REFF_IMPORTO, row.get()); rec.put(REFF_IMPORTO, row.get());
rec.put(REFF_IMPFATTVAL, row.get());
rec.put(REFF_IMPORTOVAL, row.get()); rec.put(REFF_IMPORTOVAL, row.get());
rec.put(REFF_CODNUM, row.get());
rec.put(REFF_PROVV, row.get()[0]);
rec.put(REFF_ANNODOC, row.get_int());
rec.put(REFF_NFATT, row.get());
rec.put(REFF_DATAFATT, row.get());
rec.put(REFF_IMPFATT, row.get());
rec.put(REFF_IMPFATTVAL, row.get());
rec.put(REFF_ANNO, row.get_int()); rec.put(REFF_ANNO, row.get_int());
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_DATAFATT, row.get());
ii++; ii++;
} }
_effetto->renum(_effetto->numero()); _effetto->renum(_effetto->numero());
@ -200,23 +200,23 @@ int TVariazione_effetti::read(TMask& m)
{ {
const TRectype& rec = _effetto->row_r(i); const TRectype& rec = _effetto->row_r(i);
riga.cut(0); riga.cut(0);
riga.add(rec.get(REFF_IMPFATT));
riga.add(rec.get(REFF_IMPORTO)); riga.add(rec.get(REFF_IMPORTO));
riga.add(rec.get(REFF_IMPFATTVAL));
riga.add(rec.get(REFF_IMPORTOVAL)); riga.add(rec.get(REFF_IMPORTOVAL));
riga.add(rec.get(REFF_ANNO)); riga.add(rec.get(REFF_CODNUM));
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]; char tipo_num = rec.get(REFF_PROVV)[0];
if (tipo_num == 'D') if (tipo_num == 'D')
riga.add("Definitiva"); riga.add("Definitiva");
else else
riga.add("Provvisoria"); riga.add("Provvisoria");
riga.add(rec.get(REFF_CODNUM));
riga.add(rec.get(REFF_ANNODOC)); 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));
riga.add(rec.get(REFF_IMPFATT));
riga.add(rec.get(REFF_IMPFATTVAL));
riga.add(rec.get(REFF_ANNO));
riga.add(rec.get(REFF_NUMPART));
riga.add(rec.get(REFF_NRIGA));
riga.add(rec.get(REFF_NRATA));
shrighe.row(i-1) = riga; shrighe.row(i-1) = riga;
} }
} }
@ -372,11 +372,11 @@ bool TVariazione_effetti::impeff_notify(TSheet_field& s, int r, KEY key)
if (key == K_ENTER) if (key == K_ENTER)
{ {
TToken_string& row = s.row(s.selected()); TToken_string& row = s.row(s.selected());
char tipo_num = row.get(8)[0]; char tipo_num = row.get(3)[0];
if (tipo_num == 'D') if (tipo_num == 'D')
row.add("Definitiva",8); row.add("Definitiva", 3);
else else
row.add("Provvisoria",8); row.add("Provvisoria", 3);
} }
//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)

26
ef/ef0100.h
View File

@ -43,18 +43,18 @@
#define F_DENCOM 105 #define F_DENCOM 105
// Identificatori campi per lo spreadsheet delle Righe Effetto // Identificatori campi per lo spreadsheet delle Righe Effetto
#define F_IMPFATT 101 #define F_IMPEFF 101
#define F_IMPEFF 102 #define F_IMPEFFVAL 102
#define F_IMPFATTVAL 103 #define F_CODNUM 103
#define F_IMPEFFVAL 104 #define F_PROVV 104
#define F_ANNO 105 #define F_ANNODOC 105
#define F_NUMPART 106 #define F_NUMFATT 106
#define F_NUMRIGA 107 #define F_DATAFATT 107
#define F_NUMRATA 108 #define F_IMPFATT 108
#define F_PROVV 109 #define F_IMPFATTVAL 109
#define F_CODNUM 110 #define F_ANNO 110
#define F_ANNODOC 111 #define F_NUMPART 111
#define F_NUMFATT 112 #define F_NUMRIGA 112
#define F_DATAFATT 113 #define F_NUMRATA 113
#endif // __EF0100_H #endif // __EF0100_H

16
ef/ef0100a.uml
View File

@ -162,20 +162,20 @@ END
SPREADSHEET F_SHEET_RIGHE 0 7 SPREADSHEET F_SHEET_RIGHE 0 7
BEGIN BEGIN
PROMPT 1 9 "RIGHE EFFETTO" PROMPT 1 9 "Righe effetto"
ITEM "Importo effetto@14"
ITEM "Imp.effetto val.@14"
ITEM "Cod.numerazione"
ITEM "Numerazione"
ITEM "Anno fattura"
ITEM "Nr. fattura"
ITEM "Data fattura"
ITEM "Importo fatt.@20" ITEM "Importo fatt.@20"
ITEM "Importo effet.@14"
ITEM "Imp.fatt.val.@20" ITEM "Imp.fatt.val.@20"
ITEM "Imp.effet.val.@14"
ITEM "Anno partita" ITEM "Anno partita"
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 "Data fattura"
END END
NUMBER F_TOTIMP 18 2 NUMBER F_TOTIMP 18 2

94
ef/ef0100c.uml
View File

@ -3,84 +3,84 @@
PAGE "Righe Effetto" -1 -1 76 16 PAGE "Righe Effetto" -1 -1 76 16
NUMBER F_IMPFATT 20 2
BEGIN
PROMPT 2 1 "Importo fattura "
PICTURE "###.###.###.###,@@"
END
NUMBER F_IMPEFF 14 2 NUMBER F_IMPEFF 14 2
BEGIN BEGIN
PROMPT 2 2 "Importo effett. " PROMPT 2 1 "Importo effetto "
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
NUMBER F_IMPFATTVAL 20 3
BEGIN
PROMPT 2 3 "Imp. fatt. val "
PICTURE "###.###.###.###,@@@"
END END
NUMBER F_IMPEFFVAL 15 3 NUMBER F_IMPEFFVAL 15 3
BEGIN BEGIN
PROMPT 2 4 "Imp. effet. val " PROMPT 2 2 "Imp.effetto 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"
END END
NUMBER F_ANNO 4 STRING F_CODNUM 4
BEGIN BEGIN
PROMPT 2 5 "Anno partita " PROMPT 2 3 "Codice numeraz. "
END FIELD LF_REFFETTI->CODNUM
STRING F_NUMPART 7
BEGIN
PROMPT 2 6 "Nr. partita "
FLAG "R"
END
NUMBER F_NUMRIGA 4
BEGIN
PROMPT 2 7 "Nr. riga "
END
NUMBER F_NUMRATA 3
BEGIN
PROMPT 2 8 "Nr. rata "
END END
LIST F_PROVV 13 LIST F_PROVV 13
BEGIN BEGIN
PROMPT 2 9 "Tipo numerazione " PROMPT 2 4 "Tipo numerazione "
FIELD LF_REFFETTI->PROVV FIELD LF_REFFETTI->PROVV
ITEM "D|Definitiva" ITEM "D|Definitiva"
ITEM "P|Provvisoria" ITEM "P|Provvisoria"
END END
STRING F_CODNUM 4
BEGIN
PROMPT 2 10 "Codice numeraz. "
FIELD LF_REFFETTI->CODNUM
END
NUMBER F_ANNODOC 4 NUMBER F_ANNODOC 4
BEGIN BEGIN
PROMPT 2 11 "Anno documento " PROMPT 2 5 "Anno documento "
FIELD LF_REFFETTI->ANNODOC FIELD LF_REFFETTI->ANNODOC
END END
STRING F_NUMFATT 7 STRING F_NUMFATT 7
BEGIN BEGIN
PROMPT 2 12 "Nr. fattura " PROMPT 2 6 "Nr. fattura "
FLAG "R" FLAG "R"
END END
DATA F_DATAFATT DATA F_DATAFATT
BEGIN BEGIN
PROMPT 2 13 "Data fattura " PROMPT 2 7 "Data fattura "
END
NUMBER F_IMPFATT 20 2
BEGIN
PROMPT 2 8 "Importo fattura "
PICTURE "###.###.###.###,@@"
END
NUMBER F_IMPFATTVAL 20 3
BEGIN
PROMPT 2 9 "Imp. fatt. val "
PICTURE "###.###.###.###,@@@"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 10 "Anno partita "
END
STRING F_NUMPART 7
BEGIN
PROMPT 2 11 "Nr. partita "
FLAG "R"
END
NUMBER F_NUMRIGA 4
BEGIN
PROMPT 2 12 "Nr. riga "
END
NUMBER F_NUMRATA 3
BEGIN
PROMPT 2 13 "Nr. rata "
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2