root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Supporto provvigioni dalle vendite :

Browse Source 
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
This commit is contained in:
alex 1997-10-09 09:30:51 +00:00
parent bb15d03a68
commit 7c5f62cb56
2 changed files with 31 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pr/pr0500a.h
View File

@ -10,8 +10,8 @@
#define F_PERCCAPO 108 #define F_PERCCAPO 108
#define F_PERCFATT 109 #define F_PERCFATT 109
#define F_PERCPAG 110 #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_PERCPROVV 113
#define F_SEQRIC1 114 #define F_SEQRIC1 114
#define F_SEQRIC2 115 #define F_SEQRIC2 115

41
pr/pr0500a.uml
View File

@ -142,20 +142,24 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LISTBOX F_TIPOIMP 5 STRING F_CAMPOPROVV 10
BEGIN 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 END
LISTBOX F_TIPOCAL 9 STRING F_DESCAMPOPROVV 50
BEGIN BEGIN
PROMPT 2 14 "Tipo di calcolo provvigione " PROMPT 2 14 " "
FIELD TIPOCAL FLAGS "D"
ITEM "D|Documento"
ITEM "R|Riga"
END END
NUMBER F_PERCPROVV 5 2 NUMBER F_PERCPROVV 5 2
@ -174,13 +178,14 @@ LISTBOX F_SEQRIC1 22
BEGIN BEGIN
PROMPT 1 2 "Sequenza ricerca % provvigione " PROMPT 1 2 "Sequenza ricerca % provvigione "
FIELD SEQRIC[1,1] 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" WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END END
@ -405,6 +410,4 @@ BEGIN
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK