f6d94a6d14
Files correlati : Ricompilazione Demo : [ ] Commento : "migliorate" le maschere; messo a 15 (e non 24) il valore del codice gruppo di un lotto git-svn-id: svn://10.65.10.50/trunk@20396 c028cbd2-c16b-5b4b-a496-9718f37d4682
106 lines
2.0 KiB
Plaintext
Executable File
106 lines
2.0 KiB
Plaintext
Executable File
#include "mgtbgcg.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Gruppi Livelli di giacenza" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 72 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bLivello"
|
|
FLAGS "R"
|
|
END
|
|
|
|
// codice parte del formato codice
|
|
NUMBER F_CODLIV 1
|
|
BEGIN
|
|
PROMPT 2 2 "Numero livello "
|
|
FIELD CODTAB[1,1]
|
|
KEY 1
|
|
FLAG "UP"
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_CODLIV
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CODLIV CODTAB
|
|
OUTPUT F_DESLIV S0
|
|
OUTPUT F_FORMLIV S1
|
|
OUTPUT F_AUTOINSERT B0
|
|
CHECKTYPE FORCED
|
|
ADD NONE
|
|
END
|
|
|
|
BOOL F_AUTOINSERT
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAG "HG"
|
|
MESSAGE TRUE NORMAL,F_DESGROUP
|
|
MESSAGE FALSE REQUIRED,F_DESGROUP
|
|
END
|
|
|
|
// descrizione parte del formato codice
|
|
STRING F_DESLIV 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
USE FCG KEY 2
|
|
INPUT S0 F_DESLIV
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
COPY OUTPUT F_CODLIV
|
|
CHECKTYPE FORCED
|
|
ADD NONE
|
|
END
|
|
|
|
// stringa del formato codice
|
|
STRING F_FORMLIV 23
|
|
BEGIN
|
|
PROMPT 2 5 "Formato previsto per cod. gruppo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODGROUP 23
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 6 "Codice del gruppo "
|
|
FIELD CODTAB[2,25]
|
|
KEY 1
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_CODLIV SELECT
|
|
INPUT CODTAB[2,25] F_CODGROUP
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_CODLIV CODTAB[1,1]
|
|
OUTPUT F_CODGROUP CODTAB[2,25]
|
|
OUTPUT F_DESGROUP S0
|
|
MESSAGE DISABLE,F_DESLIV
|
|
MESSAGE EMPTY ENABLE,F_DESLIV
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESGROUP 50
|
|
BEGIN
|
|
PROMPT 2 7 "Descr. gruppo "
|
|
FIELD S0
|
|
KEY 2
|
|
USE GCG KEY 2 SELECT CODTAB[1,1]==F_CODLIV
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT S0 F_DESGROUP
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
COPY OUTPUT F_CODGROUP
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|