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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Corretta gestione capozona


git-svn-id: svn://10.65.10.50/branches/R_10_00@22470 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-10-29 08:35:13 +00:00
parent 9c0dbd5406
commit 5f6c357ce3
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pr/pr0500a.uml
View File

@ -24,6 +24,7 @@ BEGIN
INPUT CODAGE F_CODAGE
DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Capo Zona@5" CAPO
OUTPUT F_CODAGE CODAGE
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
@ -76,11 +77,8 @@ 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
@ -91,13 +89,12 @@ END
STRING F_CODCAPO 5
BEGIN
PROMPT 2 8 "Cod. capozona "
PROMPT 2 8 "Cod. capo zona "
FIELD CODCAPO
FLAGS "UZ"
USE LF_AGENTI SELECT TIPO=="C"
INPUT CODAGE F_CODCAPO
DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC
COPY DISPLAY F_CODAGE
OUTPUT F_CODCAPO CODAGE
OUTPUT F_DESCRCAPO RAGSOC
CHECKTYPE NORMAL
@ -111,10 +108,8 @@ 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
COPY DISPLAY F_RAGSOC
COPY OUTPUT F_CODCAPO
CHECKTYPE NORMAL
GROUP G_CAPOZONA
END