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

Cazzo, cazzeggio e controcazzeggio!

Browse Source 
Prime modifiche per utilizzare le nuove maschere (upgrade R9604/R9605)


git-svn-id: svn://10.65.10.50/trunk@3889 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-11-12 09:52:22 +00:00
parent 3052fab70e
commit a1095f6e04
35 changed files with 785 additions and 359 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
m770/770100.cpp
View File

@ -272,6 +272,12 @@ bool TSchedaPercipienti::nprog_handler(TMask_field& f, KEY key)
if (!f.mask().is_running()) if (!f.mask().is_running())
return TRUE; return TRUE;
if (key == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
const int nprog = atoi(f.get()); const int nprog = atoi(f.get());
if (key == K_ENTER) if (key == K_ENTER)
@ -280,15 +286,14 @@ bool TSchedaPercipienti::nprog_handler(TMask_field& f, KEY key)
app()._flag_cg = FALSE; // avoid recursion app()._flag_cg = FALSE; // avoid recursion
if (nprog==0 || !app().esiste_perc(f.mask())) if (nprog==0 || !app().esiste_perc(f.mask()))
return FALSE; return FALSE;
// f.mask().stop_run(K_AUTO_ENTER);
f.mask().stop_run(K_AUTO_ENTER);
} }
if (key == K_TAB) if (key == K_TAB)
{ {
if (nprog==0 || !app().esiste_perc(f.mask())) if (nprog==0 || !app().esiste_perc(f.mask()))
return FALSE; return FALSE;
f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica/inserimento // f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica/inserimento
} }
return TRUE; return TRUE;
} }
@ -300,7 +305,7 @@ bool TSchedaPercipienti::user_create()
_rver = new TLocalisamfile(LF_RVER); _rver = new TLocalisamfile(LF_RVER);
_rpag = new TLocalisamfile(LF_RPAG); _rpag = new TLocalisamfile(LF_RPAG);
_pags = new TNikArray_sheet(-1, -1, 0, 0, "Selezione Pagamenti", _pags = new TNikArray_sheet(-1, -1, -4, -4, "Selezione Pagamenti",
"@1|Data@11|Compenso@16|Spese@16|Ritenuta@16|", "@1|Data@11|Compenso@16|Spese@16|Ritenuta@16|",
0,NULL_WIN,5); 0,NULL_WIN,5);
@ -435,14 +440,14 @@ void TSchedaPercipienti::init_query_mode(TMask& m)
{ {
case fattura: case fattura:
setta_nprog(m, variazione); setta_nprog(m, variazione);
m.send_key(K_AUTO_ENTER,0); // m.send_key(K_AUTO_ENTER,0);
return; return;
break; break;
case pagamento: case pagamento:
if (coll_datanum()) if (coll_datanum())
{ {
setta_nprog(m, variazione); setta_nprog(m, variazione);
m.send_key(K_AUTO_ENTER, 0); // m.send_key(K_AUTO_ENTER, 0);
} }
return; return;
break; break;
@ -468,8 +473,8 @@ void TSchedaPercipienti::init_query_mode(TMask& m)
} }
else else
{ {
m.send_key(K_SHIFT+K_CTRL+'h', -1); // group 1 Scelta ANAGR m.hide(-1); // group 1 Scelta ANAGR
m.send_key(K_SHIFT+K_CTRL+'s', -2); // group 3 Ricerca su DATI PER m.show(-2); // group 3 Ricerca su DATI PER
} }
_from_modify = FALSE; _from_modify = FALSE;
@ -496,8 +501,8 @@ void TSchedaPercipienti::init_query_insert_mode(TMask& m)
} }
else else
{ {
m.send_key(K_SHIFT+K_CTRL+'h', -2); // group 3 Nasconde ricerca su PERC m.hide(-2); // group 3 Nasconde ricerca su PERC
m.send_key(K_SHIFT+K_CTRL+'s', -1); // group 1 Ricerca su ANAGR m.show(-1); // group 1 Ricerca su ANAGR
} }
} }
@ -567,7 +572,7 @@ void TSchedaPercipienti::rec2row(TToken_string& r, TRectype& rec, int row)
int TSchedaPercipienti::read(TMask& m) int TSchedaPercipienti::read(TMask& m)
{ {
m.autoload(_rel); m.autoload(*_rel);
TSheet_field& pags = (TSheet_field&)m.field(F_PAGAMENTI); TSheet_field& pags = (TSheet_field&)m.field(F_PAGAMENTI);
pags.destroy(); pags.destroy();
@ -771,7 +776,7 @@ bool TSchedaPercipienti::check_handler(TMask_field& f, KEY k)
warning_box ("La differenza tra il totale dei versamenti " warning_box ("La differenza tra il totale dei versamenti "
"e il totale delle ritenute non puo' superare " "e il totale delle ritenute non puo' superare "
"le %s lire", THRESOLD.string()); "le %s lire", THRESOLD.string());
return forzatura; return TRUE;
} }
} }
return TRUE; return TRUE;
@ -781,7 +786,7 @@ bool TSchedaPercipienti::check_handler(TMask_field& f, KEY k)
void TSchedaPercipienti::mask2rel(const TMask& m) void TSchedaPercipienti::mask2rel(const TMask& m)
{ {
_rel->lfile().zero(); _rel->lfile().zero();
m.autosave(_rel); m.autosave(*_rel);
const long codditta = m.get_long(F_CODDITTA); const long codditta = m.get_long(F_CODDITTA);
const char tipoa = m.get(F_TIPOA)[0]; const char tipoa = m.get(F_TIPOA)[0];

5
m770/770100a.uml
View File

@ -11,7 +11,7 @@ END
ENDPAGE ENDPAGE
PAGE "MODULO 770 - SCHEDA PERCIPIENTI" -1 -1 78 21 PAGE "Scheda percipienti" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -49,12 +49,11 @@ BEGIN
PROMPT 1 7 "@bDati percipiente" PROMPT 1 7 "@bDati percipiente"
END END
LIST F_TIPOA 1 12 LIST F_TIPOA 1 9
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
CHECKTYPE REQUIRED
KEY 1 KEY 1
FIELD LF_SCPERC->TIPOA FIELD LF_SCPERC->TIPOA
END END

12
m770/770100b.uml
View File

@ -12,7 +12,7 @@ BEGIN
KEY 1 KEY 1
END END
LIST F_TIPOA 1 12 LIST F_TIPOA 1 9
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FIELD LF_SCPERC->TIPOA FIELD LF_SCPERC->TIPOA
@ -61,7 +61,7 @@ STRING F_CODCAUS 2
BEGIN BEGIN
FIELD LF_SCPERC->CODCAUS FIELD LF_SCPERC->CODCAUS
PROMPT 0 1 "" PROMPT 0 1 ""
USE %CA7 SELECT ((I0!="1015") && ((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")) USE %CA7 SELECT (I0!="1015")&&((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2"))
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODCAUS INPUT CODTAB F_CODCAUS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
@ -298,12 +298,12 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 12 "@bVersamenti" PROMPT 1 13 "@bVersamenti"
END END
SPREADSHEET F_VERSAMENTI 79 5 SPREADSHEET F_VERSAMENTI 79 5
BEGIN BEGIN
PROMPT 0 13 "" PROMPT 0 14 ""
ITEM "1015" ITEM "1015"
ITEM "Data@10" ITEM "Data@10"
ITEM "Luogo" ITEM "Luogo"
@ -312,14 +312,12 @@ BEGIN
ITEM "Numero-CAB@11" ITEM "Numero-CAB@11"
ITEM "Progressivo banca" ITEM "Progressivo banca"
ITEM "Ritenuta@15" ITEM "Ritenuta@15"
// ITEM "NUMVERS"
WARNING "Versamento inconsistente"
END END
BOOLEAN F_FORCED BOOLEAN F_FORCED
BEGIN BEGIN
FIELD LF_SCPERC->FORZATURA FIELD LF_SCPERC->FORZATURA
PROMPT 1 18 "Forzatura" PROMPT 1 20 "Forzatura"
HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti" HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti"
END END

7
m770/770100d.uml
View File

@ -16,7 +16,7 @@ DATE 102
BEGIN BEGIN
PROMPT 2 3 "Data " PROMPT 2 3 "Data "
FIELD LF_RVER->DATAVERS FIELD LF_RVER->DATAVERS
VALIDATE REQIF_FUNC 4 103 104 105 106 107 VALIDATE REQIF_FUNC 5 103 104 105 106 107
WARNING "Inserire la data del versamento" WARNING "Inserire la data del versamento"
GROUP 1 GROUP 1
END END
@ -34,7 +34,6 @@ BEGIN
OUTPUT 71 OUTPUT 71
FLAGS "U" FLAGS "U"
FIELD LF_RVER->LUOVERS FIELD LF_RVER->LUOVERS
CHECKTYPE REQUIRED
GROUP 1 GROUP 1
END END
@ -87,7 +86,6 @@ BEGIN
OUTPUT 104 OUTPUT 104
OUTPUT 70 OUTPUT 70
GROUP 1 GROUP 1
CHECKTYPE REQUIRED
FLAGS "U" FLAGS "U"
END END
@ -133,7 +131,6 @@ END
NUMBER 107 6 NUMBER 107 6
BEGIN BEGIN
PROMPT 2 6 "Progressivo per versamento banca " PROMPT 2 6 "Progressivo per versamento banca "
// FLAGS "DZ"
FLAGS "Z" FLAGS "Z"
GROUP 2 6 GROUP 2 6
END END
@ -165,7 +162,7 @@ END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 ""
MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107|CLEAR,108 // MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107|CLEAR,108
END END
BUTTON DLG_AZZERA 9 2 BUTTON DLG_AZZERA 9 2

4
m770/770200.cpp
View File

@ -77,7 +77,6 @@ TCursor* TVersa_rit::meik_curs(TRelation* rel)
TString16 filt; TString16 filt;
TCursor* cur; TCursor* cur;
const long codditta = get_firm(); const long codditta = get_firm();
filt.format("CODDITTA=%ld", codditta); filt.format("CODDITTA=%ld", codditta);
cur = new TCursor(rel, filt); cur = new TCursor(rel, filt);
return cur; return cur;
@ -137,8 +136,9 @@ bool TVersa_rit::create()
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODANAGRPERC); TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODANAGRPERC);
TToken_string siblings; // non ho ricerche alternative
_sheet_perc = new TBrowse_sheet(_cur," |TIPOA|CODANAGR|6->RAGSOC", "Selezione percipienti", _sheet_perc = new TBrowse_sheet(_cur," |TIPOA|CODANAGR|6->RAGSOC", "Selezione percipienti",
"@1|Tipo|Codice|Ragione sociale@50", 8, &dummy); "@1|Tipo|Codice|Ragione sociale@50", 8, &dummy,siblings);
_sheet_perc->maximize(); _sheet_perc->maximize();
_schede = new TArray_sheet(-1, -1, 0, 0, "Selezione Schede","@1|T|Codice|Ragione@50|N.|Data@10"); _schede = new TArray_sheet(-1, -1, 0, 0, "Selezione Schede","@1|T|Codice|Ragione@50|N.|Data@10");

28
m770/770200a.uml
View File

@ -26,14 +26,6 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
/**
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR"
END
**/
LIST F_TIPOA 1 12 LIST F_TIPOA 1 12
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
@ -86,7 +78,6 @@ BEGIN
OUTPUT F_LUOGO OUTPUT F_LUOGO
OUTPUT 71 OUTPUT 71
FLAGS "U" FLAGS "U"
CHECKTYPE REQUIRED
WARNING "Manca il luogo del versamento" WARNING "Manca il luogo del versamento"
HELP "Inserire il luogo del versamento" HELP "Inserire il luogo del versamento"
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
@ -141,7 +132,6 @@ BEGIN
OUTPUT F_TIPO OUTPUT F_TIPO
OUTPUT 70 OUTPUT 70
GROUP 1 GROUP 1
CHECKTYPE REQUIRED
HELP "Inserire il tipo di versamento" HELP "Inserire il tipo di versamento"
WARNING "Manca il tipo di versamento" WARNING "Manca il tipo di versamento"
FLAGS "U" FLAGS "U"
@ -154,22 +144,6 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
/*
LIST 104 16
BEGIN
PROMPT 42 3 "Tipo "
ITEM " |Nessuno"
MESSAGE SHOW,210|SHOW,212|HIDE,209|HIDE,211|SHOW,105
ITEM "C|C/C Postale"
MESSAGE HIDE,209|SHOW,211|HIDE,210|HIDE,212|HIDE,105
ITEM "D|Distinta"
MESSAGE SHOW,209|SHOW,211|HIDE,210|HIDE,212|SHOW,105
ITEM "B|Delega bancaria"
MESSAGE SHOW,210|SHOW,212|HIDE,209|HIDE,211|SHOW,105
GROUP 1
END
*/
NUMBER F_ABI 5 NUMBER F_ABI 5
BEGIN BEGIN
PROMPT 16 7 "" PROMPT 16 7 ""
@ -189,7 +163,6 @@ END
STRING F_SERIE 5 STRING F_SERIE 5
BEGIN BEGIN
PROMPT 16 7 "" PROMPT 16 7 ""
// VALIDATE REQIF_FUNC 2 103 104
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "G" FLAGS "G"
WARNING "Inserire il numero di serie" WARNING "Inserire il numero di serie"
@ -224,7 +197,6 @@ END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
// MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107
END END
ENDPAGE ENDPAGE

6
m770/771100.cpp
View File

@ -123,8 +123,8 @@ bool TDati_anagrafici::attivita_handler(TMask_field& m, KEY k)
body << "1" << "|"; body << "1" << "|";
body << m.mask().get(F_CODDITTA) << "|"; body << m.mask().get(F_CODDITTA) << "|";
body << m.mask().get(F_ATTIV) << "|"; // body << m.mask().get(F_ATTIV) << "|";
body << m.mask().get(F_ATTIV); // body << m.mask().get(F_ATTIV);
TMessage msg(cmd2name(appname), MSG_LN, (const char*) body); TMessage msg(cmd2name(appname), MSG_LN, (const char*) body);
@ -527,7 +527,7 @@ bool TDati_anagrafici::main_loop()
{ {
_rel->lfile().put("CODDITTA", _codditta); _rel->lfile().put("CODDITTA", _codditta);
_rel->read(); _rel->read();
_msk->autoload(_rel); _msk->autoload(*_rel);
tasto = _msk->run(); tasto = _msk->run();
switch (tasto) switch (tasto)

39
m770/771100c.uml
View File

@ -59,6 +59,43 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 4 "Codice rappresentante "
FLAGS "D"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
FIELD LF_NDITTE->RAPPR
CHECKTYPE NORMAL
JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_SESSO LF_ANAGFIS->SESSO
OUTPUT F_DATANASC LF_ANAGFIS->DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_DOMFISC LF_ANAG->VARSLORES
OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
END
/*
NUMBER F_ANAGR 5 NUMBER F_ANAGR 5
BEGIN BEGIN
PROMPT 1 4 "Codice rappresentante " PROMPT 1 4 "Codice rappresentante "
@ -95,7 +132,7 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "R" FLAGS "R"
END END
*/
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "

24
m770/771200.cpp
View File

@ -435,6 +435,12 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
{ {
if (!f.mask().is_running()) return TRUE; if (!f.mask().is_running()) return TRUE;
if (key == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
if (key == K_TAB) if (key == K_TAB)
{ {
const int nprog = atoi(f.get()); const int nprog = atoi(f.get());
@ -450,7 +456,7 @@ bool TQuadroA::nprog_handler(TMask_field& f, KEY key)
{ {
app()._codip = coddip; app()._codip = coddip;
// app().AA3SettaCognomeNome(f.mask()); // app().AA3SettaCognomeNome(f.mask());
f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure // f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste) // inserimento (se trova che non esiste)
} }
} }
@ -488,7 +494,7 @@ bool TQuadroA::QA3_codip_handler(TMask_field& f, KEY key)
const long codditta = get_firm_770(); const long codditta = get_firm_770();
if (!esiste_dipendente(codditta, coddip)) if (!esiste_dipendente(codditta, coddip))
return f.warning_box("Dipendente inesistente"); return f.warning_box("Dipendente inesistente");
f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure // f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste) // inserimento (se trova che non esiste)
} }
return TRUE; return TRUE;
@ -602,7 +608,7 @@ bool TQuadroA::QA_comp_netti_hnd (TMask_field& f, KEY k)
real compnetti = denaro + natura - cobbdip; real compnetti = denaro + natura - cobbdip;
if (compnetti < ZERO) compnetti = ZERO; if (compnetti < ZERO) compnetti = ZERO;
f.mask().set(F_COMPNETTI, compnetti); f.mask().set(F_COMPNETTI, compnetti);
f.send_key(K_TAB,F_COMPNETTI); f.mask().send_key(K_TAB,F_COMPNETTI);
} }
return TRUE; return TRUE;
} }
@ -731,7 +737,7 @@ int TQuadroA::rewrite(const TMask& m)
if (QuadroA3() && _soc_trasf) if (QuadroA3() && _soc_trasf)
registra_record2_A3(m); registra_record2_A3(m);
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
_registra = TRUE; _registra = TRUE;
@ -743,7 +749,7 @@ int TQuadroA::write(const TMask& m)
if (QuadroA3() && _soc_trasf) if (QuadroA3() && _soc_trasf)
registra_record2_A3(m); registra_record2_A3(m);
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
_registra = TRUE; _registra = TRUE;
@ -950,15 +956,15 @@ void TQuadroA::init_query_mode(TMask& m)
if (dummy.not_empty()) if (dummy.not_empty())
setta_nprog(m.field(QAF_NPROG)); setta_nprog(m.field(QAF_NPROG));
} }
m.send_key(K_SHIFT+K_CTRL+'h', -1); // hide group 1 -nasconde DIPEND. m.hide(-1); // hide group 1 -nasconde DIPEND.
m.send_key(K_SHIFT+K_CTRL+'s', -2); // show group 2 -Ricerca su QUADRO A m.show(-2); // show group 2 -Ricerca su QUADRO A
} }
void TQuadroA::init_query_insert_mode(TMask& m) void TQuadroA::init_query_insert_mode(TMask& m)
{ {
m.set(QAF_ANNODIC, _anno_dic); m.set(QAF_ANNODIC, _anno_dic);
m.send_key(K_SHIFT+K_CTRL+'h', -2); // group 2 Nasconde ricerca su QUADROA m.hide(-2); // group 2 Nasconde ricerca su QUADROA
m.send_key(K_SHIFT+K_CTRL+'s', -1); // group 1 Ricerca su ANAGR.DIPENDENTI m.show(-1); // group 1 Ricerca su ANAGR.DIPENDENTI
} }
void TQuadroA::init_modify_mode(TMask& m) void TQuadroA::init_modify_mode(TMask& m)

