- Categoria di vendita obbligatoria se abilitata

- Inserita la descrizione della cond.vedn.
- nuovo tracciato di LF_MOVMAG per la cond.ven.
- prezzo non obbligatorio sulle righe


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

mg/f110.dir

@@ -1,3 +1,3 @@
 110
 0
-$movmag|0|0|129|32|Movimenti di magazzino (?)|||
+$movmag|0|0|124|32|Movimenti di magazzino (?)|||

mg/f110.trr

@@ -1,5 +1,5 @@
 110
-17
+16
 NUMREG|3|7|0|Numero di registrazione
 ANNOES|1|4|0|Codice esercizio
 DATAREG|5|8|0|Data registrazione
@@ -9,9 +9,8 @@ ANNODOC|5|8|0|Anno documento
 CODNUM|1|4|0|Codice numerazione documento
 NUMDOC|1|7|0|Numero documento
 CATVEN|1|2|0|categoria di vendita (listini)
-CODLIST|1|3|0|Codice listino
+TIPOCV|1|1|0|Tipo condizione di vendita (Listino/contrato/offerta)
-CODCONT|1|3|0|Codice contratto
+CODCONDV|1|3|0|Codice listino/contratto/offerta
-CODCAMP|1|3|0|Codcie campagna
 CODCAUS|1|6|0|Codice causale di magazzino
 DESCR|1|50|0|Descrizione
 TIPOCF|1|1|0|Tipo <C>liente / <F>ornitore

mg/mg1100.cpp

@@ -75,9 +75,9 @@ TMask_movmag::TMask_movmag(TCodgiac_livelli *l_m,TMov_mag * m_m)
 
   TConfig prassid(CONFIG_DITTA, "ve"); // apre il file di configurazione della ditta corrente
   if (prassid.get_bool("GES", NULL, A_LISTINI))
-    field(F_CATVEN).enable(prassid.get_bool("GESLISCV"));
+    field(F_CATVEN).show(prassid.get_bool("GESLISCV"));
   else 
-    field(F_CATVEN).disable();  
+    field(F_CATVEN).hide();  
 }
 
 
