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
|
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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user