From 20b383cc49303de393b2b74711c82bca0b185154 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 16 May 1996 09:06:53 +0000 Subject: [PATCH] Correzioni per XI git-svn-id: svn://10.65.10.50/trunk@2832 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/ba1100b.uml | 5 ++- ba/ba1100c.uml | 7 +++- ba/ba1100d.uml | 14 +++---- ba/ba1300a.uml | 40 +++++++++---------- ba/ba1300b.uml | 26 ++++++------- ba/ba2100a.uml | 4 +- ba/ba2100c.uml | 2 +- ba/ba2100f.uml | 104 ++++++++++++++++++++++++------------------------- ba/ba2100s.uml | 86 ++++++++++++++++++++-------------------- ba/ba2100u.uml | 12 +++--- ba/ba21dt.uml | 10 ++--- ba/ba3300a.uml | 40 +++++++++---------- ba/ba3500a.uml | 4 +- ba/ba4100a.uml | 6 +-- ba/ba4200b.uml | 8 ++-- ba/ba4200c.uml | 10 ++--- ba/ba4300a.uml | 36 ++++++++--------- ba/ba4400a.uml | 90 +++++++++++++++++++++--------------------- ba/ba4500a.uml | 30 +++++++------- ba/ba4600a.uml | 53 +++++++++++++------------ ba/ba6100b.uml | 74 +++++++++++++++++------------------ ba/ba6200a.uml | 2 +- ba/bastabe.uml | 4 +- ba/bastage.uml | 4 +- ba/bastais.uml | 4 +- ba/bastasf.uml | 4 +- ba/bastban.uml | 48 +++++++++++------------ ba/bastcam.uml | 32 ++++++++------- ba/bastcco.uml | 38 +++++++++--------- ba/bastcfi.uml | 38 +++++++++--------- ba/bastclr.uml | 8 ++-- ba/bastcpg.uml | 8 ++-- ba/bastcrs.uml | 38 +++++++++--------- ba/bastctr.uml | 8 ++-- ba/bastcve.uml | 52 ++++++++++++------------- ba/bastdpn.uml | 12 +++--- ba/bastesc.uml | 40 +++++++------------ ba/bastitl.uml | 8 ++-- ba/bastiva.uml | 40 +++++++++---------- ba/bastleg.uml | 38 +++++++++--------- ba/bastlis.uml | 38 +++++++++--------- ba/bastlng.uml | 8 ++-- ba/bastmsp.uml | 38 +++++++++--------- ba/bastndo.uml | 38 +++++++++--------- ba/bastnot.uml | 42 ++++++++++---------- ba/bastois.uml | 8 ++-- ba/bastpor.uml | 38 +++++++++--------- ba/bastreg.uml | 38 +----------------- ba/bastsad.uml | 38 +++++++++--------- ba/bastscc.uml | 38 +++++++++--------- ba/baststa.uml | 38 +++++++++--------- ba/baststt.uml | 34 ++++++++-------- ba/bastsua.uml | 74 +++++++++++++++++------------------ ba/basttit.uml | 38 +++++++++--------- ba/basttpd.uml | 30 +++++++------- ba/bastucc.uml | 38 +++++++++--------- ba/bastucs.uml | 4 +- ba/bastues.uml | 38 +++++++++--------- ba/bastuid.uml | 34 ++++++++-------- ba/bastuiv.uml | 34 ++++++++-------- ba/basture.uml | 4 +- ba/bastval.uml | 42 ++++++++++---------- ba/bastver.uml | 8 ++-- ba/bastvet.uml | 4 +- ba/bastzon.uml | 38 +++++++++--------- ba/batbabe.uml | 2 +- ba/batbesc.uml | 6 +-- ba/batbinl.uml | 4 +- ba/batbiva.uml | 16 ++++---- ba/batbois.uml | 68 ++++++++++++++++---------------- ba/batbpim.uml | 34 ++++++++-------- ba/batbpor.uml | 4 +- ba/batbreg.uml | 6 +-- ba/batbtra.uml | 8 ++-- ba/batbver.uml | 4 +- ba/batbvid.uml | 4 +- 76 files changed, 996 insertions(+), 1029 deletions(-) diff --git a/ba/ba1100b.uml b/ba/ba1100b.uml index 8ff55991c..9f7a3d967 100755 --- a/ba/ba1100b.uml +++ b/ba/ba1100b.uml @@ -3,7 +3,7 @@ PAGE "Scarico Archivio" -1 -1 70 13 -STRING FLD_OUTFILE 50 +STRING FLD_OUTFILE 50 BEGIN PROMPT 2 1 "File di output " HELP "Nome del file sul quale scaricare" @@ -45,18 +45,21 @@ STRING FLD_FS 5 BEGIN PROMPT 2 7 "Separatore di campi " HELP "Carattere seperatore dei campi" + FLAGS "P" END STRING FLD_FD 5 BEGIN PROMPT 40 7 "Delimitatore di campi " HELP "Carattere delimitatore di campi" + FLAGS "P" END STRING FLD_RS 5 BEGIN PROMPT 2 9 "Separatore di record " HELP "Carattere delimitatore di record" + FLAGS "P" END BUTTON DLG_OK 10 2 diff --git a/ba/ba1100c.uml b/ba/ba1100c.uml index c5cf1d31c..d294aacf1 100755 --- a/ba/ba1100c.uml +++ b/ba/ba1100c.uml @@ -3,7 +3,7 @@ PAGE "Carico Archivio" -1 -1 70 13 -STRING FLD_INFILE 50 +STRING FLD_INFILE 50 BEGIN PROMPT 2 1 "File di input " HELP "Nome del file dove caricare i dati" @@ -21,18 +21,21 @@ STRING FLD_FS 5 BEGIN PROMPT 2 5 "Separatore di campi " HELP "Carattere separatore dei campi" + FLAGS "P" END -STRING FLD_FD 5 +STRING FLD_FD 5 BEGIN PROMPT 2 7 "Delimitatore di campi " HELP "Carattere delimitatore dei campi" + FLAGS "P" END STRING FLD_RS 5 BEGIN PROMPT 2 9 "Separatore di record " HELP "Carattere delimitatore dei record" + FLAGS "P" END BUTTON DLG_OK 9 2 diff --git a/ba/ba1100d.uml b/ba/ba1100d.uml index abc099c0d..e6a4411f9 100755 --- a/ba/ba1100d.uml +++ b/ba/ba1100d.uml @@ -130,17 +130,17 @@ BEGIN HELP "Descrizione del campo" END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -13 -1 "" END -BUTTON DLG_CANCEL 8 2 +BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -23 -1 "" END -BUTTON DLG_DELREC 8 2 +BUTTON DLG_DELREC 10 2 BEGIN PROMPT -33 -1 "Elimina" MESSAGE EXIT,K_DEL @@ -152,7 +152,7 @@ ENDMASK PAGE "Chiave" -1 -1 79 9 -STRING F_KEXPR 70 +STRING F_KEXPR 70 60 BEGIN PROMPT 1 2 "Espress." HELP "Espressione dell'archivio" @@ -164,17 +164,17 @@ BEGIN PROMPT 1 4 "Chiavi duplicate" END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -13 -1 "" END -BUTTON DLG_CANCEL 8 2 +BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -23 -1 "" END -BUTTON DLG_DELREC 8 2 +BUTTON DLG_DELREC 10 2 BEGIN PROMPT -33 -1 "Elimina" MESSAGE EXIT,K_DEL diff --git a/ba/ba1300a.uml b/ba/ba1300a.uml index dbc78be2b..9f8cb60e2 100755 --- a/ba/ba1300a.uml +++ b/ba/ba1300a.uml @@ -12,43 +12,43 @@ END BOOLEAN F_CONTINUO BEGIN PROMPT 2 2 " Continuo" - MESSAGE TRUE DISABLE,F_ITERAZIONI|RESET,F_ITERAZIONI - MESSAGE FALSE ENABLE,F_ITERAZIONI - HELP "Tipo di test da svolgere" + MESSAGE TRUE DISABLE,F_ITERAZIONI|RESET,F_ITERAZIONI + MESSAGE FALSE ENABLE,F_ITERAZIONI + HELP "Tipo di test da svolgere" END NUMBER F_ITERAZIONI 3 BEGIN PROMPT 2 4 "" - HELP "Numero di iterazioni del test" + HELP "Numero di iterazioni del test" END -TEXT F_LABEL +TEXT F_LABEL BEGIN - PROMPT 9 4 "Iterazioni" + PROMPT 9 4 "Iterazioni" END -BUTTON DLG_FILES 9 2 +BUTTON DLG_FILES 10 2 BEGIN - PROMPT 30 1 "~Files" + PROMPT 29 1 "~Files" MESSAGE EXIT,K_F4 END -BUTTON DLG_REPORT 9 2 -BEGIN - PROMPT 30 3 "~Report" - MESSAGE EXIT,K_F5 -END - -BUTTON DLG_TEST 9 2 +BUTTON DLG_REPORT 10 2 BEGIN - PROMPT 30 5 "~Test" - MESSAGE EXIT,K_ENTER + PROMPT 29 3 "~Report" + MESSAGE EXIT,K_F5 END -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT 30 7 "" +BUTTON DLG_TEST 10 2 +BEGIN + PROMPT 29 5 "~Test" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT 29 7 "" END ENDMASK diff --git a/ba/ba1300b.uml b/ba/ba1300b.uml index 8ce85f0b8..65e64e6c2 100755 --- a/ba/ba1300b.uml +++ b/ba/ba1300b.uml @@ -2,32 +2,32 @@ #include #include "ba1300a.h" -PAGE "Debugging" -1 -1 42 7 +PAGE "Debugging" -1 -1 42 8 NUMBER F_FILE 3 BEGIN PROMPT 2 1 "Numero file " - SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43" - INPUT F_FILE - OUTPUT F_FILE - HELP "Numero del file da esaminare" + SHEET "N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43" + INPUT F_FILE + OUTPUT F_FILE + HELP "Numero del file da esaminare" END STRING F_SEQUENZA 20 BEGIN - PROMPT 2 3 "File Random " + PROMPT 2 3 "File Random " HELP "Nome del file della sequenza" END -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 6 "" +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 6 "" END -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -22 6 "" -END +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT -22 6 "" +END ENDMASK diff --git a/ba/ba2100a.uml b/ba/ba2100a.uml index e7c34d3a2..f0f209f02 100755 --- a/ba/ba2100a.uml +++ b/ba/ba2100a.uml @@ -23,12 +23,12 @@ BEGIN END -BUTTON DLG_OK 9 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_CANCEL 9 2 +BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/ba2100c.uml b/ba/ba2100c.uml index edc09caea..674b7e8a0 100755 --- a/ba/ba2100c.uml +++ b/ba/ba2100c.uml @@ -1,4 +1,4 @@ -PAGE "POSIZIONAMENTO MODULI" -1 -1 49 6 +PAGE "POSIZIONAMENTO MODULI" -1 -1 55 6 TEXT DLG_NULL BEGIN diff --git a/ba/ba2100f.uml b/ba/ba2100f.uml index b812a6437..a7d32506f 100755 --- a/ba/ba2100f.uml +++ b/ba/ba2100f.uml @@ -3,8 +3,8 @@ TOOLBAR "" 0 20 0 2 BUTTON F_OPTIONS 10 2 -BEGIN -PROMPT -13 -1 "Opzioni" +BEGIN +PROMPT -13 -1 "Opzioni" END BUTTON DLG_OK 10 2 @@ -19,7 +19,7 @@ END ENDPAGE -PAGE "CAMPO DI STAMPA" -1 -1 78 21 +PAGE "Parametri di stampa" -1 -1 78 21 LIST F_CLASS 10 BEGIN @@ -126,16 +126,16 @@ END NUMBER F_SPACES 2 BEGIN - PROMPT 1 6 "N. spazi davanti al campo " + PROMPT 1 6 "N. spazi davanti al campo " END BOOLEAN F_FINKL -BEGIN +BEGIN PROMPT 40 6 "Fincatura prima" END BOOLEAN F_FINKR -BEGIN +BEGIN PROMPT 63 6 "Fincatura dopo" END @@ -155,7 +155,7 @@ END LIST F_DFORMAT 16 BEGIN -PROMPT 3 9 "Tipo data " +PROMPT 3 9 "Tipo data " ITEM "1|Giorno Mese Anno" ITEM "2|Mese Giorno Anno" ITEM "3|Anno Mese Giorno" @@ -164,53 +164,53 @@ ITEM "4|Anno" ITEM "5|Mese" ITEM "6|Giorno" GROUP 8 -END +END LIST F_DDAY 16 BEGIN -PROMPT 42 9 "Formato giorno " +PROMPT 42 9 "Formato giorno " ITEM "4|Con zeri(es. 02)" ITEM "2|Normale (es. 2)" ITEM "5|In lettere" ITEM "6|Giorno settimana" GROUP 8 -END +END LIST F_DMONTH 16 BEGIN -PROMPT 3 10 "Formato mese " +PROMPT 3 10 "Formato mese " ITEM "4|Con zeri(es. 02)" ITEM "2|Normale (es. 2)" ITEM "5|In lettere" ITEM "7|Trimestre" GROUP 8 -END +END LIST F_DYEAR 16 BEGIN -PROMPT 42 10 "Formato anno " +PROMPT 42 10 "Formato anno " ITEM "2|Breve (2 cifre)" ITEM "4|Lungo (4 cifre)" GROUP 8 -END +END LIST F_DSEP 5 BEGIN -PROMPT 3 11 "Separatore " +PROMPT 3 11 "Separatore " ITEM "-|-" ITEM "/|/" ITEM ".|." ITEM ",|," ITEM "S|Spazio" GROUP 8 -END +END STRING F_DEXAMPLE 40 BEGIN -PROMPT 28 11 "Esempio " +PROMPT 28 11 "Esempio " FLAGS "D" GROUP 8 -END +END // fine gruppo 8 @@ -219,29 +219,29 @@ STRING F_FILE1 80 60 BEGIN PROMPT 2 13 "Archivio " HELP "Nome dell'archivio relativo al campo" -FLAGS "D" +FLAGS "DB" END -BUTTON F_BUT_FILE1 2 1 -BEGIN -PROMPT 73 13 "*" -PICTURE 109 -GROUP 7 -END +//BUTTON F_BUT_FILE1 2 1 +//BEGIN +//PROMPT 73 13 "*" +//PICTURE 109 +//GROUP 7 +//END STRING F_FIELD1 80 60 BEGIN PROMPT 2 14 "Campo 1 " HELP "Nome del campo su file" -FLAGS "D" +FLAGS "DB" END -BUTTON F_BUT_FIELD1 2 1 -BEGIN -PROMPT 73 14 "*" -PICTURE 109 -GROUP 7 -END +//BUTTON F_BUT_FIELD1 2 1 +//BEGIN +// PROMPT 73 14 "*" +// PICTURE 109 +// GROUP 7 +//END STRING F_FIELDREF1 20 16 BEGIN @@ -253,14 +253,14 @@ NUMBER F_FROM1 2 BEGIN PROMPT 2 15 "Da " FLAGS "U" -GROUP 7 +GROUP 7 END NUMBER F_TO1 2 BEGIN PROMPT 22 15 "A " FLAGS "U" -GROUP 7 +GROUP 7 END @@ -268,29 +268,29 @@ STRING F_FILE2 60 BEGIN PROMPT 2 16 "Archivio " HELP "Nome dell'archivio relativo al campo" -FLAGS "D" +FLAGS "DB" END -BUTTON F_BUT_FILE2 2 1 -BEGIN -PROMPT 73 16 "*" -PICTURE 109 -GROUP 7 -END +//BUTTON F_BUT_FILE2 2 1 +//BEGIN +//PROMPT 73 16 "*" +//PICTURE 109 +//GROUP 7 +//END STRING F_FIELD2 60 BEGIN PROMPT 2 17 "Campo 2 " HELP "Nome del campo su file" -FLAGS "D" +FLAGS "DB" END -BUTTON F_BUT_FIELD2 2 1 -BEGIN -PROMPT 73 17 "*" -PICTURE 109 -GROUP 7 -END +//BUTTON F_BUT_FIELD2 2 1 +//BEGIN +//PROMPT 73 17 "*" +//PICTURE 109 +//GROUP 7 +//END STRING F_FIELDREF2 16 BEGIN @@ -302,24 +302,24 @@ NUMBER F_FROM2 2 BEGIN PROMPT 2 18 "Da " FLAGS "U" -GROUP 7 +GROUP 7 END NUMBER F_TO2 2 BEGIN PROMPT 22 18 "A " FLAGS "U" -GROUP 7 +GROUP 7 END //GROUPBOX DLG_NULL 78 8 -//BEGIN +//BEGIN //PROMPT 1 11 "Campi su file" //END ENDPAGE -PAGE "SUPERPRASSI" -1 -1 78 20 +PAGE "Parametri avanzati" -1 -1 78 20 GROUPBOX DLG_NULL 78 3 BEGIN diff --git a/ba/ba2100s.uml b/ba/ba2100s.uml index 9b6e737e4..5951e7ac5 100755 --- a/ba/ba2100s.uml +++ b/ba/ba2100s.uml @@ -30,20 +30,20 @@ END STRING F_CTP 1 BEGIN -PROMPT 40 3 "Carattere posizionamento" +PROMPT 38 3 "Carattere posizionamento " HELP "Carattere da utilizzare per il posizionamento del modulo" END LIST F_FONT 2 16 -BEGIN +BEGIN PROMPT 3 4 "Font " ITEM "Courier New|Courier New" HELP "Font di stampa su video o stampante" -END +END LIST F_SIZE 3 BEGIN -PROMPT 53 4 "Dimensione " +PROMPT 53 4 "Dimensione " ITEM "12|12" HELP "Dimensioni del carattere di stampa" END @@ -51,7 +51,7 @@ END TEXT DLG_NULL BEGIN -PROMPT 40 5 "Colonne di posizionamento" +PROMPT 38 5 "Colonne di posizionamento" END NUMBER F_IPX 3 @@ -79,28 +79,28 @@ END NUMBER F_Y 3 BEGIN -PROMPT 40 6 "Spostamento verticale " +PROMPT 38 6 "Spostamento verticale " END - -SPREADSHEET F_FIELDS 0 8 -BEGIN - PROMPT 0 8 "" + +SPREADSHEET F_FIELDS 0 8 +BEGIN + PROMPT 0 8 "" ITEM "ID@3" ITEM "Descrizione@40" - ITEM "Pr" + ITEM "Pr" ITEM "Y@2" ITEM "X@3" - ITEM "Lun." - ITEM "Col." + ITEM "Larg." + ITEM "Col." ITEM "Intestazione colonna@40" ITEM "Spazi" ITEM "Finc. sin." ITEM "Finc. dx." - ITEM "Tipo@10" - ITEM "Esempio formato di stampa@45" + ITEM "Tipo@10" + ITEM "Esempio formato di stampa@45" END - + BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" @@ -116,13 +116,13 @@ ENDPAGE ENDMASK -PAGE "Dettaglio campo" -1 -1 65 16 - -NUMBER 101 3 +PAGE "Dettaglio campo" -1 -1 65 16 + +NUMBER 101 3 BEGIN PROMPT 1 1 "ID " -END - +END + STRING 102 80 40 BEGIN PROMPT 1 2 "Descrizione " @@ -137,7 +137,7 @@ END BOOLEAN 103 BEGIN - PROMPT 1 4 "Non Stampare " + PROMPT 1 4 "Non Stampare " END NUMBER 105 3 @@ -154,7 +154,7 @@ END NUMBER 104 2 BEGIN - PROMPT 1 7 "Y " + PROMPT 1 7 "Y " FLAGS "G" END @@ -162,38 +162,38 @@ NUMBER 107 3 BEGIN PROMPT 1 8 "Colonna " FLAGS "G" -END +END NUMBER 109 2 BEGIN PROMPT 1 9 "Spazi inizio " FLAGS "G" -END +END -BOOLEAN 110 +BOOLEAN 110 BEGIN - PROMPT 1 10 "Finc. prima " + PROMPT 1 10 "Finc. prima " FLAGS "G" END -BOOLEAN 111 +BOOLEAN 111 BEGIN - PROMPT 26 10 "Finc. dopo " + PROMPT 26 10 "Finc. dopo " FLAGS "G" END LIST 112 10 BEGIN - PROMPT 1 11 "Tipo " - ITEM "STRINGA|Testo" - ITEM "NUMERO|Numero" - ITEM "DATA|Data" - ITEM "LISTA|Lista" - ITEM "GRUPPO|Gruppo" - ITEM "LINEA|Linea" - ITEM "BOX|Box" + PROMPT 1 11 "Tipo " + ITEM "STRINGA|Testo" + ITEM "NUMERO|Numero" + ITEM "DATA|Data" + ITEM "LISTA|Lista" + ITEM "GRUPPO|Gruppo" + ITEM "LINEA|Linea" + ITEM "BOX|Box" ITEM "FIGURA|Figura" -END +END STRING 113 128 45 BEGIN @@ -203,14 +203,14 @@ END BUTTON 100 10 2 BEGIN PROMPT -14 -1 "Dettaglio" -END - +END + BUTTON DLG_DELREC 10 2 BEGIN PROMPT -24 -1 "~Elimina" MESSAGE EXIT,K_DEL -END - +END + BUTTON DLG_OK 10 2 BEGIN PROMPT -34 -1 "" @@ -221,6 +221,6 @@ BUTTON DLG_CANCEL 10 2 BEGIN PROMPT -44 -1 "" END - + ENDPAGE ENDMASK diff --git a/ba/ba2100u.uml b/ba/ba2100u.uml index 64a5b9e56..4d2bd890b 100755 --- a/ba/ba2100u.uml +++ b/ba/ba2100u.uml @@ -38,14 +38,14 @@ STRING F_FILE1 50 BEGIN PROMPT 2 3 "Archivio " HELP "Nome dell'archivio su cui iterare la sottosezione" -// FLAGS "D" + FLAGS "B" END -BUTTON F_BUT_FILE1 2 1 -BEGIN - PROMPT 63 3 "*" - PICTURE 109 -END +//BUTTON F_BUT_FILE1 2 1 +//BEGIN +// PROMPT 63 3 "*" +// PICTURE 109 +//END STRING F_FIELDREF1 16 BEGIN diff --git a/ba/ba21dt.uml b/ba/ba21dt.uml index f52dae0b9..15a92e7f3 100755 --- a/ba/ba21dt.uml +++ b/ba/ba21dt.uml @@ -2,7 +2,7 @@ PAGE "Impostazione formato date" -1 -1 55 10 -LIST F_DFORMAT 16 +LIST F_DFORMAT 18 BEGIN PROMPT 1 1 "Tipo data " ITEM "1|Giorno Mese Anno" @@ -14,7 +14,7 @@ ITEM "5|Mese" ITEM "6|Giorno" END -LIST F_DDAY 16 +LIST F_DDAY 18 BEGIN PROMPT 1 2 "Formato giorno " ITEM "4|Con zeri(es. 02)" @@ -23,7 +23,7 @@ ITEM "5|In lettere" ITEM "6|Giorno settimana" END -LIST F_DMONTH 16 +LIST F_DMONTH 18 BEGIN PROMPT 1 3 "Formato mese " ITEM "4|Con zeri(es. 02)" @@ -32,14 +32,14 @@ ITEM "5|In lettere" ITEM "7|Trimestre" END -LIST F_DYEAR 16 +LIST F_DYEAR 18 BEGIN PROMPT 1 4 "Formato anno " ITEM "2|Breve (2 cifre)" ITEM "4|Lungo (4 cifre)" END -LIST F_DSEP 5 +LIST F_DSEP 8 BEGIN PROMPT 1 5 "Separatore " ITEM "-|-" diff --git a/ba/ba3300a.uml b/ba/ba3300a.uml index dae8ef8c2..ea709e150 100755 --- a/ba/ba3300a.uml +++ b/ba/ba3300a.uml @@ -4,27 +4,27 @@ PAGE "Stampa fogli libro bollato" -1 -1 76 20 NUMBER F_ANNO 4 BEGIN - PROMPT 3 3 "Anno Riferimento " - HELP "Anno a cui si riferisce il bollato" - USE REG - INPUT CODTAB[1,4] F_ANNO - INPUT CODTAB[5,7] F_CODICE - DISPLAY "Anno " CODTAB[1,4] - DISPLAY "Codice Registro" CODTAB[5,7] - DISPLAY "Descrizione@50" S0 - DISPLAY "Tipo" I0 - OUTPUT F_ANNO CODTAB[1,4] - OUTPUT F_CODICE CODTAB[5,7] - OUTPUT F_REGISTRO S0 - FLAGS "Z" - KEY 1 + PROMPT 3 3 "Anno Riferimento " + HELP "Anno a cui si riferisce il bollato" + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODICE + DISPLAY "Anno " CODTAB[1,4] + DISPLAY "Codice Registro" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + DISPLAY "Tipo" I0 + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_CODICE CODTAB[5,7] + OUTPUT F_REGISTRO S0 + FLAGS "Z" + KEY 1 END STRING F_CODDITTA 5 BEGIN - PROMPT 3 2 "Ditta " - FLAGS "DFR" - KEY 1 + PROMPT 3 2 "Ditta " + FLAGS "DFR" + KEY 1 END STRING F_CODICE 3 @@ -54,14 +54,14 @@ BEGIN END STRING F_RAGSOC 60 50 -BEGIN +BEGIN PROMPT 3 7 "Ragione sociale " HELP "Ragione sociale dell'intestatario del registro" END STRING F_INDIRIZZO 35 BEGIN - PROMPT 3 8 "Indirizzo " + PROMPT 3 8 "Indirizzo " HELP "Indirizzo dell'intestatario del registro" END @@ -95,7 +95,7 @@ BEGIN HELP "Provincia dell'intestatario del registro" END -LIST F_STATO 18 +LIST F_STATO 20 BEGIN PROMPT 3 10 "Stato " FIELD LF_ANAG->STATOPAIV diff --git a/ba/ba3500a.uml b/ba/ba3500a.uml index ffc1bdd66..33f7d65fd 100755 --- a/ba/ba3500a.uml +++ b/ba/ba3500a.uml @@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2 ENDPAGE -PAGE "Tabella libro unico" -1 -1 78 18 +PAGE "Tabella libro unico pag. 1" -1 -1 78 18 NUMBER F_ANNO 4 BEGIN @@ -74,7 +74,7 @@ END ENDPAGE -PAGE "" -1 -1 78 14 +PAGE "Pag. 2" -1 -1 78 14 LIST F_TIPOA 10 BEGIN diff --git a/ba/ba4100a.uml b/ba/ba4100a.uml index df76a4bf1..73aa20f3b 100755 --- a/ba/ba4100a.uml +++ b/ba/ba4100a.uml @@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2 #include ENDPAGE -PAGE "Tabella Comuni 1/2" -1 -1 77 18 +PAGE "Pag. 1" -1 -1 77 18 GROUPBOX DLG_NULL 75 4 BEGIN @@ -243,7 +243,7 @@ END ENDPAGE -PAGE "Tabella Comuni 2/2" -1 -1 77 18 +PAGE "Pag. 2" -1 -1 77 18 GROUPBOX DLG_NULL 75 4 BEGIN @@ -370,7 +370,7 @@ END LIST FLD_CM2_TERRMON 18 BEGIN - PROMPT 34 11 "Territorio montano " + PROMPT 34 11 "Territorio montano " HELP "Codice identificativo di comune residente in territorio montano" FIELD LF_COMUNI->TERRMON ITEMS " |Non montano" diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml index 03dbcc9bf..bd4ed91f9 100755 --- a/ba/ba4200b.uml +++ b/ba/ba4200b.uml @@ -3,13 +3,13 @@ TOOLBAR "" 0 19 0 3 -BUTTON DLG_CHGTIP 21 1 +BUTTON DLG_CHGTIP 25 1 BEGIN PROMPT -13 -3 "Persone Giuridiche" MESSAGE K_F10 END -BUTTON DLG_DITTE 8 1 +BUTTON DLG_DITTE 10 1 BEGIN PROMPT -36 -3 "Ditte" MESSAGE K_F5 @@ -105,7 +105,7 @@ BEGIN PROMPT 13 5 "Partita IVA " END -LIST FLD_AF1_STATOPAIV 18 +LIST FLD_AF1_STATOPAIV 20 BEGIN PROMPT 14 6 "Stato " FIELD LF_ANAG->STATOPAIV @@ -872,7 +872,7 @@ BEGIN PROMPT 36 5 "Eventi di natura eccezionale " HELP "Codice degli eventi di natura eccezionale" FIELD LF_ANAG->EVECC -SHEET "Codice|Descrizione@70" +SHEET "Codice|Descrizione@50" INPUT LST_AF4_EVECC OUTPUT LST_AF4_EVECC ITEM " |Nessuno" diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml index bb53a04cd..372cf9a71 100755 --- a/ba/ba4200c.uml +++ b/ba/ba4200c.uml @@ -2,13 +2,13 @@ TOOLBAR "" 0 19 0 3 -BUTTON DLG_CHGTIP 21 1 +BUTTON DLG_CHGTIP 25 1 BEGIN PROMPT -13 -3 "Persone Fisiche" MESSAGE K_F10 END -BUTTON DLG_DITTE 8 1 +BUTTON DLG_DITTE 10 1 BEGIN PROMPT -36 -3 "Ditte" MESSAGE K_F5 @@ -78,7 +78,7 @@ BEGIN PROMPT 0 4 "Partita IVA " END -LIST FLD_AG1_STATOPAIV 18 +LIST FLD_AG1_STATOPAIV 20 BEGIN PROMPT 2 5 "Stato " FIELD LF_ANAG->STATOPAIV @@ -256,7 +256,7 @@ BEGIN OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM OUTPUT FLD_AG2_CAPRES CAPCOM - HELP "Codice del comune sede della persoan giuridica" + HELP "Codice del comune sede della persona giuridica" CHECKTYPE REQUIRED WARNING "Comune assente" ADD RUN ba4 -0 @@ -985,7 +985,7 @@ BEGIN PROMPT 37 4 "Eventi di natura eccezionale " FIELD LF_ANAG->EVECC HELP "Codice degli eventi naturali eccezionali accaduti alla ditta" - SHEET "Codice|Descrizione@70" + SHEET "Codice|Descrizione@50" INPUT LST_AG5_EVECC OUTPUT LST_AG5_EVECC ITEM " |Nessuno" diff --git a/ba/ba4300a.uml b/ba/ba4300a.uml index 57c23b113..ce33cd9d8 100755 --- a/ba/ba4300a.uml +++ b/ba/ba4300a.uml @@ -2,25 +2,25 @@ TOOLBAR "" 0 19 0 3 -BUTTON DLG_ATT 9 1 +BUTTON DLG_ATT 10 1 BEGIN PROMPT -16 -3 "Attivita'" MESSAGE K_F6 END -BUTTON DLG_ULC 9 1 +BUTTON DLG_ULC 10 1 BEGIN PROMPT -26 -3 "U.Locali" MESSAGE K_F5 END -BUTTON DLG_SOC 9 1 +BUTTON DLG_SOC 10 1 BEGIN PROMPT -36 -3 "Soci" MESSAGE K_F7 END -BUTTON DLG_REG 9 1 +BUTTON DLG_REG 10 1 BEGIN PROMPT -46 -3 "Registri" MESSAGE K_F8 @@ -29,7 +29,13 @@ END #include ENDPAGE -PAGE "Ditte 1/4" -1 -1 77 18 +PAGE "Pag. 1" -1 -1 77 18 + +GROUPBOX DLG_NULL 76 4 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END NUMBER FLD_GD1_CODDITTA 5 BEGIN @@ -62,7 +68,7 @@ BEGIN INPUT CODANAGR FLD_GD1_CODANAGR SELECT INPUT CODDITTA FLD_GD1_CODDITTAH COPY DISPLAY FLD_GD1_CODDITTA - COPY OUTPUT FLD_GD1_CODDITTA + COPY OUTPUT FLD_GD1_CODDITTA CHECKTYPE REQUIRED MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTA END @@ -100,12 +106,6 @@ BEGIN FLAGS "HG" END -GROUPBOX DLG_NULL 76 4 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - GROUPBOX DLG_NULL 76 4 BEGIN PROMPT 0 4 "Anagrafica" @@ -225,7 +225,7 @@ END ENDPAGE -PAGE "Ditte 2/4" -1 -1 77 18 +PAGE "Pag. 2" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -277,7 +277,7 @@ END STRING FLD_GD1_NISCRAA 10 BEGIN - PROMPT 1 10 "Isc.Albo/CAF N." + PROMPT 1 10 "Isc.Albo/CAF N. " FIELD LF_NDITTE->NISCRAA FLAGS "R" HELP "Numero di iscrizione all'albo" @@ -367,7 +367,7 @@ END ENDPAGE -PAGE "Ditte 3/4" -1 -1 77 18 +PAGE "Pag. 3" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -389,7 +389,7 @@ BEGIN GROUP 2 END -LIST LST_GD2_DATLAV 20 +LIST LST_GD2_DATLAV 22 BEGIN PROMPT 1 4 "Datore lavoro " FIELD LF_NDITTE->DATLAV @@ -556,7 +556,7 @@ END ENDPAGE -PAGE "Ditte 4/4" -1 -1 77 18 +PAGE "Pag. 4" -1 -1 77 18 GROUPBOX DLG_NULL 76 4 BEGIN @@ -654,7 +654,7 @@ BEGIN HELP "Indicare se i ricavi sono superiore al 20%" END -LIST FLD_GD3_CARRAPP 21 +LIST FLD_GD3_CARRAPP 23 BEGIN PROMPT 1 8 "Carica " FIELD LF_NDITTE->CARRAPP diff --git a/ba/ba4400a.uml b/ba/ba4400a.uml index 26a8f805d..e0c7b44fe 100755 --- a/ba/ba4400a.uml +++ b/ba/ba4400a.uml @@ -4,12 +4,12 @@ TOOLBAR "" 0 20 0 2 #include ENDPAGE -PAGE "Unita' locali 1/2" -1 -1 77 18 +PAGE "Pag. 1" -1 -1 77 18 GROUPBOX DLG_NULL 76 6 BEGIN PROMPT 0 0 "Unita' locale" - FLAGS "R" + FLAGS "R" END NUMBER FLD_UL1_CODDITTA 5 @@ -92,7 +92,7 @@ BEGIN FIELD LF_UNLOC->COMULC FLAGS "U" USE LF_COMUNI KEY 1 - INPUT STATO "" + INPUT STATO "" INPUT COM FLD_UL1_COMULC #include OUTPUT FLD_UL1_COMULC COM @@ -103,7 +103,7 @@ BEGIN MESSAGE COPY,7@ CHECKTYPE REQUIRED WARNING "Comune assente" - ADD RUN ba4 -0 + ADD RUN ba4 -0 END STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2 @@ -124,17 +124,17 @@ END STRING FLD_UL1_COMULC_COMUNI_DENCOM 50 BEGIN - PROMPT 1 4 "Nome " + PROMPT 1 4 "Nome " HELP "Nome del comune dell'unita' locale" - USE LF_COMUNI KEY 2 SELECT STATO="" - INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM + USE LF_COMUNI KEY 2 SELECT STATO="" + INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM #include - OUTPUT FLD_UL1_COMULC COM - OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM - OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_UL1_CAPULC CAPCOM - MESSAGE COPY,10@ - ADD RUN ba4 -0 + OUTPUT FLD_UL1_COMULC COM + OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM + OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_UL1_CAPULC CAPCOM + MESSAGE COPY,10@ + ADD RUN ba4 -0 END GROUPBOX DLG_NULL 76 6 @@ -147,7 +147,7 @@ BEGIN PROMPT 1 7 "Numero " FIELD LF_UNLOC->NUMCCIAA FLAGS "R" - HELP "Numero autorizzazione alla camera di commercio" + HELP "Numero autorizzazione alla camera di commercio" END DATE FLD_UL1_DATAICCIAA @@ -167,46 +167,46 @@ END DATE FLD_UL1_DATAVCCIAA BEGIN - PROMPT 40 8 "Data ultima variazione " - FIELD LF_UNLOC->DATAVCCIAA + PROMPT 40 8 "Data ultima variazione " + FIELD LF_UNLOC->DATAVCCIAA HELP "Data dell'ultima variazione alla camera di commercio" - WARNING "Data non corretta" - VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA + WARNING "Data non corretta" + VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA END STRING FLD_UL1_COMCCIAA 4 BEGIN - PROMPT 1 9 "Comune " - FIELD LF_UNLOC->COMCCIAA - FLAGS "U" - GROUP 1 - COPY USE FLD_UL1_COMULC - INPUT STATO "" - INPUT COM FLD_UL1_COMCCIAA - COPY DISPLAY FLD_UL1_COMULC - OUTPUT FLD_UL1_COMCCIAA COM - OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM + PROMPT 1 9 "Comune " + FIELD LF_UNLOC->COMCCIAA + FLAGS "U" + GROUP 1 + COPY USE FLD_UL1_COMULC + INPUT STATO "" + INPUT COM FLD_UL1_COMCCIAA + COPY DISPLAY FLD_UL1_COMULC + OUTPUT FLD_UL1_COMCCIAA COM + OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM HELP "Codice del comune della camera di commercio" - CHECKTYPE NORMAL - WARNING "Comune assente" - VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC + CHECKTYPE NORMAL + WARNING "Comune assente" + VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC END STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50 BEGIN - PROMPT 1 10 "Nome " + PROMPT 1 10 "Nome " HELP "Nome del comune delle camera di commercio" - COPY USE FLD_UL1_COMULC_COMUNI_DENCOM - INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM - COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM - OUTPUT FLD_UL1_COMCCIAA COM - OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM - ADD RUN ba4 -0 + COPY USE FLD_UL1_COMULC_COMUNI_DENCOM + INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM + COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM + OUTPUT FLD_UL1_COMCCIAA COM + OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM + ADD RUN ba4 -0 END GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 0 12 "Autorizzazioni" + PROMPT 0 12 "Autorizzazioni" END STRING FLD_UL1_NUMREC 7 @@ -219,8 +219,8 @@ END STRING FLD_UL1_AUTCOM 5 BEGIN - PROMPT 50 13 "N. comunale " - FIELD LF_UNLOC->AUTCOM + PROMPT 50 13 "N. comunale " + FIELD LF_UNLOC->AUTCOM FLAGS "R" HELP "Numero dell'autorizzazione comunale all'esercizio" END @@ -242,12 +242,12 @@ END ENDPAGE -PAGE "Unita' locali 2/2" -1 -1 77 18 +PAGE "Pag. 2" -1 -1 77 18 GROUPBOX DLG_NULL 76 6 BEGIN PROMPT 0 0 "Unita' locale" - FLAGS "R" + FLAGS "R" END NUMBER DLG_NULL 5 @@ -287,7 +287,7 @@ END STRING DLG_NULL 4 BEGIN - PROMPT 1 3 "Comune " + PROMPT 1 3 "Comune " FLAGS "D" GROUP 7 END @@ -383,7 +383,7 @@ END STRING FLD_UL2_CAPTRIB 5 BEGIN - PROMPT 57 11 "CAP " + PROMPT 57 11 "CAP " FIELD LF_UNLOC->CAPTRIB FLAGS "RZ" HELP "CAP del comune del tribunale" diff --git a/ba/ba4500a.uml b/ba/ba4500a.uml index c08c3b3e9..b1589a5e7 100755 --- a/ba/ba4500a.uml +++ b/ba/ba4500a.uml @@ -4,7 +4,13 @@ TOOLBAR "" 0 20 0 2 #include ENDPAGE -PAGE "Attivita' 1/2" -1 -1 77 20 +PAGE "Pag. 1" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 6 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END STRING FLD_AT1_CODDITTA 5 BEGIN @@ -107,12 +113,6 @@ BEGIN HELP "Nome dell'attivita'" END -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - NUMBER FLD_AT1_OLDCODATT 4 BEGIN PROMPT 1 6 "Vecchio codice " @@ -293,7 +293,13 @@ END ENDPAGE -PAGE "Attivita' 2/2" -1 -1 77 20 +PAGE "Pag. 2" -1 -1 77 20 + +GROUPBOX DLG_NULL 76 6 +BEGIN + PROMPT 0 0 "" + FLAGS "R" +END STRING DLG_NULL 5 BEGIN @@ -330,12 +336,6 @@ BEGIN GROUP 4 END -GROUPBOX DLG_NULL 76 6 -BEGIN - PROMPT 0 0 "" - FLAGS "R" -END - TEXT DLG_NULL BEGIN PROMPT 1 11 "Indirizzo (Solo se diverso)" @@ -346,7 +346,7 @@ BEGIN PROMPT 0 6 "Tenuta Registri Contabili" END -LIST LST_AT2_TIPOADS 9 +LIST LST_AT2_TIPOADS 10 BEGIN PROMPT 1 7 "Depositario : Tipo " FIELD LF_ATTIV->TIPOADS diff --git a/ba/ba4600a.uml b/ba/ba4600a.uml index f7bbf1500..e6dbb86a2 100755 --- a/ba/ba4600a.uml +++ b/ba/ba4600a.uml @@ -4,14 +4,14 @@ TOOLBAR "" 0 20 0 2 #include ENDPAGE -PAGE "Soci 1/2" -1 -1 77 20 +PAGE "Pag.1" -1 -1 77 20 GROUPBOX DLG_NULL 76 7 BEGIN PROMPT 0 0 "" FLAGS "R" END - + NUMBER FLD_SC1_CODDITTA 5 BEGIN PROMPT 1 1 "Ditta " @@ -70,7 +70,7 @@ END NUMBER FLD_SC1_CODANAGRSOH 5 BEGIN - PROMPT 30 4 "Codice " + PROMPT 31 4 "Codice " FIELD LF_SOCI->CODANAGRSO FLAGS "R" KEY 1 @@ -98,7 +98,7 @@ END NUMBER FLD_SC1_CODANAGRSO 5 BEGIN - PROMPT 30 4 "Codice " + PROMPT 31 4 "Codice " FIELD LF_SOCI->CODANAGRSO FLAGS "RG" KEY 1 @@ -121,7 +121,7 @@ STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50 BEGIN PROMPT 7 5 ": Nome " HELP "Nome dell'anagrafica del socio" - KEY 1 + KEY 2 USE LF_ANAG KEY 2 FLAGS "GP" INPUT TIPOA LST_SC1_TIPOASOC @@ -179,7 +179,7 @@ END NUMBER FLD_SC1_PERCQUAZ 7 3 BEGIN - PROMPT 23 10 "%Proprieta' " + PROMPT 26 10 "%Proprieta' " FIELD LF_SOCI->PERCQUAZ FLAGS "R" HELP "Percentuale delle azioni possedute dal socio" @@ -189,7 +189,7 @@ END NUMBER FLD_SC1_PERCAZREDD 7 3 BEGIN - PROMPT 45 10 "%Reddito da quota az." + PROMPT 50 10 "%Reddito " FIELD LF_SOCI->PERCAZREDD FLAGS "R" HELP "Reddito derivante da quote aziendali" @@ -199,7 +199,7 @@ END NUMBER FLD_SC1_PERCAZPERD 7 3 BEGIN - PROMPT 45 11 "%Perdita da quota az." + PROMPT 50 11 "%Perdita " FIELD LF_SOCI->PERCAZPERD FLAGS "R" HELP "Perdita derivante da quote aziendali" @@ -209,7 +209,7 @@ END LIST LST_SC1_RICQUAL 28 BEGIN - PROMPT 1 13 "R.qualifica " + PROMPT 1 13 "R.qualifica " FIELD LF_SOCI->RICQUAL HELP "Qualifica del socio" ITEM " |Nessuna" @@ -221,7 +221,7 @@ END NUMBER FLD_SC1_EMOLUMENTO 15 BEGIN - PROMPT 47 13 "Emolumento " + PROMPT 47 13 "Emolumento " FIELD LF_SOCI->EMOLUMENTO FLAGS "R" PICTURE "." @@ -230,7 +230,7 @@ END LIST LST_SC1_PROP 1 24 BEGIN - PROMPT 1 14 "Titoli proprieta' " + PROMPT 1 14 "Titoli proprieta' " FIELD LF_SOCI->TITPROP ITEM "1|Intestatario" ITEM "2|Riportatore" @@ -244,7 +244,7 @@ END LIST LST_SC1_TIPOAZ 1 16 BEGIN - PROMPT 45 14 "Tipo azioni " + PROMPT 47 14 "Tipo azioni " FIELD LF_SOCI->TIPOAZ ITEM "O|Ordinarie" ITEM "P|Privilegiate" @@ -252,6 +252,11 @@ BEGIN HELP "Tipo di azioni posseduta dal socio" END +GROUPBOX DLG_NULL 76 3 +BEGIN + PROMPT 0 15 "Ultimo aggiornamento" +END + DATE FLD_SC1_DATAGG BEGIN PROMPT 1 16 "Data " @@ -259,11 +264,6 @@ BEGIN FLAGS "DA" END -GROUPBOX DLG_NULL 76 3 -BEGIN - PROMPT 0 15 "Ultimo aggiornamento" -END - STRING F_UTENTE 10 BEGIN PROMPT 45 16 "Utente " @@ -272,7 +272,7 @@ END ENDPAGE -PAGE "Soci 2/2" -1 -1 77 20 +PAGE "Pag. 2" -1 -1 77 20 GROUPBOX DLG_NULL 76 7 BEGIN @@ -294,7 +294,7 @@ BEGIN GROUP 3 END -LIST DLG_NULL 9 +LIST DLG_NULL 12 BEGIN PROMPT 1 4 "Socio : Tipo " FLAGS "D" @@ -314,14 +314,14 @@ END NUMBER DLG_NULL 5 BEGIN - PROMPT 30 4 "Codice " + PROMPT 31 4 "Codice " FLAGS "RD" GROUP 5 END STRING DLG_NULL 50 BEGIN - PROMPT 7 5 ": Nome " + PROMPT 9 5 "Nome " FLAGS "D" GROUP 6 END @@ -388,9 +388,14 @@ BEGIN NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} END +TEXT DLG_NULL +BEGIN + PROMPT 1 12 "Codice del dichiarante nel caso in cui il socio sia codichiarante" +END + NUMBER FLD_SC2_CODANAGCON 5 BEGIN - PROMPT 1 12 "Coniuge: Codice " + PROMPT 10 14 "Codice " FIELD LF_SOCI->CODANAGCON FLAGS "R" GROUP 1 @@ -409,7 +414,7 @@ END STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50 BEGIN - PROMPT 8 13 ": Nome " + PROMPT 10 15 "Nome " HELP "Nome del coniuge del socio" USE LF_ANAG KEY 2 INPUT TIPOA "F" @@ -423,7 +428,7 @@ END STRING FLD_SC2_NOTE 60 BEGIN - PROMPT 1 15 "Note " + PROMPT 1 17 "Note " FIELD LF_SOCI->NOTE HELP "Eventuali note riferite al socio" END diff --git a/ba/ba6100b.uml b/ba/ba6100b.uml index 01f7d1abd..e6e46a7a3 100755 --- a/ba/ba6100b.uml +++ b/ba/ba6100b.uml @@ -3,110 +3,110 @@ PAGE "Impostazione Etichette" -1 -1 57 15 TEXT DLG_NULL BEGIN - PROMPT 39 1 "Riga" + PROMPT 39 1 "Riga" END TEXT DLG_NULL BEGIN - PROMPT 47 1 "Colonna" + PROMPT 47 1 "Colonna" END RADIOBUTTON RDB_BA6B_INDIR 23 BEGIN - PROMPT 4 1 "Indirizzo" - ITEM "1|Residenza" - ITEM "2|Domicilio fiscale" - ITEM "3|Corrispondenza" + PROMPT 4 1 "Indirizzo" + ITEM "1|Residenza" + ITEM "2|Domicilio fiscale" + ITEM "3|Corrispondenza" HELP "Indicare l'indirizzo da includere nelle etichette" END NUMBER FLD_BA6B_INDROW 4 BEGIN - PROMPT 39 2 "" - HELP "N. di riga dove posizionare l'indirizzo" + PROMPT 39 2 "" + HELP "N. di riga dove posizionare l'indirizzo" END NUMBER FLD_BA6B_INDCOL 4 BEGIN - PROMPT 47 2 "" - HELP "N. di colonna dove posizionare l'indirizzo" + PROMPT 47 2 "" + HELP "N. di colonna dove posizionare l'indirizzo" END BOOLEAN CHK_BA6B_PIVA BEGIN - PROMPT 4 7 "Partita IVA/ Codice fiscale" - MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL - MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL + PROMPT 4 7 "Partita IVA/ Codice fiscale" + MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL + MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL HELP "Indicare se stampare la Partita IVA/Codice fiscale" END NUMBER FLD_BA6B_PIVROW 4 BEGIN - PROMPT 39 7 "" - FLAGS "D" - HELP "N. di riga dove posizionare la partita IVA" + PROMPT 39 7 "" + FLAGS "D" + HELP "N. di riga dove posizionare la partita IVA" END NUMBER FLD_BA6B_PIVCOL 4 BEGIN - PROMPT 47 7 "" - FLAGS "D" - HELP "N. di colonna dove posizionare la partita IVA" + PROMPT 47 7 "" + FLAGS "D" + HELP "N. di colonna dove posizionare la partita IVA" END BOOLEAN CHK_BA6B_CODICE BEGIN - PROMPT 4 8 "Includi codice anagrafico" - MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL - MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL + PROMPT 4 8 "Includi codice anagrafico" + MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL + MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL HELP "Indicare se stampare il codice anagrafico" END NUMBER FLD_BA6B_CODROW 4 BEGIN - PROMPT 39 8 "" - FLAGS "D" - HELP "N. di riga dove posizionare il codice" + PROMPT 39 8 "" + FLAGS "D" + HELP "N. di riga dove posizionare il codice" END NUMBER FLD_BA6B_CODCOL 4 BEGIN - PROMPT 47 8 "" - FLAGS "D" - HELP "N. di colonna dove posizionare il codice" + PROMPT 47 8 "" + FLAGS "D" + HELP "N. di colonna dove posizionare il codice" END NUMBER FLD_BA6B_TOTROW 4 BEGIN - PROMPT 4 10 "Numero totale di righe e colonne " + PROMPT 4 10 "Numero totale di righe e colonne " HELP "Totale righe (altezza dell'etichetta)" END NUMBER FLD_BA6B_TOTCOL 4 BEGIN - PROMPT 47 10 "" + PROMPT 47 10 "" HELP "Totale colonne (larghezza dell'etichetta)" END BOOLEAN CHK_BA6B_SAVE BEGIN - PROMPT 4 11 "Salva impostazioni" + PROMPT 4 11 "Salva impostazioni" HELP "Indicare se ritorvare le impostazioni successivamente" END -BUTTON DLG_OK 9 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -13 -1 "Conferma" + PROMPT -13 -1 "Conferma" END -BUTTON DLG_CANCEL 9 2 +BUTTON DLG_CANCEL 10 2 BEGIN - PROMPT -23 -1 "Annulla" + PROMPT -23 -1 "Annulla" END -BUTTON BUT_BA6B_RESET 9 2 +BUTTON BUT_BA6B_RESET 10 2 BEGIN - PROMPT -33 -1 "~Reset" + PROMPT -33 -1 "~Reset" END ENDPAGE diff --git a/ba/ba6200a.uml b/ba/ba6200a.uml index 25db8d223..c2edd2d68 100755 --- a/ba/ba6200a.uml +++ b/ba/ba6200a.uml @@ -1,6 +1,6 @@ #include "ba6200.h" -PAGE "" -1 -1 65 16 +PAGE "" -1 -1 67 16 RADIOBUTTON F_SCELTA 25 BEGIN diff --git a/ba/bastabe.uml b/ba/bastabe.uml index 7a06d4dbc..0f92a135c 100755 --- a/ba/bastabe.uml +++ b/ba/bastabe.uml @@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastage.uml b/ba/bastage.uml index 2803c391e..4db93a532 100755 --- a/ba/bastage.uml +++ b/ba/bastage.uml @@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastais.uml b/ba/bastais.uml index 6ac20b378..ed43df4df 100755 --- a/ba/bastais.uml +++ b/ba/bastais.uml @@ -29,12 +29,12 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastasf.uml b/ba/bastasf.uml index 5db688528..45b22fe36 100755 --- a/ba/bastasf.uml +++ b/ba/bastasf.uml @@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastban.uml b/ba/bastban.uml index ca9ffbe3a..4cd1360ae 100755 --- a/ba/bastban.uml +++ b/ba/bastban.uml @@ -4,9 +4,9 @@ PAGE "Stampa banche" -1 -1 56 8 STRING F_INIZIO1 5 BEGIN - PROMPT 2 1 "DA codice (ABI) " - FLAGS "RZ" - HELP "Inserire il codice d'inizio " + PROMPT 2 1 "DA codice (ABI) " + FLAGS "RZ" + HELP "Inserire il codice d'inizio " FIELD LF_TABCOM->CODTAB[1,5] USE %BAN INPUT CODTAB[1,5] F_INIZIO1 @@ -17,54 +17,54 @@ BEGIN DISPLAY "Dipendenza@35" S1 OUTPUT F_INIZIO1 CODTAB[1,5] OUTPUT F_INIZIO2 CODTAB[6,10] - GROUP 1 + GROUP 1 END STRING F_INIZIO2 5 BEGIN - PROMPT 28 1 "DA codice (CAB) " - FLAGS "RZ" - HELP "Inserire il codice d'inizio " + PROMPT 28 1 "DA codice (CAB) " + FLAGS "RZ" + HELP "Inserire il codice d'inizio " FIELD LF_TABCOM->CODTAB[6,10] - COPY ALL F_INIZIO1 - GROUP 1 + COPY ALL F_INIZIO1 + GROUP 1 END STRING F_FINE1 5 BEGIN - PROMPT 2 3 "A codice (ABI) " - FLAGS "RZ" - HELP "Inserire il codice di fine " + PROMPT 2 3 "A codice (ABI) " + FLAGS "RZ" + HELP "Inserire il codice di fine " FIELD LF_TABCOM->CODTAB[1,5] - COPY USE F_INIZIO1 + COPY USE F_INIZIO1 INPUT CODTAB[1,5] F_FINE1 INPUT CODTAB[6,10] F_FINE2 - COPY DISPLAY F_INIZIO1 + COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB[1,5] OUTPUT F_FINE2 CODTAB[6,10] - GROUP 2 + GROUP 2 END STRING F_FINE2 5 BEGIN - PROMPT 28 3 "A codice (CAB) " - FLAGS "RZ" - HELP "Inserire il codice di fine " + PROMPT 28 3 "A codice (CAB) " + FLAGS "RZ" + HELP "Inserire il codice di fine " FIELD LF_TABCOM->CODTAB[6,10] - COPY ALL F_FINE1 - GROUP 2 + COPY ALL F_FINE1 + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastcam.uml b/ba/bastcam.uml index c76410504..e90ead291 100755 --- a/ba/bastcam.uml +++ b/ba/bastcam.uml @@ -15,17 +15,18 @@ BEGIN DISPLAY "Data valuta" D0 DISPLAY "Descrizione@50" -200->S0 OUTPUT F_INIZIO1 CODTAB[1,3] - OUTPUT F_INIZIO2 CODTAB[4,11] + OUTPUT F_INIZIO2 CODTAB[4,14] GROUP 1 END DATE F_INIZIO2 BEGIN - PROMPT 28 1 "Da data " - HELP "Inserire la data iniziale" - FIELD LF_TABCOM->CODTAB[4,11] - COPY ALL F_INIZIO1 - GROUP 1 + PROMPT 28 1 "Da data " + HELP "Inserire la data iniziale" + FIELD LF_TABCOM->CODTAB[4,11] + COPY ALL F_INIZIO1 + FLAGS "R" + GROUP 1 END STRING F_FINE1 3 @@ -47,21 +48,22 @@ END DATE F_FINE2 BEGIN - PROMPT 28 3 "A data " - HELP "Inserire la data finale " - FIELD LF_TABCOM->CODTAB[4,11] - COPY ALL F_FINE1 - GROUP 2 + PROMPT 28 3 "A data " + HELP "Inserire la data finale " + FIELD LF_TABCOM->CODTAB[4,11] + FLAGS "R" + COPY ALL F_FINE1 + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastcco.uml b/ba/bastcco.uml index 6cb1170c3..b3b9a2a20 100755 --- a/ba/bastcco.uml +++ b/ba/bastcco.uml @@ -3,39 +3,39 @@ PAGE "Stampa Categorie contabili" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %CCO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %CCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastcfi.uml b/ba/bastcfi.uml index 98093a396..42bdbc736 100755 --- a/ba/bastcfi.uml +++ b/ba/bastcfi.uml @@ -3,39 +3,39 @@ PAGE "Stampa Categorie finanziarie" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %CFI - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %CFI + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastclr.uml b/ba/bastclr.uml index 4fab7d3fa..a7a4c263e 100755 --- a/ba/bastclr.uml +++ b/ba/bastclr.uml @@ -76,14 +76,14 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastcpg.uml b/ba/bastcpg.uml index 157b1bf58..f5f36d8ce 100755 --- a/ba/bastcpg.uml +++ b/ba/bastcpg.uml @@ -29,14 +29,14 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastcrs.uml b/ba/bastcrs.uml index 540b27625..4ebf6b594 100755 --- a/ba/bastcrs.uml +++ b/ba/bastcrs.uml @@ -4,39 +4,39 @@ PAGE "Stampa cariche sociali" -1 -1 50 8 STRING F_INIZIO1 2 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" + PROMPT 2 1 "Da codice " + FLAGS "RZ" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %CRS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Carica@25" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %CRS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Carica@25" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 2 BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" + PROMPT 2 3 "A codice " + FLAGS "RZ" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastctr.uml b/ba/bastctr.uml index 4ec9de1ff..fce737e11 100755 --- a/ba/bastctr.uml +++ b/ba/bastctr.uml @@ -6,7 +6,7 @@ BEGIN PROMPT 2 1 "Da codice " FLAGS "U" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" -FIELD LF_TABCOM->CODTAB +FIELD CODTAB USE %CTR INPUT CODTAB F_INIZIO1 DISPLAY "Codice" CODTAB @@ -20,7 +20,7 @@ BEGIN PROMPT 2 3 "A codice " FLAGS "U" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" -FIELD LF_TABCOM->CODTAB +FIELD CODTAB COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 COPY DISPLAY F_INIZIO1 @@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastcve.uml b/ba/bastcve.uml index 0e1f4d0b0..7e761c059 100755 --- a/ba/bastcve.uml +++ b/ba/bastcve.uml @@ -3,42 +3,42 @@ PAGE "Stampa Categorie Vendita" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - FIELD LF_TABCOM->CODTAB - USE %CVE - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Provvigione" R0 - DISPLAY "Gruppo" I1 - DISPLAY "Conto" I2 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD CODTAB + USE %CVE + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Codice di fine. Vuoto = fine archivio" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastdpn.uml b/ba/bastdpn.uml index e7f6f05ab..69d71ee57 100755 --- a/ba/bastdpn.uml +++ b/ba/bastdpn.uml @@ -19,22 +19,22 @@ STRING F_FINE1 5 BEGIN PROMPT 4 3 "A codice " FLAGS "U" - COPY USE F_INIZIO1 + COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 + COPY DISPLAY F_INIZIO1 FIELD CODTAB OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastesc.uml b/ba/bastesc.uml index f1543b872..241fc4706 100755 --- a/ba/bastesc.uml +++ b/ba/bastesc.uml @@ -10,50 +10,40 @@ END NUMBER F_INIZIO1 4 BEGIN - PROMPT 2 3 "Da anno " + PROMPT 2 3 "Da anno " HELP "Anno esercizio con cui iniziare la stampa" FIELD LF_TAB->CODTAB FLAGS "ZR" - USE ESC KEY 1 - INPUT CODTAB F_INIZIO1 - DISPLAY "Anno esercizio" CODTAB - DISPLAY "Data inizio esercizio" D0 + USE ESC KEY 1 + INPUT CODTAB F_INIZIO1 + DISPLAY "Anno esercizio" CODTAB + DISPLAY "Data inizio esercizio" D0 DISPLAY "Data fine esercizio" D1 OUTPUT F_INIZIO1 CODTAB - GROUP 1 + GROUP 1 END NUMBER F_FINE1 4 BEGIN - PROMPT 25 3 "a anno " + PROMPT 25 3 "a anno " HELP "Anno esercizio con cui finire la stampa" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 + COPY USE F_INIZIO1 FLAGS "ZR" - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB - GROUP 2 + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -2 "" + PROMPT -12 -2 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -2 "" -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -2 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -2 "" + PROMPT -22 -2 "" END ENDPAGE diff --git a/ba/bastitl.uml b/ba/bastitl.uml index 5a901a67b..c5844505c 100755 --- a/ba/bastitl.uml +++ b/ba/bastitl.uml @@ -27,14 +27,14 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastiva.uml b/ba/bastiva.uml index 58d53863d..e43a63cea 100755 --- a/ba/bastiva.uml +++ b/ba/bastiva.uml @@ -4,41 +4,41 @@ PAGE "Stampa codici IVA" -1 -1 50 8 STRING F_INIZIO1 4 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio" + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio" FIELD LF_TABCOM->CODTAB - USE %IVA - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 + USE %IVA + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 OUTPUT F_INIZIO1 CODTAB - GROUP 1 + GROUP 1 VALIDATE ZEROFILL_FUNC 2 END STRING F_FINE1 4 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo" + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB - GROUP 2 - VALIDATE ZEROFILL_FUNC 2 + GROUP 2 + VALIDATE ZEROFILL_FUNC 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastleg.uml b/ba/bastleg.uml index da1b377f7..08eb78aed 100755 --- a/ba/bastleg.uml +++ b/ba/bastleg.uml @@ -3,39 +3,39 @@ PAGE "Stampa Legali" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %LEG - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %LEG + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastlis.uml b/ba/bastlis.uml index 256a0ba46..8dbc06a2c 100755 --- a/ba/bastlis.uml +++ b/ba/bastlis.uml @@ -3,39 +3,39 @@ PAGE "Stampa listini" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %LIS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %LIS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastlng.uml b/ba/bastlng.uml index 62ce3fe7f..48bf0a330 100755 --- a/ba/bastlng.uml +++ b/ba/bastlng.uml @@ -27,14 +27,14 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastmsp.uml b/ba/bastmsp.uml index a6156cd1d..c0128ebf0 100755 --- a/ba/bastmsp.uml +++ b/ba/bastmsp.uml @@ -3,39 +3,39 @@ PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %MSP - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %MSP + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastndo.uml b/ba/bastndo.uml index 69d6bda07..fec3cf242 100755 --- a/ba/bastndo.uml +++ b/ba/bastndo.uml @@ -3,39 +3,39 @@ PAGE "Stampa Note documento" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %NDO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %NDO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastnot.uml b/ba/bastnot.uml index 3cf40e384..1e14c587e 100755 --- a/ba/bastnot.uml +++ b/ba/bastnot.uml @@ -3,41 +3,41 @@ PAGE "Stampa Codici note" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %NOT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Destinazione@30" S0 - DISPLAY "Blocca imm." B0 - DISPLAY "Documento" B1 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %NOT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Destinazione@30" S0 + DISPLAY "Blocca imm." B0 + DISPLAY "Documento" B1 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastois.uml b/ba/bastois.uml index 3356addd6..254e17351 100755 --- a/ba/bastois.uml +++ b/ba/bastois.uml @@ -56,14 +56,14 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastpor.uml b/ba/bastpor.uml index e314effbd..1b6446ce6 100755 --- a/ba/bastpor.uml +++ b/ba/bastpor.uml @@ -3,39 +3,39 @@ PAGE "Stampa Modalita' di consegna" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %POR - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %POR + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastreg.uml b/ba/bastreg.uml index 054975363..574ba7630 100755 --- a/ba/bastreg.uml +++ b/ba/bastreg.uml @@ -1,4 +1,4 @@ -#include "ba3200.h" +#include "ba3200.h" PAGE "Stampa registri" -1 -1 74 8 @@ -32,31 +32,12 @@ NUMBER F_INIZIO2 4 BEGIN PROMPT 1 4 "Stampa i registri dell'anno " FLAGS "RZ" -// FLAGS "A" FIELD CODTAB[1,4] HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri" MESSAGE COPY, F_FINE2 GROUP 1 END -/* -STRING F_INIZIO1 3 -BEGIN - PROMPT 19 4 "Da registro " - FLAGS "U" - USE REG - INPUT CODTAB[1,4] F_INIZIO2 - INPUT CODTAB[5,7] F_INIZIO1 - DISPLAY "Codice" CODTAB[5,7] - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Descrizione @50" S0 - OUTPUT F_INIZIO1 CODTAB[5,7] -// OUTPUT F_INIZIO2 CODTAB[1,4] - FIELD CODTAB[5,7] - GROUP 1 -END - -**************/ NUMBER F_FINE2 4 BEGIN @@ -65,23 +46,6 @@ BEGIN GROUP 2 END -/********** -STRING F_FINE1 3 -BEGIN - PROMPT 44 4 "A registro " - FLAGS "U" - USE REG - INPUT CODTAB[1,4] F_FINE2 - INPUT CODTAB[5,7] F_FINE1 - DISPLAY "Codice" CODTAB[5,7] - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Descrizione @50" S0 - OUTPUT F_FINE1 CODTAB[5,7] -// OUTPUT F_FINE2 CODTAB[1,4] - FIELD CODTAB[5,7] - GROUP 2 -END -*****************/ BUTTON DLG_PRINT 10 2 BEGIN diff --git a/ba/bastsad.uml b/ba/bastsad.uml index 42af00b2a..3aa926749 100755 --- a/ba/bastsad.uml +++ b/ba/bastsad.uml @@ -3,39 +3,39 @@ PAGE "Stampa Spese da addebitare" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %SAD - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@20" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %SAD + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@20" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastscc.uml b/ba/bastscc.uml index 0a3142bc1..fe2518861 100755 --- a/ba/bastscc.uml +++ b/ba/bastscc.uml @@ -3,39 +3,39 @@ PAGE "Stampa sconti clienti" -1 -1 50 8 STRING F_INIZIO1 2 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" FIELD LF_TABCOM->CODTAB - USE %SCC - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %SCC + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 2 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/baststa.uml b/ba/baststa.uml index 22ec5f68c..c7f4e1472 100755 --- a/ba/baststa.uml +++ b/ba/baststa.uml @@ -4,39 +4,39 @@ PAGE "Stampa stati" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" + PROMPT 2 1 "Da codice " + FLAGS "RZ" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %STA - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %STA + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" + PROMPT 2 3 "A codice " + FLAGS "RZ" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/baststt.uml b/ba/baststt.uml index 42fb21078..7257deefe 100755 --- a/ba/baststt.uml +++ b/ba/baststt.uml @@ -4,37 +4,37 @@ PAGE "Stampa codici statistici" -1 -1 50 8 STRING F_INIZIO1 7 BEGIN - PROMPT 2 1 "Da codice " + PROMPT 2 1 "Da codice " HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %STT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %STT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 7 BEGIN - PROMPT 2 3 "A codice " + PROMPT 2 3 "A codice " HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastsua.uml b/ba/bastsua.uml index 720ea739a..3fc34d5ac 100755 --- a/ba/bastsua.uml +++ b/ba/bastsua.uml @@ -4,71 +4,71 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8 STRING F_INIZIO1 2 BEGIN - PROMPT 2 1 "Da cod. agente " - HELP "Inserire il codice d'inizio " - FIELD LF_TABCOM->CODTAB[1,2] + PROMPT 2 1 "Da cod. agente " + HELP "Inserire il codice d'inizio " + FIELD LF_TABCOM->CODTAB[1,2] USE %AGE INPUT CODTAB[1,2] F_INIZIO1 DISPLAY "Codice Agente" CODTAB[1,2] DISPLAY "Descrizione@50" S0 OUTPUT F_INIZIO1 CODTAB[1,2] - GROUP 1 + GROUP 1 END STRING F_INIZIO2 2 BEGIN - PROMPT 28 1 "Da cod. subagente " - HELP "Inserire il codice d'inizio " - FIELD LF_TABCOM->CODTAB[3,4] - USE %SUA - INPUT CODTAB[1,2] F_INIZIO1 - INPUT CODTAB[3,4] F_INIZIO2 - DISPLAY "Codice Agente" CODTAB[1,2] - DISPLAY "Codice SubAgente" CODTAB[3,4] - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB[1,2] - OUTPUT F_INIZIO2 CODTAB[3,4] - GROUP 1 + PROMPT 28 1 "Da cod. subagente " + HELP "Inserire il codice d'inizio " + FIELD LF_TABCOM->CODTAB[3,4] + USE %SUA + INPUT CODTAB[1,2] F_INIZIO1 + INPUT CODTAB[3,4] F_INIZIO2 + DISPLAY "Codice Agente" CODTAB[1,2] + DISPLAY "Codice SubAgente" CODTAB[3,4] + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB[1,2] + OUTPUT F_INIZIO2 CODTAB[3,4] + GROUP 1 END STRING F_FINE1 2 BEGIN - PROMPT 2 3 "A codice agente " - HELP "Inserire il codice di fine " + PROMPT 2 3 "A codice agente " + HELP "Inserire il codice di fine " FIELD LF_TABCOM->CODTAB[1,2] - COPY USE F_INIZIO1 + COPY USE F_INIZIO1 INPUT CODTAB[1,2] F_FINE1 - COPY DISPLAY F_INIZIO1 + COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB[1,2] - GROUP 2 + GROUP 2 END STRING F_FINE2 2 BEGIN - PROMPT 28 3 "A codice subagente " - HELP "Inserire il codice di fine " - FIELD LF_TABCOM->CODTAB[3,4] - USE %SUA - INPUT CODTAB[1,2] F_FINE1 - INPUT CODTAB[3,4] F_FINE2 - DISPLAY "Codice Agente" CODTAB[1,2] - DISPLAY "Codice SubAgente" CODTAB[3,4] - DISPLAY "Descrizione@50" S0 - OUTPUT F_FINE1 CODTAB[1,2] - OUTPUT F_FINE2 CODTAB[3,4] - GROUP 2 + PROMPT 28 3 "A codice subagente " + HELP "Inserire il codice di fine " + FIELD LF_TABCOM->CODTAB[3,4] + USE %SUA + INPUT CODTAB[1,2] F_FINE1 + INPUT CODTAB[3,4] F_FINE2 + DISPLAY "Codice Agente" CODTAB[1,2] + DISPLAY "Codice SubAgente" CODTAB[3,4] + DISPLAY "Descrizione@50" S0 + OUTPUT F_FINE1 CODTAB[1,2] + OUTPUT F_FINE2 CODTAB[3,4] + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/basttit.uml b/ba/basttit.uml index 47f385c46..77e32af06 100755 --- a/ba/basttit.uml +++ b/ba/basttit.uml @@ -3,39 +3,39 @@ PAGE "Stampa Titoli onorifici" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %TIT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %TIT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/basttpd.uml b/ba/basttpd.uml index 62aeb2379..72ea6e97c 100755 --- a/ba/basttpd.uml +++ b/ba/basttpd.uml @@ -4,37 +4,37 @@ PAGE "Stampa tipi documenti" -1 -1 50 8 STRING F_INIZIO1 2 BEGIN - PROMPT 4 1 "Tipo documento " - USE %TPD - INPUT CODTAB F_INIZIO1 - DISPLAY "Tipo" CODTAB - DISPLAY "Descrizione@50" S0 + PROMPT 4 1 "Tipo documento " + USE %TPD + INPUT CODTAB F_INIZIO1 + DISPLAY "Tipo" CODTAB + DISPLAY "Descrizione@50" S0 OUTPUT F_INIZIO1 CODTAB FLAGS "U" FIELD LF_TABCOM->CODTAB - GROUP 1 + GROUP 1 END STRING F_FINE1 2 BEGIN - PROMPT 4 3 "Tipo documento " - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 + PROMPT 4 3 "Tipo documento " + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 OUTPUT F_FINE1 CODTAB FLAGS "U" FIELD LF_TABCOM->CODTAB - GROUP 2 + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastucc.uml b/ba/bastucc.uml index d20b086b8..dde4c270f 100755 --- a/ba/bastucc.uml +++ b/ba/bastucc.uml @@ -4,39 +4,39 @@ PAGE "Stampa uffici concessione" -1 -1 50 8 NUMBER F_INIZIO1 3 BEGIN - PROMPT 3 1 "Da codice " + PROMPT 3 1 "Da codice " HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio" - USE %UCC - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Ufficio@30" S0 - OUTPUT F_INIZIO1 CODTAB + USE %UCC + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Ufficio@30" S0 + OUTPUT F_INIZIO1 CODTAB FIELD LF_TABCOM->CODTAB - GROUP 1 - FLAGS "RZ" + GROUP 1 + FLAGS "RZ" END NUMBER F_FINE1 3 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 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB FIELD LF_TABCOM->CODTAB - GROUP 2 - FLAGS "RZ" + GROUP 2 + FLAGS "RZ" END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastucs.uml b/ba/bastucs.uml index 43bffac3c..46ed82b8d 100755 --- a/ba/bastucs.uml +++ b/ba/bastucs.uml @@ -29,12 +29,12 @@ BEGIN FLAGS "RZ" END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastues.uml b/ba/bastues.uml index 471480e86..aea18859b 100755 --- a/ba/bastues.uml +++ b/ba/bastues.uml @@ -4,39 +4,39 @@ PAGE "Stampa uffici esattoria" -1 -1 50 8 NUMBER F_INIZIO1 3 BEGIN - PROMPT 3 1 "Da codice " + PROMPT 3 1 "Da codice " HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" - USE %UES - FLAGS "RZ" - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@25" S0 - OUTPUT F_INIZIO1 CODTAB + USE %UES + FLAGS "RZ" + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@25" S0 + OUTPUT F_INIZIO1 CODTAB FIELD LF_TABCOM->CODTAB - GROUP 1 + GROUP 1 END NUMBER F_FINE1 3 BEGIN - PROMPT 3 3 "A codice " + PROMPT 3 3 "A codice " HELP "Codice di fine. Vuoto = fine archivio" - COPY USE F_INIZIO1 - FLAGS "RZ" - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB + COPY USE F_INIZIO1 + FLAGS "RZ" + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB FIELD LF_TABCOM->CODTAB - GROUP 2 + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastuid.uml b/ba/bastuid.uml index 5b0705d60..ca0a8a9dd 100755 --- a/ba/bastuid.uml +++ b/ba/bastuid.uml @@ -4,39 +4,39 @@ PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8 NUMBER F_INIZIO1 3 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 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_INIZIO1 CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_INIZIO1 CODTAB FIELD LF_TABCOM->CODTAB - GROUP 1 - FLAGS "RZ" + GROUP 1 + FLAGS "RZ" END NUMBER F_FINE1 3 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 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 FIELD LF_TABCOM->CODTAB - FLAGS "RZ" + FLAGS "RZ" END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastuiv.uml b/ba/bastuiv.uml index 154f2fdaf..b87eec183 100755 --- a/ba/bastuiv.uml +++ b/ba/bastuiv.uml @@ -4,37 +4,37 @@ PAGE "Stampa Uffici IVA" -1 -1 50 8 NUMBER F_INIZIO1 3 BEGIN - PROMPT 3 1 "Da codice " - USE %UIV + PROMPT 3 1 "Da codice " + USE %UIV INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 - FLAGS "RZ" + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 + FLAGS "RZ" FIELD LF_TABCOM->CODTAB END NUMBER F_FINE1 3 BEGIN - PROMPT 3 3 "A codice " - COPY USE F_INIZIO1 + PROMPT 3 3 "A codice " + COPY USE F_INIZIO1 INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 - FLAGS "RZ" + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 + FLAGS "RZ" FIELD LF_TABCOM->CODTAB END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/basture.uml b/ba/basture.uml index 5caac68a8..648cc8284 100755 --- a/ba/basture.uml +++ b/ba/basture.uml @@ -29,12 +29,12 @@ BEGIN GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastval.uml b/ba/bastval.uml index 35c55b2b8..142b77c23 100755 --- a/ba/bastval.uml +++ b/ba/bastval.uml @@ -3,39 +3,39 @@ PAGE "Stampa valute" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" FIELD LF_TABCOM->CODTAB - USE %VAL - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Valuta@25" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %VAL + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Valuta@25" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/bastver.uml b/ba/bastver.uml index 8c7331a0c..b2c54ed59 100755 --- a/ba/bastver.uml +++ b/ba/bastver.uml @@ -52,14 +52,14 @@ BEGIN COPY OUTPUT F_FINE1 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -2 "" + PROMPT -12 -2 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -2 "" + PROMPT -22 -2 "" END ENDPAGE diff --git a/ba/bastvet.uml b/ba/bastvet.uml index 6b7517c5f..7e1dcc22a 100755 --- a/ba/bastvet.uml +++ b/ba/bastvet.uml @@ -30,12 +30,12 @@ OUTPUT F_FINE1 CODTAB GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN PROMPT -22 -1 "" END diff --git a/ba/bastzon.uml b/ba/bastzon.uml index 4141e1a49..dfa36d361 100755 --- a/ba/bastzon.uml +++ b/ba/bastzon.uml @@ -3,39 +3,39 @@ PAGE "Stampa Zone" -1 -1 50 8 STRING F_INIZIO1 3 BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" + PROMPT 2 1 "Da codice " + FLAGS "U" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" FIELD LF_TABCOM->CODTAB - USE %ZON - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 + USE %ZON + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 END STRING F_FINE1 3 BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" + PROMPT 2 3 "A codice " + FLAGS "U" HELP "Codice di fine. Vuoto = fine archivio" FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 END -BUTTON DLG_OK 8 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT -12 -1 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 8 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/batbabe.uml b/ba/batbabe.uml index 21d87e50f..9ae1084af 100755 --- a/ba/batbabe.uml +++ b/ba/batbabe.uml @@ -8,7 +8,7 @@ ENDPAGE PAGE "Tabella Aspetto dei Beni" -1 -1 78 8 -STRING F_CODICE 3 +STRING F_CODICE 2 BEGIN PROMPT 4 2 "Codice " FIELD CODTAB diff --git a/ba/batbesc.uml b/ba/batbesc.uml index 61221ddab..a494da5f5 100755 --- a/ba/batbesc.uml +++ b/ba/batbesc.uml @@ -45,8 +45,8 @@ BEGIN CHECKTYPE REQUIRED END -BUTTON BUT_CHECK 10 1 -BEGIN +BUTTON BUT_CHECK 10 1 +BEGIN PROMPT 40 5 "Controllo" END @@ -70,7 +70,7 @@ BEGIN END DATE F_DATASCARICO -BEGIN +BEGIN PROMPT 4 11 "Data di scarico " HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto" FIELD LF_TAB->D2 diff --git a/ba/batbinl.uml b/ba/batbinl.uml index 2705ba8e3..70005192f 100755 --- a/ba/batbinl.uml +++ b/ba/batbinl.uml @@ -67,7 +67,7 @@ BEGIN FLAGS "D" END -LIST F_MESE 2 12 +LIST F_MESE 2 10 BEGIN PROMPT 40 2 "Mese registrazione " FIELD MESEREG @@ -143,7 +143,7 @@ BEGIN USE REG KEY 2 INPUT S0 F_DESCREG DISPLAY "Descrizione@50" S0 - DISPLAY "Codice registro" CODLIB + DISPLAY "Codice registro" CODTAB COPY OUTPUT F_CODREG CHECKTYPE NORMAL END diff --git a/ba/batbiva.uml b/ba/batbiva.uml index a8bc1316d..28a7fd35f 100755 --- a/ba/batbiva.uml +++ b/ba/batbiva.uml @@ -48,7 +48,7 @@ BEGIN WARNING "Manca la descrizione" END -LIST LST_TABIVA_S1 2 22 +LIST LST_TABIVA_S1 2 20 BEGIN PROMPT 3 3 "Tipo codice " FIELD S1 @@ -115,7 +115,7 @@ BEGIN PROMPT 44 5 "Indicatori mod. 101/102" END -LIST FLD_TABIVA_S7 1 26 +LIST FLD_TABIVA_S7 1 24 BEGIN PROMPT 4 6 "Clienti " FIELD S7 @@ -125,7 +125,7 @@ BEGIN ITEM "3|Non imponibili" END -LIST FLD_TABIVA_S8 1 26 +LIST FLD_TABIVA_S8 1 24 BEGIN PROMPT 4 7 "Fornitori " FIELD S8 @@ -150,7 +150,7 @@ BEGIN HELP "Indicare se il codice deve comparire nel modello 102" END -LIST FLD_TABIVA_I3 3 6 +LIST FLD_TABIVA_I3 3 4 BEGIN PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. " FIELD I3 @@ -161,7 +161,7 @@ BEGIN ITEM "3|B3" END -LIST FLD_TABIVA_I4 3 6 +LIST FLD_TABIVA_I4 3 4 BEGIN PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. " FIELD I4 @@ -170,7 +170,7 @@ BEGIN ITEM "14|B14" END -LIST LST_TABIVA_S3 1 33 +LIST LST_TABIVA_S3 1 31 BEGIN PROMPT 3 12 "Gestione plafond " FIELD S3 @@ -181,7 +181,7 @@ BEGIN ITEM "3|Oper. relative art.9" END -LIST LST_TABIVA_S4 1 45 +LIST LST_TABIVA_S4 1 43 BEGIN PROMPT 3 13 "Regime agricolo " FIELD S4 @@ -192,7 +192,7 @@ BEGIN ITEM "3|Acquisti ad uso promiscuo" END -LIST LST_TABIVA_S5 1 33 +LIST LST_TABIVA_S5 1 31 BEGIN PROMPT 3 14 "Ag. viaggio/turismo " FIELD S5 diff --git a/ba/batbois.uml b/ba/batbois.uml index e681901aa..f61e7eb52 100755 --- a/ba/batbois.uml +++ b/ba/batbois.uml @@ -8,48 +8,48 @@ PAGE "Vecchi codici attivita'" -1 -1 78 7 STRING FLD_TABOIS_CODTAB 4 BEGIN - PROMPT 2 1 "Codice " - FIELD %OIS->CODTAB[1,4] - HELP "Codice del vecchio codice attivit…" - USE %OIS - INPUT CODTAB[1,4] FLD_TABOIS_CODTAB - INPUT CODTAB[5,] FLD_TABOIS_ADD - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - DISPLAY "Descrizione@40" S0 - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 1 - FLAGS "RZ" + PROMPT 2 1 "Codice " + FIELD %OIS->CODTAB[1,4] + HELP "Codice del vecchio codice attivita'" + USE %OIS + INPUT CODTAB[1,4] FLD_TABOIS_CODTAB + INPUT CODTAB[5,] FLD_TABOIS_ADD + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + DISPLAY "Descrizione@40" S0 + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 1 + FLAGS "RZ" END STRING FLD_TABOIS_ADD 1 BEGIN - PROMPT 22 1 "Subcodice " - HELP "Subcodice del vecchio codice attivit…" - FIELD %OIS->CODTAB[5,] - COPY ALL FLD_TABOIS_CODTAB - KEY 1 - FLAGS "U" - VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB + PROMPT 22 1 "Subcodice " + HELP "Subcodice del vecchio codice attivita'" + FIELD %OIS->CODTAB[5,] + COPY ALL FLD_TABOIS_CODTAB + KEY 1 + FLAGS "U" + VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB END STRING FLD_TABOIS_S0 40 BEGIN - PROMPT 2 3 "Descrizione " - FIELD %OIS->S0 - HELP "Descrizione del vecchio codice attivit… " - USE %OIS KEY 2 - CHECKTYPE REQUIRED - INPUT S0 FLD_TABOIS_S0 - DISPLAY "Descrizione@40" S0 - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 2 + PROMPT 2 3 "Descrizione " + FIELD %OIS->S0 + HELP "Descrizione del vecchio codice attivita' " + USE %OIS KEY 2 + CHECKTYPE REQUIRED + INPUT S0 FLD_TABOIS_S0 + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 2 END ENDPAGE diff --git a/ba/batbpim.uml b/ba/batbpim.uml index 786f451f8..c2e067b1c 100755 --- a/ba/batbpim.uml +++ b/ba/batbpim.uml @@ -9,16 +9,16 @@ PAGE "" -1 -1 78 16 NUMBER F_CODDITTA 5 BEGIN - PROMPT 4 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC - KEY 1 + PROMPT 4 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC + KEY 1 END STRING F_RAGSOC 50 @@ -81,13 +81,13 @@ BEGIN FLAGS "UZ" USE REG CHECKTYPE NORMAL - INPUT CODTAB[1,4] F_REGISTRO - INPUT CODTAB[5,7] F_ANNO - DISPLAY "Codice registro" CODTAB[1,3] - DISPLAY "Anno" CODTAB[4,7] + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_REGISTRO + DISPLAY "Codice registro" CODTAB[5,7] + DISPLAY "Anno" CODTAB[1,4] DISPLAY "Descrizione@50" S0 - OUTPUT F_REGISTRO CODTAB[1,4] - OUTPUT F_ANNO CODTAB[5,7] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_REGISTRO CODTAB[5,7] WARNING "Codice registro assente" KEY 1 END @@ -107,7 +107,7 @@ BEGIN PROMPT 4 8 "Tipo Costo/Ricavo " HELP "Tipo di conto costo o ricavo" FIELD LF_TAB->CODTAB[15,15] - COPY ALL F_ANNO + COPY ALL F_ANNO KEY 1 END diff --git a/ba/batbpor.uml b/ba/batbpor.uml index 17c1d74d6..95f8bc604 100755 --- a/ba/batbpor.uml +++ b/ba/batbpor.uml @@ -17,7 +17,7 @@ END STRING F_CODICE 3 BEGIN PROMPT 4 2 "Codice " -HELP "Codice della modalit… di consegna" +HELP "Codice della modalita' di consegna" FIELD CODTAB FLAGS "U" KEY 1 @@ -33,7 +33,7 @@ END STRING F_DESCR 50 BEGIN PROMPT 4 4 "Descrizione " -HELP "Descrizione della modalit… di consegna" +HELP "Descrizione della modalita' di consegna" FIELD LF_TABCOM->S0 KEY 2 USE %POR KEY 2 diff --git a/ba/batbreg.uml b/ba/batbreg.uml index e710e536e..7cdc37c5d 100755 --- a/ba/batbreg.uml +++ b/ba/batbreg.uml @@ -7,7 +7,7 @@ TOOLBAR "" 0 20 0 2 ENDPAGE -PAGE "Registri" -1 -1 78 18 +PAGE "Pag.1" -1 -1 78 18 NUMBER F_CODDITTA 5 BEGIN @@ -101,7 +101,7 @@ BEGIN HELP "Codice del libro sociale a cui fa riferimento il registro" END -LIST F_TIPO 1 30 +LIST F_TIPO 1 28 BEGIN PROMPT 30 5 "Tipo " HELP "Tipo di registro" @@ -242,7 +242,7 @@ END ENDPAGE -PAGE "Registri pag.2" -1 -1 78 18 +PAGE "Pag.2" -1 -1 78 18 NUMBER DLG_NULL 5 BEGIN diff --git a/ba/batbtra.uml b/ba/batbtra.uml index 2c63f2f18..1578e0e6d 100755 --- a/ba/batbtra.uml +++ b/ba/batbtra.uml @@ -60,7 +60,7 @@ BEGIN FLAGS "D" END -LIST F_AGGCAUSALI 6 +LIST F_AGGCAUSALI 7 BEGIN PROMPT 1 6 "Aggiornamento causali gia' presenti " FIELD %TRA->S0 @@ -69,7 +69,7 @@ BEGIN ITEMS "T|Tutto" END -LIST F_AGGCLIFO 6 +LIST F_AGGCLIFO 7 BEGIN PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti " FIELD %TRA->S1 @@ -78,7 +78,7 @@ BEGIN ITEMS "T|Tutto" END -LIST F_AGGPCON 6 +LIST F_AGGPCON 7 BEGIN PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti " FIELD %TRA->S2 @@ -87,7 +87,7 @@ BEGIN ITEMS "T|Tutto" END -LIST F_AGGIVD 6 +LIST F_AGGIVD 7 BEGIN PROMPT 1 9 "Aggiornamento classi Piano dei Conti " FIELD %TRA->S3 diff --git a/ba/batbver.uml b/ba/batbver.uml index 81287780a..24d0aab18 100755 --- a/ba/batbver.uml +++ b/ba/batbver.uml @@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2 ENDPAGE -PAGE "Versamenti ed interessi IVA" -1 -1 78 16 +PAGE "Interessi IVA" -1 -1 78 16 GROUPBOX DLG_NULL 78 4 BEGIN @@ -164,7 +164,7 @@ END ENDPAGE -PAGE "" -1 -1 78 16 +PAGE "Versamenti IVA" -1 -1 78 16 GROUPBOX DLG_NULL 78 4 BEGIN diff --git a/ba/batbvid.uml b/ba/batbvid.uml index 407e3ca5e..e2d210171 100755 --- a/ba/batbvid.uml +++ b/ba/batbvid.uml @@ -65,7 +65,7 @@ END NUMBER F_PAGDA 5 BEGIN - PROMPT 4 11 "Dalla pagina " + PROMPT 4 11 "Dalla pagina " WARNING "E' necessario specificare un numero di pagina iniziale" FIELD I1 FLAGS "R" @@ -74,7 +74,7 @@ END NUMBER F_PAGA 5 BEGIN - PROMPT 30 11 "Alla pagina " + PROMPT 32 11 "Alla pagina " FIELD I2 FLAGS "R" CHECKTYPE REQUIRED