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

Modificati i nomi delle maschere delle tabelle comuni (tolto il %)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@520 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-03 15:59:49 +00:00
parent e664d27004
commit b2f490133a
149 changed files with 5706 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ba/ba3100.cpp
View File

@ -31,7 +31,7 @@ class BA3100_application : public TRelation_application
virtual void init_modify_mode(TMask& m);
public:
BA3100_application(const char* tabname) : _tabname(tabname) , _oldditta(-1), _oldanno(-1), _exist_journal(FALSE) {}
BA3100_application() : _oldditta(-1), _oldanno(-1), _exist_journal(FALSE) , _msk(NULL), _rel(NULL) {}
virtual ~BA3100_application() {}
bool exist_journal() {return _exist_journal;}
void print();
@ -120,10 +120,20 @@ HIDDEN bool tiporeg_handler(TMask_field& f, KEY k)
return error_box("Non e' possibile avere due registri giornale nello stesso anno");
return TRUE;
}
bool BA3100_application::user_create()
{
if (argc() < 3) return FALSE;
_tabname = argv(2);
if (_tabname.empty()) return FALSE;
_tabname.upper();
TString m(16); m << "BATB" << _tabname;
TString16 m, t(_tabname);
if (t[0] == '%')
t.ltrim(1);
m << "BATB" << t;
_msk = new TMask(m) ;
for (int i = 0; i < _msk->fields(); i++)
if (_msk->fld(i).in_group(GR_SEARCH))
@ -139,14 +149,14 @@ bool BA3100_application::user_create()
bool BA3100_application::user_destroy()
{
delete _msk;
delete _rel;
if (_msk) delete _msk;
if (_rel) delete _rel;
return TRUE;
}
int ba3100(int argc, char* argv[])
{
BA3100_application a(argv[2]) ;
BA3100_application a ;
a.run(argc, argv, "Tabella");
return 0;
}

22
ba/ba3200.cpp
View File

@ -44,7 +44,7 @@ public:
void set_footers();
void set_translations();
void set_relations();
BA3200_application(const char * tabname) : _tabname(tabname) {}
BA3200_application() {}
virtual ~BA3200_application() {}
};
@ -327,18 +327,30 @@ void BA3200_application::set_relations()
void BA3200_application::user_create()
{
_rptname << "batb" << _tabname << ".rpt" ;
_tabname = argv(2);
TString16 t(_tabname);
if (t[0] == '%')
t.ltrim(1);
_rptname << "batb" << t << ".rpt" ;
// Flag per la stampa tabella registri
_stampa_registri = (_tabname.upper() == "REG");
if (!fexist(_rptname))
fatal_box("Impossibile aprire il file '%s'", (const char*)_rptname);
_rel = new TRelation (_tabname);
_cur = new TCursor (_rel);
t = _tabname;
_maskname << "bast" << _tabname;
if (t[0] == '%')
t.ltrim(1);
_maskname << "bast" << t;
_msk = new TMask (_maskname) ;
add_cursor (_cur);
@ -369,7 +381,7 @@ void BA3200_application::user_destroy()
int ba3200(int argc, char* argv[])
{
BA3200_application a(argv[2]) ;
BA3200_application a;
a.run(argc, argv, "Stampa tabella");
return 0;
}

43
ba/bastais.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa attivita'" -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD CODTAB
USE %AIS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Attivit…@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 3 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastasf.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Assoggettamento" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %ASF
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

71
ba/bastban.uml Executable file
View File

@ -0,0 +1,71 @@
#include "ba3200.h"
PAGE "Stampa banche" -1 -1 56 8
STRING F_INIZIO1 5
BEGIN
PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5]
USE %BAN
INPUT CODTAB[1,5] F_INIZIO1
INPUT CODTAB[6,10] F_INIZIO2
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Istituto@50" S0
DISPLAY "Dipendenza@35" S1
OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,10]
GROUP 1
END
STRING F_INIZIO2 5
BEGIN
PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5]
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,10]
GROUP 2
END
STRING F_FINE2 5
BEGIN
PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastcco.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Categorie contabili" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CCO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastcfi.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Categorie finanziarie" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CFI
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ba/bastcpg.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa condizioni di pagamento" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CPG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ba/bastcrs.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa cariche sociali" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CRS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Carica@25" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

45
ba/bastcve.uml Executable file
View File

@ -0,0 +1,45 @@
#include "ba3200.h"
PAGE "Stampa Categorie Vendita" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %CVE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastdpn.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa descrizioni di prima nota" -1 -1 50 8
STRING F_INIZIO1 5
BEGIN
PROMPT 4 1 "Da codice "
FLAGS "U"
USE %DPN
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
GROUP 1
END
STRING F_FINE1 5
BEGIN
PROMPT 4 3 "A codice "
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
FIELD CODTAB
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastitl.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa libri sociali" -1 -1 50 8
NUMBER F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
USE %ITL
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Nome libro@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "R"
FIELD CODTAB
GROUP 1
END
NUMBER F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD CODTAB
FLAGS "R"
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ba/bastiva.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa codici IVA" -1 -1 50 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "R"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %IVA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "R"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

124
ba/bastivd.uml Executable file
View File

