Aggiornati form deleghe irpef

git-svn-id: svn://10.65.10.50/trunk@1415 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-05-30 15:59:16 +00:00
parent 060e7ab6fb
commit 065406728e
5 changed files with 355 additions and 331 deletions

View File

@ -17,7 +17,7 @@
class TPicture_mask : public TMask
{
TImage & _image;
TImage& _image;
protected:
virtual void handler(WINDOW win, EVENT* ep);
@ -74,7 +74,6 @@ class TMenu_application : public TApplication
TArray _modules, _images;
int _level, _max;
/* bool _ditta_asked; */
static int _last_button;
static bool _find_button;
@ -188,11 +187,6 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
}
else
{
// if (!flagcom)
// {
// dir.len() = 0;
// rec.zero();
// }
dir.put(i, _nordir, _sysdirop);
rec.put(i);
}
@ -570,7 +564,7 @@ bool TMenu_application::menu(MENU_TAG)
{
const TString16 flags(row.get());
if (flags.find('F') >= 0)
/*_ditta_asked = */ ok = set_firm();
ok = set_firm();
if (ok)
{
refarray[i++] = _level;

View File

@ -113,7 +113,7 @@ bool TEdit_file::browse(int logicnum, const char* name)
if (yesno_box("Confermare la cancellazione del record"))
cursor.file().remove();
break;
case K_INS: // insert new record
case K_CTRL+'N': // insert new record
curr.zero();
if (edit_record(curr,FALSE) == K_ENTER)
cursor.file().write();

View File

@ -20,9 +20,9 @@ LIST F_CLASS 10
BEGIN
PROMPT 1 1 "Tipo "
FLAGS "G"
ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
ITEM "DATA|Data" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|SHOW,8@
ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
ITEM "DATA|Data" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|SHOW,8@
ITEM "LISTA|Lista" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
ITEM "GRUPPO|Gruppo" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
ITEM "LINEA|Linea" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
@ -170,7 +170,6 @@ BEGIN
PROMPT 2 12 "Archivio "
HELP "Nome dell'archivio relativo al campo"
FLAGS "D"
GROUP 7
END
BUTTON F_BUT_FILE1 2 1
@ -185,7 +184,6 @@ BEGIN
PROMPT 2 13 "Campo 1 "
HELP "Nome del campo su file"
FLAGS "D"
GROUP 7
END
BUTTON F_BUT_FIELD1 2 1
@ -199,7 +197,6 @@ STRING F_FIELDREF1 16
BEGIN
PROMPT 60 14 ""
FLAGS "D"
GROUP 7
END
NUMBER F_FROM1 2
@ -222,7 +219,6 @@ BEGIN
PROMPT 2 15 "Archivio "
HELP "Nome dell'archivio relativo al campo"
FLAGS "D"
GROUP 7
END
BUTTON F_BUT_FILE2 2 1
@ -237,7 +233,6 @@ BEGIN
PROMPT 2 16 "Campo 2 "
HELP "Nome del campo su file"
FLAGS "D"
GROUP 7
END
BUTTON F_BUT_FIELD2 2 1
@ -251,7 +246,6 @@ STRING F_FIELDREF2 16
BEGIN
PROMPT 60 17 ""
FLAGS "D"
GROUP 7
END
NUMBER F_FROM2 2

View File

@ -80,7 +80,7 @@ BEGIN
KEY "DATA DI NASCITA"
PROMPT 5 18 ""
GROUP 1
PICTURE "# #~# #~~# # #"
PICTURE "# #^# #^^# # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
@ -177,7 +177,7 @@ BEGIN
PROMPT 32 26 ""
GROUP 6
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R0
END
@ -187,7 +187,7 @@ BEGIN
PROMPT 46 26 ""
GROUP 6
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R7
END
@ -197,8 +197,7 @@ BEGIN
PROMPT 64 26 ""
GROUP 6 10
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
FIELD R0
PICTURE "###.###.###^^^"
END
NUMERO 25
@ -223,7 +222,7 @@ BEGIN
PROMPT 32 28 ""
GROUP 6
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R1
END
@ -233,7 +232,7 @@ BEGIN
PROMPT 46 28 ""
GROUP 6
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R8
END
@ -243,8 +242,7 @@ BEGIN
PROMPT 64 28 ""
GROUP 6 11
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
FIELD R1
PICTURE "###.###.###^^^"
END
NUMERO 30
@ -269,7 +267,7 @@ BEGIN
PROMPT 32 30 ""
GROUP 6
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R2
END
@ -279,7 +277,7 @@ BEGIN
PROMPT 46 30 ""
GROUP 6
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R9
END
@ -289,8 +287,7 @@ BEGIN
PROMPT 64 30 ""
GROUP 6 12
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
FIELD R2
PICTURE "###.###.###^^^"
END
NUMERO 35
@ -315,7 +312,7 @@ BEGIN
PROMPT 32 32 ""
GROUP 6
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R3
END
@ -325,7 +322,7 @@ BEGIN
PROMPT 46 32 ""
GROUP 6
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R10
END
@ -335,7 +332,7 @@ BEGIN
PROMPT 64 32 ""
GROUP 6 13
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
GRUPPO -1
@ -371,7 +368,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R0
END
@ -382,7 +379,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R7
END
@ -393,7 +390,7 @@ BEGIN
GROUP 7 10
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 46
@ -421,7 +418,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R1
END
@ -432,7 +429,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R8
END
@ -443,7 +440,7 @@ BEGIN
GROUP 7 11
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 51
@ -471,7 +468,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R2
END
@ -482,7 +479,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R9
END
@ -493,7 +490,7 @@ BEGIN
GROUP 7 12
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 56
@ -521,7 +518,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R3
END
@ -532,7 +529,7 @@ BEGIN
GROUP 7
FLAGS "DH"
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R10
END
@ -543,7 +540,7 @@ BEGIN
GROUP 7 13
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
GRUPPO -1
@ -579,7 +576,7 @@ BEGIN
GROUP 8
FLAGS "DH"
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R2
END
@ -590,7 +587,7 @@ BEGIN
GROUP 8
FLAGS "DH"
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R9
END
@ -601,7 +598,7 @@ BEGIN
GROUP 8 12
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 67
@ -629,7 +626,7 @@ BEGIN
GROUP 8
FLAGS "DH"
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R3
END
@ -640,7 +637,7 @@ BEGIN
GROUP 8
FLAGS "DH"
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R10
END
@ -651,7 +648,7 @@ BEGIN
GROUP 8 13
FLAGS "DH"
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
GRUPPO -1
@ -679,7 +676,7 @@ BEGIN
KEY "TRIBUTO 1: IMPORTO"
PROMPT 32 50 ""
MESSAGE COPY,14@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R4
END
@ -688,7 +685,7 @@ BEGIN
KEY "TRIBUTO 1: INTERESSI"
PROMPT 46 50 ""
MESSAGE ADD,14@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R11
END
@ -698,7 +695,7 @@ BEGIN
PROMPT 64 50 ""
GROUP 14
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 78
@ -720,7 +717,7 @@ BEGIN
KEY "TRIBUTO 2: IMPORTO"
PROMPT 32 52 ""
MESSAGE COPY,15@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R5
END
@ -729,7 +726,7 @@ BEGIN
KEY "TRIBUTO 2: INTERESSI"
PROMPT 46 52 ""
MESSAGE ADD,15@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R12
END
@ -739,7 +736,7 @@ BEGIN
PROMPT 64 52 ""
GROUP 15
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 83
@ -761,7 +758,7 @@ BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 32 54 ""
MESSAGE COPY,16@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R6
END
@ -770,7 +767,7 @@ BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 46 54 ""
MESSAGE ADD,16@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
FIELD R13
END
@ -780,7 +777,7 @@ BEGIN
PROMPT 64 54 ""
GROUP 16
MESSAGE ADD,9@
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
NUMERO 88
@ -796,14 +793,14 @@ BEGIN
KEY "TOTALE (in cifre)"
PROMPT 64 57 ""
GROUP 9
PICTURE "###.###.###~~~"
PICTURE "###.###.###^^^"
END
DATA 90
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 49 62 ""
PICTURE "@ @~@ @~@ @"
PICTURE "@ @^@ @^@ @"
FIELD D0
FORMAT "1442-"
END

File diff suppressed because it is too large Load Diff