10
m770/771200a.uml
View File

@ -48,7 +48,7 @@ END
NUMBER F_CODIP 6 NUMBER F_CODIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 1 1 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAA->CODDIP FIELD LF_QUAA->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -58,7 +58,7 @@ END
NUMBER F_CODANAGDIP 6 NUMBER F_CODANAGDIP 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_DIPEND KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIP INPUT CODDIP F_CODANAGDIP
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
@ -70,14 +70,15 @@ BEGIN
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
FLAGS "H" FLAGS "H"
KEY 1
GROUP G_DIPEND GROUP G_DIPEND
END END
NUMBER F_CODANAGDIPQA 6 NUMBER F_CODANAGDIPQA 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAA KEY 1 SELECT ((CODDITTA=#QAF_CODDITTA)) USE LF_QUAA KEY 1 SELECT (CODDITTA==#QAF_CODDITTA)
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QAF_CODDITTA INPUT CODDITTA QAF_CODDITTA
INPUT CODDIP F_CODANAGDIPQA INPUT CODDIP F_CODANAGDIPQA
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
@ -88,6 +89,7 @@ BEGIN
OUTPUT QAF_COGNOME LF_DIPEND->COGNOME OUTPUT QAF_COGNOME LF_DIPEND->COGNOME
OUTPUT QAF_NOME LF_DIPEND->NOME OUTPUT QAF_NOME LF_DIPEND->NOME
MESSAGE COPY, F_CODIP MESSAGE COPY, F_CODIP
KEY 1
GROUP G_QUADROA GROUP G_QUADROA
END END

20
m770/771230.cpp
View File

@ -719,11 +719,17 @@ bool TQuadroC_E2::nprog_handler(TMask_field& f, KEY key)
{ {
if (!f.mask().is_running()) return TRUE; if (!f.mask().is_running()) return TRUE;
if (key == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
if (key == K_TAB) if (key == K_TAB)
{ {
const int nprog = atoi(f.get()); const int nprog = atoi(f.get());
if (nprog==0) return TRUE; if (nprog==0) return TRUE;
f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure // f.mask().stop_run(K_AUTO_ENTER); // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste) // inserimento (se trova che non esiste)
} }
return TRUE; return TRUE;
@ -758,7 +764,7 @@ bool TQuadroC_E2::scrivi_dati_per(TRectype& rec)
int TQuadroC_E2::rewrite(const TMask& m) int TQuadroC_E2::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
scrivi_dati_per(_rel->curr()); scrivi_dati_per(_rel->curr());
_registra = TRUE; _registra = TRUE;
@ -767,7 +773,7 @@ int TQuadroC_E2::rewrite(const TMask& m)
int TQuadroC_E2::write(const TMask& m) int TQuadroC_E2::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
scrivi_dati_per(_rel->curr()); scrivi_dati_per(_rel->curr());
@ -887,16 +893,16 @@ void TQuadroC_E2::init_query_mode(TMask& m)
if (dummy.not_empty()) if (dummy.not_empty())
setta_nprog(m.field(F_NPROG)); setta_nprog(m.field(F_NPROG));
m.send_key(K_SHIFT+K_CTRL+'h', -1); // nasconde (hide) group 1 - Scelta ANAGR m.hide(-1); // nasconde (hide) group 1 - Scelta ANAGR
m.send_key(K_SHIFT+K_CTRL+'s', -2); // abilita (show) group 2 - Ricerca su DATI PERC m.show(-2); // abilita (show) group 2 - Ricerca su DATI PERC
} }
void TQuadroC_E2::init_query_insert_mode(TMask& m) void TQuadroC_E2::init_query_insert_mode(TMask& m)
{ {
m.set(F_ANNODIC, _anno_dic); m.set(F_ANNODIC, _anno_dic);
m.send_key(K_SHIFT+K_CTRL+'h', -2); // group 3 Nasconde ricerca su PERC m.hide(-2); // group 3 Nasconde ricerca su PERC
m.send_key(K_SHIFT+K_CTRL+'s', -1); // group 1 Ricerca su ANAGR m.show(-1); // group 1 Ricerca su ANAGR
} }
int quadriC_E2(int argc, char* argv[]) int quadriC_E2(int argc, char* argv[])

20
m770/771233.cpp
View File

@ -80,13 +80,19 @@ bool TDistintaQuadroG::nprog_handler(TMask_field& f, KEY key)
{ {
if (!f.mask().is_running()) return TRUE; if (!f.mask().is_running()) return TRUE;
if (key == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
if (key == K_TAB) if (key == K_TAB)
{ {
const int nprog = atoi(f.get()); const int nprog = atoi(f.get());
if (nprog==0) return TRUE; if (nprog==0) return TRUE;
// entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure // entra in modo modifica (se il record che ha chiave specificata esiste gia') oppure
// inserimento (se trova che non esiste) // inserimento (se trova che non esiste)
f.mask().stop_run(K_AUTO_ENTER); // f.mask().stop_run(K_AUTO_ENTER);
} }
return TRUE; return TRUE;
} }
@ -118,7 +124,7 @@ bool TDistintaQuadroG::scrivi_dati_per(TRectype& rec)
int TDistintaQuadroG::rewrite(const TMask& m) int TDistintaQuadroG::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
scrivi_dati_per(_rel->curr()); scrivi_dati_per(_rel->curr());
_registra = TRUE; _registra = TRUE;
@ -127,7 +133,7 @@ int TDistintaQuadroG::rewrite(const TMask& m)
int TDistintaQuadroG::write(const TMask& m) int TDistintaQuadroG::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
scrivi_dati_per(_rel->curr()); scrivi_dati_per(_rel->curr());
_registra = TRUE; _registra = TRUE;
@ -181,14 +187,14 @@ void TDistintaQuadroG::init_query_mode(TMask& m)
if (dummy.not_empty()) if (dummy.not_empty())
setta_nprog(m.field(F_NPROG)); setta_nprog(m.field(F_NPROG));
m.send_key(K_SHIFT+K_CTRL+'h', -1); // nasconde (hide) group 1 - Scelta ANAGR m.hide(-1); // nasconde (hide) group 1 - Scelta ANAGR
m.send_key(K_SHIFT+K_CTRL+'s', -2); // abilita (show) group 2 - Ricerca su DATI PERC m.show(-2); // abilita (show) group 2 - Ricerca su DATI PERC
} }
void TDistintaQuadroG::init_query_insert_mode(TMask& m) void TDistintaQuadroG::init_query_insert_mode(TMask& m)
{ {
m.set(F_ANNODIC, _anno_dic); m.set(F_ANNODIC, _anno_dic);
m.send_key(K_SHIFT+K_CTRL+'h', -2); // group 2 Nasconde ricerca su PERC m.hide(-2); // group 2 Nasconde ricerca su PERC
m.send_key(K_SHIFT+K_CTRL+'s', -1); // group 1 Ricerca su ANAGR m.show(-1); // group 1 Ricerca su ANAGR
} }

8
m770/771290.cpp
View File

@ -83,8 +83,8 @@ void TQuadro_H_app::refresh(TMask& m)
//datore.check(); //datore.check();
//lavora.check(); //lavora.check();
datore.autoload(_rel); datore.autoload(*_rel);
lavora.autoload(_rel); lavora.autoload(*_rel);
if (almeno_un_dettaglio(m)) if (almeno_un_dettaglio(m))
m.enable (F_BTG_GENERA); m.enable (F_BTG_GENERA);
@ -277,14 +277,14 @@ void TQuadro_H_app::init_modify_mode(TMask& m)
int TQuadro_H_app::rewrite(const TMask& m) int TQuadro_H_app::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
_registra = TRUE; _registra = TRUE;
return _rel->rewrite(); return _rel->rewrite();
} }
int TQuadro_H_app::write(const TMask& m) int TQuadro_H_app::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
_registra = TRUE; _registra = TRUE;
return _rel->write(); return _rel->write();
} }