@ -0,0 +1,124 @@
#include "ba3200.h"
PAGE "Stampa Tabella IV direttiva CEE" -1 -1 68 9
GROUPBOX DLG_NULL 66 3
BEGIN
PROMPT 1 1 "@bDa codice"
END
STRING F_INIZIO1 1
BEGIN
PROMPT 2 2 "Sezione "
FLAGS "U"
HELP "Codice da cui iniziare la stampa"
FIELD CODTAB[1,1]
USE %IVD
INPUT CODTAB[1,1] F_INIZIO1
INPUT CODTAB[2,2] F_INIZIO2
INPUT CODTAB[3,6] F_INIZIO3
INPUT CODTAB[7,8] F_INIZIO4
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe " CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,1]
OUTPUT F_INIZIO2 CODTAB[2,2]
OUTPUT F_INIZIO3 CODTAB[3,6]
OUTPUT F_INIZIO4 CODTAB[7,8]
GROUP 1
END
STRING F_INIZIO2 1
BEGIN
PROMPT 17 2 "Lettera "
FLAGS "U"
FIELD CODTAB[2,2]
COPY ALL F_INIZIO1
GROUP 1
END
NUMBER F_INIZIO3 8 4
BEGIN
PROMPT 31 2 "Classe "
FLAGS "UM"
FIELD CODTAB[3,6]
COPY ALL F_INIZIO1
GROUP 1
END
NUMBER F_INIZIO4 2
BEGIN
PROMPT 52 2 "Numero "
FLAGS "RZ"
FIELD CODTAB[7,8]
COPY ALL F_INIZIO1
GROUP 1
END
GROUPBOX DLG_NULL 66 3
BEGIN
PROMPT 1 4 "@bA Codice"
END
STRING F_FINE1 1
BEGIN
PROMPT 2 5 "Sezione "
HELP "Codice finale da stampare"
FIELD CODTAB[1,1]
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB[1,1] F_FINE1
INPUT CODTAB[2,2] F_FINE2
INPUT CODTAB[3,6] F_FINE3
INPUT CODTAB[7,8] F_FINE4
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,1]
OUTPUT F_FINE2 CODTAB[2,2]
OUTPUT F_FINE3 CODTAB[3,6]
OUTPUT F_FINE4 CODTAB[7,8]
GROUP 2
END
STRING F_FINE2 1
BEGIN
PROMPT 17 5 "Lettera "
FLAGS "U"
COPY ALL F_FINE1
FIELD CODTAB[2,2]
GROUP 2
END
NUMBER F_FINE3 8 4
BEGIN
PROMPT 31 5 "Classe "
FLAGS "UM"
FIELD CODTAB[3,6]
COPY ALL F_FINE1
GROUP 2
END
NUMBER F_FINE4 2
BEGIN
PROMPT 52 5 "Numero "
FLAGS "RZ"
FIELD CODTAB[7,8]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastleg.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Legali" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %LEG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastlis.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa listini" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %LIS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastlng.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa lingue" -1 -1 50 8
STRING F_INIZIO1 1
BEGIN
PROMPT 4 1 "Da codice "
FLAGS "U"
USE %LNG
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT F_INIZIO1 CODTAB
FIELD CODTAB
GROUP 1
END
STRING F_FINE1 1
BEGIN
PROMPT 4 3 "A codice "
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FILED CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastmsp.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %MSP
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastndo.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Note documento" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %NDO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

44
ba/bastnot.uml Executable file
View File

@ -0,0 +1,44 @@
#include "ba3200.h"
PAGE "Stampa Codici note" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %NOT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0
DISPLAY "Blocca imm." B0
DISPLAY "Documento" B1
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

70
ba/bastois.uml Executable file
View File

@ -0,0 +1,70 @@
#include "ba3200.h"
PAGE "Stampa vecchi codici attivita'" -1 -1 60 8
STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
USE %OIS
FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_INIZIO1
INPUT CODTAB[5,] F_INIZIO2
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,4]
OUTPUT F_INIZIO2 CODTAB[5,]
GROUP 1
END
STRING F_INIZIO2 1
BEGIN
PROMPT 28 1 "subcodice "
FLAGS "U"
FIELD CODTAB[5,]
HELP "Inserire il subcodice d'inizio "
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine "
COPY USE F_INIZIO1
FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_FINE1
INPUT CODTAB[5,] F_FINE2
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,4]
OUTPUT F_FINE2 CODTAB[5,]
GROUP 2
END
STRING F_FINE2 1
BEGIN
PROMPT 28 3 "subcodice "
FLAGS "U"
HELP "Inserire il subcodice di fine "
FIELD CODTAB[5,]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastpor.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Modalita' di consegna" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %POR
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastsad.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Spese da addebitare" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %SAD
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@20" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ba/bastsco.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa sconti incondizionati" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %SCO
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Percentuale" R0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ba/baststa.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ba3200.h"
PAGE "Stampa stati" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %STA
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/baststt.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7
BEGIN
PROMPT 2 1 "Da codice "
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %STT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 7
BEGIN
PROMPT 2 3 "A codice "
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/basttit.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Titoli onorifici" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %TIT
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/basttpd.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa tipi documenti" -1 -1 50 8
STRING F_INIZIO1 2
BEGIN
PROMPT 4 1 "Tipo documento "
USE %TPD
INPUT CODTAB F_INIZIO1
DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
GROUP 1
END
STRING F_FINE1 2
BEGIN
PROMPT 4 3 "Tipo documento "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "U"
FIELD LF_TABCOM->CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastucc.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa uffici concessione" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Ufficio@30" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 1
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 2
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastucs.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa centri servizio" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UCS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD CODTAB
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD CODTAB
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastues.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa uffici esattoria" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UES
FLAGS "RZ"
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@25" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 1
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
FLAGS "RZ"
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastuid.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UID
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB
GROUP 1
FLAGS "RZ"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD LF_TABCOM->CODTAB
FLAGS "RZ"
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/bastuiv.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa Uffici IVA" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %UIV
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FLAGS "RZ"
FIELD LF_TABCOM->CODTAB
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

