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

Aggiustamenti per nuova release con XI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4007 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1996-12-16 08:24:31 +00:00
parent 7a8a961291
commit edd3ea61d2
15 changed files with 64 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
m770/771100.cpp
View File

@ -82,7 +82,7 @@ TDati_anagrafici::TDati_anagrafici(char anagrafica) : _titolo(50), _ana(toupper(
_titolo = "Scritture contabili"; _titolo = "Scritture contabili";
if (DatiCAAF()) if (DatiCAAF())
_titolo = "Dati C.A.A.F."; _titolo = "Dati C.A.A.";
if (DirProf()) if (DirProf())
_titolo = "Direttore / Professionista"; _titolo = "Direttore / Professionista";
@ -521,9 +521,10 @@ bool TDati_anagrafici::destroy()
bool TDati_anagrafici::main_loop() bool TDati_anagrafici::main_loop()
{ {
KEY tasto; KEY tasto = K_ESC;
_msk->open_modal();
do while (tasto != K_QUIT)
{ {
_rel->lfile().put("CODDITTA", _codditta); _rel->lfile().put("CODDITTA", _codditta);
_rel->read(); _rel->read();
@ -543,7 +544,8 @@ bool TDati_anagrafici::main_loop()
break; break;
} }
} }
while (tasto != K_QUIT);
_msk->close();
return FALSE; return FALSE;
} }

4
m770/771100b.uml
View File

@ -33,7 +33,7 @@ END
ENDPAGE ENDPAGE
PAGE "Altri soggetti" -1 -1 78 18 PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
@ -237,7 +237,7 @@ END
ENDPAGE ENDPAGE
PAGE "Altri soggetti" -1 -1 78 18 PAGE "Dichiarante pagina 2" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN

4
m770/771230i.uml
View File

@ -61,7 +61,7 @@ BEGIN
ITEM "G|Giuridica" ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE1->TIPOA FIELD LF_QUAE1->TIPOA
CHECKTYPE REQUIRED //CHECKTYPE REQUIRED
FLAGS "D" FLAGS "D"
KEY 1 KEY 1
END END
@ -85,7 +85,7 @@ END
NUMBER F_CODANAGRPERC 5 NUMBER F_CODANAGRPERC 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA="F")) USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA="F"))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA

2
m770/771230m.uml
View File

@ -53,7 +53,7 @@ END
STRING PE1F_CODCAUS2 2 STRING PE1F_CODCAUS2 2
BEGIN BEGIN
PROMPT 3 4 "Causale " PROMPT 3 4 "Causale "
USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0=" ") USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0=" "))
INPUT CODTAB PE1F_CODCAUS INPUT CODTAB PE1F_CODCAUS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0 DISPLAY "Descrizione @60" S0

2
m770/772.cpp
View File

@ -1,6 +1,6 @@
#include <xvt.h> #include <xvt.h>
#include <checks.h> #include <checks.h>
#include "770.h" // #include "770.h" (sembra non servire)
#include "772.h" #include "772.h"
#define usage "Error - usage : %s -{0|1|2|3|4}" #define usage "Error - usage : %s -{0|1|2|3|4}"

2
m770/776100a.h
View File

@ -5,6 +5,6 @@
#define F_RAGDITTA 102 #define F_RAGDITTA 102
#define F_ANNODIC 103 #define F_ANNODIC 103
#define F_TIPOQUA 104 #define F_TIPOQUA 104
#define F_CODDIC 105 #define F_BUTPREC 106
#endif #endif

23
m770/776100a.uml
View File

@ -7,33 +7,20 @@ BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
KEY 1 KEY 1
FIELD LF_BASE->TIPOQUA FIELD LF_BASE->TIPOQUA
FLAGS "D"
END END
/*
NUMBER F_CODDIC 6
BEGIN
PROMPT 1 3 "Codic "
// FLAGS "D"
KEY 1
FIELD LF_BASE->CODDIC
// CHECKTYPE REQUIRED
END
*/
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
HELP "Codice della ditta da selezionare" HELP "Codice della ditta da selezionare"
// FLAGS "R"
USE LF_BASE KEY 1 SELECT (TIPOQUA!="D") USE LF_BASE KEY 1 SELECT (TIPOQUA!="D")
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA JOIN LF_NDITTE INTO CODDITTA=CODDITTA
INPUT TIPOQUA F_TIPOQUA INPUT TIPOQUA F_TIPOQUA
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
// INPUT CODDIC F_CODDIC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT F_TIPOQUA TIPOQUA OUTPUT F_TIPOQUA TIPOQUA
// OUTPUT F_CODDIC CODDIC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC OUTPUT F_RAGDITTA LF_NDITTE->RAGSOC
FIELD LF_BASE->CODDITTA FIELD LF_BASE->CODDITTA
@ -48,7 +35,7 @@ STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 1 2 "Rag. Soc. " PROMPT 1 2 "Rag. Soc. "
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
JOIN LF_BASE TO LF_NDITTE KEY 1 INTO CODDITTA=CODDITTA JOIN LF_BASE INTO CODDITTA=CODDITTA
HELP "Ragione sociale della ditta da selezionare" HELP "Ragione sociale della ditta da selezionare"
INPUT RAGSOC F_RAGDITTA INPUT RAGSOC F_RAGDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
@ -70,9 +57,9 @@ BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_NULL 20 2 BUTTON F_BUTPREC 20 2
BEGIN BEGIN
PROMTP -22 -1 "Menu' precedente" PROMPT -22 -1 "Menu precedente"
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END

