Prime modifiche per far funzionare le testate dei listini/contratti e

offerte.


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

ve/ve2200x.uml

@@ -1,11 +1,19 @@
 #include <lffiles.h>
 #include "ve2200x.h"
 
-TOOLBAR "" 0 20 60 2
+TOOLBAR "" 0 20 0 3
+
 #include <toolbar.h>
+
 ENDPAGE
 
-PAGE "Archivio condizioni di vendita " 0 0 70 20
+PAGE "Cond. di vendita" 0 0 70 20
+
+GROUPBOX DLG_NULL 75 8
+BEGIN
+  PROMPT 0 0 ""
+  FLAG "R"
+END
 
 STRING F_TIPO 1
 BEGIN
@@ -40,14 +48,13 @@ BEGIN
 END
 
 // campo riservato ai contratti
-LIST F_C_TIPOCF 7
+LIST F_C_TIPOCF 10
 BEGIN
   PROMPT 2 2 "Tipo    "
   FIELD LF_CONDV->TIPOCF
   KEY 1
   ITEM "C|Cliente"
-  ITEM "F|Fornit."
-  CHECKTYPE REQUIRED
+  ITEM "F|Fornitore"
 END
 
 // campo riservato ai contratti
@@ -58,7 +65,7 @@ BEGIN
   FLAG "U"
   KEY 1
   USE LF_CLIFO
-  INPUT TIPOCF F_C_TIPOCF
+  INPUT TIPOCF F_C_TIPOCF SELECT
   INPUT CODCF F_C_CODCF
   DISPLAY "C/F" TIPOCF
   DISPLAY "Codice" CODCF
@@ -76,36 +83,25 @@ BEGIN
   FLAG "D"
 END
 
-// campo riservato ai listini
-STRING F_L_COD 3
-BEGIN
-  PROMPT 2 4 "Cod. listino "
-  FIELD LF_CONDV->COD
-  FLAG "U"
-  KEY 1
-  USE LF_CONDV
-  INPUT TIPO F_TIPO SELECT
-  INPUT CATVEN F_L_CATVEN SELECT
-  INPUT COD F_L_COD
-  DISPLAY "C.V." CATVEN
-  DISPLAY "Codice" COD
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_TIPO TIPO
-  OUTPUT F_L_CATVEN CATVEN
-  OUTPUT F_L_COD COD
-  CHECKTYPE REQUIRED
-END
-
+// ATTENZIONE: riscontro in fase di test
+// nel caso si debbano utilizzare, come in questo caso "COD" , piu' campi con
+// lo stesso riferimento sul file, il cui uso e' controllato dall'applicazione,
+// e' bene mettere prima i campi NUMBER, poi i campi STRING. Il motivo e' presto detto:
+// durante la TMask::autosave() i campi vengono scorsi uno ad uno mentre il valore valido e'
+// pero' uno solo  di essi; se un campo numerico vuoto ha posizione successiva al campo
+// stringa valido, contenente solo caratteri alfanumerici, la reformat() virtuale tronca la
+// stringa a 0, eseguendo un bel cut(0).
 // campo riservato ai contratti
 NUMBER F_C_COD 3
 BEGIN
   PROMPT 2 4 "Contratto N. "
   FIELD LF_CONDV->COD
   KEY 1
-  USE LF_CONDV
+  GROUP 10
+  USE LF_CONDV 
   INPUT TIPO F_TIPO SELECT
-  INPUT TIPOCF F_C_TIPOCF
-  INPUT CODCF F_C_CODCF
+  INPUT TIPOCF F_C_TIPOCF SELECT
+  INPUT CODCF F_C_CODCF SELECT
   INPUT COD F_C_COD
   DISPLAY "C/F" TIPOCF
   DISPLAY "Codice" CODCF
@@ -118,12 +114,36 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+// campo riservato ai listini
+STRING F_L_COD 3
+BEGIN
+  PROMPT 2 4 "Cod. listino "
+  FIELD LF_CONDV->COD
+  FLAG "U"
+  GROUP 10
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO F_TIPO SELECT
+  INPUT CATVEN F_L_CATVEN SELECT
+  INPUT COD F_L_COD
+  DISPLAY "C.V." CATVEN
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT F_TIPO TIPO
+  OUTPUT F_L_CATVEN CATVEN
+  OUTPUT F_L_COD COD
+  CHECKTYPE REQUIRED
+END
+
 // campo riservato alle offerte
 STRING F_O_COD 3
 BEGIN
   PROMPT 2 3 "Cod. offerta "
   FIELD LF_CONDV->COD
   FLAG "U"
+  GROUP 10
   KEY 1
   USE LF_CONDV
   INPUT TIPO F_TIPO SELECT
@@ -135,12 +155,6 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 75 8
-BEGIN
-  PROMPT 0 0 ""
-  FLAG "R"
-END
-
 STRING F_DESCR 50
 BEGIN
   PROMPT 2 5 "Descrizione  "
@@ -156,7 +170,10 @@ BEGIN
   INPUT CODTAB F_CODVAL
   DISPLAY "Valuta" CODTAB
   DISPLAY "Descrizione@50" S0
+  DISPLAY "Cambio" R10
   OUTPUT F_CODVAL CODTAB
+  OUTPUT F_CAMBIO R10
+  CHECKTYPE NORMAL
   MESSAGE ENABLE,F_CAMBIO|ENABLE,F_DATACAM|DISABLE,F_IMPLORDI
   MESSAGE EMPTY "1",F_CAMBIO|DISABLE,F_CAMBIO|CLEAR,F_DATACAM|DISABLE,F_DATACAM|ENABLE,F_IMPLORDI
 END
@@ -299,9 +316,9 @@ BEGIN
 END
 
 // bottone di lancio dell'applicazione delle righe
-BUTTON BTN_RIGHE 63 1
+BUTTON BTN_RIGHE 10 2
 BEGIN
-  PROMPT 0 -1 "Righe di questa testata"
+  PROMPT 2 -2 "Righe"
   MESSAGE K_F5
 END