41
ba/basture.uml Executable file
View File

@ -0,0 +1,41 @@
#include "ba3200.h"
PAGE "Stampa Uffici registro" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
USE %URE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
FLAGS "RZ"
FIELD CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
FLAGS "RZ"
FIELD CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

42
ba/bastval.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa valute" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %VAL
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

44
ba/bastvet.uml Executable file
View File

@ -0,0 +1,44 @@
#include "ba3200.h"
PAGE "Stampa vettori" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %VET
INPUT CODTAB F_INIZIO1
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_INIZIO1 CODTAB
KEY 1
GROUP 1
END
NUMBER F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -3 ""
END
ENDPAGE
ENDMASK

42
ba/bastzon.uml Executable file
View File

@ -0,0 +1,42 @@
#include "ba3200.h"
PAGE "Stampa Zone" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB
USE %ZON
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
END
STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

4
ba/batbais.h Executable file
View File

@ -0,0 +1,4 @@
#define FLD_TABAIS_CODTAB 100
#define FLD_TABAIS_S0 101
#define FLD_TABAIS_S1 102
#define DLG_DEL 105

14
ba/batbais.rpt Executable file
View File

@ -0,0 +1,14 @@
[Headers]
80
Tabella attivita'
1|%s|Codice attivita'
1|@22g%s|Descrizione attivita'
[Rows]
1|CODTAB|@8g@16,ls
1|S0|@22g@40,ls
[Footers]
[Translations]

40
ba/batbais.uml Executable file
View File

@ -0,0 +1,40 @@
#include "batbais.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
WARNING "Manca la descrizione"
END
ENDPAGE
ENDMASK

21
ba/batbasf.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%asf.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbasf.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Assoggettamento fiscale
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@50,ls

54
ba/batbasf.uml Executable file
View File

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

18
ba/batbban.h Executable file
View File

@ -0,0 +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
#define H_DENOMABI 115

24
ba/batbban.rpt Executable file
View File

@ -0,0 +1,24 @@
[Relations]
LF_COMUNI,COM==S5
[Headers]
132
Tabella delle banche
1|@2g%s|Codice ABI
1|@14g%s|Codice CAB
1|@26g%s|Istituto
1|@78g%s|Dipendenza
2|@26g%s|Indirizzo
3|@26g%s|CAP
3|@32g%s|Comune
[Rows]
1|CODTAB[1,5]|@7g@5s
1|CODTAB[6,10]|@19g@5s
1|S0|@26g@50,ls
1|I0|@78g@4n
2|S2|@26g@40,ls
2|S7|@68g@10,ls
3|S3|@26g@5,ls
3|S5|@32g@4,ls
3|LF_COMUNI->DENCOM|@38g@50,ls

165
ba/batbban.uml Executable file
View File

@ -0,0 +1,165 @@
#include "ba3100.h"
#include "batbban.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella banche" -1 -1 78 18
NUMBER F_CODICEABI 5
BEGIN
PROMPT 6 1 "Codice ABI "
FIELD %BAN->CODTAB[1,5]
FLAGS "Z"
KEY 1
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB F_CODICEABI
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Istituto@50" S0
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT H_DENOMABI S0
MESSAGE COPY,H_CODICEABI
END
NUMBER F_CODICECAB 5
BEGIN
PROMPT 28 1 "Codice CAB "
FIELD %BAN->CODTAB[6,10]
FLAGS "Z"
KEY 1
USE %BAN
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 "Denominazione@50" S0
DISPLAY "Dipendenza" I0
OUTPUT F_CODICEABI CODTAB[1,5]
OUTPUT F_CODICECAB CODTAB[6,10]
OUTPUT F_DENOM S0
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
NUMBER F_CODICEDIP 4
BEGIN
PROMPT 50 1 "Codice Dipendenza "
FIELD %BAN->I0
FLAGS "Z"
END
NUMBER H_CODICEABI 5
BEGIN
FLAGS "HZ"
COPY USE F_CODICEABI
INPUT CODTAB F_CODICEABI
COPY DISPLAY F_CODICEABI
OUTPUT F_ISTIT S0
CHECKTYPE NORMAL
END
STRING F_ISTIT 50
BEGIN
PROMPT 6 3 "Istituto "
FLAGS "D"
END
STRING F_DENOM 50
BEGIN
PROMPT 6 5 "Denominazione "
FIELD %BAN->S0
USE %BAN KEY 2
KEY 2
INPUT S0 F_DENOM
DISPLAY "Denominazione@50" S0
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Dipendenza" I0
COPY OUTPUT F_CODICECAB
MESSAGE K_TAB,F_CODICECAB
CHECKTYPE REQUIRED
WARNING "Manca la denominazione"
END
STRING H_DENOMABI 50
BEGIN
PROMPT 6 3 "Istituto "
FIELD %BAN->S0
KEY 2
USE %BAN KEY 2
INPUT S0 H_DENOMABI
DISPLAY "Istituto@50" S0
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODICECAB
OUTPUT H_DENOMABI S0
MESSAGE K_TAB,F_CODICECAB
CHECKTYPE REQUIRED
WARNING "Manca la denominazione dell'istituto"
END
GROUPBOX DLG_NULL 72 7
BEGIN
PROMPT 4 8 "Sede"
END
STRING F_INDIRIZZO 35
BEGIN
PROMPT 6 9 "Indirizzo "
FIELD %BAN->S2
END
STRING F_CIV 10
BEGIN
PROMPT 60 9 "N. "
FIELD %BAN->S7
END
STRING F_COMUNE 4
BEGIN
PROMPT 6 11 "Codice comune "
FLAGS "U"
FIELD %BAN->S5
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_COMUNE
#include <comdcod.h>
OUTPUT F_COMUNE COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROV PROVCOM
OUTPUT F_CAP CAPCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
END
STRING F_DENCOM 50
BEGIN
PROMPT 6 12 "Comune "
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
#include <comdden.h>
COPY OUTPUT F_COMUNE
CHECKTYPE NORMAL
END
STRING F_PROV 2
BEGIN
PROMPT 6 13 "Provincia "
FLAGS "D"
END
STRING F_CAP 5
BEGIN
PROMPT 60 13 "C.A.P. "
FIELD %BAN->S3
END
ENDPAGE
ENDMASK

