Correzioni per XI

git-svn-id: svn://10.65.10.50/trunk@2832 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-05-16 09:06:53 +00:00
parent 8403ea28ad
commit 20b383cc49
76 changed files with 996 additions and 1029 deletions

View File

@ -3,7 +3,7 @@
PAGE "Scarico Archivio" -1 -1 70 13 PAGE "Scarico Archivio" -1 -1 70 13
STRING FLD_OUTFILE 50 STRING FLD_OUTFILE 50
BEGIN BEGIN
PROMPT 2 1 "File di output " PROMPT 2 1 "File di output "
HELP "Nome del file sul quale scaricare" HELP "Nome del file sul quale scaricare"
@ -45,18 +45,21 @@ STRING FLD_FS 5
BEGIN BEGIN
PROMPT 2 7 "Separatore di campi " PROMPT 2 7 "Separatore di campi "
HELP "Carattere seperatore dei campi" HELP "Carattere seperatore dei campi"
FLAGS "P"
END END
STRING FLD_FD 5 STRING FLD_FD 5
BEGIN BEGIN
PROMPT 40 7 "Delimitatore di campi " PROMPT 40 7 "Delimitatore di campi "
HELP "Carattere delimitatore di campi" HELP "Carattere delimitatore di campi"
FLAGS "P"
END END
STRING FLD_RS 5 STRING FLD_RS 5
BEGIN BEGIN
PROMPT 2 9 "Separatore di record " PROMPT 2 9 "Separatore di record "
HELP "Carattere delimitatore di record" HELP "Carattere delimitatore di record"
FLAGS "P"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2

View File

@ -3,7 +3,7 @@
PAGE "Carico Archivio" -1 -1 70 13 PAGE "Carico Archivio" -1 -1 70 13
STRING FLD_INFILE 50 STRING FLD_INFILE 50
BEGIN BEGIN
PROMPT 2 1 "File di input " PROMPT 2 1 "File di input "
HELP "Nome del file dove caricare i dati" HELP "Nome del file dove caricare i dati"
@ -21,18 +21,21 @@ STRING FLD_FS 5
BEGIN BEGIN
PROMPT 2 5 "Separatore di campi " PROMPT 2 5 "Separatore di campi "
HELP "Carattere separatore dei campi" HELP "Carattere separatore dei campi"
FLAGS "P"
END END
STRING FLD_FD 5 STRING FLD_FD 5
BEGIN BEGIN
PROMPT 2 7 "Delimitatore di campi " PROMPT 2 7 "Delimitatore di campi "
HELP "Carattere delimitatore dei campi" HELP "Carattere delimitatore dei campi"
FLAGS "P"
END END
STRING FLD_RS 5 STRING FLD_RS 5
BEGIN BEGIN
PROMPT 2 9 "Separatore di record " PROMPT 2 9 "Separatore di record "
HELP "Carattere delimitatore dei record" HELP "Carattere delimitatore dei record"
FLAGS "P"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2

View File

@ -130,17 +130,17 @@ BEGIN
HELP "Descrizione del campo" HELP "Descrizione del campo"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -33 -1 "Elimina" PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
@ -152,7 +152,7 @@ ENDMASK
PAGE "Chiave" -1 -1 79 9 PAGE "Chiave" -1 -1 79 9
STRING F_KEXPR 70 STRING F_KEXPR 70 60
BEGIN BEGIN
PROMPT 1 2 "Espress." PROMPT 1 2 "Espress."
HELP "Espressione dell'archivio" HELP "Espressione dell'archivio"
@ -164,17 +164,17 @@ BEGIN
PROMPT 1 4 "Chiavi duplicate" PROMPT 1 4 "Chiavi duplicate"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -33 -1 "Elimina" PROMPT -33 -1 "Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL

View File

@ -12,43 +12,43 @@ END
BOOLEAN F_CONTINUO BOOLEAN F_CONTINUO
BEGIN 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 "Tipo di test da svolgere" 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 "Numero di iterazioni del test" HELP "Numero di iterazioni del test"
END END
TEXT F_LABEL TEXT F_LABEL
BEGIN BEGIN
PROMPT 9 4 "Iterazioni" PROMPT 9 4 "Iterazioni"
END END
BUTTON DLG_FILES 9 2 BUTTON DLG_FILES 10 2
BEGIN BEGIN
PROMPT 30 1 "~Files" PROMPT 29 1 "~Files"
MESSAGE EXIT,K_F4 MESSAGE EXIT,K_F4
END END
BUTTON DLG_REPORT 9 2 BUTTON DLG_REPORT 10 2
BEGIN
PROMPT 30 3 "~Report"
MESSAGE EXIT,K_F5
END
BUTTON DLG_TEST 9 2
BEGIN BEGIN
PROMPT 30 5 "~Test" PROMPT 29 3 "~Report"
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_F5
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_TEST 10 2
BEGIN BEGIN
PROMPT 30 7 "" PROMPT 29 5 "~Test"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT 29 7 ""
END END
ENDMASK ENDMASK

View File

@ -2,32 +2,32 @@
#include <tokens.h> #include <tokens.h>
#include "ba1300a.h" #include "ba1300a.h"
PAGE "Debugging" -1 -1 42 7 PAGE "Debugging" -1 -1 42 8
NUMBER F_FILE 3 NUMBER F_FILE 3
BEGIN BEGIN
PROMPT 2 1 "Numero file " PROMPT 2 1 "Numero file "
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 "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 "Nome del file della sequenza" HELP "Nome del file della sequenza"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 6 "" PROMPT -12 6 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 6 "" PROMPT -22 6 ""
END END
ENDMASK ENDMASK

View File

@ -23,12 +23,12 @@ BEGIN
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -1,4 +1,4 @@
PAGE "POSIZIONAMENTO MODULI" -1 -1 49 6 PAGE "POSIZIONAMENTO MODULI" -1 -1 55 6
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN

View File

@ -3,8 +3,8 @@
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_OPTIONS 10 2 BUTTON F_OPTIONS 10 2
BEGIN BEGIN
PROMPT -13 -1 "Opzioni" PROMPT -13 -1 "Opzioni"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
@ -19,7 +19,7 @@ END
ENDPAGE ENDPAGE
PAGE "CAMPO DI STAMPA" -1 -1 78 21 PAGE "Parametri di stampa" -1 -1 78 21
LIST F_CLASS 10 LIST F_CLASS 10
BEGIN BEGIN
@ -126,16 +126,16 @@ END
NUMBER F_SPACES 2 NUMBER F_SPACES 2
BEGIN BEGIN
PROMPT 1 6 "N. spazi davanti al campo " PROMPT 1 6 "N. spazi davanti al campo "
END END
BOOLEAN F_FINKL BOOLEAN F_FINKL
BEGIN BEGIN
PROMPT 40 6 "Fincatura prima" PROMPT 40 6 "Fincatura prima"
END END
BOOLEAN F_FINKR BOOLEAN F_FINKR
BEGIN BEGIN
PROMPT 63 6 "Fincatura dopo" PROMPT 63 6 "Fincatura dopo"
END END
@ -155,7 +155,7 @@ END
LIST F_DFORMAT 16 LIST F_DFORMAT 16
BEGIN BEGIN
PROMPT 3 9 "Tipo data " PROMPT 3 9 "Tipo data "
ITEM "1|Giorno Mese Anno" ITEM "1|Giorno Mese Anno"
ITEM "2|Mese Giorno Anno" ITEM "2|Mese Giorno Anno"
ITEM "3|Anno Mese Giorno" ITEM "3|Anno Mese Giorno"
@ -164,53 +164,53 @@ ITEM "4|Anno"
ITEM "5|Mese" ITEM "5|Mese"
ITEM "6|Giorno" ITEM "6|Giorno"
GROUP 8 GROUP 8
END END
LIST F_DDAY 16 LIST F_DDAY 16
BEGIN BEGIN
PROMPT 42 9 "Formato giorno " PROMPT 42 9 "Formato giorno "
ITEM "4|Con zeri(es. 02)" ITEM "4|Con zeri(es. 02)"
ITEM "2|Normale (es. 2)" ITEM "2|Normale (es. 2)"
ITEM "5|In lettere" ITEM "5|In lettere"
ITEM "6|Giorno settimana" ITEM "6|Giorno settimana"
GROUP 8 GROUP 8
END END
LIST F_DMONTH 16 LIST F_DMONTH 16
BEGIN BEGIN
PROMPT 3 10 "Formato mese " PROMPT 3 10 "Formato mese "
ITEM "4|Con zeri(es. 02)" ITEM "4|Con zeri(es. 02)"
ITEM "2|Normale (es. 2)" ITEM "2|Normale (es. 2)"
ITEM "5|In lettere" ITEM "5|In lettere"
ITEM "7|Trimestre" ITEM "7|Trimestre"
GROUP 8 GROUP 8
END END
LIST F_DYEAR 16 LIST F_DYEAR 16
BEGIN BEGIN
PROMPT 42 10 "Formato anno " PROMPT 42 10 "Formato anno "
ITEM "2|Breve (2 cifre)" ITEM "2|Breve (2 cifre)"
ITEM "4|Lungo (4 cifre)" ITEM "4|Lungo (4 cifre)"
GROUP 8 GROUP 8
END END
LIST F_DSEP 5 LIST F_DSEP 5
BEGIN BEGIN
PROMPT 3 11 "Separatore " PROMPT 3 11 "Separatore "
ITEM "-|-" ITEM "-|-"
ITEM "/|/" ITEM "/|/"
ITEM ".|." ITEM ".|."
ITEM ",|," ITEM ",|,"
ITEM "S|Spazio" ITEM "S|Spazio"
GROUP 8 GROUP 8
END END
STRING F_DEXAMPLE 40 STRING F_DEXAMPLE 40
BEGIN BEGIN
PROMPT 28 11 "Esempio " PROMPT 28 11 "Esempio "
FLAGS "D" FLAGS "D"
GROUP 8 GROUP 8
END END
// fine gruppo 8 // fine gruppo 8
@ -219,29 +219,29 @@ STRING F_FILE1 80 60
BEGIN BEGIN
PROMPT 2 13 "Archivio " PROMPT 2 13 "Archivio "
HELP "Nome dell'archivio relativo al campo" HELP "Nome dell'archivio relativo al campo"
FLAGS "D" FLAGS "DB"
END END
BUTTON F_BUT_FILE1 2 1 //BUTTON F_BUT_FILE1 2 1
BEGIN //BEGIN
PROMPT 73 13 "*" //PROMPT 73 13 "*"
PICTURE 109 //PICTURE 109
GROUP 7 //GROUP 7
END //END
STRING F_FIELD1 80 60 STRING F_FIELD1 80 60
BEGIN BEGIN
PROMPT 2 14 "Campo 1 " PROMPT 2 14 "Campo 1 "
HELP "Nome del campo su file" HELP "Nome del campo su file"
FLAGS "D" FLAGS "DB"
END END
BUTTON F_BUT_FIELD1 2 1 //BUTTON F_BUT_FIELD1 2 1
BEGIN //BEGIN
PROMPT 73 14 "*" // PROMPT 73 14 "*"
PICTURE 109 // PICTURE 109
GROUP 7 // GROUP 7
END //END
STRING F_FIELDREF1 20 16 STRING F_FIELDREF1 20 16
BEGIN BEGIN
@ -253,14 +253,14 @@ NUMBER F_FROM1 2
BEGIN BEGIN
PROMPT 2 15 "Da " PROMPT 2 15 "Da "
FLAGS "U" FLAGS "U"
GROUP 7 GROUP 7
END END
NUMBER F_TO1 2 NUMBER F_TO1 2
BEGIN BEGIN
PROMPT 22 15 "A " PROMPT 22 15 "A "
FLAGS "U" FLAGS "U"
GROUP 7 GROUP 7
END END
@ -268,29 +268,29 @@ STRING F_FILE2 60
BEGIN BEGIN
PROMPT 2 16 "Archivio " PROMPT 2 16 "Archivio "
HELP "Nome dell'archivio relativo al campo" HELP "Nome dell'archivio relativo al campo"
FLAGS "D" FLAGS "DB"
END END
BUTTON F_BUT_FILE2 2 1 //BUTTON F_BUT_FILE2 2 1
BEGIN //BEGIN
PROMPT 73 16 "*" //PROMPT 73 16 "*"
PICTURE 109 //PICTURE 109
GROUP 7 //GROUP 7
END //END
STRING F_FIELD2 60 STRING F_FIELD2 60
BEGIN BEGIN
PROMPT 2 17 "Campo 2 " PROMPT 2 17 "Campo 2 "
HELP "Nome del campo su file" HELP "Nome del campo su file"
FLAGS "D" FLAGS "DB"
END END
BUTTON F_BUT_FIELD2 2 1 //BUTTON F_BUT_FIELD2 2 1
BEGIN //BEGIN
PROMPT 73 17 "*" //PROMPT 73 17 "*"
PICTURE 109 //PICTURE 109
GROUP 7 //GROUP 7
END //END
STRING F_FIELDREF2 16 STRING F_FIELDREF2 16
BEGIN BEGIN
@ -302,24 +302,24 @@ NUMBER F_FROM2 2
BEGIN BEGIN
PROMPT 2 18 "Da " PROMPT 2 18 "Da "
FLAGS "U" FLAGS "U"
GROUP 7 GROUP 7
END END
NUMBER F_TO2 2 NUMBER F_TO2 2
BEGIN BEGIN
PROMPT 22 18 "A " PROMPT 22 18 "A "
FLAGS "U" FLAGS "U"
GROUP 7 GROUP 7
END END
//GROUPBOX DLG_NULL 78 8 //GROUPBOX DLG_NULL 78 8
//BEGIN //BEGIN
//PROMPT 1 11 "Campi su file" //PROMPT 1 11 "Campi su file"
//END //END
ENDPAGE ENDPAGE
PAGE "SUPERPRASSI" -1 -1 78 20 PAGE "Parametri avanzati" -1 -1 78 20
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN

