Tabelle Andrea?
git-svn-id: svn://10.65.10.50/trunk@623 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
00c59163b9
commit
af2a5b0337
@ -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();
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
|
@ -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;
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user