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

Aggiornati form deleghe irpef

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ba/ba0.cpp
View File

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

2
ba/ba1102.cpp
View File

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

12
ba/ba2100f.uml
View File

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

87
ba/delsdi.frm
View File

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

575
ba/dissdi.frm
View File

File diff suppressed because it is too large Load Diff