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

Riportata la versione 98.01.01pl000 sul main trunk

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@6153 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1998-02-09 12:06:44 +00:00
parent ba17e909b2
commit 1c2ee5aafb
53 changed files with 2074 additions and 2416 deletions

25
ba/ba1100.cpp

@ -38,6 +38,12 @@ struct direct
#define Dir_file "dir.gen"
#define Trc_file "trc.gen"
bool movable_file(int file)
{
return file == LF_PCON || file == LF_CLIFO || file == LF_CAUSALI ||
file == LF_RCAUSALI || file == LF_CFVEN || file == LF_INDSP;
}
class TManutenzione_app : public TApplication
{
TDir_sheet* _browse;
@ -389,9 +395,11 @@ bool TManutenzione_app::create() // initvar e arrmask
dump_trc(dir,des_too,modules);
return FALSE;
}
#ifndef _DEMO_
else
if (!set_firm())
return FALSE;
#endif
load_des();
@ -900,7 +908,7 @@ void TManutenzione_app::update_dir()
d.get(i, _nolock, _nordir, _sysdirop);
bool cmn_file = FALSE;
bool valid_file = i == LF_PCON || i == LF_CLIFO || i == LF_CAUSALI || i == LF_RCAUSALI;
bool valid_file = movable_file(i);
if (!is_com && valid_file && d.is_com())
cmn_file = TRUE; // Salta in questo caso:
// sto aggiornando le ditte,
@ -1011,6 +1019,13 @@ void TManutenzione_app::update_dir()
else
strcpy((char *) d.des(), ds.des());
}
if (is_com && valid_file && d.name()[0] == '$')
{
TString name(d.name());
name[0] = '%';
d.set_name(name);
towrite = TRUE;
}
if (towrite)
d.put(i, _nordir, _sysdirop);
// d.get(i);
@ -1096,10 +1111,9 @@ void TManutenzione_app::convert_dir()
const bool actual_create = to_create;
// I files LF_PCON, LF_CAUS, LF_RCAUS, LF_CLIFO, LF_CFVEN, LF_INDSPED
// vanno creati comunque nel direttorio COM, vuoti, (se non esistono gia').
// vanno creati comunque nel direttorio COM, vuoti, (se non esistono gia').
if (is_com && !to_create)
if (i == LF_TAB || i == LF_INDSP || i == LF_CLIFO ||
i == LF_PCON || i == LF_CAUSALI || i == LF_RCAUSALI)
if (movable_file(i))
to_create = TRUE;
if (to_create && has_module(module, CHK_DONGLE))
@ -1150,6 +1164,9 @@ void TManutenzione_app::convert_dir()
TTrec r(rs);
r.zero();
d.get(i, _nolock, _nordir, _sysdirop);
d.set_len(r.len());
d.put(i, _nordir, _sysdirop);
r.put(i);
}
}

3
ba/ba1101.cpp

@ -337,7 +337,8 @@ void TRec_sheet::edit()
{
TToken_string& s = f2.row(i);
_rec->update_keydef(i, s);
}
}
_dir->set_len(_rec->len());
save();
return;
}

6
ba/ba1500.cpp

@ -173,7 +173,7 @@ bool TDongle::login(bool test_all_keys)
if (BITTEST(parola, b))
{
const word bit = i * 12 + j * 16 + b;
_module.set(bit);
_module.set(bit + 1);
}
}
}
@ -290,7 +290,7 @@ bool TDongle::burn()
write_octect(60, data);
_last_update = today;
word module = 0;
word module = 1;
for (int octect = 0; octect < 3; octect++)
{
for(int parola = 0; parola < 3; parola++)
@ -312,7 +312,7 @@ bool TDongle::burn()
_dirty = FALSE;
return TRUE;
}
}
///////////////////////////////////////////////////////////

84
ba/ba1600.cpp