View File

@ -30,20 +30,20 @@ END
STRING F_CTP 1 STRING F_CTP 1
BEGIN BEGIN
PROMPT 40 3 "Carattere posizionamento" PROMPT 38 3 "Carattere posizionamento "
HELP "Carattere da utilizzare per il posizionamento del modulo" HELP "Carattere da utilizzare per il posizionamento del modulo"
END END
LIST F_FONT 2 16 LIST F_FONT 2 16
BEGIN BEGIN
PROMPT 3 4 "Font " PROMPT 3 4 "Font "
ITEM "Courier New|Courier New" ITEM "Courier New|Courier New"
HELP "Font di stampa su video o stampante" HELP "Font di stampa su video o stampante"
END END
LIST F_SIZE 3 LIST F_SIZE 3
BEGIN BEGIN
PROMPT 53 4 "Dimensione " PROMPT 53 4 "Dimensione "
ITEM "12|12" ITEM "12|12"
HELP "Dimensioni del carattere di stampa" HELP "Dimensioni del carattere di stampa"
END END
@ -51,7 +51,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 40 5 "Colonne di posizionamento" PROMPT 38 5 "Colonne di posizionamento"
END END
NUMBER F_IPX 3 NUMBER F_IPX 3
@ -79,28 +79,28 @@ END
NUMBER F_Y 3 NUMBER F_Y 3
BEGIN BEGIN
PROMPT 40 6 "Spostamento verticale " PROMPT 38 6 "Spostamento verticale "
END END
SPREADSHEET F_FIELDS 0 8 SPREADSHEET F_FIELDS 0 8
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 8 ""
ITEM "ID@3" ITEM "ID@3"
ITEM "Descrizione@40" ITEM "Descrizione@40"
ITEM "Pr" ITEM "Pr"
ITEM "Y@2" ITEM "Y@2"
ITEM "X@3" ITEM "X@3"
ITEM "Lun." ITEM "Larg."
ITEM "Col." ITEM "Col."
ITEM "Intestazione colonna@40" ITEM "Intestazione colonna@40"
ITEM "Spazi" ITEM "Spazi"
ITEM "Finc. sin." ITEM "Finc. sin."
ITEM "Finc. dx." ITEM "Finc. dx."
ITEM "Tipo@10" ITEM "Tipo@10"
ITEM "Esempio formato di stampa@45" ITEM "Esempio formato di stampa@45"
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
@ -116,13 +116,13 @@ ENDPAGE
ENDMASK ENDMASK
PAGE "Dettaglio campo" -1 -1 65 16 PAGE "Dettaglio campo" -1 -1 65 16
NUMBER 101 3 NUMBER 101 3
BEGIN BEGIN
PROMPT 1 1 "ID " PROMPT 1 1 "ID "
END END
STRING 102 80 40 STRING 102 80 40
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
@ -137,7 +137,7 @@ END
BOOLEAN 103 BOOLEAN 103
BEGIN BEGIN
PROMPT 1 4 "Non Stampare " PROMPT 1 4 "Non Stampare "
END END
NUMBER 105 3 NUMBER 105 3
@ -154,7 +154,7 @@ END
NUMBER 104 2 NUMBER 104 2
BEGIN BEGIN
PROMPT 1 7 "Y " PROMPT 1 7 "Y "
FLAGS "G" FLAGS "G"
END END
@ -162,38 +162,38 @@ NUMBER 107 3
BEGIN BEGIN
PROMPT 1 8 "Colonna " PROMPT 1 8 "Colonna "
FLAGS "G" FLAGS "G"
END END
NUMBER 109 2 NUMBER 109 2
BEGIN BEGIN
PROMPT 1 9 "Spazi inizio " PROMPT 1 9 "Spazi inizio "
FLAGS "G" FLAGS "G"
END END
BOOLEAN 110 BOOLEAN 110
BEGIN BEGIN
PROMPT 1 10 "Finc. prima " PROMPT 1 10 "Finc. prima "
FLAGS "G" FLAGS "G"
END END
BOOLEAN 111 BOOLEAN 111
BEGIN BEGIN
PROMPT 26 10 "Finc. dopo " PROMPT 26 10 "Finc. dopo "
FLAGS "G" FLAGS "G"
END END
LIST 112 10 LIST 112 10
BEGIN BEGIN
PROMPT 1 11 "Tipo " PROMPT 1 11 "Tipo "
ITEM "STRINGA|Testo" ITEM "STRINGA|Testo"
ITEM "NUMERO|Numero" ITEM "NUMERO|Numero"
ITEM "DATA|Data" ITEM "DATA|Data"
ITEM "LISTA|Lista" ITEM "LISTA|Lista"
ITEM "GRUPPO|Gruppo" ITEM "GRUPPO|Gruppo"
ITEM "LINEA|Linea" ITEM "LINEA|Linea"
ITEM "BOX|Box" ITEM "BOX|Box"
ITEM "FIGURA|Figura" ITEM "FIGURA|Figura"
END END
STRING 113 128 45 STRING 113 128 45
BEGIN BEGIN
@ -203,14 +203,14 @@ END
BUTTON 100 10 2 BUTTON 100 10 2
BEGIN BEGIN
PROMPT -14 -1 "Dettaglio" PROMPT -14 -1 "Dettaglio"
END END
BUTTON DLG_DELREC 10 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -24 -1 "~Elimina" PROMPT -24 -1 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
@ -221,6 +221,6 @@ BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -44 -1 "" PROMPT -44 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

View File

@ -38,14 +38,14 @@ STRING F_FILE1 50
BEGIN BEGIN
PROMPT 2 3 "Archivio " PROMPT 2 3 "Archivio "
HELP "Nome dell'archivio su cui iterare la sottosezione" HELP "Nome dell'archivio su cui iterare la sottosezione"
// FLAGS "D" FLAGS "B"
END END
BUTTON F_BUT_FILE1 2 1 //BUTTON F_BUT_FILE1 2 1
BEGIN //BEGIN
PROMPT 63 3 "*" // PROMPT 63 3 "*"
PICTURE 109 // PICTURE 109
END //END
STRING F_FIELDREF1 16 STRING F_FIELDREF1 16
BEGIN BEGIN

View File

