Aggiunte diverse immagini al menu principale
git-svn-id: svn://10.65.10.50/trunk@269 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d63359fe87
commit
a31f2fb728
99
ba/ba0.cpp
99
ba/ba0.cpp
@ -1,13 +1,12 @@
|
||||
#include <applicat.h>
|
||||
#include <execp.h>
|
||||
#include <mask.h>
|
||||
#include <scanner.h>
|
||||
#include <strings.h>
|
||||
#include <utility.h>
|
||||
#include <urldefid.h>
|
||||
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
extern "C" {
|
||||
extern "C"
|
||||
{
|
||||
#include <cpb.h>
|
||||
}
|
||||
#endif
|
||||
@ -20,32 +19,52 @@ extern "C" {
|
||||
|
||||
class TPicture_mask : public TMask
|
||||
{
|
||||
PICTURE _picture;
|
||||
static short _id;
|
||||
static PICTURE _picture;
|
||||
|
||||
protected:
|
||||
virtual void handler(WINDOW win, EVENT* ep);
|
||||
void set_picture(short id);
|
||||
|
||||
public:
|
||||
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 picture_id)
|
||||
: TMask(name, 1, dx, dy), _picture(0L)
|
||||
short TPicture_mask::_id = 0;
|
||||
PICTURE TPicture_mask::_picture = 0L;
|
||||
|
||||
void TPicture_mask::set_picture(short id)
|
||||
{
|
||||
if (id != _id)
|
||||
{
|
||||
_id = id;
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
_picture = cpb_picture_load(picture_id);
|
||||
if (_picture) picture_free(_picture);
|
||||
_picture = cpb_picture_load(id);
|
||||
#endif
|
||||
}
|
||||
}
|
||||
|
||||
TPicture_mask::~TPicture_mask()
|
||||
void TPicture_mask::reset()
|
||||
{
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
if (_picture)
|
||||
{
|
||||
picture_free(_picture);
|
||||
_picture = 0L;
|
||||
_id = 0;
|
||||
}
|
||||
#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)
|
||||
{
|
||||
@ -55,7 +74,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, 1);
|
||||
cpb_win_picture_draw_at(win, _picture, 1, 64);
|
||||
else
|
||||
#endif
|
||||
{
|
||||
@ -142,40 +161,51 @@ int TMenu_application::do_level()
|
||||
{
|
||||
const int first = _first[_level];
|
||||
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 heigth = 18;
|
||||
const int bwidth = 20;
|
||||
const int x = width-bwidth-12;
|
||||
|
||||
TPicture_mask menu(head, width, heigth, BA0_PICTURE);
|
||||
const short pic = BA0_PICTURE+(short)row.get_int();
|
||||
TPicture_mask menu(head, width, heigth, pic);
|
||||
|
||||
int y = 1;
|
||||
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
TString t(format("#%d", BMP_STOPREC));
|
||||
TString16 t(format("#%d", BMP_STOPREC));
|
||||
#else
|
||||
TString t;
|
||||
TString16 t;
|
||||
#endif
|
||||
|
||||
TString item(32);
|
||||
for (int i = first+1; i < last; i++, y++)
|
||||
{
|
||||
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.set_handler(100+y, menu_item_handler);
|
||||
menu.add_static(-1, 0, item, x+4, y);
|
||||
}
|
||||
|
||||
t = first ? "Menu precedente" : "Fine";
|
||||
const short id = first ? DLG_CANCEL : DLG_QUIT;
|
||||
menu.add_button(id, 0, t, x, heigth-2, bwidth, 2);
|
||||
menu.add_button(first ? DLG_CANCEL : DLG_QUIT, 0, t, -22, -2, bwidth, 2);
|
||||
if (first)
|
||||
menu.add_button(DLG_QUIT, 0, "Fine", -12, -2, bwidth, 2);
|
||||
|
||||
menu.run();
|
||||
int k = menu.last_key();
|
||||
int m =(k == K_QUIT || k == K_ESC) ? -1 : first+last_button-100;
|
||||
const int k = menu.run();
|
||||
int m = 0;
|
||||
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;
|
||||
}
|
||||
|
||||
@ -196,18 +226,19 @@ bool TMenu_application::menu(MENU_TAG)
|
||||
_level = 0;
|
||||
while (i >= 0)
|
||||
{
|
||||
int m = do_level();
|
||||
const int m = do_level();
|
||||
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)
|
||||
{
|
||||
int l = atoi(option);
|
||||
const int l = atoi(option);
|
||||
if (l > 0)
|
||||
{
|
||||
const char* flags = ((TToken_string&)_menu[m]).get(3);
|
||||
|
||||
if (flags && strchr(flags, 'F') != NULL) set_firm();
|
||||
const char* flags = row.get();
|
||||
if (flags && strchr(flags, 'F') != NULL)
|
||||
set_firm();
|
||||
refarray[i++] = _level;
|
||||
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;
|
||||
@ -228,6 +263,6 @@ int main(int argc, char** argv)
|
||||
{
|
||||
const char* menu = (argc < 2) ? "prassi.mnu" : argv[1];
|
||||
TMenu_application ma(menu);
|
||||
ma.run(argc, argv, "Menu principale");
|
||||
ma.run(argc, argv, "Menu Principale");
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
29
ba/ba0.url
29
ba/ba0.url
@ -1,14 +1,15 @@
|
||||
#include <default.url>
|
||||
#include "ba0.h"
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
#transparent $$$
|
||||
BA0_PICTURE bitmap DISCARDABLE f:\p.due\bmp\ba0.bmp
|
||||
$$$
|
||||
#endif
|
||||
|
||||
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
#if XVT_OS == XVT_OS_WIN
|
||||
#transparent $$$
|
||||
883 bitmap DISCARDABLE f:\p.due\bmp\ba00.bmp
|
||||
884 bitmap DISCARDABLE f:\p.due\bmp\ba01.bmp
|
||||
885 bitmap DISCARDABLE f:\p.due\bmp\ba02.bmp
|
||||
886 bitmap DISCARDABLE f:\p.due\bmp\ba03.bmp
|
||||
$$$
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#include "ba3300.h"
|
||||
|
||||
PAGE "" -1 -1 74 20
|
||||
PAGE "Stampa fogli libro bollato" -1 -1 74 20
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
|
||||
594
ba/ba3500a.uml
594
ba/ba3500a.uml
@ -1,297 +1,297 @@
|
||||
#include "ba3500.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella libro unico" -1 -1 78 18
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno esercizio "
|
||||
FIELD %LBU->CODTAB[1,4]
|
||||
KEY 1
|
||||
USE %LBU KEY 1 ALIAS 50
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice libro unico "
|
||||
FIELD %LBU->CODTAB[5,7]
|
||||
KEY 1
|
||||
COPY USE F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
COPY DISPLAY F_ANNO
|
||||
COPY OUTPUT F_ANNO
|
||||
END
|
||||
|
||||
LIST F_ULT_MESE_STAMP 2 10
|
||||
BEGIN
|
||||
PROMPT 45 1 "Ultimo mese stampa "
|
||||
FIELD %LBU->I0
|
||||
// NUM_EXPR {(#THIS_FIELD >= 0) && (#THIS_FIELD <= 12)}
|
||||
ITEM " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
NUMBER F_ULT_PAG 5
|
||||
BEGIN
|
||||
PROMPT 45 2 "Ultima pagina "
|
||||
FIELD %LBU->I1
|
||||
END
|
||||
|
||||
STRING F_DESCRLBU 50
|
||||
BEGIN
|
||||
PROMPT 4 3 "Descrizione "
|
||||
FIELD %LBU->S0
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_LBU
|
||||
BEGIN
|
||||
PROMPT 2 5 ""
|
||||
ITEM "Anno reg."
|
||||
ITEM "Mese reg."
|
||||
ITEM "Num.ini.reg.un."
|
||||
ITEM "Num.fin.reg.un."
|
||||
ITEM "Cod.ditta"
|
||||
ITEM "Cod.reg."
|
||||
ITEM "Num.ini.reg.ut."
|
||||
ITEM "Num.fin.reg.ut."
|
||||
ITEM "Cod.Vid."
|
||||
ITEM "Stamp.su.boll."
|
||||
ITEM "Pag.ann."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 14
|
||||
|
||||
LIST F_TIPOA 10
|
||||
BEGIN
|
||||
PROMPT 3 1 "Tipo persona "
|
||||
FIELD %LBU->S2
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
|
||||
STRING F_TIPOANAGR 50
|
||||
BEGIN
|
||||
PROMPT 3 2 "Tipo anagrafico "
|
||||
FIELD %LBU->S1
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA F_TIPOA
|
||||
INPUT RAGSOC F_TIPOANAGR
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_TIPOA TIPOA
|
||||
OUTPUT F_TIPOANAGR RAGSOC
|
||||
END
|
||||
|
||||
NUMBER F_CODTABLIB 2
|
||||
BEGIN
|
||||
PROMPT 3 3 "Codice libro "
|
||||
FIELD %LBU->I3
|
||||
FLAGS "U"
|
||||
USE %ITL
|
||||
INPUT CODTAB F_CODTABLIB
|
||||
DISPLAY "Codice libro" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_CODTABLIB CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
HELP "Inserire il codice del libro"
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 3 4 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CONSPRESSO 40
|
||||
BEGIN
|
||||
PROMPT 3 5 "Conservato presso "
|
||||
FIELD %LBU->S3
|
||||
END
|
||||
|
||||
STRING F_CODVID 3
|
||||
BEGIN
|
||||
PROMPT 3 6 "Codice vidimazione "
|
||||
FIELD %LBU->S4
|
||||
END
|
||||
|
||||
DATE F_DATAVID
|
||||
BEGIN
|
||||
PROMPT 3 7 "Data vidimazione "
|
||||
FIELD %LBU->D0
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 45 7 "Data scadenza "
|
||||
FIELD %LBU->D1
|
||||
END
|
||||
|
||||
NUMBER F_NUMPAG 5
|
||||
BEGIN
|
||||
PROMPT 3 9 "Num.pag. libro unico "
|
||||
FIELD %LBU->I2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINT
|
||||
BEGIN
|
||||
PROMPT 3 11 "Stampa intestazione studio su libro unico"
|
||||
FIELD %LBU->B0
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINDCOMP
|
||||
BEGIN
|
||||
PROMPT 3 12 "Stampa l' indirizzo completo della ditta"
|
||||
FIELD %LBU->B1
|
||||
END
|
||||
|
||||
RADIOBUTTON F_MODULO 27
|
||||
BEGIN
|
||||
PROMPT 3 14 "Formato modulo di stampa "
|
||||
ITEM "66|11 pollici (27,94 cm)"
|
||||
ITEM "72|12 pollici (30,48 cm)"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 27
|
||||
BEGIN
|
||||
PROMPT 46 14 "Numero caratteri "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "" -1 -1 71 20
|
||||
|
||||
NUMBER 101 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Anno registrazione "
|
||||
FIELD %INL->I0
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
LIST 102 2 10
|
||||
BEGIN
|
||||
PROMPT 38 1 "Mese registrazione "
|
||||
FIELD %INL->I1
|
||||
ITEMS " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
STRING 103 5 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Numero iniziale pagina registro unico "
|
||||
FIELD %INL->I2
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 104 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero finale pagina registro unico "
|
||||
FIELD %INL->I3
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 105 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD %INL->I4
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA 105
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT 105 CODDITTA
|
||||
OUTPUT 112 RAGSOC
|
||||
END
|
||||
|
||||
STRING 112 50 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 106 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD %INL->S0
|
||||
USE REG
|
||||
INPUT CODTAB[5,7] 106
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT 106 CODTAB[5,7]
|
||||
OUTPUT 113 S0
|
||||
END
|
||||
|
||||
STRING 113 50 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 107 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD %INL->I5
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 108 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD %INL->I6
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING 109 3 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD %INL->S1
|
||||
END
|
||||
|
||||
BOOLEAN 110
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD %INL->B0
|
||||
END
|
||||
|
||||
BOOLEAN 111
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD %INL->B1
|
||||
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
|
||||
#include "ba3500.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella libro unico" -1 -1 78 18
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno esercizio "
|
||||
FIELD %LBU->CODTAB[1,4]
|
||||
KEY 1
|
||||
USE %LBU KEY 1 ALIAS 50
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 4 2 "Codice libro unico "
|
||||
FIELD %LBU->CODTAB[5,7]
|
||||
KEY 1
|
||||
COPY USE F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
COPY DISPLAY F_ANNO
|
||||
COPY OUTPUT F_ANNO
|
||||
END
|
||||
|
||||
LIST F_ULT_MESE_STAMP 2 10
|
||||
BEGIN
|
||||
PROMPT 45 1 "Ultimo mese stampa "
|
||||
FIELD %LBU->I0
|
||||
// NUM_EXPR {(#THIS_FIELD >= 0) && (#THIS_FIELD <= 12)}
|
||||
ITEM " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
NUMBER F_ULT_PAG 5
|
||||
BEGIN
|
||||
PROMPT 45 2 "Ultima pagina "
|
||||
FIELD %LBU->I1
|
||||
END
|
||||
|
||||
STRING F_DESCRLBU 50
|
||||
BEGIN
|
||||
PROMPT 4 3 "Descrizione "
|
||||
FIELD %LBU->S0
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_LBU
|
||||
BEGIN
|
||||
PROMPT 0 5 ""
|
||||
ITEM "Anno reg."
|
||||
ITEM "Mese reg."
|
||||
ITEM "Num.ini.reg.un."
|
||||
ITEM "Num.fin.reg.un."
|
||||
ITEM "Cod.ditta"
|
||||
ITEM "Cod.reg."
|
||||
ITEM "Num.ini.reg.ut."
|
||||
ITEM "Num.fin.reg.ut."
|
||||
ITEM "Cod.Vid."
|
||||
ITEM "Stamp.su.boll."
|
||||
ITEM "Pag.ann."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 14
|
||||
|
||||
LIST F_TIPOA 10
|
||||
BEGIN
|
||||
PROMPT 3 1 "Tipo persona "
|
||||
FIELD %LBU->S2
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
|
||||
STRING F_TIPOANAGR 50
|
||||
BEGIN
|
||||
PROMPT 3 2 "Tipo anagrafico "
|
||||
FIELD %LBU->S1
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA F_TIPOA
|
||||
INPUT RAGSOC F_TIPOANAGR
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_TIPOA TIPOA
|
||||
OUTPUT F_TIPOANAGR RAGSOC
|
||||
END
|
||||
|
||||
NUMBER F_CODTABLIB 2
|
||||
BEGIN
|
||||
PROMPT 3 3 "Codice libro "
|
||||
FIELD %LBU->I3
|
||||
FLAGS "U"
|
||||
USE %ITL
|
||||
INPUT CODTAB F_CODTABLIB
|
||||
DISPLAY "Codice libro" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT F_CODTABLIB CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
HELP "Inserire il codice del libro"
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 3 4 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CONSPRESSO 40
|
||||
BEGIN
|
||||
PROMPT 3 5 "Conservato presso "
|
||||
FIELD %LBU->S3
|
||||
END
|
||||
|
||||
STRING F_CODVID 3
|
||||
BEGIN
|
||||
PROMPT 3 6 "Codice vidimazione "
|
||||
FIELD %LBU->S4
|
||||
END
|
||||
|
||||
DATE F_DATAVID
|
||||
BEGIN
|
||||
PROMPT 3 7 "Data vidimazione "
|
||||
FIELD %LBU->D0
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 45 7 "Data scadenza "
|
||||
FIELD %LBU->D1
|
||||
END
|
||||
|
||||
NUMBER F_NUMPAG 5
|
||||
BEGIN
|
||||
PROMPT 3 9 "Num.pag. libro unico "
|
||||
FIELD %LBU->I2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINT
|
||||
BEGIN
|
||||
PROMPT 3 11 "Stampa intestazione studio su libro unico"
|
||||
FIELD %LBU->B0
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINDCOMP
|
||||
BEGIN
|
||||
PROMPT 3 12 "Stampa l' indirizzo completo della ditta"
|
||||
FIELD %LBU->B1
|
||||
END
|
||||
|
||||
RADIOBUTTON F_MODULO 27
|
||||
BEGIN
|
||||
PROMPT 3 14 "Formato modulo di stampa "
|
||||
ITEM "66|11 pollici (27,94 cm)"
|
||||
ITEM "72|12 pollici (30,48 cm)"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 27
|
||||
BEGIN
|
||||
PROMPT 46 14 "Numero caratteri "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "" -1 -1 71 20
|
||||
|
||||
NUMBER 101 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Anno registrazione "
|
||||
FIELD %INL->I0
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
LIST 102 2 10
|
||||
BEGIN
|
||||
PROMPT 38 1 "Mese registrazione "
|
||||
FIELD %INL->I1
|
||||
ITEMS " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
STRING 103 5 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Numero iniziale pagina registro unico "
|
||||
FIELD %INL->I2
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 104 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero finale pagina registro unico "
|
||||
FIELD %INL->I3
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 105 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD %INL->I4
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA 105
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT 105 CODDITTA
|
||||
OUTPUT 112 RAGSOC
|
||||
END
|
||||
|
||||
STRING 112 50 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 106 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD %INL->S0
|
||||
USE REG
|
||||
INPUT CODTAB[5,7] 106
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT 106 CODTAB[5,7]
|
||||
OUTPUT 113 S0
|
||||
END
|
||||
|
||||
STRING 113 50 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 107 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD %INL->I5
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 108 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD %INL->I6
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING 109 3 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD %INL->S1
|
||||
END
|
||||
|
||||
BOOLEAN 110
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD %INL->B0
|
||||
END
|
||||
|
||||
BOOLEAN 111
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD %INL->B1
|
||||
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
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#include "ba3600.h"
|
||||
|
||||
PAGE "" -1 -1 78 20
|
||||
PAGE "Stampa indici libro unico" -1 -1 78 20
|
||||
|
||||
RADIOBUTTON F_TIPO_STAMPA 25
|
||||
BEGIN
|
||||
@ -29,12 +29,12 @@ END
|
||||
|
||||
TEXT F_TITOLO_PROVA
|
||||
BEGIN
|
||||
PROMPT 33 7 "STAMPA DI PROVA"
|
||||
PROMPT -11 7 "STAMPA DI PROVA"
|
||||
END
|
||||
|
||||
TEXT F_TITOLO_BOLLATO
|
||||
BEGIN
|
||||
PROMPT 25 7 "STAMPA SU LIBRI BOLLATI DELLO STUDIO"
|
||||
PROMPT -11 7 "STAMPA SU LIBRI BOLLATI DELLO STUDIO"
|
||||
END
|
||||
|
||||
DATE F_DATA_STAMPA
|
||||
@ -143,14 +143,15 @@ BEGIN
|
||||
PROMPT 4 15 "Ultim.num.pagina stampata libro unico "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 0
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT 51 18 ""
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 0
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT 63 18 ""
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -23,8 +23,8 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
||||
BEGIN
|
||||
FIELD LF_ANAG->TIPOA
|
||||
ITEM "G|Giuridica"
|
||||
FLAGS "H"
|
||||
KEY 1 2 3
|
||||
FLAGS "H"
|
||||
KEY 1 2 3
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
@ -38,16 +38,16 @@ BEGIN
|
||||
PROMPT 2 1 "Codice "
|
||||
FIELD LF_ANAG->CODANAGR
|
||||
FLAGS "RG"
|
||||
USE LF_ANAG
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT TIPOA "G"
|
||||
INPUT CODANAGR FLD_CODANAGR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
OUTPUT FLD_CODANAGR CODANAGR
|
||||
OUTPUT FLD_AG1_RAGSOC RAGSOC
|
||||
OUTPUT FLD_AG1_COFI COFI
|
||||
USE LF_ANAG
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT TIPOA "G"
|
||||
INPUT CODANAGR FLD_CODANAGR
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
OUTPUT FLD_CODANAGR CODANAGR
|
||||
OUTPUT FLD_AG1_RAGSOC RAGSOC
|
||||
OUTPUT FLD_AG1_COFI COFI
|
||||
MESSAGE COPY,1@
|
||||
KEY 1
|
||||
END
|
||||
@ -60,14 +60,14 @@ BEGIN
|
||||
MESSAGE COPY,2@
|
||||
FLAGS "G"
|
||||
WARNING "Inserire la ragione sociale"
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA "G"
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT RAGSOC FLD_AG1_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
COPY OUTPUT FLD_CODANAGR
|
||||
USE LF_ANAG KEY 2
|
||||
INPUT TIPOA "G"
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT RAGSOC FLD_AG1_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Codice Fiscale " COFI
|
||||
COPY OUTPUT FLD_CODANAGR
|
||||
KEY 2
|
||||
END
|
||||
|
||||
@ -410,7 +410,7 @@ BEGIN
|
||||
FIELD LF_ANAG->CIVCORR
|
||||
HELP "Numero civico a cui mandare la corrispondenza della ditta"
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER FLD_AG2_STATOCORR 3
|
||||
BEGIN
|
||||
@ -1221,4 +1221,4 @@ BEGIN
|
||||
FIELD CODCONTR[14,15]
|
||||
END
|
||||
|
||||
ENDMASK
|
||||
ENDMASK
|
||||
|
||||
@ -155,7 +155,7 @@ BEGIN
|
||||
USE %AIS
|
||||
INPUT CODTAB FLD_GD1_CODATTPREV
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Attivita' " S0
|
||||
DISPLAY "Attivita'@50" S0
|
||||
OUTPUT FLD_GD1_CODATTPREV CODTAB
|
||||
OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0
|
||||
HELP "Inserire il codice dell'attivita' prevalente della ditta"
|
||||
@ -165,7 +165,7 @@ END
|
||||
|
||||
STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Nome "
|
||||
PROMPT 1 10 "Descrizione "
|
||||
FLAGS "D"
|
||||
HELP ""
|
||||
END
|
||||
|
||||
@ -12,13 +12,17 @@ PAGE "Registri" -1 -1 78 18
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
FLAGS "FRH"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_ATTIVITA CODATTPREV
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno "
|
||||
FIELD CODTAB[1,4]
|
||||
FLAGS "ZAP"
|
||||
FLAGS "AZ"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
USE REG
|
||||
@ -41,12 +45,7 @@ BEGIN
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
COPY USE F_ANNO
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione @50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
COPY OUTPUT F_ANNO
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
@ -126,9 +125,9 @@ BEGIN
|
||||
INPUT CODDITTA F_CODDITTA SELECT
|
||||
INPUT CODATT F_ATTIVITA
|
||||
DISPLAY "Codice" CODATT
|
||||
DISPLAY "Descrizione@40" DESCR
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_ATTIVITA CODATT
|
||||
HELP "Introdurre il codice dell' attivita'"
|
||||
HELP "Codice dell'attivita' della ditta"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Attivita' non prevista per questa ditta"
|
||||
END
|
||||
@ -193,9 +192,11 @@ BEGIN
|
||||
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||
INPUT CODTAB[5,7] F_CODLBU
|
||||
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_CODLBU CODTAB[5,7]
|
||||
ADD RUN ba3 -4
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Libro unico assente"
|
||||
END
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
0|Menu Principale |
|
||||
0|Menu Principale|
|
||||
0|Anagrafiche|1
|
||||
0|Contabilita'|4
|
||||
0|Manutenzione|ba1
|
||||
1|Gestione Anagrafiche |
|
||||
1|Gestione Anagrafiche|1
|
||||
1|Persone fisiche|ba4 -1 F
|
||||
1|Persone giuridiche|ba4 -1 G
|
||||
1|Ditte|ba4 -2
|
||||
@ -16,7 +16,7 @@
|
||||
1|Stampa tabelle|3
|
||||
1|Stampa tabelle ministeriali|12
|
||||
1|Stampa numerazione registri|ba3 -2
|
||||
2|Tabell|
|
||||
2|Tabelle|1
|
||||
2|Codici IVA|ba3 -0 %iva
|
||||
2|Codici Attivita'|ba3 -0 %ais
|
||||
2|Cond. di pagamento|ba3 -0 %cpg
|
||||
@ -28,7 +28,7 @@
|
||||
2|Stati esteri|ba3 -0 %sta
|
||||
2|Valute|ba3 -0 %val
|
||||
2|Lingue|ba3 -0 %lng
|
||||
3|Stampa tabelle|
|
||||
3|Stampa tabelle|3
|
||||
3|Codici IVA|ba3 -1 %iva
|
||||
3|Codici Attivita'|ba3 -1 %ais
|
||||
3|Cond. di pagamento|ba3 -1 %cpg
|
||||
@ -40,7 +40,7 @@
|
||||
3|Stati esteri|ba3 -1 %sta
|
||||
3|Valute|ba3 -1 %val
|
||||
3|Lingue|ba3 -1 %lng
|
||||
4|Contabilita' |
|
||||
4|Contabilita'|2
|
||||
4|Persone fisiche|ba4 -1 F
|
||||
4|Persone giuridiche|ba4 -1 G
|
||||
4|Ditte|ba4 -2
|
||||
@ -49,6 +49,7 @@
|
||||
4|Scelta contabilita'|13|F
|
||||
4|IVA|10
|
||||
4|Parametri di studio|cg5 -0
|
||||
4|Gestione Libro Unico|14
|
||||
5|Tabelle studio|
|
||||
5|Tipi documento|ba3 -0 %tpd
|
||||
5|Cond. di pagamento|ba3 -0 %cpg
|
||||
@ -80,14 +81,14 @@
|
||||
7|Clienti/Fornitori|cg0 -1
|
||||
7|Banche|ba3 -0 %ban
|
||||
7|Esercizi|ba3 -0 esc
|
||||
8|Stampa tabelle ditta|
|
||||
8|Stampa tabelle ditta|3
|
||||
8|Registri|ba3 -1 reg
|
||||
8|Piano dei conti|cg1 -0
|
||||
8|Causali|cg1 -6
|
||||
8|Clienti/Fornitori|cg1 -1
|
||||
8|Banche|ba3 -1 %ban
|
||||
9|Prima nota |
|
||||
9|Prima nota |cg2 -0
|
||||
9|Prima nota|2
|
||||
9|Prima nota|cg2 -0
|
||||
9|Ricalcolo saldi|cg4 -0
|
||||
9|IVA|10
|
||||
9|Lista movimenti|cg3 -0
|
||||
@ -96,7 +97,7 @@
|
||||
9|Bilancio|cg1 -4
|
||||
9|Bilancio IV direttiva CEE|cg1 -5
|
||||
9|Giornale|cg3 -3
|
||||
10|IVA|
|
||||
10|IVA|2
|
||||
10|Liquidazione|cg4 -2
|
||||
10|Deleghe|ba3 -0 %del
|
||||
10|Stampa deleghe|cg1 -3
|
||||
@ -122,4 +123,8 @@
|
||||
13|Tabelle ditta|7
|
||||
13|Stampa tabelle ditta|8
|
||||
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
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user