Maschere di Andrea

git-svn-id: svn://10.65.10.50/trunk@545 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-07 13:48:44 +00:00
parent 8da83e1638
commit d87826888b
7 changed files with 141 additions and 126 deletions

View File

@ -1,6 +1,7 @@
#include <applicat.h> #include <applicat.h>
#include <execp.h> #include <execp.h>
#include <mask.h> #include <mask.h>
#include <prefix.h>
#include <progind.h> #include <progind.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
@ -355,6 +356,7 @@ bool TMenu_application::menu(MENU_TAG)
if (module == "cg" && !_ditta_asked) if (module == "cg" && !_ditta_asked)
_ditta_asked = ok = set_firm(); _ditta_asked = ok = set_firm();
if (ok) a.run(); if (ok) a.run();
prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta
} }
} }
} }

View File

@ -13,25 +13,25 @@ END
STRING FLD_NOME 43 STRING FLD_NOME 43
BEGIN BEGIN
PROMPT 2 2 "Nome " PROMPT 2 2 "Nome "
HELP "Inserire il nome" HELP "Nome del file"
END END
STRING FLD_DESC 43 STRING FLD_DESC 43
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
HELP "Inserire la descrizione" HELP "Descrizione assegnata al file"
END END
STRING FLD_FORMULA 43 STRING FLD_FORMULA 43
BEGIN BEGIN
PROMPT 2 4 "Formula " PROMPT 2 4 "Formula "
HELP "Inserire la formula" HELP "Formula per il calcolo su file"
END END
NUMBER FLD_EOD 7 NUMBER FLD_EOD 7
BEGIN BEGIN
PROMPT 2 5 "Record usati " PROMPT 2 5 "Record usati "
HELP "Inserire EOD" HELP "Numero di record utilizzati"
WARNING "Numero di record errato" WARNING "Numero di record errato"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)} NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)}
FLAGS "R" FLAGS "R"
@ -40,6 +40,7 @@ END
BOOLEAN FLD_EXTEND BOOLEAN FLD_EXTEND
BEGIN BEGIN
PROMPT 2 6 "Cambia dimensione" PROMPT 2 6 "Cambia dimensione"
HELP "Indicare se si desidera cambiare la dimensione del file"
MESSAGE FALSE DISABLE,FLD_EOX|UNDO,FLD_EOX MESSAGE FALSE DISABLE,FLD_EOX|UNDO,FLD_EOX
MESSAGE TRUE ENABLE,FLD_EOX MESSAGE TRUE ENABLE,FLD_EOX
END END
@ -47,7 +48,7 @@ END
NUMBER FLD_EOX 7 NUMBER FLD_EOX 7
BEGIN BEGIN
PROMPT 30 6 "Dimensione " PROMPT 30 6 "Dimensione "
HELP "Inserire EOD" HELP "Dimensione da assegnare al file"
WARNING "Dimensione non corretta" WARNING "Dimensione non corretta"
NUM_EXPR {#THIS_FIELD>=#FLD_EOD} NUM_EXPR {#THIS_FIELD>=#FLD_EOD}
FLAGS "RD" FLAGS "RD"
@ -56,7 +57,7 @@ END
NUMBER FLD_FLAG 7 NUMBER FLD_FLAG 7
BEGIN BEGIN
PROMPT 2 7 "Flags " PROMPT 2 7 "Flags "
HELP "Inserire Flags" HELP "Flags del file"
FLAGS "R" FLAGS "R"
END END
@ -108,4 +109,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

View File

@ -1,68 +1,74 @@
#include <defmask.h> #include <defmask.h>
#include "ba1100a.h" #include "ba1100a.h"
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 "Inserire il nome del file di output" HELP "Nome del file sul quale scaricare"
END END
BOOLEAN FLD_WITHKEY BOOLEAN FLD_WITHKEY
BEGIN BEGIN
PROMPT 2 3 "Scarica con indice" PROMPT 2 3 "Scarica con indice"
MESSAGE FALSE CLEAR,FLD_KEYNO|ENABLE,FLD_WITHDEL HELP "Indicare se lo scarico avviene con l'ordinamento dell'indice"
MESSAGE TRUE ENABLE,FLD_KEYNO|"1",FLD_KEYNO|CLEAR,FLD_WITHDEL MESSAGE FALSE CLEAR,FLD_KEYNO|ENABLE,FLD_WITHDEL
END MESSAGE TRUE ENABLE,FLD_KEYNO|"1",FLD_KEYNO|CLEAR,FLD_WITHDEL
END
NUMBER FLD_KEYNO 1
BEGIN NUMBER FLD_KEYNO 1
PROMPT 25 3 "Indice n.ro " BEGIN
FLAGS "RD" PROMPT 25 3 "Indice n.ro "
HELP "Inserire il numero di indice" FLAGS "RD"
END HELP "Numero di indice da seguire nello scarico"
END
BOOLEAN FLD_WITHDEL
BEGIN BOOLEAN FLD_WITHDEL
PROMPT 40 3 "Anche i record cancellati" BEGIN
FLAGS "D" PROMPT 40 3 "Anche i record cancellati"
END HELP "Indicare se scaricare anche i record cancellati"
FLAGS "D"
BOOLEAN FLD_FIXLEN END
BEGIN
PROMPT 2 5 "Lunghezza fissa" BOOLEAN FLD_FIXLEN
MESSAGE FALSE ENABLE,FLD_FS|ENABLE,FLD_FD|ENABLE,FLD_RS BEGIN
MESSAGE FALSE "\0x7c",FLD_FS|"\0",FLD_FD|"\n",FLD_RS PROMPT 2 5 "Lunghezza fissa"
MESSAGE TRUE DISABLE,FLD_FS|DISABLE,FLD_FD|DISABLE,FLD_RS HELP "Indicare se utilizzare la lunghezza fissa nello scarico dei campi"
MESSAGE TRUE "\0",FLD_FS|"\0",FLD_FD|"\n",FLD_RS MESSAGE FALSE ENABLE,FLD_FS|ENABLE,FLD_FD|ENABLE,FLD_RS
END MESSAGE FALSE "\0x7c",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
MESSAGE TRUE DISABLE,FLD_FS|DISABLE,FLD_FD|DISABLE,FLD_RS
STRING FLD_FS 5 MESSAGE TRUE "\0",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
BEGIN END
PROMPT 2 7 "Separatore di campi "
END STRING FLD_FS 5
BEGIN
STRING FLD_FD 5 PROMPT 2 7 "Separatore di campi "
BEGIN HELP "Carattere seperatore dei campi"
PROMPT 40 7 "Delimitatore di campi " END
END
STRING FLD_FD 5
STRING FLD_RS 5 BEGIN
BEGIN PROMPT 40 7 "Delimitatore di campi "
PROMPT 2 9 "Separatore di record " HELP "Carattere delimitatore di campi"
END END
BUTTON DLG_OK 9 2 STRING FLD_RS 5
BEGIN BEGIN
PROMPT -14 -1 "" PROMPT 2 9 "Separatore di record "
END HELP "Carattere delimitatore di record"
END
BUTTON DLG_CANCEL 9 2
BEGIN BUTTON DLG_OK 9 2
PROMPT -24 -1 "" BEGIN
END PROMPT -14 -1 ""
END
ENDPAGE
BUTTON DLG_CANCEL 9 2
ENDMASK BEGIN
PROMPT -24 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,46 +1,50 @@
#include <defmask.h> #include <defmask.h>
#include "ba1100a.h" #include "ba1100a.h"
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 "Inserire il nome del file di input" HELP "Nome del file dove caricare i dati"
END END
BOOLEAN FLD_FIXLEN BOOLEAN FLD_FIXLEN
BEGIN BEGIN
PROMPT 2 3 "Lunghezza fissa" PROMPT 2 3 "Lunghezza fissa"
MESSAGE FALSE ENABLE,FLD_FS|ENABLE,FLD_FD|ENABLE,FLD_RS|"\0x7c",FLD_FS|"\0",FLD_FD|"\n",FLD_RS HELP "Indicare se i record hanno lunghezza fissa"
MESSAGE TRUE DISABLE,FLD_FS|DISABLE,FLD_FD|DISABLE,FLD_RS|"\0",FLD_FS|"\0",FLD_FD|"\n",FLD_RS MESSAGE FALSE ENABLE,FLD_FS|ENABLE,FLD_FD|ENABLE,FLD_RS|"\0x7c",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
END MESSAGE TRUE DISABLE,FLD_FS|DISABLE,FLD_FD|DISABLE,FLD_RS|"\0",FLD_FS|"\0",FLD_FD|"\n",FLD_RS
END
STRING FLD_FS 5
BEGIN STRING FLD_FS 5
PROMPT 2 5 "Separatore di campi " BEGIN
END PROMPT 2 5 "Separatore di campi "
HELP "Carattere separatore dei campi"
STRING FLD_FD 5 END
BEGIN
PROMPT 2 7 "Delimitatore di campi " STRING FLD_FD 5
END BEGIN
PROMPT 2 7 "Delimitatore di campi "
STRING FLD_RS 5 HELP "Carattere delimitatore dei campi"
BEGIN END
PROMPT 2 9 "Separatore di record "
END STRING FLD_RS 5
BEGIN
BUTTON DLG_OK 9 2 PROMPT 2 9 "Separatore di record "
BEGIN HELP "Carattere delimitatore dei record"
PROMPT -14 -1 "" END
END
BUTTON DLG_OK 9 2
BUTTON DLG_CANCEL 9 2 BEGIN
BEGIN PROMPT -14 -1 ""
PROMPT -24 -1 "" END
END
BUTTON DLG_CANCEL 9 2
ENDPAGE BEGIN
PROMPT -24 -1 ""
ENDMASK END
ENDPAGE
ENDMASK

View File

@ -81,13 +81,13 @@ STRING F_NOMEF 10
BEGIN BEGIN
PROMPT 2 2 "Nome " PROMPT 2 2 "Nome "
FLAGS "U" FLAGS "U"
HELP "Inserire il nome" HELP "Nome del campo"
END END
LIST FLD_TIPO 20 LIST FLD_TIPO 20
BEGIN BEGIN
PROMPT 2 3 "Tipo " PROMPT 2 3 "Tipo "
HELP "Inserire il tipo" HELP "Tipo del campo"
ITEM "1|Alfanumerico" ITEM "1|Alfanumerico"
MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
ITEM "2|Intero" ITEM "2|Intero"
@ -114,7 +114,7 @@ NUMBER FLD_LEN 3
BEGIN BEGIN
PROMPT 2 4 "Lunghezza " PROMPT 2 4 "Lunghezza "
FLAGS "R" FLAGS "R"
HELP "Inserire la lunghezza" HELP "Lunghezza del campo"
WARNING "Numero lunghezza campo errata" WARNING "Numero lunghezza campo errata"
END END
@ -122,7 +122,7 @@ NUMBER FLD_DEC 2
BEGIN BEGIN
PROMPT 2 5 "Decimali " PROMPT 2 5 "Decimali "
FLAGS "R" FLAGS "R"
HELP "Inserire i decimali" HELP "Decimali del campo"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD+2<=#FLD_LEN)} NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD+2<=#FLD_LEN)}
WARNING "Numero di decimali errato" WARNING "Numero di decimali errato"
END END
@ -151,6 +151,7 @@ PAGE "Chiave" -1 -1 77 9
STRING F_KEXPR 60 STRING F_KEXPR 60
BEGIN BEGIN
PROMPT 1 2 "Espressione " PROMPT 1 2 "Espressione "
HELP "Espressione dell'archivio"
FLAGS "U" FLAGS "U"
END END

View File

@ -40,12 +40,14 @@ PAGE "Chiave" -1 -1 77 9
STRING F_KEXPR 60 STRING F_KEXPR 60
BEGIN BEGIN
PROMPT 1 2 "Espressione " PROMPT 1 2 "Espressione "
HELP "Espressione dell'archivio"
FLAGS "U" FLAGS "U"
END END
BOOLEAN F_KDUP BOOLEAN F_KDUP
BEGIN BEGIN
PROMPT 1 4 "Chiavi duplicate" PROMPT 1 4 "Chiavi duplicate"
HELP "Indicare se vi sono delle chiavi duplicate"
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2

View File

@ -7,7 +7,7 @@ STRING F_NOMEF 50
BEGIN BEGIN
PROMPT 2 1 "File " PROMPT 2 1 "File "
FLAGS "" FLAGS ""
HELP "Inserire il nome del file di esportazione/importazione" HELP "Nome del file di esportazione/importazione dei tracciati record"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END