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

Ristrutturato programma editazione form di stampa

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@791 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-27 14:56:42 +00:00
parent fca7c26f76
commit 471dfd167d
15 changed files with 3444 additions and 2884 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ba/ba2.cpp
View File

@ -1,28 +1,24 @@
#include <xvt.h> #include <xvt.h>
#include <checks.h> #include <checks.h>
#include <strings.h>
#include "ba2.h" #include "ba2.h"
#define usage "Error - usage : %s -{0|1|2}" #define usage "Error - usage : %s -{0|2}"
int main(int argc,char* argv[])
int main(int argc, char** argv)
{ {
int rt = 0 ; int rt = 0 ;
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1; const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
switch (r) switch (r)
{ {
case 0: case 0:
rt = ba2300(argc,argv); break; rt = ba2100(argc, argv); break;
case 1:
rt = ba2300(argc,argv) ; break;
case 2: case 2:
rt = ba2300(argc,argv) ; break; rt = ba2300(argc, argv) ; break;
default: default:
error_box(usage, argv[0]) ; break; error_box(usage, argv[0]) ; rt = 1; break;
} }
return rt; return rt;
} }

22
ba/ba2.h
View File

@ -1,14 +1,8 @@
#ifndef __BA2_H #ifndef __BA2_H
#define __BA2_H #define __BA2_H
#ifdef MAIN int ba2100(int argc, char* argv[]);
#define extern int ba2300(int argc, char* argv[]);
#endif
#endif // __BA2_H
#ifdef MAIN
#undef extern
#endif
#endif // __BA2_H
int ba2300(int argc, char** argv);

130
ba/ba2.url
View File

@ -1,54 +1,76 @@
#include <default.url> #include <default.url>
#define MENU_FILE_ALT TASK_MENUBAR+4000 #define MENU_FILE_ALT TASK_MENUBAR+4000
#define M_FIL1_NEW MENU_FILE_ALT+101 #define M_FIL1_NEW MENU_FILE_ALT+101
#define M_FIL1_OPEN MENU_FILE_ALT+102 #define M_FIL1_OPEN MENU_FILE_ALT+102
#define M_FIL1_SAVE MENU_FILE_ALT+103 #define M_FIL1_SAVE MENU_FILE_ALT+103
#define M_FIL1_SAVEAS MENU_FILE_ALT+104 #define M_FIL1_SAVEAS MENU_FILE_ALT+104
#define M_FIL1_QUIT MENU_FILE_ALT+105 #define M_FIL1_QUIT MENU_FILE_ALT+105
MENU TASK_MENUBAR MENU MENU_FILE_ALT
SUBMENU MENU_FILE_ALT "~File" ITEM M_FIL1_NEW "~Nuovo"
SUBMENU MENU_EDIT "~Stampanti" ITEM M_FIL1_OPEN "~Apri"
ITEM M_FIL1_SAVE "~Salva"
MENU MENU_FILE_ALT ITEM M_FIL1_SAVEAS "Salva ~con Nome"
ITEM M_FIL1_NEW "~Nuovo" ITEM M_FIL1_QUIT "~Esci"
ITEM M_FIL1_OPEN "~Apri" SEPARATOR
ITEM M_FIL1_SAVE "~Salva" ITEM M_FILE_ABOUT "~Informazioni"
ITEM M_FIL1_SAVEAS "Salva ~Con Nome"
ITEM M_FIL1_QUIT "~Esci" MENU TASK_MENUBAR
SEPARATOR SUBMENU MENU_FILE "~File"
ITEM M_FILE_ABOUT "~Informazioni" ITEM MENU_ITEM(11) "~Relazione"
SUBMENU BAR_ITEM(2) "~Intestazione"
MENUBAR TASK_MENUBAR + 1 SUBMENU BAR_ITEM(3) "~Corpo"
SUBMENU BAR_ITEM(4) "~Pie' di pagina"
MENU TASK_MENUBAR + 1
SUBMENU MENU_FILE_ALT "~File" MENU BAR_ITEM(2)
SUBMENU MENU_EDIT "~Stampanti" ITEM MENU_ITEM(21) "~Normale"
ITEM MENU_ITEM(22) "~Pari"
MENUBAR TASK_MENUBAR + 2 ITEM MENU_ITEM(23) "~Prima"
ITEM MENU_ITEM(24) "~Ultima"
MENU TASK_MENUBAR + 2
SUBMENU MENU_FILE_ALT "~File" MENU BAR_ITEM(3)
SUBMENU MENU_EDIT "~Stampanti" ITEM MENU_ITEM(31) "~Normale"
ITEM MENU_ITEM(32) "~Pari"
MENUBAR TASK_MENUBAR + 3 ITEM MENU_ITEM(33) "~Primo"
ITEM MENU_ITEM(34) "~Ultimo"
MENU TASK_MENUBAR + 3
SUBMENU MENU_FILE_ALT "~File" MENU BAR_ITEM(4)
SUBMENU MENU_EDIT "~Stampanti" ITEM MENU_ITEM(41) "~Normale"
ITEM MENU_ITEM(42) "~Pari"
MENUBAR TASK_MENUBAR + 4 ITEM MENU_ITEM(43) "~Primo"
ITEM MENU_ITEM(44) "~Ultimo"
MENU TASK_MENUBAR + 4
SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti" MENUBAR TASK_MENUBAR + 1
MENU TASK_MENUBAR + 1
SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 2
MENU TASK_MENUBAR + 2
SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 3
MENU TASK_MENUBAR + 3
SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti"
MENUBAR TASK_MENUBAR + 4
MENU TASK_MENUBAR + 4
SUBMENU MENU_FILE_ALT "~File"
SUBMENU MENU_EDIT "~Stampanti"

