Patch level : 10.0 patch 476

Files correlati     : lv0300a.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunto magazzino del pulito


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

lv/lv0300a.uml

@@ -517,43 +517,69 @@ BEGIN
   FLAGS "D" 
 END
 
+STRING F_CODMAGP 3
+BEGIN
+  PROMPT 1 4 "Dep. pulito"
+  HELP "Codice deposito del pulito"
+  FIELD CODMAGP
+  KEY 1
+  USE MAG 
+	INPUT CODTAB[1,3] F_CODMAG SELECT
+  INPUT CODTAB[4,5] F_CODMAGP
+  DISPLAY "Cod. magazzino" CODTAB[1,3]
+  DISPLAY "Cod. deposito" CODTAB[4,5]
+  DISPLAY "Denominazione dep.@50" S0
+  OUTPUT F_CODMAG CODTAB[1,3]
+  OUTPUT F_CODMAGP CODTAB[4,5]
+  OUTPUT F_DESMAGP S0
+  CHECKTYPE REQUIRED
+  FLAGS "UPA"
+END
+
+STRING F_DESMAGP 50
+BEGIN
+  PROMPT 23 4 ""
+  HELP "Descrizione Magazzino" 
+  FLAGS "D" 
+END
+
 TEXT -1
 BEGIN
-	PROMPT 0 5 "@bOpzioni contratti"
+	PROMPT 0 6 "@bOpzioni contratti"
 END
 
 BOOLEAN F_UNICONT
 BEGIN
-  PROMPT 1 6 "Numera contr. per ditta"
+  PROMPT 1 7 "Numera contr. per ditta"
   FIELD UniCont
 END
 
 BOOLEAN F_QTAMODI
 BEGIN
-  PROMPT 28 6 "Dot. modificabili"
+  PROMPT 28 7 "Dot. modificabili"
   FIELD Qtamodi
 END
 
 BOOLEAN F_USEINDSP
 BEGIN
-  PROMPT 50 6 "Utilizza ind. sped. su contratto"
+  PROMPT 50 7 "Utilizza ind. sped. su contratto"
   FIELD Useindsp
 END
 
 TEXT -1
 BEGIN
-	PROMPT 0 8 "@bOpzioni Giri"
+	PROMPT 0 9 "@bOpzioni Giri"
 END
 
 BOOLEAN F_AUTGIRI
 BEGIN
-  PROMPT 1 9 "Generazione automatica giri"
+  PROMPT 1 10 "Generazione automatica giri"
   FIELD Autgiri
 END
 
 LISTBOX F_ORDGIRI 1 22
 BEGIN
-   PROMPT 35 9 "Ordina giri per "
+   PROMPT 35 10 "Ordina giri per "
    ITEM  "0|Ordine di generazione"
    ITEM  "1|Ordine di fermata"
    ITEM  "2|Orario di passaggio"
@@ -562,30 +588,30 @@ END
 
 TEXT -1
 BEGIN
-	PROMPT 0 11 "@bOpzioni Documenti"
+	PROMPT 0 12 "@bOpzioni Documenti"
 END
 
 BOOLEAN F_DATAFISSA
 BEGIN
-  PROMPT 1 12 "Data documenti fissa"
+  PROMPT 1 13 "Data documenti fissa"
   FIELD Datafissa
 END
 
 BOOLEAN F_AGGCONG
 BEGIN
-  PROMPT 28 12 "Aggiorna conguaglio su modifiche manuali"
+  PROMPT 28 13 "Aggiorna conguaglio su modifiche manuali"
   FIELD Aggcong
 END
 
 NUMBER F_PERARR 3
 BEGIN
-  PROMPT 1 13 "Percentuale per il calcolo dell'arrotondamento "
+  PROMPT 1 14 "Percentuale per il calcolo dell'arrotondamento "
   FIELD Perarr
 END
 
 STRING F_CODARTFIX 8
 BEGIN
-  PROMPT 1 14 "Art. per canone fisso   "
+  PROMPT 1 15 "Art. per canone fisso   "
   FIELD Codartfix
   KEY 1
   FLAG "UG"
@@ -599,13 +625,13 @@ END
 
 STRING F_DESARTFIX 50 28
 BEGIN
-  PROMPT 40 14 ""
+  PROMPT 40 15 ""
   FLAGS "D"
 END
 
 STRING F_CODARTCAFIX 8
 BEGIN
-  PROMPT 1 15 "Art. per raggruppamento "
+  PROMPT 1 16 "Art. per raggruppamento "
   FIELD Codartcafix
   KEY 1
   FLAG "UG"
@@ -619,13 +645,13 @@ END
 
 STRING F_DESARTCAFIX 50 28
 BEGIN
-  PROMPT 40 15 ""
+  PROMPT 40 16 ""
   FLAGS "D"
 END
 
 LISTBOX F_TIPOPR 1 19
 BEGIN
-  PROMPT 1 16 "Tipo prezzo"
+  PROMPT 1 17 "Tipo prezzo"
   ITEM "0|Prezzo da contratto" 
   ITEM "1|Prezzo da bolla" 
   FIELD Tipopr
@@ -633,12 +659,12 @@ END
 
 TEXT -1
 BEGIN
-	PROMPT 0 18 "@bOpzioni articoli"
+	PROMPT 0 19 "@bOpzioni articoli"
 END
 
 BOOLEAN F_GESTSACA
 BEGIN
-  PROMPT 1 19 "Gestione sacchi/carrello"
+  PROMPT 1 20 "Gestione sacchi/carrello"
   FIELD Gestsaca
 END