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

Modificate maschere libro unico

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@811 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-01-03 14:17:35 +00:00
parent d100bb385b
commit 9c3b45cb4a
8 changed files with 350 additions and 330 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba0.cpp
View File

@ -88,7 +88,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, 8);
cpb_win_picture_draw_at(win, _picture, 1, 1);
else
#endif
{

41
ba/ba3100.cpp
View File

@ -1,10 +1,5 @@
#include <relapp.h>
#include <stdtypes.h>
#include <tabutil.h>
#include <execp.h>
#include <utility.h>
#include <tabapp.h>
#include <tabutil.h>
#include "batbreg.h"
@ -12,15 +7,12 @@
class BA3100_application : public Tab_application
{
TMask* _msk;
TRelation* _rel;
TString _tabname;
long _oldditta;
int _oldanno;
bool _exist_journal;
protected:
virtual bool user_create() ;
virtual bool user_destroy() ;
public:
virtual void init_insert_mode(TMask& m) ;
@ -37,7 +29,7 @@ HIDDEN inline BA3100_application& app() { return (BA3100_application&) main_app(
void BA3100_application::init_insert_mode(TMask& m)
{
if (_tabname != "REG") return;
if (get_tabname() != "REG") return;
long ditta = get_firm();
int anno = atoi(m.get(F_ANNO));
@ -47,7 +39,7 @@ void BA3100_application::init_insert_mode(TMask& m)
_oldditta = ditta;
_oldanno = anno;
TTable reg(_tabname);
TTable reg(get_tabname());
reg.zero();
reg.put("CODTAB", m.get(F_ANNO));
@ -65,17 +57,18 @@ bool BA3100_application::protected_record(TRectype& rec)
bool prot = rec.get_bool(FPC);
if (!prot)
{
if (_tabname == "%IVD") // Impedisce la cancellazione di una classe se ha sottoclassi
if (get_tabname() == "%IVD") // Impedisce la cancellazione di una classe se ha sottoclassi
{
const TRecnotype pos = _rel->lfile().recno();
const TString cod(rec.get("CODTAB"));
const int err = _rel->lfile().next();
TLocalisamfile& f = get_relation()->lfile();
const TRecnotype pos = f.recno();
const TString16 cod(rec.get("CODTAB"));
const int err = f.next();
if (err == NOERR)
{
TString next(_rel->lfile().get("CODTAB")); next.cut(cod.len());
TString16 next(f.get("CODTAB")); next.cut(cod.len());
prot = cod == next;
}
_rel->lfile().readat(pos);
f.readat(pos);
}
}
return prot;
@ -94,16 +87,8 @@ HIDDEN bool tiporeg_handler(TMask_field& f, KEY k)
bool BA3100_application::user_create()
{
Tab_application::user_create();
_msk = get_mask();
_tabname = get_tabname();
if (_tabname == "REG") _msk->set_handler(F_TIPO, tiporeg_handler);
return TRUE;
}
bool BA3100_application::user_destroy()
{
if (_msk) delete _msk;
if (_rel) delete _rel;
if (get_tabname() == "REG")
get_mask()->set_handler(F_TIPO, tiporeg_handler);
return TRUE;
}

4
ba/ba3500.cpp
View File

@ -15,6 +15,10 @@
#define ALIAS 1
#define TAB_LBU "%LBU"
#define TAB_INL "%INL"
#define TAB_REG "REG"
class Riga_tabinl : public TToken_string
{
public:

3
ba/ba3500.h
View File

@ -1,5 +1,4 @@
// Campi maschera tabella batb%lbu.msk
// Campi maschera tabella batblbu.msk
#define TAB_LBU "%LBU"
#define TAB_INL "%INL"

24
ba/batblbu.h
View File

@ -1,6 +1,22 @@
// Campi maschera tabella batb%lbu.msk
// Campi maschera tabella batblbu.msk
#define F_CODLIB 101
#define F_ANNO 102
#define F_SHEET_LBU 104
#define F_ANNO 101
#define F_CODLIB 102
#define F_ULT_MESE_STAMP 103
#define F_ULT_PAG 104
#define F_SHEET_LBU 105
#define F_TIPOA 106
#define F_TIPOANAGR 107
#define F_CODTABLIB 108
#define F_DESCR 109
#define F_CONSPRESSO 110
#define F_CODVID 111
#define F_DATAVID 112
#define F_DATASCAD 113
#define F_NUMPAG 114
#define F_STAMPAINT 117
#define F_STAMPAINDCOMP 118
#define F_MODULO 119
#define F_STAMPA 120
#define F_DESCRLBU 121

209
ba/batblbu.uml
View File

@ -8,138 +8,153 @@ ENDPAGE
PAGE "Tabella libro unico" -1 -1 78 18
NUMBER F_CODLIB 1
BEGIN
PROMPT 4 1 "Codice libro unico "
HELP "Codice libro unico da gestire"
FIELD %LBU->CODTAB
KEY 1
USE %LBU
END
NUMBER F_ANNO 4
BEGIN
PROMPT 53 1 "Anno esercizio "
HELP "Anno d'esercizio a cui si riferisce il libro"
PROMPT 4 1 "Anno esercizio "
FIELD %LBU->CODTAB[1,4]
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]
KEY 1
END
STRING F_CODLIB 3
BEGIN
PROMPT 4 2 "Codice libro unico "
FLAGS "U"
FIELD %LBU->CODTAB[5,7]
COPY USE F_ANNO
INPUT CODTAB[5,7] F_CODLIB
COPY DISPLAY F_ANNO
COPY OUTPUT F_ANNO
CHECKTYPE REQUIRED
KEY 1
END
LIST F_ULT_MESE_STAMP 2 10
BEGIN
PROMPT 45 1 "Ultimo mese stampa "
FIELD %LBU->I0
ITEM " |Nessuno"
FLAGS "M"
END
SPREADSHEET F_SHEET_LBU
NUMBER F_ULT_PAG 5
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 "
HELP "Indicare se viene stampato su bollato"
FIELD %LBU->B0
END
ENDMASK
PAGE "" -1 -1 71 15
STRING 101 5
BEGIN
PROMPT 1 1 "Numero iniziale pagina registro unico "
HELP "Numero della pagina iniziale del libro unico"
PROMPT 45 2 "Ultima pagina "
FIELD %LBU->I1
END
NUMBER 102 5
STRING F_DESCRLBU 50
BEGIN
PROMPT 1 2 "Numero finale pagina registro unico "
HELP "Numero della pagina finale del libro unico"
FIELD %LBU->I2
END
NUMBER 103 5
BEGIN
PROMPT 1 4 "Codice ditta "
HELP "Codice ditta a cui si riferisce il libro unico"
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 "
HELP "Ragione sociale ditta a cui si riferisce il libro unico"
PROMPT 4 3 "Descrizione "
FIELD %LBU->S0
END
NUMBER 105 3
LIST F_TIPOA 10
BEGIN
PROMPT 1 7 "Codice registro "
HELP "Codice resgistro ?????"
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
PROMPT 3 4 "Tipo persona "
FIELD %LBU->S2
ITEM "F|Fisica"
ITEM "G|Giuridica"
END
STRING 106 50
STRING F_TIPOANAGR 50
BEGIN
PROMPT 1 8 "Descrizione "
HELP "Descrizione ???????"
PROMPT 3 5 "Tipo anagrafico "
FIELD %LBU->S1
COPY USE 105
INPUT S0 106
COPY DISPLAY 105
COPY OUTPUT 105
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
CHECKTYPE NORMAL
END
NUMBER 107 5
NUMBER F_CODTABLIB 2
BEGIN
PROMPT 1 10 "Numero iniziale pagina registro utente "
HELP "????"
FIELD %LBU->I5
PROMPT 3 6 "Codice libro "
FIELD %LBU->I3
FLAGS "Z"
USE %ITL
INPUT CODTAB F_CODTABLIB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTABLIB CODTAB
OUTPUT F_DESCR S0
CHECKTYPE NORMAL
HELP "Inserire il codice del libro"
END
NUMBER 108 5
STRING F_DESCR 50
BEGIN
PROMPT 1 11 "Numero finale pagina registro utente "
HELP "??????"
FIELD %LBU->I6
PROMPT 3 7 "Descrizione "
FLAGS "D"
END
BUTTON DLG_OK 9 2
STRING F_CONSPRESSO 40
BEGIN
PROMPT -13 -1 ""
PROMPT 3 8 "Conservato presso "
FIELD %LBU->S3
END
BUTTON DLG_CANCEL 9 2
STRING F_CODVID 3
BEGIN
PROMPT -23 -1 ""
PROMPT 3 9 "Codice vidimazione "
FIELD %LBU->S4
END
BUTTON DLG_NULL 9 2
DATE F_DATAVID
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
PROMPT 3 10 "Data vidimazione "
FIELD %LBU->D0
END
DATE F_DATASCAD
BEGIN
PROMPT 45 10 "Data scadenza "
FIELD %LBU->D1
END
NUMBER F_NUMPAG 5
BEGIN
PROMPT 3 12 "Num.pag. libro unico "
FIELD %LBU->I2
END
BOOLEAN F_STAMPAINT
BEGIN
PROMPT 3 14 "Stampa intestazione studio su libro unico"
FIELD %LBU->B0
END
BOOLEAN F_STAMPAINDCOMP
BEGIN
PROMPT 3 15 "Stampa l' indirizzo completo della ditta"
FIELD %LBU->B1
END
RADIOBUTTON F_MODULO 27
BEGIN
PROMPT 3 17 "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 17 "Numero caratteri "
ITEM "1|132 crt."
ITEM "2|198 crt."
END
ENDPAGE
ENDMASK

2
ba/batbucc.uml
View File

@ -12,7 +12,7 @@ NUMBER FLD_TABUCC_CODTAB 3
BEGIN
PROMPT 3 1 "Codice "
FIELD %UCC->CODTAB
FLAGS "RZ"
FLAGS "Z"
KEY 1
USE %UCC
INPUT CODTAB FLD_TABUCC_CODTAB

3
ba/prassi.mnu
View File

@ -126,7 +126,8 @@
13|Prima nota|9|7
13|Servizio|16|7
14|Gestione libro unico|7
14|Tabella libro unico|ba3 -4
14|Tabella libro unico|ba3 -0 %lbu
14|Tabella indici libro unico|ba3 -0 %inl
14|Tabella vidimazioni|ba3 -0 %vid
14|Stampa indici libro unico|ba3 -5
15|Manutenzione|1