8cc1ae282a
Modificato campo ricerca alternativa. git-svn-id: svn://10.65.10.50/trunk@205 c028cbd2-c16b-5b4b-a496-9718f37d4682
152 lines
2.1 KiB
Plaintext
Executable File
152 lines
2.1 KiB
Plaintext
Executable File
#include "cg0200.h"
|
|
|
|
PAGE "" -1 -1 76 16
|
|
|
|
STRING 101 50
|
|
BEGIN
|
|
PROMPT 1 2 "Rag. soc. "
|
|
HELP "Inserire la ragione sociale"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 102 35
|
|
BEGIN
|
|
PROMPT 1 4 "Indirizzo "
|
|
HELP "Inserire l'indirizzo"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 103 10
|
|
BEGIN
|
|
PROMPT 54 4 "N. "
|
|
HELP "Inserire il numero civico"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 104 35
|
|
BEGIN
|
|
PROMPT 1 5 "Localita "
|
|
HELP "Inserire la localita"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 105 5
|
|
BEGIN
|
|
PROMPT 54 5 "CAP "
|
|
HELP "Inserire il Codice di Avviamento Postale"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 106 3
|
|
BEGIN
|
|
PROMPT 1 6 "Stato "
|
|
FLAGS "RZ"
|
|
USE %STA
|
|
INPUT CODTAB 106
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Stato@50" S0
|
|
OUTPUT 106 CODTAB
|
|
CHECKTYPE NORMAL
|
|
WARNING "Stato assente"
|
|
HELP "Inserire il codice dello stato"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 107 4
|
|
BEGIN
|
|
PROMPT 18 6 "Comune "
|
|
FLAGS "U"
|
|
USE LF_COMUNI
|
|
INPUT STATO 106
|
|
INPUT COM 107
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
DISPLAY "Comune@50" DENCOM
|
|
OUTPUT 105 CAPCOM
|
|
OUTPUT 106 STATO
|
|
OUTPUT 107 COM
|
|
OUTPUT 108 DENCOM
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD MASK ba4100a
|
|
HELP "Inserire il codice del comune"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 108 40
|
|
BEGIN
|
|
PROMPT 33 6 ""
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM 108
|
|
DISPLAY "Comune@50" DENCOM
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Codice" COM
|
|
COPY OUTPUT 107
|
|
ADD MASK ba4100a
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 72 4
|
|
BEGIN
|
|
PROMPT 1 8 "Numeri Telefonici"
|
|
END
|
|
|
|
STRING 109 10
|
|
BEGIN
|
|
PROMPT 2 9 "Telefono "
|
|
HELP "Inserire il prefisso ed il numero di telefono"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 110 30
|
|
BEGIN
|
|
PROMPT 40 9 ""
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 111 10
|
|
BEGIN
|
|
PROMPT 2 10 "Fax "
|
|
HELP "Inserire il prefisso del numero di fax"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 112 30
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN 113
|
|
BEGIN
|
|
PROMPT 2 13 "Riduzione IVA"
|
|
HELP "Flag per la riduzione IVA"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 114 3
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_NULL 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "A~zzera"
|
|
MESSAGE RESET,1@
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|