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

Tabelle Andrea?

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@623 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-15 11:21:00 +00:00
parent 00c59163b9
commit af2a5b0337
16 changed files with 82 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ba/ba0.cpp
View File

@ -6,7 +6,6 @@
#include <progind.h>
#include <utility.h>
#include <urldefid.h>
#include <stdio.h>
#if XVT_OS == XVT_OS_SCOUNIX
#include <sys/stat.h>
@ -20,7 +19,7 @@ extern "C"
{
#include <cpb.h>
}
#include <dos.h>
#include <dos.h>
#else
#include <dirent.h>
#endif
@ -162,8 +161,8 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
exist = fexist(s);
}
if (exist)
return message_box("Direttorio dati danneggiato, non posso attivare la ditta %ld", codditta);
if (!yesno_box("I dati della ditta %ld non esistono : devo generarli ?", codditta))
return message_box("Direttorio dati danneggiato, impossibile attivare la ditta %ld", codditta);
if (!yesno_box("I dati della ditta %ld non esistono: si desidera generarli?", codditta))
return FALSE;
s = s.path();
#if XVT_OS == XVT_OS_SCOUNIX
@ -476,6 +475,7 @@ bool TMenu_application::check_user()
if (m.run() == K_ESC) return FALSE;
user = m.get(F_USER);
password = m.get(F_PASSWORD);
if (password.len() > 3)
{
users.zero();

13
ba/ba0100a.uml
View File

@ -1,11 +1,11 @@
#include "ba0100a.h"
PAGE "Selezione utente" -1 -1 35 7
PAGE "Selezione utente" -1 -1 30 7
STRING F_USER 8
BEGIN
PROMPT 1 1 "Utente "
HELP "Inserire il nome dell'utente"
PROMPT 4 1 "Utente "
HELP "Nome dell'utente"
FLAGS "U"
USE LF_USER
INPUT USERNAME F_USER
@ -14,10 +14,11 @@ BEGIN
OUTPUT F_USER USERNAME
END
STRING F_PASSWORD 8 0
STRING F_PASSWORD 8 10
BEGIN
PROMPT 1 3 "Password "
HELP "Inserire la password"
PROMPT 4 3 "Password "
FLAGS "*"
HELP "Password dell'utente selezionato"
END
BUTTON DLG_OK 9 2

4
ba/ba1300a.uml
View File

@ -14,13 +14,13 @@ BEGIN
PROMPT 2 2 " Continuo"
MESSAGE TRUE DISABLE,F_ITERAZIONI|RESET,F_ITERAZIONI
MESSAGE FALSE ENABLE,F_ITERAZIONI
HELP "Inserire il tipo di test"
HELP "Tipo di test da svolgere"
END
NUMBER F_ITERAZIONI 3
BEGIN
PROMPT 2 4 ""
HELP "Inserire il numero di iterazioni del test"
HELP "Numero di iterazioni del test"
END
TEXT F_LABEL

4
ba/ba1300b.uml
View File

@ -10,13 +10,13 @@ BEGIN
SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43"
INPUT F_FILE
OUTPUT F_FILE
HELP "Inserire il numero del file da esaminare"
HELP "Numero del file da esaminare"
END
STRING F_SEQUENZA 20
BEGIN
PROMPT 2 3 "File Random "
HELP "Introdurre il nome del file della sequenza"
HELP "Nome del file della sequenza"
END
BUTTON DLG_OK 9 2

4
ba/ba3200a.uml
View File

@ -7,14 +7,14 @@ STRING FLD_CODTAB_INIZIO 3
BEGIN
PROMPT 2 1 "DA codice "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
HELP "Codice d'inizio sequnza di stampa. Vuoto = inizio archivio"
END
STRING FLD_CODTAB_FINE 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine "
HELP "Codice di fine sequenza di stampa. Vuoto = fine archivio"
END
BUTTON DLG_OK 9 2

2
ba/ba4.cpp
View File

@ -28,7 +28,7 @@ int main(int argc,char** argv)
rt = ba4600(argc,argv) ; break;
default:
error_box(usage, argv[0]) ; break;
return rt;
}
return rt;
}

