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:
parent
9c0dbd5406
commit
5f6c357ce3
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user