Maschere di Andrea
git-svn-id: svn://10.65.10.50/trunk@545 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
8da83e1638
commit
d87826888b
@ -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
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
142
ba/ba1100b.uml
142
ba/ba1100b.uml
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user