@ -487,7 +487,7 @@ bool TModule_mask::file_handler(TMask_field& f, KEY k)
}
else
{
return f.error_box("Il file deve trovarsi nel perrcorso %s",
return f.error_box("Il file deve trovarsi nel percorso %s",
start.get_buffer());
}
}
@ -693,6 +693,7 @@ class TFascicolator_mask : public TMask
{
protected:
static bool sheet_notify(TSheet_field& f, int row, KEY k);
static bool confirm_handler(TMask_field& f, KEY k);
static bool list_handler(TMask_field& f, KEY k);
static bool save_handler(TMask_field& f, KEY k);
static bool import_export_handler(TMask_field& f, KEY k);
@ -741,7 +742,7 @@ bool TFascicolator_mask::list_handler(TMask_field& f, KEY k)
return TRUE;
}
bool TFascicolator_mask::save_handler(TMask_field& f, KEY k)
bool TFascicolator_mask::confirm_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
@ -756,7 +757,31 @@ bool TFascicolator_mask::save_handler(TMask_field& f, KEY k)
ini.set("Moduli", m.get(S_EXTERN));
ini.set("PreProcess", m.get(S_PREPROCESS));
ini.set("PostProcess", m.get(S_POSTPROCESS));
// sottomoduli
TString16 submodule=module;
submodule<<'0';
for (int i=0; i <=9; i++)
{
submodule[2]='0'+i;
if (ini.set_paragraph(submodule))
{
ini.set("Versione", m.get(S_VERSION));
ini.set("Patch", m.get(S_PATCHLEVEL));
}
}
}
}
return TRUE;
}
bool TFascicolator_mask::save_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
confirm_handler(f, K_SPACE);
TMask& m = f.mask();
const TString& module = m.get(S_MODULE);
const bool agg = f.dlg() == S_SAVEAGG;
TFascicolator_mask& fm = (TFascicolator_mask&)m.get_sheet()->mask();
fm.zip_module(module, agg, m.get_int(S_PATCHLEVEL));
@ -764,6 +789,7 @@ bool TFascicolator_mask::save_handler(TMask_field& f, KEY k)
return TRUE;
}
bool TFascicolator_mask::import_export_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
@ -1093,8 +1119,9 @@ long TFascicolator_mask::find_signature(const TFilename& filename, const char* s
}
else
{
if (compare > 0)
infile.seekg(position+1, ios::beg);
compare = 0;
infile.seekg(position+1, ios::beg);
}
}
return found ? position : -1;
@ -1108,7 +1135,7 @@ bool TFascicolator_mask::set_version_info(const TFilename& filename,
long position = find_signature(filename, str);
if (position > 0)
{
ofstream outfile(filename, ios::out || ios::nocreate | ios::binary);
fstream outfile(filename, ios::in | ios::out | ios::nocreate | ios::binary);
position += str.len();
outfile.seekp(position);
if (outfile.good())
@ -1117,8 +1144,17 @@ bool TFascicolator_mask::set_version_info(const TFilename& filename,
ini.version_info(module, year, release, tag, patch);
checksum = year + release + tag + patch;
str.format("%04d.%02d.%02d.%03d.%04d", year, release, tag, patch, checksum);
outfile.write(str, str.len());
ok = outfile.good();
TString oldfirm("XXXX.XX.XX.XXX.XXXX");
outfile.read(oldfirm.get_buffer(),19);
if (oldfirm!=str)
{
outfile.seekp(position);
outfile.write(str, str.len());
}
ok = outfile.good();
if (!ok)
error_box("Error writing signature in %s error n. %d", (const char *) filename, errno);
}
}
return ok;
@ -1160,6 +1196,8 @@ bool TFascicolator_mask::zip_module(const TString& main_module, bool agg, int pa
TProgind pi(arr.items(), msg, TRUE, TRUE);
TFilename cmd;
struct _stat info;
unsigned long lasttime=0;
FOR_EACH_ARRAY_ROW_BACK(arr, i, row)
{
@ -1172,12 +1210,16 @@ bool TFascicolator_mask::zip_module(const TString& main_module, bool agg, int pa
cmd = row->get(0);
if (cmd.exist())
{
// Aggiungo il nome corrente alla lista dei files da compattare
fileh << cmd << '\n';
if (stricmp(cmd.ext(), "exe") == 0)
{
TString16 submod = row->get(2);
submod.cut(2);
set_version_info(cmd, ini, submod);
set_version_info(cmd, ini, submod);
}
_stat((const char *)cmd,&info);
lasttime = max(lasttime,info.st_mtime);
}
else
{
@ -1188,13 +1230,27 @@ bool TFascicolator_mask::zip_module(const TString& main_module, bool agg, int pa
{
aborted = TRUE;
break;
}
}
// Aggiungo il nome corrente alla lista dei files da compattare
fileh << cmd << '\n';
}
}
}
fileh.close();
// Se non specifico un path ho gia' finito
const TFilename path = get(F_DISKPATH);
if (path.blank())
return TRUE;
TFilename zipfile = path;
zipfile.add(archivio.name());
zipfile.ext("");
zipfile << '1';
zipfile.ext("zip");
if (zipfile.exist())
{
_stat((const char *)zipfile,&info);
if (lasttime <= info.st_mtime)
aborted = !yesno_box("Il file %s risulta già essere aggiornato. Vuoi rigenerarlo comunque?",(const char *)zipfile);
}
if (!aborted)
zip_file(archivio, filelist); // Compatto gli eventuali ultimi rimasti
@ -1211,11 +1267,6 @@ bool TFascicolator_mask::zip_module(const TString& main_module, bool agg, int pa
ini.set("Dischi", disks, main_module); // Aggiorna install.ini
ini.export_paragraph(main_module, sommario); // Aggiorna sommario
// Se non specifico un path ho gia' finito
const TFilename path = get(F_DISKPATH);
if (path.blank())
return TRUE;
const char drive = toupper(path[0]);
const bool floppy = (GetDriveType(drive - 'A') == DRIVE_REMOVABLE) && (path[1] == ':');
@ -1253,6 +1304,7 @@ TFascicolator_mask::TFascicolator_mask()
s.set_notify(sheet_notify);
TMask& m = s.sheet_mask();
m.set_handler(DLG_OK, confirm_handler);
m.set_handler(S_LIST, list_handler);
m.set_handler(S_SAVE, save_handler);
m.set_handler(S_SAVEAGG, save_handler);

130
ba/ba1700.cpp

@ -7,6 +7,7 @@
#include <progind.h>
#include <sheet.h>
#include <utility.h>
#include <defmask.h>
#include "ba1.h"
#include "ba1500.h"
@ -60,6 +61,7 @@ class TInstaller_mask : public TArray_sheet
protected: // TSheet
virtual bool on_key(KEY key);
static bool tutti_handler(TMask_field& f, KEY k);
protected:
static bool path_handler(TMask_field& fld, KEY key);
@ -67,6 +69,7 @@ protected:
static bool install_handler(TMask_field& fld, KEY key);
bool add_module(TConfig& ini, const TString& module, bool patch);
bool add_header(TConfig& ini, const TString& module, bool patch);
int sort_modules();
void update_version();
@ -111,6 +114,22 @@ bool TInstaller_mask::add_module(TConfig& ini, const TString& module, bool patch
return ok;
}
// Copia nello sheet i dati di un modulo prendendoli da un .ini
bool TInstaller_mask::add_header(TConfig& ini, const TString& module, bool patch)
{
ini.write_protect();
bool ok = ini.set_paragraph(module);
if (ok)
{
TToken_string row;
row = " "; // Not selected
row.add(ini.get("Descrizione"));
row.add(ini.get(" "));
enable_row(add(row),FALSE);
}
return ok;
}
static int compare_modules(const TObject** o1, const TObject** o2)
{
TToken_string& ts1 = *(TToken_string*)(*o1);
@ -128,7 +147,7 @@ static int compare_modules(const TObject** o1, const TObject** o2)
int TInstaller_mask::sort_modules()
{
rows_array().TArray::sort(compare_modules);
//rows_array().TArray::sort(compare_modules);
TString16 dis;
const int tot = int(items());
@ -136,13 +155,16 @@ int TInstaller_mask::sort_modules()
{
const bool patch = row(r).get_char(9) > ' ';
const char* mod = row(r).get(2);
if (patch)
{
if (dis == mod)
disable_row(r);
if (*mod != ' ') // is not an header...
{
if (patch)
{
if (dis == mod)
disable_row(r);
}
else
dis = mod;
}
else
dis = mod;
}
return tot;
}
@ -154,14 +176,17 @@ void TInstaller_mask::update_version()
TString_array& array = rows_array();
FOR_EACH_ARRAY_ROW_BACK(array, m, row)
{
const TString16 module = row->get(2);
ini.set_paragraph(module);
const TString16 newver = row->get(3);
const TString16 oldver = ini.get("Versione");
row->add(oldver, 6);
row->add(ini.get("Patch"), 7);
row->add(ini.get("Data"), 8);
if (*row->get(2) != ' ')
{
const TString16 module = row->get(2);
ini.set_paragraph(module);
const TString16 newver = row->get(3);
const TString16 oldver = ini.get("Versione");
row->add(oldver, 6);
row->add(ini.get("Patch"), 7);
row->add(ini.get("Data"), 8);
}
}
force_update();
}
@ -191,8 +216,14 @@ bool TInstaller_mask::autoload()
FOR_EACH_ARRAY_ROW(modules, i, row)
{
const TString& module = *row;
if (module.len() == 2)
add_module(ini, module, FALSE);
if (module[0] == '_' || module.len() == 2)
{
if (module[0] == '_')
add_header(ini, module, FALSE);
else
add_module(ini, module, FALSE);
}
}
}
else
@ -285,10 +316,12 @@ bool TInstaller_mask::can_install(const char* module, TInstall_ini& ini)
if (year < 1997)
return error_box("Il modulo '%s' non ha una versione valida.", module);
#ifndef _DEMO_
if (year > _year_assist)
return error_box("Per installare la versione %s del modulo '%s'\n"
"occorre il contratto di assistenza per l'anno %d.",
(const char*)version, module, year);
#endif
TAuto_token_string altri(ini.get("Moduli", module));
if (stricmp(module, "ba") != 0 && altri.get_pos("ba") < 0)
@ -514,12 +547,9 @@ bool TInstaller_mask::install(const TString& module, int patchlevel)
const int curpatch = curini.patch(submod);
const TString16 reqver = ini.version(submod);
const int reqpatch = ini.patch(submod);
int distance = compare_version(reqver, reqpatch, curver, curpatch);
upd = distance> 0;
if (distance!=0)
warning_box("Il sottomodulo '%s' necessario a '%s' e' gia' aggiornato alla versione %s:\n"
"l'installazione della versione %s non verra' effettuata.",
(const char*)submod, (const char*)module, (const char*)curver, (const char*)reqver);
upd = distance > 0;
}
ok &= move_module(submod, ini, upd);
}
@ -609,8 +639,15 @@ void TInstaller_mask::install_selection()
TString_array& arr = rows_array();
FOR_EACH_ARRAY_ROW(arr, r, row) if (checked(r))
{
const TString modulo = row->get(2);
const TString newver = row->get(3);
if (newver.blank())
{
check(r, FALSE);
continue;
}
const TString modulo = row->get(2);
const int newpatch = row->get_int(4);
const TString oldver = row->get(6);
const int oldpatch = row->get_int(7);
@ -653,7 +690,11 @@ void TInstaller_mask::install_selection()
break;
}
}
if (ok)
check(r, FALSE);
}
if (ok)
check(r,FALSE); // uncheck
}
}
@ -671,13 +712,53 @@ bool TInstaller_mask::install_handler(TMask_field& fld, KEY key)
return TRUE;
}
bool TInstaller_mask::tutti_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TSheet& s = (TSheet&)f.mask();
if (s.check_enabled())
{
if (s.one_checked())
s.uncheck(-1);
else
{
for (long i = s.items()-1; i >=0; i--)
{
TToken_string r = s.row(i);
const TString16 newver = r.get(3);
const int newpatch = r.get_int(4);
const TString16 curver = r.get(6);
const int curpatch = r.get_int(7);
s.check(i, compare_version(newver, newpatch, curver, curpatch) > 0);
}
}
}
}
return TRUE;
}
bool TInstaller_mask::on_key(KEY key)
{
bool ok = TRUE;
if (key == K_CTRL+'N')
autoload();
else
ok = TArray_sheet::on_key(key);
if (key == K_F8)
{
for (long i = items()-1; i >=0; i--)
{
TToken_string r = row(i);
const TString16 newver = r.get(3);
const int newpatch = r.get_int(4);
const TString16 curver = r.get(6);
const int curpatch = r.get_int(7);
check(i, compare_version(newver, newpatch, curver, curpatch > 0));
}
}
else
ok = TArray_sheet::on_key(key);
return ok;
}
@ -695,6 +776,7 @@ TInstaller_mask::TInstaller_mask()
set_handler(F_PATH, path_handler);
set_handler(F_INSTALL, install_handler);
set_handler(DLG_USER, tutti_handler);
TDongle dongle; dongle.login(); dongle.logout();
_year_assist = dongle.year_assist();