8
ba/batbcco.h Executable file
View File

@ -0,0 +1,8 @@
// campi maschera batb%cco.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbcco.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Categorie contabili
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls

44
ba/batbcco.uml Executable file
View File

@ -0,0 +1,44 @@
#include <batbcco.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %CCO
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %CCO KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

21
ba/batbcfi.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%cfi.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbcfi.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Categorie Finanziarie
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls

54
ba/batbcfi.uml Executable file
View File

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

3
ba/batbclr.h Executable file
View File

@ -0,0 +1,3 @@
#define F_CODICERATA 101
#define F_CODICEALFA 102
#define F_DESCR 103

63
ba/batbclr.uml Executable file
View File

@ -0,0 +1,63 @@
#include <batbclr.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Ulteriore classificazione" -1 -1 78 13
STRING F_CODICERATA 1
BEGIN
PROMPT 4 1 "Codice "
FIELD %CLR->CODTAB[1,1]
SHEET "Cod|Descrizione@60"
INPUT F_CODICERATA
OUTPUT F_CODICERATA
ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione"
ITEM "5|Paghero'"
ITEM "6|Lettera di accredito"
ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento"
END
STRING F_CODICEALFA 1
BEGIN
PROMPT 20 1 ""
FIELD %CLR->CODTAB[2,2]
KEY 1
USE %CLR
INPUT CODTAB[1,1] F_CODICERATA
INPUT CODTAB[2,2] F_CODICEALFA
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0
HELP "Inserire il codice dell' ulteriore classificazione"
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 3 "Descrizione "
FIELD %CLR->S0
USE %CLR
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0
HELP "Inserire la descrizione dell' ulteriore classificazione"
END
ENDPAGE
ENDMASK

24
ba/batbcpg.h Executable file
View File

@ -0,0 +1,24 @@
// posizione file comuni in _arrfiles
// campi maschera batb%cpg.msk
#define F_CODICE 101
#define F_DESC 102
#define F_TIPO 103
#define F_INIZIOSCAD 104
#define F_MESECOMM 105
#define F_RATEDIFF 106

19
ba/batbcpg.rpt Executable file
View File

@ -0,0 +1,19 @@
[Headers]
132
Tabella dei codici di pagamento
1|@2g%s|Codice pagamento
1|@20g%s|Descrizione codice pagamento
1|@72g%s|Tipo
1|@78g%s|Inizio scadenze
1|@95g%s|Mese Commerciale
1|@113g%s|Rate Differenziate
[Rows]
1|CODTAB|@2g@16n
1|S0|@20g@50,ls
1|I0|@72g@4n
1|CODTAB[11,12]|@78g@15,ls
1|B0|@95g@16f
1|B1|@113g@18f

77
ba/batbcpg.uml Executable file
View File

@ -0,0 +1,77 @@
#include "batbcpg.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella pagamenti" -1 -1 78 15
STRING F_CODICE 4
BEGIN
PROMPT 4 1 "Codice "
HELP "Codice di pagamento"
FIELD LF_TABCOM->CODTAB
FLAGS "U"
USE %CPG
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
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 "Descrizione del tipo di pagamento"
FIELD LF_TABCOM->S0
USE %CPG KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_DESC
DISPLAY "Tipo di pagamento@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESC S0
KEY 2
END
LIST F_TIPO 18
BEGIN
PROMPT 4 5 "Tipo "
HELP "Inserire il tipo"
FIELD LF_TABCOM->I0
ITEM "1|Rimessa Diretta"
ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione"
ITEM "5|Paghero'"
ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata"
END
LIST F_INIZIOSCAD 12
BEGIN
PROMPT 4 7 "Inizio scadenze "
FIELD LF_TABCOM->S7
ITEM "F|Data fattura"
ITEM "M|Fine mese"
ITEM "D|Data fissa"
END
BOOLEAN F_MESECOMM
BEGIN
PROMPT 4 9 "Mese commerciale"
FIELD LF_TABCOM->B0
END
BOOLEAN F_RATEDIFF
BEGIN
PROMPT 4 11 "Rate differenziate "
FIELD LF_TABCOM->B1
END
ENDPAGE
ENDMASK

6
ba/batbcrs.h Executable file
View File

@ -0,0 +1,6 @@
#define FLD_TABCRS_CODTAB 100
#define CHK_TABCRS_S6 101
#define FLD_TABCRS_S0 102
#define FLD_TABCRS_S1 103
#define CHK_TABCRS_S2 104
#define DLG_DEL 107

