123 lines
2.2 KiB
Plaintext
Executable File
123 lines
2.2 KiB
Plaintext
Executable File
#include "batbgmc.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella gruppi merceologici " 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_CODGRU 3
|
|
BEGIN
|
|
PROMPT 2 2 "Codice gruppo "
|
|
FLAG "U"
|
|
FIELD CODTAB[1,3]
|
|
KEY 1
|
|
USE GMC SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_CODGRU
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
|
DISPLAY "Descrizione gruppo@50" S0
|
|
OUTPUT F_CODGRU CODTAB[1,3]
|
|
OUTPUT H_DESGRU S0
|
|
MESSAGE COPY,H_CODGRU
|
|
|
|
END
|
|
|
|
STRING F_CODSGR 2
|
|
BEGIN
|
|
PROMPT 30 2 "Codice sottogruppo "
|
|
FIELD CODTAB[4,5]
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE GMC
|
|
INPUT CODTAB[1,3] F_CODGRU
|
|
INPUT CODTAB[4,5] F_CODSGR
|
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
|
DISPLAY "Descrizione sottogruppo@50" S0
|
|
OUTPUT F_CODGRU CODTAB[1,3]
|
|
OUTPUT F_CODSGR CODTAB[4,5]
|
|
OUTPUT F_DESSGR S0
|
|
MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
|
|
MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
|
|
VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
|
|
GROUP GR_SEARCH
|
|
END
|
|
|
|
STRING H_CODGRU 3
|
|
BEGIN
|
|
FLAGS "H"
|
|
COPY USE F_CODGRU
|
|
INPUT CODTAB F_CODGRU
|
|
COPY DISPLAY F_CODGRU
|
|
OUTPUT F_DESGRU S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESGRU 50
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione gruppo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESSGR 50
|
|
BEGIN
|
|
PROMPT 2 8 "Descrizione sottogruppo "
|
|
FIELD S0
|
|
USE GMC KEY 2
|
|
KEY 2
|
|
INPUT S0 F_DESSGR
|
|
DISPLAY "Descrizione sottogruppo@50" S0
|
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
|
COPY OUTPUT F_CODSGR
|
|
MESSAGE K_TAB,F_CODSGR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione"
|
|
END
|
|
|
|
STRING H_DESGRU 50
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione gruppo "
|
|
FIELD S0
|
|
KEY 2
|
|
USE GMC KEY 2
|
|
INPUT S0 H_DESGRU
|
|
DISPLAY "Descrizione gruppo@50" S0
|
|
DISPLAY "Codice gruppo" CODTAB[1,3]
|
|
DISPLAY "Codice sottogruppo" CODTAB[4,5]
|
|
COPY OUTPUT F_CODSGR
|
|
OUTPUT H_DESGRU S0
|
|
MESSAGE K_TAB,F_CODSGR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione del gruppo"
|
|
END
|
|
|
|
STRING F_CODAGGDOC 2
|
|
BEGIN
|
|
PROMPT 2 8 "Codice aggiornamento documenti "
|
|
FIELD LIC->S4
|
|
END
|
|
|
|
STRING F_CODAGGOMA 2
|
|
BEGIN
|
|
PROMPT 2 9 "Codice aggiornamento omaggi "
|
|
FIELD LIC->S5
|
|
END
|
|
|
|
STRING F_CODAGGSCO 2
|
|
BEGIN
|
|
PROMPT 2 10 "Codice aggiornamento sconti "
|
|
FIELD LIC->S6
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
ENDMASK
|