316
ba/ba2100.cpp
View File

@ -1,55 +1,277 @@
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <form.h>
#include <mailbox.h> #include <msksheet.h>
#include <prefix.h>
#include <relation.h>
#include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include "ba2100a.h"
class TestMessages : public TApplication #include "ba2100.h"
class TForm_editor : public TApplication
{ {
virtual bool menu(MENU_TAG); TForm* _form;
virtual bool create();
public: protected:
TestMessages() : TApplication() {} virtual bool create();
virtual ~TestMessages() {} virtual bool destroy();
virtual bool menu(MENU_TAG);
virtual void print();
static bool file_handler(TMask_field& f, KEY k);
bool edit_relation();
bool edit(char s, pagetype p);
public:
TForm_editor();
virtual ~TForm_editor();
}; };
bool TestMessages::create() TForm_editor::TForm_editor() : _form(NULL)
{ {}
TApplication::create();
dispatch_e_menu(BAR_ITEM(1)); TForm_editor::~TForm_editor()
return TRUE; {}
}
bool TForm_editor::create()
bool TestMessages::menu(MENU_TAG)
{ {
TMask m("ba2100a"); TApplication::create();
TMailbox mb;
if (argc() < 3)
while (m.run() != K_ESC) return error_box("Specificare il nome del profilo di stampa");
{
TString from(12); TFilename form(argv(2)); form.ext("frm");
TString to(12);
TString body(60); const char mode = argc() > 3 ? toupper(argv(3)[1]) : 'M';
TString subj(12); const bool crea = (mode == 'C') || !fexist(form);
from = m.get(FLD_FROM); if (crea)
to = m.get(FLD_TO); {
body = m.get(FLD_BODY); TFilename base(form.left(3)); base.ext("frm");
subj = m.get(FLD_SUBJ); if (!fexist(base))
return error_box("Non esiste il file %s", (const char*)base);
TMessage msg(to, subj, body, from); if (!fcopy(base, form))
mb.send(msg); return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form);
} }
return FALSE;
} if (!fexist(form))
return error_box("Non esiste il file %s", (const char*)form);
int test_messages(int argc, char** argv)
{ _form = new TForm(form);
TestMessages app;
app.run(argc, argv, "Prova invio messaggi"); enable_menu_item(M_FILE_PRINT);
return 0;
return TRUE;
} }
bool TForm_editor::destroy()
{
delete _form;
return TApplication::destroy();
}
bool TForm_editor::menu(MENU_TAG tag)
{
char sec = 'B';
pagetype pt = odd_page;
switch(tag)
{
case MENU_ITEM(11):
sec = 'R'; pt = odd_page; break;
case MENU_ITEM(21):
sec = 'H'; pt = odd_page; break;
case MENU_ITEM(22):
sec = 'H'; pt = even_page; break;
case MENU_ITEM(23):
sec = 'H'; pt = first_page; break;
case MENU_ITEM(24):
sec = 'H'; pt = last_page; break;
case MENU_ITEM(31):
sec = 'B'; pt = odd_page; break;
case MENU_ITEM(32):
sec = 'B'; pt = even_page; break;
case MENU_ITEM(33):
sec = 'B'; pt = first_page; break;
case MENU_ITEM(34):
sec = 'B'; pt = last_page; break;
case MENU_ITEM(41):
sec = 'F'; pt = odd_page; break;
case MENU_ITEM(42):
sec = 'F'; pt = even_page; break;
case MENU_ITEM(43):
sec = 'F'; pt = first_page; break;
case MENU_ITEM(44):
sec = 'F'; pt = last_page; break;
default:
break;
}
edit(sec, pt);
return TRUE;
}
void TForm_editor::print()
{
_form->print();
}
bool TForm_editor::file_handler(TMask_field& f, KEY k)
{
bool ok = TRUE;
if (k == K_TAB && f.dirty())
{
const char* d = prefhndl->description(f.get());
if (*d == '\0') ok = error_box("Nome di file o tabella errato");
f.mask().set(f.dlg()+1, d);
}
return ok;
}
bool TForm_editor::edit_relation()
{
TMask m("ba2100r");
TSheet_field& s = (TSheet_field&)m.field(F_ITEMS);
s.sheet_mask().set_handler(101, file_handler);
TRelation* & rel = _form->_relation;
TCursor* & cur = _form->_cursor;
if (rel)
{
rel->print_on(s.rows_array());
s.force_update();
s.disable_cell(0, 2); s.disable_cell(0, 4);
}
if (m.run() != K_ENTER || !m.dirty())
return FALSE;
if (rel)
{
delete cur; cur = NULL;
delete rel; rel = NULL;
}
TToken_string& r = s.row(0);
TString16 name = r.get(0);
if (name.not_empty())
{
int logicnum = atoi(name);
r.get(); // Skip description
int alias = 0, to = 0, key = r.get_int(2);
TString80 exp = r.get(4);
rel = (logicnum > 0) ? new TRelation(logicnum) : new TRelation(name);
cur = new TCursor(rel, exp, key);
for (int i = 1; i < s.items(); i++)
{
TToken_string& r = s.row(i);
name = r.get(0); logicnum = atoi(name);
to = name2log(r.get());
key = r.get_int();
alias = r.get_int();
exp = r.get();
const int l = exp.len();
for (int j = 0; j < l; j++)
if (exp[j] == ' ') exp[j] = '|';
if (logicnum > 0)
rel->add(logicnum, exp, key, to, alias); // join file
else
rel->add(name, exp, key, to, alias); // join table
}
}
return TRUE;
}
bool TForm_editor::edit(char s, pagetype t)
{
bool dirty = FALSE;
if (s == 'R')
dirty = edit_relation();
else
{
TString80 caption;
switch(s)
{
case 'F':
caption << "Pie' di pagina"; break;
case 'H':
caption << "Intestazione"; break;
default:
caption << "Corpo"; break;
}
switch(t)
{
case first_page:
caption << " della prima pagina"; break;
case even_page:
caption << " delle pagine pari"; break;
case last_page:
caption << " dell'ultima pagina"; break;
default:
caption << " standard"; break;
}
dirty = TRUE;
if (!_form->exist(s, t))
{
const KEY k = yesnocancel_box("La sezione %s non esiste: "
"si desidera ricopiare quella standard",
(const char*)caption);
if (k == K_ESC)
dirty = FALSE;
else
{
TPrint_section* sec = _form->exist(s, t, TRUE);
if (k == K_YES)
{
const TPrint_section* def = _form->exist(s, odd_page);
if (def) *sec = *def;
else dirty = FALSE;
}
}
}
if (dirty)
dirty = _form->section(s, t).edit(caption);
}
if (dirty && yesno_box("Salvare le modifiche?"))
{
CURSOR old = get_cursor(TASK_WIN);
set_cursor(TASK_WIN, CURSOR_WAIT);
const TFilename& n = _form->name();
TFilename bak(n); bak.ext("bak");
rename(n, bak);
ofstream out(n);
_form->print_on(out);
set_cursor(TASK_WIN, old);
}
return dirty;
}
int ba2100(int argc, char* argv[])
{
TForm_editor a;
a.run(argc, argv, "Parametrizzazione stampa");
return 0;
}