11
ba/batbcrs.rpt Executable file
View File

@ -0,0 +1,11 @@
[Headers]
80
Tabella delle cariche sociali
1|@2g%s|Cod.
1|@7g%s|Carica sociale
1|@58g%s|Stampa su modulo RAD ?
[Rows]
1|CODTAB|@2g@5,ls
1|S0|@7g@50,ls
1|S6|@58g@f

50
ba/batbcrs.uml Executable file
View File

@ -0,0 +1,50 @@
#include "batbcrs.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Cariche sociali" -1 -1 78 7
STRING FLD_TABCRS_CODTAB 2
BEGIN
PROMPT 3 1 "Codice "
FIELD LF_TABCOM->CODTAB
KEY 1
USE %CRS
INPUT CODTAB FLD_TABCRS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Carica@25" S0
OUTPUT FLD_TABCRS_CODTAB CODTAB
OUTPUT FLD_TABCRS_S0 S0
HELP "Inserire il codice della carica sociale"
CHECKTYPE REQUIRED
END
STRING FLD_TABCRS_S0 25
BEGIN
PROMPT 3 3 "Carica "
FIELD LF_TABCOM->S0
KEY 2
USE %CRS KEY 2
INPUT S0 FLD_TABCRS_S0
DISPLAY "Carica@25" S0
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABCRS_CODTAB CODTAB
OUTPUT FLD_TABCRS_S0 S0
HELP "Inserire la descrizione della carica sociale"
CHECKTYPE REQUIRED
END
BOOLEAN CHK_TABCRS_S6
BEGIN
PROMPT 3 5 "Stampa modulo RAD"
FIELD LF_TABCOM->S6
HELP "Indicare se la carica viene stampata su modulo RAD"
END
ENDPAGE
ENDMASK

24
ba/batbcve.h Executable file
View File

@ -0,0 +1,24 @@
// campi maschera batb%cve.msk
#define F_CODICE 101
#define F_DESCR 102
#define F_PROVV 103
#define F_GRUPPO 104
#define F_CONTO 105

16
ba/batbcve.rpt Executable file
View File

@ -0,0 +1,16 @@
[Headers]
132
Tabella Categorie Vendita
1|@3g%s|Codice
1|@14g%s|Descrizione
1|@46g%s|Provvigione
1|@60g%s|Gruppo
1|@68g%s|Conto
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls
1|R0|@46g@5,ls
1|I0|@60g@2,ls
1|I1|@68g@2,ls

74
ba/batbcve.uml Executable file
View File

@ -0,0 +1,74 @@
batbude <batbcve.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Categorie di vendita " -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %CVE
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %CVE KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1
DISPLAY "Conto" I2
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PROVV R0
OUTPUT F_GRUPPO I1
OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
END
NUMBER F_PROVV 5 2
BEGIN
PROMPT 4 6 "Provvigione "
FIELD LF_TABCOM->R0
END
NUMBER F_GRUPPO 2
BEGIN
PROMPT 30 6 "Gruppo "
FIELD LF_TABCOM->I1
END
NUMBER F_CONTO 2
BEGIN
PROMPT 43 6 "Conto "
FIELD LF_TABCOM->I2
END
ENDPAGE
ENDMASK

27
ba/batbdel.h Executable file
View File

@ -0,0 +1,27 @@
// campi maschera batbdel.msk
#define F_ANNO 131
#define F_MESE 132
#define F_TIPO 133
#define F_DATA 134
#define F_BANCA1 135
#define F_BANCA2 136
#define F_IMPORTO 137
#define F_STAMPATO 138
#define F_CODDITTA 139
#define F_RAGSOC 140

148
ba/batbdel.uml Executable file
View File

@ -0,0 +1,148 @@
#include <batbdel.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella deleghe IVA" -1 -1 78 15
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 1 "Ditta "
FIELD CODTAB[1,5]
FLAGS "FR"
KEY 1
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Ragione sociale assente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 4 2 "Ragione sociale "
KEY 1
USE LF_NDITTE KEY 2
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
WARNING "Ragione sociale assente"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 3 "Anno "
FIELD CODTAB[6,9]
CHECKTYPE REQUIRED
FLAGS "RA"
KEY 1
USE %DEL
JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
INPUT CODTAB[1,5] F_CODDITTA
INPUT CODTAB[6,9] F_ANNO
INPUT CODTAB[10,11] F_MESE
INPUT CODTAB[12,12] F_TIPO
DISPLAY "Ditta" CODTAB[1,5]
DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
DISPLAY "Anno" CODTAB[6,9]
DISPLAY "Mese" CODTAB[10,11]
DISPLAY "Tipo" CODTAB[12,12]
OUTPUT F_CODDITTA CODTAB[1,5]
OUTPUT F_ANNO CODTAB[6,9]
OUTPUT F_MESE CODTAB[10,11]
OUTPUT F_TIPO CODTAB[12,12]
HELP "Introdurre l'anno di versamento"
END
LIST F_MESE 10
BEGIN
PROMPT 4 4 "Mese "
FIELD CODTAB[10,11]
FLAGS "MA"
KEY 1
COPY ALL F_ANNO
HELP "Introdurre il mese di versamento"
ITEM "13|Annuale"
MESSAGE "2",F_TIPO
VALIDATE MTCHECK_FUNC
END
LIST F_TIPO 20
BEGIN
PROMPT 4 5 "Tipo "
FIELD CODTAB[12,12]
KEY 1
HELP "Introdurre il tipo di versamento"
ITEM "1|normale"
MESSAGE ENABLE,F_MESE
ITEM "2|annuale"
MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "3|art. 74"
MESSAGE ENABLE,F_MESE
ITEM "4|cessazione attivita'"
MESSAGE ENABLE,F_MESE
ITEM "5|integrativa"
MESSAGE ENABLE,F_MESE
ITEM "7|acconti IVA"
MESSAGE "12",F_MESE|DISABLE,F_MESE
END
DATE F_DATA
BEGIN
PROMPT 4 7 "Data "
FIELD D0
HELP "Introdurre la data di versamento"
END
NUMBER F_BANCA1 5
BEGIN
PROMPT 4 8 "Codice ABI "
FIELD S7
FLAGS "RZ"
USE %BAN
INPUT CODTAB[1,5] F_BANCA1
INPUT CODTAB[6,10] F_BANCA2
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Descrizione @50" S0
OUTPUT F_BANCA1 CODTAB[1,5]
OUTPUT F_BANCA2 CODTAB[6,10]
CHECKTYPE NORMAL
WARNING "Banca assente"
END
NUMBER F_BANCA2 5
BEGIN
PROMPT 4 9 "Codice CAB "
FIELD S8
FLAGS "RZ"
COPY ALL F_BANCA1
CHECKTYPE NORMAL
WARNING "Banca assente"
END
NUMBER F_IMPORTO 15
BEGIN
PROMPT 4 10 "Importo "
FIELD R0
FLAGS "R"
HELP "Introdurre l'importo versato"
END
BOOLEAN F_STAMPATO
BEGIN
PROMPT 4 12 "Stampato "
FIELD B0
END
ENDPAGE
ENDMASK

