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

Aggiunte diverse immagini al menu principale

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@269 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-20 12:20:31 +00:00
parent d63359fe87
commit a31f2fb728
9 changed files with 437 additions and 394 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
ba/ba0.cpp
View File

@ -1,13 +1,12 @@
#include <applicat.h> #include <applicat.h>
#include <execp.h> #include <execp.h>
#include <mask.h> #include <mask.h>
#include <scanner.h>
#include <strings.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
extern "C" { extern "C"
{
#include <cpb.h> #include <cpb.h>
} }
#endif #endif
@ -20,32 +19,52 @@ extern "C" {
class TPicture_mask : public TMask class TPicture_mask : public TMask
{ {
PICTURE _picture; static short _id;
static PICTURE _picture;
protected:
virtual void handler(WINDOW win, EVENT* ep); virtual void handler(WINDOW win, EVENT* ep);
void set_picture(short id);
public: public:
TPicture_mask(const char* name, int dx, int dy, short picture_id); TPicture_mask(const char* name, int dx, int dy, short picture_id);
~TPicture_mask(); void reset();
}; };
TPicture_mask::TPicture_mask(const char* name, int dx, int dy, short TPicture_mask::_id = 0;
short picture_id) PICTURE TPicture_mask::_picture = 0L;
: TMask(name, 1, dx, dy), _picture(0L)
void TPicture_mask::set_picture(short id)
{ {
if (id != _id)
{
_id = id;
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
_picture = cpb_picture_load(picture_id); if (_picture) picture_free(_picture);
_picture = cpb_picture_load(id);
#endif #endif
}
} }
TPicture_mask::~TPicture_mask() void TPicture_mask::reset()
{ {
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
if (_picture) if (_picture)
{
picture_free(_picture); picture_free(_picture);
_picture = 0L;
_id = 0;
}
#endif #endif
} }
TPicture_mask::TPicture_mask(const char* name, int dx, int dy, short pic)
: TMask(name, 1, dx, dy)
{
set_picture(pic);
}
void TPicture_mask::handler(WINDOW win, EVENT* ep) void TPicture_mask::handler(WINDOW win, EVENT* ep)
{ {
@ -55,7 +74,7 @@ void TPicture_mask::handler(WINDOW win, EVENT* ep)
{ {
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
if (_picture) if (_picture)
cpb_win_picture_draw_at(win, _picture, 1, 1); cpb_win_picture_draw_at(win, _picture, 1, 64);
else else
#endif #endif
{ {
@ -142,40 +161,51 @@ int TMenu_application::do_level()
{ {
const int first = _first[_level]; const int first = _first[_level];
const int last = _first[_level+1]; const int last = _first[_level+1];
const char* head = ((TToken_string&)_menu[first]).get(1); TToken_string& row = (TToken_string&)_menu[first];
const TString80 head(row.get(1));
const int width = 72; const int width = 72;
const int heigth = 18; const int heigth = 18;
const int bwidth = 20; const int bwidth = 20;
const int x = width-bwidth-12; const int x = width-bwidth-12;
const short pic = BA0_PICTURE+(short)row.get_int();
TPicture_mask menu(head, width, heigth, BA0_PICTURE); TPicture_mask menu(head, width, heigth, pic);
int y = 1; int y = 1;
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
TString t(format("#%d", BMP_STOPREC)); TString16 t(format("#%d", BMP_STOPREC));
#else #else
TString t; TString16 t;
#endif #endif
TString item(32);
for (int i = first+1; i < last; i++, y++) for (int i = first+1; i < last; i++, y++)
{ {
TToken_string& row = (TToken_string&)_menu[i]; TToken_string& row = (TToken_string&)_menu[i];
item = row.get(1); TString80 item(row.get(1));
if (isdigit(*row.get())) item << "...";
menu.add_static(-1, 0, item, x+4, y);
menu.add_button(100+y, 0, t, x, y, 1, 1); menu.add_button(100+y, 0, t, x, y, 1, 1);
menu.set_handler(100+y, menu_item_handler); menu.set_handler(100+y, menu_item_handler);
menu.add_static(-1, 0, item, x+4, y);
} }
t = first ? "Menu precedente" : "Fine"; t = first ? "Menu precedente" : "Fine";
const short id = first ? DLG_CANCEL : DLG_QUIT; menu.add_button(first ? DLG_CANCEL : DLG_QUIT, 0, t, -22, -2, bwidth, 2);
menu.add_button(id, 0, t, x, heigth-2, bwidth, 2); if (first)
menu.add_button(DLG_QUIT, 0, "Fine", -12, -2, bwidth, 2);
menu.run(); const int k = menu.run();
int k = menu.last_key(); int m = 0;
int m =(k == K_QUIT || k == K_ESC) ? -1 : first+last_button-100; switch (k)
{
case K_ESC:
m = -1; break;
case K_QUIT:
menu.reset();
m = -2; break;
default:
m = first+last_button-100; break;
}
return m; return m;
} }
@ -196,18 +226,19 @@ bool TMenu_application::menu(MENU_TAG)
_level = 0; _level = 0;
while (i >= 0) while (i >= 0)
{ {
int m = do_level(); const int m = do_level();
if (m >= 0) if (m >= 0)
{ {
const char* option = ((TToken_string&)_menu[m]).get(2); TToken_string& row = (TToken_string&)_menu[m];
const char* option = row.get(2);
if (option && *option) if (option && *option)
{ {
int l = atoi(option); const int l = atoi(option);
if (l > 0) if (l > 0)
{ {
const char* flags = ((TToken_string&)_menu[m]).get(3); const char* flags = row.get();
if (flags && strchr(flags, 'F') != NULL)
if (flags && strchr(flags, 'F') != NULL) set_firm(); set_firm();
refarray[i++] = _level; refarray[i++] = _level;
if (l < _max) _level = l; if (l < _max) _level = l;
} }
@ -218,7 +249,11 @@ bool TMenu_application::menu(MENU_TAG)
} }
} }
} }
else _level = (--i >= 0) ? refarray[i] : 0; else
{
if (m < -1) break;
_level = (--i >= 0) ? refarray[i] : 0;
}
} }
return FALSE; return FALSE;
@ -228,6 +263,6 @@ int main(int argc, char** argv)
{ {
const char* menu = (argc < 2) ? "prassi.mnu" : argv[1]; const char* menu = (argc < 2) ? "prassi.mnu" : argv[1];
TMenu_application ma(menu); TMenu_application ma(menu);
ma.run(argc, argv, "Menu principale"); ma.run(argc, argv, "Menu Principale");
return TRUE; return TRUE;
} }

29
ba/ba0.url
View File

@ -1,14 +1,15 @@
#include <default.url> #include <default.url>
#include "ba0.h"
MENU TASK_MENUBAR
MENU TASK_MENUBAR SUBMENU MENU_FILE "~File"
SUBMENU MENU_FILE "~File"
#if XVT_OS == XVT_OS_WIN
#transparent $$$
#if XVT_OS == XVT_OS_WIN 883 bitmap DISCARDABLE f:\p.due\bmp\ba00.bmp
#transparent $$$ 884 bitmap DISCARDABLE f:\p.due\bmp\ba01.bmp
BA0_PICTURE bitmap DISCARDABLE f:\p.due\bmp\ba0.bmp 885 bitmap DISCARDABLE f:\p.due\bmp\ba02.bmp
$$$ 886 bitmap DISCARDABLE f:\p.due\bmp\ba03.bmp
#endif $$$
#endif

2
ba/ba3300a.uml
View File

@ -1,6 +1,6 @@
#include "ba3300.h" #include "ba3300.h"
PAGE "" -1 -1 74 20 PAGE "Stampa fogli libro bollato" -1 -1 74 20
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN

594
ba/ba3500a.uml
View File

@ -1,297 +1,297 @@
#include "ba3500.h" #include "ba3500.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella libro unico" -1 -1 78 18 PAGE "Tabella libro unico" -1 -1 78 18
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 1 "Anno esercizio " PROMPT 4 1 "Anno esercizio "
FIELD %LBU->CODTAB[1,4] FIELD %LBU->CODTAB[1,4]
KEY 1 KEY 1
USE %LBU KEY 1 ALIAS 50 USE %LBU KEY 1 ALIAS 50
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice libro unico" CODTAB[5,7] DISPLAY "Codice libro unico" CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLIB CODTAB[5,7] OUTPUT F_CODLIB CODTAB[5,7]
END END
STRING F_CODLIB 3 STRING F_CODLIB 3
BEGIN BEGIN
PROMPT 4 2 "Codice libro unico " PROMPT 4 2 "Codice libro unico "
FIELD %LBU->CODTAB[5,7] FIELD %LBU->CODTAB[5,7]
KEY 1 KEY 1
COPY USE F_ANNO COPY USE F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB[5,7] F_CODLIB INPUT CODTAB[5,7] F_CODLIB
COPY DISPLAY F_ANNO COPY DISPLAY F_ANNO
COPY OUTPUT F_ANNO COPY OUTPUT F_ANNO
END END
LIST F_ULT_MESE_STAMP 2 10 LIST F_ULT_MESE_STAMP 2 10
BEGIN BEGIN
PROMPT 45 1 "Ultimo mese stampa " PROMPT 45 1 "Ultimo mese stampa "
FIELD %LBU->I0 FIELD %LBU->I0
// NUM_EXPR {(#THIS_FIELD >= 0) && (#THIS_FIELD <= 12)} // NUM_EXPR {(#THIS_FIELD >= 0) && (#THIS_FIELD <= 12)}
ITEM " |Nessuno" ITEM " |Nessuno"
FLAGS "M" FLAGS "M"
END END
NUMBER F_ULT_PAG 5 NUMBER F_ULT_PAG 5
BEGIN BEGIN
PROMPT 45 2 "Ultima pagina " PROMPT 45 2 "Ultima pagina "
FIELD %LBU->I1 FIELD %LBU->I1
END END
STRING F_DESCRLBU 50 STRING F_DESCRLBU 50
BEGIN BEGIN
PROMPT 4 3 "Descrizione " PROMPT 4 3 "Descrizione "
FIELD %LBU->S0 FIELD %LBU->S0
END END
SPREADSHEET F_SHEET_LBU SPREADSHEET F_SHEET_LBU
BEGIN BEGIN
PROMPT 2 5 "" PROMPT 0 5 ""
ITEM "Anno reg." ITEM "Anno reg."
ITEM "Mese reg." ITEM "Mese reg."
ITEM "Num.ini.reg.un." ITEM "Num.ini.reg.un."
ITEM "Num.fin.reg.un." ITEM "Num.fin.reg.un."
ITEM "Cod.ditta" ITEM "Cod.ditta"
ITEM "Cod.reg." ITEM "Cod.reg."
ITEM "Num.ini.reg.ut." ITEM "Num.ini.reg.ut."
ITEM "Num.fin.reg.ut." ITEM "Num.fin.reg.ut."
ITEM "Cod.Vid." ITEM "Cod.Vid."
ITEM "Stamp.su.boll." ITEM "Stamp.su.boll."
ITEM "Pag.ann." ITEM "Pag.ann."
END END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 14 PAGE "" -1 -1 78 14
LIST F_TIPOA 10 LIST F_TIPOA 10
BEGIN BEGIN
PROMPT 3 1 "Tipo persona " PROMPT 3 1 "Tipo persona "
FIELD %LBU->S2 FIELD %LBU->S2
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
END END
STRING F_TIPOANAGR 50 STRING F_TIPOANAGR 50
BEGIN BEGIN
PROMPT 3 2 "Tipo anagrafico " PROMPT 3 2 "Tipo anagrafico "
FIELD %LBU->S1 FIELD %LBU->S1
USE LF_ANAG KEY 2 USE LF_ANAG KEY 2
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA
INPUT RAGSOC F_TIPOANAGR INPUT RAGSOC F_TIPOANAGR
DISPLAY "Tipo" TIPOA DISPLAY "Tipo" TIPOA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_TIPOANAGR RAGSOC OUTPUT F_TIPOANAGR RAGSOC
END END
NUMBER F_CODTABLIB 2 NUMBER F_CODTABLIB 2
BEGIN BEGIN
PROMPT 3 3 "Codice libro " PROMPT 3 3 "Codice libro "
FIELD %LBU->I3 FIELD %LBU->I3
FLAGS "U" FLAGS "U"
USE %ITL USE %ITL
INPUT CODTAB F_CODTABLIB INPUT CODTAB F_CODTABLIB
DISPLAY "Codice libro" CODTAB DISPLAY "Codice libro" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODTABLIB CODTAB OUTPUT F_CODTABLIB CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
HELP "Inserire il codice del libro" HELP "Inserire il codice del libro"
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 3 4 "Descrizione " PROMPT 3 4 "Descrizione "
FLAGS "D" FLAGS "D"
END END
STRING F_CONSPRESSO 40 STRING F_CONSPRESSO 40
BEGIN BEGIN
PROMPT 3 5 "Conservato presso " PROMPT 3 5 "Conservato presso "
FIELD %LBU->S3 FIELD %LBU->S3
END END
STRING F_CODVID 3 STRING F_CODVID 3
BEGIN BEGIN
PROMPT 3 6 "Codice vidimazione " PROMPT 3 6 "Codice vidimazione "
FIELD %LBU->S4 FIELD %LBU->S4
END END
DATE F_DATAVID DATE F_DATAVID
BEGIN BEGIN
PROMPT 3 7 "Data vidimazione " PROMPT 3 7 "Data vidimazione "
FIELD %LBU->D0 FIELD %LBU->D0
END END
DATE F_DATASCAD DATE F_DATASCAD
BEGIN BEGIN
PROMPT 45 7 "Data scadenza " PROMPT 45 7 "Data scadenza "
FIELD %LBU->D1 FIELD %LBU->D1
END END
NUMBER F_NUMPAG 5 NUMBER F_NUMPAG 5
BEGIN BEGIN
PROMPT 3 9 "Num.pag. libro unico " PROMPT 3 9 "Num.pag. libro unico "
FIELD %LBU->I2 FIELD %LBU->I2
END END
BOOLEAN F_STAMPAINT BOOLEAN F_STAMPAINT
BEGIN BEGIN
PROMPT 3 11 "Stampa intestazione studio su libro unico" PROMPT 3 11 "Stampa intestazione studio su libro unico"
FIELD %LBU->B0 FIELD %LBU->B0
END END
BOOLEAN F_STAMPAINDCOMP BOOLEAN F_STAMPAINDCOMP
BEGIN BEGIN
PROMPT 3 12 "Stampa l' indirizzo completo della ditta" PROMPT 3 12 "Stampa l' indirizzo completo della ditta"
FIELD %LBU->B1 FIELD %LBU->B1
END END
RADIOBUTTON F_MODULO 27 RADIOBUTTON F_MODULO 27
BEGIN BEGIN
PROMPT 3 14 "Formato modulo di stampa " PROMPT 3 14 "Formato modulo di stampa "
ITEM "66|11 pollici (27,94 cm)" ITEM "66|11 pollici (27,94 cm)"
ITEM "72|12 pollici (30,48 cm)" ITEM "72|12 pollici (30,48 cm)"
END END
RADIOBUTTON F_STAMPA 27 RADIOBUTTON F_STAMPA 27
BEGIN BEGIN
PROMPT 46 14 "Numero caratteri " PROMPT 46 14 "Numero caratteri "
ITEM "1|132 crt." ITEM "1|132 crt."
ITEM "2|198 crt." ITEM "2|198 crt."
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 71 20 PAGE "" -1 -1 71 20
NUMBER 101 4 NUMBER 101 4
BEGIN BEGIN
PROMPT 1 1 "Anno registrazione " PROMPT 1 1 "Anno registrazione "
FIELD %INL->I0 FIELD %INL->I0
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
END END
LIST 102 2 10 LIST 102 2 10
BEGIN BEGIN
PROMPT 38 1 "Mese registrazione " PROMPT 38 1 "Mese registrazione "
FIELD %INL->I1 FIELD %INL->I1
ITEMS " |Nessuno" ITEMS " |Nessuno"
FLAGS "M" FLAGS "M"
END END
STRING 103 5 5 STRING 103 5 5
BEGIN BEGIN
PROMPT 1 3 "Numero iniziale pagina registro unico " PROMPT 1 3 "Numero iniziale pagina registro unico "
FIELD %INL->I2 FIELD %INL->I2
FLAGS "R" FLAGS "R"
END END
NUMBER 104 5 NUMBER 104 5
BEGIN BEGIN
PROMPT 1 4 "Numero finale pagina registro unico " PROMPT 1 4 "Numero finale pagina registro unico "
FIELD %INL->I3 FIELD %INL->I3
FLAGS "R" FLAGS "R"
END END
NUMBER 105 5 NUMBER 105 5
BEGIN BEGIN
PROMPT 1 6 "Codice ditta " PROMPT 1 6 "Codice ditta "
FIELD %INL->I4 FIELD %INL->I4
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA 105 INPUT CODDITTA 105
DISPLAY "Codice ditta" CODDITTA DISPLAY "Codice ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT 105 CODDITTA OUTPUT 105 CODDITTA
OUTPUT 112 RAGSOC OUTPUT 112 RAGSOC
END END
STRING 112 50 50 STRING 112 50 50
BEGIN BEGIN
PROMPT 1 7 "Ragione sociale " PROMPT 1 7 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER 106 3 NUMBER 106 3
BEGIN BEGIN
PROMPT 1 8 "Codice registro " PROMPT 1 8 "Codice registro "
FIELD %INL->S0 FIELD %INL->S0
USE REG USE REG
INPUT CODTAB[5,7] 106 INPUT CODTAB[5,7] 106
DISPLAY "Codice registro" CODTAB[5,7] DISPLAY "Codice registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT 106 CODTAB[5,7] OUTPUT 106 CODTAB[5,7]
OUTPUT 113 S0 OUTPUT 113 S0
END END
STRING 113 50 50 STRING 113 50 50
BEGIN BEGIN
PROMPT 1 9 "Descrizione " PROMPT 1 9 "Descrizione "
FLAGS "D" FLAGS "D"
END END
NUMBER 107 5 NUMBER 107 5
BEGIN BEGIN
PROMPT 1 11 "Numero iniziale pagina registro utente " PROMPT 1 11 "Numero iniziale pagina registro utente "
FIELD %INL->I5 FIELD %INL->I5
FLAGS "R" FLAGS "R"
END END
NUMBER 108 5 NUMBER 108 5
BEGIN BEGIN
PROMPT 1 12 "Numero finale pagina registro utente " PROMPT 1 12 "Numero finale pagina registro utente "
FIELD %INL->I6 FIELD %INL->I6
FLAGS "R" FLAGS "R"
END END
STRING 109 3 3 STRING 109 3 3
BEGIN BEGIN
PROMPT 1 14 "Codice vidimazione " PROMPT 1 14 "Codice vidimazione "
FIELD %INL->S1 FIELD %INL->S1
END END
BOOLEAN 110 BOOLEAN 110
BEGIN BEGIN
PROMPT 1 16 "Stampato su bollato " PROMPT 1 16 "Stampato su bollato "
FIELD %INL->B0 FIELD %INL->B0
END END
BOOLEAN 111 BOOLEAN 111
BEGIN BEGIN
PROMPT 36 16 "Pagine libro unico annullate" PROMPT 36 16 "Pagine libro unico annullate"
FIELD %INL->B1 FIELD %INL->B1
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "Azzera" PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

15
ba/ba3600a.uml
View File

@ -1,6 +1,6 @@
#include "ba3600.h" #include "ba3600.h"
PAGE "" -1 -1 78 20 PAGE "Stampa indici libro unico" -1 -1 78 20
RADIOBUTTON F_TIPO_STAMPA 25 RADIOBUTTON F_TIPO_STAMPA 25
BEGIN BEGIN
@ -29,12 +29,12 @@ END
TEXT F_TITOLO_PROVA TEXT F_TITOLO_PROVA
BEGIN BEGIN
PROMPT 33 7 "STAMPA DI PROVA" PROMPT -11 7 "STAMPA DI PROVA"
END END
TEXT F_TITOLO_BOLLATO TEXT F_TITOLO_BOLLATO
BEGIN BEGIN
PROMPT 25 7 "STAMPA SU LIBRI BOLLATI DELLO STUDIO" PROMPT -11 7 "STAMPA SU LIBRI BOLLATI DELLO STUDIO"
END END
DATE F_DATA_STAMPA DATE F_DATA_STAMPA
@ -143,14 +143,15 @@ BEGIN
PROMPT 4 15 "Ultim.num.pagina stampata libro unico " PROMPT 4 15 "Ultim.num.pagina stampata libro unico "
END END
BUTTON DLG_OK 9 0 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT 51 18 "" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_CANCEL 9 0 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT 63 18 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

44
ba/ba4200c.uml
View File

@ -23,8 +23,8 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
BEGIN BEGIN
FIELD LF_ANAG->TIPOA FIELD LF_ANAG->TIPOA
ITEM "G|Giuridica" ITEM "G|Giuridica"
FLAGS "H" FLAGS "H"
KEY 1 2 3 KEY 1 2 3
END END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
@ -38,16 +38,16 @@ BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD LF_ANAG->CODANAGR FIELD LF_ANAG->CODANAGR
FLAGS "RG" FLAGS "RG"
USE LF_ANAG USE LF_ANAG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT TIPOA "G" INPUT TIPOA "G"
INPUT CODANAGR FLD_CODANAGR INPUT CODANAGR FLD_CODANAGR
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice Fiscale@16" COFI DISPLAY "Codice Fiscale@16" COFI
OUTPUT FLD_CODANAGR CODANAGR OUTPUT FLD_CODANAGR CODANAGR
OUTPUT FLD_AG1_RAGSOC RAGSOC OUTPUT FLD_AG1_RAGSOC RAGSOC
OUTPUT FLD_AG1_COFI COFI OUTPUT FLD_AG1_COFI COFI
MESSAGE COPY,1@ MESSAGE COPY,1@
KEY 1 KEY 1
END END
@ -60,14 +60,14 @@ BEGIN
MESSAGE COPY,2@ MESSAGE COPY,2@
FLAGS "G" FLAGS "G"
WARNING "Inserire la ragione sociale" WARNING "Inserire la ragione sociale"
USE LF_ANAG KEY 2 USE LF_ANAG KEY 2
INPUT TIPOA "G" INPUT TIPOA "G"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT RAGSOC FLD_AG1_RAGSOC INPUT RAGSOC FLD_AG1_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Codice Fiscale " COFI DISPLAY "Codice Fiscale " COFI
COPY OUTPUT FLD_CODANAGR COPY OUTPUT FLD_CODANAGR
KEY 2 KEY 2
END END
@ -410,7 +410,7 @@ BEGIN
FIELD LF_ANAG->CIVCORR FIELD LF_ANAG->CIVCORR
HELP "Numero civico a cui mandare la corrispondenza della ditta" HELP "Numero civico a cui mandare la corrispondenza della ditta"
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
END END
NUMBER FLD_AG2_STATOCORR 3 NUMBER FLD_AG2_STATOCORR 3
BEGIN BEGIN
@ -1221,4 +1221,4 @@ BEGIN
FIELD CODCONTR[14,15] FIELD CODCONTR[14,15]
END END
ENDMASK ENDMASK

4
ba/ba4300a.uml
View File

@ -155,7 +155,7 @@ BEGIN
USE %AIS USE %AIS
INPUT CODTAB FLD_GD1_CODATTPREV INPUT CODTAB FLD_GD1_CODATTPREV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Attivita' " S0 DISPLAY "Attivita'@50" S0
OUTPUT FLD_GD1_CODATTPREV CODTAB OUTPUT FLD_GD1_CODATTPREV CODTAB
OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0 OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0
HELP "Inserire il codice dell'attivita' prevalente della ditta" HELP "Inserire il codice dell'attivita' prevalente della ditta"
@ -165,7 +165,7 @@ END
STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50 STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
BEGIN BEGIN
PROMPT 1 10 "Nome " PROMPT 1 10 "Descrizione "
FLAGS "D" FLAGS "D"
HELP "" HELP ""
END END

21
ba/batbreg.uml
View File

@ -12,13 +12,17 @@ PAGE "Registri" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
FLAGS "FRH" FLAGS "FRH"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_ATTIVITA CODATTPREV
CHECKTYPE NORMAL
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 1 "Anno " PROMPT 4 1 "Anno "
FIELD CODTAB[1,4] FIELD CODTAB[1,4]
FLAGS "ZAP" FLAGS "AZ"
KEY 1 KEY 1
GROUP 1 GROUP 1
USE REG USE REG
@ -41,12 +45,7 @@ BEGIN
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
GROUP 1 GROUP 1
COPY USE F_ANNO COPY ALL F_ANNO
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione @50" S0
DISPLAY "Tipo" I0
COPY OUTPUT F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -126,9 +125,9 @@ BEGIN
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_ATTIVITA INPUT CODATT F_ATTIVITA
DISPLAY "Codice" CODATT DISPLAY "Codice" CODATT
DISPLAY "Descrizione@40" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_ATTIVITA CODATT OUTPUT F_ATTIVITA CODATT
HELP "Introdurre il codice dell' attivita'" HELP "Codice dell'attivita' della ditta"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Attivita' non prevista per questa ditta" WARNING "Attivita' non prevista per questa ditta"
END END
@ -193,9 +192,11 @@ BEGIN
INPUT CODTAB[1,4] F_ANNO SELECT INPUT CODTAB[1,4] F_ANNO SELECT
INPUT CODTAB[5,7] F_CODLBU INPUT CODTAB[5,7] F_CODLBU
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice libro unico" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
OUTPUT F_ANNO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLBU CODTAB[5,7] OUTPUT F_CODLBU CODTAB[5,7]
ADD RUN ba3 -4
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Libro unico assente" WARNING "Libro unico assente"
END END

23
ba/prassi.mnu
View File

@ -1,8 +1,8 @@
0|Menu Principale | 0|Menu Principale|
0|Anagrafiche|1 0|Anagrafiche|1
0|Contabilita'|4 0|Contabilita'|4
0|Manutenzione|ba1 0|Manutenzione|ba1
1|Gestione Anagrafiche | 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
1|Ditte|ba4 -2 1|Ditte|ba4 -2
@ -16,7 +16,7 @@
1|Stampa tabelle|3 1|Stampa tabelle|3
1|Stampa tabelle ministeriali|12 1|Stampa tabelle ministeriali|12
1|Stampa numerazione registri|ba3 -2 1|Stampa numerazione registri|ba3 -2
2|Tabell| 2|Tabelle|1
2|Codici IVA|ba3 -0 %iva 2|Codici IVA|ba3 -0 %iva
2|Codici Attivita'|ba3 -0 %ais 2|Codici Attivita'|ba3 -0 %ais
2|Cond. di pagamento|ba3 -0 %cpg 2|Cond. di pagamento|ba3 -0 %cpg
@ -28,7 +28,7 @@
2|Stati esteri|ba3 -0 %sta 2|Stati esteri|ba3 -0 %sta
2|Valute|ba3 -0 %val 2|Valute|ba3 -0 %val
2|Lingue|ba3 -0 %lng 2|Lingue|ba3 -0 %lng
3|Stampa tabelle| 3|Stampa tabelle|3
3|Codici IVA|ba3 -1 %iva 3|Codici IVA|ba3 -1 %iva
3|Codici Attivita'|ba3 -1 %ais 3|Codici Attivita'|ba3 -1 %ais
3|Cond. di pagamento|ba3 -1 %cpg 3|Cond. di pagamento|ba3 -1 %cpg
@ -40,7 +40,7 @@
3|Stati esteri|ba3 -1 %sta 3|Stati esteri|ba3 -1 %sta
3|Valute|ba3 -1 %val 3|Valute|ba3 -1 %val
3|Lingue|ba3 -1 %lng 3|Lingue|ba3 -1 %lng
4|Contabilita' | 4|Contabilita'|2
4|Persone fisiche|ba4 -1 F 4|Persone fisiche|ba4 -1 F
4|Persone giuridiche|ba4 -1 G 4|Persone giuridiche|ba4 -1 G
4|Ditte|ba4 -2 4|Ditte|ba4 -2
@ -49,6 +49,7 @@
4|Scelta contabilita'|13|F 4|Scelta contabilita'|13|F
4|IVA|10 4|IVA|10
4|Parametri di studio|cg5 -0 4|Parametri di studio|cg5 -0
4|Gestione Libro Unico|14
5|Tabelle studio| 5|Tabelle studio|
5|Tipi documento|ba3 -0 %tpd 5|Tipi documento|ba3 -0 %tpd
5|Cond. di pagamento|ba3 -0 %cpg 5|Cond. di pagamento|ba3 -0 %cpg
@ -80,14 +81,14 @@
7|Clienti/Fornitori|cg0 -1 7|Clienti/Fornitori|cg0 -1
7|Banche|ba3 -0 %ban 7|Banche|ba3 -0 %ban
7|Esercizi|ba3 -0 esc 7|Esercizi|ba3 -0 esc
8|Stampa tabelle ditta| 8|Stampa tabelle ditta|3
8|Registri|ba3 -1 reg 8|Registri|ba3 -1 reg
8|Piano dei conti|cg1 -0 8|Piano dei conti|cg1 -0
8|Causali|cg1 -6 8|Causali|cg1 -6
8|Clienti/Fornitori|cg1 -1 8|Clienti/Fornitori|cg1 -1
8|Banche|ba3 -1 %ban 8|Banche|ba3 -1 %ban
9|Prima nota | 9|Prima nota|2
9|Prima nota |cg2 -0 9|Prima nota|cg2 -0
9|Ricalcolo saldi|cg4 -0 9|Ricalcolo saldi|cg4 -0
9|IVA|10 9|IVA|10
9|Lista movimenti|cg3 -0 9|Lista movimenti|cg3 -0
@ -96,7 +97,7 @@
9|Bilancio|cg1 -4 9|Bilancio|cg1 -4
9|Bilancio IV direttiva CEE|cg1 -5 9|Bilancio IV direttiva CEE|cg1 -5
9|Giornale|cg3 -3 9|Giornale|cg3 -3
10|IVA| 10|IVA|2
10|Liquidazione|cg4 -2 10|Liquidazione|cg4 -2
10|Deleghe|ba3 -0 %del 10|Deleghe|ba3 -0 %del
10|Stampa deleghe|cg1 -3 10|Stampa deleghe|cg1 -3
@ -122,4 +123,8 @@
13|Tabelle ditta|7 13|Tabelle ditta|7
13|Stampa tabelle ditta|8 13|Stampa tabelle ditta|8
13|Prima nota|9 13|Prima nota|9
14|Gestione Libro Unico
14|Tabella Libro Unico|ba3 -4
14|Tabella Vidimazioni|ba3 -0 %vid
14|Stampa Indici Libro Unico|ba3 -5