18
ba/ba2200.cpp

@ -28,7 +28,7 @@ class TArchive_app : public TApplication
protected:
virtual bool create();
virtual bool menu(MENU_TAG);
static bool test_firm(TMask_field& f, KEY k);
KEY query(long& firm, char& floppy, TString& desc, bool& tmp) const;
public:
@ -63,12 +63,26 @@ bool TArchive_app::create()
return ok;
}
bool TArchive_app::test_firm(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
const char* d = f.mask().get(F_CODDITTA);
const long firm = atol(d);
if (firm > 0 && !prefix().exist(firm))
return f.error_box("La ditta %s non esiste.",d);
}
return TRUE;
}
KEY TArchive_app::query(long& firm, char& floppy, TString& desc, bool& temp) const
{
TMask m("ba2200");
m.set_handler(F_SALVA,test_firm);
const KEY k = m.run();
if (k != K_QUIT)
{
if (m.get(F_DATA) == "T")

2120
ba/install.ini

File diff suppressed because it is too large Load Diff

2
cg/cgprassi.men

@ -1,7 +1,7 @@
[PRASSICG_004]
Caption = "Contabilita'"
Picture = <cg01.bmp>
Module = 0
Module = 7
Flags = ""
Item_01 = "Persone fisiche", "ba4 -1 F", ""
Item_02 = "Persone giuridiche", "ba4 -1 G", ""

2
cg/f103.dir

@ -1,3 +1,3 @@
103
1
%tab1100a|0|0|1466|7|File trasferimento IVA11|||
%tab1100a|0|0|1466|0|File trasferimento IVA11|||

2
cg/f104.dir

@ -1,3 +1,3 @@
104
1
%tab1100b|0|0|701|7|File trasferimento IVA11 (bis)|||
%tab1100b|0|0|701|0|File trasferimento IVA11 (bis)|||

2
cg/f16.dir

@ -1,3 +1,3 @@
16
0
$indsped|0|0|234|7|Indirizzi di spedizione|NCF||
$indsped|0|0|234|0|Indirizzi di spedizione|NCF||

2
cg/f17.dir

@ -1,3 +1,3 @@
17
0
$cfven|0|0|303|7|Clienti/Fornitori per vendite|NCF||
$cfven|0|0|303|0|Clienti/Fornitori per vendite|NCF||

2
cg/f19.dir

@ -1,3 +1,3 @@
19
0
$pcon|0|0|110|7|Piano dei conti|NCON||
$pcon|0|0|110|0|Piano dei conti|NCON||

2
cg/f20.dir

@ -1,3 +1,3 @@
20
0
$clifo|0|0|566|7|Clienti/Fornitori|NCF||
$clifo|0|0|566|0|Clienti/Fornitori|NCF||

2
cg/f21.dir

@ -1,3 +1,3 @@
21
0
$saldi|0|0|143|7|Saldi|NCF+NCON||
$saldi|0|0|143|0|Saldi|NCF+NCON||

2
cg/f23.dir

@ -1,3 +1,3 @@
23
0
$mov|0|0|339|7|Movimenti di prima nota|NMOV||
$mov|0|0|339|0|Movimenti di prima nota|NMOV||

2
cg/f24.dir

@ -1,3 +1,3 @@
24
0
$rmov|0|0|129|7|Righe di movimento contabile|NMOV*3||
$rmov|0|0|129|0|Righe di movimento contabile|NMOV*3||

2
cg/f25.dir

@ -1,3 +1,3 @@
25
0
$rmoviva|0|0|78|7|Righe movimento IVA|NMOV*2||
$rmoviva|0|0|78|0|Righe movimento IVA|NMOV*2||

2
cg/f26.dir

@ -1,3 +1,3 @@
26
0
$caus|0|0|77|7|Causali contabili|60||
$caus|0|0|77|0|Causali contabili|60||

2
cg/f27.dir

@ -1,3 +1,3 @@
27
0
$rcaus|0|0|81|7|Righe causali contabili|#26*5||
$rcaus|0|0|81|0|Righe causali contabili|#26*5||

2
cg/f28.dir

@ -1,3 +1,3 @@
28
0
$part|0|0|334|7|Partite aperte|NPART||
$part|0|0|334|0|Partite aperte|NPART||

2
cg/f29.dir

@ -1,3 +1,3 @@
29
0
$scad|0|0|200|7|Scadenze|NPART*2||
$scad|0|0|200|0|Scadenze|NPART*2||

2
cg/f30.dir

@ -1,3 +1,3 @@
30
0
$pagsca|0|0|167|7|Pagamenti scadenze|||
$pagsca|0|0|167|0|Pagamenti scadenze|||

2
ef/efprassi.men

@ -1,7 +1,7 @@
[PRASSIEF_001]
Caption = "Gestione effetti"
Picture = <ef01.bmp>
Module = 0
Module = 34
Flags = ""
Item_01 = "Aggiornamento effetti", "ef0 -0", ""
Item_02 = "Generazione effetti da E/C", "disabled", ""

528
m770/771100a.uml

@ -1,264 +1,264 @@
#include "771100.h"
//
// Lista modifiche
//
// 1.4.96 Aggiunti campi prefisso/telefono
//
TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -15 -1 "F~isiche"
END
BUTTON F_ATTIVITA 10 2
BEGIN
PROMPT -25 -1 "~Attivita'"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "RDG"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
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 APF_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
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_EVECC LF_ANAG->EVECC
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_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DOMFISC LF_ANAG->VARSLORES
KEY 1
END
STRING APF_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT -1 -1 ""
FLAGS "H"
END
STRING F_COFI 16
BEGIN
PROMPT 1 4 "Codice fiscale "
FLAGS "D"
END
NUMBER F_EVECC 1
BEGIN
PROMPT 46 4 "Eventi naturali eccezionali "
FLAGS "D"
END
STRING F_COGNOME 30
BEGIN
PROMPT 1 5 "Cognome "
FLAGS "D"
END
LIST F_RSS 7
BEGIN
PROMPT 58 5 "R.S.S. "
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_BASE->RSS
END
STRING F_NOME 20
BEGIN
PROMPT 1 6 "Nome "
FLAGS "D"
END
STRING F_SESSO 1
BEGIN
PROMPT 39 6 "Sesso "
FLAGS "D"
END
DATE F_DATANASC
BEGIN
PROMPT 49 6 "Data di nascita "
FLAGS "D"
END
STRING F_COMNASC 50
BEGIN
PROMPT 1 7 "Comune nascita "
FLAGS "D"
END
STRING F_PROVNASC 5
BEGIN
PROMPT 70 7 ""
FLAGS "D"
END
STRING F_ATTIV 5
BEGIN
PROMPT 1 8 "Attivita' "
USE %AIS
INPUT CODTAB F_ATTIV
OUTPUT F_DESCRATT S0
CHECKTYPE REQUIRED
FLAGS "D"
END
STRING F_DESCRATT 50
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
BOOLEAN F_DOMFISC
BEGIN
PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 10 "Residenza"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 11 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 11 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 11 "C.A.P. "
FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 12 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 12 "Prov. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 14 "Domicilio fiscale "
END
STRING F_PTELRF 10
BEGIN
PROMPT 1 15 "Telefono "
FLAGS "D"
END
STRING F_TELRF 30
BEGIN
PROMPT 20 15 ""
FLAGS "D"
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 17 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 17 "Prov. "
FLAGS "D"
END
ENDPAGE
ENDMASK
#include "771100.h"
//
// Lista modifiche
//
// 1.4.96 Aggiunti campi prefisso/telefono
//
TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -15 -1 "F~isiche"
END
BUTTON F_ATTIVITA 10 2
BEGIN
PROMPT -25 -1 "~Attivita'"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "RDG"
USE LF_NDITTE KEY 1
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
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
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT APF_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
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_EVECC LF_ANAG->EVECC
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_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DOMFISC LF_ANAG->VARSLORES
KEY 1
END
STRING APF_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT -1 -1 ""
FLAGS "H"
END
STRING F_COFI 16
BEGIN
PROMPT 1 4 "Codice fiscale "
FLAGS "D"
END
NUMBER F_EVECC 1
BEGIN
PROMPT 46 4 "Eventi naturali eccezionali "
FLAGS "D"
END
STRING F_COGNOME 30
BEGIN
PROMPT 1 5 "Cognome "
FLAGS "D"
END
LIST F_RSS 7
BEGIN
PROMPT 58 5 "R.S.S. "
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_BASE->RSS
END
STRING F_NOME 20
BEGIN
PROMPT 1 6 "Nome "
FLAGS "D"
END
STRING F_SESSO 1
BEGIN
PROMPT 39 6 "Sesso "
FLAGS "D"
END
DATE F_DATANASC
BEGIN
PROMPT 49 6 "Data di nascita "
FLAGS "D"
END
STRING F_COMNASC 50
BEGIN
PROMPT 1 7 "Comune nascita "
FLAGS "D"
END
STRING F_PROVNASC 5
BEGIN
PROMPT 70 7 ""
FLAGS "D"
END
STRING F_ATTIV 5
BEGIN
PROMPT 1 8 "Attivita' "
USE %AIS
INPUT CODTAB F_ATTIV
OUTPUT F_DESCRATT S0
CHECKTYPE REQUIRED
FLAGS "D"
END
STRING F_DESCRATT 50
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
BOOLEAN F_DOMFISC
BEGIN
PROMPT 1 9 "Dom.fiscale o residenza variati rispetto all'anno precedente "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 10 "Residenza"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 11 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 11 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 11 "C.A.P. "
FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 12 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 12 "Prov. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 14 "Domicilio fiscale "
END
STRING F_PTELRF 10
BEGIN
PROMPT 1 15 "Telefono "
FLAGS "D"
END
STRING F_TELRF 30
BEGIN
PROMPT 20 15 ""
FLAGS "D"
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 17 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 17 "Prov. "
FLAGS "D"
END
ENDPAGE
ENDMASK

626
m770/771100b.uml

@ -1,313 +1,313 @@
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2
BEGIN
PROMPT -15 -1 "~Giuridiche"
END
BUTTON F_ATTIVITA 10 2
BEGIN
PROMPT -25 -1 "~Attività"
MESSAGE K_TAB,F_ATTIV
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_EVECC LF_ANAG->EVECC
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL
OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI
OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC
OUTPUT F_NATGIU LF_ANAGGIU->NATGIU
OUTPUT F_SITSOC LF_ANAGGIU->SITSOC
OUTPUT F_SEDELEG LF_ANAG->VARSLORES
OUTPUT F_DOMFISC LF_ANAG->VARDF
MESSAGE COPY,1@
MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
MESSAGE COPY,2@
END
NUMBER F_ANAGR 5
BEGIN
PROMPT -1 -1 ""
FLAGS "H"
END
STRING F_ATTIV 5
BEGIN
PROMPT 1 4 "Attività "
USE LF_ATTIV
INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIV
DISPLAY "Attivita'" CODATT
DISPLAY "Prevalente" ATTPREV
DISPLAY " @50" DESCR
OUTPUT F_DESCRATT DESCR
CHECKTYPE REQUIRED
FLAGS "D"
END
STRING F_DESCRATT 50
BEGIN
PROMPT 26 4 ""
FLAGS "D"
END
STRING F_COFI 16
BEGIN
PROMPT 1 6 "Codice fiscale "
FLAGS "D"
END
STRING F_RAGIONE 50
BEGIN
PROMPT 1 7 "Denominazione "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 8 ""
END
BOOLEAN F_SEDELEG
BEGIN
PROMPT 1 9 "Sede legale"
//FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 10 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 10 "Prov. "
FLAGS "D"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 11 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 11 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 11 "C.A.P. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 13 ""
END
BOOLEAN F_DOMFISC
BEGIN
PROMPT 1 14 "Domicilio fiscale"
//FLAGS "D"
END
STRING F_PTELRF 10
BEGIN
PROMPT 25 14 "Telefono "
FLAGS "D"
END
STRING F_TELRF 30
BEGIN
PROMPT 45 14 ""
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 15 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 15 "Prov. "
FLAGS "D"
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
ENDPAGE
PAGE "Pag.2" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER DLG_NULL 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRD"
GROUP 1
END
STRING DLG_NULL 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
GROUP 2
END
DATE F_DATAAPPBIL
BEGIN
PROMPT 1 5 "Data approvazione del bilancio "
FLAGS "D"
END
DATE F_DATATAPPBI
BEGIN
PROMPT 1 6 "Data termine del bilancio "
FLAGS "D"
END
NUMBER F_STATOSOC 1
BEGIN
PROMPT 1 8 "Stato "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 15 8 "(Tab.A)"
END
NUMBER F_NATGIU 2
BEGIN
PROMPT 48 8 "Natura giuridica "
FLAGS "RD"
END
TEXT DLG_NULL
BEGIN
PROMPT 69 8 "(Tab.B)"
END
NUMBER F_SITSOC 1
BEGIN
PROMPT 1 9 "Situazione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 15 9 "(Tab.E)"
END
LIST F_RSS 7
BEGIN
PROMPT 48 9 "R.S.S. "
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_BASE->RSS
END
NUMBER F_EVECC 1
BEGIN
PROMPT 1 11 "Eventi naturali eccezionali "
FLAGS "D"
END
ENDPAGE
ENDMASK
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2
BEGIN
PROMPT -15 -1 "~Giuridiche"
END
BUTTON F_ATTIVITA 10 2
BEGIN
PROMPT -25 -1 "~Attività"
MESSAGE K_TAB,F_ATTIV
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dichiarante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
OUTPUT F_ANAGR LF_ANAG->CODANAGR
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_EVECC LF_ANAG->EVECC
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL
OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI
OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC
OUTPUT F_NATGIU LF_ANAGGIU->NATGIU
OUTPUT F_SITSOC LF_ANAGGIU->SITSOC
OUTPUT F_SEDELEG LF_ANAG->VARSLORES
OUTPUT F_DOMFISC LF_ANAG->VARDF
MESSAGE COPY,1@
MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
MESSAGE COPY,2@
END
NUMBER F_ANAGR 5
BEGIN
PROMPT -1 -1 ""
FLAGS "H"
END
STRING F_ATTIV 5
BEGIN
PROMPT 1 4 "Attività "
USE LF_ATTIV
INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIV
DISPLAY "Attivita'" CODATT
DISPLAY "Prevalente" ATTPREV
DISPLAY " @50" DESCR
OUTPUT F_DESCRATT DESCR
CHECKTYPE REQUIRED
FLAGS "D"
END
STRING F_DESCRATT 50
BEGIN
PROMPT 26 4 ""
FLAGS "D"
END
STRING F_COFI 16
BEGIN
PROMPT 1 6 "Codice fiscale "
FLAGS "D"
END
STRING F_RAGIONE 50
BEGIN
PROMPT 1 7 "Denominazione "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 8 ""
END
BOOLEAN F_SEDELEG
BEGIN
PROMPT 1 9 "Sede legale"
//FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 10 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 10 "Prov. "
FLAGS "D"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 11 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 11 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 11 "C.A.P. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 0 13 ""
END
BOOLEAN F_DOMFISC
BEGIN
PROMPT 1 14 "Domicilio fiscale"
//FLAGS "D"
END
STRING F_PTELRF 10
BEGIN
PROMPT 25 14 "Telefono "
FLAGS "D"
END
STRING F_TELRF 30
BEGIN
PROMPT 45 14 ""
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 15 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 15 "Prov. "
FLAGS "D"
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
ENDPAGE
PAGE "Pag.2" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER DLG_NULL 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRD"
GROUP 1
END
STRING DLG_NULL 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
GROUP 2
END
DATE F_DATAAPPBIL
BEGIN
PROMPT 1 5 "Data approvazione del bilancio "
FLAGS "D"
END
DATE F_DATATAPPBI
BEGIN
PROMPT 1 6 "Data termine del bilancio "
FLAGS "D"
END
NUMBER F_STATOSOC 1
BEGIN
PROMPT 1 8 "Stato "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 15 8 "(Tab.A)"
END
NUMBER F_NATGIU 2
BEGIN
PROMPT 48 8 "Natura giuridica "
FLAGS "RD"
END
TEXT DLG_NULL
BEGIN
PROMPT 69 8 "(Tab.B)"
END
NUMBER F_SITSOC 1
BEGIN
PROMPT 1 9 "Situazione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 15 9 "(Tab.E)"
END
LIST F_RSS 7
BEGIN
PROMPT 48 9 "R.S.S. "
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_BASE->RSS
END
NUMBER F_EVECC 1
BEGIN
PROMPT 1 11 "Eventi naturali eccezionali "
FLAGS "D"
END
ENDPAGE
ENDMASK

46
m770/771100c.uml

@ -60,35 +60,35 @@ 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
INPUT CODDITTA F_CODDITTA
FIELD LF_NDITTE->RAPPR
CHECKTYPE NORMAL
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
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
STRING F_COFI 16

26
m770/771100d.uml

@ -52,21 +52,21 @@ BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
JOIN LF_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV
JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_ATTIV->CODATT
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ATTIV LF_ATTIV->CODATT
OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS
OUTPUT F_ANAGR LF_ATTIV->CODANGRDS
OUTPUT F_INDCS LF_ATTIV->INDCS
OUTPUT F_CIVCS LF_ATTIV->CIVCS
OUTPUT F_CAPCS LF_ATTIV->CAPCS
OUTPUT F_COMCS LF_COMUNI->DENCOM
OUTPUT F_PROVCS LF_COMUNI->PROVCOM
OUTPUT F_PTELCS LF_ATTIV->PTELCS
OUTPUT F_TELCS LF_ATTIV->TELCS
OUTPUT F_ANAGR LF_ATTIV->CODANGRDS
OUTPUT F_INDCS LF_ATTIV->INDCS
OUTPUT F_CIVCS LF_ATTIV->CIVCS
OUTPUT F_CAPCS LF_ATTIV->CAPCS
OUTPUT F_COMCS LF_COMUNI->DENCOM
OUTPUT F_PROVCS LF_COMUNI->PROVCOM
OUTPUT F_PTELCS LF_ATTIV->PTELCS
OUTPUT F_TELCS LF_ATTIV->TELCS
KEY 1
END
@ -86,7 +86,7 @@ LIST ASCF_TIPOA 9
BEGIN
PROMPT 1 5 "Tipo persona "
ITEMS "G|Societa'"
MESSAGE HIDE,F_FISICA|SHOW,F_GIURIDICA
MESSAGE HIDE,F_FISICA|SHOW,F_GIURIDICA
ITEMS "F|Fisica"
MESSAGE SHOW,F_FISICA|HIDE,F_GIURIDICA
FLAGS "D"

412
m770/771100e.uml

@ -1,206 +1,206 @@
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2
BEGIN
PROMPT -15 -1 "~Giuridiche"
END
BUTTON DCF_DITTA 10 2
BEGIN
PROMPT -25 -1 "~Ditte"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dati C.A.A." -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ANAGR LF_BASE->CODCAAF
CHECKTYPE REQUIRED
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 4 "Dati anagrafici"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 5 "Codice "
USE LF_ANAGGIU KEY 1
INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G"
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
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_ANAGR CODANAGR
CHECKTYPE NORMAL
FLAGS "R"
END
STRING F_COFI 16
BEGIN
PROMPT 43 5 "Codice fiscale "
FLAGS "D"
END
STRING F_RAGIONE 50
BEGIN
PROMPT 1 6 "Ragione sociale "
FLAGS "D"
END
NUMBER F_DITTACAAF 5
BEGIN
PROMPT 1 9 "Ditta CAA "
FLAGS "RZ"
USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
INPUT TIPOA "G"
INPUT CODANAGR F_ANAGR
INPUT CODDITTA F_DITTACAAF
DISPLAY "Ditta" CODDITTA
DISPLAY "Tipo" TIPOA
DISPLAY "Cod.Anagrafico" CODANAGR
DISPLAY "Num.Iscr.Albo" NISCRAA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_NISCRAA NISCRAA
OUTPUT F_DITTACAAF CODDITTA
CHECKTYPE NORMAL
FIELD LF_BASE->DITTACAAF
END
STRING F_NISCRAA 10
BEGIN
PROMPT 30 9 "Numero di iscrizione all'albo "
CHECKTYPE REQUIRED
FLAGS "DG"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 11 "Sede legale"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 12 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 12 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 12 "C.A.P. "
FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 13 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 13 "Prov. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 15 "Domicilio fiscale "
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 17 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 17 "Prov. "
FLAGS "D"
END
ENDPAGE
ENDMASK
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_GIURIDICA 10 2
BEGIN
PROMPT -15 -1 "~Giuridiche"
END
BUTTON DCF_DITTA 10 2
BEGIN
PROMPT -25 -1 "~Ditte"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -35 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Dati C.A.A." -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
OUTPUT F_ANAGR LF_BASE->CODCAAF
CHECKTYPE REQUIRED
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 4 "Dati anagrafici"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 5 "Codice "
USE LF_ANAGGIU KEY 1
JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G"
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
INPUT CODANAGR F_ANAGR
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
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_ANAGR CODANAGR
CHECKTYPE NORMAL
FLAGS "R"
END
STRING F_COFI 16
BEGIN
PROMPT 43 5 "Codice fiscale "
FLAGS "D"
END
STRING F_RAGIONE 50
BEGIN
PROMPT 1 6 "Ragione sociale "
FLAGS "D"
END
NUMBER F_DITTACAAF 5
BEGIN
PROMPT 1 9 "Ditta CAA "
FLAGS "RZ"
USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
INPUT TIPOA "G"
INPUT CODANAGR F_ANAGR
INPUT CODDITTA F_DITTACAAF
DISPLAY "Ditta" CODDITTA
DISPLAY "Tipo" TIPOA
DISPLAY "Cod.Anagrafico" CODANAGR
DISPLAY "Num.Iscr.Albo" NISCRAA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_NISCRAA NISCRAA
OUTPUT F_DITTACAAF CODDITTA
CHECKTYPE NORMAL
FIELD LF_BASE->DITTACAAF
END
STRING F_NISCRAA 10
BEGIN
PROMPT 30 9 "Numero di iscrizione all'albo "
CHECKTYPE REQUIRED
FLAGS "DG"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 11 "Sede legale"
END
STRING F_INDRES 35
BEGIN
PROMPT 1 12 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRES 10
BEGIN
PROMPT 47 12 ""
FLAGS "D"
END
STRING F_CAPRES 5
BEGIN
PROMPT 63 12 "C.A.P. "
FLAGS "D"
END
STRING F_COMRES 50
BEGIN
PROMPT 1 13 "Comune "
FLAGS "D"
END
STRING F_PROVRES 5
BEGIN
PROMPT 63 13 "Prov. "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 15 "Domicilio fiscale "
END
STRING F_INDRF 35
BEGIN
PROMPT 1 16 "Indirizzo "
FLAGS "D"
END
STRING F_CIVRF 10
BEGIN
PROMPT 47 16 ""
FLAGS "D"
END
STRING F_CAPRF 5
BEGIN
PROMPT 63 16 "C.A.P. "
FLAGS "D"
END
STRING F_COMRF 50
BEGIN
PROMPT 1 17 "Comune "
FLAGS "D"
END
STRING F_PROVRF 5
BEGIN
PROMPT 63 17 "Prov. "
FLAGS "D"
END
ENDPAGE
ENDMASK

270
m770/771100f.uml

@ -1,135 +1,135 @@
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -14 -1 "F~isiche"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Direttore / Professionista" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 0 5 "Dati anagrafici"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 6 "Codice "
USE LF_ANAGFIS KEY 1
CHECKTYPE NORMAL
INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
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 SESSO
OUTPUT F_DATANASC DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_ANAGR CODANAGR
FIELD LF_BASE->CODPRO
FLAGS "R"
KEY 1
END
STRING F_COFI 16
BEGIN
PROMPT 1 7 "Codice fiscale "
FLAGS "D"
END
STRING F_COGNOME 30
BEGIN
PROMPT 1 8 "Cognome "
FLAGS "D"
END
STRING F_NOME 20
BEGIN
PROMPT 1 9 "Nome "
FLAGS "D"
END
STRING F_SESSO 1
BEGIN
PROMPT 39 9 "Sesso "
FLAGS "D"
END
DATE F_DATANASC
BEGIN
PROMPT 49 9 "Data di nascita "
FLAGS "D"
END
STRING F_COMNASC 50
BEGIN
PROMPT 1 10 "Comune nascita "
FLAGS "D"
END
STRING F_PROVNASC 5
BEGIN
PROMPT 70 10 ""
FLAGS "D"
END
BOOLEAN F_CONTROLLI
BEGIN
PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4"
FIELD LF_BASE->FLART4
END
ENDPAGE
ENDMASK
#include "771100.h"
TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -14 -1 "F~isiche"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Direttore / Professionista" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 0 5 "Dati anagrafici"
END
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 6 "Codice "
USE LF_ANAGFIS KEY 1
JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
CHECKTYPE NORMAL
INPUT CODANAGR F_ANAGR
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
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 SESSO
OUTPUT F_DATANASC DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_ANAGR CODANAGR
FIELD LF_BASE->CODPRO
FLAGS "R"
KEY 1
END
STRING F_COFI 16
BEGIN
PROMPT 1 7 "Codice fiscale "
FLAGS "D"
END
STRING F_COGNOME 30
BEGIN
PROMPT 1 8 "Cognome "
FLAGS "D"
END
STRING F_NOME 20
BEGIN
PROMPT 1 9 "Nome "
FLAGS "D"
END
STRING F_SESSO 1
BEGIN
PROMPT 39 9 "Sesso "
FLAGS "D"
END
DATE F_DATANASC
BEGIN
PROMPT 49 9 "Data di nascita "
FLAGS "D"
END
STRING F_COMNASC 50
BEGIN
PROMPT 1 10 "Comune nascita "
FLAGS "D"
END
STRING F_PROVNASC 5
BEGIN
PROMPT 70 10 ""
FLAGS "D"
END
BOOLEAN F_CONTROLLI
BEGIN
PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4"
FIELD LF_BASE->FLART4
END
ENDPAGE
ENDMASK

2
m770/771230d1.uml

@ -11,7 +11,7 @@ ENDPAGE
PAGE "Quadro D1" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 1 "Percipiente"
END

2
m770/771231.cpp

@ -133,7 +133,7 @@ void TQuadroF::init_sheet(TSheet_field& s)
TBrowse* browse = e.browse();
CHECKD(browse, "Manca la ricerca sul file delle causali nel campo ", id);
TCursor* cur = browse->cursor();
TString16 filter; filter << "S1=" << _quadro;
TString16 filter; filter << "S1=" << "\"" << _quadro << "\"";
cur->setfilter(filter);
}

2
mg/f109.dir

@ -1,3 +1,3 @@
109
0
$mag|0|0|675|32|Giacenze di magazzino|||
$mag|0|0|675|0|Giacenze di magazzino|||

2
mg/f110.dir

@ -1,3 +1,3 @@
110
0
$movmag|0|0|128|32|Movimenti di magazzino (?)|||
$movmag|0|0|128|0|Movimenti di magazzino (?)|||

2
mg/f111.dir

@ -1,3 +1,3 @@
111
0
$rmovmag|0|0|94|32|Righe movimenti di magazzino|||
$rmovmag|0|0|94|0|Righe movimenti di magazzino|||

2
mg/f114.dir

@ -1,3 +1,3 @@
114
0
$stomag|0|0|152|32|Storico di magazzino|||
$stomag|0|0|152|0|Storico di magazzino|||

2
mg/mg4100.frm

@ -211,7 +211,7 @@ SECTION BODY ODD 1
BEGIN
KEY " datadoc"
PROMPT 30 1 "del "
FIELD EX_DATADOC
FIELD LF_MOVMAG->EX_DATADOC
END
END

2
mg/mgprassi.men

@ -1,7 +1,7 @@
[PRASSIMG_060]
Caption = "Gestione magazzino"
Picture = <mg01.bmp>
Module = 0
Module = 32
Flags = ""
Item_01 = "Tabelle", [PRASSIMG_061]
Item_05 = "Movimenti", [PRASSIMG_063]

2
pr/f122.dir

@ -1,3 +1,3 @@
122
0
$agenti|0|0|118|36|Archivio agenti|||
$agenti|0|0|118|0|Archivio agenti|||

2
pr/f123.dir

@ -1,3 +1,3 @@
123
0
$percprov|0|0|67|36|Archivio percentuali di provvigione|||
$percprov|0|0|67|0|Archivio percentuali di provvigione|||

2
pr/prprassi.men

@ -1,7 +1,7 @@
[PRASSIPR_001]
Caption = "Gestione agenti"
Picture = <pr01.bmp>
Module = 0
Module = 36
Flags = ""
Item_01 = "Archivi e tabelle", [PRASSIPR_002]
Item_02 = "Stampa archivi e tabelle", [PRASSIPR_003]

2
sv/f86.dir

@ -1,3 +1,3 @@
86
0
$svriep|0|0|104|38|Riepilogo statistiche di vendita|||
$svriep|0|0|104|0|Riepilogo statistiche di vendita|||

85
sv/sv1200.cpp

@ -388,7 +388,7 @@ class TStampa_stat : public TPrint_application
static TString s_park; // stringa di lavoro
// ******************
// stampa file di Output
TString wrk_row; // stringa di lavoro per le righe di stampa
TString _wrk_row; // stringa di lavoro per le righe di stampa
TRelation * _rel; // relazione per la stampa
private:
@ -436,6 +436,7 @@ protected:
int handle_levchange(int row,const int level);
int set_rows_colonne(int row, TRectype &strec);
void set_row_atpos(char section,int row,const char * f,int pos);
void set_filled_row(char section,int row,char c,int pos, int len);
void reset_grplevels();
bool test_field(const TString& cod, TMask_field& f) const;
@ -525,10 +526,9 @@ void TStampa_stat::postclose_print()
void TStampa_stat::preprocess_footer()
{
wrk_row.fill('_',_pagewidth);
set_row_atpos('F',1,wrk_row,0);
wrk_row.format("Pagina @#",get_page_number()-_last_page*(_colpage-1));
set_row_atpos('F',2,wrk_row,(_colpage-1)*_pagewidth+(_pagewidth-9)/2);
set_filled_row('F',1,'_',0,_pagewidth);
_wrk_row.format("Pagina @#",get_page_number()-_last_page*(_colpage-1));
set_row_atpos('F',2,_wrk_row,(_colpage-1)*_pagewidth+(_pagewidth-9)/2);
}
void TStampa_stat::preprocess_header()
@ -542,10 +542,10 @@ void TStampa_stat::preprocess_header()
set_row_atpos('H',++row,"@bStampa statistiche ",0);
else
{
wrk_row.format("@bStampa statistica '%s'",(const char *)selmask().get(F_DESCR));
set_row_atpos('H',++row,(const char *)wrk_row,0);
wrk_row.format("dal %s al %s ",(const char *)selmask().get(F_DATAINI),(const char *)selmask().get(F_DATAFIN));
set_row_atpos('H',row,(const char *)wrk_row,40);
_wrk_row.format("@bStampa statistica '%s'",(const char *)selmask().get(F_DESCR));
set_row_atpos('H',++row,(const char *)_wrk_row,0);
_wrk_row.format("dal %s al %s ",(const char *)selmask().get(F_DATAINI),(const char *)selmask().get(F_DATAFIN));
set_row_atpos('H',row,(const char *)_wrk_row,40);
}
set_header(++row,"");
set_row_atpos('H',++row," Codice Descrizione",0);
@ -556,13 +556,13 @@ void TStampa_stat::preprocess_header()
{
set_row_atpos('H',row,nome_totale(1+int((c-1)/_col_anno) ),POS_PRIMACOL+c*_largcol+_largcol/2 );
} else {
wrk_row=nome_colonna1(col);
set_row_atpos('H',row,wrk_row,POS_PRIMACOL+c*_largcol );
wrk_row=nome_colonna2(col);
if (wrk_row.not_empty())
_wrk_row=nome_colonna1(col);
set_row_atpos('H',row,_wrk_row,POS_PRIMACOL+c*_largcol );
_wrk_row=nome_colonna2(col);
if (_wrk_row.not_empty())
{
lastrow=row+1;
set_row_atpos('H',row+1,wrk_row,POS_PRIMACOL+c*_largcol);
set_row_atpos('H',row+1,_wrk_row,POS_PRIMACOL+c*_largcol);
}
col++;
}
@ -576,15 +576,15 @@ void TStampa_stat::preprocess_header()
set_header(++row,"");
// *****************
// background
wrk_row.format("P0W1l(1,1,%d,1)l(1,3,%d,3)l(1,%d,%d,%d)",_pagewidth,_pagewidth,row,_pagewidth,row);
_wrk_row.format("P0W1l(1,1,%d,1)l(1,3,%d,3)l(1,%d,%d,%d)",_pagewidth,_pagewidth,row,_pagewidth,row);
row++;
for (c=0; c < _numcol; c++) // colonne
{
// background
//wrk_row << "l(" << POS_PRIMACOL+c*_largcol << ",4," ;
//wrk_row << POS_PRIMACOL+c*_largcol << ',' << (int)printer().rows() << ')';
//_wrk_row << "l(" << POS_PRIMACOL+c*_largcol << ",4," ;
//_wrk_row << POS_PRIMACOL+c*_largcol << ',' << (int)printer().rows() << ')';
}
set_background(wrk_row);
set_background(_wrk_row);
}
const TString& TStampa_stat::nome_colonna1(int c)
@ -801,8 +801,25 @@ int TStampa_stat::set_rows_colonne(int row,TRectype &strec)
return row;
}
// fa le set row per la "riga" contenente i valori delle colonne di statistica
void TStampa_stat::set_row_atpos(char section,int row,const char * f,int pos)
void TStampa_stat::set_filled_row(char section,int row,char c,int pos,int len)
{
const int MAX=100; // limite massimo per una singola set_row; 5 char per costruire la goto
while (len> MAX )
{
_wrk_row.fill(c,MAX);
set_row_atpos(section,row,(const char *)_wrk_row,pos);
len-=MAX;
pos+=MAX;
}
_wrk_row.fill(c,len);
set_row_atpos(section,row,(const char *)_wrk_row,pos);
}
// fa le set_row per la "riga" contenente i valori delle colonne di statistica
void TStampa_stat::set_row_atpos(char section,int nrow,const char * f,int pos)
{
static TString256 ss;
int l=strlen(f);
@ -830,12 +847,12 @@ void TStampa_stat::set_row_atpos(char section,int row,const char * f,int pos)
}
else //: too much to the right: will be printed next time!
repeat_print();
switch (section)
{
case 'R': set_row(row,ss); break;
case 'H': set_header(row,ss); break;
case 'F': set_footer(row,ss); break;
}
switch (section)
{
case 'R': set_row(nrow,ss); break;
case 'H': set_header(nrow,ss); break;
case 'F': set_footer(nrow,ss); break;
}
}
// stampa i totali ad ogni break di livello
@ -856,14 +873,14 @@ int TStampa_stat::handle_levchange(int row,const int level)
lencode=rec_grp2.get(SVS_CODICE).len();
}
adjust_record(rec_grp1,lencode);
wrk_row.fill('-',_pagewidth-POS_PRIMACOL);
set_row_atpos('R',++row,(const char *)wrk_row,POS_PRIMACOL);
wrk_row ="Totale ";
wrk_row << partkey_name(rec_grp1.get(SVS_LEVCODE));
wrk_row << ' ' << rec_grp1.get(SVS_CODICE).mid(lencode);
wrk_row << ' ' << rec_grp1.get(SVS_DESCR);
//wrk_row.cut(LARG_COLCODICE); there are also @ chars!
set_row_atpos('R',++row,(const char *)wrk_row,_indent[_last_lev_grp]);
set_filled_row('R',++row,'-',POS_PRIMACOL,_pagewidth-POS_PRIMACOL);
_wrk_row ="Totale ";
_wrk_row << partkey_name(rec_grp1.get(SVS_LEVCODE));
_wrk_row << ' ' << rec_grp1.get(SVS_CODICE).mid(lencode);
_wrk_row << ' ' << rec_grp1.get(SVS_DESCR);
//_wrk_row.cut(LARG_COLCODICE); there are also @ chars!
set_row_atpos('R',++row,(const char *)_wrk_row,_indent[_last_lev_grp]);
row = set_rows_colonne(row, rec_grp1);
}
}

