Patch level :

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

View File

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