Adeguata stampa degli agenti in base al campo formula del doc

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

pr/pr1100a.frm

@@ -106,48 +106,42 @@ SECTION RIC1 5 1 2 STREXPR LF_AGENTI->CODCAPO!=""
         END
         NUMBER F_PERCCAPO 80
         BEGIN
-          PROMPT 3 2 "Perc. della provvigione del capozona percepita sulle provvigioni: "
+          PROMPT 3 2 "Provvigione del capozona percepita sulle provvigioni: "
           FIELD PERCCAPO
-          PICTURE "###,##"
+          PICTURE "##@,@#%"
         END
 END
 
 
-NUMBER F_PERCFATT 78
+SECTION PLIQFAT 6 1 1 NUMEXPR LF_AGENTI->PERCFATT!=0
-BEGIN
+  NUMBER F_PERCFATT 78
-  PROMPT 3 6 "Perc. della provvigione liquidabile alla fatturazione:"
+  BEGIN
-  FIELD PERCFATT
+    PROMPT 3 1 "Provvigione liquidabile alla fatturazione:"
-  PICTURE "###,##"
+    FIELD PERCFATT
+    PICTURE "##@,@#%"
+  END
 END
 
-NUMBER F_PERCPAG 78
+SECTION PLIQPAG 6 1 1 NUMEXPR LF_AGENTI->PERCFATT<100
-BEGIN
+  NUMBER F_PERCPAG 78
-  PROMPT 3 7 "Perc. della provvigione liquidabile al pagamento     :"
+  BEGIN
-  MESSAGE _NUMEXPR,(100-#F_PERCFATT)
+    PROMPT 3 1 "Provvigione liquidabile al pagamento     :"
-  PICTURE "###,##"
+    MESSAGE _NUMEXPR,(100-LF_AGENTI->PERCFATT)
+    PICTURE "##@,@#%"
+  END
 END
 
-LISTBOX F_TIPOIMP 70
+STRING F_CAMPOPROVV 70
 BEGIN
-  PROMPT 3 8 ""
+  PROMPT 3 7   "Formula doc. su cui calcolare la provvigione :"
-  FIELD TIPOIMP
+  FIELD CAMPOPROVV
-  ITEM "L|Calcolo della provvigione sul lordo"
-  ITEM "N|Calcolo della provvigione sul netto"
-END
-
-LISTBOX F_TIPOCAL 20
-BEGIN
-  PROMPT 39 8 ""
-  FIELD TIPOCAL
-  ITEM "D|del documento"
-  ITEM "R|della riga"
 END
 
 NUMBER F_PERCPROVV 70
 BEGIN
-  PROMPT 3 9 "Perc. provvigione fissa:"
+  PROMPT 3 8 "Provvigione fissa:"
   FIELD PERCPROVV
-  PICTURE "###,##"
+  PICTURE "##@,@#%"
 END
 
 SECTION RIC1 10 1 1 STREXPR LF_AGENTI->SEQRIC[1,1]!="-"