1
m770/776100b.h
View File

@ -155,6 +155,5 @@
#define T_H 251 #define T_H 251
#define B_H 252 #define B_H 252
#define DLG_STOPREC_SP 253 #define DLG_STOPREC_SP 253
#define DLG_STOPREC_DG 254
#endif #endif

20
m770/776100b.uml
View File

@ -1,10 +1,10 @@
// Menu' manutenzione quadri // Menu manutenzione quadri
#include "776100b.h" #include "776100b.h"
TOOLBAR "" 0 19 0 0 TOOLBAR "" 0 19 0 0
BUTTON DLG_CANCEL 20 2 BUTTON DLG_CANCEL 20 2
BEGIN BEGIN
PROMPT -22 -11 "Menu' precedente" PROMPT -22 -11 "Menu precedente"
GROUP 1 GROUP 1
END END
@ -15,21 +15,21 @@ END
BUTTON DLG_CANCEL_MENU 20 2 BUTTON DLG_CANCEL_MENU 20 2
BEGIN BEGIN
PROMPT -22 -11 "Menu' precedente" PROMPT -22 -11 "Menu precedente"
GROUP 2 GROUP 2
FLAGS "H" FLAGS "H"
END END
BUTTON DLG_CANCEL_MENU_ST 20 2 BUTTON DLG_CANCEL_MENU_ST 20 2
BEGIN BEGIN
PROMPT -22 -11 "Menu' precedente" PROMPT -22 -11 "Menu precedente"
GROUP 3 GROUP 3
FLAGS "H" FLAGS "H"
END END
BUTTON DLG_CANCEL_MENU_SD 20 2 BUTTON DLG_CANCEL_MENU_SD 20 2
BEGIN BEGIN
PROMPT -22 -11 "Menu' precedente" PROMPT -22 -11 "Menu precedente"
GROUP 4 GROUP 4
FLAGS "H" FLAGS "H"
END END
@ -38,7 +38,7 @@ END
BUTTON DLG_CANCEL_MENUSTQ 20 2 BUTTON DLG_CANCEL_MENUSTQ 20 2
BEGIN BEGIN
PROMPT -22 -11 "Menu' precedente" PROMPT -22 -11 "Menu precedente"
GROUP 5 GROUP 5
FLAGS "H" FLAGS "H"
MESSAGE HIDE,5@|SHOW,3@ MESSAGE HIDE,5@|SHOW,3@
@ -85,7 +85,7 @@ BEGIN
GROUP 1 GROUP 1
END END
// Il menu' viene richiamato nell'handler di questo bottone // Il menu viene richiamato nell'handler di questo bottone
BUTTON DLG_MANUTENZ 1 1 BUTTON DLG_MANUTENZ 1 1
BEGIN BEGIN
PROMPT 1 5 "" PROMPT 1 5 ""
@ -688,7 +688,7 @@ END
TEXT DLG_NULL_SOCTRA TEXT DLG_NULL_SOCTRA
BEGIN BEGIN
PROMPT 5 12 "Manutenzione dati societa' trasformate" PROMPT 5 12 "Manutenzione dati società trasformate"
FLAGS "HD" FLAGS "HD"
GROUP 2 GROUP 2
END END
@ -697,7 +697,7 @@ BUTTON DLG_STOPREC_SOCTRA 1 1
BEGIN BEGIN
PROMPT 1 12 "" PROMPT 1 12 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate" MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati società trasformate"
FLAGS "H" FLAGS "H"
GROUP 2 GROUP 2
END END
@ -771,7 +771,7 @@ END
TEXT DLG_NULL_STQD TEXT DLG_NULL_STQD
BEGIN BEGIN
PROMPT 5 9 "Menu' stampe dichiarazioni" PROMPT 5 9 "Menu stampe dichiarazioni"
FLAGS "H" FLAGS "H"
GROUP 3 GROUP 3
END END

