diff --git a/sc/sc0100p.uml b/sc/sc0100p.uml index 9cd5a3e98..7d797cf8f 100755 --- a/sc/sc0100p.uml +++ b/sc/sc0100p.uml @@ -1,390 +1,390 @@ -#include "sc0100p.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 10 2 -BEGIN - PROMPT -13 -1 "~Registra" - MESSAGE EXIT,K_SAVE -END - -BUTTON DLG_DELREC 10 2 -BEGIN - PROMPT -23 -1 "~Elimina" - MESSAGE EXIT,K_DEL -END - -BUTTON DLG_CANCEL 10 2 -BEGIN - PROMPT -33 -1 "Annulla" - MESSAGE EXIT,K_ESC -END - -ENDPAGE - -PAGE "Testata" -1 -1 80 25 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "@BMovimento extra-contabile" -END - -NUMBER E_CODDITTA 5 -BEGIN - PROMPT 3 1 "Ditta " - FLAGS "DFGR" - USE LF_NDITTE - INPUT CODDITTA E_CODDITTA - OUTPUT E_RAGSOC RAGSOC - CHECKTYPE NORMAL -END - -STRING E_RAGSOC 50 -BEGIN - PROMPT 17 1 "Ragione " - FLAGS "DG" -END - -DATE E_DATAREG -BEGIN - PROMPT 1 3 "Data operazione " - FIELD LF_PARTITE->DATAREG - CHECKTYPE REQUIRED - WARNING "Data operazione obbligatoria" -END - -DATE E_DATADOC -BEGIN - PROMPT 1 4 "Data documento " - FIELD LF_PARTITE->DATADOC - WARNING "Inserire una data documento non superiore alla data dell'operazione" - VALIDATE DATE_CMP_FUNC <= E_DATAREG -END - -STRING E_NUMDOC 7 -BEGIN - PROMPT 57 4 "Documento n. " - FIELD LF_PARTITE->NUMDOC -END - -LIST E_TIPOMOV 1 20 -BEGIN - PROMPT 1 5 "Tipo movimento " - ITEM "1|Fattura" - ITEM "2|Nota Credito" - ITEM "3|Incasso/Pagamento" - ITEM "5|Insoluto" - ITEM "6|Pagamento insoluto" - FLAGS "D" - FIELD LF_PARTITE->TIPOMOV -END - -STRING E_DESCAGG 5 -BEGIN - PROMPT 1 6 "Descrizione " - FLAGS "UZ" - USE %DPN - INPUT CODTAB E_DESCAGG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT E_DESCAGG CODTAB - OUTPUT E_DESCR S0 - CHECKTYPE NORMAL -END - -STRING E_DESCR 50 -BEGIN - PROMPT 25 6 "" - FIELD LF_PARTITE->DESCR - USE %DPN KEY 2 - INPUT S0 E_DESCR - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT E_DESCAGG - WARNING "La descrizione e' obbligatoria" - VALIDATE NOT_EMPTY_FUNC -END - -LIST E_CLIFO 1 16 -BEGIN - ITEM "C|Cliente" MESSAGE SHOW,1@|HIDE,2@ - ITEM "F|Fornitore" MESSAGE SHOW,2@|HIDE,1@ - FIELD LF_PARTITE->TIPOC - FLAGS "HG" -END - -NUMBER E_CLIENTE 6 -BEGIN - PROMPT 1 8 "Cliente " - FIELD LF_PARTITE->SOTTOCONTO - FLAGS "DG" - GROUP 1 - USE LF_CLIFO - INPUT TIPOCF "C" - INPUT CODCF E_CLIENTE - DISPLAY "Codice" CODCF - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Partita IVA@12" PAIV - DISPLAY "Sospeso" SOSPESO - OUTPUT E_CLIENTE CODCF - OUTPUT E_RAGSOCCLIENTE RAGSOC - OUTPUT E_STATOPAIV STATOPAIV - OUTPUT E_PIVACLIENTE PAIV - OUTPUT E_COFICLIENTE COFI - CHECKTYPE REQUIRED - WARNING "Cliente assente" - ADD RUN cg0 -1 C -END - -NUMBER E_FORNITORE 6 -BEGIN - PROMPT 1 8 "Fornitore " - FIELD LF_PARTITE->SOTTOCONTO - FLAGS "DG" - GROUP 2 - USE LF_CLIFO KEY 1 - INPUT TIPOCF "F" - INPUT CODCF E_FORNITORE - DISPLAY "Codice" CODCF - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Partita IVA@12" PAIV - DISPLAY "Sospeso" SOSPESO - OUTPUT E_FORNITORE CODCF - OUTPUT E_RAGSOCFORNITORE RAGSOC - OUTPUT E_STATOPAIV STATOPAIV - OUTPUT E_PIVAFORNITORE PAIV - OUTPUT E_COFIFORNITORE COFI - CHECKTYPE REQUIRED - WARNING "Fornitore assente" - ADD RUN cg0 -1 F -END - -STRING E_RAGSOCFORNITORE 50 -BEGIN - PROMPT 25 8 "" - FLAGS "D" - GROUP 2 - USE LF_CLIFO KEY 2 - INPUT TIPOCF "F" - INPUT RAGSOC E_RAGSOCFORNITORE - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Partita IVA@12" PAIV - DISPLAY "Codice" CODCF - DISPLAY "Sospeso" SOSPESO - COPY OUTPUT E_FORNITORE - CHECKTYPE REQUIRED - ADD RUN cg0 -1 F -END - -STRING E_RAGSOCCLIENTE 50 -BEGIN - PROMPT 25 8 "" - FLAGS "D" - GROUP 1 - USE LF_CLIFO KEY 2 - INPUT TIPOCF "C" - INPUT RAGSOC E_RAGSOCCLIENTE - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Partita IVA@12" PAIV - DISPLAY "Codice" CODCF - COPY OUTPUT E_CLIENTE - CHECKTYPE REQUIRED - ADD RUN cg0 -1 C -END - -STRING E_COFICLIENTE 16 -BEGIN - PROMPT 1 9 "C.F. " - FLAGS "D" - GROUP 1 - USE LF_CLIFO KEY 4 - INPUT TIPOCF "C" - INPUT COFI E_COFICLIENTE - DISPLAY "Codice fiscale@16" COFI - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Codice" CODCF - COPY OUTPUT E_CLIENTE - CHECKTYPE NORMAL - ADD RUN cg0 -1 C -END - -STRING E_COFIFORNITORE 16 -BEGIN - PROMPT 1 9 "C.F. " - FLAGS "D" - GROUP 2 - USE LF_CLIFO KEY 4 - INPUT TIPOCF "F" - INPUT COFI E_COFIFORNITORE - COPY DISPLAY E_COFICLIENTE - COPY OUTPUT E_FORNITORE - CHECKTYPE NORMAL - ADD RUN cg0 -1 F -END - -STRING E_PIVACLIENTE 12 -BEGIN - PROMPT 28 9 "Partita IVA " - FLAGS "D" - GROUP 1 - USE LF_CLIFO KEY 5 - INPUT TIPOCF "C" - INPUT STATOPAIV E_STATOPAIV - INPUT PAIV E_PIVACLIENTE - DISPLAY "Partita IVA@12" PAIV - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Codice" CODCF - COPY OUTPUT E_CLIENTE - CHECKTYPE NORMAL - ADD RUN cg0 -1 C -END - -STRING E_PIVAFORNITORE 12 -BEGIN - PROMPT 28 9 "Partita IVA " - FLAGS "D" - GROUP 2 - USE LF_CLIFO KEY 5 - INPUT TIPOCF "F" - INPUT STATOPAIV E_STATOPAIV - INPUT PAIV E_PIVAFORNITORE - COPY DISPLAY E_PIVACLIENTE - COPY OUTPUT E_FORNITORE - CHECKTYPE NORMAL - ADD RUN cg0 -1 F -END - -LIST E_STATOPAIV 18 -BEGIN - PROMPT 57 9 "" - FLAGS "D" - ITEM " |Italia o extra CEE" - ITEM "BE|Belgio" - ITEM "DE|Germania" - ITEM "DK|Danimarca" - ITEM "EL|Grecia" - ITEM "ES|Spagna" - ITEM "FR|Francia" - ITEM "GB|Gran Bretagna" - ITEM "IE|Irlanda" - ITEM "IT|Italia" - ITEM "LU|Lussemburgo" - ITEM "NL|Olanda" - ITEM "PT|Portogallo" - GROUP 1 -END - -STRING E_CODPAG 4 -BEGIN - PROMPT 1 11 "Codice Pagamento " - FLAGS "U#" - USE %CPG - INPUT CODTAB E_CODPAG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT E_CODPAG CODTAB - OUTPUT E_DESPAG S0 - CHECKTYPE REQUIRED - WARNING "Codice pagamento assente" - ADD RUN ba3 -6 -END - -STRING E_DESPAG 50 -BEGIN - PROMPT 27 11 "" - FLAGS "D" -END - -STRING E_VALUTA 3 -BEGIN - PROMPT 1 12 "Valuta " - FIELD LF_PARTITE->CODVAL - FLAGS "UZ" - GROUP 3 - USE %VAL - INPUT CODTAB E_VALUTA - DISPLAY "Codice" CODTAB - DISPLAY "Nome@50" S0 - OUTPUT E_VALUTA CODTAB - CHECKTYPE NORMAL - WARNING "Codice valuta assente" -END - -DATE E_DATACAMBIO -BEGIN - PROMPT 28 12 "Data cambio " - FIELD LF_PARTITE->DATACAM - FLAGS "R" - USE CAM - INPUT CODTAB[1,3] E_VALUTA SELECT - INPUT CODTAB[4,11] E_DATACAMBIO - DISPLAY "Valuta" CODTAB[1,3] - DISPLAY "Data@10" D0 - DISPLAY "Cambio@18" R10 - OUTPUT E_DATACAMBIO D0 - OUTPUT E_CAMBIO R10 - GROUP 3 - CHECKTYPE SEARCH -END - -NUMBER E_CAMBIO 15 5 -BEGIN - PROMPT 55 12 "Cambio " - FIELD LF_PARTITE->CAMBIO - FLAGS "RU" - GROUP 3 - PICTURE ".5" - CHECKTYPE REQUIRED -END - -LIST E_SEZIONE 1 8 -BEGIN - PROMPT 1 13 "Sezione " - ITEM "A|Avere" - ITEM "D|Dare" - FIELD LF_PARTITE->SEZ -END - -NUMBER E_TOTALE 15 -BEGIN - PROMPT 1 14 "Totale documento " - FIELD LF_PARTITE->IMPTOTDOC - PICTURE "." -END - -NUMBER E_TOTDOCVAL 15 3 -BEGIN - PROMPT 35 14 "Tot. in valuta " - FIELD LF_PARTITE->IMPTOTVAL - GROUP 3 - PICTURE ".3" - VALIDATE REQIF_FUNC 1 E_TOTALE -END - -NUMBER E_IMPOSTE 15 -BEGIN - PROMPT 1 15 "Imposte " - FIELD LF_PARTITE->IMPOSTA - PICTURE "." -END - -NUMBER E_ANNORIF 4 -BEGIN - PROMPT 50 16 "Rif.partita " - CHECKTYPE REQUIRED - WARNING "L'anno di riferimento e' obbligatorio" - FIELD LF_PARTITE->ANNO - FLAGS "U" -END - -STRING E_NUMRIF 7 -BEGIN - PROMPT 68 16 "/ " - CHECKTYPE REQUIRED - WARNING "Il numero di riferimento e' obbligatorio" - FIELD LF_PARTITE->NUMPART - FLAGS "U#" -END - -ENDPAGE - +#include "sc0100p.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 10 2 +BEGIN + PROMPT -13 -1 "~Registra" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_DELREC 10 2 +BEGIN + PROMPT -23 -1 "~Elimina" + MESSAGE EXIT,K_DEL +END + +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT -33 -1 "Annulla" + MESSAGE EXIT,K_ESC +END + +ENDPAGE + +PAGE "Testata" -1 -1 80 25 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "@BMovimento extra-contabile" +END + +NUMBER E_CODDITTA 5 +BEGIN + PROMPT 3 1 "Ditta " + FLAGS "DFGR" + USE LF_NDITTE + INPUT CODDITTA E_CODDITTA + OUTPUT E_RAGSOC RAGSOC + CHECKTYPE NORMAL +END + +STRING E_RAGSOC 50 +BEGIN + PROMPT 17 1 "Ragione " + FLAGS "DG" +END + +DATE E_DATAREG +BEGIN + PROMPT 1 3 "Data operazione " + FIELD LF_PARTITE->DATAREG + CHECKTYPE REQUIRED + WARNING "Data operazione obbligatoria" +END + +DATE E_DATADOC +BEGIN + PROMPT 1 4 "Data documento " + FIELD LF_PARTITE->DATADOC + WARNING "Inserire una data documento non superiore alla data dell'operazione" + VALIDATE DATE_CMP_FUNC <= E_DATAREG +END + +STRING E_NUMDOC 7 +BEGIN + PROMPT 57 4 "Documento n. " + FIELD LF_PARTITE->NUMDOC +END + +LIST E_TIPOMOV 1 20 +BEGIN + PROMPT 1 5 "Tipo movimento " + ITEM "1|Fattura" + ITEM "2|Nota Credito" + ITEM "3|Incasso/Pagamento" + ITEM "5|Insoluto" + ITEM "6|Pagamento insoluto" + FLAGS "D" + FIELD LF_PARTITE->TIPOMOV +END + +STRING E_DESCAGG 5 +BEGIN + PROMPT 1 6 "Descrizione " + FLAGS "UZ" + USE %DPN + INPUT CODTAB E_DESCAGG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT E_DESCAGG CODTAB + OUTPUT E_DESCR S0 + CHECKTYPE NORMAL +END + +STRING E_DESCR 50 +BEGIN + PROMPT 25 6 "" + FIELD LF_PARTITE->DESCR + USE %DPN KEY 2 + INPUT S0 E_DESCR + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT E_DESCAGG + WARNING "La descrizione e' obbligatoria" + VALIDATE NOT_EMPTY_FUNC +END + +LIST E_CLIFO 1 16 +BEGIN + ITEM "C|Cliente" MESSAGE SHOW,1@|HIDE,2@ + ITEM "F|Fornitore" MESSAGE SHOW,2@|HIDE,1@ + FIELD LF_PARTITE->TIPOC + FLAGS "HG" +END + +NUMBER E_CLIENTE 6 +BEGIN + PROMPT 1 8 "Cliente " + FIELD LF_PARTITE->SOTTOCONTO + FLAGS "DG" + GROUP 1 + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF E_CLIENTE + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Partita IVA@12" PAIV + DISPLAY "Sospeso" SOSPESO + OUTPUT E_CLIENTE CODCF + OUTPUT E_RAGSOCCLIENTE RAGSOC + OUTPUT E_STATOPAIV STATOPAIV + OUTPUT E_PIVACLIENTE PAIV + OUTPUT E_COFICLIENTE COFI + CHECKTYPE REQUIRED + WARNING "Cliente assente" + ADD RUN cg0 -1 C +END + +NUMBER E_FORNITORE 6 +BEGIN + PROMPT 1 8 "Fornitore " + FIELD LF_PARTITE->SOTTOCONTO + FLAGS "DG" + GROUP 2 + USE LF_CLIFO KEY 1 + INPUT TIPOCF "F" + INPUT CODCF E_FORNITORE + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Partita IVA@12" PAIV + DISPLAY "Sospeso" SOSPESO + OUTPUT E_FORNITORE CODCF + OUTPUT E_RAGSOCFORNITORE RAGSOC + OUTPUT E_STATOPAIV STATOPAIV + OUTPUT E_PIVAFORNITORE PAIV + OUTPUT E_COFIFORNITORE COFI + CHECKTYPE REQUIRED + WARNING "Fornitore assente" + ADD RUN cg0 -1 F +END + +STRING E_RAGSOCFORNITORE 50 +BEGIN + PROMPT 25 8 "" + FLAGS "D" + GROUP 2 + USE LF_CLIFO KEY 2 + INPUT TIPOCF "F" + INPUT RAGSOC E_RAGSOCFORNITORE + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Partita IVA@12" PAIV + DISPLAY "Codice" CODCF + DISPLAY "Sospeso" SOSPESO + COPY OUTPUT E_FORNITORE + CHECKTYPE REQUIRED + ADD RUN cg0 -1 F +END + +STRING E_RAGSOCCLIENTE 50 +BEGIN + PROMPT 25 8 "" + FLAGS "D" + GROUP 1 + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC E_RAGSOCCLIENTE + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Partita IVA@12" PAIV + DISPLAY "Codice" CODCF + COPY OUTPUT E_CLIENTE + CHECKTYPE REQUIRED + ADD RUN cg0 -1 C +END + +STRING E_COFICLIENTE 16 +BEGIN + PROMPT 1 9 "C.F. " + FLAGS "D" + GROUP 1 + USE LF_CLIFO KEY 4 + INPUT TIPOCF "C" + INPUT COFI E_COFICLIENTE + DISPLAY "Codice fiscale@16" COFI + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice" CODCF + COPY OUTPUT E_CLIENTE + CHECKTYPE NORMAL + ADD RUN cg0 -1 C +END + +STRING E_COFIFORNITORE 16 +BEGIN + PROMPT 1 9 "C.F. " + FLAGS "D" + GROUP 2 + USE LF_CLIFO KEY 4 + INPUT TIPOCF "F" + INPUT COFI E_COFIFORNITORE + COPY DISPLAY E_COFICLIENTE + COPY OUTPUT E_FORNITORE + CHECKTYPE NORMAL + ADD RUN cg0 -1 F +END + +STRING E_PIVACLIENTE 12 +BEGIN + PROMPT 28 9 "Partita IVA " + FLAGS "D" + GROUP 1 + USE LF_CLIFO KEY 5 + INPUT TIPOCF "C" + INPUT STATOPAIV E_STATOPAIV + INPUT PAIV E_PIVACLIENTE + DISPLAY "Partita IVA@12" PAIV + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice" CODCF + COPY OUTPUT E_CLIENTE + CHECKTYPE NORMAL + ADD RUN cg0 -1 C +END + +STRING E_PIVAFORNITORE 12 +BEGIN + PROMPT 28 9 "Partita IVA " + FLAGS "D" + GROUP 2 + USE LF_CLIFO KEY 5 + INPUT TIPOCF "F" + INPUT STATOPAIV E_STATOPAIV + INPUT PAIV E_PIVAFORNITORE + COPY DISPLAY E_PIVACLIENTE + COPY OUTPUT E_FORNITORE + CHECKTYPE NORMAL + ADD RUN cg0 -1 F +END + +LIST E_STATOPAIV 18 +BEGIN + PROMPT 57 9 "" + FLAGS "D" + ITEM " |Italia o extra CEE" + ITEM "BE|Belgio" + ITEM "DE|Germania" + ITEM "DK|Danimarca" + ITEM "EL|Grecia" + ITEM "ES|Spagna" + ITEM "FR|Francia" + ITEM "GB|Gran Bretagna" + ITEM "IE|Irlanda" + ITEM "IT|Italia" + ITEM "LU|Lussemburgo" + ITEM "NL|Olanda" + ITEM "PT|Portogallo" + GROUP 1 +END + +STRING E_CODPAG 4 +BEGIN + PROMPT 1 11 "Codice Pagamento " + FLAGS "U#" + USE %CPG + INPUT CODTAB E_CODPAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT E_CODPAG CODTAB + OUTPUT E_DESPAG S0 + CHECKTYPE REQUIRED + WARNING "Codice pagamento assente" + ADD RUN ba3 -6 +END + +STRING E_DESPAG 50 +BEGIN + PROMPT 27 11 "" + FLAGS "D" +END + +STRING E_VALUTA 3 +BEGIN + PROMPT 1 12 "Valuta " + FIELD LF_PARTITE->CODVAL + FLAGS "UZ" + GROUP 3 + USE %VAL + INPUT CODTAB E_VALUTA + DISPLAY "Codice" CODTAB + DISPLAY "Nome@50" S0 + OUTPUT E_VALUTA CODTAB + CHECKTYPE NORMAL + WARNING "Codice valuta assente" +END + +DATE E_DATACAMBIO +BEGIN + PROMPT 28 12 "Data cambio " + FIELD LF_PARTITE->DATACAM + FLAGS "R" + USE CAM + INPUT CODTAB[1,3] E_VALUTA SELECT + INPUT CODTAB[4,11] E_DATACAMBIO + DISPLAY "Valuta" CODTAB[1,3] + DISPLAY "Data@10" D0 + DISPLAY "Cambio@18" R10 + OUTPUT E_DATACAMBIO D0 + OUTPUT E_CAMBIO R10 + GROUP 3 + CHECKTYPE SEARCH +END + +NUMBER E_CAMBIO 15 5 +BEGIN + PROMPT 55 12 "Cambio " + FIELD LF_PARTITE->CAMBIO + FLAGS "RU" + GROUP 3 + PICTURE ".5" + CHECKTYPE REQUIRED +END + +LIST E_SEZIONE 1 8 +BEGIN + PROMPT 1 13 "Sezione " + ITEM "A|Avere" + ITEM "D|Dare" + FIELD LF_PARTITE->SEZ +END + +NUMBER E_TOTALE 15 +BEGIN + PROMPT 1 14 "Totale documento " + FIELD LF_PARTITE->IMPTOTDOC + PICTURE "." +END + +NUMBER E_TOTDOCVAL 15 3 +BEGIN + PROMPT 35 14 "Tot. in valuta " + FIELD LF_PARTITE->IMPTOTVAL + GROUP 3 + PICTURE ".3" + VALIDATE REQIF_FUNC 1 E_TOTALE +END + +NUMBER E_IMPOSTE 15 +BEGIN + PROMPT 1 15 "Imposte " + FIELD LF_PARTITE->IMPOSTA + PICTURE "." +END + +NUMBER E_ANNORIF 4 +BEGIN + PROMPT 50 16 "Rif.partita " + CHECKTYPE REQUIRED + WARNING "L'anno di riferimento e' obbligatorio" + FIELD LF_PARTITE->ANNO + FLAGS "U" +END + +STRING E_NUMRIF 7 +BEGIN + PROMPT 68 16 "/ " + CHECKTYPE REQUIRED + WARNING "Il numero di riferimento e' obbligatorio" + FIELD LF_PARTITE->NUMPART + FLAGS "U#" +END + +ENDPAGE + diff --git a/sc/sc0101.cpp b/sc/sc0101.cpp index 664045d5e..56712c003 100755 --- a/sc/sc0101.cpp +++ b/sc/sc0101.cpp @@ -926,7 +926,7 @@ bool TGame_mask::edit_fattura(TPartita& p, int nriga) TFattura_mask fm(f); const KEY k = fm.run(); bool updated = FALSE; - if (k == K_SAVE) + if (k == K_SAVE || k == K_ENTER) { fm.write_scadenze(); updated = TRUE;