@ -2,7 +2,7 @@
PAGE "Impostazione formato date" -1 -1 55 10 PAGE "Impostazione formato date" -1 -1 55 10
LIST F_DFORMAT 16 LIST F_DFORMAT 18
BEGIN BEGIN
PROMPT 1 1 "Tipo data " PROMPT 1 1 "Tipo data "
ITEM "1|Giorno Mese Anno" ITEM "1|Giorno Mese Anno"
@ -14,7 +14,7 @@ ITEM "5|Mese"
ITEM "6|Giorno" ITEM "6|Giorno"
END END
LIST F_DDAY 16 LIST F_DDAY 18
BEGIN BEGIN
PROMPT 1 2 "Formato giorno " PROMPT 1 2 "Formato giorno "
ITEM "4|Con zeri(es. 02)" ITEM "4|Con zeri(es. 02)"
@ -23,7 +23,7 @@ ITEM "5|In lettere"
ITEM "6|Giorno settimana" ITEM "6|Giorno settimana"
END END
LIST F_DMONTH 16 LIST F_DMONTH 18
BEGIN BEGIN
PROMPT 1 3 "Formato mese " PROMPT 1 3 "Formato mese "
ITEM "4|Con zeri(es. 02)" ITEM "4|Con zeri(es. 02)"
@ -32,14 +32,14 @@ ITEM "5|In lettere"
ITEM "7|Trimestre" ITEM "7|Trimestre"
END END
LIST F_DYEAR 16 LIST F_DYEAR 18
BEGIN BEGIN
PROMPT 1 4 "Formato anno " PROMPT 1 4 "Formato anno "
ITEM "2|Breve (2 cifre)" ITEM "2|Breve (2 cifre)"
ITEM "4|Lungo (4 cifre)" ITEM "4|Lungo (4 cifre)"
END END
LIST F_DSEP 5 LIST F_DSEP 8
BEGIN BEGIN
PROMPT 1 5 "Separatore " PROMPT 1 5 "Separatore "
ITEM "-|-" ITEM "-|-"

View File

@ -4,27 +4,27 @@ PAGE "Stampa fogli libro bollato" -1 -1 76 20
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 3 3 "Anno Riferimento " PROMPT 3 3 "Anno Riferimento "
HELP "Anno a cui si riferisce il bollato" HELP "Anno a cui si riferisce il bollato"
USE REG USE REG
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODICE INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno " CODTAB[1,4] DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7] DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODICE CODTAB[5,7] OUTPUT F_CODICE CODTAB[5,7]
OUTPUT F_REGISTRO S0 OUTPUT F_REGISTRO S0
FLAGS "Z" FLAGS "Z"
KEY 1 KEY 1
END END
STRING F_CODDITTA 5 STRING F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 2 "Ditta " PROMPT 3 2 "Ditta "
FLAGS "DFR" FLAGS "DFR"
KEY 1 KEY 1
END END
STRING F_CODICE 3 STRING F_CODICE 3
@ -54,14 +54,14 @@ BEGIN
END END
STRING F_RAGSOC 60 50 STRING F_RAGSOC 60 50
BEGIN BEGIN
PROMPT 3 7 "Ragione sociale " PROMPT 3 7 "Ragione sociale "
HELP "Ragione sociale dell'intestatario del registro" HELP "Ragione sociale dell'intestatario del registro"
END END
STRING F_INDIRIZZO 35 STRING F_INDIRIZZO 35
BEGIN BEGIN
PROMPT 3 8 "Indirizzo " PROMPT 3 8 "Indirizzo "
HELP "Indirizzo dell'intestatario del registro" HELP "Indirizzo dell'intestatario del registro"
END END
@ -95,7 +95,7 @@ BEGIN
HELP "Provincia dell'intestatario del registro" HELP "Provincia dell'intestatario del registro"
END END
LIST F_STATO 18 LIST F_STATO 20
BEGIN BEGIN
PROMPT 3 10 "Stato " PROMPT 3 10 "Stato "
FIELD LF_ANAG->STATOPAIV FIELD LF_ANAG->STATOPAIV

View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Tabella libro unico" -1 -1 78 18 PAGE "Tabella libro unico pag. 1" -1 -1 78 18
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
@ -74,7 +74,7 @@ END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 14 PAGE "Pag. 2" -1 -1 78 14
LIST F_TIPOA 10 LIST F_TIPOA 10
BEGIN BEGIN

View File

@ -4,7 +4,7 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Comuni 1/2" -1 -1 77 18 PAGE "Pag. 1" -1 -1 77 18
GROUPBOX DLG_NULL 75 4 GROUPBOX DLG_NULL 75 4
BEGIN BEGIN
@ -243,7 +243,7 @@ END
ENDPAGE ENDPAGE
PAGE "Tabella Comuni 2/2" -1 -1 77 18 PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 75 4 GROUPBOX DLG_NULL 75 4
BEGIN BEGIN
@ -370,7 +370,7 @@ END
LIST FLD_CM2_TERRMON 18 LIST FLD_CM2_TERRMON 18
BEGIN BEGIN
PROMPT 34 11 "Territorio montano " PROMPT 34 11 "Territorio montano "
HELP "Codice identificativo di comune residente in territorio montano" HELP "Codice identificativo di comune residente in territorio montano"
FIELD LF_COMUNI->TERRMON FIELD LF_COMUNI->TERRMON
ITEMS " |Non montano" ITEMS " |Non montano"

View File

@ -3,13 +3,13 @@
TOOLBAR "" 0 19 0 3 TOOLBAR "" 0 19 0 3
BUTTON DLG_CHGTIP 21 1 BUTTON DLG_CHGTIP 25 1
BEGIN BEGIN
PROMPT -13 -3 "Persone Giuridiche" PROMPT -13 -3 "Persone Giuridiche"
MESSAGE K_F10 MESSAGE K_F10
END END
BUTTON DLG_DITTE 8 1 BUTTON DLG_DITTE 10 1
BEGIN BEGIN
PROMPT -36 -3 "Ditte" PROMPT -36 -3 "Ditte"
MESSAGE K_F5 MESSAGE K_F5
@ -105,7 +105,7 @@ BEGIN
PROMPT 13 5 "Partita IVA " PROMPT 13 5 "Partita IVA "
END END
LIST FLD_AF1_STATOPAIV 18 LIST FLD_AF1_STATOPAIV 20
BEGIN BEGIN
PROMPT 14 6 "Stato " PROMPT 14 6 "Stato "
FIELD LF_ANAG->STATOPAIV FIELD LF_ANAG->STATOPAIV
@ -872,7 +872,7 @@ BEGIN
PROMPT 36 5 "Eventi di natura eccezionale " PROMPT 36 5 "Eventi di natura eccezionale "
HELP "Codice degli eventi di natura eccezionale" HELP "Codice degli eventi di natura eccezionale"
FIELD LF_ANAG->EVECC FIELD LF_ANAG->EVECC
SHEET "Codice|Descrizione@70" SHEET "Codice|Descrizione@50"
INPUT LST_AF4_EVECC INPUT LST_AF4_EVECC
OUTPUT LST_AF4_EVECC OUTPUT LST_AF4_EVECC
ITEM " |Nessuno" ITEM " |Nessuno"

View File

@ -2,13 +2,13 @@
TOOLBAR "" 0 19 0 3 TOOLBAR "" 0 19 0 3
BUTTON DLG_CHGTIP 21 1 BUTTON DLG_CHGTIP 25 1
BEGIN BEGIN
PROMPT -13 -3 "Persone Fisiche" PROMPT -13 -3 "Persone Fisiche"
MESSAGE K_F10 MESSAGE K_F10
END END
BUTTON DLG_DITTE 8 1 BUTTON DLG_DITTE 10 1
BEGIN BEGIN
PROMPT -36 -3 "Ditte" PROMPT -36 -3 "Ditte"
MESSAGE K_F5 MESSAGE K_F5
@ -78,7 +78,7 @@ BEGIN
PROMPT 0 4 "Partita IVA " PROMPT 0 4 "Partita IVA "
END END
LIST FLD_AG1_STATOPAIV 18 LIST FLD_AG1_STATOPAIV 20
BEGIN BEGIN
PROMPT 2 5 "Stato " PROMPT 2 5 "Stato "
FIELD LF_ANAG->STATOPAIV FIELD LF_ANAG->STATOPAIV
@ -256,7 +256,7 @@ BEGIN
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_AG2_CAPRES CAPCOM OUTPUT FLD_AG2_CAPRES CAPCOM
HELP "Codice del comune sede della persoan giuridica" HELP "Codice del comune sede della persona giuridica"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Comune assente" WARNING "Comune assente"
ADD RUN ba4 -0 ADD RUN ba4 -0
@ -985,7 +985,7 @@ BEGIN
PROMPT 37 4 "Eventi di natura eccezionale " PROMPT 37 4 "Eventi di natura eccezionale "
FIELD LF_ANAG->EVECC FIELD LF_ANAG->EVECC
HELP "Codice degli eventi naturali eccezionali accaduti alla ditta" HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
SHEET "Codice|Descrizione@70" SHEET "Codice|Descrizione@50"
INPUT LST_AG5_EVECC INPUT LST_AG5_EVECC
OUTPUT LST_AG5_EVECC OUTPUT LST_AG5_EVECC
ITEM " |Nessuno" ITEM " |Nessuno"

View File