11
m770/776300.cpp
View File

@ -81,10 +81,10 @@ bool TSelezioneDich::user_create()
_studio_cnf = new TConfig(CONFIG_STUDIO); _studio_cnf = new TConfig(CONFIG_STUDIO);
_nditte = new TLocalisamfile(LF_NDITTE); _nditte = new TLocalisamfile(LF_NDITTE);
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte", _ditte = new TArray_sheet(11, 1, 67, 20, "Seleziona dichiarazioni",
"@1|Cod.@5|Ragione Sociale@50"); "@1|Cod.@5|Ragione Sociale@50");
_ditte_sel = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte", _ditte_sel = new TArray_sheet(11, 1, 67, 20, "Dichiarazioni selezionate",
"@1|Cod.@5|Ragione Sociale@50", 0); "@1|Cod.@5|Ragione Sociale@50", 0);
_builded_nomiditte = FALSE; _builded_nomiditte = FALSE;
@ -153,9 +153,6 @@ bool TSelezioneDich::preprocess_config (TMask& m, TConfig& config)
m.set_handler (F_ANNULLA, mask_azzera); m.set_handler (F_ANNULLA, mask_azzera);
m.set_handler (A_CODICE, to_ditt_handler); m.set_handler (A_CODICE, to_ditt_handler);
m.set_handler (DA_CODICE, fr_ditt_handler); m.set_handler (DA_CODICE, fr_ditt_handler);
m.set_handler (BUT_DTO, to_butt_handler);
m.set_handler (BUT_DFR, fr_butt_handler);
m.set_handler (F_TUTTE, tutte_handler); m.set_handler (F_TUTTE, tutte_handler);
m.set_handler (F_DICSEL, dicsel_handler); m.set_handler (F_DICSEL, dicsel_handler);
@ -243,7 +240,7 @@ bool TSelezioneDich::to_ditt_handler(TMask_field& f, KEY key)
TMask& m = f.mask(); TMask& m = f.mask();
if (key == K_F9) if (key == K_F9)
{ {
app().to_butt_handler(m.field(BUT_DTO), K_SPACE); app().to_butt_handler(f, K_SPACE);
} }
if (key == K_TAB && f.focusdirty()) if (key == K_TAB && f.focusdirty())
{ {
@ -259,7 +256,7 @@ bool TSelezioneDich::fr_ditt_handler(TMask_field& f, KEY key)
TMask& m = f.mask(); TMask& m = f.mask();
if (key == K_F9) if (key == K_F9)
{ {
app().fr_butt_handler(m.field(BUT_DFR), K_SPACE); app().fr_butt_handler(f, K_SPACE);
} }
else if (key == K_TAB && f.focusdirty()) else if (key == K_TAB && f.focusdirty())
{ {

2
m770/776300a.h
View File

@ -3,8 +3,6 @@
#define F_ANNODIC 101 #define F_ANNODIC 101
#define DA_CODICE 102 #define DA_CODICE 102
#define A_CODICE 103 #define A_CODICE 103
#define BUT_DFR 104
#define BUT_DTO 105
#define F_SELECT 106 #define F_SELECT 106
#define F_ANNULLA 107 #define F_ANNULLA 107
#define F_VERIFICA 108 #define F_VERIFICA 108

65
m770/776300a.uml
View File

@ -1,29 +1,23 @@
// 776300a.uml // 776300a.uml
// Selezione dichiarazioni // SELEZIONE DICHIARAZIONI
// SI COMPONE DI TRE SEZIONI :
// - LE SEGUENTI DICHIARAZIONI..
// - SELEZIONE FRA LIMITI..
// - TUTTE..
// OGNUNA DELLE QUALI DEVE DISABILITARE LE ALTRE
#include "776300a.h" #include "776300a.h"
PAGE " Nuova Selezione " -1 -1 70 16 PAGE " Nuova Selezione " -1 -1 70 16
/* // SEZIONE "LE SEGUENTI DICHIARAZIONI"
GROUPBOX DLG_NULL 39 5
BEGIN
PROMPT 16 2 "Scelta ditte"
END
*/
BOOLEAN RADIO1 BOOLEAN RADIO1
BEGIN BEGIN
PROMPT 2 2 "" PROMPT 2 2 " Le seguenti dichiarazioni"
MESSAGE TRUE ENABLE,DLG_SELECT_2|FALSE,RADIO2|FALSE,F_TUTTE MESSAGE TRUE ENABLE,DLG_SELECT_2|" ",RADIO2|" ",F_TUTTE|DISABLE,2@
MESSAGE FALSE DISABLE,DLG_SELECT_2 MESSAGE FALSE DISABLE,DLG_SELECT_2
END END
TEXT DLG_NULL
BEGIN
PROMPT 9 2 "Le seguenti dichiarazioni"
END
BUTTON DLG_SELECT_2 25 1 BUTTON DLG_SELECT_2 25 1
BEGIN BEGIN
PROMPT 38 2 "~Seleziona dichiarazioni" PROMPT 38 2 "~Seleziona dichiarazioni"
@ -31,63 +25,41 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
// SEZIONE "SELEZIONE FRA LIMITI"
BOOLEAN RADIO2 BOOLEAN RADIO2
BEGIN BEGIN
PROMPT 2 4 "" PROMPT 2 4 " Fra limiti di codici"
MESSAGE TRUE ENABLE,BUT_DFR|ENABLE,BUT_DTO|FALSE,RADIO1|DISABLE,DLG_SELECT_2|FALSE,F_TUTTE MESSAGE TRUE ENABLE,2@|" ",RADIO1|" ",F_TUTTE|DISABLE,DLG_SELECT_2
MESSAGE FALSE DISABLE,BUT_DFR|DISABLE,BUT_DTO|ENABLE,DLG_SELECT_2 MESSAGE FALSE DISABLE,2@
END
TEXT DLG_NULL
BEGIN
PROMPT 9 4 "Fra limiti di codici"
FLAGS "D"
GROUP 2
END END
NUMBER DA_CODICE 6 NUMBER DA_CODICE 6
BEGIN BEGIN
PROMPT 38 4 "da " PROMPT 38 4 "da "
FLAGS "D" FLAGS "BD"
GROUP 2
HELP "Codice dichiarazione di inizio selezione" HELP "Codice dichiarazione di inizio selezione"
END
BUTTON BUT_DFR 2 1
BEGIN
PROMPT 48 4 "*"
FLAGS "D"
PICTURE 109
GROUP 2 GROUP 2
END END
NUMBER A_CODICE 6 NUMBER A_CODICE 6
BEGIN BEGIN
PROMPT 53 4 "a " PROMPT 53 4 "a "
FLAGS "D" FLAGS "BD"
GROUP 2
HELP "Codice ditta di fine selezione" HELP "Codice ditta di fine selezione"
END
BUTTON BUT_DTO 2 1
BEGIN
PROMPT 62 4 "*"
// FLAGS "D"
PICTURE 109
GROUP 2 GROUP 2
END END
// SEZIONE "SELEZIONE TUTTE"
BOOLEAN F_TUTTE BOOLEAN F_TUTTE
BEGIN BEGIN
PROMPT 2 6 " Tutte " PROMPT 2 6 " Tutte"
MESSAGE TRUE FALSE,RADIO1|FALSE,RADIO2|DISABLE,DLG_SELECT_2|DISABLE,BUT_DFR|DISABLE,BUT_DTO MESSAGE TRUE " ",RADIO1|" ",RADIO2|DISABLE,DLG_SELECT_2|DISABLE,2@
HELP "Seleziona tutte le dichiarazioni" HELP "Seleziona tutte le dichiarazioni"
END END
STRING F_SELECT 5 STRING F_SELECT 5
BEGIN BEGIN
PROMPT 2 8 "Dichiarazioni selezionate " PROMPT 2 8 "Dichiarazioni selezionate "
// FLAGS "DP"
FLAGS "D" FLAGS "D"
END END
@ -109,7 +81,6 @@ END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
// MESSAGE EXIT,K_ENTER
END END
BUTTON F_ANNULLA 10 2 BUTTON F_ANNULLA 10 2

2
m770/77lib.h
View File

@ -6,7 +6,7 @@
#include <real.h> #include <real.h>
#include <sheet.h> #include <sheet.h>
#include "770101.h" // #include "770101.h" (sembra non servire)
class TSchedaP; class TSchedaP;

2
m770/77lib01.cpp
View File

@ -11,7 +11,7 @@
#include "rpag.h" #include "rpag.h"
#include "quadrol.h" #include "quadrol.h"
#include "dipend.h" // per is_erede #include "dipend.h" // per is_erede
#include "770101.h" // per TSchedaPE // #include "770101.h" // per TSchedaPE (sembra non servire)
#include "77lib.h" #include "77lib.h"
HIDDEN real __dep; HIDDEN real __dep;

2
m770/batbent.uml
View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Tabella Enti Previdenziali Quadro H modulo 770" -1 -1 78 18 PAGE "Tabella Enti Previdenziali Quadro H" -1 -1 78 18
NUMBER F_CODENTE 2 NUMBER F_CODENTE 2
BEGIN BEGIN