21
ba/batbdpn.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%dpn.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbdpn.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella descrizioni di prima nota
1|@3g%s|Codice
1|@14g%s|Denominazione
[Rows]
1|CODTAB|@3g@5,ls
1|S0|@14g@50,ls

44
ba/batbdpn.uml Executable file
View File

@ -0,0 +1,44 @@
#include <batbdpn.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Descrizioni aggiuntive" -1 -1 78 8
STRING F_CODICE 5
BEGIN
PROMPT 4 2 "Codice "
FIELD LF_TABCOM->CODTAB
FLAGS "U"
KEY 1
USE %DPN
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione aggiuntiva@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %DPN KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione aggiuntiva@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
ENDPAGE
ENDMASK

4
ba/batbitl.h Executable file
View File

@ -0,0 +1,4 @@
#define FLD_TABITL_CODTAB 100
#define FLD_TABITL_S0 101
#define FLD_TABITL_I0 102
#define DLG_DEL 105

9
ba/batbitl.rpt Executable file
View File

@ -0,0 +1,9 @@
[Headers]
80
Tabella dei libri sociali
1|@2g%s|Cod.
1|@8g%s|Descriozione
[Rows]
1|CODTAB|@2g@5,ls
1|S0|@8g@50,ls

42
ba/batbitl.uml Executable file
View File

@ -0,0 +1,42 @@
#include "batbitl.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Libri sociali" -1 -1 78 9
NUMBER FLD_TABITL_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD %ITL->CODTAB
HELP "Codice del libro sociale"
USE %ITL
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABITL_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABITL_CODTAB CODTAB
OUTPUT FLD_TABITL_S0 S0
KEY 1
FLAGS "R"
END
STRING FLD_TABITL_S0 50
BEGIN
PROMPT 2 3 "Descrizione "
FIELD %ITL->S0
HELP "Nome del libro sociale"
USE %ITL KEY 2
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
INPUT S0 FLD_TABITL_S0
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABITL_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

20
ba/batbiva.h Executable file
View File

@ -0,0 +1,20 @@
#define LST_TABIVA_S5 100
#define CHK_TABIVA_S9 101
#define FLD_TABIVA_CODTAB 102
#define FLD_TABIVA_S0 103
#define LST_TABIVA_S1 104
#define FLD_TABIVA_R0 105
#define FLD_TABIVA_I0 106
#define FLD_TABIVA_S7 107
#define FLD_TABIVA_S8 108
#define FLD_TABIVA_I2 109
#define CHK_TABIVA_B0 110
#define FLD_TABIVA_S6 111
#define FLD_TABIVA_B1 112
#define FLD_TABIVA_I3 113
#define FLD_TABIVA_I4 114
#define LST_TABIVA_S3 115
#define LST_TABIVA_S4 116
#define CHK_TABIVA_B1 117
#define DLG_DEL 120
#define FLD_SOSPESO_B2 118

50
ba/batbiva.rpt Executable file
View File

@ -0,0 +1,50 @@
[Headers]
132
Tabella dei codici IVA
1|%s|Codice
1|@14g%s|Descrizione
1|@60g%s|Tipo codice
1|@84g%s|%
1|@88g%s|Cod.
1|@92g%s|Clienti
1|@109g%s|101
1|@113g%s|102
1|@117g%s|Sospeso
2|@14g%s|Vendite IVA11
2|@28g%s|Acquisti IVA11
2|@44g%s|Gestione plafond
2|@62g%s|Regime agricolo
2|@79g%s|Ag. viaggio/turismo
2|@100g%s|Codice per calcolo rimborso infrannuale
[Rows]
1|CODTAB|@2g@10,cs
1|S0|@14g@50,ls
1|S1|@60g@20t
1|R0|@84g@2n
1|S6|@88g@2s
1|S7|@92g@15t
1|B0|@110g@f
1|B1|@114g@f
1|B2|@119g@f
2|I3|@14g@2n
2|I4|@28g@2n
2|S3|@44g@10s
2|S4|@62g@10s
2|S5|@79g@10s
2|S9|@100g@10s
[Footers]
[Translations]
4|S1| |Regime IVA normale
4|S1|VE|Ricavi da ventilare
4|S1|ES|Operazioni esenti
4|S1|NI|Non imponibili
4|S1|NS|Non soggetti
4|S7|1|Imponibili
4|S7|2|Non imponibili
4|S7| |Non in allegato

