326 lines
4.9 KiB
Plaintext
Executable File
326 lines
4.9 KiB
Plaintext
Executable File
#include "771100.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON F_GIURIDICA 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "~Giuridiche"
|
|
END
|
|
|
|
BUTTON F_ATTIVITA 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 "~Attivita'"
|
|
MESSAGE K_TAB,F_ATTIV
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -35 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
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 "Altri soggetti" -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
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
JOIN LF_ANAG TO LF_NDITTE INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN LF_ANAGGIU TO LF_ANAG INTO CODANAGR=CODANAGR
|
|
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
|
|
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
|
|
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
|
|
OUTPUT F_ATTIV LF_NDITTE->CODATTPREV
|
|
OUTPUT F_ANAGR LF_ANAG->CODANAGR
|
|
OUTPUT F_COFI LF_ANAG->COFI
|
|
OUTPUT F_RAGIONE LF_ANAG->RAGSOC
|
|
OUTPUT F_COMRES 1@->DENCOM
|
|
OUTPUT F_PROVRES 1@->PROVCOM
|
|
OUTPUT F_INDRES LF_ANAG->INDRES
|
|
OUTPUT F_CIVRES LF_ANAG->CIVRES
|
|
OUTPUT F_CAPRES LF_ANAG->CAPRES
|
|
OUTPUT F_EVECC LF_ANAG->EVECC
|
|
OUTPUT F_COMRF 2@->DENCOM
|
|
OUTPUT F_PROVRF 2@->PROVCOM
|
|
OUTPUT F_INDRF LF_ANAG->INDRF
|
|
OUTPUT F_CIVRF LF_ANAG->CIVRF
|
|
OUTPUT F_CAPRF LF_ANAG->CAPRF
|
|
OUTPUT F_PTELRF LF_ANAG->PTELRF
|
|
OUTPUT F_TELRF LF_ANAG->TELRF
|
|
OUTPUT F_DATAAPPBIL LF_ANAGGIU->DATAAPPBIL
|
|
OUTPUT F_DATATAPPBI LF_ANAGGIU->DATATAPPBI
|
|
OUTPUT F_STATOSOC LF_ANAGGIU->STATOSOC
|
|
OUTPUT F_NATGIU LF_ANAGGIU->NATGIU
|
|
OUTPUT F_SITSOC LF_ANAGGIU->SITSOC
|
|
OUTPUT F_SEDELEG LF_ANAG->VARSLORES
|
|
OUTPUT F_DOMFISC LF_ANAG->VARDF
|
|
MESSAGE COPY,1@
|
|
MESSAGE DISABLE,F_SEDELEG|DISABLE,F_DOMFISC
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
NUMBER F_ANAGR 5
|
|
BEGIN
|
|
PROMPT -1 -1 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
/*
|
|
STRING F_ATTIV 5
|
|
BEGIN
|
|
PROMPT 1 4 "Attivita' "
|
|
USE %AIS
|
|
INPUT CODTAB F_ATTIV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DESCRATT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
*/
|
|
|
|
STRING F_ATTIV 5
|
|
BEGIN
|
|
PROMPT 1 4 "Attivita' "
|
|
USE LF_ATTIV
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODATT F_ATTIV
|
|
DISPLAY "Attivita'" CODATT
|
|
DISPLAY "Prevalente" ATTPREV
|
|
DISPLAY " @50" DESCR
|
|
OUTPUT F_DESCRATT DESCR
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCRATT 50
|
|
BEGIN
|
|
PROMPT 26 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COFI 16
|
|
BEGIN
|
|
PROMPT 1 6 "Codice fiscale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGIONE 50
|
|
BEGIN
|
|
PROMPT 1 7 "Denominazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 8 ""
|
|
END
|
|
|
|
BOOLEAN F_SEDELEG
|
|
BEGIN
|
|
PROMPT 1 9 "Sede legale"
|
|
//FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMRES 50
|
|
BEGIN
|
|
PROMPT 1 10 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVRES 5
|
|
BEGIN
|
|
PROMPT 63 10 "Prov. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_INDRES 35
|
|
BEGIN
|
|
PROMPT 1 11 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CIVRES 10
|
|
BEGIN
|
|
PROMPT 47 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAPRES 5
|
|
BEGIN
|
|
PROMPT 63 11 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 13 ""
|
|
END
|
|
|
|
BOOLEAN F_DOMFISC
|
|
BEGIN
|
|
PROMPT 1 14 "Domicilio fiscale"
|
|
//FLAGS "D"
|
|
END
|
|
|
|
STRING F_PTELRF 10
|
|
BEGIN
|
|
PROMPT 25 14 "Telefono "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TELRF 30
|
|
BEGIN
|
|
PROMPT 45 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMRF 50
|
|
BEGIN
|
|
PROMPT 1 15 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVRF 5
|
|
BEGIN
|
|
PROMPT 63 15 "Prov. "
|
|
FLAGS "D"
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Altri soggetti" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
DATE F_DATAAPPBIL
|
|
BEGIN
|
|
PROMPT 1 5 "Data approvazione del bilancio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATATAPPBI
|
|
BEGIN
|
|
PROMPT 1 6 "Data termine del bilancio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_STATOSOC 1
|
|
BEGIN
|
|
PROMPT 1 8 "Stato "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 15 8 "(Tab.A)"
|
|
END
|
|
|
|
NUMBER F_NATGIU 2
|
|
BEGIN
|
|
PROMPT 48 8 "Natura giuridica "
|
|
FLAGS "RD"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 69 8 "(Tab.B)"
|
|
END
|
|
|
|
NUMBER F_SITSOC 1
|
|
BEGIN
|
|
PROMPT 1 9 "Situazione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 15 9 "(Tab.E)"
|
|
END
|
|
|
|
LIST F_RSS 7
|
|
BEGIN
|
|
PROMPT 48 9 "R.S.S. "
|
|
ITEM " |Nessuna"
|
|
ITEM "1|VA"
|
|
ITEM "2|SA"
|
|
ITEM "3|SI"
|
|
FIELD LF_BASE->RSS
|
|
END
|
|
|
|
NUMBER F_EVECC 1
|
|
BEGIN
|
|
PROMPT 1 11 "Eventi naturali eccezionali "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|