199 lines
2.8 KiB
Plaintext
Executable File
199 lines
2.8 KiB
Plaintext
Executable File
#include "771100.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON F_FISICA 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "F~isiche"
|
|
END
|
|
|
|
BUTTON F_GIURIDICA 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "~Giuridiche"
|
|
END
|
|
|
|
BUTTON F_ATTIVITA 10 2
|
|
BEGIN
|
|
PROMPT -25 -1 "~Attività"
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -35 -1 ""
|
|
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 "Scritture contabili" -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_ATTIV TO LF_NDITTE INTO CODDITTA=CODDITTA CODATT=CODATTPREV
|
|
JOIN LF_COMUNI TO LF_ATTIV INTO COM==COMCS
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
|
|
OUTPUT F_ATTIV LF_ATTIV->CODATT
|
|
OUTPUT ASCF_TIPOA LF_ATTIV->TIPOADS
|
|
OUTPUT F_ANAGR LF_ATTIV->CODANGRDS
|
|
OUTPUT F_INDCS LF_ATTIV->INDCS
|
|
OUTPUT F_CIVCS LF_ATTIV->CIVCS
|
|
OUTPUT F_CAPCS LF_ATTIV->CAPCS
|
|
OUTPUT F_COMCS LF_COMUNI->DENCOM
|
|
OUTPUT F_PROVCS LF_COMUNI->PROVCOM
|
|
OUTPUT F_PTELCS LF_ATTIV->PTELCS
|
|
OUTPUT F_TELCS LF_ATTIV->TELCS
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_ATTIV 5
|
|
BEGIN
|
|
PROMPT -1 -1 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
LIST ASCF_TIPOA 9
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo persona "
|
|
ITEMS "G|Societa'"
|
|
MESSAGE HIDE,F_FISICA|SHOW,F_GIURIDICA
|
|
ITEMS "F|Fisica"
|
|
MESSAGE SHOW,F_FISICA|HIDE,F_GIURIDICA
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANAGR 5
|
|
BEGIN
|
|
PROMPT 52 5 "Codice depositario "
|
|
FLAGS "RD"
|
|
END
|
|
|
|
STRING F_COGNOME 30
|
|
BEGIN
|
|
PROMPT 1 7 "Cognome/Nome "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_NOME 20
|
|
BEGIN
|
|
PROMPT 45 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGIONE 50
|
|
BEGIN
|
|
PROMPT 1 7 "Ragione soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_IND 35
|
|
BEGIN
|
|
PROMPT 1 8 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CIV 10
|
|
BEGIN
|
|
PROMPT 50 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAP 5
|
|
BEGIN
|
|
PROMPT 64 8 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COM 50
|
|
BEGIN
|
|
PROMPT 1 9 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROV 5
|
|
BEGIN
|
|
PROMPT 66 9 "Prov."
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 0 11 "Luogo di conservazione delle scritture contabili (solo se diverso)"
|
|
END
|
|
|
|
STRING F_INDCS 35
|
|
BEGIN
|
|
PROMPT 1 12 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CIVCS 10
|
|
BEGIN
|
|
PROMPT 47 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAPCS 5
|
|
BEGIN
|
|
PROMPT 63 12 "C.A.P. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMCS 50
|
|
BEGIN
|
|
PROMPT 1 13 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROVCS 5
|
|
BEGIN
|
|
PROMPT 63 13 "Prov. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PTELCS 10
|
|
BEGIN
|
|
PROMPT 1 14 "Telefono "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TELCS 30
|
|
BEGIN
|
|
PROMPT 22 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|