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

4
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_TIPOCAL 112
#define F_CAMPOPROVV 111
#define F_DESCAMPOPROVV 112
#define F_PERCPROVV 113
#define F_SEQRIC1 114
#define F_SEQRIC2 115

55
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 "
FIELD TIPOIMP
ITEM "L|Lordo"
ITEM "N|Netto"
PROMPT 2 13 "Campo provvig. "
FIELD CAMPOPROVV
FLAG "U"
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 "
FIELD TIPOCAL
ITEM "D|Documento"
ITEM "R|Riga"
PROMPT 2 14 " "
FLAGS "D"
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 "V|Categoria di vendita" MESSAGE CLEAR,F_CODRICPR1
ITEM "M|Articolo di magazzino" MESSAGE CLEAR,F_CODRICPR1
ITEM "C|Cliente" MESSAGE CLEAR,F_CODRICPR1
ITEM "O|Condizione di vendita" MESSAGE CLEAR,F_CODRICPR1
ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_CODRICPR1
STR_EXPR ((#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
ITEM "-|Nessuno" MESSAGE CLEAR,5@|CLEAR,F_SEQRIC2|CLEAR,F_CODRICPR2|CLEAR,F_CODRICPR1
ITEM "A|Agente" MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
ITEM "V|Categoria di vendita" MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
ITEM "M|Articolo di magazzino" MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
ITEM "C|Cliente" MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
ITEM "O|Condizione di vendita" MESSAGE ENABLE,F_SEQRIC2|CLEAR,F_CODRICPR1
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