207 lines
3.3 KiB
Plaintext
Executable File
207 lines
3.3 KiB
Plaintext
Executable File
#include "771100.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON F_GIURIDICA 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "~Giuridiche"
|
|
END
|
|
|
|
BUTTON DCF_DITTA 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 "~Ditte"
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -35 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -45 -1 ""
|
|
MESSAGE EXIT,K_ESC
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -55 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Dati C.A.A." -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "GRD"
|
|
USE LF_NDITTE KEY 1
|
|
JOIN LF_BASE TO LF_NDITTE INTO CODDITTA=CODDITTA
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
|
|
OUTPUT F_ANAGR LF_BASE->CODCAAF
|
|
CHECKTYPE REQUIRED
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 4 "Dati anagrafici"
|
|
END
|
|
|
|
NUMBER F_ANAGR 5
|
|
BEGIN
|
|
PROMPT 1 5 "Codice "
|
|
USE LF_ANAGGIU KEY 1
|
|
JOIN LF_ANAG TO LF_ANAGGIU INTO CODANAGR=CODANAGR TIPOA="G"
|
|
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
|
|
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
|
|
INPUT CODANAGR F_ANAGR
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
|
|
OUTPUT F_COFI LF_ANAG->COFI
|
|
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
|
|
OUTPUT F_INDRES LF_ANAG->INDRES
|
|
OUTPUT F_CIVRES LF_ANAG->CIVRES
|
|
OUTPUT F_CAPRES LF_ANAG->CAPRES
|
|
OUTPUT F_INDRF LF_ANAG->INDRF
|
|
OUTPUT F_CIVRF LF_ANAG->CIVRF
|
|
OUTPUT F_CAPRF LF_ANAG->CAPRF
|
|
OUTPUT F_COMRES 1@->DENCOM
|
|
OUTPUT F_PROVRES 1@->PROVCOM
|
|
OUTPUT F_COMRF 2@->DENCOM
|
|
OUTPUT F_PROVRF 2@->PROVCOM
|
|
OUTPUT F_ANAGR CODANAGR
|
|
CHECKTYPE NORMAL
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_COFI 16
|
|
BEGIN
|
|
PROMPT 43 5 "Codice fiscale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGIONE 50
|
|
BEGIN
|
|
PROMPT 1 6 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_DITTACAAF 5
|
|
BEGIN
|
|
PROMPT 1 9 "Ditta CAA "
|
|
FLAGS "RZ"
|
|
USE LF_NDITTE KEY 3 SELECT CODANAGR=#F_ANAGR
|
|
INPUT TIPOA "G"
|
|
INPUT CODANAGR F_ANAGR
|
|
INPUT CODDITTA F_DITTACAAF
|
|
DISPLAY "Ditta" CODDITTA
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Cod.Anagrafico" CODANAGR
|
|
DISPLAY "Num.Iscr.Albo" NISCRAA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_NISCRAA NISCRAA
|
|
OUTPUT F_DITTACAAF CODDITTA
|
|
CHECKTYPE NORMAL
|
|
FIELD LF_BASE->DITTACAAF
|
|
END
|
|
|
|
STRING F_NISCRAA 10
|
|
BEGIN
|
|
PROMPT 30 9 "Numero di iscrizione all'albo "
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "DG"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 11 "Sede legale"
|
|
END
|
|
|
|
STRING F_INDRES 35
|
|
BEGIN
|
|
PROMPT 1 12 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CIVRES 10
|
|
BEGIN
|
|
PROMPT 47 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAPRES 5
|
|
BEGIN
|
|
PROMPT 63 12 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMRES 50
|
|
BEGIN
|
|
PROMPT 1 13 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVRES 5
|
|
BEGIN
|
|
PROMPT 63 13 "Prov. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 15 "Domicilio fiscale "
|
|
END
|
|
|
|
STRING F_INDRF 35
|
|
BEGIN
|
|
PROMPT 1 16 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CIVRF 10
|
|
BEGIN
|
|
PROMPT 47 16 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAPRF 5
|
|
BEGIN
|
|
PROMPT 63 16 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMRF 50
|
|
BEGIN
|
|
PROMPT 1 17 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVRF 5
|
|
BEGIN
|
|
PROMPT 63 17 "Prov. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|