Riorganizzata maschera su 2 pag

Introdotto flag "aggiorna ultcosto"


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

mg/batbcau.h

@@ -1,32 +1,36 @@
-#define F_CODICE   	101
-#define F_DESCAU		102
-#define F_RAGGF		103
-#define F_RAGGFD	104
-#define H_RAGGFD	105
-#define F_TIPOPR	106
-#define F_SGNGIAC	107
-#define F_SGNRIM	108	
-#define F_SGNACQ	109
-#define F_SGNENTR	110
-#define F_SGNVEN	111
-#define F_SGNUSC	112
-#define F_SGNORDF	113
-#define F_SGNORDC	114
-#define F_SGNSCAR	115
-#define F_SGNPRODF	116
-#define F_SGNPRODC	117
-#define F_SGNACL	118
-#define F_SGNINCL	119
-#define F_SGNLABEL	120
-#define F_TIPOMOV	121
-#define H_TIPOMOV	122
-#define F_ERASER	130
+#define F_CODICE    101
+#define F_DESCAU    102
+#define F_RAGGF   103
+#define F_RAGGFD  104
+#define H_RAGGFD  105
+#define F_TIPOPR  106
+#define F_SGNGIAC 107
+#define F_SGNRIM  108 
+#define F_SGNACQ  109
+#define F_SGNENTR 110
+#define F_SGNVEN  111
+#define F_SGNUSC  112
+#define F_SGNORDF 113
+#define F_SGNORDC 114
+#define F_SGNSCAR 115
+#define F_SGNPRODF  116
+#define F_SGNPRODC  117
+#define F_SGNACL  118
+#define F_SGNINCL 119
+#define F_SGNLABEL  120
+#define F_TIPOMOV 121
+#define H_TIPOMOV 122
+#define F_ERASER  130
 #define F_SUMSIGN  131
 #define F_CHECKER  132
 #define F_CAUCOLL 133
-#define F_MOVQTA 134
-#define F_MOVVAL 135
+#define F_DCAUCOLL 134
+#define F_MOVQTA 135
+#define F_MOVVAL 136
+#define F_UPDTULC 137
+#define F_CODICE2    138
+#define F_DESCAU2    139
 
-#define G_SGNVAL		20
-#define G_SGNQTA		21
+#define G_SGNVAL    20
+#define G_SGNQTA    21
 

mg/batbcau.uml

@@ -4,7 +4,7 @@ TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
 ENDPAGE
 
-PAGE "Gestione causali" 11 60 14
+PAGE "Definizione causale" 11 60 14
 
 GROUPBOX DLG_NULL 75 5
 BEGIN
@@ -26,6 +26,7 @@ BEGIN
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESCAU S0
   CHECKTYPE REQUIRED
+  MESSAGE COPY, F_CODICE2
 END
 
 STRING F_DESCAU 50
@@ -39,6 +40,7 @@ BEGIN
   COPY OUTPUT  F_CODICE  
   CHECKTYPE REQUIRED
   WARNING "Manca la descrizione"
+  MESSAGE COPY, F_DESCAU2
 END
 
 STRING F_RAGGF 4
@@ -58,7 +60,7 @@ BEGIN
   MESSAGE EMPTY RESET,F_RAGGFD|RESET,H_TIPOMOV|CHECK,H_TIPOMOV
 END
 
-STRING F_RAGGFD 50
+STRING F_RAGGFD 50 40
 BEGIN 
   PROMPT 30 5 ""
   FLAGS "D"
@@ -68,7 +70,7 @@ END
 STRING H_TIPOMOV  1
 BEGIN 
   FLAGS "HG"
-  PROMPT 2 6 "Tipo movimento      "
+  PROMPT 2 7 "Tipo movimento      "
   MESSAGE COPY,F_TIPOMOV | DISABLE,F_TIPOMOV
   MESSAGE EMPTY ENABLE,F_TIPOMOV
 END
@@ -76,7 +78,7 @@ END
 
 LISTBOX F_TIPOMOV 16
 BEGIN 
-  PROMPT 2 6 "Tipo movimento      "
+  PROMPT 2 7 "Tipo movimento      "
   FIELD S7
   ITEM "V|varie"    
   ITEM "C|carico"
