89 lines
1.8 KiB
Plaintext
Executable File
89 lines
1.8 KiB
Plaintext
Executable File
#include "batbfca.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Gruppi Livelli di giacenza" 11 60 14
|
|
|
|
// 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
|
|
CHECKTYPE FORCED
|
|
ADD NONE
|
|
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 il codice gruppo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODGROUP 23
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 22 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
|
|
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
|
|
|
|
|
|
|