315
ba/batbiva.uml Executable file
View File

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

24
ba/batbivd.h Executable file
View File

@ -0,0 +1,24 @@
// campi maschera batb%ivd.msk
#define F_SEZ 101
#define F_LETT 102
#define F_CLASSE 103
#define F_NUM 104
#define F_DESCR 105
#define F_DESCR_LETT 106
#define F_DESCR_CLAS 107

15
ba/batbivd.rpt Executable file
View File

@ -0,0 +1,15 @@
[Headers]
80
Tabella dei codici IV direttiva
1|@2g%s|Sezione
1|@11g%s|Lettera
1|@20g%s|Classe
1|@30g%s|Numero
1|@38g%s|Descrizione IV direttiva CEE
[Rows]
1|CODTAB[1,1]|@2g@7,ls
1|CODTAB[2,2]|@11g@7,ls
1|CODTAB[3,6]|@20g@m
1|CODTAB[7,]|@30g@2s
1|S0|@38g@50,ls

123
ba/batbivd.uml Executable file
View File

@ -0,0 +1,123 @@
#include "ba3100.h"
#include "batbivd.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Voci di bilancio IV direttiva CEE" -1 -1 78 15
LIST F_SEZ 1 18
BEGIN
PROMPT 1 1 "Sezione "
FIELD %IVD->CODTAB[1,1]
ITEM "1|Attivita'"
ITEM "2|Passivita'"
ITEM "9|Conto economico"
KEY 1
HELP "Sezione secondo la IV dir. CEE"
END
STRING F_LETT 1
BEGIN
PROMPT 1 3 "Lettera "
FIELD %IVD->CODTAB[2,2]
FLAGS "U"
KEY 1
USE %IVD SELECT CODTAB?="??"
INPUT CODTAB[1,1] F_SEZ
INPUT CODTAB[2,2] F_LETT
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Descrizione@70" S0
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
STRING F_DESCR_LETT 70 50
BEGIN
PROMPT 22 3 ""
FLAGS "D"
END
NUMBER F_CLASSE 8 4
BEGIN
PROMPT 1 5 "Classe "
FIELD %IVD->CODTAB[3,6]
FLAGS "MZ"
KEY 1
USE %IVD SELECT CODTAB[7,8]==""
COPY INPUT F_LETT
INPUT CODTAB[3,6] F_CLASSE
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Descrizione@70" 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
STRING F_DESCR_CLAS 70 50
BEGIN
PROMPT 22 5 ""
FLAGS "D"
END
NUMBER F_NUM 2
BEGIN
PROMPT 1 7 "Numero "
FIELD %IVD->CODTAB[7,8]
FLAGS "RZ"
KEY 1
USE %IVD
COPY INPUT F_CLASSE
INPUT CODTAB[7,8] F_NUM
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@70" 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_DESCR S0
HELP "Numero (arabo) secondo la IV dir. CEE"
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
END
TEXT DLG_NULL
BEGIN
PROMPT 1 9 "Descrizione"
END
STRING F_DESCR 70
BEGIN
PROMPT 2 11 ""
FIELD %IVD->S0
KEY 2
USE %IVD KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@70" S0
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
COPY OUTPUT F_NUM
CHECKTYPE REQUIRED
WARNING "Manca la descrizione"
END
ENDPAGE
ENDMASK

6
ba/batblbu.h Executable file
View File

@ -0,0 +1,6 @@
// Campi maschera tabella batb%lbu.msk
#define F_CODLIB 101
#define F_ANNO 102
#define F_SHEET_LBU 104

134
ba/batblbu.uml Executable file
View File

@ -0,0 +1,134 @@
#include <batblbu.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella libro unico" -1 -1 78 18
NUMBER F_CODLIB 1
BEGIN
PROMPT 4 1 "Codice libro unico "
FIELD %LBU->CODTAB
KEY 1
USE %LBU
END
NUMBER F_ANNO 4
BEGIN
PROMPT 53 1 "Anno esercizio "
FIELD %LBU->I0
END
SPREADSHEET F_SHEET_LBU
BEGIN
PROMPT 2 5 ""
ITEM "Numero iniziale reg.unico "
ITEM "Numero finale reg.unico"
ITEM "Codice ditta"
ITEM "Ragione sociale@50"
ITEM "Codice registro"
ITEM "Descrizione@50"
ITEM "Numero iniziale reg.utente"
ITEM "Numero finale reg.utente"
END
ENDPAGE
PAGE "" -1 -1 78 18
BOOLEAN F_FLG_STAMPA_BOLLATO
BEGIN
PROMPT 4 1 "Flag di stampa su bollato "
FIELD %LBU->B0
END
ENDMASK
PAGE "" -1 -1 71 15
STRING 101 5
BEGIN
PROMPT 1 1 "Numero iniziale pagina registro unico "
FIELD %LBU->I1
END
NUMBER 102 5
BEGIN
PROMPT 1 2 "Numero finale pagina registro unico "
FIELD %LBU->I2
END
NUMBER 103 5
BEGIN
PROMPT 1 4 "Codice ditta "
FIELD %LBU->I3
USE LF_NDITTE KEY 1
INPUT CODDITTA 103
DISPLAY "Codice ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT 103 CODDITTA
OUTPUT 104 RAGSOC
END
STRING 104 50
BEGIN
PROMPT 1 5 "Ragione sociale "
FIELD %LBU->S0
END
NUMBER 105 3
BEGIN
PROMPT 1 7 "Codice registro "
FIELD %LBU->I4
USE REG
INPUT CODTAB[5,7] 105
DISPLAY "Codice registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT 105 CODTAB[5,7]
OUTPUT 106 S0
END
STRING 106 50
BEGIN
PROMPT 1 8 "Descrizione "
FIELD %LBU->S1
COPY USE 105
INPUT S0 106
COPY DISPLAY 105
COPY OUTPUT 105
END
NUMBER 107 5
BEGIN
PROMPT 1 10 "Numero iniziale pagina registro utente "
FIELD %LBU->I5
END
NUMBER 108 5
BEGIN
PROMPT 1 11 "Numero finale pagina registro utente "
FIELD %LBU->I6
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
END
ENDPAGE
ENDMASK