@@ -87,7 +89,7 @@ END
 
 LISTBOX F_TIPOPR  16
 BEGIN 
-  PROMPT 42 6 "Tipo prezzo "
+  PROMPT 2 9 "Tipo prezzo         "
   FIELD S6
   ITEM "P|Prezzo"
   ITEM "C|Costo"
@@ -97,20 +99,26 @@ END
 BOOL F_MOVQTA 
 BEGIN 
   FIELD B0
-  PROMPT 2 7 "Movimenta solo quantita'"
+  PROMPT 2 11 "Movimenta solo quantita'"
   MESSAGE TRUE RESET,F_MOVVAL
 END
 
 BOOL F_MOVVAL 
 BEGIN 
   FIELD B1
-  PROMPT 42 7 "Movimenta solo valori"
+  PROMPT 42 11 "Movimenta solo valori"
   MESSAGE TRUE RESET,F_MOVQTA
 END
 
-STRING F_CAUCOLL 4
+BOOL F_UPDTULC
+BEGIN 
+  FIELD B2
+  PROMPT 2 13 "Aggiorna costo medio"
+END
+
+STRING F_CAUCOLL 6
 BEGIN
-  PROMPT 2 8 "Causale collegata  "
+  PROMPT 2 15 "Causale collegata  "
   FIELD S9
   USE %CAU SELECT S9==""
   FLAGS "U"
@@ -118,14 +126,43 @@ BEGIN
   DISPLAY "Codice " CODTAB
   DISPLAY "Descrizione@50 " S0
   OUTPUT F_CAUCOLL CODTAB
+  OUTPUT F_DCAUCOLL S0
   CHECKTYPE NORMAL
 END
 
+STRING F_DCAUCOLL 50 40
+BEGIN
+  PROMPT 32 15 ""
+  FIELD S9
+  USE %CAU KEY 2 SELECT S9==""
+  FLAGS "U"
+  INPUT S0 F_DCAUCOLL
+  DISPLAY "Descrizione@50 " S0
+  DISPLAY "Codice " CODTAB
+  OUTPUT F_DCAUCOLL S0
+  OUTPUT F_CAUCOLL CODTAB
+  CHECKTYPE NORMAL
+END
 
+ENDPAGE
+
+PAGE "Movimentazione campi" 11 60 14
+
+STRING F_CODICE2 6
+BEGIN 
+  FLAGS "D"
+  PROMPT 2 1 "Codice causale "
+END
+
+STRING F_DESCAU2 50
+BEGIN 
+  FLAGS "D"
+  PROMPT 2 2 "Descrizione    "
+END
 
 LISTBOX F_SGNGIAC 1
 BEGIN 
-  PROMPT 2 10 "Movimentazione giacenza   "
+  PROMPT 2 4 "Movimentazione giacenza   "
   FIELD S2[1,2]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -138,7 +175,7 @@ END
 
 LISTBOX F_SGNRIM 1
 BEGIN
-  PROMPT 2 11 "    ''    ''   rim.iniz.  "
+  PROMPT 2 5 "    ''    ''   rim.iniz.  "
   FIELD S2[23,24]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -151,7 +188,7 @@ END
 
 LISTBOX F_SGNACQ  1
 BEGIN 
-  PROMPT 2 12 "    ''    ''   acquistato "
+  PROMPT 2 6 "    ''    ''   acquistato "
   FIELD S2[3,4]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -164,7 +201,7 @@ END
 
 LISTBOX F_SGNVEN  1
 BEGIN 
-    PROMPT 42 12  "Movimentazione venduto    "
+  PROMPT 2 7  "    ''    ''   venduto    "
   FIELD S2[7,8]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -177,7 +214,7 @@ END
 
 LISTBOX F_SGNENTR 1
 BEGIN 
-    PROMPT 2 13 "    ''    ''   entrato    "
+    PROMPT 2 8 "    ''    ''   entrato    "
   FIELD S2[5,6]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -190,7 +227,7 @@ END
 
 LISTBOX F_SGNUSC 1
 BEGIN