@@ -236,7 +236,7 @@ real TMask_movmag::proposed_price(TString  codart,
         real quant)
 {
   real rv("0");
-  TCausale_magazzino cau(get(F_CODCAUS));
+  TCausale_magazzino & cau=(TCausale_magazzino &)cache_causali.get(get(F_CODCAUS));
   TLocalisamfile anamag(LF_ANAMAG);
   anamag.put("CODART",codart);
   anamag.read();
@@ -246,7 +246,6 @@ real TMask_movmag::proposed_price(TString  codart,
       TLocalisamfile umart(LF_UMART);
       TConfig cfgditta(CONFIG_DITTA);
       TCondizione_vendita cv(&cfgditta,&anamag,&umart);
-      
       cv.put_listino(get(F_CODCONDV),get(F_CATVEN));
       cv.ricerca(codart,quant);
       rv=cv.get_prezzo();

mg/mg1100.h

@@ -22,6 +22,7 @@
 #define F_NUMPROVV 122
 #define F_CODCF 123
 #define F_CODCONDV  124
+#define F_DESCONDV  125
 
 #define H_NUMREG  131
 #define H_DATAREG  132

mg/mg1100.uml

@@ -15,6 +15,7 @@ END
 NUMBER F_NUMREG  7
 BEGIN 
 //  FLAGS "D"
+  FLAGS "G"
   FIELD NUMREG
   PROMPT 2  2 "Operazione numero       "
   KEY 1 3 4
@@ -124,8 +125,8 @@ BEGIN
   OUPUT F_NUMDOC NDOC
   OUPUT F_ANNODOC ANNO
   OUPUT F_TIPOCF TIPOCF
-  OUPUT F_CODCLI CODCF
+//  OUPUT F_CODCLI CODCF
-  OUPUT F_CODFOR CODCF
+//  OUPUT F_CODFOR CODCF
   OUPUT F_CODCAUS CAUSMAG1
   CHECKTYPE NORMAL
 
@@ -194,12 +195,13 @@ END
 NUMBER F_CODCLI 6
 BEGIN 
   PROMPT 2 10 "Codice cliente   "
+  FLAGS "U"
   FIELD CODCF
-    USE LF_CLIFO
+  USE LF_CLIFO
-    INPUT TIPOCF  F_TIPOCF SELECT
+  INPUT TIPOCF  F_TIPOCF SELECT
-    INPUT CODCF   F_CODCLI
+  INPUT CODCF   F_CODCLI
-    DISPLAY "Codice " CODCF
+  DISPLAY "Codice " CODCF
-    DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODCF CODCF
   MESSAGE EMPTY RESET,F_CODCF
   CHECKTYPE NORMAL
@@ -209,13 +211,14 @@ END
 // campi per READ/WRITE su archivio (e ricerca utente)
 NUMBER  F_CODFOR  6
 BEGIN 
+  FLAGS "U"
   PROMPT 2 10 "Codice fornitore "
   FIELD CODCF
   USE LF_CLIFO
-    INPUT TIPOCF  F_TIPOCF SELECT
+  INPUT TIPOCF  F_TIPOCF SELECT
-    INPUT CODCF   F_CODFOR
+  INPUT CODCF   F_CODFOR
-    DISPLAY "Codice " CODCF
+  DISPLAY "Codice " CODCF
-    DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODCF CODCF
   MESSAGE EMPTY RESET,F_CODCF
   CHECKTYPE NORMAL
@@ -226,51 +229,55 @@ END
 // agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...)
 NUMBER F_CODCF  6
 BEGIN 
+  FLAGS "U"
   FLAGS "HG"
   PROMPT 0 1 ""
   USE LF_CLIFO
   INPUT TIPOCF  F_TIPOCF SELECT
   INPUT CODCF   F_CODCF
   OUTPUT F_RAGSOC RAGSOC
-  OUTPUT F_CODCF CODCF
+//  OUTPUT F_CODCF CODCF
+  OUTPUT F_CODCLI CODCF
+  OUTPUT F_CODFOR CODCF
   CHECKTYPE NORMAL
-  MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
+//MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
 END
 
 STRING F_RAGSOC 50 40
 BEGIN
   PROMPT 30 10 ""
-    USE LF_CLIFO KEY 2
+  USE LF_CLIFO KEY 2
-    INPUT TIPOCF  F_TIPOCF SELECT
+  INPUT TIPOCF  F_TIPOCF SELECT
-    INPUT RAGSOC   F_RAGSOC
+  INPUT RAGSOC   F_RAGSOC
-    DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
-    DISPLAY "Codice " CODCF
+  DISPLAY "Codice " CODCF
-    OUTPUT F_CODCF CODCF
+  OUTPUT F_CODCF CODCF
   GROUP G_DEFMOV
 END
 
 LISTBOX F_TIPOCONDV 1 12
 BEGIN 
+  FIELD TIPOCV
   PROMPT 2  12 "Condizione di vendita "
   ITEM " |Nessuna"
-  MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
+  MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
-  MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
+  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
-  MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
+  MESSAGE ENABLE,F_TIPOCF
   ITEM "L|Listino"
-  MESSAGE SHOW,F_CATVEN
+  MESSAGE ENABLE,F_CATVEN
-  MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
+  MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
   MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
-  MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
+  MESSAGE CLEAR,F_TIPOCF
   ITEM "C|Contratto"
-  MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
+  MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
-  MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
+  MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
   MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
   MESSAGE ENABLE,F_TIPOCF
   ITEM "O|Offerta"
-  MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
+  MESSAGE RESET,F_CATVEN|DISABLE,F_CATVEN
-  MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
+  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
   MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
-  MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
+  MESSAGE CLEAR,F_TIPOCF
 
 //  GROUP G_DEFMOV
 END
@@ -279,13 +286,13 @@ END
 
 STRING F_CODCONDV 3
 BEGIN
-  PROMPT 1 1 "Codice CONDV   "
+  PROMPT 0 0 "Codice CONDV   "
-  FLAGS "HG"
+  FLAGS "DG"
 END
 
 STRING F_CATVEN 2
 BEGIN
-  FLAGS "D"
+  FLAGS "DU"
   PROMPT 2 13 "Cat.ven."
   FIELD CATVEN
   USE CVE
@@ -294,48 +301,47 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CATVEN CODTAB
   MESSAGE CHECK,F_CODLIST
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 STRING F_CODLIST 3
 BEGIN
+  FLAGS "U"
   PROMPT 20 13 "Codice listino   "
-  FIELD CODLIST
+  FIELD CODCONDV
   USE LF_CONDV 
   INPUT TIPO "L"
-  INPUT CATVEN F_CATVEN
+  INPUT CATVEN F_CATVEN SELECT
   INPUT COD F_CODLIST
   DISPLAY "Cat.Ven." CATVEN
-  DISPLAY "C/F" TIPOCF
-  DISPLAY "Cod Cli/For" CODCF
   DISPLAY "Codice" COD
   DISPLAY "Descr.@30" DESCR
-//  OUTPUT F_TIPOCONDV TIPO 
+
-  OUTPUT F_CODLIST COD
   OUTPUT F_CATVEN CATVEN
   OUTPUT F_TIPOCF TIPOCF 
   OUTPUT F_CODCF CODCF 
+  OUTPUT F_CODLIST COD
   OUTPUT F_CODCONDV COD
   CHECKTYPE NORMAL
+
 //  GROUP G_DEFMOV
 END
 
 STRING F_CODCONTR 3
 BEGIN
-  PROMPT 20 14 "Codice contratto "
+  FLAGS "U"
-  FIELD CODCONT
+  PROMPT 20 13 "Codice contratto "
+  FIELD CODCONDV
   USE LF_CONDV 
   INPUT TIPO "C"
   INPUT CATVEN F_CATVEN
   INPUT TIPOCF F_TIPOCF
   INPUT CODCF F_CODCF
   INPUT COD F_CODCONTR
-  DISPLAY "Cat.Ven." CATVEN
   DISPLAY "C/F" TIPOCF
   DISPLAY "Cod Cli/For" CODCF
   DISPLAY "Codice" COD
   DISPLAY "Descr.@30" DESCR
-//  OUTPUT F_TIPOCONDV TIPO 
   OUTPUT F_TIPOCF TIPOCF 
   OUTPUT F_CODCF CODCF 
   OUTPUT F_CODCONTR COD 
@@ -347,15 +353,15 @@ END
 
 STRING F_CODOFF 3
 BEGIN
-  PROMPT 20 15 "Codice offerta   "
+  FLAGS "U"
-  FIELD CODCAMP
+  PROMPT 20 13 "Codice offerta   "
+  FIELD CODCONDV
   USE LF_CONDV 
   INPUT TIPO "O"
   INPUT CATVEN F_CATVEN
   INPUT COD F_CODOFF
   DISPLAY "Codice" COD
   DISPLAY "Descr.@30" DESCR
-  OUTPUT F_TIPOCONDV TIPO 
   OUTPUT F_CODCF CODCF 
   OUTPUT F_CODOFF COD 
   OUTPUT F_CODCONDV COD

mg/mg1100a.uml

@@ -228,8 +228,6 @@ NUMBER F_PREZZO 18 3
 BEGIN
   PROMPT 2 14 "Prezzo           "
   FIELD PREZZO
-  CHECKTYPE REQUIRED  
-  WARNING "Indicare il prezzo"
 END
 
 NUMBER F_VALORE 15 5