8
m770/771300.cpp
View File

@ -187,7 +187,7 @@ TMask* TQuadroI::get_mask(int mode)
int TQuadroI::read(TMask& m) int TQuadroI::read(TMask& m)
{ {
m.autoload(_rel); m.autoload(*_rel);
// Si posiziona sul record del dichiarante, e se non esiste lo crea // Si posiziona sul record del dichiarante, e se non esiste lo crea
if (_quadro == '1' || _quadro == '2') if (_quadro == '1' || _quadro == '2')
{ {
@ -200,7 +200,7 @@ int TQuadroI::read(TMask& m)
if (err != NOERR) if (err != NOERR)
enter_dichiar_770(get_firm_770(), anno_770(), TRUE); enter_dichiar_770(get_firm_770(), anno_770(), TRUE);
m.autoload(_rel); m.autoload(*_rel);
} }
// Setta i flag di quadro compilato nel prospetto dai generali // Setta i flag di quadro compilato nel prospetto dai generali
@ -268,7 +268,7 @@ bool TQuadroI::user_destroy()
int TQuadroI::write(const TMask& m) int TQuadroI::write(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
m.autosave(r); m.autosave(*r);
// Setta i flag di quadro compilato nel prospetto dai generali nella relazione // Setta i flag di quadro compilato nel prospetto dai generali nella relazione
if (_quadro == 'W' || _quadro == '2') if (_quadro == 'W' || _quadro == '2')
set_rel_field_quadri(m); set_rel_field_quadri(m);
@ -280,7 +280,7 @@ int TQuadroI::write(const TMask& m)
int TQuadroI::rewrite(const TMask& m) int TQuadroI::rewrite(const TMask& m)
{ {
TRelation *r = get_relation(); TRelation *r = get_relation();
m.autosave(r); m.autosave(*r);
// Setta i flag di quadro compilato nel prospetto dai generali nella relazione // Setta i flag di quadro compilato nel prospetto dai generali nella relazione
if (_quadro == 'W' || _quadro == '2') if (_quadro == 'W' || _quadro == '2')
set_rel_field_quadri(m); set_rel_field_quadri(m);

4
m770/771300a.uml
View File

@ -20,7 +20,7 @@ ENDPAGE
PAGE "QUADRO I" -1 -1 78 18 PAGE "QUADRO I" -1 -1 78 18
LISTBOX F_TIPOQUA1 2 LISTBOX F_TIPOQUA1 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
ITEM " |Normale" ITEM " |Normale"
@ -31,7 +31,7 @@ BEGIN
// CHECKTYPE REQUIRED // CHECKTYPE REQUIRED
END END
LISTBOX F_TIPOQUA2 2 LISTBOX F_TIPOQUA2 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
// PROMPT 10 3 "" // PROMPT 10 3 ""

14
m770/771310.cpp
View File

@ -159,8 +159,14 @@ bool M71310_application::cod_tributo(TMask_field& f , KEY k)
// Sia da F_ABI che da F_NUMERO // Sia da F_ABI che da F_NUMERO
bool M71310_application::auto_premi(TMask_field& f, KEY k) bool M71310_application::auto_premi(TMask_field& f, KEY k)
{ {
if (k == K_TAB && f.mask().is_running()) if (k == K_CTRL+K_TAB && f.mask().is_running())
f.mask().stop_run(K_AUTO_ENTER); {
f.set_dirty();
return TRUE;
}
// if (k == K_TAB && f.mask().is_running())
// f.mask().stop_run(K_AUTO_ENTER);
return TRUE; return TRUE;
} }
@ -418,7 +424,7 @@ int M71310_application::rewrite(const TMask& m)
{ {
real rImpVersArr; real rImpVersArr;
build_note(m); build_note(m);
m.autosave(_rel); m.autosave(*_rel);
rImpVersArr = arrotonda(m); rImpVersArr = arrotonda(m);
_rel->lfile().put(QUL_QLRITVER, rImpVersArr); _rel->lfile().put(QUL_QLRITVER, rImpVersArr);
return _rel->rewrite(); return _rel->rewrite();
@ -428,7 +434,7 @@ int M71310_application::write(const TMask& m)
{ {
real rImpVersArr; real rImpVersArr;
build_note(m); build_note(m);
m.autosave(_rel); m.autosave(*_rel);
rImpVersArr = arrotonda(m); rImpVersArr = arrotonda(m);
_rel->lfile().put(QUL_QLRITVER, rImpVersArr); _rel->lfile().put(QUL_QLRITVER, rImpVersArr);
return _rel->write(); return _rel->write();

2
m770/771400a.uml
View File

@ -53,7 +53,7 @@ BEGIN
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
LISTBOX F_TIPOQUA 2 LISTBOX F_TIPOQUA 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
ITEM " |Normale" ITEM " |Normale"

2
m770/771400b.uml
View File

@ -53,7 +53,7 @@ BEGIN
MESSAGE COPY,2@ MESSAGE COPY,2@
END END
LISTBOX F_TIPOQUA1 2 LISTBOX F_TIPOQUA1 12
BEGIN BEGIN
PROMPT 90 90 "" PROMPT 90 90 ""
ITEM "D|Dichiarante" ITEM "D|Dichiarante"

10
m770/775200.cpp
View File

@ -11,13 +11,11 @@
#include <urldefid.h> #include <urldefid.h>
#include <execp.h> #include <execp.h>
#include <mailbox.h> #include <mailbox.h>
#include "774100.h" #include "774100.h"
#include "rpag.h"
#include <rpag.h> #include "rver.h"
#include <rver.h> #include "scperc.h"
#include <scperc.h> #include "quadrol.h"
#include <quadrol.h>
class TGenera_dett : public TApplication class TGenera_dett : public TApplication
{ {

22
m770/776100.cpp
View File

@ -376,14 +376,30 @@ void TManutenzione_quadri::show_menu(TMask& m, const int group, bool mostra)
bool TManutenzione_quadri::menu_dich(TMask_field& f, KEY k) bool TManutenzione_quadri::menu_dich(TMask_field& f, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
show_menu(f.mask(), -4, TRUE); {
TMask& m = f.mask();
m.hide(-1);
m.hide(DLG_NULL_SOCI);
m.hide(DLG_MANUTENZ_SOCI);
m.hide(-3);
m.show(-5);
}
return TRUE; return TRUE;
} }
bool TManutenzione_quadri::cancel_menu_dich(TMask_field& f, KEY k) bool TManutenzione_quadri::cancel_menu_dich(TMask_field& f, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
show_menu(f.mask(), -4, FALSE); {
TMask& m = f.mask();
m.hide(-5);
m.show(-3);
m.show(-1);
m.show(DLG_NULL_SOCI);
m.show(DLG_MANUTENZ_SOCI);
m.enable(DLG_NULL_SOCI, app()._soci);
m.enable(DLG_MANUTENZ_SOCI, app()._soci);
}
return TRUE; return TRUE;
} }
@ -543,7 +559,7 @@ bool TManutenzione_quadri::main_loop()
continue; continue;
load_mask(1); load_mask(1);
_msk[1]->autoload(_rel); _msk[1]->autoload(*_rel);
init_menu(*_msk[1]); init_menu(*_msk[1]);

163
m770/776100b.h
View File

@ -57,69 +57,104 @@
#define DLG_STOPREC_S 153 #define DLG_STOPREC_S 153
#define DLG_NULL_T 154 #define DLG_NULL_T 154
#define DLG_STOPREC_T 155 #define DLG_STOPREC_T 155
#define DLG_MANUTENZ 156
#define DLG_MANUTENZ 218 #define DLG_NULL_DICH 157
#define DLG_STOPREC_DICH 158
#define DLG_NULL_DICH 206 #define DLG_NULL_RAPP 159
#define DLG_STOPREC_DICH 207 #define DLG_STOPREC_RAPP 160
#define DLG_NULL_RAPP 208 #define DLG_NULL_SCRIT 161
#define DLG_STOPREC_RAPP 209 #define DLG_STOPREC_SCRIT 162
#define DLG_NULL_SCRIT 210 #define DLG_NULL_CAAF 163
#define DLG_STOPREC_SCRIT 211 #define DLG_STOPREC_CAAF 164
#define DLG_NULL_CAAF 212 #define DLG_NULL_DIRET 165
#define DLG_STOPREC_CAAF 213 #define DLG_STOPREC_DIRET 166
#define DLG_NULL_DIRET 214 #define DLG_NULL_CONC 167
#define DLG_STOPREC_DIRET 215 #define DLG_STOPREC_CONC 168
#define DLG_NULL_CONC 216 #define DLG_NULL_DIC0 169
#define DLG_STOPREC_CONC 217 #define DLG_STOPREC_DIC0 170
#define DLG_NULL_DIC0 200 #define DLG_NULL_DIC1 171
#define DLG_STOPREC_DIC0 201 #define DLG_STOPREC_DIC1 172
#define DLG_NULL_DIC1 202 #define DLG_NULL_SOCTRA 173
#define DLG_STOPREC_DIC1 203 #define DLG_STOPREC_SOCTRA 174
#define DLG_NULL_SOCTRA 204 #define DLG_CANCEL_MENU 175
#define DLG_STOPREC_SOCTRA 205 #define DLG_NULL_DG 176
#define DLG_STOPREC_DG 177
#define DLG_CANCEL_MENU 163 #define DLG_MANUTENZ_SOCI 178
#define DLG_NULL_SOCI 179
#define DLG_NULL_DG 164 #define DLG_NULL_ST 180
#define DLG_STOPREC_DG 165 #define DLG_STOPREC_ST 181
#define DLG_STOPREC_AD 182
#define DLG_MANUTENZ_SOCI 166 #define DLG_NULL_ST0 183
#define DLG_NULL_SOCI 167 #define DLG_STOPREC_ST0 184
#define DLG_NULL_ST1 185
#define DLG_NULL_ST 168 #define DLG_STOPREC_ST1 186
#define DLG_STOPREC_ST 169 #define DLG_CANCEL_MENU_ST 187
#define DLG_STOPREC_AD 170 #define DLG_NULL_ST2 188
#define DLG_STOPREC_ST2 189
// Menu' stampe #define DLG_NULL_ST3 190
#define DLG_NULL_ST0 219 #define DLG_STOPREC_ST3 191
#define DLG_STOPREC_ST0 220 #define DLG_NULL_SD 192
#define DLG_NULL_ST1 221 #define DLG_STOPREC_SD 193
#define DLG_STOPREC_ST1 222 #define DLG_NULL_SD0 194
#define DLG_STOPREC_SD0 195
#define DLG_CANCEL_MENU_ST 170 #define DLG_NULL_SD1 196
#define DLG_NULL_ST2 171 #define DLG_STOPREC_SD1 197
#define DLG_STOPREC_ST2 172 #define DLG_NULL_SD2 198
#define DLG_NULL_ST3 173 #define DLG_STOPREC_SD2 199
#define DLG_STOPREC_ST3 174 #define DLG_CANCEL_MENU_SD 200
// Fine stampe #define DLG_STOPREC_IR 201
#define RILEGGI_QUADRI 202
// Menu' sogg. dichiarante #define DLG_NULL_STQD 203
#define DLG_NULL_SD 198 #define DLG_STOPREC_STQD 204
#define DLG_STOPREC_SD 199 #define T_BASE 205
#define DLG_NULL_SD0 191 #define B_BASE 206
#define DLG_STOPREC_SD0 192 #define T_LAGG 207
#define DLG_NULL_SD1 193 #define B_LAGG 208
#define DLG_STOPREC_SD1 194 #define T_NAGG 209
#define DLG_NULL_SD2 195 #define B_NAGG 210
#define DLG_STOPREC_SD2 196 #define T_ALLSOC 211
#define DLG_CANCEL_MENU_SD 197 #define B_ALLSOC 212
#define T_ALLG 213
#define DLG_STOPREC_IR 175 #define B_ALLG 214
#define T_BUST 215
#define RILEGGI_QUADRI 190 #define B_BUST 216
#define T_A 217
#define DLG_NULL_STQD 198 #define B_A 218
#define DLG_STOPREC_STQD 199 #define T_A1 219
#define B_A1 220
#define T_A2 221
#define B_A2 222
#define T_A3 223
#define B_A3 224
#define T_B 225
#define B_B 226
#define T_B1 227
#define B_B1 228
#define T_C 229
#define B_C 230
#define T_D 231
#define B_D 232
#define T_D1 233
#define B_D1 234
#define T_E 235
#define B_E 236
#define T_E1 237
#define B_E1 238
#define T_E2 239
#define B_E2 240
#define T_F 241
#define B_F 242
#define T_F1 243
#define B_F1 244
#define T_F2 245
#define B_F2 246
#define T_G 247
#define B_G 248
#define T_G1 249
#define B_G1 250
#define T_H 251
#define B_H 252
#define DLG_STOPREC_SP 253
#define DLG_STOPREC_DG 254
#endif #endif

534
m770/776100b.uml
View File

@ -1,6 +1,49 @@
// Menu' manutenzione quadri // Menu' manutenzione quadri
#include "776100b.h" #include "776100b.h"
TOOLBAR "" 0 22 0 2 TOOLBAR "" 0 19 0 0
BUTTON DLG_CANCEL 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
GROUP 1
END
BUTTON DLG_QUIT 20 2
BEGIN
PROMPT -12 -11 "Fine"
END
BUTTON DLG_CANCEL_MENU 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
GROUP 2
FLAGS "H"
END
BUTTON DLG_CANCEL_MENU_ST 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
GROUP 3
FLAGS "H"
END
BUTTON DLG_CANCEL_MENU_SD 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
GROUP 4
FLAGS "H"
END
#define DLG_CANCEL_MENUSTQ 303
BUTTON DLG_CANCEL_MENUSTQ 20 2
BEGIN
PROMPT -22 -11 "Menu' precedente"
GROUP 5
FLAGS "H"
MESSAGE HIDE,5@|SHOW,3@
END
ENDPAGE ENDPAGE
PAGE "Manutenzione dichiarazione" -1 -1 78 21 PAGE "Manutenzione dichiarazione" -1 -1 78 21
@ -86,7 +129,7 @@ BEGIN
GROUP 1 GROUP 1
END END
BUTTON DLG_STOPREC 1 1 BUTTON DLG_STOPREC_SP 1 1
BEGIN BEGIN
PROMPT 1 8 "" PROMPT 1 8 ""
GROUP 1 GROUP 1
@ -102,7 +145,6 @@ END
BUTTON DLG_MANUTENZ_SOCI 1 1 BUTTON DLG_MANUTENZ_SOCI 1 1
BEGIN BEGIN
PROMPT 39 5 "" PROMPT 39 5 ""
// MESSAGE RUN,ba4,-5
PICTURE 123 PICTURE 123
GROUP 1 GROUP 1
END END
@ -121,8 +163,7 @@ BEGIN
GROUP 1 GROUP 1
END END
// Forza la rilettura del flag QCOMP BUTTON DLG_STOPREC_DG 1 1
BUTTON DLG_STOPREC 1 1
BEGIN BEGIN
PROMPT 39 7 "" PROMPT 39 7 ""
MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI MESSAGE RUN,771MOD,-2,W|K_TAB,RILEGGI_QUADRI
@ -661,68 +702,6 @@ BEGIN
GROUP 2 GROUP 2
END END
/******************************************************
NUMBER DLG_STOPREC_DIC0 5
BEGIN
PROMPT 1 12 "Soggetto dichiarante "
USE LF_BASE KEY 1 SELECT (CODDIC="")
JOIN LF_NDITTE TO LF_BASE KEY 1 INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
OUTPUT DLG_STOPREC_DIC0 CODDITTA
FIELD LF_BASE->CODDIC
FLAGS "H"
GROUP 2
END
BUTTON DLG_STOPREC_DIC1 9 2
BEGIN
PROMPT 1 13 "~Soggetti estinti"
// MESSAGE RUN,771MOD,-0,G
FLAGS "H"
GROUP 2
END
TEXT DLG_NULL_DIC0
BEGIN
PROMPT 5 11 "Soggetto dichiarante"
FLAGS "H"
GROUP 2
END
BUTTON DLG_STOPREC_DIC0 1 1
BEGIN
PROMPT 1 11 ""
PICTURE 123
// MESSAGE RUN,771MOD,-0,G
FLAGS "H"
GROUP 2
END
TEXT DLG_NULL_DIC1
BEGIN
PROMPT 5 12 "Soggetti estinti"
FLAGS "H"
GROUP 2
END
BUTTON DLG_STOPREC_DIC1 1 1
BEGIN
PROMPT 1 12 ""
PICTURE 123
// MESSAGE RUN,771MOD,-0,G
FLAGS "H"
GROUP 2
END
**************************/
BUTTON DLG_CANCEL_MENU 20 2
BEGIN
PROMPT -22 -1 "Menu' precedente"
GROUP 2
FLAGS "H"
END
/////////// Fine colonna MENU' ANAGRAFICI //////////////////////////// /////////// Fine colonna MENU' ANAGRAFICI ////////////////////////////
/////////// Inizio colonna MENU' STAMPE //////////////////////////// /////////// Inizio colonna MENU' STAMPE ////////////////////////////
@ -790,8 +769,6 @@ BEGIN
GROUP 3 GROUP 3
END END
#include "menustq.uml"
TEXT DLG_NULL_STQD TEXT DLG_NULL_STQD
BEGIN BEGIN
PROMPT 5 9 "Menu' stampe dichiarazioni" PROMPT 5 9 "Menu' stampe dichiarazioni"
@ -799,14 +776,6 @@ BEGIN
GROUP 3 GROUP 3
END END
BUTTON DLG_CANCEL_MENU_ST 20 2
BEGIN
PROMPT -22 -1 "Menu' precedente"
GROUP 3
MESSAGE HIDE,3@|SHOW,1@
FLAGS "H"
END
BUTTON DLG_STOPREC_STQD 1 1 BUTTON DLG_STOPREC_STQD 1 1
BEGIN BEGIN
PROMPT 1 9 "" PROMPT 1 9 ""
@ -816,6 +785,400 @@ BEGIN
GROUP 3 GROUP 3
END END
#define COL1 5
#define COL2 24
#define COL3 5
#define COL4 5
#define ROW1 7
#define ROW2 8
#define ROW3 9
#define ROW4 10
#define ROW5 11
#define ROW6 12
#define HIDDEN "H"
#define MYFLAGS "H"
#define GRUPPO 5
// Prima colonna
TEXT T_BASE
BEGIN
PROMPT COL1 ROW1 "Quadro Base"
GROUP GRUPPO
FLAGS MYFLAGS
END
BUTTON B_BASE 1 1
BEGIN
PROMPT 1 ROW1 ""
MESSAGE RUN,772MOD,-4,Base,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_LAGG
BEGIN
PROMPT COL1 ROW2 "Quadro L agg."
GROUP GRUPPO
FLAGS MYFLAGS
END
BUTTON B_LAGG 1 1
BEGIN
PROMPT 1 ROW2 ""
MESSAGE RUN,772MOD,-4,L,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_NAGG
BEGIN
PROMPT COL1 ROW3 "Quadro N agg."
GROUP GRUPPO
FLAGS MYFLAGS
END
BUTTON B_NAGG 1 1
BEGIN
PROMPT 1 ROW3 ""
MESSAGE RUN,772MOD,-4,N,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_ALLSOC
BEGIN
PROMPT COL1 ROW4 "Allegato Soci "
GROUP GRUPPO
FLAGS MYFLAGS
END
BUTTON B_ALLSOC 1 1
BEGIN
PROMPT 1 ROW4 ""
MESSAGE RUN,772MOD,-4,S,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_ALLG
BEGIN
PROMPT COL1 ROW5 "Allegato G "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_ALLG 1 1
BEGIN
PROMPT 1 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,J,D
FLAGS MYFLAGS
GROUP GRUPPO
END
// Fine prima colonna
// Seconda colonna
TEXT T_A
BEGIN
PROMPT 24 ROW1 "Quadro A "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_A 1 1
BEGIN
PROMPT 20 ROW1 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_A1
BEGIN
PROMPT 24 ROW2 "Quadro A1 "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_A1 1 1
BEGIN
PROMPT 20 ROW2 ""
PICTURE 123
FLAGS MYFLAGS
MESSAGE RUN,772MOD,-4,A1,D|K_TAB,RILEGGI_QUADRI
GROUP GRUPPO
END
TEXT T_A2
BEGIN
PROMPT 24 ROW3 "Quadro A2 "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_A2 1 1
BEGIN
PROMPT 20 ROW3 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A2,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_A3
BEGIN
PROMPT 24 ROW4 "Quadro A3 "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_A3 1 1
BEGIN
PROMPT 20 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A3,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_B
BEGIN
PROMPT 24 ROW5 "Quadro B"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_B 1 1
BEGIN
PROMPT 20 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,B,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_B1
BEGIN
PROMPT 24 ROW6 "Quadro B1"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_B1 1 1
BEGIN
PROMPT 20 ROW6 ""
PICTURE 123
// MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
// Fine seconda colonna
// Terza colonna
TEXT T_C
BEGIN
PROMPT 43 ROW1 "Quadro C"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_C 1 1
BEGIN
PROMPT 39 ROW1 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,C,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_D
BEGIN
PROMPT 43 ROW2 "Quadro D"
FLAGS HIDDEN
GROUP GRUPPO
END
BUTTON B_D 1 1
BEGIN
PROMPT 39 ROW2 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,D,D
FLAGS HIDDEN
GROUP GRUPPO
END
TEXT T_D1
BEGIN
PROMPT 43 ROW3 "Quadro D1"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_D1 1 1
BEGIN
PROMPT 39 ROW3 ""
PICTURE 123
FLAGS MYFLAGS
MESSAGE RUN,772MOD,-4,D1,D|K_TAB,RILEGGI_QUADRI
GROUP GRUPPO
END
TEXT T_E
BEGIN
PROMPT 43 ROW4 "Quadro E "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_E 1 1
BEGIN
PROMPT 39 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_E1
BEGIN
PROMPT 43 ROW5 "Quadro E1 "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_E1 1 1
BEGIN
PROMPT 39 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_E2
BEGIN
PROMPT 43 ROW6 "Quadro E2 "
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_E2 1 1
BEGIN
PROMPT 39 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI
FLAGS MYFLAGS
GROUP GRUPPO
END
// Fine terza colonna
// QUARTA colonna
TEXT T_F
BEGIN
PROMPT 62 ROW1 "Quadro F"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_F 1 1
BEGIN
PROMPT 58 ROW1 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_F1
BEGIN
PROMPT 62 ROW2 "Quadro F1"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_F1 1 1
BEGIN
PROMPT 58 ROW2 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_F2
BEGIN
PROMPT 62 ROW3 "Quadro F2"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_F2 1 1
BEGIN
PROMPT 58 ROW3 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_G
BEGIN
PROMPT 62 ROW4 "Quadro G"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_G 1 1
BEGIN
PROMPT 58 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,G,D
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_G1
BEGIN
PROMPT 62 ROW5 "Quadro G1"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_G1 1 1
BEGIN
PROMPT 58 ROW5 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAGS MYFLAGS
GROUP GRUPPO
END
TEXT T_H
BEGIN
PROMPT 62 ROW6 "Quadro H"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_H 1 1
BEGIN
PROMPT 58 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,H,D
FLAGS MYFLAGS
GROUP GRUPPO
END
// Fine QUARTA colonna
/////////// Fine colonna MENU' STAMPE //////////////////////////// /////////// Fine colonna MENU' STAMPE ////////////////////////////
/////////// Inizio colonna MENU' SOGG. DICHIARANTE //////////////////////////// /////////// Inizio colonna MENU' SOGG. DICHIARANTE ////////////////////////////
@ -867,25 +1230,8 @@ BEGIN
GROUP 4 GROUP 4
END END
BUTTON DLG_CANCEL_MENU_SD 20 2
BEGIN
PROMPT -22 -1 "Menu' precedente"
GROUP 4
FLAGS "H"
END
/////////// Fine colonna MENU' SOGG. DICHIARANTE //////////////////////////// /////////// Fine colonna MENU' SOGG. DICHIARANTE ////////////////////////////
BUTTON DLG_CANCEL 20 2
BEGIN
PROMPT -22 -1 "Menu' precedente"
GROUP 1
END
BUTTON DLG_QUIT 20 2
BEGIN
PROMTP -12 -1 "Fine"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
m770/776300.cpp
View File

@ -389,7 +389,7 @@ long TSelezioneDich::select_firm_range(long from, long to)
if (to == 0l) to = 99999L; if (to == 0l) to = 99999L;
for (int i = 0; i < _ditte->items(); i++) for (int i = 0; i < _ditte->items(); i++)
{ {
if (_ditte->disabled(i)) if (_ditte->row_disabled(i))
continue; continue;
TToken_string& d = _ditte->row(i); TToken_string& d = _ditte->row(i);

8
m770/776500.cpp
View File

@ -58,14 +58,14 @@ bool TParametri_genera::main_loop()
_rel->lfile().put("CODDITTA", codditta); _rel->lfile().put("CODDITTA", codditta);
_rel->read(); _rel->read();
msk.autoload(_rel); msk.autoload(*_rel);
tasto = msk.run(); tasto = msk.run();
if (tasto == K_ESC) continue; if (tasto == K_ESC) continue;
if (tasto == K_SAVE) if (tasto == K_SAVE)
{ {
msk.autosave(_rel); msk.autosave(*_rel);
_rel->rewrite(); _rel->rewrite();
} }
@ -80,7 +80,7 @@ bool TParametri_genera::main_loop()
_rel->lfile().put("CODDITTA", codditta); _rel->lfile().put("CODDITTA", codditta);
_rel->read(); _rel->read();
msk.autoload(_rel); msk.autoload(*_rel);
tasto = msk.run(); tasto = msk.run();
if (tasto == K_ESC) if (tasto == K_ESC)
@ -91,7 +91,7 @@ bool TParametri_genera::main_loop()
if (tasto == K_SAVE) if (tasto == K_SAVE)
{ {
msk.autosave(_rel); msk.autosave(*_rel);
_rel->rewrite(); _rel->rewrite();
_risposta = 1; _risposta = 1;
} }

3
m770/776600.cpp
View File

@ -68,8 +68,9 @@ bool TEstinti_app::create()
filt.format("CODDIC=%ld", _codditta); filt.format("CODDIC=%ld", _codditta);
_cur = new TCursor(_rel, filt); _cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY);
TToken_string siblings;
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti", _estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
"Codice|Ragione sociale@50", 8, &dummy); "Codice|Ragione sociale@50", 8, &dummy, siblings);
_msk->set_handler(F_ESTINTI, show_estinti); _msk->set_handler(F_ESTINTI, show_estinti);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;

1
m770/77qn.uml
View File

@ -78,7 +78,6 @@ BEGIN
WARNING "Manca il mese" WARNING "Manca il mese"
FLAGS "M" FLAGS "M"
ITEM "|" ITEM "|"
CHECKTYPE REQUIRED
END END
TEXT DLG_NULL TEXT DLG_NULL

2
m770/77qq.uml
View File

@ -78,7 +78,6 @@ BEGIN
WARNING "Manca il mese" WARNING "Manca il mese"
FLAGS "M" FLAGS "M"
ITEM "|" ITEM "|"
CHECKTYPE REQUIRED
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -165,7 +164,6 @@ BEGIN
ITEM "W|Valle d'Aosta" ITEM "W|Valle d'Aosta"
ITEM "Z|Veneto " ITEM "Z|Veneto "
FIELD LF_QUAQ->CODREG FIELD LF_QUAQ->CODREG
CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE

1
m770/77qr.uml
View File

@ -78,7 +78,6 @@ BEGIN
WARNING "Manca il mese" WARNING "Manca il mese"
FLAGS "M" FLAGS "M"
ITEM "|" ITEM "|"
CHECKTYPE REQUIRED
END END
TEXT DLG_NULL TEXT DLG_NULL

2
m770/77qt.uml
View File

@ -78,7 +78,6 @@ BEGIN
WARNING "Manca il mese" WARNING "Manca il mese"
FLAGS "M" FLAGS "M"
ITEM "|" ITEM "|"
CHECKTYPE REQUIRED
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -166,7 +165,6 @@ BEGIN
ITEM "W|Valle d'Aosta" ITEM "W|Valle d'Aosta"
ITEM "Z|Veneto " ITEM "Z|Veneto "
FIELD LF_QUAT->CODREG FIELD LF_QUAT->CODREG
CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE

6
m770/batbca7.uml
View File

@ -62,7 +62,6 @@ BEGIN
MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2 MESSAGE CLEAR,G_INPS@|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,GR_CAUDD1@|DISABLE,GR_CAUDD1@|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_CODQUA MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro" WARNING "Manca il codice quadro"
CHECKTYPE REQUIRED
FIELD LF_TABCOM->S1 FIELD LF_TABCOM->S1
END END
@ -119,11 +118,10 @@ BEGIN
MESSAGE COPY,F_QUADRCE2 MESSAGE COPY,F_QUADRCE2
MESSAGE COPY,F_CODQUA MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro" WARNING "Manca il codice quadro"
CHECKTYPE REQUIRED
FIELD LF_TABCOM->S1 FIELD LF_TABCOM->S1
END END
LIST F_CODQUA LIST F_CODQUA 2
BEGIN BEGIN
PROMPT 1 3 "" PROMPT 1 3 ""
ITEM "A|A" ITEM "A|A"
@ -173,7 +171,7 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22 MESSAGE COPY,F_DESCR1,1,22
END END
LISTBOX TCF_CAUSD 1 60 LISTBOX TCF_CAUSD 1 250
BEGIN BEGIN
PROMPT 1 5 "Causale D " PROMPT 1 5 "Causale D "
ITEM "|" ITEM "|"

4
m770/generic.cpp
View File

@ -199,7 +199,7 @@ bool TGenericRel_application::user_destroy()
int TGenericRel_application::rewrite(const TMask& m) int TGenericRel_application::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
_registra = TRUE; _registra = TRUE;
return err; return err;
@ -207,7 +207,7 @@ int TGenericRel_application::rewrite(const TMask& m)
int TGenericRel_application::write(const TMask& m) int TGenericRel_application::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
_registra = TRUE; _registra = TRUE;
return err; return err;

97
m770/menustq.h
View File

@ -1,54 +1,53 @@
#ifndef __MENUST_H #ifndef __MENUST_H
#define __MENUST_H #define __MENUST_H
#define DLG_CANCEL_MENUSTQ 103 #define T_BASE 504
#define T_BASE 104 #define B_BASE 505
#define B_BASE 105 #define T_LAGG 506
#define T_LAGG 106 #define B_LAGG 507
#define B_LAGG 107 #define T_NAGG 508
#define T_NAGG 108 #define B_NAGG 509
#define B_NAGG 109 #define T_ALLSOC 510
#define T_ALLSOC 110 #define B_ALLSOC 511
#define B_ALLSOC 111 #define T_ALLG 512
#define T_ALLG 112 #define B_ALLG 513
#define B_ALLG 113 #define T_BUST 514
#define T_BUST 114 #define B_BUST 515
#define B_BUST 115 #define T_A 516
#define T_A 116 #define B_A 517
#define B_A 117 #define T_A1 518
#define T_A1 118 #define B_A1 519
#define B_A1 119 #define T_A2 520
#define T_A2 120 #define B_A2 521
#define B_A2 121 #define T_A3 522
#define T_A3 122 #define B_A3 523
#define B_A3 123 #define T_B 524
#define T_B 124 #define B_B 525
#define B_B 125 #define T_B1 526
#define T_B1 126 #define B_B1 527
#define B_B1 127 #define T_C 528
#define T_C 128 #define B_C 529
#define B_C 129 #define T_D 530
#define T_D 130 #define B_D 531
#define B_D 131 #define T_D1 532
#define T_D1 132 #define B_D1 533
#define B_D1 133 #define T_E 534
#define T_E 134 #define B_E 535
#define B_E 135 #define T_E1 536
#define T_E1 136 #define B_E1 537
#define B_E1 137 #define T_E2 538
#define T_E2 138 #define B_E2 539
#define B_E2 139 #define T_F 540
#define T_F 140 #define B_F 541
#define B_F 141 #define T_F1 542
#define T_F1 142 #define B_F1 543
#define B_F1 143 #define T_F2 544
#define T_F2 144 #define B_F2 545
#define B_F2 145 #define T_G 546
#define T_G 146 #define B_G 547
#define B_G 147 #define T_G1 548
#define T_G1 148 #define B_G1 549
#define B_G1 149 #define T_H 550
#define T_H 150 #define B_H 551
#define B_H 151
#endif #endif

8
m770/menustq.uml
View File

@ -394,11 +394,3 @@ BEGIN
END END
// Fine QUARTA colonna // Fine QUARTA colonna
BUTTON DLG_CANCEL_MENUSTQ 20 2
BEGIN
PROMPT -22 -1 "Menu' precedente"
GROUP GRUPPO
FLAGS "H"
MESSAGE HIDE,GRUPPO@|SHOW,3@
END

12
m770/quadb_b1.cpp
View File

@ -263,7 +263,7 @@ bool TQuadriBB1_application::EsisteGiaRecordDip(const TMask& m)
int TQuadriBB1_application::rewrite(const TMask& m) int TQuadriBB1_application::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
_registra = err == NOERR; _registra = err == NOERR;
return err; return err;
@ -283,7 +283,7 @@ int TQuadriBB1_application::read(TMask& m)
int TQuadriBB1_application::write(const TMask& m) int TQuadriBB1_application::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
if (QuadroB1()) if (QuadroB1())
if (EsisteGiaRecordDip(m)) if (EsisteGiaRecordDip(m))
return warning_box("E' già presente un record per questo dipendente"); return warning_box("E' già presente un record per questo dipendente");
@ -484,6 +484,12 @@ bool TQuadriBB1_application::NprogExitHandler(TMask_field& f, KEY k)
TMask& m = f.mask(); TMask& m = f.mask();
if (!m.is_running()) return TRUE; if (!m.is_running()) return TRUE;
if (k == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
if (k == K_TAB) if (k == K_TAB)
{ {
TString nprog(f.get()); TString nprog(f.get());
@ -510,7 +516,7 @@ bool TQuadriBB1_application::NprogExitHandler(TMask_field& f, KEY k)
// Compila cognome e nome se vuoti // Compila cognome e nome se vuoti
BB1SettaCognomeNome(m); BB1SettaCognomeNome(m);
m.stop_run(K_AUTO_ENTER); // m.stop_run(K_AUTO_ENTER);
} }
} }
return TRUE; return TRUE;

13
m770/quadn_t.cpp
View File

@ -173,7 +173,7 @@ bool TQuadriNT_application::CheckImporti(const TMask& m)
int TQuadriNT_application::rewrite(const TMask& m) int TQuadriNT_application::rewrite(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->rewrite(); const int err = _rel->rewrite();
_registra = err == NOERR; _registra = err == NOERR;
return err; return err;
@ -181,7 +181,7 @@ int TQuadriNT_application::rewrite(const TMask& m)
int TQuadriNT_application::write(const TMask& m) int TQuadriNT_application::write(const TMask& m)
{ {
m.autosave(_rel); m.autosave(*_rel);
const int err = _rel->write(); const int err = _rel->write();
_registra = err == NOERR; _registra = err == NOERR;
return err; return err;
@ -303,6 +303,12 @@ bool TQuadriNT_application::codtrib_handler(TMask_field& f, KEY k)
bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k) bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k)
{ {
if (k == K_CTRL+K_TAB)
{
f.set_dirty();
return TRUE;
}
if (k == K_TAB) if (k == K_TAB)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
@ -323,13 +329,14 @@ bool TQuadriNT_application::nprog_handler(TMask_field& f, KEY k)
TString16 nprog_str; nprog_str << nprog; TString16 nprog_str; nprog_str << nprog;
f.mask().set(QNF_NPROG, nprog_str); f.mask().set(QNF_NPROG, nprog_str);
} }
/*
// Quando la maschera e' running, se c'e' NPROG la chiude // Quando la maschera e' running, se c'e' NPROG la chiude
else else
{ {
TString nprogstr(f.get()); TString nprogstr(f.get());
if (nprogstr.not_empty()) if (nprogstr.not_empty())
m.stop_run(K_AUTO_ENTER); m.stop_run(K_AUTO_ENTER);
} } */
} }
return TRUE; return TRUE;
} }