@ -2,25 +2,25 @@
TOOLBAR "" 0 19 0 3 TOOLBAR "" 0 19 0 3
BUTTON DLG_ATT 9 1 BUTTON DLG_ATT 10 1
BEGIN BEGIN
PROMPT -16 -3 "Attivita'" PROMPT -16 -3 "Attivita'"
MESSAGE K_F6 MESSAGE K_F6
END END
BUTTON DLG_ULC 9 1 BUTTON DLG_ULC 10 1
BEGIN BEGIN
PROMPT -26 -3 "U.Locali" PROMPT -26 -3 "U.Locali"
MESSAGE K_F5 MESSAGE K_F5
END END
BUTTON DLG_SOC 9 1 BUTTON DLG_SOC 10 1
BEGIN BEGIN
PROMPT -36 -3 "Soci" PROMPT -36 -3 "Soci"
MESSAGE K_F7 MESSAGE K_F7
END END
BUTTON DLG_REG 9 1 BUTTON DLG_REG 10 1
BEGIN BEGIN
PROMPT -46 -3 "Registri" PROMPT -46 -3 "Registri"
MESSAGE K_F8 MESSAGE K_F8
@ -29,7 +29,13 @@ END
#include <toolbar.h> #include <toolbar.h>
ENDPAGE 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 NUMBER FLD_GD1_CODDITTA 5
BEGIN BEGIN
@ -62,7 +68,7 @@ BEGIN
INPUT CODANAGR FLD_GD1_CODANAGR SELECT INPUT CODANAGR FLD_GD1_CODANAGR SELECT
INPUT CODDITTA FLD_GD1_CODDITTAH INPUT CODDITTA FLD_GD1_CODDITTAH
COPY DISPLAY FLD_GD1_CODDITTA COPY DISPLAY FLD_GD1_CODDITTA
COPY OUTPUT FLD_GD1_CODDITTA COPY OUTPUT FLD_GD1_CODDITTA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTA MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTA
END END
@ -100,12 +106,6 @@ BEGIN
FLAGS "HG" FLAGS "HG"
END END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 0 4 "Anagrafica" PROMPT 0 4 "Anagrafica"
@ -225,7 +225,7 @@ END
ENDPAGE ENDPAGE
PAGE "Ditte 2/4" -1 -1 77 18 PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
@ -277,7 +277,7 @@ END
STRING FLD_GD1_NISCRAA 10 STRING FLD_GD1_NISCRAA 10
BEGIN BEGIN
PROMPT 1 10 "Isc.Albo/CAF N." PROMPT 1 10 "Isc.Albo/CAF N. "
FIELD LF_NDITTE->NISCRAA FIELD LF_NDITTE->NISCRAA
FLAGS "R" FLAGS "R"
HELP "Numero di iscrizione all'albo" HELP "Numero di iscrizione all'albo"
@ -367,7 +367,7 @@ END
ENDPAGE ENDPAGE
PAGE "Ditte 3/4" -1 -1 77 18 PAGE "Pag. 3" -1 -1 77 18
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
@ -389,7 +389,7 @@ BEGIN
GROUP 2 GROUP 2
END END
LIST LST_GD2_DATLAV 20 LIST LST_GD2_DATLAV 22
BEGIN BEGIN
PROMPT 1 4 "Datore lavoro " PROMPT 1 4 "Datore lavoro "
FIELD LF_NDITTE->DATLAV FIELD LF_NDITTE->DATLAV
@ -556,7 +556,7 @@ END
ENDPAGE ENDPAGE
PAGE "Ditte 4/4" -1 -1 77 18 PAGE "Pag. 4" -1 -1 77 18
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
@ -654,7 +654,7 @@ BEGIN
HELP "Indicare se i ricavi sono superiore al 20%" HELP "Indicare se i ricavi sono superiore al 20%"
END END
LIST FLD_GD3_CARRAPP 21 LIST FLD_GD3_CARRAPP 23
BEGIN BEGIN
PROMPT 1 8 "Carica " PROMPT 1 8 "Carica "
FIELD LF_NDITTE->CARRAPP FIELD LF_NDITTE->CARRAPP

View File

@ -4,12 +4,12 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Unita' locali 1/2" -1 -1 77 18 PAGE "Pag. 1" -1 -1 77 18
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
BEGIN BEGIN
PROMPT 0 0 "Unita' locale" PROMPT 0 0 "Unita' locale"
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_UL1_CODDITTA 5 NUMBER FLD_UL1_CODDITTA 5
@ -92,7 +92,7 @@ BEGIN
FIELD LF_UNLOC->COMULC FIELD LF_UNLOC->COMULC
FLAGS "U" FLAGS "U"
USE LF_COMUNI KEY 1 USE LF_COMUNI KEY 1
INPUT STATO "" INPUT STATO ""
INPUT COM FLD_UL1_COMULC INPUT COM FLD_UL1_COMULC
#include <comdcod.h> #include <comdcod.h>
OUTPUT FLD_UL1_COMULC COM OUTPUT FLD_UL1_COMULC COM
@ -103,7 +103,7 @@ BEGIN
MESSAGE COPY,7@ MESSAGE COPY,7@
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Comune assente" WARNING "Comune assente"
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2 STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2
@ -124,17 +124,17 @@ END
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50 STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
BEGIN BEGIN
PROMPT 1 4 "Nome " PROMPT 1 4 "Nome "
HELP "Nome del comune dell'unita' locale" HELP "Nome del comune dell'unita' locale"
USE LF_COMUNI KEY 2 SELECT STATO="" USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
#include <comdden.h> #include <comdden.h>
OUTPUT FLD_UL1_COMULC COM OUTPUT FLD_UL1_COMULC COM
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_UL1_CAPULC CAPCOM OUTPUT FLD_UL1_CAPULC CAPCOM
MESSAGE COPY,10@ MESSAGE COPY,10@
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
@ -147,7 +147,7 @@ BEGIN
PROMPT 1 7 "Numero " PROMPT 1 7 "Numero "
FIELD LF_UNLOC->NUMCCIAA FIELD LF_UNLOC->NUMCCIAA
FLAGS "R" FLAGS "R"
HELP "Numero autorizzazione alla camera di commercio" HELP "Numero autorizzazione alla camera di commercio"
END END
DATE FLD_UL1_DATAICCIAA DATE FLD_UL1_DATAICCIAA
@ -167,46 +167,46 @@ END
DATE FLD_UL1_DATAVCCIAA DATE FLD_UL1_DATAVCCIAA
BEGIN BEGIN
PROMPT 40 8 "Data ultima variazione " PROMPT 40 8 "Data ultima variazione "
FIELD LF_UNLOC->DATAVCCIAA FIELD LF_UNLOC->DATAVCCIAA
HELP "Data dell'ultima variazione alla camera di commercio" HELP "Data dell'ultima variazione alla camera di commercio"
WARNING "Data non corretta" WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
END END
STRING FLD_UL1_COMCCIAA 4 STRING FLD_UL1_COMCCIAA 4
BEGIN BEGIN
PROMPT 1 9 "Comune " PROMPT 1 9 "Comune "
FIELD LF_UNLOC->COMCCIAA FIELD LF_UNLOC->COMCCIAA
FLAGS "U" FLAGS "U"
GROUP 1 GROUP 1
COPY USE FLD_UL1_COMULC COPY USE FLD_UL1_COMULC
INPUT STATO "" INPUT STATO ""
INPUT COM FLD_UL1_COMCCIAA INPUT COM FLD_UL1_COMCCIAA
COPY DISPLAY FLD_UL1_COMULC COPY DISPLAY FLD_UL1_COMULC
OUTPUT FLD_UL1_COMCCIAA COM OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
HELP "Codice del comune della camera di commercio" HELP "Codice del comune della camera di commercio"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Comune assente" WARNING "Comune assente"
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
END END
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50 STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
BEGIN BEGIN
PROMPT 1 10 "Nome " PROMPT 1 10 "Nome "
HELP "Nome del comune delle camera di commercio" HELP "Nome del comune delle camera di commercio"
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
OUTPUT FLD_UL1_COMCCIAA COM OUTPUT FLD_UL1_COMCCIAA COM
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
ADD RUN ba4 -0 ADD RUN ba4 -0
END END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 0 12 "Autorizzazioni" PROMPT 0 12 "Autorizzazioni"
END END
STRING FLD_UL1_NUMREC 7 STRING FLD_UL1_NUMREC 7
@ -219,8 +219,8 @@ END
STRING FLD_UL1_AUTCOM 5 STRING FLD_UL1_AUTCOM 5
BEGIN BEGIN
PROMPT 50 13 "N. comunale " PROMPT 50 13 "N. comunale "
FIELD LF_UNLOC->AUTCOM FIELD LF_UNLOC->AUTCOM
FLAGS "R" FLAGS "R"
HELP "Numero dell'autorizzazione comunale all'esercizio" HELP "Numero dell'autorizzazione comunale all'esercizio"
END END
@ -242,12 +242,12 @@ END
ENDPAGE ENDPAGE
PAGE "Unita' locali 2/2" -1 -1 77 18 PAGE "Pag. 2" -1 -1 77 18
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
BEGIN BEGIN
PROMPT 0 0 "Unita' locale" PROMPT 0 0 "Unita' locale"
FLAGS "R" FLAGS "R"
END END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
@ -287,7 +287,7 @@ END
STRING DLG_NULL 4 STRING DLG_NULL 4
BEGIN BEGIN
PROMPT 1 3 "Comune " PROMPT 1 3 "Comune "
FLAGS "D" FLAGS "D"
GROUP 7 GROUP 7
END END
@ -383,7 +383,7 @@ END
STRING FLD_UL2_CAPTRIB 5 STRING FLD_UL2_CAPTRIB 5
BEGIN BEGIN
PROMPT 57 11 "CAP " PROMPT 57 11 "CAP "
FIELD LF_UNLOC->CAPTRIB FIELD LF_UNLOC->CAPTRIB
FLAGS "RZ" FLAGS "RZ"
HELP "CAP del comune del tribunale" HELP "CAP del comune del tribunale"

View File

@ -4,7 +4,13 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE 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 STRING FLD_AT1_CODDITTA 5
BEGIN BEGIN
@ -107,12 +113,6 @@ BEGIN
HELP "Nome dell'attivita'" HELP "Nome dell'attivita'"
END END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER FLD_AT1_OLDCODATT 4 NUMBER FLD_AT1_OLDCODATT 4
BEGIN BEGIN
PROMPT 1 6 "Vecchio codice " PROMPT 1 6 "Vecchio codice "
@ -293,7 +293,13 @@ END
ENDPAGE 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 STRING DLG_NULL 5
BEGIN BEGIN
@ -330,12 +336,6 @@ BEGIN
GROUP 4 GROUP 4
END END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 11 "Indirizzo (Solo se diverso)" PROMPT 1 11 "Indirizzo (Solo se diverso)"
@ -346,7 +346,7 @@ BEGIN
PROMPT 0 6 "Tenuta Registri Contabili" PROMPT 0 6 "Tenuta Registri Contabili"
END END
LIST LST_AT2_TIPOADS 9 LIST LST_AT2_TIPOADS 10
BEGIN BEGIN
PROMPT 1 7 "Depositario : Tipo " PROMPT 1 7 "Depositario : Tipo "
FIELD LF_ATTIV->TIPOADS FIELD LF_ATTIV->TIPOADS