-  PROMPT 42 13 "    ''    ''   uscito     "
+  PROMPT 2 9  "    ''    ''   uscito     "
   FIELD S2[9,10]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -202,35 +239,9 @@ BEGIN
 END
 
 
-LISTBOX F_SGNORDF 1
-BEGIN 
-  PROMPT 2 14 "    ''    ''   ord. forn. "
-  FIELD S2[13,14]
-  ITEM "0| "
-  MESSAGE CHECK,F_SUMSIGN
-  ITEM "+1|+"
-  MESSAGE CHECK,F_SUMSIGN
-  ITEM "-1|-"
-  MESSAGE CHECK,F_SUMSIGN
-  GROUP G_SGNVAL
-END
-
-LISTBOX F_SGNORDC 1
-BEGIN 
-  PROMPT 42 14 "    ''    ''   ord. cli.  "
-  FIELD S2[11,12]
-  ITEM "0| "
-  MESSAGE CHECK,F_SUMSIGN
-  ITEM "+1|+"
-  MESSAGE CHECK,F_SUMSIGN
-  ITEM "-1|-"
-  MESSAGE CHECK,F_SUMSIGN
-  GROUP G_SGNVAL
-END
-
 LISTBOX F_SGNSCAR 1
 BEGIN 
-  PROMPT 2 15 "    ''    ''   scarti     "
+  PROMPT 2 10 "    ''    ''   scarti     "
   FIELD S2[25,26]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -243,7 +254,7 @@ END
 
 LISTBOX F_SGNPRODF 1
 BEGIN 
-  PROMPT 2 16 "    ''    ''   prod. fin. "
+  PROMPT 2 11 "    ''    ''   prod. fin. "
   FIELD S2[21,22]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -256,7 +267,7 @@ END
 
 LISTBOX F_SGNPRODC  1
 BEGIN 
-  PROMPT 42 16 "    ''    ''   prod.comp. "
+  PROMPT 2 12 "    ''    ''   prod.comp. "
   FIELD S2[19,20]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -269,7 +280,7 @@ END
 
 LISTBOX F_SGNACL  1
 BEGIN 
-  PROMPT 2 17 "    ''    ''   a conto l. "
+  PROMPT 2 13 "    ''    ''   a conto l. "
   FIELD S2[17,18]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -282,7 +293,7 @@ END
 
 LISTBOX F_SGNINCL 1
 BEGIN 
-    PROMPT 42 17 "    ''    ''   in conto l."
+    PROMPT 2 14 "    ''    ''   in conto l."
   FIELD S2[15,16]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -295,7 +306,7 @@ END
 
 LISTBOX F_SGNLABEL 1
 BEGIN
-  PROMPT 2 18 "    ''    ''   etichette  "
+  PROMPT 2 15 "    ''    ''   etichette  "
   FIELD S2[27,28]
   ITEM "0| "
   MESSAGE CHECK,F_SUMSIGN
@@ -306,6 +317,33 @@ BEGIN
   GROUP G_SGNQTA
 END
 
+LISTBOX F_SGNORDF 1
+BEGIN 
+  PROMPT 2 16 "    ''    ''   ord. forn. "
+  FIELD S2[13,14]
+  ITEM "0| "
+  MESSAGE CHECK,F_SUMSIGN
+  ITEM "+1|+"
+  MESSAGE CHECK,F_SUMSIGN
+  ITEM "-1|-"
+  MESSAGE CHECK,F_SUMSIGN
+  GROUP G_SGNVAL
+END
+
+LISTBOX F_SGNORDC 1
+BEGIN 
+  PROMPT 2 17 "    ''    ''   ord. cli.  "
+  FIELD S2[11,12]
+  ITEM "0| "
+  MESSAGE CHECK,F_SUMSIGN
+  ITEM "+1|+"
+  MESSAGE CHECK,F_SUMSIGN
+  ITEM "-1|-"
+  MESSAGE CHECK,F_SUMSIGN
+  GROUP G_SGNVAL
+END
+
+
 NUMBER F_SUMSIGN 4 0
 BEGIN
   PROMPT 2 19 "Controllo segni     "