92 lines
1.1 KiB
Plaintext
92 lines
1.1 KiB
Plaintext
|
#include "ceeur10.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 -3 0 3
|
||
|
|
|
||
|
|
BUTTON DLG_OK 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -11 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -11 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Selezione Ditte" 0 0 80 018
|
||
|
|
|
||
|
|
NUMBER F10_DITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "Ditta da convertire "
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Specificare una ditta tra quelle elencate di seguito"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F10_RAGSOC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 28 1 ""
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
SPREADSHEET F10_DITTE
|
||
|
|
BEGIN
|
||
|
|
PROMPT 0 2 ""
|
||
|
|
ITEM "Ditta"
|
||
|
|
ITEM "Ragione Sociale@50"
|
||
|
|
ITEM "Esiste in Euro"
|
||
|
|
ITEM "Data adozione"
|
||
|
|
ITEM "Cespiti convertiti"
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|
||
|
|
|
||
|
|
PAGE "Ditta" -1 -1 64 8
|
||
|
|
|
||
|
|
NUMBER S10_DITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 2 "Ditta "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRINGA S10_RAGSOC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 "Rag. Soc. "
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN S10_ESISTE
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 4 "Esiste in Euro"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN S10_CESPITI
|
||
|
|
BEGIN
|
||
|
|
PROMPT 31 4 "Cespiti convertiti"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE S10_ADOZIONE
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 5 "Data adozione Euro "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
BUTTON DLG_OK 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_CANCEL 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|
||
|
|
|