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

Errore aga007

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4318 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-05-02 15:37:37 +00:00
parent 7a9e083c22
commit 2bbed52028
3 changed files with 82 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ef/ef0100.cpp
View File

@ -132,7 +132,7 @@ void TVariazione_effetti::common_f(const TMask& m)
for (i = 0; i < items; i++) for (i = 0; i < items; i++)
{ {
TToken_string& row = shrighe.row(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 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);
@ -203,11 +203,7 @@ int TVariazione_effetti::read(TMask& m)
riga.add(rec.get(REFF_IMPORTO)); riga.add(rec.get(REFF_IMPORTO));
riga.add(rec.get(REFF_IMPORTOVAL)); riga.add(rec.get(REFF_IMPORTOVAL));
riga.add(rec.get(REFF_CODNUM)); riga.add(rec.get(REFF_CODNUM));
char tipo_num = rec.get(REFF_PROVV)[0]; riga.add(rec.get(REFF_PROVV));
if (tipo_num == 'D')
riga.add("Definitiva");
else
riga.add("Provvisoria");
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));
@ -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 for (int i = 0; i < items && !found; i++)// scandisco tutte le righe dello sheet
{ {
TToken_string& row = sf.row(i); 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 // controlla che le righe abbiano un importo
if (imp_eff != 0.0) found = TRUE; if (imp_eff != 0.0) found = TRUE;
} }
@ -352,9 +348,9 @@ void TVariazione_effetti::calcola_totali()
for (int i = 0; i < items; i++) for (int i = 0; i < items; i++)
{ {
TToken_string& row = sf.row(i); TToken_string& row = sf.row(i);
imp = row.get(1); imp = row.get(sf.cid2index(F_IMPEFF));
impeff += imp; impeff += imp;
impval = row.get(3); impval = row.get(sf.cid2index(F_IMPEFFVAL));
impeffval += impval; impeffval += impval;
} }
m->set(F_TOTIMP, impeff); m->set(F_TOTIMP, impeff);
@ -369,15 +365,12 @@ bool TVariazione_effetti::impeff_notify(TSheet_field& s, int r, KEY key)
{ {
calcola_totali(); calcola_totali();
} }
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(3)[0]; char tipo_num = row.get(sf.cid2index(F_PROVVF))[0];
if (tipo_num == 'D')
row.add("Definitiva", 3);
else
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)
{ {

74
ef/ef0100a.uml
View File

@ -16,7 +16,7 @@ END
NUMBER F_NPROGTR 7 NUMBER F_NPROGTR 7
BEGIN BEGIN
PROMPT 1 1 "Numero " PROMPT 1 1 "Numero "
FIELD LF_EFFETTI->NPROGTR FIELD NPROGTR
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
USE LF_EFFETTI KEY 1 USE LF_EFFETTI KEY 1
@ -27,11 +27,12 @@ BEGIN
DISPLAY "Data scadenza" DATASCAD DISPLAY "Data scadenza" DATASCAD
DISPLAY "Tipo distinta" TIPODIST DISPLAY "Tipo distinta" TIPODIST
DISPLAY "Nr. distinta" NDIST DISPLAY "Nr. distinta" NDIST
DISPLAY "Ragione Sociale Cliente@50" LF_CLIFO->RAGSOC
OUTPUT F_NPROGTR NPROGTR OUTPUT F_NPROGTR NPROGTR
OUTPUT F_CODCF CODCF // OUTPUT F_CODCF CODCF
OUTPUT F_DATASCAD DATASCAD // OUTPUT F_DATASCAD DATASCAD
OUTPUT F_TIPOPAG TIPOPAG // OUTPUT F_TIPOPAG TIPOPAG
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC // OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,10@ MESSAGE COPY,10@
END END
@ -39,7 +40,7 @@ END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 1 2 "Cliente " PROMPT 1 2 "Cliente "
FIELD LF_EFFETTI->CODCF FIELD CODCF
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
@ -71,7 +72,7 @@ END
DATE F_DATASCAD DATE F_DATASCAD
BEGIN BEGIN
PROMPT 1 3 "Data scadenza " PROMPT 1 3 "Data scadenza "
FIELD LF_EFFETTI->DATASCAD FIELD DATASCAD
KEY 3 KEY 3
USE LF_EFFETTI KEY 3 USE LF_EFFETTI KEY 3
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
@ -90,7 +91,7 @@ END
LIST F_TIPOPAG 24 LIST F_TIPOPAG 24
BEGIN BEGIN
PROMPT 1 5 "Tipo pagamento " PROMPT 1 5 "Tipo pagamento "
FIELD LF_EFFETTI->TIPOPAG FIELD TIPOPAG
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
@ -104,7 +105,7 @@ END
STRING F_ULTCLASS 1 STRING F_ULTCLASS 1
BEGIN BEGIN
PROMPT 46 5 "Ulteriore classificazione " PROMPT 46 5 "Ulteriore classificazione "
FIELD LF_EFFETTI->ULTCLASS FIELD ULTCLASS
USE %CLR USE %CLR
INPUT CODTAB[1,1] F_TIPOPAG SELECT INPUT CODTAB[1,1] F_TIPOPAG SELECT
INPUT CODTAB[2,2] F_ULTCLASS INPUT CODTAB[2,2] F_ULTCLASS
@ -116,7 +117,7 @@ END
STRING F_CODVAL 3 STRING F_CODVAL 3
BEGIN BEGIN
PROMPT 1 6 "Codice valuta " PROMPT 1 6 "Codice valuta "
FIELD LF_EFFETTI->CODVAL FIELD CODVAL
FLAGS "UZ" FLAGS "UZ"
USE %VAL USE %VAL
INPUT CODTAB F_CODVAL INPUT CODTAB F_CODVAL
@ -129,7 +130,7 @@ END
DATA F_DATACAM DATA F_DATACAM
BEGIN BEGIN
PROMPT 46 6 "Data cambio " PROMPT 46 6 "Data cambio "
FIELD LF_EFFETTI->DATACAMBIO FIELD DATACAMBIO
FLAGS "R" FLAGS "R"
USE CAM USE CAM
INPUT CODTAB[1,3] F_CODVAL SELECT INPUT CODTAB[1,3] F_CODVAL SELECT
@ -146,7 +147,7 @@ END
NUMBER F_CAMBIO 15 5 NUMBER F_CAMBIO 15 5
BEGIN BEGIN
PROMPT 1 7 "Cambio " PROMPT 1 7 "Cambio "
FIELD LF_EFFETTI->CAMBIO FIELD CAMBIO
FLAGS "RU" FLAGS "RU"
PICTURE ".5" PICTURE ".5"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -157,7 +158,7 @@ END
BOOLEAN F_ULTRATA BOOLEAN F_ULTRATA
BEGIN BEGIN
PROMPT 46 7 "Ultima rata" PROMPT 46 7 "Ultima rata"
FIELD LF_EFFETTI->ULTRATA FIELD ULTRATA
END END
SPREADSHEET F_SHEET_RIGHE 0 7 SPREADSHEET F_SHEET_RIGHE 0 7
@ -181,7 +182,7 @@ END
NUMBER F_TOTIMP 18 2 NUMBER F_TOTIMP 18 2
BEGIN BEGIN
PROMPT 1 17 "Totale importi " PROMPT 1 17 "Totale importi "
FIELD LF_EFFETTI->IMPORTO FIELD IMPORTO
PICTURE "###.###.###.###,@@" PICTURE "###.###.###.###,@@"
FLAG "D" FLAG "D"
END END
@ -189,7 +190,7 @@ END
NUMBER F_TOTIMPVAL 18 3 NUMBER F_TOTIMPVAL 18 3
BEGIN BEGIN
PROMPT 1 18 "Totale importi in valuta " PROMPT 1 18 "Totale importi in valuta "
FIELD LF_EFFETTI->IMPORTOVAL FIELD IMPORTOVAL
PICTURE "###.###.###.###,@@@" PICTURE "###.###.###.###,@@@"
FLAG "D" FLAG "D"
//GROUP 1 //GROUP 1
@ -240,14 +241,13 @@ END
NUMBER F_CODABI 5 NUMBER F_CODABI 5
BEGIN BEGIN
PROMPT 1 6 "Codice ABI " PROMPT 1 6 "Codice ABI "
FIELD LF_EFFETTI->CODABI FIELD CODABI
FLAGS "RZ" FLAGS "Z"
USE %BAN KEY 1 SELECT CODTAB ?= "?????" USE %BAN SELECT CODTAB ?= "?????"
INPUT CODTAB F_CODABI INPUT CODTAB F_CODABI
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Codice ABI assente" WARNING "Codice ABI assente"
END END
@ -255,8 +255,8 @@ END
NUMBER F_CODCAB 5 NUMBER F_CODCAB 5
BEGIN BEGIN
PROMPT 1 7 "Codice CAB " PROMPT 1 7 "Codice CAB "
FIELD LF_EFFETTI->CODCAB FIELD CODCAB
FLAGS "RZ" FLAGS "Z"
USE %BAN KEY 1 SELECT CODTAB ?= "??????????" USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODCAB INPUT CODTAB[6,10] F_CODCAB
@ -278,8 +278,8 @@ END
NUMBER F_CODABIP 5 NUMBER F_CODABIP 5
BEGIN BEGIN
PROMPT 42 6 "Codice ABI " PROMPT 42 6 "Codice ABI "
FIELD LF_EFFETTI->CODABIP FIELD CODABIP
FLAGS "RZ" FLAGS "Z"
USE %BAN KEY 1 SELECT CODTAB ?= "?????" USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB F_CODABIP INPUT CODTAB F_CODABIP
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
@ -293,8 +293,8 @@ END
NUMBER F_CODCABP 5 NUMBER F_CODCABP 5
BEGIN BEGIN
PROMPT 42 7 "Codice CAB " PROMPT 42 7 "Codice CAB "
FIELD LF_EFFETTI->CODCABP FIELD CODCABP
FLAGS "RZ" FLAGS "Z"
USE %BAN KEY 1 SELECT CODTAB ?= "??????????" USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
INPUT CODTAB[1,5] F_CODABIP INPUT CODTAB[1,5] F_CODABIP
INPUT CODTAB[6,10] F_CODCABP INPUT CODTAB[6,10] F_CODCABP
@ -311,25 +311,25 @@ END
DATE F_DATAEMISS DATE F_DATAEMISS
BEGIN BEGIN
PROMPT 1 10 "Data di emissione " PROMPT 1 10 "Data di emissione "
FIELD LF_EFFETTI->DATAEMISS FIELD DATAEMISS
END END
NUMBER F_NUMEMISS 8 NUMBER F_NUMEMISS 8
BEGIN BEGIN
PROMPT 42 10 "Nr. di emissione " PROMPT 42 10 "Nr. di emissione "
FIELD LF_EFFETTI->NUMEMISS FIELD NUMEMISS
END END
BOOLEAN F_EFFSTAMP BOOLEAN F_EFFSTAMP
BEGIN BEGIN
PROMPT 1 11 "Effetto stampato" PROMPT 1 11 "Effetto stampato"
FIELD LF_EFFETTI->EFFSTAMP FIELD EFFSTAMP
END END
LIST F_TIPODIST 15 LIST F_TIPODIST 15
BEGIN BEGIN
PROMPT 1 13 "Tipo distinta " PROMPT 1 13 "Tipo distinta "
FIELD LF_EFFETTI->TIPODIST FIELD TIPODIST
ITEM " | " ITEM " | "
ITEM "I|All'incasso" ITEM "I|All'incasso"
ITEM "B|Salvo buon fine" ITEM "B|Salvo buon fine"
@ -340,7 +340,7 @@ END
NUMBER F_NDIST 8 NUMBER F_NDIST 8
BEGIN BEGIN
PROMPT 42 13 "Nr. distinta " PROMPT 42 13 "Nr. distinta "
FIELD LF_EFFETTI->NDIST FIELD NDIST
FLAGS "D" FLAGS "D"
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta" WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
@ -349,46 +349,46 @@ END
DATE F_DATADIST DATE F_DATADIST
BEGIN BEGIN
PROMPT 1 14 "Data distinta " PROMPT 1 14 "Data distinta "
FIELD LF_EFFETTI->DATADIST FIELD DATADIST
FLAGS "D" FLAGS "D"
END END
NUMBER F_NRIGADIST 6 NUMBER F_NRIGADIST 6
BEGIN BEGIN
PROMPT 42 14 "Nr. di riga " PROMPT 42 14 "Nr. di riga "
FIELD LF_EFFETTI->NRIGADIST FIELD NRIGADIST
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_DISTSTAM BOOLEAN F_DISTSTAM
BEGIN BEGIN
PROMPT 1 15 "Distinta stampata" PROMPT 1 15 "Distinta stampata"
FIELD LF_EFFETTI->DISTSTAM FIELD DISTSTAM
FLAGS "D" FLAGS "D"
END END
DATE F_DATARIBA DATE F_DATARIBA
BEGIN BEGIN
PROMPT 1 17 "Data Ri.Ba. " PROMPT 1 17 "Data Ri.Ba. "
FIELD LF_EFFETTI->DATARIBA FIELD DATARIBA
END END
BOOLEAN F_DISRIBAEST BOOLEAN F_DISRIBAEST
BEGIN BEGIN
PROMPT 42 17 "Distinta Ri.Ba. estratta" PROMPT 42 17 "Distinta Ri.Ba. estratta"
FIELD LF_EFFETTI->DISRIBAEST FIELD DISRIBAEST
END END
BOOLEAN F_EFFCONT BOOLEAN F_EFFCONT
BEGIN BEGIN
PROMPT 1 19 "Effetto contabilizzato" PROMPT 1 19 "Effetto contabilizzato"
FIELD LF_EFFETTI->EFFCONT FIELD EFFCONT
END END
BOOLEAN F_EFFCOMP BOOLEAN F_EFFCOMP
BEGIN BEGIN
PROMPT 42 19 "Effetto completato" PROMPT 42 19 "Effetto completato"
FIELD LF_EFFETTI->EFFCOMP FIELD EFFCOMP
END END
ENDPAGE ENDPAGE

52
ef/ef0100c.uml
View File

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