View File

@ -4,14 +4,14 @@ TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Soci 1/2" -1 -1 77 20 PAGE "Pag.1" -1 -1 77 20
GROUPBOX DLG_NULL 76 7 GROUPBOX DLG_NULL 76 7
BEGIN BEGIN
PROMPT 0 0 "" PROMPT 0 0 ""
FLAGS "R" FLAGS "R"
END END
NUMBER FLD_SC1_CODDITTA 5 NUMBER FLD_SC1_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
@ -70,7 +70,7 @@ END
NUMBER FLD_SC1_CODANAGRSOH 5 NUMBER FLD_SC1_CODANAGRSOH 5
BEGIN BEGIN
PROMPT 30 4 "Codice " PROMPT 31 4 "Codice "
FIELD LF_SOCI->CODANAGRSO FIELD LF_SOCI->CODANAGRSO
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
@ -98,7 +98,7 @@ END
NUMBER FLD_SC1_CODANAGRSO 5 NUMBER FLD_SC1_CODANAGRSO 5
BEGIN BEGIN
PROMPT 30 4 "Codice " PROMPT 31 4 "Codice "
FIELD LF_SOCI->CODANAGRSO FIELD LF_SOCI->CODANAGRSO
FLAGS "RG" FLAGS "RG"
KEY 1 KEY 1
@ -121,7 +121,7 @@ STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
BEGIN BEGIN
PROMPT 7 5 ": Nome " PROMPT 7 5 ": Nome "
HELP "Nome dell'anagrafica del socio" HELP "Nome dell'anagrafica del socio"
KEY 1 KEY 2
USE LF_ANAG KEY 2 USE LF_ANAG KEY 2
FLAGS "GP" FLAGS "GP"
INPUT TIPOA LST_SC1_TIPOASOC INPUT TIPOA LST_SC1_TIPOASOC
@ -179,7 +179,7 @@ END
NUMBER FLD_SC1_PERCQUAZ 7 3 NUMBER FLD_SC1_PERCQUAZ 7 3
BEGIN BEGIN
PROMPT 23 10 "%Proprieta' " PROMPT 26 10 "%Proprieta' "
FIELD LF_SOCI->PERCQUAZ FIELD LF_SOCI->PERCQUAZ
FLAGS "R" FLAGS "R"
HELP "Percentuale delle azioni possedute dal socio" HELP "Percentuale delle azioni possedute dal socio"
@ -189,7 +189,7 @@ END
NUMBER FLD_SC1_PERCAZREDD 7 3 NUMBER FLD_SC1_PERCAZREDD 7 3
BEGIN BEGIN
PROMPT 45 10 "%Reddito da quota az." PROMPT 50 10 "%Reddito "
FIELD LF_SOCI->PERCAZREDD FIELD LF_SOCI->PERCAZREDD
FLAGS "R" FLAGS "R"
HELP "Reddito derivante da quote aziendali" HELP "Reddito derivante da quote aziendali"
@ -199,7 +199,7 @@ END
NUMBER FLD_SC1_PERCAZPERD 7 3 NUMBER FLD_SC1_PERCAZPERD 7 3
BEGIN BEGIN
PROMPT 45 11 "%Perdita da quota az." PROMPT 50 11 "%Perdita "
FIELD LF_SOCI->PERCAZPERD FIELD LF_SOCI->PERCAZPERD
FLAGS "R" FLAGS "R"
HELP "Perdita derivante da quote aziendali" HELP "Perdita derivante da quote aziendali"
@ -209,7 +209,7 @@ END
LIST LST_SC1_RICQUAL 28 LIST LST_SC1_RICQUAL 28
BEGIN BEGIN
PROMPT 1 13 "R.qualifica " PROMPT 1 13 "R.qualifica "
FIELD LF_SOCI->RICQUAL FIELD LF_SOCI->RICQUAL
HELP "Qualifica del socio" HELP "Qualifica del socio"
ITEM " |Nessuna" ITEM " |Nessuna"
@ -221,7 +221,7 @@ END
NUMBER FLD_SC1_EMOLUMENTO 15 NUMBER FLD_SC1_EMOLUMENTO 15
BEGIN BEGIN
PROMPT 47 13 "Emolumento " PROMPT 47 13 "Emolumento "
FIELD LF_SOCI->EMOLUMENTO FIELD LF_SOCI->EMOLUMENTO
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -230,7 +230,7 @@ END
LIST LST_SC1_PROP 1 24 LIST LST_SC1_PROP 1 24
BEGIN BEGIN
PROMPT 1 14 "Titoli proprieta' " PROMPT 1 14 "Titoli proprieta' "
FIELD LF_SOCI->TITPROP FIELD LF_SOCI->TITPROP
ITEM "1|Intestatario" ITEM "1|Intestatario"
ITEM "2|Riportatore" ITEM "2|Riportatore"
@ -244,7 +244,7 @@ END
LIST LST_SC1_TIPOAZ 1 16 LIST LST_SC1_TIPOAZ 1 16
BEGIN BEGIN
PROMPT 45 14 "Tipo azioni " PROMPT 47 14 "Tipo azioni "
FIELD LF_SOCI->TIPOAZ FIELD LF_SOCI->TIPOAZ
ITEM "O|Ordinarie" ITEM "O|Ordinarie"
ITEM "P|Privilegiate" ITEM "P|Privilegiate"
@ -252,6 +252,11 @@ BEGIN
HELP "Tipo di azioni posseduta dal socio" HELP "Tipo di azioni posseduta dal socio"
END END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 0 15 "Ultimo aggiornamento"
END
DATE FLD_SC1_DATAGG DATE FLD_SC1_DATAGG
BEGIN BEGIN
PROMPT 1 16 "Data " PROMPT 1 16 "Data "
@ -259,11 +264,6 @@ BEGIN
FLAGS "DA" FLAGS "DA"
END END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 0 15 "Ultimo aggiornamento"
END
STRING F_UTENTE 10 STRING F_UTENTE 10
BEGIN BEGIN
PROMPT 45 16 "Utente " PROMPT 45 16 "Utente "
@ -272,7 +272,7 @@ END
ENDPAGE ENDPAGE
PAGE "Soci 2/2" -1 -1 77 20 PAGE "Pag. 2" -1 -1 77 20
GROUPBOX DLG_NULL 76 7 GROUPBOX DLG_NULL 76 7
BEGIN BEGIN
@ -294,7 +294,7 @@ BEGIN
GROUP 3 GROUP 3
END END
LIST DLG_NULL 9 LIST DLG_NULL 12
BEGIN BEGIN
PROMPT 1 4 "Socio : Tipo " PROMPT 1 4 "Socio : Tipo "
FLAGS "D" FLAGS "D"
@ -314,14 +314,14 @@ END
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN
PROMPT 30 4 "Codice " PROMPT 31 4 "Codice "
FLAGS "RD" FLAGS "RD"
GROUP 5 GROUP 5
END END
STRING DLG_NULL 50 STRING DLG_NULL 50
BEGIN BEGIN
PROMPT 7 5 ": Nome " PROMPT 9 5 "Nome "
FLAGS "D" FLAGS "D"
GROUP 6 GROUP 6
END END
@ -388,9 +388,14 @@ BEGIN
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)} NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
END 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 NUMBER FLD_SC2_CODANAGCON 5
BEGIN BEGIN
PROMPT 1 12 "Coniuge: Codice " PROMPT 10 14 "Codice "
FIELD LF_SOCI->CODANAGCON FIELD LF_SOCI->CODANAGCON
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
@ -409,7 +414,7 @@ END
STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50 STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50
BEGIN BEGIN
PROMPT 8 13 ": Nome " PROMPT 10 15 "Nome "
HELP "Nome del coniuge del socio" HELP "Nome del coniuge del socio"
USE LF_ANAG KEY 2 USE LF_ANAG KEY 2
INPUT TIPOA "F" INPUT TIPOA "F"
@ -423,7 +428,7 @@ END
STRING FLD_SC2_NOTE 60 STRING FLD_SC2_NOTE 60
BEGIN BEGIN
PROMPT 1 15 "Note " PROMPT 1 17 "Note "
FIELD LF_SOCI->NOTE FIELD LF_SOCI->NOTE
HELP "Eventuali note riferite al socio" HELP "Eventuali note riferite al socio"
END END

View File