31
ba/ba2100.h Executable file
View File

@ -0,0 +1,31 @@
#define F_CLASS 101
#define F_KEY 102
#define F_Y 103
#define F_X 104
#define F_WIDTH 105
#define F_HEIGHT 106
#define F_PROMPT 107
#define F_HIDDEN 108
#define F_DISABLED 109
#define F_AUTOMAGIC 110
#define F_PICTURE 111
#define F_FIELD 113
#define F_FIELD2 114
#define F_GROUP 130
#define F_GROUP1 131
#define F_GROUP2 132
#define F_GROUP3 133
#define F_GROUP4 134
#define F_GROUP5 135
#define F_GROUP6 136
#define F_GROUP7 137
#define F_GROUP8 138
#define F_GROUP9 139
#define F_GROUP10 140
#define F_GROUP11 141
#define F_GROUP12 142
#define F_ITEMS 200
#define F_DECIMALS 206

214
ba/ba2100f.uml Executable file
View File

@ -0,0 +1,214 @@
#include "ba2100.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "CAMPO DI STAMPA" -1 -1 60 14
LIST F_CLASS 10
BEGIN
PROMPT 1 1 "Tipo "
FLAGS "DG"
ITEM "STRINGA|Testo" MESSAGE HIDE,2@|SHOW,F_HEIGHT|HIDE,F_ITEMS
ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS
END
STRING F_KEY 80 60
BEGIN
PROMPT 1 2 "Descrizione "
HELP "Descrizione del campo da configurare"
END
NUMBER F_Y 3
BEGIN
PROMPT 1 3 "Riga "
HELP "Riga in cui stampare"
END
NUMBER F_X 3
BEGIN
PROMPT 24 3 "Colonna "
HELP "Colonna in cui stampare"
END
NUMBER F_WIDTH 3
BEGIN
PROMPT 1 4 "Larghezza "
HELP "Lunghezza massima da stampare"
END
NUMBER F_HEIGHT 2
BEGIN
PROMPT 24 4 "Altezza "
HELP "Righe massime su cui stampare"
END
NUMBER F_DECIMALS 2
BEGIN
PROMPT 24 4 "Decimali "
HELP "Numero di decimali"
MESSAGE COPY,F_HEIGHT
GROUP 2
END
STRING F_PROMPT 80 60
BEGIN
PROMPT 1 5 "Testo "
HELP "Eventuale testo fisso da stampare"
END
STRING F_PICTURE 80 40
BEGIN
PROMPT 1 6 "Formato "
HELP "Formato di stampa (vedere codici sul manuale)"
END
STRING F_FIELD 40
BEGIN
PROMPT 1 7 "Campo su file "
HELP "Nome del campo su file"
END
STRING F_FIELD2 40
BEGIN
PROMPT 1 8 "II campo "
HELP "Nome del campo su file da utilizzare se il primo e' vuoto"
END
BOOLEAN F_HIDDEN
BEGIN
PROMPT 60 6 "Nascosto"
HELP "Il campo va elaborato ma non stampato"
END
BOOLEAN F_DISABLED
BEGIN
PROMPT 60 7 "Disabilitato"
HELP "Il campo viene completamente ignorato e quindi nemmeno stampato"
END
BOOLEAN F_AUTOMAGIC
BEGIN
PROMPT 60 8 "Automatico"
HELP "Il campo viene calcolato automaticamente"
END
GROUPBOX F_GROUP 78 3
BEGIN
PROMPT 1 9 "Gruppi di stampa"
END
BOOLEAN F_GROUP1
BEGIN
PROMPT 4 10 "1"
END
BOOLEAN F_GROUP2
BEGIN
PROMPT 10 10 "2"
END
BOOLEAN F_GROUP3
BEGIN
PROMPT 16 10 "3"
END
BOOLEAN F_GROUP4
BEGIN
PROMPT 22 10 "4"
END
BOOLEAN F_GROUP5
BEGIN
PROMPT 28 10 "5"
END
BOOLEAN F_GROUP6
BEGIN
PROMPT 34 10 "6"
END
BOOLEAN F_GROUP7
BEGIN
PROMPT 40 10 "7"
END
BOOLEAN F_GROUP8
BEGIN
PROMPT 46 10 "8"
END
BOOLEAN F_GROUP9
BEGIN
PROMPT 52 10 "9"
END
BOOLEAN F_GROUP10
BEGIN
PROMPT 58 10 "10"
END
BOOLEAN F_GROUP11
BEGIN
PROMPT 64 10 "11"
END
BOOLEAN F_GROUP12
BEGIN
PROMPT 70 10 "12"
END
SPREADSHEET F_ITEMS
BEGIN
PROMPT 0 12 "Spreadsheet"
ITEM "Codice@8"
ITEM "Testo@32"
ITEM "Messaggio@80"
END
ENDPAGE
ENDMASK
PAGE "Spreadsheet" -1 -1 46 6
STRING 101 8
BEGIN
PROMPT 1 1 "Codice "
END
STRING 102 32
BEGIN
PROMPT 1 2 "Testo "
FLAGS "_"
END
STRING 103 80 32
BEGIN
PROMPT 1 3 "Messaggio "
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE

80
ba/ba2100r.uml Executable file
View File

@ -0,0 +1,80 @@
#include "ba2100.h"
PAGE "RELAZIONE" -1 -1 78 12
SPREADSHEET F_ITEMS 0 9
BEGIN
PROMPT 0 1 "Spreadsheet"
ITEM "File@4"
ITEM "Descrizione@40"
ITEM "Join@4"
ITEM "Chiave@2"
ITEM "Alias@3"
ITEM "Espressione@40"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
PAGE "Spreadsheet" -1 -1 60 8
STRING 101 4
BEGIN
PROMPT 1 1 "File "
FLAGS "U"
CHECKTYPE REQUIRED
END
STRING 102 40
BEGIN
PROMPT 16 1 ""
FLAGS "D"
END
STRING 103 4
BEGIN
PROMPT 1 2 "Join "
FLAGS "U"
END
NUMBER 104 3
BEGIN
PROMPT 1 3 "Chiave "
FLAGS "U"
END
NUMBER 105 3
BEGIN
PROMPT 1 4 "Alias "
FLAGS "U"
END
STRING 106 40
BEGIN
PROMPT 1 5 "Espr. "
FLAGS "U"
CHECKTYPE REQUIRED
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE

23
ba/ba2100s.uml Executable file
View File

@ -0,0 +1,23 @@
#include "ba2100.h"
PAGE "SEZIONE DI STAMPA" -1 -1 30 5
NUMBER F_HEIGHT 2
BEGIN
PROMPT 1 1 "Altezza "
END
BUTTON DLG_EDIT 10 2
BEGIN
PROMPT -12 -1 ""
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