2
sv/svprassi.men

@ -1,7 +1,7 @@
[PRASSISV_000]
Caption = "Statistiche di vendita"
Picture = <sv01.bmp>
Module = 0
Module = 38
Flags = ""
Item_01 = "Tabelle", [PRASSISV_020]
//Item_02 = "Stampa Tabelle", [PRASSISV_030]

2
ve/f35.dir

@ -1,3 +1,3 @@
35
0
$sconti|0|0|118|31|Sconti|#33||
$sconti|0|0|118|0|Sconti|#33||

2
ve/f47.dir

@ -1,3 +1,3 @@
47
0
$anamag|0|0|374|31|Anagrafica di magazzino|NART||
$anamag|0|0|374|0|Anagrafica di magazzino|NART||

2
ve/f48.dir

@ -1,3 +1,3 @@
48
0
$codcorr|0|0|45|31|Codici corrispondenti|#47||
$codcorr|0|0|45|0|Codici corrispondenti|#47||

2
ve/f49.dir

@ -1,3 +1,3 @@
49
0
$umart|0|0|59|31|unita'di misura articoli|#47||
$umart|0|0|59|0|unita'di misura articoli|#47||

2
ve/f51.dir

@ -1,3 +1,3 @@
51
0
$deslin|0|0|75|31|Descrizioni in lingua|#47||
$deslin|0|0|75|0|Descrizioni in lingua|#47||