@ -3,110 +3,110 @@ PAGE "Impostazione Etichette" -1 -1 57 15
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 39 1 "Riga" PROMPT 39 1 "Riga"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 47 1 "Colonna" PROMPT 47 1 "Colonna"
END END
RADIOBUTTON RDB_BA6B_INDIR 23 RADIOBUTTON RDB_BA6B_INDIR 23
BEGIN BEGIN
PROMPT 4 1 "Indirizzo" PROMPT 4 1 "Indirizzo"
ITEM "1|Residenza" ITEM "1|Residenza"
ITEM "2|Domicilio fiscale" ITEM "2|Domicilio fiscale"
ITEM "3|Corrispondenza" ITEM "3|Corrispondenza"
HELP "Indicare l'indirizzo da includere nelle etichette" HELP "Indicare l'indirizzo da includere nelle etichette"
END END
NUMBER FLD_BA6B_INDROW 4 NUMBER FLD_BA6B_INDROW 4
BEGIN BEGIN
PROMPT 39 2 "" PROMPT 39 2 ""
HELP "N. di riga dove posizionare l'indirizzo" HELP "N. di riga dove posizionare l'indirizzo"
END END
NUMBER FLD_BA6B_INDCOL 4 NUMBER FLD_BA6B_INDCOL 4
BEGIN BEGIN
PROMPT 47 2 "" PROMPT 47 2 ""
HELP "N. di colonna dove posizionare l'indirizzo" HELP "N. di colonna dove posizionare l'indirizzo"
END END
BOOLEAN CHK_BA6B_PIVA BOOLEAN CHK_BA6B_PIVA
BEGIN BEGIN
PROMPT 4 7 "Partita IVA/ Codice fiscale" PROMPT 4 7 "Partita IVA/ Codice fiscale"
MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL
MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL
HELP "Indicare se stampare la Partita IVA/Codice fiscale" HELP "Indicare se stampare la Partita IVA/Codice fiscale"
END END
NUMBER FLD_BA6B_PIVROW 4 NUMBER FLD_BA6B_PIVROW 4
BEGIN BEGIN
PROMPT 39 7 "" PROMPT 39 7 ""
FLAGS "D" FLAGS "D"
HELP "N. di riga dove posizionare la partita IVA" HELP "N. di riga dove posizionare la partita IVA"
END END
NUMBER FLD_BA6B_PIVCOL 4 NUMBER FLD_BA6B_PIVCOL 4
BEGIN BEGIN
PROMPT 47 7 "" PROMPT 47 7 ""
FLAGS "D" FLAGS "D"
HELP "N. di colonna dove posizionare la partita IVA" HELP "N. di colonna dove posizionare la partita IVA"
END END
BOOLEAN CHK_BA6B_CODICE BOOLEAN CHK_BA6B_CODICE
BEGIN BEGIN
PROMPT 4 8 "Includi codice anagrafico" PROMPT 4 8 "Includi codice anagrafico"
MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL
MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL
HELP "Indicare se stampare il codice anagrafico" HELP "Indicare se stampare il codice anagrafico"
END END
NUMBER FLD_BA6B_CODROW 4 NUMBER FLD_BA6B_CODROW 4
BEGIN BEGIN
PROMPT 39 8 "" PROMPT 39 8 ""
FLAGS "D" FLAGS "D"
HELP "N. di riga dove posizionare il codice" HELP "N. di riga dove posizionare il codice"
END END
NUMBER FLD_BA6B_CODCOL 4 NUMBER FLD_BA6B_CODCOL 4
BEGIN BEGIN
PROMPT 47 8 "" PROMPT 47 8 ""
FLAGS "D" FLAGS "D"
HELP "N. di colonna dove posizionare il codice" HELP "N. di colonna dove posizionare il codice"
END END
NUMBER FLD_BA6B_TOTROW 4 NUMBER FLD_BA6B_TOTROW 4
BEGIN 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)" HELP "Totale righe (altezza dell'etichetta)"
END END
NUMBER FLD_BA6B_TOTCOL 4 NUMBER FLD_BA6B_TOTCOL 4
BEGIN BEGIN
PROMPT 47 10 "" PROMPT 47 10 ""
HELP "Totale colonne (larghezza dell'etichetta)" HELP "Totale colonne (larghezza dell'etichetta)"
END END
BOOLEAN CHK_BA6B_SAVE BOOLEAN CHK_BA6B_SAVE
BEGIN BEGIN
PROMPT 4 11 "Salva impostazioni" PROMPT 4 11 "Salva impostazioni"
HELP "Indicare se ritorvare le impostazioni successivamente" HELP "Indicare se ritorvare le impostazioni successivamente"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "Conferma" PROMPT -13 -1 "Conferma"
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "Annulla" PROMPT -23 -1 "Annulla"
END END
BUTTON BUT_BA6B_RESET 9 2 BUTTON BUT_BA6B_RESET 10 2
BEGIN BEGIN
PROMPT -33 -1 "~Reset" PROMPT -33 -1 "~Reset"
END END
ENDPAGE ENDPAGE

View File

@ -1,6 +1,6 @@
#include "ba6200.h" #include "ba6200.h"
PAGE "" -1 -1 65 16 PAGE "" -1 -1 67 16
RADIOBUTTON F_SCELTA 25 RADIOBUTTON F_SCELTA 25
BEGIN BEGIN

View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -29,12 +29,12 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -4,9 +4,9 @@ PAGE "Stampa banche" -1 -1 56 8
STRING F_INIZIO1 5 STRING F_INIZIO1 5
BEGIN BEGIN
PROMPT 2 1 "DA codice (ABI) " PROMPT 2 1 "DA codice (ABI) "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice d'inizio " HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,5] FIELD LF_TABCOM->CODTAB[1,5]
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_INIZIO1 INPUT CODTAB[1,5] F_INIZIO1
@ -17,54 +17,54 @@ BEGIN
DISPLAY "Dipendenza@35" S1 DISPLAY "Dipendenza@35" S1
OUTPUT F_INIZIO1 CODTAB[1,5] OUTPUT F_INIZIO1 CODTAB[1,5]
OUTPUT F_INIZIO2 CODTAB[6,10] OUTPUT F_INIZIO2 CODTAB[6,10]
GROUP 1 GROUP 1
END END
STRING F_INIZIO2 5 STRING F_INIZIO2 5
BEGIN BEGIN
PROMPT 28 1 "DA codice (CAB) " PROMPT 28 1 "DA codice (CAB) "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice d'inizio " HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[6,10] FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_INIZIO1 COPY ALL F_INIZIO1
GROUP 1 GROUP 1
END END
STRING F_FINE1 5 STRING F_FINE1 5
BEGIN BEGIN
PROMPT 2 3 "A codice (ABI) " PROMPT 2 3 "A codice (ABI) "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine " HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,5] FIELD LF_TABCOM->CODTAB[1,5]
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1 INPUT CODTAB[1,5] F_FINE1
INPUT CODTAB[6,10] F_FINE2 INPUT CODTAB[6,10] F_FINE2
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5] OUTPUT F_FINE1 CODTAB[1,5]
OUTPUT F_FINE2 CODTAB[6,10] OUTPUT F_FINE2 CODTAB[6,10]
GROUP 2 GROUP 2
END END
STRING F_FINE2 5 STRING F_FINE2 5
BEGIN BEGIN
PROMPT 28 3 "A codice (CAB) " PROMPT 28 3 "A codice (CAB) "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine " HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[6,10] FIELD LF_TABCOM->CODTAB[6,10]
COPY ALL F_FINE1 COPY ALL F_FINE1
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -15,17 +15,18 @@ BEGIN
DISPLAY "Data valuta" D0 DISPLAY "Data valuta" D0
DISPLAY "Descrizione@50" -200->S0 DISPLAY "Descrizione@50" -200->S0
OUTPUT F_INIZIO1 CODTAB[1,3] OUTPUT F_INIZIO1 CODTAB[1,3]
OUTPUT F_INIZIO2 CODTAB[4,11] OUTPUT F_INIZIO2 CODTAB[4,14]
GROUP 1 GROUP 1
END END
DATE F_INIZIO2 DATE F_INIZIO2
BEGIN BEGIN
PROMPT 28 1 "Da data " PROMPT 28 1 "Da data "
HELP "Inserire la data iniziale" HELP "Inserire la data iniziale"
FIELD LF_TABCOM->CODTAB[4,11] FIELD LF_TABCOM->CODTAB[4,11]
COPY ALL F_INIZIO1 COPY ALL F_INIZIO1
GROUP 1 FLAGS "R"
GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
@ -47,21 +48,22 @@ END
DATE F_FINE2 DATE F_FINE2
BEGIN BEGIN
PROMPT 28 3 "A data " PROMPT 28 3 "A data "
HELP "Inserire la data finale " HELP "Inserire la data finale "
FIELD LF_TABCOM->CODTAB[4,11] FIELD LF_TABCOM->CODTAB[4,11]
COPY ALL F_FINE1 FLAGS "R"
GROUP 2 COPY ALL F_FINE1
GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Categorie contabili" -1 -1 50 8 PAGE "Stampa Categorie contabili" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CCO USE %CCO
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Categorie finanziarie" -1 -1 50 8 PAGE "Stampa Categorie finanziarie" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CFI USE %CFI
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -76,14 +76,14 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -29,14 +29,14 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,39 +4,39 @@ PAGE "Stampa cariche sociali" -1 -1 50 8
STRING F_INIZIO1 2 STRING F_INIZIO1 2
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CRS USE %CRS
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Carica@25" S0 DISPLAY "Carica@25" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 2 STRING F_FINE1 2
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -6,7 +6,7 @@ BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
USE %CTR USE %CTR
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -20,7 +20,7 @@ BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
@ -28,12 +28,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -3,42 +3,42 @@
PAGE "Stampa Categorie Vendita" -1 -1 50 8 PAGE "Stampa Categorie Vendita" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
USE %CVE USE %CVE
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Provvigione" R0 DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1 DISPLAY "Gruppo" I1
DISPLAY "Conto" I2 DISPLAY "Conto" I2
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -19,22 +19,22 @@ STRING F_FINE1 5
BEGIN BEGIN
PROMPT 4 3 "A codice " PROMPT 4 3 "A codice "
FLAGS "U" FLAGS "U"
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
FIELD CODTAB FIELD CODTAB
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -10,50 +10,40 @@ END
NUMBER F_INIZIO1 4 NUMBER F_INIZIO1 4
BEGIN BEGIN
PROMPT 2 3 "Da anno " PROMPT 2 3 "Da anno "
HELP "Anno esercizio con cui iniziare la stampa" HELP "Anno esercizio con cui iniziare la stampa"
FIELD LF_TAB->CODTAB FIELD LF_TAB->CODTAB
FLAGS "ZR" FLAGS "ZR"
USE ESC KEY 1 USE ESC KEY 1
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Anno esercizio" CODTAB DISPLAY "Anno esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0 DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1 DISPLAY "Data fine esercizio" D1
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
NUMBER F_FINE1 4 NUMBER F_FINE1 4
BEGIN BEGIN
PROMPT 25 3 "a anno " PROMPT 25 3 "a anno "
HELP "Anno esercizio con cui finire la stampa" HELP "Anno esercizio con cui finire la stampa"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
FLAGS "ZR" FLAGS "ZR"
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -2 "" PROMPT -12 -2 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -2 "" PROMPT -22 -2 ""
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -2 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -2 ""
END END
ENDPAGE ENDPAGE

