corretta maschera delle elaborazioni differite

git-svn-id: svn://10.65.10.50/trunk@2982 c028cbd2-c16b-5b4b-a496-9718f37d4682

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_CODNUM                103
-#define F_STATO_I_DOC_I         104
+#define F_PROGRAMMA             104
-#define F_STATO_F_DOC_I         106
+#define F_TIPODOC_I_1           111
-#define F_TIPODOCDES            105
+#define F_STATO_I_DOC_I_1       121
-#define F_STATO_F_DOC_F         107
+#define F_STATO_F_DOC_I         131
-#define F_PROGRAMMA             108
+#define F_TIPODOC_I_2           112
-#define F_CODNUM                109
+#define F_STATO_I_DOC_I_2       122
-#define F_AVVIA                 110     // button per lanciare l'elaborazione selezionata
+#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

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
+   FIELD CODTAB         
-   CHECKTYPE REQUIRED // indica che il campo deve essere compilato per poter salvare
+   CHECKTYPE REQUIRED 
    WARNING "E' necessario specificare un valore"
-   USE ELD              // indica quale tabella utilizzare per le ricerche
+   USE ELD              
-   INPUT CODTAB F_CODICE        // cerca nel dbase la prima occorrenza di F_CODICE cercando nel campo CODTAB
+   INPUT CODTAB F_CODICE        
-   DISPLAY "Codice@10" CODTAB      // visualizza i codici trovati (CODTAB)
+   DISPLAY "Codice@10" CODTAB    
-   DISPLAY "Descrizione@50" S0  // visualizza la descrizione (campo S0 in uno spazio di 50 caratteri)
+   DISPLAY "Descrizione@50" S0  
-   OUTPUT F_CODICE CODTAB       // metti F_CODICE nel campo codtab
+   OUTPUT F_CODICE CODTAB       
-   OUTPUT F_DESCR S0            // metti F_DESCR nel campo S0
+   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         "
+  PROMPT 1 5 "@bDocumento originale"
-   FIELD S6             // usa il campo S6 del database tab
+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 1
-// 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
 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
+   COPY USE F_TIPODOC_I_1
-   INPUT CODTAB F_TIPODOCDES
+   INPUT CODTAB F_TIPODOC_F
-   COPY DISPLAY F_TIPODOC
+   COPY DISPLAY F_TIPODOC_I_1
-   OUTPUT F_TIPODOCDES CODTAB
+   OUTPUT F_TIPODOC_F CODTAB
 END
 
-// STRING F_STATO_F_DOC_F 1
+STRING F_STATO_F_DOC_F 1
-// BEGIN
+BEGIN
-//   PROMPT 1 8 "Stato finale del documento finale "
+  PROMPT 2 12 "Stato finale       "
-//    FIELD S9
+  FLAGS "U"
-//    CHECKTYPE REQUIRED
+  FIELD S9
-//    WARNING "E' necessario specificare un valore"
+  CHECKTYPE REQUIRED
-// END
+  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 2 15 "Metodo di elaborazione "
-   PROMPT 1 10 "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