cd9f622862
Files correlati : Ricompilazione Demo : [ ] Commento :ammodernate maschere git-svn-id: svn://10.65.10.50/trunk@18327 c028cbd2-c16b-5b4b-a496-9718f37d4682
123 lines
1.8 KiB
Plaintext
Executable File
123 lines
1.8 KiB
Plaintext
Executable File
#include "dt0300b.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione modulo" 0 2 0 0
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 1 "@bTabella conversione negozi"
|
|
END
|
|
|
|
SPREADSHEET F_CONF_DITTE 78 8
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
ITEM "Negozio"
|
|
ITEM "Ditta"
|
|
ITEM "CDC"
|
|
ITEM "Cod. num."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "" -1 -1 75 10
|
|
|
|
STRING F_S_NEGOZIO 6
|
|
BEGIN
|
|
PROMPT 1 1 "Negozio "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
NUMBER F_S_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 2 "Ditta "
|
|
HELP "Codice della ditta corrispondente al negozio"
|
|
FLAGS "R"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_S_CODDITTA
|
|
DISPLAY "Codice@10" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_S_CODDITTA CODDITTA
|
|
OUTPUT F_S_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
STRING F_S_CDC 20
|
|
BEGIN
|
|
PROMPT 1 3 "CDC "
|
|
FLAGS "UZ"
|
|
USE CMS
|
|
INPUT CODTAB F_S_CDC
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@70" S0
|
|
OUTPUT F_S_CDC CODTAB
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_S_CODNUM 4
|
|
BEGIN
|
|
PROMPT 1 4 "Cod. num. "
|
|
FLAGS "U"
|
|
USE %NUM
|
|
INPUT CODTAB F_S_CODNUM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_CODNUM CODTAB
|
|
OUTPUT F_S_D_CODNUM S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
USE LF_NDITTE KEY 2
|
|
HELP "Ragione sociale ditta corrispondente"
|
|
INPUT RAGSOC F_S_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice@10" CODDITTA
|
|
COPY OUTPUT F_S_CODDITTA
|
|
CHECKTYPE SEARCH
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Inserire la ragione sociale"
|
|
END
|
|
|
|
STRING F_S_D_CODNUM 50
|
|
BEGIN
|
|
PROMPT 23 4 ""
|
|
FLAGS "D"
|
|
USE %NUM
|
|
INPUT CODTAB F_S_CODNUM
|
|
OUTPUT F_S_D_CODNUM S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|