36
ba/ba2300.cpp
View File

@ -1,34 +1,12 @@
#if XVT_OS == XVT_OS_SCOUNIX
// EDIT Printer File // EDIT Printer File
// Utility for printer configuration files editing // Utility for printer configuration files editing
// by MB SEP 1993 // by MB SEP 1993
#ifndef __APPLICAT_H
#include <applicat.h> #include <applicat.h>
#endif
#ifndef __MASK_H
#include <mask.h> #include <mask.h>
#endif
#ifndef __CHECKS_H
#include <checks.h>
#endif
#ifndef __STRINGS_H
#include <strings.h>
#endif
#ifndef __REAL_H
#include <real.h>
#endif
#ifndef __PRINTER_H
#include <printer.h>
#endif
#ifndef __UTILITY_H
#include <utility.h> #include <utility.h>
#endif
#define __BA2300_CPP #define __BA2300_CPP
#include <ba2300.h> #include <ba2300.h>
@ -301,6 +279,8 @@ bool seek_printer_no(FILE* input, int number, TString& printer, long* pos, bool
fclose(listfile); fclose(listfile);
return seek_printer(input, printer, pos, justafter); return seek_printer(input, printer, pos, justafter);
} }
class EPF_Application : public TApplication class EPF_Application : public TApplication
{ {
bool _isnamed; bool _isnamed;
@ -1044,11 +1024,13 @@ bool EPF_Application::menu(MENU_TAG m)
return TRUE; return TRUE;
} }
#endif
int ba2300(int argc, char* argv[])
int ba2300(int argc, char** argv)
{ {
#if XVT_OS == XVT_OS_SCOUNIX
epf.run(argc, argv, "Manutenzione stampanti"); epf.run(argc, argv, "Manutenzione stampanti");
#endif
return 0; return 0;
} }

5
ba/ba3.url
View File

