corretta maschera delle elaborazioni differite
git-svn-id: svn://10.65.10.50/trunk@2982 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
7013930383
commit
64ba1f6a6d
23
ve/batbeld.h
23
ve/batbeld.h
@ -1,11 +1,18 @@
|
||||
// campi della tabella di gestione delle elaborazioni differite
|
||||
#define F_CODICE 101
|
||||
#define F_DESCR 102
|
||||
#define F_TIPODOC 103
|
||||
#define F_STATO_I_DOC_I 104
|
||||
#define F_STATO_F_DOC_I 106
|
||||
#define F_TIPODOCDES 105
|
||||
#define F_STATO_F_DOC_F 107
|
||||
#define F_PROGRAMMA 108
|
||||
#define F_CODNUM 109
|
||||
#define F_AVVIA 110 // button per lanciare l'elaborazione selezionata
|
||||
#define F_CODNUM 103
|
||||
#define F_PROGRAMMA 104
|
||||
#define F_TIPODOC_I_1 111
|
||||
#define F_STATO_I_DOC_I_1 121
|
||||
#define F_STATO_F_DOC_I 131
|
||||
#define F_TIPODOC_I_2 112
|
||||
#define F_STATO_I_DOC_I_2 122
|
||||
#define F_TIPODOC_I_3 113
|
||||
#define F_STATO_I_DOC_I_3 123
|
||||
#define F_TIPODOC_I_4 114
|
||||
#define F_STATO_I_DOC_I_4 124
|
||||
#define F_TIPODOC_I_5 115
|
||||
#define F_STATO_I_DOC_I_5 125
|
||||
#define F_TIPODOC_F 140
|
||||
#define F_STATO_F_DOC_F 141
|
||||
|
||||
211
ve/batbeld.uml
211
ve/batbeld.uml
@ -4,21 +4,26 @@ TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella elaborazioni differite" 0 0 0 0
|
||||
PAGE "Tabella elaborazioni differite" -1 -1 0 0
|
||||
|
||||
STRING F_CODICE 8 // campo della maschera: stringa, id = F_CODICE, 8 caratteri
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Codice " // scrivi nella maschera alle coord. (x,y) = (1,2) il prompt "Codice"
|
||||
PROMPT 1 1 "@bElaborazione"
|
||||
END
|
||||
|
||||
STRING F_CODICE 8
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAG "U"
|
||||
FIELD CODTAB // campo del database tabelle (tab) in cui salvare il valore immesso dall'utente
|
||||
CHECKTYPE REQUIRED // indica che il campo deve essere compilato per poter salvare
|
||||
FIELD CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
USE ELD // indica quale tabella utilizzare per le ricerche
|
||||
INPUT CODTAB F_CODICE // cerca nel dbase la prima occorrenza di F_CODICE cercando nel campo CODTAB
|
||||
DISPLAY "Codice@10" CODTAB // visualizza i codici trovati (CODTAB)
|
||||
DISPLAY "Descrizione@50" S0 // visualizza la descrizione (campo S0 in uno spazio di 50 caratteri)
|
||||
OUTPUT F_CODICE CODTAB // metti F_CODICE nel campo codtab
|
||||
OUTPUT F_DESCR S0 // metti F_DESCR nel campo S0
|
||||
USE ELD
|
||||
INPUT CODTAB F_CODICE
|
||||
DISPLAY "Codice@10" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODICE CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
KEY 1
|
||||
HELP "Codice dell'elaborazione differita da eseguire"
|
||||
MESSAGE ENABLE, F_PROGRAMMA
|
||||
@ -26,7 +31,7 @@ END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 3 "Descrizione "
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FIELD S0
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
@ -34,63 +39,159 @@ BEGIN
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODICE // usa il segmento di codice per OUTPUT F_CODICE
|
||||
COPY OUTPUT F_CODICE
|
||||
KEY 2
|
||||
END
|
||||
|
||||
STRING F_TIPODOC 4
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Tipo documento originale "
|
||||
FIELD S6 // usa il campo S6 del database tab
|
||||
PROMPT 1 5 "@bDocumento originale"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_I_1 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Tipo documento "
|
||||
FIELD S2[1,4]
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOC
|
||||
INPUT CODTAB F_TIPODOC_I_1
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo documento@50" S0
|
||||
OUTPUT F_TIPODOC CODTAB
|
||||
OUTPUT F_TIPODOC_I_1 CODTAB
|
||||
END
|
||||
|
||||
|
||||
// STRING F_STATO_I_DOC_I 1
|
||||
// BEGIN
|
||||
// PROMPT 1 5 "Stato del documento originale "
|
||||
// FIELD S7
|
||||
// CHECKTYPE REQUIRED
|
||||
// WARNING "E' necessario specificare un valore"
|
||||
// END
|
||||
|
||||
// STRING F_STATO_F_DOC_I 1
|
||||
// BEGIN
|
||||
// PROMPT 1 6 "Stato finale del documento originale "
|
||||
// FIELD S4
|
||||
// CHECKTYPE REQUIRED
|
||||
// WARNING "E' necessario specificare un valore"
|
||||
// END
|
||||
|
||||
STRING F_TIPODOCDES 4
|
||||
STRING F_STATO_I_DOC_I_1 1
|
||||
BEGIN
|
||||
PROMPT 1 7 "Tipo documento di destinazione "
|
||||
PROMPT 2 7 "Stato iniziale "
|
||||
FLAGS "U"
|
||||
FIELD S7[1,1]
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
END
|
||||
|
||||
STRING F_STATO_F_DOC_I 1
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stato finale "
|
||||
FLAGS "U"
|
||||
FIELD S4
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare uno stato finale"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_I_2 4
|
||||
BEGIN
|
||||
PROMPT 30 6 ""
|
||||
FIELD S2[5,8]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
COPY USE F_TIPODOC_I_1
|
||||
INPUT CODTAB F_TIPODOC_I_2
|
||||
COPY DISPLAY F_TIPODOC_I_1
|
||||
OUTPUT F_TIPODOC_I_2 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_STATO_I_DOC_I_2 1
|
||||
BEGIN
|
||||
PROMPT 30 7 ""
|
||||
FLAGS "U"
|
||||
FIELD S7[2,2]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
VALIDATE REQIF_FUNC 1 F_TIPODOC_I_2
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_I_3 4
|
||||
BEGIN
|
||||
PROMPT 39 6 ""
|
||||
FIELD S2[9,12]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
COPY USE F_TIPODOC_I_1
|
||||
INPUT CODTAB F_TIPODOC_I_3
|
||||
COPY DISPLAY F_TIPODOC_I_1
|
||||
OUTPUT F_TIPODOC_I_3 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_STATO_I_DOC_I_3 1
|
||||
BEGIN
|
||||
PROMPT 39 7 ""
|
||||
FLAGS "U"
|
||||
FIELD S7[3,3]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
VALIDATE REQIF_FUNC 1 F_TIPODOC_I_3
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_I_4 4
|
||||
BEGIN
|
||||
PROMPT 48 6 ""
|
||||
FIELD S2[13,15]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
COPY USE F_TIPODOC_I_1
|
||||
INPUT CODTAB F_TIPODOC_I_4
|
||||
COPY DISPLAY F_TIPODOC_I_1
|
||||
OUTPUT F_TIPODOC_I_4 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_STATO_I_DOC_I_4 1
|
||||
BEGIN
|
||||
PROMPT 48 7 ""
|
||||
FLAGS "U"
|
||||
FIELD S7[4,4]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
VALIDATE REQIF_FUNC 1 F_TIPODOC_I_4
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_I_5 4
|
||||
BEGIN
|
||||
PROMPT 57 6 ""
|
||||
FIELD S2[16,19]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
COPY USE F_TIPODOC_I_1
|
||||
INPUT CODTAB F_TIPODOC_I_4
|
||||
COPY DISPLAY F_TIPODOC_I_1
|
||||
OUTPUT F_TIPODOC_I_4 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_STATO_I_DOC_I_5 1
|
||||
BEGIN
|
||||
PROMPT 57 7 ""
|
||||
FLAGS "U"
|
||||
FIELD S7[5,5]
|
||||
WARNING "E' necessario specificare un valore"
|
||||
VALIDATE REQIF_FUNC 1 F_TIPODOC_I_5
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 10 "@bDocumento finale"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC_F 4
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo documento "
|
||||
FIELD S8
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
USE %TIP
|
||||
INPUT CODTAB F_TIPODOCDES
|
||||
COPY DISPLAY F_TIPODOC
|
||||
OUTPUT F_TIPODOCDES CODTAB
|
||||
COPY USE F_TIPODOC_I_1
|
||||
INPUT CODTAB F_TIPODOC_F
|
||||
COPY DISPLAY F_TIPODOC_I_1
|
||||
OUTPUT F_TIPODOC_F CODTAB
|
||||
END
|
||||
|
||||
// STRING F_STATO_F_DOC_F 1
|
||||
// BEGIN
|
||||
// PROMPT 1 8 "Stato finale del documento finale "
|
||||
// FIELD S9
|
||||
// CHECKTYPE REQUIRED
|
||||
// WARNING "E' necessario specificare un valore"
|
||||
// END
|
||||
STRING F_STATO_F_DOC_F 1
|
||||
BEGIN
|
||||
PROMPT 2 12 "Stato finale "
|
||||
FLAGS "U"
|
||||
FIELD S9
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare uno stato finale"
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice numerazione per il documento di destinazione: "
|
||||
PROMPT 2 13 "Codice numerazione "
|
||||
FIELD S5
|
||||
USE NUM
|
||||
INPUT CODTAB F_CODNUM
|
||||
@ -98,25 +199,17 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODNUM CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un valore"
|
||||
WARNING "E' necessario specificare un codice di numerazione"
|
||||
END
|
||||
|
||||
STRING F_PROGRAMMA 50
|
||||
BEGIN
|
||||
// PROMPT 1 10 "Programma (nome + parametri): "
|
||||
PROMPT 1 10 "Metodo di elaborazione "
|
||||
PROMPT 2 15 "Metodo di elaborazione "
|
||||
FLAGS "G"
|
||||
FIELD S1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON F_AVVIA 21 2
|
||||
BEGIN
|
||||
PROMPT 1 11 "Lancia elaborazione"
|
||||
MESSAGE RUN,#F_PROGRAMMA
|
||||
FL "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user