Supporto provvigioni dalle vendite :

Eliminati campi tipo calcolo e tipo importo e sostituiti con un campo
delle formule documento che contiene il valore della provvigione.
Modificata sequenza di ricerca in modo da permettere di non specificare
nessun archivio. Serve per supportare il default presente nei parametri
delle vendite


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

pr/pr0500a.h

@@ -10,8 +10,8 @@
 #define F_PERCCAPO                          108
 #define F_PERCFATT                          109
 #define F_PERCPAG                           110
-#define F_TIPOIMP                           111
+#define F_CAMPOPROVV                        111
-#define F_TIPOCAL                           112
+#define F_DESCAMPOPROVV                     112
 #define F_PERCPROVV                         113
 #define F_SEQRIC1                           114
 #define F_SEQRIC2                           115

pr/pr0500a.uml

@@ -47,7 +47,7 @@ BEGIN
   PROMPT 2 5 "Cod. fornitore "
   FIELD CODFORN
   USE LF_CLIFO KEY 1 SELECT TIPOCF=="F"
-  INPUT TIPOCF "F" 
+  INPUT TIPOCF "F"
   INPUT CODCF F_CODFORN
   DISPLAY "Codice" CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
@@ -61,7 +61,7 @@ STRING F_DESCRFORN 50
 BEGIN
   PROMPT 27 5 ""
   USE LF_CLIFO KEY 2 SELECT TIPOCF=="F"
-  INPUT TIPOCF "F" 
+  INPUT TIPOCF "F"
   INPUT RAGSOC F_DESCRFORN
   DISPLAY "Ragione sociale@50" RAGSOC
   DISPLAY "Codice" CODCF
@@ -142,20 +142,24 @@ BEGIN
   FLAGS "D"
 END
 
-LISTBOX F_TIPOIMP 5
+STRING F_CAMPOPROVV 10
 BEGIN
-  PROMPT 2 13 "Tipo di importo per il calcolo provvigione   "
+  PROMPT 2 13 "Campo provvig.  "
-  FIELD TIPOIMP
+  FIELD CAMPOPROVV
-  ITEM "L|Lordo"
+  FLAG "U"
-  ITEM "N|Netto"
+  USE %FRD
+  INPUT CODTAB  F_CAMPOPROVV
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CAMPOPROVV CODTAB
+  OUTPUT F_DESCAMPOPROVV S0
+  CHECKTYPE NORMAL
 END
 
-LISTBOX F_TIPOCAL 9
+STRING F_DESCAMPOPROVV 50
 BEGIN
-  PROMPT 2 14 "Tipo di calcolo provvigione                  "
+  PROMPT 2 14 "                "
-  FIELD TIPOCAL
+  FLAGS "D"
-  ITEM "D|Documento"
-  ITEM "R|Riga"
 END
 
 NUMBER F_PERCPROVV 5 2
@@ -174,13 +178,14 @@ LISTBOX F_SEQRIC1 22
 BEGIN
   PROMPT 1 2 "Sequenza ricerca % provvigione "
   FIELD SEQRIC[1,1]
-  ITEM "A|Agente"                 MESSAGE CLEAR,F_CODRICPR1
+  ITEM "-|Nessuno"                MESSAGE CLEAR,5@|CLEAR,F_SEQRIC2|CLEAR,F_CODRICPR2|CLEAR,F_CODRICPR1
-  ITEM "V|Categoria di vendita"   MESSAGE CLEAR,F_CODRICPR1
+  ITEM "A|Agente"                 MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
-  ITEM "M|Articolo di magazzino"  MESSAGE CLEAR,F_CODRICPR1
+  ITEM "V|Categoria di vendita"   MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
-  ITEM "C|Cliente"                MESSAGE CLEAR,F_CODRICPR1
+  ITEM "M|Articolo di magazzino"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
-  ITEM "O|Condizione di vendita"  MESSAGE CLEAR,F_CODRICPR1
+  ITEM "C|Cliente"                MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
-  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_CODRICPR1
+  ITEM "O|Condizione di vendita"  MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
-  STR_EXPR ((#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
+  ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC2|ENABLE,F_CODRICPR1
+  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
   WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
 END
 
@@ -316,7 +321,7 @@ BEGIN
   OUTPUT F_CODALTPR1 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
-  GROUP 6 
+  GROUP 6
   WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
 END
 
@@ -344,7 +349,7 @@ BEGIN
   OUTPUT F_CODALTPR2 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
-  GROUP 6 
+  GROUP 6
   WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
 END
 
@@ -357,7 +362,7 @@ BEGIN
   ITEM "3|Archivio % provvigioni"    MESSAGE ENABLE,F_SEQALT4|ENABLE,F_CODALTPR3
   STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT4))
   WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
-  GROUP 6 7 
+  GROUP 6 7
 END
 
 STRING F_CODALTPR3 2
@@ -372,7 +377,7 @@ BEGIN
   OUTPUT F_CODALTPR3 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR4))
-  GROUP 6 7 
+  GROUP 6 7
   WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
 END
 
@@ -400,11 +405,9 @@ BEGIN
   OUTPUT F_CODALTPR4 CODTAB
   CHECKTYPE NORMAL
   STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3))
-  GROUP 6 7 
+  GROUP 6 7
   WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
 END
 
 ENDPAGE
-
 ENDMASK
-