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

Aggiustamenti per videi veloci:

Browse Source 
Con queste modifiche e' finita la prima unita' di test per Omero


git-svn-id: svn://10.65.10.50/trunk@4036 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-01-07 08:05:19 +00:00
parent e74f67bdcb
commit f513638262
9 changed files with 2986 additions and 2920 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

413
m770/776600.cpp
View File

@ -1,197 +1,216 @@
// 776600.cpp - Gestione estinti // 776600.cpp - Gestione estinti
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <mask.h>
#include <isam.h> #include <isam.h>
#include <relation.h> #include <relation.h>
#include <sheet.h> #include <sheet.h>
#include <urldefid.h> #include <urldefid.h>
#include "776600a.h" #include "776600a.h"
#include "77lib.h" #include "77lib.h"
// //
// Lista modifiche // Lista modifiche
// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione // 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione
// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro // anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro
// //
class TEstinti_app : public TApplication class TEstinti_app : public TApplication
{ {
long _codditta; long _codditta;
TMask* _msk; TMask* _msk;
TLocalisamfile* _base, *_basebis; TLocalisamfile* _base, *_basebis;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
TBrowse_sheet* _estint_sheet; TBrowse_sheet* _estint_sheet;
TRectype& _rec; static bool show_estinti(TMask_field& f, KEY k);
static bool show_estinti(TMask_field& f, KEY k); void force_output(int dlg, const long cod);
void force_output(int dlg, const long cod);
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool save(TMask& m, const long coddic_prec); bool save(TMask& m, const long coddic_prec);
bool set_codditta(TMask_field& f); bool set_codditta(TMask_field& f);
bool main_loop(); bool main_loop();
};
public:
TEstinti_app& app() { return (TEstinti_app&) main_app(); } TEstinti_app();
~TEstinti_app() {};
bool TEstinti_app::set_codditta(TMask_field& f) };
{
TString16 codditta; TEstinti_app& app() { return (TEstinti_app&) main_app(); }
codditta << get_firm_770();
if (codditta != "0") TEstinti_app::TEstinti_app():
{ _base(NULL),
f.set(codditta); _basebis(NULL),
// f.set_dirty(); _rel(NULL),
f.check(); _msk(NULL),
} _cur(NULL),
return TRUE; _estint_sheet(NULL)
} {}
bool TEstinti_app::show_estinti(TMask_field& f, KEY k)
{ bool TEstinti_app::set_codditta(TMask_field& f)
if (k == K_SPACE) {
app()._estint_sheet->run(); TString16 codditta;
return TRUE; codditta << get_firm_770();
} if (codditta != "0")
{
bool TEstinti_app::create() f.set(codditta);
{ // f.set_dirty();
TApplication::create(); f.check();
_base = new TLocalisamfile(LF_BASE); }
_basebis = new TLocalisamfile(LF_BASEBIS); return TRUE;
_msk = new TMask("776600a"); }
_rel = new TRelation(LF_BASE);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA"); bool TEstinti_app::show_estinti(TMask_field& f, KEY k)
{
_codditta = get_firm_770(); if (k == K_SPACE)
set_codditta(_msk->field(F_CODDITTA)); app()._estint_sheet->run();
TString16 filt; return TRUE;
filt.format("CODDIC=%ld", _codditta); }
_cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY); bool TEstinti_app::create()
TToken_string siblings; {
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti", TApplication::create();
"Codice|Ragione sociale@50", 8, &dummy, siblings); _base = new TLocalisamfile(LF_BASE);
_msk->set_handler(F_ESTINTI, show_estinti); _basebis = new TLocalisamfile(LF_BASEBIS);
dispatch_e_menu (BAR_ITEM(1)); _msk = new TMask("776600a");
return TRUE; _rel = new TRelation(LF_BASE);
} _rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
bool TEstinti_app::destroy() _codditta = get_firm_770();
{ set_codditta(_msk->field(F_CODDITTA));
delete _estint_sheet; TString16 filt;
delete _rel; delete _cur; filt.format("CODDIC=%ld", _codditta);
delete _msk; delete _base; delete _basebis; _cur = new TCursor(_rel, filt);
return TApplication::destroy(); TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY);
} TToken_string siblings;
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
void TEstinti_app::force_output(int dlg, const long codditta) "Codice|Ragione sociale@50", 8, &dummy, siblings);
{ _msk->set_handler(F_ESTINTI, show_estinti);
TLocalisamfile ditte(LF_NDITTE); dispatch_e_menu (BAR_ITEM(1));
ditte.zero(); return TRUE;
ditte.put("CODDITTA", (long)codditta); }
int ret = ditte.read(_isequal);
if (ret == NOERR) bool TEstinti_app::destroy()
{ {
TString80 ragsoc(ditte.get("RAGSOC")); delete _estint_sheet;
_msk->set(dlg, ragsoc); delete _rel; delete _cur;
} delete _msk; delete _base; delete _basebis;
} return TApplication::destroy();
}
bool TEstinti_app::save(TMask& m, const long codic_prec)
{ void TEstinti_app::force_output(int dlg, const long codditta)
const long new_codic = m.get_long(F_CODDIC); {
_rec = _base->curr(); TLocalisamfile ditte(LF_NDITTE);
_rec.zero(); ditte.zero();
_rec.put("TIPOQUA", ' '); ditte.put("CODDITTA", (long)codditta);
_rec.put("CODDITTA",(long)_codditta); int ret = ditte.read(_isequal);
_base->read(_rec); if (ret == NOERR)
_rec.put("CODDIC",(long)new_codic); {
_base->rewrite(_rec); TString80 ragsoc(ditte.get("RAGSOC"));
_msk->set(dlg, ragsoc);
// Stessa cosa su basebis }
_basebis->zero(); }
_basebis->put("CODDITTA", (long)_codditta);
_basebis->put("CODDIC", (long)new_codic); bool TEstinti_app::save(TMask& m, const long codic_prec)
_basebis->rewrite(); {
const long new_codic = m.get_long(F_CODDIC);
// Crea il record globale per il dichiarante scelto se non esiste TRectype _rec = _base->curr();
// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare _base->setkey(1);
// il dichiarante crea un record duplicato! _rec.zero();
if (new_codic != 0L) _rec.put("TIPOQUA", ' ');
if (!exist_dichiar_770(new_codic, TRUE)) _rec.put("CODDITTA",(long)_codditta);
enter_dichiar_770(new_codic, anno_770(), TRUE); if (_base->read(_rec) == NOERR)
{
return TRUE; _rec.put("CODDIC",(long)new_codic);
} _base->rewrite(_rec);
}
bool TEstinti_app::main_loop()
{ // Stessa cosa su basebis
KEY tasto = K_ESC; TRectype _recbis = _basebis->curr();
_basebis->setkey(1);
const long codditta = _msk->get_long(F_CODDITTA); _recbis.zero();
_base->zero(); _recbis.put("TIPOQUA", ' ');
_base->setkey(1); _recbis.put("CODDITTA",(long)_codditta);
_base->put("CODDITTA", (long)codditta);
_base->read(); if (_basebis->read(_recbis) == NOERR)
_msk->open_modal(); {
_recbis.put("CODDIC",(long)new_codic);
while (tasto != K_QUIT) _basebis->rewrite(_rec);
{ }
const bool dichiarante = sogg_dic(_codditta);
long coddic = 0L; // Crea il record globale per il dichiarante scelto se non esiste
if (!dichiarante) // 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare
{ // il dichiarante crea un record duplicato!
coddic = sogg_estinto(_codditta); if (new_codic != 0L)
if (coddic > 0L && coddic < COD_QUA_I_DIC) if (!exist_dichiar_770(new_codic, TRUE))
{ enter_dichiar_770(new_codic, anno_770(), TRUE);
_msk->set(F_CODDIC, coddic);
// _msk->field(F_CODDIC).check(); return TRUE;
force_output(F_RAGSOC, coddic); }
}
} bool TEstinti_app::main_loop()
_msk->enable(F_CODDIC, !dichiarante); {
_msk->enable(F_ESTINTI, dichiarante); KEY tasto = K_ESC;
_msk->enable(DLG_SAVEREC,!dichiarante);
const long codditta = _msk->get_long(F_CODDITTA);
tasto = _msk->run(); _base->zero();
_base->setkey(1);
switch (tasto) { _base->put("CODDITTA", (long)codditta);
case K_ENTER: _base->read();
if (_msk->dirty()) _msk->open_modal();
// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare
if (!dichiarante) while (tasto != K_QUIT)
save(*_msk, coddic); {
break; const bool dichiarante = sogg_dic(_codditta);
case K_ESC : long coddic = 0L;
tasto = K_QUIT; if (!dichiarante)
break; coddic = sogg_estinto(_codditta);
case K_QUIT : _msk->set(F_CODDIC, coddic);
break;
case K_SAVE : force_output(F_RAGSOC, coddic);
if (!dichiarante) _msk->enable(F_CODDIC, !dichiarante);
save(*_msk, coddic); _msk->enable(F_ESTINTI, dichiarante);
break; _msk->enable(DLG_SAVEREC,!dichiarante);
default:
break; tasto = _msk->run();
}
} switch (tasto) {
_msk->close(); case K_ENTER:
return FALSE; if (_msk->dirty())
} // Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare
if (!dichiarante)
bool TEstinti_app::menu(MENU_TAG m) save(*_msk, coddic);
{ break;
if (m == BAR_ITEM(1)) case K_ESC :
return main_loop(); tasto = K_QUIT;
return FALSE; break;
} case K_QUIT :
break;
int Estinti(int argc, char* argv[]) case K_SAVE :
{ if (!dichiarante)
TEstinti_app a; save(*_msk, coddic);
a.run(argc, argv, "Gestione dichiarante / estinti"); break;
return 0; default:
} break;
}
}
_msk->close();
return FALSE;
}
bool TEstinti_app::menu(MENU_TAG m)
{
if (m == BAR_ITEM(1))
return main_loop();
return FALSE;
}
int Estinti(int argc, char* argv[])
{
TEstinti_app a;
a.run(argc, argv, "Gestione dichiarante / estinti");
return 0;
}

1743
m770/77lib01.cpp
View File

File diff suppressed because it is too large Load Diff

140
m770/77qb.h
View File

@ -1,71 +1,69 @@
// 77qb.h // 77qb.h
#define QBF_CODDITTA 181 #define QBF_CODDITTA 181
#define QBF_ANNODIC 182 #define QBF_ANNODIC 182
#define QBF_CODDIP 183 #define QBF_CODDIP 183
#define QBF_NPROG 184 #define QBF_NPROG 184
#define QBF_DATAINI 185 #define QBF_DATAINI 185
#define QBF_DATAFIN 186 #define QBF_DATAFIN 186
#define QBF_ANNICOMM 187 #define QBF_ANNICOMM 187
#define QBF_MESICOMM 188 #define QBF_MESICOMM 188
#define QBF_ANNICONV 189 #define QBF_ANNICONV 189
#define QBF_MESICONV 190 #define QBF_MESICONV 190
#define QBF_ANNIPARZ 191 #define QBF_ANNIPARZ 191
#define QBF_MESIPARZ 192 #define QBF_MESIPARZ 192
#define QBF_PERCPARZ 193 #define QBF_PERCPARZ 193
#define QBF_QUOTAECC 194 #define QBF_QUOTAECC 194
#define QBF_MESEEROG 195 #define QBF_MESEEROG 195
#define QBF_TITEROG 196 #define QBF_TITEROG 196
#define QBF_PERCABB 197 #define QBF_PERCABB 197
#define QBF_AMMNETTO 198 #define QBF_AMMNETTO 198
#define QBF_MESEEROG2 199 #define QBF_MESEEROG2 199
#define QBF_TITEROG2 200 #define QBF_TITEROG2 200
#define QBF_PERCABB2 201 #define QBF_PERCABB2 201
#define QBF_AMMNETTO2 202 #define QBF_AMMNETTO2 202
#define QBF_CONTLAV 203 #define QBF_CONTLAV 203
#define QBF_TFR7494 204 #define QBF_TFR7494 204
#define QBF_INDEN7494 205 #define QBF_INDEN7494 205
#define QBF_TIND7494 206 #define QBF_TIND7494 206
#define QBF_TRID 207 #define QBF_TRID 207
#define QBF_TFRIND 208 #define QBF_TFRIND 208
#define QBF_ALIQUOTA 209 #define QBF_ALIQUOTA 209
#define QBF_RETRMEDIA 210 #define QBF_RETRMEDIA 210
#define QBF_ALIQUOTA2 211 #define QBF_ALIQUOTA2 211
#define QBF_IMPTFR 212 #define QBF_IMPTFR 212
#define QBF_IMPIND 213 #define QBF_IMPIND 213
#define QBF_IMPANNO 214 #define QBF_IMPANNO 214
#define QBF_TOTIMP 215 #define QBF_TOTIMP 215
#define QBF_ROPEACC 216 #define QBF_ROPEACC 216
#define QBF_IMPDOV 217 #define QBF_IMPDOV 217
#define QBF_RITECC 218 #define QBF_RITECC 218
#define QBF_QUOTASPET 219 #define QBF_QUOTASPET 219
#define QBF_INDSPETT 220 #define QBF_INDSPETT 220
#define QBF_ROPE 221 #define QBF_ROPE 221
#define QBF_IMPOCSSN 222 #define QBF_IMPOCSSN 222
#define QBF_RAGDITTA 223 #define QBF_RAGDITTA 223
#define QBF_ANADIP_CODDIP 224 #define QBF_ANADIP_CODDIP 224
#define QBF_QUAB_CODDIP 225 #define QBF_QUAB_CODDIP 225
#define QBF_HCODDIP 228 #define QBF_COGNOME 226
#define QBF_NOME 227
#define QBF_COGNOME 226
#define QBF_NOME 227 #define GROUP_EREDE 2
#define GROUP_DIPDEC 3
#define GROUP_EREDE 2 #define RICERCA_DIP 4
#define GROUP_DIPDEC 3 #define RICERCA_QB 5
#define RICERCA_DIP 4 #define GROUP_ALL 6
#define RICERCA_QB 5 #define G_DISABILI 7
#define GROUP_ALL 6
#define G_DISABILI 7 #define QBG_ANADIP 1
#define QBG_QUADROB 2
#define QBG_ANADIP 1
#define QBG_QUADROB 2 #define QBF_CODDIP_ANAG 228
#define QBF_CODDIP_QB 229
#define QBF_CODDIP_ANAG 228
#define QBF_CODDIP_QB 229 #define CODDITTA77 181
#define ANNODIC77 182
#define CODDITTA77 181
#define ANNODIC77 182

55
m770/77qb1.h
View File

@ -1,28 +1,27 @@
// 77qb1.h // 77qb1.h
#define QB1F_CODDITTA 181 #define QB1F_CODDITTA 181
#define QB1F_ANNODIC 182 #define QB1F_ANNODIC 182
#define QB1F_NPROG 183 #define QB1F_NPROG 183
#define QB1F_RAGDITTA 184 #define QB1F_RAGDITTA 184
#define QB1F_INDEN 185 #define QB1F_INDEN 185
#define QB1F_AMMIMP 186 #define QB1F_AMMIMP 186
#define QB1F_IMP4 187 #define QB1F_IMP4 187
#define QB1F_IMP8 188 #define QB1F_IMP8 188
#define QB1F_IMP10 189 #define QB1F_IMP10 189
#define QB1F_IMP12 190 #define QB1F_IMP12 190
#define QB1F_IMP15 191 #define QB1F_IMP15 191
#define QB1F_IMPO15 192 #define QB1F_IMPO15 192
#define QB1F_IMPO4 193 #define QB1F_IMPO4 193
#define QB1F_IMPNETTO 194 #define QB1F_IMPNETTO 194
#define QB1F_ANADIP_CODDIP 195 #define QB1F_ANADIP_CODDIP 195
#define QB1F_QUAB1_CODDIP 196 #define QB1F_QUAB1_CODDIP 196
#define QB1F_CODDIP 197 #define QB1F_CODDIP 197
#define QB1F_COGNOME 198 #define QB1F_COGNOME 198
#define QB1F_NOME 199 #define QB1F_NOME 199
#define QB1F_HCODDIP 200
#define QB1G_ANADIP 1
#define QB1G_ANADIP 1 #define QB1G_QUADROB 2
#define QB1G_QUADROB 2
#define QB1F_CODDIP_ANAG 201
#define QB1F_CODDIP_ANAG 201 #define QB1F_CODDIP_QB1 202
#define QB1F_CODDIP_QB1 202

229
m770/77qb1a.uml
View File

@ -1,104 +1,125 @@
#include "77qb1.h" #include "77qb1.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
#define QB1F_CODDIP 197 PAGE "Quadro B1" -1 -1 78 21
#define QB1F_NPROG 183
GROUPBOX DLG_NULL 78 3
PAGE "MODULO 770 - Manutenzione Quadro B1" -1 -1 78 21 BEGIN
PROMPT 1 0 ""
GROUPBOX DLG_NULL 78 3 END
BEGIN
PROMPT 1 0 "" NUMBER QB1F_CODDITTA 5
END BEGIN
PROMPT 3 1 "Ditta "
NUMBER QB1F_CODDITTA 5 FLAGS "GRD"
BEGIN KEY 1
PROMPT 3 1 "Ditta " CHECKTYPE REQUIRED
FLAGS "GRD" USE LF_NDITTE KEY 1
KEY 1 INPUT CODDITTA QB1F_CODDITTA
CHECKTYPE REQUIRED OUTPUT QB1F_RAGDITTA RAGSOC
USE LF_NDITTE KEY 1 FIELD LF_QUAB1->CODDITTA
INPUT CODDITTA QB1F_CODDITTA END
OUTPUT QB1F_RAGDITTA RAGSOC
FIELD LF_QUAB1->CODDITTA STRING QB1F_RAGDITTA 50
END BEGIN
PROMPT 17 1 "Ragione "
STRING QB1F_RAGDITTA 50 FLAGS "D"
BEGIN END
PROMPT 17 1 "Ragione "
FLAGS "D" NUMBER QB1F_ANNODIC 4
END BEGIN
PROMPT 52 3 "Anno dichiarazione "
NUMBER QB1F_ANNODIC 4 FLAGS "DR"
BEGIN END
PROMPT 52 4 "Anno dichiarazione "
FLAGS "DR" TEXT DLG_NULL
END BEGIN
PROMPT 1 7 "@bDati dipendente"
TEXT DLG_NULL END
BEGIN
PROMPT 1 7 "@bDati dipendente" NUMBER QB1F_CODDIP 6
END BEGIN
PROMPT 80 80 ""
NUMBER QB1F_HCODDIP 6 FLAGS "D"
BEGIN FIELD LF_QUAB1->CODDIP
PROMPT 80 80 "" CHECKTYPE REQUIRED
FLAGS "D" KEY 1
FIELD LF_QUAB1->CODDIP END
CHECKTYPE REQUIRED
KEY 1 NUMBER QB1F_CODDIP_ANAG 6
END BEGIN
PROMPT 1 8 "@bCodice "
NUMBER QB1F_CODDIP 6 USE LF_DIPEND KEY 1
BEGIN INPUT CODDITTA QB1F_CODDITTA SELECT
PROMPT 1 8 "@bCodice " INPUT CODDIP QB1F_CODDIP_ANAG
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QB1F_CODDITTA)) DISPLAY "Codice " CODDIP
INPUT CODDITTA QB1F_CODDITTA DISPLAY "Cognome@24" COGNOME
INPUT CODIP QB1F_CODDIP DISPLAY "Nome@20" NOME
DISPLAY "Codice " CODIP OUTPUT QB1F_CODDIP_ANAG CODDIP
DISPLAY "Cognome@24" COGNOME OUTPUT QB1F_COGNOME COGNOME
DISPLAY "Nome@20" NOME OUTPUT QB1F_NOME NOME
OUTPUT QB1F_CODDIP CODIP ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
OUTPUT QB1F_COGNOME COGNOME MESSAGE COPY, QB1F_CODDIP
OUTPUT QB1F_NOME NOME MESSAGE COPY,QB1F_CODDIP
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti" FLAGS "H"
MESSAGE COPY, QB1F_HCODDIP GROUP QB1G_ANADIP
END END
STRING QB1F_COGNOME 24 NUMBER QB1F_CODDIP_QB1 6
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 1 8 "@bCodice "
FLAGS "D" USE LF_QUAB1 KEY 1
END JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
STRING QB1F_NOME 20 INPUT CODDIP QB1F_CODDIP_QB1
BEGIN DISPLAY "Codice " CODDIP
PROMPT 49 8 "" DISPLAY "Cognome@24" LF_DIPEND->COGNOME
FLAGS "D" DISPLAY "Nome@20" LF_DIPEND->NOME
END DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP_QB1 CODDIP
NUMBER QB1F_NPROG 4 OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
BEGIN OUTPUT QB1F_NOME LF_DIPEND->NOME
PROMPT 1 10 "@bNumero " MESSAGE COPY, QB1F_CODDIP
CHECKTYPE REQUIRED GROUP QB1G_QUADROB
USE LF_QUAB1 KEY 1 SELECT ((CODDITTA=#QB1F_CODDITTA)) KEY 1
JOIN LF_DIPEND KEY 1 INTO CODIP=CODDIP END
INPUT CODDITTA QB1F_CODDITTA
INPUT CODDIP QB1F_CODDIP STRING QB1F_COGNOME 24
INPUT NPROG QB1F_NPROG BEGIN
DISPLAY "Codice@10" CODDIP PROMPT 25 8 ""
DISPLAY "Cognome@24" LF_DIPEND->COGNOME FLAGS "D"
DISPLAY "Nome@20" LF_DIPEND->NOME END
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP CODDIP STRING QB1F_NOME 20
OUTPUT QB1F_NPROG NPROG BEGIN
FIELD LF_QUAB1->NPROG PROMPT 49 8 ""
KEY 1 FLAGS "D"
END END
ENDPAGE NUMBER QB1F_NPROG 4
BEGIN
ENDMASK PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB1 KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP
INPUT NPROG QB1F_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP CODDIP
OUTPUT QB1F_NPROG NPROG
OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
OUTPUT QB1F_NOME LF_DIPEND->NOME
FIELD LF_QUAB1->NPROG
KEY 1
END
ENDPAGE
ENDMASK

424
m770/77qb1b.uml
View File

@ -1,212 +1,212 @@
// Quadro B-1 // Quadro B-1
#include "77qb1.h" #include "77qb1.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO B1" -1 -1 78 18 PAGE "1" -1 -1 78 18
NUMBER QB1F_CODDITTA 5 NUMBER QB1F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 80 80 ""
FLAGS "GRDH" FLAGS "D"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QB1F_CODDITTA INPUT CODDITTA QB1F_CODDITTA
FIELD LF_QUAB1->CODDITTA FIELD LF_QUAB1->CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 1 "@bDipendente" PROMPT 1 1 "@bDipendente"
END END
NUMBER QB1F_CODDIP 5 NUMBER QB1F_CODDIP 5
BEGIN BEGIN
PROMPT 17 1 "" PROMPT 17 1 ""
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
FIELD LF_QUAB1->CODDIP FIELD LF_QUAB1->CODDIP
INPUT CODDITTA QB1F_CODDITTA INPUT CODDITTA QB1F_CODDITTA
INPUT CODIP QB1F_CODDIP INPUT CODDIP QB1F_CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT QB1F_COGNOME COGNOME OUTPUT QB1F_COGNOME COGNOME
OUTPUT QB1F_NOME NOME OUTPUT QB1F_NOME NOME
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
END END
STRING QB1F_COGNOME 24 STRING QB1F_COGNOME 24
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
END END
STRING QB1F_NOME 20 STRING QB1F_NOME 20
BEGIN BEGIN
PROMPT 49 1 "" PROMPT 49 1 ""
FLAGS "DG" FLAGS "DG"
END END
NUMBER QB1F_NPROG 4 NUMBER QB1F_NPROG 4
BEGIN BEGIN
PROMPT 72 1 "" PROMPT 72 1 ""
FIELD LF_QUAB1->NPROG FIELD LF_QUAB1->NPROG
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
END END
NUMBER QB1F_INDEN 15 NUMBER QB1F_INDEN 15
BEGIN BEGIN
PROMPT 1 6 "11 Ammontare indennita' di anzianita' di previdenza " PROMPT 1 6 "11 Ammontare indennita' di anzianita' di previdenza "
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
FIELD LF_QUAB1->INDEN FIELD LF_QUAB1->INDEN
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bImposta di ricchezza mobile " PROMPT 1 7 "@bImposta di ricchezza mobile "
END END
GROUPBOX DLG_NULL 78 7 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 1 7 "" PROMPT 1 7 ""
END END
#define COL1 3 #define COL1 3
#define COL2 33 #define COL2 33
#define COL3 60 #define COL3 60
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL1 8 "12 Ammontare impon. " PROMPT COL1 8 "12 Ammontare impon. "
END END
NUMBER QB1F_AMMIMP 15 NUMBER QB1F_AMMIMP 15
BEGIN BEGIN
PROMPT COL1 9 "" PROMPT COL1 9 ""
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
FIELD LF_QUAB1->AMMIMP FIELD LF_QUAB1->AMMIMP
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL2 8 "13 Imponibile 4%" PROMPT COL2 8 "13 Imponibile 4%"
END END
NUMBER QB1F_IMP4 15 NUMBER QB1F_IMP4 15
BEGIN BEGIN
PROMPT COL2 9 "" PROMPT COL2 9 ""
FIELD LF_QUAB1->IMP4 FIELD LF_QUAB1->IMP4
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL3 8 "14 Imponibile 8% " PROMPT COL3 8 "14 Imponibile 8% "
END END
NUMBER QB1F_IMP8 15 NUMBER QB1F_IMP8 15
BEGIN BEGIN
PROMPT COL3 9 "" PROMPT COL3 9 ""
FIELD LF_QUAB1->IMP8 FIELD LF_QUAB1->IMP8
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL1 10 "15 Imponibile 10% " PROMPT COL1 10 "15 Imponibile 10% "
END END
NUMBER QB1F_IMP10 15 NUMBER QB1F_IMP10 15
BEGIN BEGIN
PROMPT COL1 11 "" PROMPT COL1 11 ""
FIELD LF_QUAB1->IMP10 FIELD LF_QUAB1->IMP10
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL2 10 "16 Imponibile 12% " PROMPT COL2 10 "16 Imponibile 12% "
END END
NUMBER QB1F_IMP12 15 NUMBER QB1F_IMP12 15
BEGIN BEGIN
PROMPT COL2 11 "" PROMPT COL2 11 ""
FIELD LF_QUAB1->IMP12 FIELD LF_QUAB1->IMP12
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL3 10 "17 Imponibile 15% " PROMPT COL3 10 "17 Imponibile 15% "
END END
NUMBER QB1F_IMP15 15 NUMBER QB1F_IMP15 15
BEGIN BEGIN
PROMPT COL3 11 "" PROMPT COL3 11 ""
FIELD LF_QUAB1->IMP15 FIELD LF_QUAB1->IMP15
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
NUMBER QB1F_IMPNETTO 15 NUMBER QB1F_IMPNETTO 15
BEGIN BEGIN
PROMPT COL1 12 "18 Amm. impon. (al netto delle rit.di ricchezza mobile) " PROMPT COL1 12 "18 Amm. impon. (al netto delle rit.di ricchezza mobile) "
FIELD LF_QUAB1->IMPNETTO FIELD LF_QUAB1->IMPNETTO
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
#define RIGA1 14 #define RIGA1 14
#define RIGA2 15 #define RIGA2 15
#define RIGA3 16 #define RIGA3 16
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 RIGA1 "@bImposta complementare " PROMPT 1 RIGA1 "@bImposta complementare "
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 RIGA1 "" PROMPT 1 RIGA1 ""
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL1 RIGA2 "19 Imponibile 1,5%" PROMPT COL1 RIGA2 "19 Imponibile 1,5%"
END END
NUMBER QB1F_IMPO15 15 NUMBER QB1F_IMPO15 15
BEGIN BEGIN
PROMPT COL1 RIGA3 "" PROMPT COL1 RIGA3 ""
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
FIELD LF_QUAB1->IMPO15 FIELD LF_QUAB1->IMPO15
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT COL2 RIGA2 "20 Imponibile 4%" PROMPT COL2 RIGA2 "20 Imponibile 4%"
END END
NUMBER QB1F_IMPO4 15 NUMBER QB1F_IMPO4 15
BEGIN BEGIN
PROMPT COL2 RIGA3 "" PROMPT COL2 RIGA3 ""
FIELD LF_QUAB1->IMPO4 FIELD LF_QUAB1->IMPO4
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

229
m770/77qba.uml
View File

@ -1,103 +1,126 @@
#include "77qb.h" #include "77qb.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "MODULO 770 - Manutenzione Quadro B" -1 -1 78 21 PAGE "Quadro B" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QBF_CODDITTA 5 NUMBER QBF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QBF_CODDITTA INPUT CODDITTA QBF_CODDITTA
OUTPUT QBF_RAGDITTA RAGSOC OUTPUT QBF_RAGDITTA RAGSOC
FIELD LF_QUAB->CODDITTA FIELD LF_QUAB->CODDITTA
END END
STRING QBF_RAGDITTA 50 STRING QBF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QBF_ANNODIC 4 NUMBER QBF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 4 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER QBF_HCODDIP 6 NUMBER QBF_CODDIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
CHECKTYPE REQUIRED FIELD LF_QUAB->CODDIP
KEY 1 CHECKTYPE REQUIRED
END KEY 1
END
NUMBER QBF_CODDIP 6
BEGIN NUMBER QBF_CODDIP_ANAG 6
PROMPT 1 8 "@bCodice " BEGIN
USE LF_DIPEND KEY 1 SELECT ((CODDITTA=#QBF_CODDITTA)) PROMPT 1 8 "@bCodice "
INPUT CODDITTA QBF_CODDITTA USE LF_DIPEND KEY 1
INPUT CODIP QBF_CODDIP INPUT CODDITTA QBF_CODDITTA SELECT
DISPLAY "Codice " CODIP INPUT CODDIP QBF_CODDIP_ANAG
DISPLAY "Cognome@24" COGNOME DISPLAY "Codice " CODDIP
DISPLAY "Nome@20" NOME DISPLAY "Cognome@24" COGNOME
OUTPUT QBF_CODDIP CODIP DISPLAY "Nome@20" NOME
OUTPUT QBF_COGNOME COGNOME OUTPUT QBF_CODDIP_ANAG CODDIP
OUTPUT QBF_NOME NOME OUTPUT QBF_COGNOME COGNOME
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti" OUTPUT QBF_NOME NOME
MESSAGE COPY,QBF_HCODDIP ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
END MESSAGE COPY,QBF_CODDIP
FLAGS "H"
STRING QBF_COGNOME 24 GROUP QBG_ANADIP
BEGIN KEY 1
PROMPT 25 8 "" END
FLAGS "D"
END NUMBER QBF_CODDIP_QB 6
BEGIN
STRING QBF_NOME 20 PROMPT 1 8 "@bCodice "
BEGIN USE LF_QUAB KEY 1
PROMPT 49 8 "" JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
FLAGS "D" INPUT CODDITTA QBF_CODDITTA SELECT
END INPUT CODDIP QBF_CODDIP_QB
DISPLAY "Codice " CODDIP
NUMBER QBF_NPROG 4 DISPLAY "Cognome@24" LF_DIPEND->COGNOME
BEGIN DISPLAY "Nome@20" LF_DIPEND->NOME
PROMPT 1 10 "@bNumero " DISPLAY "N°@4" NPROG
CHECKTYPE REQUIRED OUTPUT QBF_CODDIP_QB CODDIP
USE LF_QUAB KEY 1 SELECT ((CODDITTA=#QBF_CODDITTA)) OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
JOIN LF_DIPEND KEY 1 INTO CODIP=CODDIP OUTPUT QBF_NOME LF_DIPEND->NOME
INPUT CODDITTA QBF_CODDITTA MESSAGE COPY, QBF_CODDIP
INPUT CODDIP QBF_CODDIP GROUP QBG_QUADROB
INPUT NPROG QBF_NPROG KEY 1
DISPLAY "Codice@10" CODDIP END
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME STRING QBF_COGNOME 24
DISPLAY "N°@4" NPROG BEGIN
OUTPUT QBF_CODDIP CODDIP PROMPT 25 8 ""
OUTPUT QBF_COGNOME COGNOME FLAGS "D"
OUTPUT QBF_NOME NOME END
OUTPUT QBF_NPROG NPROG
FIELD LF_QUAB->NPROG STRING QBF_NOME 20
CHECKTYPE REQUIRED BEGIN
KEY 1 PROMPT 49 8 ""
END FLAGS "D"
END
ENDPAGE
NUMBER QBF_NPROG 4
ENDMASK BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP
INPUT NPROG QBF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME
OUTPUT QBF_NPROG NPROG
FIELD LF_QUAB->NPROG
CHECKTYPE REQUIRED
KEY 1
END
ENDPAGE
ENDMASK

1421
m770/77qbb.uml
View File

File diff suppressed because it is too large Load Diff

1252
m770/quadb_b1.cpp
View File

File diff suppressed because it is too large Load Diff