root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/pr/pr0500a.uml
alex 7068462b18 Patch level : 2.0 520 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Corretto errore EP20106
Ho registrato I'agente 1 specificando nel campo tipo SUBAGENTE.Richiamo in modifica l'anagrafica agente 1, mi posiziono sul campo "cod. capozona" e entro in ricerca nella tabella archivio agenti associata al campo: la tabella è vuota ma se entro in ricerca dal campo di descrizione trovo l'agene 1


git-svn-id: svn://10.65.10.50/trunk@11325 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-07-14 14:13:27 +00:00

432 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 SELECT TIPO=="C"
INPUT RAGSOC F_DESCRCAPO
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Codice@8R" CODAGE
OUTPUT F_CODCAPO CODAGE
OUTPUT F_DESCRCAPO RAGSOC
CHECKTYPE NORMAL
GROUP G_CAPOZONA
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
STRING F_MATRICOLA 8
BEGIN
PROMPT 2 16 "Numero matricola "
FIELD MATRICOLA
END
DATE F_DATACESS
BEGIN
PROMPT 2 17 "Data cessazione rapporto "
FIELD DATACESS
END
BOOLEAN F_PLURIMAND
BEGIN
PROMPT 2 18 "Plurimandatario"
FIELD PLURIMAND
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