Tabelle Andrea?

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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