748 lines
15 KiB
Plaintext
Executable File
748 lines
15 KiB
Plaintext
Executable File
#include "ba4300.h"
|
|
|
|
TOOLBAR "" 0 19 0 3
|
|
|
|
BUTTON DLG_ATT 10 1
|
|
BEGIN
|
|
PROMPT -16 -3 "Attivita'"
|
|
MESSAGE K_F6
|
|
END
|
|
|
|
BUTTON DLG_ULC 10 1
|
|
BEGIN
|
|
PROMPT -26 -3 "U.Locali"
|
|
MESSAGE K_F5
|
|
END
|
|
|
|
BUTTON DLG_SOC 10 1
|
|
BEGIN
|
|
PROMPT -36 -3 "Soci"
|
|
MESSAGE K_F7
|
|
END
|
|
|
|
BUTTON DLG_REG 10 1
|
|
BEGIN
|
|
PROMPT -46 -3 "Registri"
|
|
MESSAGE K_F8
|
|
END
|
|
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 1" -1 -1 77 18
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_GD1_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
FIELD LF_NDITTE->CODDITTA
|
|
FLAGS "RG"
|
|
KEY 1
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA FLD_GD1_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
OUTPUT FLD_GD1_CODDITTA CODDITTA
|
|
OUTPUT FLD_GD1_CODDITTAH CODDITTA
|
|
OUTPUT FLD_GD1_RAGSOC RAGSOC
|
|
OUTPUT FLD_GD1_RAGSOCH RAGSOC
|
|
HELP "Codice della ditta"
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTAH
|
|
END
|
|
|
|
NUMBER FLD_GD1_CODDITTAH 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
KEY 1
|
|
HELP "Codice della ditta"
|
|
FIELD LF_NDITTE->CODDITTA
|
|
FLAGS "RG"
|
|
USE LF_NDITTE KEY 3
|
|
INPUT TIPOA FLD_GD1_TIPOA SELECT
|
|
INPUT CODANAGR FLD_GD1_CODANAGR SELECT
|
|
INPUT CODDITTA FLD_GD1_CODDITTAH
|
|
COPY DISPLAY FLD_GD1_CODDITTA
|
|
COPY OUTPUT FLD_GD1_CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,1@|COPY,FLD_GD1_CODDITTA
|
|
END
|
|
|
|
STRING FLD_GD1_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FIELD LF_NDITTE->RAGSOC
|
|
KEY 2
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC FLD_GD1_RAGSOC
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODDITTA
|
|
COPY OUTPUT FLD_GD1_CODDITTA
|
|
HELP "Ragione sociale della ditta"
|
|
WARNING "La ragione sociale e' obbligatoria"
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "G"
|
|
MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOCH
|
|
END
|
|
|
|
STRING FLD_GD1_RAGSOCH 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FIELD LF_NDITTE->RAGSOC
|
|
KEY 2
|
|
USE LF_NDITTE KEY 2 SELECT (TIPOA==#FLD_GD1_TIPOA) && (CODANAGR==#FLD_GD1_CODANAGR)
|
|
COPY INPUT FLD_GD1_RAGSOC
|
|
COPY DISPLAY FLD_GD1_RAGSOC
|
|
COPY OUTPUT FLD_GD1_RAGSOC
|
|
HELP "Ragione sociale della ditta"
|
|
WARNING "La ragione sociale e' obbligatoria"
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOC
|
|
FLAGS "HG"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 4 "Anagrafica"
|
|
END
|
|
|
|
LIST FLD_GD1_TIPOA 11
|
|
BEGIN
|
|
PROMPT 1 5 "Tipo "
|
|
HELP "Natura della ditta"
|
|
FIELD LF_NDITTE->TIPOA
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
STRING FLD_GD1_CODANAGR 5
|
|
BEGIN
|
|
PROMPT 46 5 "Codice "
|
|
FIELD LF_NDITTE->CODANAGR
|
|
FLAGS "R"
|
|
USE LF_ANAG KEY 1
|
|
INPUT TIPOA FLD_GD1_TIPOA
|
|
INPUT CODANAGR FLD_GD1_CODANAGR
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
OUTPUT FLD_GD1_CODANAGR CODANAGR
|
|
OUTPUT FLD_GD1_TIPOA TIPOA
|
|
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
|
HELP "Codice della anagrafica di riferimento"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Anagrafica assente"
|
|
ADD RUN ba4 -1 #FLD_GD1_TIPOA
|
|
END
|
|
|
|
STRING FLD_GD1_CODANAGR_ANAGR_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 6 "Denominazione "
|
|
HELP "Nome della anagrafica di riferimento"
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA FLD_GD1_TIPOA
|
|
INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC
|
|
DISPLAY "Cognome - Nome o Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT FLD_GD1_TIPOA TIPOA
|
|
OUTPUT FLD_GD1_CODANAGR CODANAGR
|
|
OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
|
ADD RUN ba4 -1 #FLD_GD1_TIPOA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 8 "Attivita' prevalente"
|
|
END
|
|
|
|
STRING FLD_GD1_CODATTPREV 5
|
|
BEGIN
|
|
PROMPT 1 9 "Codice "
|
|
FIELD LF_NDITTE->CODATTPREV
|
|
FLAGS "URZ"
|
|
USE %AIS
|
|
INPUT CODTAB FLD_GD1_CODATTPREV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Attivita'@50" S0
|
|
OUTPUT FLD_GD1_CODATTPREV CODTAB
|
|
OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0
|
|
HELP "Codice dell'attivita' prevalente della ditta"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 10 "Descrizione "
|
|
USE %AIS KEY 2
|
|
INPUT S0 FLD_GD1_CODATTPREV_TABATT_DESCR
|
|
DISPLAY "Attivita'@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FLD_GD1_CODATTPREV
|
|
HELP "Descrizione dell'attivita' prevalente della ditta"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 12 "Telefoni"
|
|
END
|
|
|
|
STRING FLD_GD1_PTEL 10
|
|
BEGIN
|
|
PROMPT 1 13 "Telefono : Prefisso "
|
|
FIELD LF_NDITTE->PTEL
|
|
HELP "Prefisso telefonico della ditta"
|
|
END
|
|
|
|
STRING FLD_GD1_TEL 30
|
|
BEGIN
|
|
PROMPT 34 13 "Numero "
|
|
FIELD LF_NDITTE->TEL
|
|
HELP "Numero telefonico della ditta"
|
|
END
|
|
|
|
STRING FLD_GD1_PFAX 10
|
|
BEGIN
|
|
PROMPT 1 14 "FAX : Prefisso "
|
|
FIELD LF_NDITTE->PFAX
|
|
HELP "Prefisso telefonico del fax della ditta"
|
|
END
|
|
|
|
STRING FLD_GD1_FAX 30
|
|
BEGIN
|
|
PROMPT 34 14 "Numero "
|
|
FIELD LF_NDITTE->FAX
|
|
HELP "Numero telefonico del fax della ditta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 2" -1 -1 77 18
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
RADIOBUTTON RDB_GD1_FREQVIVA 20
|
|
BEGIN
|
|
PROMPT 1 4 "Frequenza IVA"
|
|
FIELD LF_NDITTE->FREQVIVA
|
|
HELP "Frequenza di liquidazione dell'IVA"
|
|
ITEM "M|Mensile"
|
|
ITEM "T|Trimestrale"
|
|
END
|
|
|
|
STRING FLD_GD1_PERRIF 20
|
|
BEGIN
|
|
PROMPT 26 5 "Persona di riferimento "
|
|
FIELD LF_NDITTE->PERRIF
|
|
HELP "Nominativo della persona a cui fare riferimento"
|
|
END
|
|
|
|
BOOLEAN CHK_GD1_ARTIG
|
|
BEGIN
|
|
PROMPT 1 8 "Artigiano"
|
|
FIELD LF_NDITTE->ARTIG
|
|
HELP "Dire se si tratta di una ditta artigiana"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 0 9 ""
|
|
END
|
|
|
|
STRING FLD_GD1_NISCRAA 10
|
|
BEGIN
|
|
PROMPT 1 10 "Isc.Albo/CAF N. "
|
|
FIELD LF_NDITTE->NISCRAA
|
|
FLAGS "R"
|
|
HELP "Numero di iscrizione all'albo"
|
|
GROUP 3
|
|
END
|
|
|
|
DATE FLD_GD1_DATAISCRAA
|
|
BEGIN
|
|
PROMPT 52 10 "Data "
|
|
FIELD LF_NDITTE->DATAISCRAA
|
|
FLAGS "R"
|
|
HELP "Data di iscrizione all'albo"
|
|
WARNING "Data non coerente"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT
|
|
GROUP 3
|
|
END
|
|
|
|
STRING FLD_GD1_COMAA 4
|
|
BEGIN
|
|
PROMPT 1 11 "Comune : Codice "
|
|
FIELD LF_NDITTE->COMAA
|
|
FLAGS "U"
|
|
USE LF_COMUNI KEY 1
|
|
INPUT STATO ""
|
|
INPUT COM FLD_GD1_COMAA
|
|
#include <comdcod.h>
|
|
OUTPUT FLD_GD1_COMAA COM
|
|
OUTPUT FLD_GD1_COMAA_COMUNI_DESCR DENCOM
|
|
OUTPUT FLD_GD1_CAPAA CAPCOM
|
|
HELP "Codice del comune in cui e' iscritta all'albo"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD RUN ba4 -0
|
|
GROUP 3
|
|
END
|
|
|
|
STRING FLD_GD1_CAPAA 5
|
|
BEGIN
|
|
PROMPT 52 11 "CAP "
|
|
FIELD LF_NDITTE->CAPAA
|
|
FLAGS "RZ"
|
|
HELP "CAP del comune in cui e' iscritta all'albo"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING FLD_GD1_COMAA_COMUNI_DESCR 50
|
|
BEGIN
|
|
PROMPT 8 12 ": Nome "
|
|
HELP "Nome del comune in cui e' iscritta all'albo"
|
|
USE LF_COMUNI KEY 2 SELECT STATO=""
|
|
INPUT DENCOM FLD_GD1_COMAA_COMUNI_DESCR
|
|
#include <comdden.h>
|
|
OUTPUT FLD_GD1_COMAA COM
|
|
OUTPUT FLD_GD1_COMAA_COMUNI_DESCR DENCOM
|
|
OUTPUT FLD_GD1_CAPAA CAPCOM
|
|
ADD RUN ba4 -0
|
|
GROUP 3
|
|
END
|
|
|
|
BOOLEAN CHK_GD1_CONTORD
|
|
BEGIN
|
|
PROMPT 1 14 "Contabilita' ordinaria"
|
|
FIELD LF_NDITTE->CONTORD
|
|
HELP "Dire se la ditta tiene una contabilita' ordinaria"
|
|
END
|
|
|
|
BOOLEAN CHK_GD1_REGMAG
|
|
BEGIN
|
|
PROMPT 52 14 "Regime Magazzino"
|
|
FIELD LF_NDITTE->REGMAG
|
|
HELP "Dire se si utilizza un regime di magazzino"
|
|
END
|
|
|
|
BOOLEAN CHK_GD1_IMPRFAM
|
|
BEGIN
|
|
PROMPT 1 15 "Impresa familiare"
|
|
FIELD LF_NDITTE->IMPRFAM
|
|
HELP "Dire se si tratta di una impresa familiare"
|
|
END
|
|
|
|
BOOLEAN CHK_GD1_FLIVA11Q
|
|
BEGIN
|
|
PROMPT 52 15 "IVA 11 Quater"
|
|
FIELD LF_NDITTE->FLIVA11Q
|
|
HELP "Dire se soggetta all'articolo IVA 11 Quater"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 3" -1 -1 77 18
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
LIST LST_GD2_DATLAV 22
|
|
BEGIN
|
|
PROMPT 1 4 "Datore lavoro "
|
|
FIELD LF_NDITTE->DATLAV
|
|
HELP "Tipo di datore di lavoro"
|
|
ITEM "1|Datore di lavoro"
|
|
ITEM "2|Non datore di lavoro"
|
|
ITEM "3|Datore Agricolo"
|
|
END
|
|
|
|
NUMBER FLD_GD2_NAPP 3
|
|
BEGIN
|
|
PROMPT 45 4 "Numero apprendisti "
|
|
FIELD LF_NDITTE->NAPP
|
|
FLAGS "R"
|
|
HELP "Numero di apprendisti presenti in ditta"
|
|
END
|
|
|
|
DATE FLD_GD2_DINIZIOATT
|
|
BEGIN
|
|
PROMPT 1 5 "Inizio Attivita'"
|
|
FIELD LF_NDITTE->DINIZIOATT
|
|
HELP "Data di inizio attivita'"
|
|
END
|
|
|
|
NUMBER FLD_GD2_NULC 3
|
|
BEGIN
|
|
PROMPT 45 5 "Numero Unita' Locali "
|
|
FIELD LF_NDITTE->NULC
|
|
FLAGS "RZ"
|
|
HELP "Numero delle unita' locali di appartenenza"
|
|
END
|
|
|
|
STRING FLD_GD2_NENASARCO 12
|
|
BEGIN
|
|
PROMPT 1 6 "Enasarco "
|
|
FIELD LF_NDITTE->NENASARCO
|
|
HELP "Numero di iscrizione all'ENASARCO"
|
|
END
|
|
|
|
NUMBER FLD_GD2_MESIREDD 3
|
|
BEGIN
|
|
PROMPT 45 6 "Mesi produzione reddito "
|
|
FIELD LF_NDITTE->MESIREDD
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
|
|
FLAGS "R"
|
|
HELP "Numero di mesi di produzione reddito"
|
|
WARNING "Numero di mesi non corretto"
|
|
END
|
|
|
|
STRING FLD_GD2_ABIBAN 5
|
|
BEGIN
|
|
PROMPT 1 7 "Banca : Cod.ABI "
|
|
FIELD LF_NDITTE->ABIBAN
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] FLD_GD2_ABIBAN
|
|
INPUT CODTAB[6,10] FLD_GD2_CABBAN
|
|
DISPLAY "ABI " CODTAB[1,5]
|
|
DISPLAY "CAB " CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT FLD_GD2_ABIBAN CODTAB[1,5]
|
|
OUTPUT FLD_GD2_CABBAN CODTAB[6,10]
|
|
OUTPUT FLD_GD2_ABIBAN_TABBANCHE_DESCR S0
|
|
HELP "Codice ABI della banca della ditta"
|
|
VALIDATE REQIF_FUNC 1 FLD_GD2_CABBAN
|
|
WARNING "Codice ABI assente"
|
|
// CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FLD_GD2_CABBAN 5
|
|
BEGIN
|
|
PROMPT 7 8 ": Cod.CAB "
|
|
FIELD LF_NDITTE->CABBAN
|
|
FLAGS "RZ"
|
|
COPY ALL FLD_GD2_ABIBAN
|
|
HELP "Codice CAB della banca"
|
|
VALIDATE REQIF_FUNC 1 FLD_GD2_ABIBAN
|
|
WARNING "Codice CAB assente"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FLD_GD2_ABIBAN_TABBANCHE_DESCR 47
|
|
BEGIN
|
|
PROMPT 25 8 ""
|
|
USE %BAN KEY 2
|
|
INPUT S0 FLD_GD2_ABIBAN_TABBANCHE_DESCR
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "ABI " CODTAB[1,5]
|
|
DISPLAY "CAB " CODTAB[6,10]
|
|
COPY OUTPUT FLD_GD2_ABIBAN
|
|
HELP "Nome della banca della ditta"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Banca assente"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 0 10 "Codici statistici"
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT1 7
|
|
BEGIN
|
|
PROMPT 1 11 "1 "
|
|
FIELD LF_NDITTE->CODSTAT1
|
|
USE %STT
|
|
INPUT CODTAB FLD_GD2_CODSTAT1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_GD2_CODSTAT1 CODTAB
|
|
OUTPUT FLD_GD2_CODSTAT1_TABSTT_S0 S0
|
|
HELP "Primo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT1_TABSTT_S0 55
|
|
BEGIN
|
|
PROMPT 17 11 ""
|
|
FLAGS "D"
|
|
HELP ""
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT2 7
|
|
BEGIN
|
|
PROMPT 1 12 "2 "
|
|
FIELD LF_NDITTE->CODSTAT2
|
|
COPY USE FLD_GD2_CODSTAT1
|
|
INPUT CODTAB FLD_GD2_CODSTAT2
|
|
COPY DISPLAY FLD_GD2_CODSTAT1
|
|
OUTPUT FLD_GD2_CODSTAT2 CODTAB
|
|
OUTPUT FLD_GD2_CODSTAT2_TABSTT_S0 S0
|
|
HELP "Secondo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT2_TABSTT_S0 55
|
|
BEGIN
|
|
PROMPT 17 12 ""
|
|
FLAGS "D"
|
|
HELP ""
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT3 7
|
|
BEGIN
|
|
PROMPT 1 13 "3 "
|
|
FIELD LF_NDITTE->CODSTAT3
|
|
COPY USE FLD_GD2_CODSTAT1
|
|
INPUT CODTAB FLD_GD2_CODSTAT3
|
|
COPY DISPLAY FLD_GD2_CODSTAT1
|
|
OUTPUT FLD_GD2_CODSTAT3 CODTAB
|
|
OUTPUT FLD_GD2_CODSTAT3_TABSTT_S0 S0
|
|
HELP "Terzo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_GD2_CODSTAT3_TABSTT_S0 55
|
|
BEGIN
|
|
PROMPT 17 13 ""
|
|
FLAGS "D"
|
|
HELP ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 4" -1 -1 77 18
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING FLD_GD3_FIRMAT 5
|
|
BEGIN
|
|
PROMPT 1 4 "Firmatario "
|
|
FIELD LF_NDITTE->FIRMAT
|
|
FLAGS "R"
|
|
USE LF_ANAG KEY 1
|
|
INPUT TIPOA "F"
|
|
INPUT CODANAGR FLD_GD3_FIRMAT
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Nome@50" RAGSOC
|
|
OUTPUT FLD_GD3_FIRMAT CODANAGR
|
|
OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC
|
|
HELP "Codice anagrafico del firmatario degli atti"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Anagrafica assente"
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 5 ""
|
|
HELP "Nome del firmatario degli atti"
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA "F"
|
|
INPUT RAGSOC FLD_GD3_FIRMAT_ANAGR_RAGSOC
|
|
DISPLAY "Nome@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT FLD_GD3_FIRMAT CODANAGR
|
|
OUTPUT FLD_GD3_FIRMAT_ANAGR_RAGSOC RAGSOC
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_ESILOR
|
|
BEGIN
|
|
PROMPT 1 6 "Esenzione ILOR"
|
|
FIELD LF_NDITTE->ESILOR
|
|
HELP "Indicare se la ditta e' soggetta ad esenzione ILOR"
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_REGSTATSP
|
|
BEGIN
|
|
PROMPT 27 6 "Statuto speciale"
|
|
FIELD LF_NDITTE->REGSTATSP
|
|
HELP "Indicare se la regione di residenza e' a statuto speciale"
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_AZCONIUG
|
|
BEGIN
|
|
PROMPT 54 6 "Azienda coniugale"
|
|
FIELD LF_NDITTE->AZCONIUG
|
|
HELP "Indicare se si tratta di impresa coniugale"
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_CONDFAM
|
|
BEGIN
|
|
PROMPT 1 7 "Conduzione familiare"
|
|
FIELD LF_NDITTE->CONDFAM
|
|
HELP "Indicare se la ditta e' a conduzione familiare"
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_DEDART13
|
|
BEGIN
|
|
PROMPT 27 7 "Deduzioni art.13"
|
|
FIELD LF_NDITTE->DEDART13
|
|
HELP "Indicare se la ditta ha diritto a deduzioni ex articolo 13"
|
|
END
|
|
|
|
BOOLEAN CHK_GD3_RICSUP20
|
|
BEGIN
|
|
PROMPT 54 7 "Ricavi > 20%"
|
|
FIELD LF_NDITTE->RICSUP20%
|
|
HELP "Indicare se i ricavi sono superiore al 20%"
|
|
END
|
|
|
|
LIST FLD_GD3_CARRAPP 23
|
|
BEGIN
|
|
PROMPT 1 8 "Carica "
|
|
FIELD LF_NDITTE->CARRAPP
|
|
HELP "Codice della carica del rappresentante legale"
|
|
ITEMS " |Nessun rappresentante"
|
|
MESSAGE RESET,4@|DISABLE,4@
|
|
ITEMS "1|Rappresentante legale"
|
|
MESSAGE ENABLE,4@
|
|
ITEMS "2|Curatore fallimentare"
|
|
MESSAGE ENABLE,4@
|
|
ITEMS "3|Liquidatore"
|
|
MESSAGE ENABLE,4@
|
|
ITEMS "4|Socio amministratore"
|
|
MESSAGE ENABLE,4@
|
|
ITEMS "5|Erede"
|
|
MESSAGE ENABLE,4@
|
|
ITEMS "6|Curatore di eredita'"
|
|
MESSAGE ENABLE,4@
|
|
END
|
|
|
|
DATE FLD_GD3_DECCARRAPP
|
|
BEGIN
|
|
PROMPT 50 8 "Decorrenza "
|
|
FIELD LF_NDITTE->DECCARRAPP
|
|
GROUP 4
|
|
HELP "Data di decorrenza della rappresentanza legale"
|
|
WARNING "Data non coerente"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_GD2_DINIZIOATT
|
|
END
|
|
|
|
STRING FLD_GD3_RAPPR 5
|
|
BEGIN
|
|
PROMPT 1 9 "Rappresentante "
|
|
FIELD LF_NDITTE->RAPPR
|
|
FLAGS "R"
|
|
GROUP 4
|
|
COPY USE FLD_GD3_FIRMAT
|
|
INPUT TIPOA "F"
|
|
INPUT CODANAGR FLD_GD3_RAPPR
|
|
COPY DISPLAY FLD_GD3_FIRMAT
|
|
OUTPUT FLD_GD3_RAPPR CODANAGR
|
|
OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC
|
|
HELP "Codice dell'anagrafica del rappresentante legale"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Anagrafica assente"
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 10 ""
|
|
HELP "Nome del rappresentate legale"
|
|
COPY USE FLD_GD3_FIRMAT_ANAGR_RAGSOC
|
|
INPUT RAGSOC FLD_GD3_RAPPR_ANAGR_RAGSOC
|
|
COPY DISPLAY FLD_GD3_FIRMAT_ANAGR_RAGSOC
|
|
OUTPUT FLD_GD3_RAPPR CODANAGR
|
|
OUTPUT FLD_GD3_RAPPR_ANAGR_RAGSOC RAGSOC
|
|
ADD RUN ba4 -1
|
|
GROUP 4
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "Denominazione Estesa"
|
|
END
|
|
|
|
STRING FLD_DE_DENEST1 70
|
|
BEGIN
|
|
PROMPT 3 12 ""
|
|
FIELD LF_NDITTE->DENEST1
|
|
HELP "Denominazione estesa della ditta"
|
|
END
|
|
|
|
STRING FLD_DE_DENEST2 70
|
|
BEGIN
|
|
PROMPT 3 13 ""
|
|
FIELD LF_NDITTE->DENEST2
|
|
HELP "Denominazione estesa della ditta"
|
|
END
|
|
|
|
STRING FLD_DE_DENEST3 70
|
|
BEGIN
|
|
PROMPT 3 14 ""
|
|
FIELD LF_NDITTE->DENEST3
|
|
HELP "Denominazione estesa della ditta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|