View File

@ -27,14 +27,14 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,41 +4,41 @@ PAGE "Stampa codici IVA" -1 -1 50 8
STRING F_INIZIO1 4 STRING F_INIZIO1 4
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio" HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %IVA USE %IVA
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
END END
STRING F_FINE1 4 STRING F_FINE1 4
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo" HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
VALIDATE ZEROFILL_FUNC 2 VALIDATE ZEROFILL_FUNC 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Legali" -1 -1 50 8 PAGE "Stampa Legali" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %LEG USE %LEG
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa listini" -1 -1 50 8 PAGE "Stampa listini" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %LIS USE %LIS
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -27,14 +27,14 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %MSP USE %MSP
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Note documento" -1 -1 50 8 PAGE "Stampa Note documento" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %NDO USE %NDO
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,41 +3,41 @@
PAGE "Stampa Codici note" -1 -1 50 8 PAGE "Stampa Codici note" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %NOT USE %NOT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0 DISPLAY "Destinazione@30" S0
DISPLAY "Blocca imm." B0 DISPLAY "Blocca imm." B0
DISPLAY "Documento" B1 DISPLAY "Documento" B1
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -56,14 +56,14 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Modalita' di consegna" -1 -1 50 8 PAGE "Stampa Modalita' di consegna" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %POR USE %POR
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -1,4 +1,4 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa registri" -1 -1 74 8 PAGE "Stampa registri" -1 -1 74 8
@ -32,31 +32,12 @@ NUMBER F_INIZIO2 4
BEGIN BEGIN
PROMPT 1 4 "Stampa i registri dell'anno " PROMPT 1 4 "Stampa i registri dell'anno "
FLAGS "RZ" FLAGS "RZ"
// FLAGS "A"
FIELD CODTAB[1,4] FIELD CODTAB[1,4]
HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri" HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri"
MESSAGE COPY, F_FINE2 MESSAGE COPY, F_FINE2
GROUP 1 GROUP 1
END 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 NUMBER F_FINE2 4
BEGIN BEGIN
@ -65,23 +46,6 @@ BEGIN
GROUP 2 GROUP 2
END 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 BUTTON DLG_PRINT 10 2
BEGIN BEGIN

View File

@ -3,39 +3,39 @@
PAGE "Stampa Spese da addebitare" -1 -1 50 8 PAGE "Stampa Spese da addebitare" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %SAD USE %SAD
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@20" S0 DISPLAY "Descrizione@20" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa sconti clienti" -1 -1 50 8 PAGE "Stampa sconti clienti" -1 -1 50 8
STRING F_INIZIO1 2 STRING F_INIZIO1 2
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %SCC USE %SCC
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 2 STRING F_FINE1 2
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,39 +4,39 @@ PAGE "Stampa stati" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %STA USE %STA
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0 DISPLAY "Stato@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,37 +4,37 @@ PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7 STRING F_INIZIO1 7
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %STT USE %STT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 7 STRING F_FINE1 7
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,71 +4,71 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
STRING F_INIZIO1 2 STRING F_INIZIO1 2
BEGIN BEGIN
PROMPT 2 1 "Da cod. agente " PROMPT 2 1 "Da cod. agente "
HELP "Inserire il codice d'inizio " HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,2] FIELD LF_TABCOM->CODTAB[1,2]
USE %AGE USE %AGE
INPUT CODTAB[1,2] F_INIZIO1 INPUT CODTAB[1,2] F_INIZIO1
DISPLAY "Codice Agente" CODTAB[1,2] DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2] OUTPUT F_INIZIO1 CODTAB[1,2]
GROUP 1 GROUP 1
END END
STRING F_INIZIO2 2 STRING F_INIZIO2 2
BEGIN BEGIN
PROMPT 28 1 "Da cod. subagente " PROMPT 28 1 "Da cod. subagente "
HELP "Inserire il codice d'inizio " HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,4] FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA USE %SUA
INPUT CODTAB[1,2] F_INIZIO1 INPUT CODTAB[1,2] F_INIZIO1
INPUT CODTAB[3,4] F_INIZIO2 INPUT CODTAB[3,4] F_INIZIO2
DISPLAY "Codice Agente" CODTAB[1,2] DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4] DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,2] OUTPUT F_INIZIO1 CODTAB[1,2]
OUTPUT F_INIZIO2 CODTAB[3,4] OUTPUT F_INIZIO2 CODTAB[3,4]
GROUP 1 GROUP 1
END END
STRING F_FINE1 2 STRING F_FINE1 2
BEGIN BEGIN
PROMPT 2 3 "A codice agente " PROMPT 2 3 "A codice agente "
HELP "Inserire il codice di fine " HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,2] FIELD LF_TABCOM->CODTAB[1,2]
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB[1,2] F_FINE1 INPUT CODTAB[1,2] F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,2] OUTPUT F_FINE1 CODTAB[1,2]
GROUP 2 GROUP 2
END END
STRING F_FINE2 2 STRING F_FINE2 2
BEGIN BEGIN
PROMPT 28 3 "A codice subagente " PROMPT 28 3 "A codice subagente "
HELP "Inserire il codice di fine " HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,4] FIELD LF_TABCOM->CODTAB[3,4]
USE %SUA USE %SUA
INPUT CODTAB[1,2] F_FINE1 INPUT CODTAB[1,2] F_FINE1
INPUT CODTAB[3,4] F_FINE2 INPUT CODTAB[3,4] F_FINE2
DISPLAY "Codice Agente" CODTAB[1,2] DISPLAY "Codice Agente" CODTAB[1,2]
DISPLAY "Codice SubAgente" CODTAB[3,4] DISPLAY "Codice SubAgente" CODTAB[3,4]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_FINE1 CODTAB[1,2] OUTPUT F_FINE1 CODTAB[1,2]
OUTPUT F_FINE2 CODTAB[3,4] OUTPUT F_FINE2 CODTAB[3,4]
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -3,39 +3,39 @@
PAGE "Stampa Titoli onorifici" -1 -1 50 8 PAGE "Stampa Titoli onorifici" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %TIT USE %TIT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,37 +4,37 @@ PAGE "Stampa tipi documenti" -1 -1 50 8
STRING F_INIZIO1 2 STRING F_INIZIO1 2
BEGIN BEGIN
PROMPT 4 1 "Tipo documento " PROMPT 4 1 "Tipo documento "
USE %TPD USE %TPD
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Tipo" CODTAB DISPLAY "Tipo" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
FLAGS "U" FLAGS "U"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 2 STRING F_FINE1 2
BEGIN BEGIN
PROMPT 4 3 "Tipo documento " PROMPT 4 3 "Tipo documento "
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
FLAGS "U" FLAGS "U"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,39 +4,39 @@ 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" 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
DISPLAY "Ufficio@30" S0 DISPLAY "Ufficio@30" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 1 GROUP 1
FLAGS "RZ" FLAGS "RZ"
END 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" 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
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 2 GROUP 2
FLAGS "RZ" FLAGS "RZ"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -29,12 +29,12 @@ BEGIN
FLAGS "RZ" FLAGS "RZ"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -4,39 +4,39 @@ PAGE "Stampa uffici esattoria" -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 la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %UES USE %UES
FLAGS "RZ" FLAGS "RZ"
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@25" S0 DISPLAY "Descrizione@25" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 1 GROUP 1
END END
NUMBER F_FINE1 3 NUMBER F_FINE1 3
BEGIN BEGIN
PROMPT 3 3 "A codice " PROMPT 3 3 "A codice "
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1 COPY USE F_INIZIO1
FLAGS "RZ" FLAGS "RZ"
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,39 +4,39 @@ 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" 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
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
GROUP 1 GROUP 1
FLAGS "RZ" FLAGS "RZ"
END 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" 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
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
FLAGS "RZ" FLAGS "RZ"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -4,37 +4,37 @@ PAGE "Stampa Uffici IVA" -1 -1 50 8
NUMBER F_INIZIO1 3 NUMBER F_INIZIO1 3
BEGIN BEGIN
PROMPT 3 1 "Da codice " PROMPT 3 1 "Da codice "
USE %UIV USE %UIV
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
FLAGS "RZ" FLAGS "RZ"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
END END
NUMBER F_FINE1 3 NUMBER F_FINE1 3
BEGIN BEGIN
PROMPT 3 3 "A codice " PROMPT 3 3 "A codice "
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
FLAGS "RZ" FLAGS "RZ"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -29,12 +29,12 @@ BEGIN
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -3,39 +3,39 @@
PAGE "Stampa valute" -1 -1 50 8 PAGE "Stampa valute" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %VAL USE %VAL
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0 DISPLAY "Valuta@25" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -52,14 +52,14 @@ BEGIN
COPY OUTPUT F_FINE1 COPY OUTPUT F_FINE1
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -2 "" PROMPT -12 -2 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -2 "" PROMPT -22 -2 ""
END END
ENDPAGE ENDPAGE

View File

@ -30,12 +30,12 @@ OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END

View File

@ -3,39 +3,39 @@
PAGE "Stampa Zone" -1 -1 50 8 PAGE "Stampa Zone" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %ZON USE %ZON
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Codice di fine. Vuoto = fine archivio" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

View File

@ -8,7 +8,7 @@ ENDPAGE
PAGE "Tabella Aspetto dei Beni" -1 -1 78 8 PAGE "Tabella Aspetto dei Beni" -1 -1 78 8
STRING F_CODICE 3 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB FIELD CODTAB

View File

@ -45,8 +45,8 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BUTTON BUT_CHECK 10 1 BUTTON BUT_CHECK 10 1
BEGIN BEGIN
PROMPT 40 5 "Controllo" PROMPT 40 5 "Controllo"
END END
@ -70,7 +70,7 @@ BEGIN
END END
DATE F_DATASCARICO DATE F_DATASCARICO
BEGIN BEGIN
PROMPT 4 11 "Data di scarico " PROMPT 4 11 "Data di scarico "
HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto" HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
FIELD LF_TAB->D2 FIELD LF_TAB->D2

