Modifica ricerche

CVS:


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

ve/batbgmc.uml

@@ -14,7 +14,7 @@ END
 
 STRING F_CODGRU 3
 BEGIN
-  PROMPT 2 2 "Codice gruppo          "
+  PROMPT 2 2 "Codice gruppo           "
   FLAG "U"
   FIELD CODTAB[1,3]
   KEY 1
@@ -23,8 +23,8 @@ BEGIN
   DISPLAY "Gruppo"         CODTAB[1,3]
   DISPLAY "Descrizione gruppo@50" S0
   OUTPUT F_CODGRU CODTAB[1,3]
+  OUTPUT H_CODGRU CODTAB[1,3]
   OUTPUT H_DESGRU S0
-  MESSAGE COPY,H_CODGRU
   CHECKTYPE REQUIRED
 END
 
@@ -46,31 +46,33 @@ BEGIN
   MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
   MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
   //VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
+	STR_EXPR (#H_CODGRU!="")||(#F_CODSGR=="")
   GROUP GR_SEARCH
+	WARNING "Gruppo merceologico inesistente"
   CHECKTYPE NORMAL
 END
 
 STRING H_CODGRU 3
 BEGIN
-  PROMPT 2 2 "Codice gruppo          "
+  PROMPT 2 1 "Codice gruppo          "
   FLAG "U"
   FLAGS "H"
   COPY USE F_CODGRU
   INPUT CODTAB F_CODGRU
   COPY DISPLAY F_CODGRU
   OUTPUT F_DESGRU S0
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 STRING F_DESGRU 50
 BEGIN
-  PROMPT 2 4 "Descrizione gruppo     "
+  PROMPT 2 4 "Descrizione gruppo      "
   FLAGS "D"
 END
 
 STRING F_DESSGR 50
 BEGIN
-  PROMPT 2 5 "Descrizione sottogruppo"
+  PROMPT 2 5 "Descrizione sottogruppo "
   FIELD S0
   USE GMC KEY 2
   KEY 2

ve/batbmag.h

@@ -35,3 +35,7 @@
 #define H_LOC       135
 #define H_PROV      136
 #define F_ANNO      137
+#define H_GESTGIA   138
+#define F_STARAGG   139
+#define F_USALUNICO 140
+

ve/batbmag.uml

@@ -45,7 +45,7 @@ BEGIN
   KEY 1
 	// abilit. CODDEP sempre:
 	USE MAG 
-	INPUT CODTAB[1,3] F_CODICE
+	INPUT CODTAB[1,3] F_CODICE SELECT
   // abilit. CODDEP solo per i magazzini che lo consentono:
 	// ATTENZIONE! da' stack overflow
   //USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
@@ -69,11 +69,12 @@ END
 BOOLEAN H_GESTGIA
 BEGIN
   PROMPT 1 1 ""
-  FLAGS "GH"
+  FLAGS "HG"
+
 	// abilit. CODDEP sempre:
 	// --rimuovere i campi MESSAGE--
 	// abilit. CODDEP solo per i magazzini che lo consentono:
-	MESSAGE TRUE SHOW,F_CODDEP//|ENABLE,F_DESDEP
+	MESSAGE TRUE SHOW,F_CODDEP
   MESSAGE FALSE HIDE,F_CODDEP
 END
 
@@ -239,7 +240,7 @@ END
 LISTBOX F_NATMAG 1 50
 BEGIN
 PROMPT 2 17 "Natura del magazzino "
-FIELD MAG->I2
+FIELD I2
 ITEM "1|Proprieta' dell'azienda       "
 ITEM "2|Materiale nostro in lavorazione presso terzi"
 ITEM "3|Materiale nostro in deposito presso terzi"
@@ -259,79 +260,101 @@ BEGIN
   FLAGS "AH"
 END
 
+BOOLEAN F_GESTGIA
+BEGIN
+  PROMPT 2 2 "Gestione giacenze in piu' depositi "
+  FIELD B0
+END
+
+LISTBOX F_STARAGG  22
+BEGIN
+  PROMPT 2 4 "Stampare i movimenti su "
+	FIELD I2
+	ITEM "1|altro magazzino"
+  MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA|HIDE,F_USALUNICO
+	ITEM "2|libro giornale"
+  MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR|SHOW,F_USALUNICO
+END
+
 STRING F_CODMAGSTA 3
 BEGIN
-  PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
+  PROMPT 28 5 "Codice magazzino "
-	FLAGS "U"
+	FLAGS "HU"
   FIELD S6
   USE MAG SELECT CODTAB[4,5] == ""
   INPUT CODTAB[1,3]  F_CODMAGSTA
   DISPLAY "Codice " CODTAB
   DISPLAY "Denominazione mag.@50 " S0
   OUTPUT F_CODMAGSTA CODTAB[1,3]
-  MESSAGE DISABLE,F_CODLGIOR
+  CHECKTYPE REQUIRED
-  MESSAGE EMPTY ENABLE,F_CODLGIOR
-  CHECKTYPE NORMAL
 END
 
 STRING F_CODLGIOR 3
 BEGIN
-  PROMPT 2 3 "Codice libro giornale "
+  PROMPT 23 5 "Codice libro giornale "
-	FLAGS "U"
+	FLAGS "HU"
   FIELD S8
-  USE REG
+  USE REG SELECT I0=6
-  INPUT CODTAB[1,4] F_ANNO
+  INPUT CODTAB[1,4] F_ANNO SELECT
   INPUT CODTAB[5,7] F_CODLGIOR
   DISPLAY "Anno" CODTAB[1,4]
   DISPLAY "Giornale" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
+  DISPLAY "I" I0
   OUTPUT F_CODLGIOR CODTAB[5,7]
-  MESSAGE DISABLE,F_CODMAGSTA
+	CHECKTYPE REQUIRED
-  MESSAGE EMPTY ENABLE,F_CODMAGSTA
 END
 
-BOOLEAN F_GESTGIA
+/*STRING F_CODLUNICO 3
 BEGIN
-  PROMPT 2 4 "Gestione giacenze in piu' depositi "
+  PROMPT 26 5 "Codice libro unico "
-  FIELD MAG->B0
+	FLAGS "HU"
-END
-
-STRING F_CODLUNICO 3
-BEGIN
-  PROMPT 40 3 "Codice libro unico di studio "
   FIELD S9
-  USE %LBU
+  USE %LBU  
-  INPUT CODTAB[1,4] F_ANNO
+  INPUT CODTAB[1,4] F_ANNO SELECT
   INPUT CODTAB[5,7] F_CODLUNICO
   DISPLAY "Anno" CODTAB[1,4]
   DISPLAY "Libro" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODLUNICO CODTAB[5,7]
+	CHECKTYPE REQUIRED
+	WARNING "Codice errato o non relativo a questo anno" 
 END
 
-
+BOOLEAN F_USALUNICO 
-BOOLEAN F_STALDIS
 BEGIN
-  PROMPT 2 6 "Stampa libro raggruppato per classe fiscale articoli  "
+  PROMPT 52 5 "Usa libro unico "
-  FIELD MAG->B1
+	FLAGS "HU"
+	FIELD B6
+	MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
+	MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
 END
 
+*/
+
 NUMBER F_FREQSTA 2
 BEGIN
-  PROMPT 2 7 "Frequenza stampa movimenti "
+  PROMPT 2 6 "Frequenza stampa movimenti "
-  FIELD MAG->I4
+  FIELD I4
 END
 
+BOOLEAN F_STALDIS
+BEGIN
+  PROMPT 2 7 "Stampa libro raggruppato per classe fiscale articoli  "
+  FIELD B1
+END
+
+
 BOOLEAN F_STAFISART
 BEGIN
   PROMPT 2 8 "Stampa libro ragg. per raggruppamento fiscale articoli "
-  FIELD MAG->B2
+  FIELD B2
 END
 
 BOOLEAN F_STAFISCAU
 BEGIN
   PROMPT 2 9 "Stampa libro ragg. per raggruppamento fiscale causali  "
-  FIELD MAG->B3
+  FIELD B3
 END
 
 NUMBER F_PAGULTCORR 3

ve/batbums.uml

@@ -42,7 +42,7 @@ END
 
 STRING F_UMR 2
 BEGIN
-  PROMPT 2 8 "Unita' di riferimento       "
+  PROMPT 2 8  "Unita' di riferimento       "
   FIELD S7
   FLAG "U"
   USE %UMS
@@ -55,7 +55,7 @@ END
 
 NUMBER F_FC 15 5
 BEGIN
-  PROMPT 2 10 "F.Conversione al riferim. "
+  PROMPT 2 10 "Fatt.conversione al riferim."
   FIELD R10
   VALIDATE REQIF_FUNC 1 F_UMR
   WARNING "Fattore di conversione obbligatorio se specificata l'unita' di misura di riferimento"

ve/ve2400.uml

@@ -28,11 +28,12 @@ BEGIN
     CHECKTYPE REQUIRED
 END
 
-STRING F_TIPO 1
+// tipo articolo sostituito da Tabella gruppi articoli 
-BEGIN
+//STRING F_TIPO 1
-    PROMPT 42 1  "Tipo "
+//BEGIN
-    FIELD LF_ANAMAG->TIPO
+//  PROMPT 42 1  "Tipo "
-END
+//  FIELD LF_ANAMAG->TIPO
+//END
 
 STRING F_DESCR 50
 BEGIN
@@ -133,7 +134,7 @@ END
 
 SPREADSHEET F_SHEET0 77 5
 BEGIN
-  PROMPT 1 8 ""
+  PROMPT 1 8 "Unità di misura"
   ITEM "U.M."
   ITEM "F. conversione"
   ITEM "Prezzo netto@18"
@@ -314,14 +315,25 @@ END
 
 STRING F_UMP 3
 BEGIN
-    PROMPT  1 18 "U.M. peso        "
+  PROMPT  1 18 "U.M. peso        "
-    FIELD LF_ANAMAG->UMP
+  FIELD LF_ANAMAG->UMP
+  FLAG "U"
+  USE %UMS
+  INPUT CODTAB F_UMP
+  DISPLAY "U.M. "          CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_UMP CODTAB
+  VALIDATE REQIF_FUNC 1 F_PESO
+  WARNING "Necessaria una unità di misura valida per il peso "
+  CHECKTYPE NORMAL
 END
 
 NUMBER F_PESO 15 5
 BEGIN
     PROMPT 30 18 "Peso  "
     FIELD LF_ANAMAG->PESO
+  VALIDATE REQIF_FUNC 1 F_TARA
+  WARNING "Necessario introdurre il peso se si è introdotta la tara"
 END
 
 NUMBER F_TARA 15 5
@@ -474,6 +486,8 @@ BOOLEAN F_ARTPROD
 BEGIN
    PROMPT 2 8 "Articolo di produzione "
    FIELD LF_ANAMAG->ARTPROD
+	MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
+	MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
 END
 
 NUMBER F_PPCONF 15 5