root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/pr/pr0500a.uml
alex 7c5f62cb56 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
1997-10-09 09:30:51 +00:00

414 lines
12 KiB
Plaintext
Executable File
Raw Blame History

#include "pr0500a.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Gestione Agenti" -1 -1 78 8
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 1 "Agente"
FLAGS "R"
END
STRING F_CODAGE 5
BEGIN
PROMPT 2 2 "Codice "
FIELD CODAGE
FLAGS "UZ"
KEY 1
USE LF_AGENTI
INPUT CODAGE F_CODAGE
DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC
OUTPUT F_CODAGE CODAGE
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 3 "Ragione sociale "
FIELD RAGSOC
KEY 2
USE LF_AGENTI KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Codice@8R" CODAGE
COPY OUTPUT F_CODAGE
CHECKTYPE REQUIRED
END
NUMBER F_CODFORN 6
BEGIN
PROMPT 2 5 "Cod. fornitore "
FIELD CODFORN
USE LF_CLIFO KEY 1 SELECT TIPOCF=="F"
INPUT TIPOCF "F"
INPUT CODCF F_CODFORN
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODFORN CODCF
OUTPUT F_DESCRFORN RAGSOC
CHECKTYPE NORMAL
ADD RUN CG0 -1
END
STRING F_DESCRFORN 50
BEGIN
PROMPT 27 5 ""
USE LF_CLIFO KEY 2 SELECT TIPOCF=="F"
INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRFORN
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_CODFORN CODCF
OUTPUT F_DESCRFORN RAGSOC
CHECKTYPE NORMAL
ADD RUN CG0 -1
END
LISTBOX F_TIPO 10
BEGIN
PROMPT 2 6 "Tipo agente "
FIELD TIPO
ITEM "A|Agente"
MESSAGE CLEAR,G_CAPOZONA@
ITEM "C|Capozona"
MESSAGE ENABLE,G_CAPOZONA@
ITEM "S|Subagente"
MESSAGE ENABLE,G_CAPOZONA@
END
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 7 "Capozona"
FLAGS "R"
END
STRING F_CODCAPO 5
BEGIN
PROMPT 2 8 "Cod. capozona "
FIELD CODCAPO
FLAGS "UZ"
USE LF_AGENTI SELECT TIPO=="C"
INPUT CODAGE F_CODCAPO
DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC
OUTPUT F_CODCAPO CODAGE
OUTPUT F_DESCRCAPO RAGSOC
CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_PERCCAPO
MESSAGE ENABLE,F_PERCCAPO
GROUP G_CAPOZONA
END
STRING F_DESCRCAPO 50
BEING
PROMPT 27 8 ""
USE LF_AGENTI KEY 2
INPUT RAGSOC F_DESCRCAPO
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Codice@8R" CODAGE
OUTPUT F_CODCAPO CODAGE
OUTPUT F_DESCRCAPO RAGSOC
CHECKTYPE NORMAL
END
NUMBER F_PERCCAPO 5 2
BEGIN
PROMPT 2 9 "% provvigione capozona sulle provvigioni "
FIELD PERCCAPO
NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)}
WARNING "Inserire una percentuale tra 0 e 100"
GROUP G_CAPOZONA
END
NUMBER F_PERCFATT 6 2
BEGIN
PROMPT 2 11 "% provvigione da liquidare alla fatturazione "
FIELD PERCFATT
NUM_EXPR {(#F_PERCFATT>=0.0)&&(#F_PERCFATT<=100.0)}
WARNING "Inserire una percentuale tra 0 e 100"
END
NUMBER F_PERCPAG 6 2
BEGIN
PROMPT 2 12 "% provvigione da liquidare al pagamento "
FLAGS "D"
END
STRING F_CAMPOPROVV 10
BEGIN
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
STRING F_DESCAMPOPROVV 50
BEGIN
PROMPT 2 14 " "
FLAGS "D"
END
NUMBER F_PERCPROVV 5 2
BEGIN
PROMPT 2 15 "% provvigione fissa "
FIELD PERCPROVV
NUM_EXPR {(#F_PERCPROVV>=0.0)&&(#F_PERCPROVV<100.0)}
WARNING "Inserire una percentuale tra 0 e 100"
END
ENDPAGE
PAGE "Ricerche" -1 -1 78 8
LISTBOX F_SEQRIC1 22
BEGIN
PROMPT 1 2 "Sequenza ricerca % provvigione "
FIELD SEQRIC[1,1]
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
STRING F_CODRICPR1 2
BEGIN
PROMPT 59 2 ""
FIELD CODRICPR1
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODRICPR1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODRICPR1 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQRIC2 22
BEGIN
PROMPT 32 3 ""
FIELD SEQRIC[2,2]
ITEM "-|Nessuno" MESSAGE CLEAR,5@|CLEAR,F_CODRICPR2
ITEM "A|Agente" MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
ITEM "V|Categoria di vendita" MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
ITEM "M|Articolo di magazzino" MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
ITEM "C|Cliente" MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
ITEM "O|Condizione di vendita" MESSAGE ENABLE,F_SEQRIC3|CLEAR,F_CODRICPR2
ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC3|ENABLE,F_CODRICPR2
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC3)&&(#THIS_FIELD!=#F_SEQRIC4))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END
STRING F_CODRICPR2 2
BEGIN
PROMPT 59 3 ""
FIELD CODRICPR2
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODRICPR2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODRICPR2 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR3)&&(#THIS_FIELD!=#F_CODRICPR4))
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQRIC3 22
BEGIN
PROMPT 32 4 ""
FIELD SEQRIC[3,3]
ITEM "-|Nessuno" MESSAGE CLEAR,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "A|Agente" MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "V|Categoria di vendita" MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "M|Articolo di magazzino" MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "C|Cliente" MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "O|Condizione di vendita" MESSAGE ENABLE,F_SEQRIC4|CLEAR,F_CODRICPR3
ITEM "3|Archivio % provvigioni" MESSAGE ENABLE,F_SEQRIC4|ENABLE,F_CODRICPR3
GROUP 5
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC4))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END
STRING F_CODRICPR3 2
BEGIN
PROMPT 59 4 ""
FIELD CODRICPR3
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODRICPR3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODRICPR3 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR4))
GROUP 4 5
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQRIC4 22
BEGIN
PROMPT 32 5 ""
FIELD SEQRIC[4,4]
ITEM "-|Nessuno" MESSAGE CLEAR,F_CODRICPR4
ITEM "A|Agente" MESSAGE CLEAR,F_CODRICPR4
ITEM "V|Categoria di vendita" MESSAGE CLEAR,F_CODRICPR4
ITEM "M|Articolo di magazzino" MESSAGE CLEAR,F_CODRICPR4
ITEM "C|Cliente" MESSAGE CLEAR,F_CODRICPR4
ITEM "O|Condizione di vendita" MESSAGE CLEAR,F_CODRICPR4
ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODRICPR4
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQRIC1)&&(#THIS_FIELD!=#F_SEQRIC2)&&(#THIS_FIELD!=#F_SEQRIC3))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
GROUP 5
END
STRING F_CODRICPR4 2
BEGIN
PROMPT 59 5 ""
FIELD CODRICPR4
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODRICPR4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODRICPR4 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODRICPR1)&&(#THIS_FIELD!=#F_CODRICPR2)&&(#THIS_FIELD!=#F_CODRICPR3))
GROUP 4 5
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQALT1 22
BEGIN
PROMPT 1 9 "Indicazione % aggiuntiva "
FIELD SEQALT[1,1]
ITEM "-|Nessuno" MESSAGE CLEAR,6@
ITEM "A|Agente" MESSAGE CLEAR,F_CODALTPR1|ENABLE,F_SEQALT2
ITEM "1|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR1|ENABLE,F_SEQALT2
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
END
STRING F_CODALTPR1 2
BEGIN
PROMPT 59 9 ""
FIELD CODALTPR1
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODALTPR1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODALTPR1 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR2)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
GROUP 6
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQALT2 22
BEGIN
PROMPT 32 10 ""
FIELD SEQALT[2,2]
ITEM "-|Nessuno" MESSAGE CLEAR,7@|CLEAR,F_CODALTPR2
ITEM "A|Agente" MESSAGE ENABLE,F_SEQALT3|CLEAR,F_CODALTPR2
ITEM "2|Archivio % provvigioni" MESSAGE ENABLE,F_SEQALT3|ENABLE,F_CODALTPR2
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT3)&&(#THIS_FIELD!=#F_SEQALT4))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
GROUP 6
END
STRING F_CODALTPR2 2
BEGIN
PROMPT 59 10 ""
FIELD CODALTPR2
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODALTPR2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODALTPR2 CODTAB
CHECKTYPE NORMAL
STR_EXPR (#THIS_FIELD=="")||((#THIS_FIELD!=#F_CODALTPR1)&&(#THIS_FIELD!=#F_CODALTPR3)&&(#THIS_FIELD!=#F_CODALTPR4))
GROUP 6
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQALT3 22
BEGIN
PROMPT 32 11 ""
FIELD SEQALT[3,3]
ITEM "-|Nessuno" MESSAGE CLEAR,F_SEQALT4|CLEAR,F_CODALTPR3
ITEM "A|Agente" MESSAGE ENABLE,F_SEQALT4|CLEAR,F_CODALTPR3
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
END
STRING F_CODALTPR3 2
BEGIN
PROMPT 59 11 ""
FIELD CODALTPR3
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODALTPR3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
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
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
LISTBOX F_SEQALT4 22
BEGIN
PROMPT 32 12 ""
FIELD SEQALT[4,4]
ITEM "-|Nessuno" MESSAGE CLEAR,F_CODALTPR4
ITEM "A|Agente" MESSAGE CLEAR,F_CODALTPR4
ITEM "4|Archivio % provvigioni" MESSAGE ENABLE,F_CODALTPR4
STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#F_SEQALT1)&&(#THIS_FIELD!=#F_SEQALT2)&&(#THIS_FIELD!=#F_SEQALT3))
WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
GROUP 6 7
END
STRING F_CODALTPR4 2
BEGIN
PROMPT 59 12 ""
FIELD CODALTPR4
FLAGS "UZ"
USE APR
INPUT CODTAB F_CODALTPR4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
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
WARNING "Codice archivio non valido o gia' utilizzato per questa sequenza"
END
ENDPAGE
ENDMASK
Reference in New Issue View Git Blame Copy Permalink