View File

@ -67,7 +67,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LIST F_MESE 2 12 LIST F_MESE 2 10
BEGIN BEGIN
PROMPT 40 2 "Mese registrazione " PROMPT 40 2 "Mese registrazione "
FIELD MESEREG FIELD MESEREG
@ -143,7 +143,7 @@ BEGIN
USE REG KEY 2 USE REG KEY 2
INPUT S0 F_DESCREG INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice registro" CODLIB DISPLAY "Codice registro" CODTAB
COPY OUTPUT F_CODREG COPY OUTPUT F_CODREG
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END

View File

@ -48,7 +48,7 @@ BEGIN
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
END END
LIST LST_TABIVA_S1 2 22 LIST LST_TABIVA_S1 2 20
BEGIN BEGIN
PROMPT 3 3 "Tipo codice " PROMPT 3 3 "Tipo codice "
FIELD S1 FIELD S1
@ -115,7 +115,7 @@ BEGIN
PROMPT 44 5 "Indicatori mod. 101/102" PROMPT 44 5 "Indicatori mod. 101/102"
END END
LIST FLD_TABIVA_S7 1 26 LIST FLD_TABIVA_S7 1 24
BEGIN BEGIN
PROMPT 4 6 "Clienti " PROMPT 4 6 "Clienti "
FIELD S7 FIELD S7
@ -125,7 +125,7 @@ BEGIN
ITEM "3|Non imponibili" ITEM "3|Non imponibili"
END END
LIST FLD_TABIVA_S8 1 26 LIST FLD_TABIVA_S8 1 24
BEGIN BEGIN
PROMPT 4 7 "Fornitori " PROMPT 4 7 "Fornitori "
FIELD S8 FIELD S8
@ -150,7 +150,7 @@ BEGIN
HELP "Indicare se il codice deve comparire nel modello 102" HELP "Indicare se il codice deve comparire nel modello 102"
END END
LIST FLD_TABIVA_I3 3 6 LIST FLD_TABIVA_I3 3 4
BEGIN BEGIN
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. " PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "
FIELD I3 FIELD I3
@ -161,7 +161,7 @@ BEGIN
ITEM "3|B3" ITEM "3|B3"
END END
LIST FLD_TABIVA_I4 3 6 LIST FLD_TABIVA_I4 3 4
BEGIN BEGIN
PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. " PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. "
FIELD I4 FIELD I4
@ -170,7 +170,7 @@ BEGIN
ITEM "14|B14" ITEM "14|B14"
END END
LIST LST_TABIVA_S3 1 33 LIST LST_TABIVA_S3 1 31
BEGIN BEGIN
PROMPT 3 12 "Gestione plafond " PROMPT 3 12 "Gestione plafond "
FIELD S3 FIELD S3
@ -181,7 +181,7 @@ BEGIN
ITEM "3|Oper. relative art.9" ITEM "3|Oper. relative art.9"
END END
LIST LST_TABIVA_S4 1 45 LIST LST_TABIVA_S4 1 43
BEGIN BEGIN
PROMPT 3 13 "Regime agricolo " PROMPT 3 13 "Regime agricolo "
FIELD S4 FIELD S4
@ -192,7 +192,7 @@ BEGIN
ITEM "3|Acquisti ad uso promiscuo" ITEM "3|Acquisti ad uso promiscuo"
END END
LIST LST_TABIVA_S5 1 33 LIST LST_TABIVA_S5 1 31
BEGIN BEGIN
PROMPT 3 14 "Ag. viaggio/turismo " PROMPT 3 14 "Ag. viaggio/turismo "
FIELD S5 FIELD S5

View File

@ -8,48 +8,48 @@ PAGE "Vecchi codici attivita'" -1 -1 78 7
STRING FLD_TABOIS_CODTAB 4 STRING FLD_TABOIS_CODTAB 4
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4] FIELD %OIS->CODTAB[1,4]
HELP "Codice del vecchio codice attivit…" HELP "Codice del vecchio codice attivita'"
USE %OIS USE %OIS
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0 OUTPUT FLD_TABOIS_S0 S0
KEY 1 KEY 1
FLAGS "RZ" FLAGS "RZ"
END END
STRING FLD_TABOIS_ADD 1 STRING FLD_TABOIS_ADD 1
BEGIN BEGIN
PROMPT 22 1 "Subcodice " PROMPT 22 1 "Subcodice "
HELP "Subcodice del vecchio codice attivit…" HELP "Subcodice del vecchio codice attivita'"
FIELD %OIS->CODTAB[5,] FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB COPY ALL FLD_TABOIS_CODTAB
KEY 1 KEY 1
FLAGS "U" FLAGS "U"
VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
END END
STRING FLD_TABOIS_S0 40 STRING FLD_TABOIS_S0 40
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FIELD %OIS->S0 FIELD %OIS->S0
HELP "Descrizione del vecchio codice attivit… " HELP "Descrizione del vecchio codice attivita' "
USE %OIS KEY 2 USE %OIS KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0 INPUT S0 FLD_TABOIS_S0
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0 OUTPUT FLD_TABOIS_S0 S0
KEY 2 KEY 2
END END
ENDPAGE ENDPAGE

View File

@ -9,16 +9,16 @@ PAGE "" -1 -1 78 16
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
KEY 1 KEY 1
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
@ -81,13 +81,13 @@ BEGIN
FLAGS "UZ" FLAGS "UZ"
USE REG USE REG
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB[1,4] F_REGISTRO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_ANNO INPUT CODTAB[5,7] F_REGISTRO
DISPLAY "Codice registro" CODTAB[1,3] DISPLAY "Codice registro" CODTAB[5,7]
DISPLAY "Anno" CODTAB[4,7] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_REGISTRO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_ANNO CODTAB[5,7] OUTPUT F_REGISTRO CODTAB[5,7]
WARNING "Codice registro assente" WARNING "Codice registro assente"
KEY 1 KEY 1
END END
@ -107,7 +107,7 @@ BEGIN
PROMPT 4 8 "Tipo Costo/Ricavo " PROMPT 4 8 "Tipo Costo/Ricavo "
HELP "Tipo di conto costo o ricavo" HELP "Tipo di conto costo o ricavo"
FIELD LF_TAB->CODTAB[15,15] FIELD LF_TAB->CODTAB[15,15]
COPY ALL F_ANNO COPY ALL F_ANNO
KEY 1 KEY 1
END END

View File

@ -17,7 +17,7 @@ END
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
HELP "Codice della modalit di consegna" HELP "Codice della modalita' di consegna"
FIELD CODTAB FIELD CODTAB
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -33,7 +33,7 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 4 "Descrizione " PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalit di consegna" HELP "Descrizione della modalita' di consegna"
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %POR KEY 2 USE %POR KEY 2

View File

@ -7,7 +7,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Registri" -1 -1 78 18 PAGE "Pag.1" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
@ -101,7 +101,7 @@ BEGIN
HELP "Codice del libro sociale a cui fa riferimento il registro" HELP "Codice del libro sociale a cui fa riferimento il registro"
END END
LIST F_TIPO 1 30 LIST F_TIPO 1 28
BEGIN BEGIN
PROMPT 30 5 "Tipo " PROMPT 30 5 "Tipo "
HELP "Tipo di registro" HELP "Tipo di registro"
@ -242,7 +242,7 @@ END
ENDPAGE ENDPAGE
PAGE "Registri pag.2" -1 -1 78 18 PAGE "Pag.2" -1 -1 78 18
NUMBER DLG_NULL 5 NUMBER DLG_NULL 5
BEGIN BEGIN

View File

@ -60,7 +60,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LIST F_AGGCAUSALI 6 LIST F_AGGCAUSALI 7
BEGIN BEGIN
PROMPT 1 6 "Aggiornamento causali gia' presenti " PROMPT 1 6 "Aggiornamento causali gia' presenti "
FIELD %TRA->S0 FIELD %TRA->S0
@ -69,7 +69,7 @@ BEGIN
ITEMS "T|Tutto" ITEMS "T|Tutto"
END END
LIST F_AGGCLIFO 6 LIST F_AGGCLIFO 7
BEGIN BEGIN
PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti " PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti "
FIELD %TRA->S1 FIELD %TRA->S1
@ -78,7 +78,7 @@ BEGIN
ITEMS "T|Tutto" ITEMS "T|Tutto"
END END
LIST F_AGGPCON 6 LIST F_AGGPCON 7
BEGIN BEGIN
PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti " PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti "
FIELD %TRA->S2 FIELD %TRA->S2
@ -87,7 +87,7 @@ BEGIN
ITEMS "T|Tutto" ITEMS "T|Tutto"
END END
LIST F_AGGIVD 6 LIST F_AGGIVD 7
BEGIN BEGIN
PROMPT 1 9 "Aggiornamento classi Piano dei Conti " PROMPT 1 9 "Aggiornamento classi Piano dei Conti "
FIELD %TRA->S3 FIELD %TRA->S3

View File

@ -6,7 +6,7 @@ TOOLBAR "" 0 20 0 2
ENDPAGE ENDPAGE
PAGE "Versamenti ed interessi IVA" -1 -1 78 16 PAGE "Interessi IVA" -1 -1 78 16
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
@ -164,7 +164,7 @@ END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 16 PAGE "Versamenti IVA" -1 -1 78 16
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN

View File

@ -65,7 +65,7 @@ END
NUMBER F_PAGDA 5 NUMBER F_PAGDA 5
BEGIN BEGIN
PROMPT 4 11 "Dalla pagina " PROMPT 4 11 "Dalla pagina "
WARNING "E' necessario specificare un numero di pagina iniziale" WARNING "E' necessario specificare un numero di pagina iniziale"
FIELD I1 FIELD I1
FLAGS "R" FLAGS "R"
@ -74,7 +74,7 @@ END
NUMBER F_PAGA 5 NUMBER F_PAGA 5
BEGIN BEGIN
PROMPT 30 11 "Alla pagina " PROMPT 32 11 "Alla pagina "
FIELD I2 FIELD I2
FLAGS "R" FLAGS "R"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED