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

Corretta la gestione dei codici di capozona

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5262 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-09-25 08:07:03 +00:00
parent 269f52ca34
commit c0011c5ca6
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pr/pr0500a.h
View File

@ -30,3 +30,4 @@
#define F_CODALTPR3 128 #define F_CODALTPR3 128
#define F_CODALTPR4 129 #define F_CODALTPR4 129
#define G_CAPOZONA 1

8
pr/pr0500a.uml
View File

@ -76,8 +76,11 @@ BEGIN
PROMPT 2 6 "Tipo agente " PROMPT 2 6 "Tipo agente "
FIELD TIPO FIELD TIPO
ITEM "A|Agente" ITEM "A|Agente"
MESSAGE CLEAR,G_CAPOZONA@
ITEM "C|Capozona" ITEM "C|Capozona"
MESSAGE ENABLE,G_CAPOZONA@
ITEM "S|Subagente" ITEM "S|Subagente"
MESSAGE ENABLE,G_CAPOZONA@
END END
GROUPBOX DLG_NULL 80 4 GROUPBOX DLG_NULL 80 4
@ -91,7 +94,8 @@ BEGIN
PROMPT 2 8 "Cod. capozona " PROMPT 2 8 "Cod. capozona "
FIELD CODCAPO FIELD CODCAPO
FLAGS "UZ" FLAGS "UZ"
USE LF_AGENTI
USE LF_AGENTI SELECT TIPO=="C"
INPUT CODAGE F_CODCAPO INPUT CODAGE F_CODCAPO
DISPLAY "Codice@8R" CODAGE DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC DISPLAY "Descrizione@50" RAGSOC
@ -100,6 +104,7 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY CLEAR,F_PERCCAPO MESSAGE EMPTY CLEAR,F_PERCCAPO
MESSAGE ENABLE,F_PERCCAPO MESSAGE ENABLE,F_PERCCAPO
GROUP G_CAPOZONA
END END
STRING F_DESCRCAPO 50 STRING F_DESCRCAPO 50
@ -120,6 +125,7 @@ BEGIN
FIELD PERCCAPO FIELD PERCCAPO
NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)} NUM_EXPR {(#F_PERCCAPO>=0.0)&&(#F_PERCCAPO<100.0)}
WARNING "Inserire una percentuale tra 0 e 100" WARNING "Inserire una percentuale tra 0 e 100"
GROUP G_CAPOZONA
END END
NUMBER F_PERCFATT 6 2 NUMBER F_PERCFATT 6 2