42
ba/ba4300.cpp
View File

@ -1,10 +1,10 @@
#include <relapp.h>
#include <mailbox.h>
#include <execp.h>
#include <utility.h>
#include <prefix.h>
#include <tabutil.h>
#include <files.h>
#include <mailbox.h>
#include <prefix.h>
#include <relapp.h>
#include <tabutil.h>
#include <utility.h>
#include "ba4.h"
#include "ba4300.h"
@ -48,7 +48,7 @@ const char* COMTRIB = "COMTRIB";
#define S0 "S0"
#define DESCR "DESCR"
class BA4300_application : public TRelation_application
class TDitte_application : public TRelation_application
{
TMask* _msk;
TRelation *_rel;
@ -67,14 +67,14 @@ protected:
virtual void init_insert_mode(TMask& m) ;
void enable_reg(TMask& m) ;
virtual void init_modify_mode(TMask& m) ;
void set_att_prev(TMask& m);
void set_att_prev(const TMask& m);
public:
BA4300_application();
TDitte_application();
virtual TRelation* get_relation() const { return _rel;}
virtual int rewrite(const TMask& m);
virtual int write(const TMask& m);
virtual ~BA4300_application() {}
virtual ~TDitte_application() {}
};
bool ba4300_handler(TMask& m, KEY k)
@ -84,7 +84,7 @@ bool ba4300_handler(TMask& m, KEY k)
return TRUE;
if (m.mode() == MODE_MOD || m.mode() == MODE_INS)
{
BA4300_application& app = (BA4300_application&)main_app();
TDitte_application& app = (TDitte_application&)main_app();
if (m.mode() == MODE_INS)
{
if (!m.check_fields()) return FALSE;
@ -155,11 +155,11 @@ bool ba4300_handler(TMask& m, KEY k)
}
BA4300_application::BA4300_application()
TDitte_application::TDitte_application()
{}
bool BA4300_application::user_create() // initvar e arrmask
bool TDitte_application::user_create() // initvar e arrmask
{
_msk = new TMask("ba4300a") ;
_msk->set_handler(ba4300_handler);
@ -173,7 +173,7 @@ bool BA4300_application::user_create() // initvar e arrmask
}
bool BA4300_application::user_destroy() // releasev e arrmask
bool TDitte_application::user_destroy() // releasev e arrmask
{
delete _msk;
delete _rel;
@ -184,7 +184,7 @@ bool BA4300_application::user_destroy() // releasev e arrmask
return TRUE;
}
void BA4300_application::set_att_prev(TMask& m)
void TDitte_application::set_att_prev(const TMask& m)
{
const TString16 attprev(m.get(FLD_GD1_CODATTPREV));
@ -237,7 +237,7 @@ void BA4300_application::set_att_prev(TMask& m)
}
}
int BA4300_application::write(const TMask& m)
int TDitte_application::write(const TMask& m)
{
m.autosave();
if (_rel->write() != NOERR)
@ -282,7 +282,7 @@ int BA4300_application::write(const TMask& m)
return NOERR;
}
int BA4300_application::rewrite(const TMask& m)
int TDitte_application::rewrite(const TMask& m)
{
_rel->zero();
m.autosave();
@ -292,7 +292,7 @@ int BA4300_application::rewrite(const TMask& m)
return NOERR;
}
void BA4300_application::init_query_mode(TMask& m)
void TDitte_application::init_query_mode(TMask& m)
{
if (filtered())
{
@ -307,7 +307,7 @@ void BA4300_application::init_query_mode(TMask& m)
init_insert_mode(m);
}
void BA4300_application::init_insert_mode(TMask& m)
void TDitte_application::init_insert_mode(TMask& m)
{
if (!filtered())
{
@ -329,7 +329,7 @@ void BA4300_application::init_insert_mode(TMask& m)
_oldattprev = "";
}
void BA4300_application::enable_reg(TMask& m)
void TDitte_application::enable_reg(TMask& m)
{
const long codditta = m.get_long(FLD_GD1_CODDITTA);
@ -337,7 +337,7 @@ void BA4300_application::enable_reg(TMask& m)
m.enable(DLG_REG, codditta > 0 && prefhndl->exist(codditta));
}
void BA4300_application::init_modify_mode(TMask& m)
void TDitte_application::init_modify_mode(TMask& m)
{
m.disable(FLD_GD1_TIPOA);
m.disable(FLD_GD1_CODANAGR);
@ -361,7 +361,7 @@ void BA4300_application::init_modify_mode(TMask& m)
int ba4300(int argc, char* argv[])
{
BA4300_application a ;
TDitte_application a ;
a.run(argc, argv, "Anagrafica Ditte");
return 0;
}

10
ba/ba6200a.uml
View File

@ -5,6 +5,7 @@ PAGE "" -1 -1 65 14
RADIOBUTTON F_SCELTA 25
BEGIN
PROMPT 1 1 "Stampa per: "
HELP "Criterio di ordinamento della stampa dei comuni"
ITEM "1|Codice comune "
MESSAGE HIDE,F_NOMEINI|HIDE,F_NOMEFINE|HIDE,F_NOME
MESSAGE RESET,F_NOMEINI|RESET,F_NOMEFINE|RESET,F_NOME
@ -21,6 +22,7 @@ END
DATE F_DATA
BEGIN
PROMPT 37 2 "Data di stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
@ -32,6 +34,7 @@ END
STRING F_STATOINI 3
BEGIN
PROMPT 2 6 "Da codice "
HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio"
USE LF_COMUNI KEY 1
INPUT STATO F_STATOINI
INPUT COM F_CODICEINI
@ -46,6 +49,7 @@ END
STRING F_CODICEINI 4
BEGIN
PROMPT 20 6 ""
HELP "Codice del comune da cui iniziare la stampa. Vuoto = inizio archivio"
COPY USE F_STATOINI
INPUT STATO F_STATOINI
INPUT COM F_CODICEINI
@ -58,6 +62,7 @@ END
STRING F_STATOFINE 3
BEGIN
PROMPT 37 6 "A codice "
HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_STATOINI
INPUT STATO F_STATOFINE
INPUT COM F_CODICEFINE
@ -70,6 +75,7 @@ END
STRING F_CODICEFINE 4
BEGIN
PROMPT 54 6 ""
HELP "Codice del comune a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_STATOINI
INPUT STATO F_STATOFINE
INPUT COM F_CODICEFINE
@ -87,6 +93,7 @@ END
STRING F_NOMEINI 50
BEGIN
PROMPT 2 6 "Da nome "
HELP "Nome del comune da cui iniziare la stampa. Vuoto = inizio archivio"
USE LF_COMUNI KEY 2
INPUT DENCOM F_NOMEINI
DISPLAY "Denominazione@50" DENCOM
@ -97,6 +104,7 @@ END
STRING F_NOMEFINE 50
BEGIN
PROMPT 2 7 "A nome "
HELP "Nome del comune da cui iniziare la stampa. Vuoto = inizio archivio"
COPY USE F_NOMEINI
INPUT DENCOM F_NOMEFINE
COPY DISPLAY F_NOMEINI
@ -107,6 +115,7 @@ END
STRING F_PROVCOM 5
BEGIN
PROMPT 1 9 "Stampa solo la provincia di "
HELP "Nome della provincia di cui stampare l'anagrafica dei comuni"
FLAGS "U"
END
@ -123,4 +132,3 @@ END
ENDPAGE
ENDMASK

2
ba/bastucc.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa uffici concessione" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UCC
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -18,6 +19,7 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

2
ba/bastucs.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa centri servizio" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UCS
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -18,6 +19,7 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

2
ba/bastuid.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %UID
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -18,6 +19,7 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

2
ba/basture.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa Uffici registro" -1 -1 50 8
STRING F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %URE
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
@ -18,6 +19,7 @@ END
STRING F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1

20
ba/batbucc.uml
View File

@ -20,7 +20,7 @@ BEGIN
DISPLAY "Ufficio@30" S0
OUTPUT FLD_TABUCC_CODTAB CODTAB
OUTPUT FLD_TABUCC_S0 S0
HELP "Inserire il codice dell'ufficio concessioni"
HELP "Codice dell'ufficio concessioni"
CHECKTYPE REQUIRED
END
@ -35,7 +35,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUCC_CODTAB CODTAB
OUTPUT FLD_TABUCC_S0 S0
HELP "Inserire la descrizione dell'ufficio concessione"
HELP "Descrizione dell'ufficio concessione"
CHECKTYPE REQUIRED
END
@ -43,14 +43,14 @@ STRING FLD_TABUCC_S1 35
BEGIN
PROMPT 3 5 "Indirizzo "
FIELD %UCC->S1
HELP "Inserire l'indirizzo della sede dell'ufficio"
HELP "Indirizzo della sede dell'ufficio"
END
STRING FLD_TABUCC_S3 10
BEGIN
PROMPT 56 5 "N."
FIELD %UCC->S3
HELP "Inserire il numero civico dell'ufficio"
HELP "Numero civico della sede dell'ufficio"
END
STRING FLD_TABUCC_S6 4
@ -66,7 +66,7 @@ BEGIN
OUTPUT FLD_TABUCC_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABUCC_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABUCC_S7_CAP CAPCOM
HELP "Inserire il codice del comune della sede dell'ufficio"
HELP "Codice del comune sede dell'ufficio"
CHECKTYPE REQUIRED
WARNING "Comune non presente"
END
@ -75,42 +75,40 @@ STRING FLD_TABUCC_S6_COMUNI_DENCOM 50
BEGIN
PROMPT 3 9 "Nome "
FLAGS "D"
HELP ""
END
STRING FLD_TABUCC_S6_COMUNI_PROVCOM 2
BEGIN
PROMPT 3 11 "Provincia "
FLAGS "D"
HELP ""
END
STRING FLD_TABUCC_S7_CAP 5
BEGIN
PROMPT 56 11 "CAP "
FIELD %UCC->S7
HELP ""
HELP "CAP del comune sede dell'ufficio"
END
STRING FLD_TABUCC_S5 8
BEGIN
PROMPT 3 13 "C.Corr.Postale "
FIELD %UCC->S5
HELP "Inserire il codice del conto corrente postale dell'ufficio"
HELP "Numero del conto corrente postale dell'ufficio"
END
STRING FLD_TABUCC_S2 40
BEGIN
PROMPT 3 15 "Dizione conc. "
FIELD %UCC->S2
HELP "Inserire la dizione della concessione"
HELP "Dizione della concessione"
END
STRING FLD_TABUCC_S4 8
BEGIN
PROMPT 3 17 "C.C.Post.I.C.I."
FIELD %UCC->S4
HELP "Inserire il codice del conto corrente postale per il versamento ICI"
HELP "Numero del conto corrente postale per il versamento ICI"
END
ENDPAGE

14
ba/batbucs.uml
View File

@ -19,7 +19,7 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABUCS_CODTAB CODTAB
HELP "Inserire il codice del centro servizio"
HELP "Codice del centro servizio"
CHECKTYPE REQUIRED
END
@ -34,7 +34,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUCS_CODTAB CODTAB
OUTPUT FLD_TABUCS_S0 S0
HELP "Inserire la descrizione del centro servizio"
HELP "Descrizione del centro servizio"
CHECKTYPE REQUIRED
END
@ -42,14 +42,14 @@ STRING FLD_TABUCS_S1 35
BEGIN
PROMPT 1 5 "Indirizzo "
FIELD %UCS->S1
HELP "Inserire l'indirzzo della sede del centro"
HELP "Indirizzo della sede del centro"
END
STRING FLD_TABUCS_S3 10
BEGIN
PROMPT 54 5 "N."
FIELD %UCS->S3
HELP "Inserire il numero civico della sede"
HELP "Numero civico della sede"
END
STRING FLD_TABUCS_S6 4
@ -65,7 +65,7 @@ BEGIN
OUTPUT FLD_TABUCS_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABUCS_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABUCS_S7_CAP CAPCOM
HELP "Inserire il codice del comune della sede"
HELP "Codice del comune della sede"
CHECKTYPE REQUIRED
WARNING "Comune non presente"
ADD MASK ba4100a
@ -89,14 +89,14 @@ STRING FLD_TABUCS_S7_CAP 5
BEGIN
PROMPT 54 11 "CAP "
FIELD %UCS->S7
HELP ""
HELP "CAP del comune della sede"
END
STRING FLD_TABUCS_S4 8
BEGIN
PROMPT 1 13 "C.Corr.Postale "
FIELD %UCS->S4
HELP "Inserire il numero di conto corrente postale del centro"
HELP "Numero di conto corrente postale del centro"
END
ENDPAGE

8
ba/batbuid.uml
View File

@ -34,7 +34,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUID_CODTAB CODTAB
OUTPUT FLD_TABUID_S0 S0
HELP "Descrizione dell'ufficio"
HELP "Descrizione dell'ufficio IVA"
CHECKTYPE REQUIRED
END
@ -75,28 +75,26 @@ STRING FLD_TABUID_S6_COMUNI_DENCOM 50
BEGIN
PROMPT 3 9 "Nome "
FLAGS "D"
HELP ""
END
STRING FLD_TABUID_S6_COMUNI_PROVCOM 2
BEGIN
PROMPT 3 11 "Provincia "
FLAGS "D"
HELP ""
END
STRING FLD_TABUID_S7_CAP 5
BEGIN
PROMPT 47 11 "CAP "
FIELD %UID->S7
HELP ""
HELP "CAP del comune della sede dell'ufficio"
END
STRING FLD_TABUID_S4 8
BEGIN
PROMPT 3 13 "C.Corr.Postale "
FIELD %UID->S4
HELP "Conto corrente postale dell'ufficio"
HELP "Numero di conto corrente postale dell'ufficio"
END
ENDPAGE

16
ba/batbure.uml
View File

@ -20,7 +20,7 @@ BEGIN
DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABURE_CODTAB CODTAB
OUTPUT FLD_TABURE_S0 S0
HELP "Inserire il codice dell'ufficio del registro"
HELP "Codice dell'ufficio del registro"
CHECKTYPE REQUIRED
END
@ -35,7 +35,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABURE_CODTAB CODTAB
OUTPUT FLD_TABURE_S0 S0
HELP "Inserire la descrizione dell'ufficio del registro"
HELP "Descrizione dell'ufficio del registro"
CHECKTYPE REQUIRED
END
@ -43,14 +43,14 @@ STRING FLD_TABURE_S1 35
BEGIN
PROMPT 3 5 "Indirizzo "
FIELD %URE->S1
HELP "Inserire l'indirizzo della sede dell'ufficio del registro"
HELP "Indirizzo della sede dell'ufficio del registro"
END
STRING FLD_TABURE_S3 10
BEGIN
PROMPT 56 5 "N."
FIELD %URE->S3
HELP "Inserire il numero civico dell'ufficio del registro"
HELP "Numero civico dell'ufficio del registro"
END
STRING FLD_TABURE_S6 4
@ -66,7 +66,7 @@ BEGIN
OUTPUT FLD_TABURE_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABURE_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABURE_S7_CAP CAPCOM
HELP "Inserire il codice del comune dell'ufficio registro"
HELP "Codice del comune dell'ufficio registro"
CHECKTYPE NORMAL
END
@ -74,28 +74,26 @@ STRING FLD_TABURE_S6_COMUNI_DENCOM 50
BEGIN
PROMPT 3 9 "Nome "
FLAGS "D"
HELP ""
END
STRING FLD_TABURE_S6_COMUNI_PROVCOM 2
BEGIN
PROMPT 3 11 "Provincia "
FLAGS "D"
HELP ""
END
STRING FLD_TABURE_S7_CAP 5
BEGIN
PROMPT 56 11 "CAP "
FIELD %URE->S7
HELP ""
HELP "CAP del comune sede dell'ufficio"
END
STRING FLD_TABURE_S4 10
BEGIN
PROMPT 3 13 "C.Corr.Postale "
FIELD %URE->S4
HELP "Inserire il numero di conto corrente postale dell'ufficio"
HELP "Numero di conto corrente postale dell'ufficio"
END
ENDPAGE