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
This commit is contained in:
augusto 1997-10-16 13:49:36 +00:00
parent c7ad697b47
commit 851ce5b460

View File

@ -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
BEGIN
PROMPT 3 6 "Perc. della provvigione liquidabile alla fatturazione:"
FIELD PERCFATT
PICTURE "###,##"
SECTION PLIQFAT 6 1 1 NUMEXPR LF_AGENTI->PERCFATT!=0
NUMBER F_PERCFATT 78
BEGIN
PROMPT 3 1 "Provvigione liquidabile alla fatturazione:"
FIELD PERCFATT
PICTURE "##@,@#%"
END
END
NUMBER F_PERCPAG 78
BEGIN
PROMPT 3 7 "Perc. della provvigione liquidabile al pagamento :"
MESSAGE _NUMEXPR,(100-#F_PERCFATT)
PICTURE "###,##"
SECTION PLIQPAG 6 1 1 NUMEXPR LF_AGENTI->PERCFATT<100
NUMBER F_PERCPAG 78
BEGIN
PROMPT 3 1 "Provvigione liquidabile al pagamento :"
MESSAGE _NUMEXPR,(100-LF_AGENTI->PERCFATT)
PICTURE "##@,@#%"
END
END
LISTBOX F_TIPOIMP 70
STRING F_CAMPOPROVV 70
BEGIN
PROMPT 3 8 ""
FIELD TIPOIMP
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"
PROMPT 3 7 "Formula doc. su cui calcolare la provvigione :"
FIELD CAMPOPROVV
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]!="-"