Aggiornate maschere sconti e listini/contratti/offerte

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

ve/ve2100i.uml

@@ -21,26 +21,26 @@ BEGIN
   FLAG "H"
   USE LF_SCONTI
   INPUT TIPO F_I_TIPO SELECT
-  INPUT CODART[1,2] F_I_CATVEN
-  INPUT CODART[3,4] F_I_SCCLIENTI
-  INPUT CODART[5,6] F_I_ZONE
-  INPUT CODART[7,10] F_I_CONDPAG
-  DISPLAY "CV" CODART[1,2]
-  DISPLAY "SC" CODART[3,4]
-  DISPLAY "ZN" CODART[5,6]
-  DISPLAY "C.P." CODART[7,10]
+  INPUT CODCAT F_I_CATVEN
+  INPUT CODART[1,2] F_I_SCCLIENTI
+  INPUT CODART[3,4] F_I_ZONE
+  INPUT CODART[5,8] F_I_CONDPAG
+  DISPLAY "CV" CODCAT
+  DISPLAY "SC" CODART[1,2]
+  DISPLAY "ZN" CODART[3,4]
+  DISPLAY "C.P." CODART[5,8]
   DISPLAY "Sconto@25" SCONTO
-  OUTPUT F_I_CATVEN CODART[1,2]
-  OUTPUT F_I_SCCLIENTI CODART[3,4]
-  OUTPUT F_I_ZONE CODART[5,6]
-  OUTPUT F_I_CONDPAG CODART[7,10]
+  OUTPUT F_I_CATVEN CODCAT
+  OUTPUT F_I_SCCLIENTI CODART[1,2]
+  OUTPUT F_I_ZONE CODART[3,4]
+  OUTPUT F_I_CONDPAG CODART[5,8]
   OUTPUT F_I_SCONTO SCONTO
 END
 
 STRING F_I_CATVEN 2
 BEGIN
   PROMPT 2 2 "Cat. vendite   "
-  FIELD LF_SCONTI->CODART[1,2]
+  FIELD LF_SCONTI->CODCAT
   FLAG "U"
   KEY 1
   USE %CVE
@@ -61,7 +61,7 @@ END
 STRING F_I_SCCLIENTI 2
 BEGIN
   PROMPT 2 4 "Sconto cliente "
-  FIELD LF_SCONTI->CODART[3,4]
+  FIELD LF_SCONTI->CODART[1,2]
   FLAG "U"
   KEY 1
   USE LF_SCONTI
@@ -83,7 +83,7 @@ END
 STRING F_I_ZONE 2
 BEGIN
   PROMPT 2 6  "Zona           "
-  FIELD LF_SCONTI->CODART[5,6]
+  FIELD LF_SCONTI->CODART[3,4]
   FLAG "U"
   KEY 1
   USE %ZON
@@ -104,7 +104,7 @@ END
 STRING F_I_CONDPAG 4
 BEGIN
   PROMPT 2 8 "Cond. pagam. "
-  FIELD LF_SCONTI->CODART[7,10]
+  FIELD LF_SCONTI->CODART[5,8]
   FLAG "U"
   KEY 1
   USE %CPG

ve/ve2200x.uml

@@ -272,7 +272,7 @@ BEGIN
 END
 
 // campo riservato ai listini
-STRING F_LC_CODSUCC 3
+STRING F_L_CODSUCC 3
 BEGIN
   PROMPT 2 16 "Listino succ. "
   FIELD LF_CONDV->CODLISSUCC
@@ -282,17 +282,17 @@ BEGIN
   INPUT CATVEN F_L_CATVEN SELECT
 //INPUT TIPOCF F_C_TIPOCF SELECT
 //INPUT CODCF F_C_CODCF SELECT
-  INPUT COD F_LC_CODSUCC
+  INPUT COD F_L_CODSUCC
   DISPLAY "C.V." CATVEN
   DISPLAY "Codice" COD
   DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_LC_CODSUCC COD
-  OUTPUT F_LC_DESSUCC DESCR
+  OUTPUT F_L_CODSUCC COD
+  OUTPUT F_L_DESSUCC DESCR
   CHECKTYPE NORMAL
 END
 
 // campo riservato ai listini
-STRING F_LC_DESSUCC 50
+STRING F_L_DESSUCC 50
 BEGIN
   PROMPT 24 16 ""
   FLAG "D"
@@ -307,4 +307,4 @@ END
 
 ENDPAGE
 
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+

ve/ve2300x.uml

@@ -140,6 +140,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_R_TIPO TIPO
   OUTPUT F_R_O_COD COD
+  OUTPUT F_R_O_DES DESCR
   CHECKTYPE REQUIRED
 END
 
@@ -195,6 +196,7 @@ BEGIN
   OUTPUT F_R_CODRIGA_G CODTAB[1,3]
   OUTPUT F_R_DESRIGA_G S0
   CHECKTYPE REQUIRED
+  MESSAGE COPY,F_R_CODRIGA_A
 END
 
 STRING F_R_DESRIGA_G 50
@@ -217,6 +219,7 @@ BEGIN
   OUTPUT F_R_CODRIGA_S CODTAB
   OUTPUT F_R_DESRIGA_S S0
   CHECKTYPE REQUIRED
+  MESSAGE COPY,F_R_CODRIGA_A
 END
 
 STRING F_R_DESRIGA_S 50
@@ -238,6 +241,7 @@ BEGIN
   OUTPUT F_R_CODRIGA_R CODTAB
   OUTPUT F_R_DESRIGA_R S0
   CHECKTYPE REQUIRED
+  MESSAGE COPY,F_R_CODRIGA_A
 END
 
 STRING F_R_DESRIGA_R 50
@@ -455,3 +459,4 @@ END
 ENDPAGE
 
 ENDMASK
+