@ -7,20 +7,17 @@ MENUBAR MENU_BAR(1)
MENU MENU_BAR(1) MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(2) MENUBAR MENU_BAR(2)
MENU MENU_BAR(2) MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
MENUBAR MENU_BAR(3) MENUBAR MENU_BAR(3)
MENU MENU_BAR(3) MENU MENU_BAR(3)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Modifica"
/* /*
* ba3 -4 * ba3 -4
@ -38,7 +35,6 @@ MENUBAR MENU_BAR(5)
MENU MENU_BAR(5) MENU MENU_BAR(5)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"
/* /*
* ba3 -6 * ba3 -6
@ -56,5 +52,4 @@ MENUBAR MENU_BAR(7)
MENU MENU_BAR(7) MENU MENU_BAR(7)
SUBMENU MENU_FILE "~File" SUBMENU MENU_FILE "~File"
ITEM BAR_ITEM(1) "~Selezione"

2232
ba/ba4200b.uml
View File

File diff suppressed because it is too large Load Diff

2480
ba/ba4200c.uml
View File

File diff suppressed because it is too large Load Diff

634
ba/batbiva.uml
View File

@ -1,316 +1,318 @@
#include "batbiva.h" #include "batbiva.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Codici IVA" -1 -1 78 19 PAGE "Codici IVA" -1 -1 78 19
STRING FLD_TABIVA_CODTAB 4 STRING FLD_TABIVA_CODTAB 4
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FIELD CODTAB FIELD CODTAB
KEY 1 KEY 1
USE %IVA USE %IVA
FLAGS "U" FLAGS "U"
INPUT CODTAB FLD_TABIVA_CODTAB INPUT CODTAB FLD_TABIVA_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
DISPLAY "%@5" R0 DISPLAY "%@5" R0
DISPLAY "Vent." S6 DISPLAY "Vent." S6
DISPLAY "Sospeso" B2 DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB OUTPUT FLD_TABIVA_CODTAB CODTAB
OUTPUT FLD_TABIVA_S0 S0 OUTPUT FLD_TABIVA_S0 S0
HELP "Inserire il codice IVA" HELP "Inserire il codice IVA"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
END END
STRING FLD_TABIVA_S0 50 STRING FLD_TABIVA_S0 50
BEGIN BEGIN
PROMPT 3 2 "Descrizione " PROMPT 3 2 "Descrizione "
FIELD S0 FIELD S0
KEY 2 KEY 2
USE %IVA KEY 2 USE %IVA KEY 2
INPUT S0 FLD_TABIVA_S0 INPUT S0 FLD_TABIVA_S0
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
DISPLAY "%@5" R0 DISPLAY "%@5" R0
DISPLAY "Vent." S6 DISPLAY "Vent." S6
DISPLAY "Sospeso" B2 DISPLAY "Sospeso" B2
COPY OUTPUT FLD_TABIVA_CODTAB COPY OUTPUT FLD_TABIVA_CODTAB
HELP "Inserire la descrizione del codice IVA" HELP "Inserire la descrizione del codice IVA"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
END END
LIST LST_TABIVA_S1 2 22 LIST LST_TABIVA_S1 2 22
BEGIN BEGIN
PROMPT 3 3 "Tipo codice " PROMPT 3 3 "Tipo codice "
FIELD S1 FIELD S1
HELP "Indicare il tipo di codice IVA" HELP "Indicare il tipo di codice IVA"
ITEM " |Regime IVA normale" ITEM " |Regime IVA normale"
MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4 MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "VE|Ricavi da ventilare" ITEM "VE|Ricavi da ventilare"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3
MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6 MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6
ITEM "ES|Operazioni esenti" ITEM "ES|Operazioni esenti"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "NI|Non imponibili" ITEM "NI|Non imponibili"
MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
ITEM "NS|Non soggetti" ITEM "NS|Non soggetti"
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0 MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4 MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
MESSAGE ENABLE,FLD_TABIVA_S6 MESSAGE ENABLE,FLD_TABIVA_S6
END END
STRING FLD_TABIVA_S6 4 STRING FLD_TABIVA_S6 4
BEGIN BEGIN
PROMPT 39 3 "C.IVA a cui ventilare " PROMPT 39 3 "C.IVA a cui ventilare "
FIELD S6 FLAGS "U"
COPY USE FLD_TABIVA_CODTAB FIELD S6
INPUT CODTAB FLD_TABIVA_S6 COPY USE FLD_TABIVA_CODTAB
COPY DISPLAY FLD_TABIVA_CODTAB INPUT CODTAB FLD_TABIVA_S6
OUTPUT FLD_TABIVA_S6 CODTAB COPY DISPLAY FLD_TABIVA_CODTAB
CHECKTYPE NORMAL OUTPUT FLD_TABIVA_S6 CODTAB
HELP "Inserire il codice iva a cui ventilare l'imposta" CHECKTYPE NORMAL
END VALIDATE ZEROFILL_FUNC 2
HELP "Inserire il codice iva a cui ventilare l'imposta"
NUMBER FLD_TABIVA_R0 6 2 END
BEGIN
PROMPT 3 4 "Aliquota " NUMBER FLD_TABIVA_R0 6 2
FIELD R0 BEGIN
FLAGS "R" PROMPT 3 4 "Aliquota "
HELP "Inserire la percentuale di imposta" FIELD R0
WARNING "Almeno uno dei campi tra aliquota tipo e codice a cui ventilare deve essere specificato" FLAGS "R"
VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1 HELP "Inserire la percentuale di imposta"
END WARNING "Almeno uno dei campi tra aliquota tipo e codice a cui ventilare deve essere specificato"
VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1
NUMBER FLD_TABIVA_I0 2 END
BEGIN
PROMPT 39 4 "Perc.IVA teorica " NUMBER FLD_TABIVA_I0 2
FIELD I0 BEGIN
HELP "Inserire la percentuale teorica dell'imposta" PROMPT 39 4 "Perc.IVA teorica "
END FIELD I0
HELP "Inserire la percentuale teorica dell'imposta"
GROUPBOX DLG_NULL 40 4 END
BEGIN
PROMPT 3 5 "Colonne per allegati imponibili" GROUPBOX DLG_NULL 40 4
END BEGIN
PROMPT 3 5 "Colonne per allegati imponibili"
GROUPBOX DLG_NULL 25 4 END
BEGIN
PROMPT 44 5 "Indicatori mod. 101/102" GROUPBOX DLG_NULL 25 4
END BEGIN
PROMPT 44 5 "Indicatori mod. 101/102"
LIST FLD_TABIVA_S7 1 26 END
BEGIN
PROMPT 4 6 "Clienti " LIST FLD_TABIVA_S7 1 26
FIELD S7 BEGIN
HELP "Inserire il numero della colonna degli allegati clienti relativa all'imposta" PROMPT 4 6 "Clienti "
ITEM " |Non in allegato" FIELD S7
ITEM "1|Imponibili" HELP "Inserire il numero della colonna degli allegati clienti relativa all'imposta"
ITEM "3|Non imponibili" ITEM " |Non in allegato"
END ITEM "1|Imponibili"
ITEM "3|Non imponibili"
LIST FLD_TABIVA_S8 1 26 END
BEGIN
PROMPT 4 7 "Fornitori " LIST FLD_TABIVA_S8 1 26
FIELD S8 BEGIN
HELP "Inserire il numero della colonna degli allegati fornitori relativa all'imposta" PROMPT 4 7 "Fornitori "
ITEM " |Non in allegato" FIELD S8
ITEM "1|Imponibili" HELP "Inserire il numero della colonna degli allegati fornitori relativa all'imposta"
ITEM "3|Senza applicaz.imposta" ITEM " |Non in allegato"
ITEM "4|Non imponibili" ITEM "1|Imponibili"
END ITEM "3|Senza applicaz.imposta"
ITEM "4|Non imponibili"
BOOLEAN CHK_TABIVA_B0 END
BEGIN
PROMPT 50 6 "Clienti" BOOLEAN CHK_TABIVA_B0
FIELD B0 BEGIN
HELP "Indicare se il codice deve comparire nel modello 101" PROMPT 50 6 "Clienti"
END FIELD B0
HELP "Indicare se il codice deve comparire nel modello 101"
BOOLEAN FLD_TABIVA_B1 END
BEGIN
PROMPT 50 7 "Fornitori" BOOLEAN FLD_TABIVA_B1
FIELD B1 BEGIN
HELP "Indicare se il codice deve comparire nel modello 102" PROMPT 50 7 "Fornitori"
END FIELD B1
HELP "Indicare se il codice deve comparire nel modello 102"
LIST FLD_TABIVA_I3 3 6 END
BEGIN
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. " LIST FLD_TABIVA_I3 3 6
FIELD I3 BEGIN
HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101" PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "
ITEM " |No" FIELD I3
ITEM "1|B1" HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101"
ITEM "2|B2" ITEM " |No"
ITEM "3|B3" ITEM "1|B1"
END ITEM "2|B2"
ITEM "3|B3"
LIST FLD_TABIVA_I4 3 6 END
BEGIN
PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. " LIST FLD_TABIVA_I4 3 6
FIELD I4 BEGIN
HELP "Indicare il n. di riga per operazioni di acquisto es. e non imp. del mod.101" PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. "
ITEM " |No" FIELD I4
ITEM "14|B14" HELP "Indicare il n. di riga per operazioni di acquisto es. e non imp. del mod.101"
END ITEM " |No"
ITEM "14|B14"
LIST LST_TABIVA_S3 1 33 END
BEGIN
PROMPT 3 12 "Gestione plafond " LIST LST_TABIVA_S3 1 33
FIELD S3 BEGIN
HELP "Indicare il tipo di gestione di plafond" PROMPT 3 12 "Gestione plafond "
ITEM " |Regime normale" FIELD S3
ITEM "1|Oper. relative art.8" HELP "Indicare il tipo di gestione di plafond"
ITEM "2|Oper. relative art.8bis" ITEM " |Regime normale"
ITEM "3|Oper. relative art.9" ITEM "1|Oper. relative art.8"
END ITEM "2|Oper. relative art.8bis"
ITEM "3|Oper. relative art.9"
LIST LST_TABIVA_S4 1 45 END
BEGIN
PROMPT 3 13 "Regime agricolo " LIST LST_TABIVA_S4 1 45
FIELD S4 BEGIN
HELP "Indicare il tipo di gestione per regime agricolo" PROMPT 3 13 "Regime agricolo "
ITEM " |Regime normale" FIELD S4
ITEM "1|Vendite regime agricolo" HELP "Indicare il tipo di gestione per regime agricolo"
ITEM "2|Vendite accessorie/Acquisti non agricoli" ITEM " |Regime normale"
ITEM "3|Vendite per conferimenti" ITEM "1|Vendite regime agricolo"
END ITEM "2|Vendite accessorie/Acquisti non agricoli"
ITEM "3|Vendite per conferimenti"
LIST LST_TABIVA_S5 1 33 END
BEGIN
PROMPT 3 14 "Ag. viaggio/turismo " LIST LST_TABIVA_S5 1 33
FIELD S5 BEGIN
HELP "Indicare il tipo di gestione per agenzie viaggio/turismo" PROMPT 3 14 "Ag. viaggio/turismo "
ITEM " |Regime normale" FIELD S5
ITEM "1|Operazioni interno CEE" HELP "Indicare il tipo di gestione per agenzie viaggio/turismo"
ITEM "2|Operazioni fuori CEE" ITEM " |Regime normale"
ITEM "3|Vendite miste CEE" ITEM "1|Operazioni interno CEE"
ITEM "4|Acquisti misti parte CEE" ITEM "2|Operazioni fuori CEE"
ITEM "5|Acquisti misti parte fuori CEE" ITEM "3|Vendite miste CEE"
END ITEM "4|Acquisti misti parte CEE"
ITEM "5|Acquisti misti parte fuori CEE"
BOOLEAN CHK_TABIVA_S9 END
BEGIN
PROMPT 3 16 "Codice per calcolo rimborso infrannuale" BOOLEAN CHK_TABIVA_S9
FIELD B3 BEGIN
HELP "Indicare se il codice vale per il calcolo del rimborso infrannuale" PROMPT 3 16 "Codice per calcolo rimborso infrannuale"
END FIELD B3
HELP "Indicare se il codice vale per il calcolo del rimborso infrannuale"
BOOLEAN FLD_SOSPESO_B2 END
BEGIN
PROMPT 3 17 "Codice IVA sospeso" BOOLEAN FLD_SOSPESO_B2
FIELD B2 BEGIN
HELP "Indicare se il codice iva e' sospeso" PROMPT 3 17 "Codice IVA sospeso"
END FIELD B2
HELP "Indicare se il codice iva e' sospeso"
ENDPAGE END
ENDMASK ENDPAGE
ENDMASK

107
ba/batblng.uml
View File

@ -1,54 +1,53 @@
#include "batblng.h" #include "batblng.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella lingue" -1 -1 78 8 PAGE "Tabella lingue" -1 -1 78 8
STRING F_CODICE 1 STRING F_CODICE 1
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
USE %LNG USE %LNG
INPUT CODTAB F_CODICE INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %LNG KEY 2 USE %LNG KEY 2
INPUT CODTAB F_CODICE INPUT S0 F_DESCR
INPUT S0 F_DESCR DISPLAY "Descrizione @50" S0
DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB
DISPLAY "Codice" CODTAB OUTPUT F_CODICE CODTAB
OUTPUT F_CODICE CODTAB OUTPUT F_DESCR S0
OUTPUT F_DESCR S0 CHECKTYPE REQUIRED
CHECKTYPE REQUIRED END
END
ENDPAGE
ENDPAGE ENDMASK
ENDMASK

2
ba/prassi.mnu
View File

@ -3,7 +3,7 @@
0|Contabilita'|4|7 0|Contabilita'|4|7
0|Terreni e fabbricati|tefa -t 0|Terreni e fabbricati|tefa -t
0|Modello 740|740 -t 0|Modello 740|740 -t
0|Manutenzione|15 0|Manutenzione|15|P
1|Gestione Anagrafiche|1 1|Gestione Anagrafiche|1
1|Persone fisiche|ba4 -1 F 1|Persone fisiche|ba4 -1 F
1|Persone giuridiche|ba4 -1 G 1|Persone giuridiche|ba4 -1 G