Modifiche estetiche e funzionali alle varie maschere.

git-svn-id: svn://10.65.10.50/trunk@300 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-10-03 08:42:51 +00:00
parent ba280a1c47
commit 254d6b64fb
14 changed files with 237 additions and 199 deletions

View File

@ -6,9 +6,12 @@
#if XVT_OS == XVT_OS_WIN
extern "C"
{
#include <cpb.h>
{
#include <cpb.h>
}
#include <dos.h>
#else
#include <dirent.h>
#endif
#include "ba0.h"
@ -74,7 +77,7 @@ void TPicture_mask::handler(WINDOW win, EVENT* ep)
{
#if XVT_OS == XVT_OS_WIN
if (_picture)
cpb_win_picture_draw_at(win, _picture, 1, 64);
cpb_win_picture_draw_at(win, _picture, 1, CHARY<<1);
else
#endif
{
@ -103,6 +106,7 @@ class TMenu_application : public TApplication
int _level, _max;
protected:
void test_temp() const;
void load_menu();
int do_level();
virtual bool create();
@ -210,9 +214,32 @@ int TMenu_application::do_level()
}
void TMenu_application::test_temp() const
{
TFilename name; name.temp();
const TString16 ext = name.ext();
name.tempdir();
name << "/" << "*." << ext;
#if XVT_OS == XVT_OS_WIN
struct _find_t f;
if (_dos_findfirst(name, _A_NORMAL, &f) == 0 &&
yesno_box("Si desidera cancellare i file temporanei (*.tmp)"))
{
TFilename dir; dir.tempdir();
do
{
name = dir;
name << "/" << f.name;
remove(name);
} while (_dos_findnext(&f) == 0);
}
#endif
}
bool TMenu_application::create()
{
test_temp();
load_menu();
dispatch_e_menu(BAR_ITEM(1));
return TRUE;

View File

@ -7,7 +7,6 @@
#include "ba1100.h"
bool TEdit_file::browse(int logicnum, const char* name)
{
TRelation relation(logicnum);
@ -27,9 +26,10 @@ bool TEdit_file::browse(int logicnum, const char* name)
trac.add(n);
head.add(n);
int len = curr.length(n);
if (curr.type(n) == _datefld) len = 10;
if (len > (int)strlen(n)) head << '@' << len;
TFieldtypes t = curr.type(n);
const int len = (t == _datefld) ? 10 : curr.length(n);
head << '@' << max(len, (int)strlen(n));
if (t == _realfld) head << 'R';
}
KEY ch;

View File

@ -1,24 +1,33 @@
#include <xvt.h>
#include <strings.h>
#include <stdlib.h>
#include <checks.h>
#include "ba3.h"
#define usage "Error - usage : %s -{0|1|2|3|4|5}"
#define usage "Error - usage : %s -{0|1|2|3|4|5|6}", argv[0]
int main(int argc, char** argv)
{
if (argc < 2) fatal_box(usage, argv[0]);
const TFixed_string s(argv[1]);
if (s == "-0") ba3100(argc,argv) ; else
if (s == "-1") ba3200(argc,argv) ; else
if (s == "-2") ba3300(argc,argv) ; else
if (s == "-3") ba3400(argc,argv) ; else
if (s == "-4") ba3500(argc,argv) ; else
if (s == "-5") ba3600(argc,argv) ; else
if (s == "-6") ba3700(argc,argv);
else fatal_box(usage, argv[0]) ;
const int s = argc > 1 ? atoi(argv[1]+1) : -1;
switch (s)
{
case 0:
ba3100(argc,argv) ; break;
case 1:
ba3200(argc,argv) ; break;
case 2:
ba3300(argc,argv) ; break;
case 3:
ba3400(argc,argv) ; break;
case 4:
ba3500(argc,argv) ; break;
case 5:
ba3600(argc,argv) ; break;
case 6:
ba3700(argc,argv); break;
default:
error_box(usage); break;
}
return 0;
}

View File

@ -742,7 +742,7 @@ BOOLEAN F_TITCF
BEGIN
PROMPT 2 14 "Titolare conto fiscale"
FIELD LF_ANAG->TITCF
HELP "Dire se e' titolare di conto fiscale"
HELP "Indica se la persona e' titolare di conto fiscale"
END
LIST F_TIPOSTDEL 12

View File

@ -1,39 +1,39 @@
#include "batb%ais.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Codici attivita' ISTAT" -1 -1 78 7
STRING FLD_TABAIS_CODTAB 5
BEGIN
PROMPT 2 1 "Codice "
FIELD LF_TABCOM->CODTAB
HELP "Inserire il codice attivit…"
USE %AIS
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABAIS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABAIS_CODTAB CODTAB
OUTPUT FLD_TABAIS_S0 S0
KEY 1
FLAGS "URZ"
END
STRING FLD_TABAIS_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD LF_TABCOM->S0
HELP "Inserire la descrizione dell'attivita'"
USE %AIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABAIS_S0
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABAIS_CODTAB
KEY 2
END
ENDPAGE
ENDMASK
#include "batb%ais.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Codici attivita' ISTAT" -1 -1 78 7
STRING FLD_TABAIS_CODTAB 5
BEGIN
PROMPT 2 1 "Codice "
FIELD LF_TABCOM->CODTAB
HELP "Codice dell'attivita'"
USE %AIS
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABAIS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABAIS_CODTAB CODTAB
OUTPUT FLD_TABAIS_S0 S0
KEY 1
FLAGS "URZ"
END
STRING FLD_TABAIS_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD LF_TABCOM->S0
HELP "Descrizione dell'attivita'"
USE %AIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABAIS_S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABAIS_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,33 +1,18 @@
// campi maschera batb%ban.msk
#define F_CODICEABI 101
#define F_CODICECAB 102
#define F_DENOM 103
#define F_ISTIT 104
#define F_INDIRIZZO 105
#define F_CAP 106
#define F_STATO 107
#define F_COMUNE 108
#define F_STAMPRICBAN 109
#define F_CIV 110
#define F_DENCOM 111
#define F_PROV 112
#define F_CODICEDIP 113
#define H_CODICEABI 114
// campi maschera batb%ban.msk
#define F_CODICEABI 101
#define F_CODICECAB 102
#define F_DENOM 103
#define F_ISTIT 104
#define F_INDIRIZZO 105
#define F_CAP 106
#define F_STATO 107
#define F_COMUNE 108
#define F_STAMPRICBAN 109
#define F_CIV 110
#define F_DENCOM 111
#define F_PROV 112
#define F_CODICEDIP 113
#define H_CODICEABI 114
#define H_DENOMABI 115

View File

@ -13,14 +13,14 @@ NUMBER F_CODICEABI 5
BEGIN
PROMPT 6 1 "Codice ABI "
FIELD %BAN->CODTAB[1,5]
FLAGS "RZ"
FLAGS "Z"
KEY 1
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB F_CODICEABI
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
DISPLAY "Istituto@50" S0
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT H_DENOMABI S0
MESSAGE COPY,H_CODICEABI
END
@ -28,17 +28,20 @@ NUMBER F_CODICECAB 5
BEGIN
PROMPT 28 1 "Codice CAB "
FIELD %BAN->CODTAB[6,10]
FLAGS "RZ"
FLAGS "Z"
KEY 1
USE %BAN
USE %BAN SELECT CODTAB ?= "??????????"
INPUT CODTAB[1,5] F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
COPY DISPLAY F_CODICEABI
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
DISPLAY "Dipendenza" I0
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_DENOM S0
OUTPUT F_CODICEABI CODTAB[1,5]
MESSAGE SHOW,F_ISTIT
MESSAGE EMPTY HIDE,F_ISTIT
MESSAGE SHOW,F_ISTIT|SHOW,F_CODICEDIP|HIDE,H_DENOMABI|SHOW,F_DENOM
MESSAGE EMPTY HIDE,F_ISTIT|HIDE,F_CODICEDIP|SHOW,H_DENOMABI|HIDE,F_DENOM
VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB
GROUP GR_SEARCH
END
@ -47,12 +50,12 @@ NUMBER F_CODICEDIP 4
BEGIN
PROMPT 50 1 "Codice Dipendenza "
FIELD %BAN->I0
FLAGS "RZ"
FLAGS "Z"
END
NUMBER H_CODICEABI 5
BEGIN
FLAGS "HRZ"
FLAGS "HZ"
COPY USE F_CODICEABI
INPUT CODTAB F_CODICEABI
COPY DISPLAY F_CODICEABI
@ -71,17 +74,30 @@ BEGIN
PROMPT 6 5 "Denominazione "
FIELD %BAN->S0
KEY 2
USE %BAN KEY 2
USE %BAN KEY 2 SELECT CODTAB?="??????????"
INPUT S0 F_DENOM
DISPLAY "Denominazione@50" S0
INPUT CODTAB[1,5] F_CODICEABI
INPUT CODTAB[6,10] F_CODICECAB
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Dipendenza" I0
COPY OUTPUT F_CODICECAB
CHECKTYPE REQUIRED
END
STRING H_DENOMABI 50
BEGIN
PROMPT 6 3 "Istituto "
FIELD %BAN->S0
KEY 2
USE %BAN KEY 2 SELECT CODTAB ?= "?????"
INPUT S0 H_DENOMABI
DISPLAY "Istituto@50" S0
DISPLAY "Codice ABI" CODTAB[1,5]
COPY OUTPUT F_CODICECAB
OUTPUT H_DENOMABI S0
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 72 7
BEGIN
PROMPT 4 8 "Sede"
@ -101,7 +117,7 @@ END
STRING F_COMUNE 4
BEGIN
PROMPT 6 11 "Comune "
PROMPT 6 11 "Codice comune "
FLAGS "U"
FIELD %BAN->S5
USE LF_COMUNI
@ -119,7 +135,7 @@ END
STRING F_DENCOM 50
BEGIN
PROMPT 6 12 "Denominazione "
PROMPT 6 12 "Comune "
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
#include <comdden.h>

View File

@ -1,6 +1,6 @@
#include "batb%cpg.h"
TOOLBAR "" 0 20 0 2
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
@ -9,28 +9,28 @@ PAGE "Tabella pagamenti" -1 -1 78 15
STRING F_CODICE 4
BEGIN
PROMPT 4 1 "Codice "
HELP "Inserire il codice di pagamento"
HELP "Codice di pagamento"
FIELD LF_TABCOM->CODTAB
FLAGS "U"
USE %CPG
CHECKTYPE REQUIRED
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo di pagamento@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 4 3 "Descrizione "
HELP "Inserire la descrizione"
HELP "Descrizione del tipo di pagamento"
FIELD LF_TABCOM->S0
USE %CPG KEY 2
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo di pagamento@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESC S0

View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Tabella descrizioni aggiuntive" -1 -1 78 8
PAGE "Descrizioni aggiuntive" -1 -1 78 8
STRING F_CODICE 5
BEGIN
@ -17,7 +17,7 @@ BEGIN
USE %DPN
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
DISPLAY "Descrizione aggiuntiva@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
@ -31,7 +31,7 @@ BEGIN
USE %DPN KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @50" S0
DISPLAY "Descrizione aggiuntiva@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0

View File

@ -20,6 +20,7 @@ BEGIN
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
OUTPUT FLD_TABIVA_CODTAB CODTAB
OUTPUT FLD_TABIVA_S0 S0
HELP "Inserire il codice IVA"
@ -38,6 +39,7 @@ BEGIN
DISPLAY "Tipo" S1
DISPLAY "%@5" R0
DISPLAY "Vent." S6
DISPLAY "Sospeso" B2
COPY OUTPUT FLD_TABIVA_CODTAB
HELP "Inserire la descrizione del codice IVA"
CHECKTYPE REQUIRED
@ -83,7 +85,7 @@ END
NUMBER FLD_TABIVA_R0 6 2
BEGIN
PROMPT 3 4 "Percentuale "
PROMPT 3 4 "Aliquota "
FIELD R0
HELP "Inserire la percentuale di imposta"
END

View File

@ -7,7 +7,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Tabella codici IV direttiva CEE" -1 -1 78 15
PAGE "Voci di bilancio IV direttiva CEE" -1 -1 78 15
LIST F_SEZ 1 18
BEGIN
@ -35,6 +35,7 @@ BEGIN
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_DESCR_LETT S0
CHECKTYPE NORMAL
HELP "Lettera secondo la IV dir. CEE"
GROUP GR_SEARCH
END
@ -56,12 +57,13 @@ BEGIN
INPUT CODTAB[3,6] F_CLASSE
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe " CODTAB[3,6]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Descrizione@50" S0
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_CLASSE CODTAB[3,6]
OUTPUT F_DESCR_CLAS S0
CHECKTYPE NORMAL
HELP "Classe secondo la IV dir. CEE (numero romano)"
END
@ -82,13 +84,13 @@ BEGIN
INPUT CODTAB[7,8] F_NUM
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe " CODTAB[3,6]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@50" S0
OUTPUT F_NUM CODTAB[7,8]
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_CLASSE CODTAB[3,6]
OUTPUT F_NUM CODTAB[7,8]
OUTPUT F_DESCR S0
HELP "Numero (arabo) secondo la IV dir. CEE"
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
@ -104,7 +106,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe " CODTAB[3,6]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
COPY OUTPUT F_NUM
CHECKTYPE REQUIRED

View File

@ -1,66 +1,58 @@
#include "batb%val.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Valute" -1 -1 78 12
STRING FLD_TABVAL_CODTAB 3
BEGIN
PROMPT 3 1 "Codice "
FIELD LF_TABCOM->CODTAB
FLAGS "U"
KEY 1
USE %VAL
INPUT CODTAB FLD_TABVAL_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
OUTPUT FLD_TABVAL_CODTAB CODTAB
OUTPUT FLD_TABVAL_S0 S0
HELP "Codice della valuta"
CHECKTYPE REQUIRED
END
STRING FLD_TABVAL_S0 25
BEGIN
PROMPT 3 3 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %VAL KEY 2
INPUT S0 FLD_TABVAL_S0
DISPLAY "Valuta@25" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABVAL_CODTAB
HELP "Descrizione della valuta"
CHECKTYPE REQUIRED
END
STRING FLD_TABVAL_S7 5
BEGIN
PROMPT 3 5 "Simbolo "
FIELD LF_TABCOM->S7
HELP "Simbolo della valuta"
END
NUMBER FLD_TABVAL_R0 15 5
BEGIN
PROMPT 3 7 "Cambio "
FIELD LF_TABCOM->R10
PICTURE ".5"
FLAGS "R"
HELP "Cambio attuale"
END
DATE FLD_TABVAL_D0
BEGIN
PROMPT 3 9 "Data "
FIELD LF_TABCOM->D0
HELP "Data di ultimo aggiornamento"
END
ENDPAGE
ENDMASK
#include "batb%val.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Valute" -1 -1 78 12
STRING FLD_TABVAL_CODTAB 3
BEGIN
PROMPT 3 1 "Codice "
FIELD LF_TABCOM->CODTAB
FLAGS "U"
KEY 1
USE %VAL
INPUT CODTAB FLD_TABVAL_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
OUTPUT FLD_TABVAL_CODTAB CODTAB
OUTPUT FLD_TABVAL_S0 S0
HELP "Codice della valuta"
CHECKTYPE REQUIRED
END
STRING FLD_TABVAL_S0 25
BEGIN
PROMPT 3 3 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %VAL KEY 2
INPUT S0 FLD_TABVAL_S0
DISPLAY "Valuta@25" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABVAL_CODTAB
HELP "Descrizione della valuta"
CHECKTYPE REQUIRED
END
NUMBER FLD_TABVAL_R0 15 5
BEGIN
PROMPT 3 5 "Cambio "
FIELD LF_TABCOM->R10
PICTURE ".5"
FLAGS "R"
END
DATE FLD_TABVAL_D0
BEGIN
PROMPT 3 7 "Data "
FIELD LF_TABCOM->D0
HELP "Data di ultimo aggiornamento"
END
ENDPAGE
ENDMASK

View File

@ -3,8 +3,8 @@
Tabella dei registri
[Rows]
1|CODTAB[1,3]|@2gCodice: @3s
1|CODTAB[4,7]|@13gAnno: @4s
1|CODTAB[5,7]|@2gCodice: @3s
1|CODTAB[1,4]|@13gAnno: @4s
1|S0|@24gDescrizione: @25s
1|I0|@64gTipo: @25t
1|S7|@94gCod. libro: @3s

View File

@ -21,7 +21,8 @@
2|Tabelle|1
2|Codici IVA|ba3 -0 %iva
2|Codici Attivita'|ba3 -0 %ais
2|Cond. di pagamento|ba3 -0 %cpg
2|Condizioni di pagamento|ba3 -0 %cpg
2|Classificazione pagamenti|ba3 -0 %clr
2|Libri sociali|ba3 -0 %itl
2|Banche|ba3 -0 %ban
2|Codici statistici|ba3 -0 %stt
@ -33,7 +34,8 @@
3|Stampa tabelle|3
3|Codici IVA|ba3 -1 %iva
3|Codici Attivita'|ba3 -1 %ais
3|Cond. di pagamento|ba3 -1 %cpg
3|Condizioni di pagamento|ba3 -1 %cpg
3|Classificazione pagamenti|ba3 -1 %clr
3|Libri sociali|ba3 -1 %itl
3|Banche|ba3 -1 %ban
3|Codici statistici|ba3 -1 %stt
@ -54,7 +56,8 @@
4|Gestione Libro Unico|14
5|Tabelle studio|1
5|Tipi documento|ba3 -0 %tpd
5|Cond. di pagamento|ba3 -0 %cpg
5|Condizioni di pagamento|ba3 -0 %cpg
5|Classificazione pagamenti|ba3 -0 %clr
5|Descrizioni aggiuntive|ba3 -0 %dpn
5|Codici IVA|ba3 -0 %iva
5|Codici Attivita'|ba3 -0 %ais
@ -65,7 +68,8 @@
5|Valute|ba3 -0 %val
5|Lingue|ba3 -0 %lng
6|Stampa tabelle studio|3
6|Cond. di pagamento|ba3 -1 %cpg
6|Condizioni di pagamento|ba3 -1 %cpg
6|Classificazione pagamenti|ba3 -1 %clr
6|Descrizioni aggiuntive|ba3 -1 %dpn
6|Codici IVA|ba3 -1 %iva
6|Codici Attivita'|ba3 -1 %ais
@ -91,6 +95,7 @@
8|Banche|ba3 -1 %ban
9|Prima nota|2
9|Prima nota|cg2 -0
9|Elimina movimenti provvisori|cg2 -1
9|Ricalcolo saldi|cg4 -0
9|IVA|10
9|Lista movimenti|cg3 -0