21
ba/batbleg.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%leg.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbleg.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Legali per contenzioso
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls

54
ba/batbleg.uml Executable file
View File

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

21
ba/batblis.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%lis.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batblis.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Listini
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@5,ls
1|S0|@14g@50,ls

54
ba/batblis.uml Executable file
View File

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

21
ba/batblng.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%dpn.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batblng.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella lingue
1|@3g%s|Codice
1|@14g%s|Denominazione
[Rows]
1|CODTAB|@3g@1,ls
1|S0|@14g@50,ls

54
ba/batblng.uml Executable file
View File

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

21
ba/batbmsp.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%msp.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbmsp.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Modalita' di spedizione
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls

54
ba/batbmsp.uml Executable file
View File

@ -0,0 +1,54 @@
#include <batbmsp.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Modalita' di Spedizione" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %MSP
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @30" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
FIELD LF_TABCOM->S0
KEY 2
USE %MSP KEY 2
INPUT CODTAB F_CODICE
INPUT S0 F_DESCR
DISPLAY "Descrizione @30" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

21
ba/batbndo.h Executable file
View File

@ -0,0 +1,21 @@
// campi maschera batb%ndo.msk
#define F_CODICE 101
#define F_DESCR 102

10
ba/batbndo.rpt Executable file
View File

@ -0,0 +1,10 @@
[Headers]
80
Tabella Note Documento
1|@3g%s|Codice
1|@14g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls

54
ba/batbndo.uml Executable file
View File

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

23
ba/batbnot.h Executable file
View File

@ -0,0 +1,23 @@
// campi maschera batb%not.msk
#define F_CODICE 101
#define F_DEST 102
#define F_BLOCCA 103
#define F_DOCUM 104

14
ba/batbnot.rpt Executable file
View File

@ -0,0 +1,14 @@
[Headers]
80
Tabella Note Cliente
1|@3g%s|Codice
1|@14g%s|Destinazione
1|@52g%s|Blocca Immissione
1|@72g%s|Documento
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@14g@30,ls
1|B0|@52g@2,ls
1|B1|@72g@2,ls

61
ba/batbnot.uml Executable file
View File

@ -0,0 +1,61 @@
#include <batbnot.h>
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NOT
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0
DISPLAY "Blocca immobili" B0
DISPLAY "Documento" B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM B1
CHECKTYPE REQUIRED
END
STRING F_DEST 30
BEGIN
PROMPT 4 4 "Destinazione "
FIELD LF_TABCOM->S0
END
BOOLEAN F_BLOCCA
BEGIN
PROMPT 4 6 "Blocca immissione "
FIELD LF_TABCOM->B0
END
BOOLEAN F_DOCUM
BEGIN
PROMPT 4 8 "Documento "
FIELD LF_TABCOM->B1
END
ENDPAGE
ENDMASK

4
ba/batbois.h Executable file
View File

@ -0,0 +1,4 @@
#define FLD_TABOIS_CODTAB 100
#define FLD_TABOIS_S0 101
#define FLD_TABOIS_ADD 102
#define DLG_DEL 104

11
ba/batbois.rpt Executable file
View File

@ -0,0 +1,11 @@
[Headers]
80
Tabella vecchi codici attivita'
1|@2g%s|Codice
1|@10g%s|Subcodice
1|@22g%s|Descrizione
[Rows]
1|CODTAB[1,4]|@2g@6,ls
1|CODTAB[5,]|@10g@9,ls
1|S0|@22g@40,ls

56
ba/batbois.uml Executable file
View File

@ -0,0 +1,56 @@
#include "batbois.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Vecchi codici attivita'" -1 -1 78 7
STRING FLD_TABOIS_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4]
HELP "Inserire il codice del vecchio codice attivit…"
USE %OIS
CHECKTYPE REQUIRED
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 1
FLAGS "RZ"
END
STRING FLD_TABOIS_ADD 1
BEGIN
PROMPT 22 1 "Subcodice "
FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB
CHECKTYPE REQUIRED
KEY 1
FLAGS "U"
END
STRING FLD_TABOIS_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD %OIS->S0
HELP "Inserire la descrizione del vecchio codice attivit… "
USE %OIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0
KEY 2
END
ENDPAGE
ENDMASK

Some files were not shown because too many files have changed in this diff Show More