Errore aga007
git-svn-id: svn://10.65.10.50/trunk@4318 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
7a9e083c22
commit
2bbed52028
@ -132,7 +132,7 @@ void TVariazione_effetti::common_f(const TMask& m)
|
||||
for (i = 0; i < items; i++)
|
||||
{
|
||||
TToken_string& row = shrighe.row(i);
|
||||
real imp_eff(row.get(1));
|
||||
real imp_eff(row.get(shrighe.cid2index(F_IMPEFF)));
|
||||
if (imp_eff == 0.0) continue; // salta le righe con importo nullo
|
||||
row.restart();
|
||||
TRectype& rec = _effetto->row_r(ii, TRUE);
|
||||
@ -203,11 +203,7 @@ int TVariazione_effetti::read(TMask& m)
|
||||
riga.add(rec.get(REFF_IMPORTO));
|
||||
riga.add(rec.get(REFF_IMPORTOVAL));
|
||||
riga.add(rec.get(REFF_CODNUM));
|
||||
char tipo_num = rec.get(REFF_PROVV)[0];
|
||||
if (tipo_num == 'D')
|
||||
riga.add("Definitiva");
|
||||
else
|
||||
riga.add("Provvisoria");
|
||||
riga.add(rec.get(REFF_PROVV));
|
||||
riga.add(rec.get(REFF_ANNODOC));
|
||||
riga.add(rec.get(REFF_NFATT));
|
||||
riga.add(rec.get(REFF_DATAFATT));
|
||||
@ -293,7 +289,7 @@ bool TVariazione_effetti::handle_sheet(TMask_field &f, KEY k)
|
||||
for (int i = 0; i < items && !found; i++)// scandisco tutte le righe dello sheet
|
||||
{
|
||||
TToken_string& row = sf.row(i);
|
||||
real imp_eff(row.get(1));
|
||||
real imp_eff(row.get(sf.cid2index(F_IMPEFF)));
|
||||
// controlla che le righe abbiano un importo
|
||||
if (imp_eff != 0.0) found = TRUE;
|
||||
}
|
||||
@ -352,9 +348,9 @@ void TVariazione_effetti::calcola_totali()
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
TToken_string& row = sf.row(i);
|
||||
imp = row.get(1);
|
||||
imp = row.get(sf.cid2index(F_IMPEFF));
|
||||
impeff += imp;
|
||||
impval = row.get(3);
|
||||
impval = row.get(sf.cid2index(F_IMPEFFVAL));
|
||||
impeffval += impval;
|
||||
}
|
||||
m->set(F_TOTIMP, impeff);
|
||||
@ -369,15 +365,12 @@ bool TVariazione_effetti::impeff_notify(TSheet_field& s, int r, KEY key)
|
||||
{
|
||||
calcola_totali();
|
||||
}
|
||||
if (key == K_ENTER)
|
||||
/* if (key == K_ENTER)
|
||||
{
|
||||
TToken_string& row = s.row(s.selected());
|
||||
char tipo_num = row.get(3)[0];
|
||||
if (tipo_num == 'D')
|
||||
row.add("Definitiva", 3);
|
||||
else
|
||||
row.add("Provvisoria", 3);
|
||||
char tipo_num = row.get(sf.cid2index(F_PROVVF))[0];
|
||||
}
|
||||
*/
|
||||
//se rimane una sola riga nello sheet non la si può cancellare
|
||||
if (key == K_DEL && s.items() == 1)
|
||||
{
|
||||
|
||||
@ -16,7 +16,7 @@ END
|
||||
NUMBER F_NPROGTR 7
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero "
|
||||
FIELD LF_EFFETTI->NPROGTR
|
||||
FIELD NPROGTR
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
USE LF_EFFETTI KEY 1
|
||||
@ -27,11 +27,12 @@ BEGIN
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
DISPLAY "Nr. distinta" NDIST
|
||||
DISPLAY "Ragione Sociale Cliente@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_NPROGTR NPROGTR
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_DATASCAD DATASCAD
|
||||
OUTPUT F_TIPOPAG TIPOPAG
|
||||
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
|
||||
// OUTPUT F_CODCF CODCF
|
||||
// OUTPUT F_DATASCAD DATASCAD
|
||||
// OUTPUT F_TIPOPAG TIPOPAG
|
||||
// OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,10@
|
||||
END
|
||||
@ -39,7 +40,7 @@ END
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 1 2 "Cliente "
|
||||
FIELD LF_EFFETTI->CODCF
|
||||
FIELD CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF
|
||||
@ -71,7 +72,7 @@ END
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data scadenza "
|
||||
FIELD LF_EFFETTI->DATASCAD
|
||||
FIELD DATASCAD
|
||||
KEY 3
|
||||
USE LF_EFFETTI KEY 3
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
@ -90,7 +91,7 @@ END
|
||||
LIST F_TIPOPAG 24
|
||||
BEGIN
|
||||
PROMPT 1 5 "Tipo pagamento "
|
||||
FIELD LF_EFFETTI->TIPOPAG
|
||||
FIELD TIPOPAG
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
@ -104,7 +105,7 @@ END
|
||||
STRING F_ULTCLASS 1
|
||||
BEGIN
|
||||
PROMPT 46 5 "Ulteriore classificazione "
|
||||
FIELD LF_EFFETTI->ULTCLASS
|
||||
FIELD ULTCLASS
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
||||
INPUT CODTAB[2,2] F_ULTCLASS
|
||||
@ -116,7 +117,7 @@ END
|
||||
STRING F_CODVAL 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice valuta "
|
||||
FIELD LF_EFFETTI->CODVAL
|
||||
FIELD CODVAL
|
||||
FLAGS "UZ"
|
||||
USE %VAL
|
||||
INPUT CODTAB F_CODVAL
|
||||
@ -129,7 +130,7 @@ END
|
||||
DATA F_DATACAM
|
||||
BEGIN
|
||||
PROMPT 46 6 "Data cambio "
|
||||
FIELD LF_EFFETTI->DATACAMBIO
|
||||
FIELD DATACAMBIO
|
||||
FLAGS "R"
|
||||
USE CAM
|
||||
INPUT CODTAB[1,3] F_CODVAL SELECT
|
||||
@ -146,7 +147,7 @@ END
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Cambio "
|
||||
FIELD LF_EFFETTI->CAMBIO
|
||||
FIELD CAMBIO
|
||||
FLAGS "RU"
|
||||
PICTURE ".5"
|
||||
CHECKTYPE REQUIRED
|
||||
@ -157,7 +158,7 @@ END
|
||||
BOOLEAN F_ULTRATA
|
||||
BEGIN
|
||||
PROMPT 46 7 "Ultima rata"
|
||||
FIELD LF_EFFETTI->ULTRATA
|
||||
FIELD ULTRATA
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_RIGHE 0 7
|
||||
@ -181,7 +182,7 @@ END
|
||||
NUMBER F_TOTIMP 18 2
|
||||
BEGIN
|
||||
PROMPT 1 17 "Totale importi "
|
||||
FIELD LF_EFFETTI->IMPORTO
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###.###,@@"
|
||||
FLAG "D"
|
||||
END
|
||||
@ -189,7 +190,7 @@ END
|
||||
NUMBER F_TOTIMPVAL 18 3
|
||||
BEGIN
|
||||
PROMPT 1 18 "Totale importi in valuta "
|
||||
FIELD LF_EFFETTI->IMPORTOVAL
|
||||
FIELD IMPORTOVAL
|
||||
PICTURE "###.###.###.###,@@@"
|
||||
FLAG "D"
|
||||
//GROUP 1
|
||||
@ -240,14 +241,13 @@ END
|
||||
NUMBER F_CODABI 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABI
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
FIELD CODABI
|
||||
FLAGS "Z"
|
||||
USE %BAN SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Codice ABI assente"
|
||||
END
|
||||
@ -255,8 +255,8 @@ END
|
||||
NUMBER F_CODCAB 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCAB
|
||||
FLAGS "RZ"
|
||||
FIELD CODCAB
|
||||
FLAGS "Z"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODCAB
|
||||
@ -278,8 +278,8 @@ END
|
||||
NUMBER F_CODABIP 5
|
||||
BEGIN
|
||||
PROMPT 42 6 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABIP
|
||||
FLAGS "RZ"
|
||||
FIELD CODABIP
|
||||
FLAGS "Z"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODABIP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
@ -293,8 +293,8 @@ END
|
||||
NUMBER F_CODCABP 5
|
||||
BEGIN
|
||||
PROMPT 42 7 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCABP
|
||||
FLAGS "RZ"
|
||||
FIELD CODCABP
|
||||
FLAGS "Z"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
||||
INPUT CODTAB[1,5] F_CODABIP
|
||||
INPUT CODTAB[6,10] F_CODCABP
|
||||
@ -311,25 +311,25 @@ END
|
||||
DATE F_DATAEMISS
|
||||
BEGIN
|
||||
PROMPT 1 10 "Data di emissione "
|
||||
FIELD LF_EFFETTI->DATAEMISS
|
||||
FIELD DATAEMISS
|
||||
END
|
||||
|
||||
NUMBER F_NUMEMISS 8
|
||||
BEGIN
|
||||
PROMPT 42 10 "Nr. di emissione "
|
||||
FIELD LF_EFFETTI->NUMEMISS
|
||||
FIELD NUMEMISS
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFSTAMP
|
||||
BEGIN
|
||||
PROMPT 1 11 "Effetto stampato"
|
||||
FIELD LF_EFFETTI->EFFSTAMP
|
||||
FIELD EFFSTAMP
|
||||
END
|
||||
|
||||
LIST F_TIPODIST 15
|
||||
BEGIN
|
||||
PROMPT 1 13 "Tipo distinta "
|
||||
FIELD LF_EFFETTI->TIPODIST
|
||||
FIELD TIPODIST
|
||||
ITEM " | "
|
||||
ITEM "I|All'incasso"
|
||||
ITEM "B|Salvo buon fine"
|
||||
@ -340,7 +340,7 @@ END
|
||||
NUMBER F_NDIST 8
|
||||
BEGIN
|
||||
PROMPT 42 13 "Nr. distinta "
|
||||
FIELD LF_EFFETTI->NDIST
|
||||
FIELD NDIST
|
||||
FLAGS "D"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
|
||||
@ -349,46 +349,46 @@ END
|
||||
DATE F_DATADIST
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data distinta "
|
||||
FIELD LF_EFFETTI->DATADIST
|
||||
FIELD DATADIST
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NRIGADIST 6
|
||||
BEGIN
|
||||
PROMPT 42 14 "Nr. di riga "
|
||||
FIELD LF_EFFETTI->NRIGADIST
|
||||
FIELD NRIGADIST
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_DISTSTAM
|
||||
BEGIN
|
||||
PROMPT 1 15 "Distinta stampata"
|
||||
FIELD LF_EFFETTI->DISTSTAM
|
||||
FIELD DISTSTAM
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATARIBA
|
||||
BEGIN
|
||||
PROMPT 1 17 "Data Ri.Ba. "
|
||||
FIELD LF_EFFETTI->DATARIBA
|
||||
FIELD DATARIBA
|
||||
END
|
||||
|
||||
BOOLEAN F_DISRIBAEST
|
||||
BEGIN
|
||||
PROMPT 42 17 "Distinta Ri.Ba. estratta"
|
||||
FIELD LF_EFFETTI->DISRIBAEST
|
||||
FIELD DISRIBAEST
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCONT
|
||||
BEGIN
|
||||
PROMPT 1 19 "Effetto contabilizzato"
|
||||
FIELD LF_EFFETTI->EFFCONT
|
||||
FIELD EFFCONT
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCOMP
|
||||
BEGIN
|
||||
PROMPT 42 19 "Effetto completato"
|
||||
FIELD LF_EFFETTI->EFFCOMP
|
||||
FIELD EFFCOMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -4,15 +4,15 @@
|
||||
PAGE "Righe Effetto" -1 -1 76 16
|
||||
|
||||
NUMBER F_IMPEFF 14 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Importo effetto "
|
||||
BEGIN
|
||||
PROMPT 2 1 "Importo effetto "
|
||||
PICTURE "###.###.###,@@"
|
||||
// NUM_EXPR #F_IMPFATT>=#F_IMPEFF
|
||||
// WARNING "L'importo dell'effetto non puo' superare l'importo della fattura"
|
||||
END
|
||||
|
||||
NUMBER F_IMPEFFVAL 15 3
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 2 "Imp.effetto val. "
|
||||
PICTURE "###.###.###,@@@"
|
||||
// NUM_EXPR #F_IMPFATTVAL>=#F_IMPEFFVAL
|
||||
@ -20,66 +20,88 @@ BEGIN
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice numeraz. "
|
||||
FIELD LF_REFFETTI->CODNUM
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CODNUM
|
||||
DI "Codice" CODTAB
|
||||
DI "Descrizione@50" S0
|
||||
OUTPUT F_CODNUM CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAG "UA"
|
||||
WARNING "Numerazione assente"
|
||||
END
|
||||
|
||||
LIST F_PROVV 13
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo numerazione "
|
||||
FIELD LF_REFFETTI->PROVV
|
||||
ITEM "D|Definitiva"
|
||||
ITEM "P|Provvisoria"
|
||||
END
|
||||
|
||||
NUMBER F_ANNODOC 4
|
||||
BEGIN
|
||||
NUMBER F_ANNODOC 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "Anno documento "
|
||||
FIELD LF_REFFETTI->ANNODOC
|
||||
END
|
||||
|
||||
STRING F_NUMFATT 7
|
||||
NUMBER F_NUMFATT 6
|
||||
BEGIN
|
||||
PROMPT 2 6 "Nr. fattura "
|
||||
FLAG "R"
|
||||
USE LF_DOC
|
||||
INPUT ANNO F_ANNODOC SELECT
|
||||
INPUT PROVV F_PROVV SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_NUMFATT
|
||||
DISPLAY "Num." CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Provv" PROVV
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "N.Doc. " NDOC
|
||||
OUTPUT F_ANNODOC ANNO
|
||||
OUTPUT F_PROVV PROVV
|
||||
OUTPUT F_CODNUM CODNUM
|
||||
OUTPUT F_NUMFATT NDOC
|
||||
END
|
||||
|
||||
DATA F_DATAFATT
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 7 "Data fattura "
|
||||
END
|
||||
|
||||
NUMBER F_IMPFATT 20 2
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 8 "Importo fattura "
|
||||
PICTURE "###.###.###.###,@@"
|
||||
END
|
||||
|
||||
NUMBER F_IMPFATTVAL 20 3
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 9 "Imp. fatt. val "
|
||||
PICTURE "###.###.###.###,@@@"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 10 "Anno partita "
|
||||
END
|
||||
|
||||
STRING F_NUMPART 7
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 11 "Nr. partita "
|
||||
FLAG "R"
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIGA 4
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 12 "Nr. riga "
|
||||
END
|
||||
|
||||
NUMBER F_NUMRATA 3
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 2 13 "Nr. rata "
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user