2
ve/f52.dir

@ -1,3 +1,3 @@
52
0
$condv|0|0|119|31|Cond.di vendita(listini,contratti,offerte)|||
$condv|0|0|119|0|Cond.di vendita(listini,contratti,offerte)|||

2
ve/f53.dir

@ -1,3 +1,3 @@
53
0
$rcondv|0|0|183|31|Righe condizioni di vendita|||
$rcondv|0|0|183|0|Righe condizioni di vendita|||

35
ve/velib03.cpp

@ -1438,22 +1438,25 @@ void TDocumento::update_tabella_iva()
}
real TDocumento::imposta(bool spese, int ndec) const
{
TAssoc_array & table = ((TDocumento *)this)->tabella_iva();
real val;
if (ndec == AUTO_DECIMALS)
ndec = in_valuta() ? 3 : 0;
for (TRiepilogo_iva * ri = (TRiepilogo_iva *) table.get(); ri != NULL;
ri = (TRiepilogo_iva *) table.get())
{
real iva = ri->imposta(spese);
if (iva < ZERO)
iva.floor(ndec);
else
iva.ceil(ndec);
val += iva;
{
real val = ZERO;
if (physical_rows() > 0)
{
TAssoc_array & table = ((TDocumento *)this)->tabella_iva();
if (ndec == AUTO_DECIMALS)
ndec = in_valuta() ? 3 : 0;
for (TRiepilogo_iva * ri = (TRiepilogo_iva *) table.get(); ri != NULL;
ri = (TRiepilogo_iva *) table.get())
{
real iva = ri->imposta(spese);
if (iva < ZERO)
iva.floor(ndec);
else
iva.ceil(ndec);
val += iva;
}
}
return val;
}

2
ve/veprassi.men

@ -1,7 +1,7 @@
[PRASSIVE_032]
Caption = "Gestione documenti"
Picture = <ve01.bmp>
Module = 0
Module = 31
Flags = ""
Item_06 = "Documenti interattivi", "ve0 -1", ""
Item_07 = "Stampe documenti", "ve1 -0", ""