1189 lines
24 KiB
Plaintext
Executable File
1189 lines
24 KiB
Plaintext
Executable File
#include "ba4200.h"
|
|
|
|
TOOLBAR "" 0 19 0 3
|
|
|
|
BUTTON DLG_CHGTIP 21 1
|
|
BEGIN
|
|
PROMPT -13 -3 "Persone Fisiche"
|
|
MESSAGE K_F10
|
|
END
|
|
|
|
BUTTON DLG_DITTE 8 1
|
|
BEGIN
|
|
PROMPT -36 -3 "Ditte"
|
|
MESSAGE K_F5
|
|
END
|
|
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
LIST DLG_NULL 1
|
|
BEGIN
|
|
FIELD LF_ANAG->TIPOA
|
|
ITEM "G|Giuridica"
|
|
FLAGS "H"
|
|
KEY 1 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_CODANAGR 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAG->CODANAGR
|
|
FLAGS "RG"
|
|
USE LF_ANAG
|
|
CHECKTYPE REQUIRED
|
|
INPUT TIPOA "G"
|
|
INPUT CODANAGR FLD_CODANAGR
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
OUTPUT FLD_CODANAGR CODANAGR
|
|
OUTPUT FLD_AG1_RAGSOC RAGSOC
|
|
OUTPUT FLD_AG1_COFI COFI
|
|
MESSAGE COPY,1@
|
|
KEY 1
|
|
END
|
|
|
|
STRING FLD_AG1_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FIELD LF_ANAG->RAGSOC
|
|
HELP "Ragione sociale della ditta"
|
|
MESSAGE COPY,2@
|
|
FLAGS "G"
|
|
WARNING "Inserire la ragione sociale"
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA "G"
|
|
CHECKTYPE REQUIRED
|
|
INPUT RAGSOC FLD_AG1_RAGSOC
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
COPY OUTPUT FLD_CODANAGR
|
|
KEY 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 40 4
|
|
BEGIN
|
|
PROMPT 0 4 "Partita IVA "
|
|
END
|
|
|
|
LIST FLD_AG1_STATOPAIV 18
|
|
BEGIN
|
|
PROMPT 2 5 "Stato "
|
|
FIELD LF_ANAG->STATOPAIV
|
|
HELP "Codice dello stato cui si riferisce la partita IVA"
|
|
ITEM " |Italia o extra CEE"
|
|
ITEM "BE|Belgio"
|
|
ITEM "DE|Germania"
|
|
ITEM "DK|Danimarca"
|
|
ITEM "EL|Grecia"
|
|
ITEM "ES|Spagna"
|
|
ITEM "FR|Francia"
|
|
ITEM "GB|Gran Bretagna"
|
|
ITEM "IE|Irlanda"
|
|
ITEM "IT|Italia"
|
|
ITEM "LU|Lussemburgo"
|
|
ITEM "NL|Olanda"
|
|
ITEM "PT|Portogallo"
|
|
END
|
|
|
|
STRING FLD_AG1_PAIV 12
|
|
BEGIN
|
|
PROMPT 2 6 "Codice "
|
|
FIELD LF_ANAG->PAIV
|
|
HELP "Partita IVA della ditta"
|
|
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
|
|
END
|
|
|
|
STRING FLD_AG1_COFI 12
|
|
BEGIN
|
|
PROMPT 46 5 "Codice fiscale "
|
|
FIELD LF_ANAG->COFI
|
|
FLAGS "U"
|
|
HELP "Codice fiscale della ditta"
|
|
VALIDATE XTZPI_FUNC FLD_AG1_STATOPAIV FLD_AG1_COMRF FLD_AG2_COMRES
|
|
USE LF_ANAG KEY 3
|
|
INPUT TIPOA "G"
|
|
INPUT COFI FLD_AG1_COFI
|
|
DISPLAY "Codice Fiscale@16" COFI
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
DISPLAY "Codice" CODANAGR
|
|
COPY OUTPUT FLD_CODANAGR
|
|
CHECKTYPE REQUIRED
|
|
KEY 3
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 0 8 "Dati societari "
|
|
END
|
|
|
|
STRING FLD_AG1_OGGSOC 60
|
|
BEGIN
|
|
PROMPT 2 9 "Oggetto "
|
|
FIELD LF_ANAGGIU->OGGSOC
|
|
HELP "Oggetto sociale della ditta"
|
|
END
|
|
|
|
STRING FLD_AG1_PERRIF 20
|
|
BEGIN
|
|
PROMPT 2 10 "Riferimento "
|
|
FIELD LF_ANAGGIU->PERRIF
|
|
HELP "Nome della persona cui fare riferimento"
|
|
END
|
|
|
|
BOOLEAN CHK_AG1_ENTENCOMM
|
|
BEGIN
|
|
PROMPT 47 10 "Ente non commerciale"
|
|
FIELD LF_ANAGGIU->ENTENCOMM
|
|
HELP "Indicare se si tratta di un ente non commerciale"
|
|
END
|
|
|
|
STRING FLD_AG1_SIGLA 20
|
|
BEGIN
|
|
PROMPT 2 11 "Sigla "
|
|
FIELD LF_ANAGGIU->SIGLA
|
|
HELP "Indicare la sigla identificativa della ditta"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 0 13 "Ultimo aggiornamento"
|
|
END
|
|
|
|
DATE FLD_ANAG_DATAAGG
|
|
BEGIN
|
|
PROMPT 2 14 "Data "
|
|
FIELD LF_ANAG->DATAAGG
|
|
FLAGS "DA"
|
|
END
|
|
|
|
STRING FLD_ANAG_UTAGG 10
|
|
BEGIN
|
|
PROMPT 56 14 "Utente "
|
|
FLAGS "DA"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 0 4 "Sede Legale"
|
|
END
|
|
|
|
STRING FLD_AG2_INDRES 35
|
|
BEGIN
|
|
PROMPT 2 5 "Indirizzo "
|
|
FIELD LF_ANAG->INDRES
|
|
HELP "Indirizzo della sede della ditta"
|
|
WARNING "Completare l'indirizzo di residenza"
|
|
VALIDATE REQIF_FUNC 1 FLD_AG2_COMRES
|
|
END
|
|
|
|
STRING FLD_AG2_CIVRES 10
|
|
BEGIN
|
|
PROMPT 56 5 "N."
|
|
FIELD LF_ANAG->CIVRES
|
|
HELP "Numero civico della ditta"
|
|
END
|
|
|
|
NUMBER FLD_AG2_STATORES 3
|
|
BEGIN
|
|
PROMPT 2 6 "Comune : Stato "
|
|
FIELD LF_ANAG->STATORES
|
|
FLAGS "RZ"
|
|
USE %STA
|
|
INPUT CODTAB FLD_AG2_STATORES
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Stato@50" S0
|
|
OUTPUT FLD_AG2_STATORES CODTAB
|
|
HELP "Codice dello stato sede della ditta"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Stato assente"
|
|
END
|
|
|
|
STRING FLD_AG2_COMRES 4
|
|
BEGIN
|
|
PROMPT 9 7 ": Codice "
|
|
FIELD LF_ANAG->COMRES
|
|
FLAGS "U"
|
|
USE LF_COMUNI
|
|
INPUT STATO FLD_AG2_STATORES
|
|
INPUT COM FLD_AG2_COMRES
|
|
#include <comdcod.h>
|
|
OUTPUT FLD_AG2_STATORES STATO
|
|
OUTPUT FLD_AG2_COMRES COM
|
|
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG2_CAPRES CAPCOM
|
|
HELP "Codice del comune sede della ditta"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Comune assente"
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
STRING FLD_AG2_COMRES_COMUNI_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 38 7 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_AG2_CAPRES 5
|
|
BEGIN
|
|
PROMPT 56 7 "CAP "
|
|
FIELD LF_ANAG->CAPRES
|
|
HELP "CAP del comune sede della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_COMRES_COMUNI_DENCOM 50
|
|
BEGIN
|
|
PROMPT 9 8 ": Nome "
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM FLD_AG2_COMRES_COMUNI_DENCOM
|
|
#include <comdden.h>
|
|
OUTPUT FLD_AG2_STATORES STATO
|
|
OUTPUT FLD_AG2_COMRES COM
|
|
OUTPUT FLD_AG2_COMRES_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG2_COMRES_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG2_CAPRES CAPCOM
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 0 10 "Residenza Fiscale"
|
|
END
|
|
|
|
STRING FLD_AG1_INDRF 35
|
|
BEGIN
|
|
PROMPT 2 11 "Indirizzo "
|
|
FIELD LF_ANAG->INDRF
|
|
HELP "Indirizzo della residenza fiscale della ditta"
|
|
WARNING "Completare l'indirizzo di residenza fiscale"
|
|
VALIDATE REQIF_FUNC 1 FLD_AG1_COMRF
|
|
END
|
|
|
|
STRING FLD_AG1_CIVRF 10
|
|
BEGIN
|
|
PROMPT 56 11 "N."
|
|
FIELD LF_ANAG->CIVRF
|
|
HELP "Numero civico della residenza fiscale della ditta"
|
|
END
|
|
|
|
NUMBER FLD_AG1_STATORF 3
|
|
BEGIN
|
|
PROMPT 2 12 "Comune : Stato "
|
|
FIELD LF_ANAG->STATORF
|
|
FLAGS "RZ"
|
|
COPY USE FLD_AG2_STATORES
|
|
INPUT CODTAB FLD_AG2_STATORES
|
|
COPY DISPLAY FLD_AG2_STATORES
|
|
OUTPUT FLD_AG1_STATORF CODTAB
|
|
HELP "Codice dello stato residenza fiscale della ditta"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Stato assente"
|
|
END
|
|
|
|
STRING FLD_AG1_COMRF 4
|
|
BEGIN
|
|
PROMPT 9 13 ": Codice "
|
|
FIELD LF_ANAG->COMRF
|
|
FLAGS "U"
|
|
COPY USE FLD_AG2_COMRES
|
|
INPUT STATO FLD_AG1_STATORF
|
|
INPUT COM FLD_AG1_COMRF
|
|
COPY DISPLAY FLD_AG2_COMRES
|
|
OUTPUT FLD_AG1_STATORF STATO
|
|
OUTPUT FLD_AG1_COMRF COM
|
|
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG1_CAPRF CAPCOM
|
|
HELP "Codice del comune residenza fiscale della ditta"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
STRING FLD_AG1_COMRF_COMUNI_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 38 13 "Provincia "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_AG1_CAPRF 5
|
|
BEGIN
|
|
PROMPT 56 13 "CAP "
|
|
FIELD LF_ANAG->CAPRF
|
|
HELP "CAP del comune residenza fiscale della ditta"
|
|
END
|
|
|
|
STRING FLD_AG1_COMRF_COMUNI_DENCOM 50
|
|
BEGIN
|
|
PROMPT 9 14 ": Nome "
|
|
USE LF_COMUNI KEY 2
|
|
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
|
|
INPUT DENCOM FLD_AG1_COMRF_COMUNI_DENCOM
|
|
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
|
|
OUTPUT FLD_AG1_STATORF STATO
|
|
OUTPUT FLD_AG1_COMRF COM
|
|
OUTPUT FLD_AG1_COMRF_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG1_COMRF_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG1_CAPRF CAPCOM
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 75 6
|
|
BEGIN
|
|
PROMPT 0 4 "Corrispondenza"
|
|
END
|
|
|
|
STRING FLD_AG2_INDCORR 35
|
|
BEGIN
|
|
PROMPT 2 5 "Indirizzo "
|
|
FIELD LF_ANAG->INDCORR
|
|
HELP "Indirizzo a cui mandare la corrispondenza della ditta"
|
|
WARNING "Completare l'indirizzo di corrispondenza"
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_INDRES
|
|
END
|
|
|
|
STRING FLD_AG2_CIVCORR 10
|
|
BEGIN
|
|
PROMPT 56 5 "N."
|
|
FIELD LF_ANAG->CIVCORR
|
|
HELP "Numero civico a cui mandare la corrispondenza della ditta"
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CIVRES
|
|
END
|
|
|
|
NUMBER FLD_AG2_STATOCORR 3
|
|
BEGIN
|
|
PROMPT 2 6 "Comune : Stato "
|
|
FIELD LF_ANAG->STATOCORR
|
|
FLAGS "RZ"
|
|
COPY USE FLD_AG2_STATORES
|
|
INPUT CODTAB FLD_AG2_STATOCORR
|
|
INPUT CODTAB FLD_AG2_STATORES
|
|
OUTPUT FLD_AG2_STATOCORR CODTAB
|
|
HELP "Codice dello stato a cui mandare la corrispondenza"
|
|
CHECKTYPE NORMAL
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_STATORES
|
|
END
|
|
|
|
STRING FLD_AG2_COMCORR 4
|
|
BEGIN
|
|
PROMPT 9 7 ": Codice "
|
|
FIELD LF_ANAG->COMCORR
|
|
FLAGS "U"
|
|
COPY USE FLD_AG2_COMRES
|
|
INPUT STATO FLD_AG2_STATOCORR
|
|
INPUT COM FLD_AG2_COMCORR
|
|
COPY DISPLAY FLD_AG2_COMRES
|
|
OUTPUT FLD_AG2_STATOCORR STATO
|
|
OUTPUT FLD_AG2_COMCORR COM
|
|
OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG2_CAPCORR CAPCOM
|
|
HELP "Codice del comune a cui mandare la corrispondenza"
|
|
CHECKTYPE NORMAL
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES
|
|
ADD MASK ba4100a
|
|
END
|
|
|
|
STRING FLD_AG2_COMCORR_COMUNI_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 38 7 "Provincia "
|
|
FLAGS "D"
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_PROVCOM
|
|
END
|
|
|
|
STRING FLD_AG2_CAPCORR 5
|
|
BEGIN
|
|
PROMPT 56 7 "CAP "
|
|
FIELD LF_ANAG->CAPCORR
|
|
HELP "CAP al quale spedire la corrispondenza"
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_CAPRES
|
|
END
|
|
|
|
STRING FLD_AG2_COMCORR_COMUNI_DENCOM 50
|
|
BEGIN
|
|
PROMPT 9 8 ": Nome "
|
|
COPY USE FLD_AG2_COMRES_COMUNI_DENCOM
|
|
INPUT DENCOM FLD_AG2_COMCORR_COMUNI_DENCOM
|
|
COPY DISPLAY FLD_AG2_COMRES_COMUNI_DENCOM
|
|
OUTPUT FLD_AG2_STATOCORR STATO
|
|
OUTPUT FLD_AG2_COMCORR COM
|
|
OUTPUT FLD_AG2_COMCORR_COMUNI_DENCOM DENCOM
|
|
OUTPUT FLD_AG2_COMCORR_COMUNI_PROVCOM PROVCOM
|
|
OUTPUT FLD_AG2_CAPCORR CAPCOM
|
|
ADD MASK ba4100a
|
|
VALIDATE EMPTYCOPY_FUNC FLD_AG2_COMRES_COMUNI_DENCOM
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 0 10 "Telefoni"
|
|
END
|
|
|
|
STRING FLD_AG2_PTELRF 10
|
|
BEGIN
|
|
PROMPT 2 11 "Telefono : Prefisso "
|
|
FIELD LF_ANAG->PTELRF
|
|
HELP "Prefisso telefonico della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_TELRF 30
|
|
BEGIN
|
|
PROMPT 35 11 "Numero "
|
|
FIELD LF_ANAG->TELRF
|
|
HELP "Numero di telefono della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_PFAXRF 10
|
|
BEGIN
|
|
PROMPT 2 12 "Telefax : Prefisso "
|
|
FIELD LF_ANAG->PFAXRF
|
|
HELP "Prefisso del fax della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_FAXRF 30
|
|
BEGIN
|
|
PROMPT 35 12 "Numero "
|
|
FIELD LF_ANAG->FAXRF
|
|
HELP "Numero di telefono della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_PTLEXRF 10
|
|
BEGIN
|
|
PROMPT 2 13 "Telex : Prefisso "
|
|
FIELD LF_ANAG->PTLEXRF
|
|
HELP "Prefisso del telex della ditta"
|
|
END
|
|
|
|
STRING FLD_AG2_TLEXRF 30
|
|
BEGIN
|
|
PROMPT 35 13 "Numero "
|
|
FIELD LF_ANAG->TLEXRFX
|
|
HELP "Numero del telex della ditta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 13
|
|
BEGIN
|
|
PROMPT 0 4 "Dati Societa'"
|
|
END
|
|
|
|
DATE FLD_AG3_DATACOST
|
|
BEGIN
|
|
PROMPT 2 5 "Data costituz. "
|
|
FIELD LF_ANAGGIU->DATACOST
|
|
HELP "Data di costituzione della ditta"
|
|
END
|
|
|
|
DATE FLD_AG3_DATAOMOL
|
|
BEGIN
|
|
PROMPT 31 5 "Data omologa "
|
|
FIELD LF_ANAGGIU->DATAOMOL
|
|
HELP "Data di omologazione della ditta"
|
|
WARNING "Data non corretta"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
|
|
END
|
|
|
|
DATE FLD_AG3_DATAISCRIZ
|
|
BEGIN
|
|
PROMPT 2 6 "Data iscrizione "
|
|
FIELD LF_ANAGGIU->DATAISCRIZ
|
|
HELP "Data di iscrizione della ditta"
|
|
WARNING "Data non corretta"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
|
|
END
|
|
|
|
DATE FLD_AG3_DATASORAMM
|
|
BEGIN
|
|
PROMPT 31 6 "Data scadenza organo amministr. "
|
|
FIELD LF_ANAGGIU->DATASORAMM
|
|
HELP "Data di scadenza degli organismi amministrativi"
|
|
END
|
|
|
|
DATE FLD_AG3_DATASCAD
|
|
BEGIN
|
|
PROMPT 2 7 "Data scadenza "
|
|
FIELD LF_ANAGGIU->DATASCAD
|
|
HELP "Data di scadenza della ditta"
|
|
WARNING "La data di scadenza non puo' precedere quella di costituzione"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_AG3_DATACOST
|
|
END
|
|
|
|
DATE FLD_AG3_DATASCSIND
|
|
BEGIN
|
|
PROMPT 31 7 "Data scadenza collegio sindac. "
|
|
FIELD LF_ANAGGIU->DATASCSIND
|
|
HELP "Data di scadenza delo collegio sindacale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 27 5
|
|
BEGIN
|
|
PROMPT 1 9 "Bilancio"
|
|
END
|
|
|
|
DATE FLD_AG3_DATATAPPBI
|
|
BEGIN
|
|
PROMPT 2 10 "Data termine "
|
|
FIELD LF_ANAGGIU->DATATAPPBI
|
|
HELP "Data di termine dell'anno che compare sul bilancio"
|
|
END
|
|
|
|
BOOLEAN CHK_AGIU2_VARDEN
|
|
BEGIN
|
|
PROMPT 29 10 "Variata denominazione"
|
|
FIELD LF_ANAGGIU->VARDEN
|
|
HELP "Indicare se e' variate la denominazione della ditta"
|
|
END
|
|
|
|
DATE FLD_AG3_DATAAPPBIL
|
|
BEGIN
|
|
PROMPT 2 11 "Data approv. "
|
|
FIELD LF_ANAGGIU->DATAAPPBIL
|
|
HELP "Data di approvazione del bilancio della ditta"
|
|
END
|
|
|
|
BOOLEAN CHK_AGIU2_VARRF
|
|
BEGIN
|
|
PROMPT 29 11 "Variata residenza fiscale "
|
|
FIELD LF_ANAGGIU->VARRF
|
|
HELP "Indicare se e' stata variata la residenza fiscale"
|
|
MESSAGE FALSE DISABLE,FLD_AG3_DATAVARRF
|
|
MESSAGE FALSE RESET,FLD_AG3_DATAVARRF
|
|
MESSAGE TRUE ENABLE,FLD_AG3_DATAVARRF
|
|
END
|
|
|
|
DATE FLD_AG3_DATAVARRF
|
|
BEGIN
|
|
PROMPT 60 11 "il "
|
|
FIELD LF_ANAGGIU->DATAVARRF
|
|
HELP "Data di variazione della residenza fiscale"
|
|
END
|
|
|
|
DATE FLD_AG3_DATACHIUS
|
|
BEGIN
|
|
PROMPT 2 12 "Data chiusura "
|
|
FIELD LF_ANAGGIU->DATACHIUS
|
|
HELP "Data di chiusura dell'anno di contabilita'"
|
|
END
|
|
|
|
BOOLEAN CHK_AG5_NONRES
|
|
BEGIN
|
|
PROMPT 29 12 "Non residente"
|
|
FIELD LF_ANAG->SOGGNRES
|
|
HELP "Indicare se si tratta di persona giuridica non residente"
|
|
END
|
|
|
|
NUMBER LST_AG3_STATOSOC 1
|
|
BEGIN
|
|
PROMPT 2 15 "Stato Societa' "
|
|
FIELD LF_ANAGGIU->STATOSOC
|
|
SHEET "Codice|Stato@50"
|
|
INPUT LST_AG3_STATOSOC
|
|
OUTPUT LST_AG3_STATOSOC
|
|
HELP "Stato della societa'"
|
|
ITEM " |Sconosciuto"
|
|
ITEM "1|Soggetto in normale attivita'"
|
|
ITEM "2|Soggetto in liquidazione per cessazione di attivita'"
|
|
ITEM "3|Soggetto in fallimento o in liquidazione coatta amministrativa"
|
|
ITEM "4|Soggetto estinto"
|
|
END
|
|
|
|
NUMBER LST_AG3_SITSOC 1
|
|
BEGIN
|
|
PROMPT 29 15 "Situazione societa'"
|
|
FIELD LF_ANAGGIU->SITSOC
|
|
SHEET "Codice|Situazione@88"
|
|
INPUT LST_AG3_SITSOC
|
|
OUTPUT LST_AG3_SITSOC
|
|
HELP "Situazione della ditta"
|
|
ITEM " |Sconosciuta"
|
|
ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione"
|
|
ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione"
|
|
ITEM "3|Periodo d'imposta in cui ha avuto termine la liquidazione"
|
|
ITEM "4|Periodo d'imposta in cui si e' verificata l' estinzione del soggetto"
|
|
ITEM "5|Periodo d'imposta in cui si e' variato l' assoggettamento IRPEG del soggetto"
|
|
ITEM "6|Periodo d'imposta normale"
|
|
ITEM "7|Periodo d'imposta in cui si e' verificata l'estinzione del soggetto per scissione totale"
|
|
END
|
|
|
|
NUMBER LST_AG3_NATGIU 2
|
|
BEGIN
|
|
PROMPT 53 15 "Natura Giuridica "
|
|
FIELD LF_ANAGGIU->NATGIU
|
|
HELP "Natura giuridica della ditta"
|
|
SHEET "Codice|Natura Giuridica@120"
|
|
INPUT LST_AG3_NATGIU
|
|
OUTPUT LST_AG3_NATGIU
|
|
ITEM " |Sconosciuta"
|
|
ITEM "1|Societa' in accomandita per azioni"
|
|
ITEM "2|Societa' a resposabilita' limitata"
|
|
ITEM "3|Societa' per azioni"
|
|
ITEM "4|Societa' cooperative e loro consorzi iscritti nei registri prefettizi e nello schedario generale delle cooperazioni"
|
|
ITEM "5|Altre societa' cooperative"
|
|
ITEM "6|Mutue assicuratrici"
|
|
ITEM "7|Consorzi con personalita' giuridica"
|
|
ITEM "8|Associazioni riconosciute"
|
|
ITEM "9|Fondazioni"
|
|
ITEM "10|Altri enti od istituti con personalita' giuridica"
|
|
ITEM "11|Consorzi senza personalita' giuridica"
|
|
ITEM "12|Associazioni non riconosciute e comitati"
|
|
ITEM "13|Altre organizzazioni di persone o di beni senza personalita' giuridica (escluse le comunioni)"
|
|
ITEM "14|Enti pubblici economici"
|
|
ITEM "15|Enti pubblici non economici"
|
|
ITEM "16|Casse mutue e fondi di previdenza, assistenza, pensioni o simili con o senza personalita' giuridica"
|
|
ITEM "17|Opere pie e societa' di mutuo soccorso"
|
|
ITEM "18|Enti ospedalieri"
|
|
ITEM "19|Enti ed istituti di previdenza e asssistenza sociale"
|
|
ITEM "20|Aziende autonome di cure, soggiorno e turismo"
|
|
ITEM "21|Aziende regionai, provinciali, comunali e loro consorzi"
|
|
ITEM "22|Societa', organizzazaioni ed enti costituiti all'estero e non altrimenti classificabili con sede dell'amministrazione ad oggetto principale in Italia"
|
|
ITEM "23|Societa' semplici, irregolari o di fatto"
|
|
ITEM "24|Societa' in nome collettivo"
|
|
ITEM "25|Societa' in accomamdita semplice"
|
|
ITEM "26|Societa' d'armamento"
|
|
ITEM "27|Associazioni"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 9
|
|
BEGIN
|
|
PROMPT 0 4 "Dati Aziendali"
|
|
END
|
|
|
|
NUMBER FLD_AG4_CAPSOC 15
|
|
BEGIN
|
|
PROMPT 1 5 "Capitale Sociale "
|
|
FIELD LF_ANAGGIU->CAPSOC
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Indicare l'importo del capitale sociale della ditta"
|
|
END
|
|
|
|
NUMBER FLD_AG4_CAPVER 15
|
|
BEGIN
|
|
PROMPT 1 6 "Capitale versato "
|
|
FIELD LF_ANAGGIU->CAPVER
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Indicare l'importo del capitale sociale versato della ditta"
|
|
END
|
|
|
|
NUMBER FLD_AG4_NAZIONI 9
|
|
BEGIN
|
|
PROMPT 42 5 "Numero azioni "
|
|
FIELD LF_ANAGGIU->NAZIONI
|
|
FLAGS "R"
|
|
HELP "Numero di azioni emesse dalla societa'"
|
|
END
|
|
|
|
NUMBER FLD_AG4_VALNOM 12
|
|
BEGIN
|
|
PROMPT 42 6 "Valore nominale "
|
|
FIELD LF_ANAGGIU->VALNOM
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Valore nominale delle azioni emesse"
|
|
END
|
|
|
|
NUMBER FLD_AG4_FATT 15
|
|
BEGIN
|
|
PROMPT 1 7 "Fatturato "
|
|
FIELD LF_ANAGGIU->FATT
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Fatturato annuo medio della ditta"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 8 "Estratto atto costitutivo"
|
|
END
|
|
|
|
STRING FLD_AG4_ESTROMOL 60
|
|
BEGIN
|
|
PROMPT 13 9 ""
|
|
FIELD LF_ANAGGIU->ESTROMOL
|
|
HELP "Estremi dell'estratto dell'atto costituzionale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 13 "Dati conto fiscale"
|
|
END
|
|
|
|
BOOLEAN F_TITCF
|
|
BEGIN
|
|
PROMPT 2 14 "Titolare conto fiscale"
|
|
FIELD LF_ANAG->TITCF
|
|
HELP "Dire se e' titolare di conto fiscale"
|
|
END
|
|
|
|
LIST F_TIPOSTDEL 12
|
|
BEGIN
|
|
PROMPT 42 14 "Stampa "
|
|
FIELD LF_ANAG->TIPOSTDEL
|
|
HELP "Tipo di ducumento da stampare"
|
|
ITEM "0|Delega"
|
|
ITEM "1|Bollettino"
|
|
ITEM "2|Distinta"
|
|
END
|
|
|
|
NUMBER F_CODABI 5
|
|
BEGIN
|
|
PROMPT 2 15 "Codice ABI "
|
|
FIELD LF_ANAG->CODABI
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] F_CODABI
|
|
INPUT CODTAB[6,10] F_CODCAB
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODABI CODTAB[1,5]
|
|
OUTPUT F_CODCAB CODTAB[6,10]
|
|
END
|
|
|
|
NUMBER F_CODCAB 5
|
|
BEGIN
|
|
PROMPT 42 15 "Codice CAB "
|
|
FIELD LF_ANAG->CODCAB
|
|
FLAGS "RZ"
|
|
COPY ALL F_CODABI
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
LIST LST_AG5_EVECC 2
|
|
BEGIN
|
|
PROMPT 37 4 "Eventi di natura eccezionale "
|
|
FIELD LF_ANAG->EVECC
|
|
HELP "Codice degli eventi naturali eccezionali accaduti alla ditta"
|
|
ITEM " | "
|
|
ITEM "A|A"
|
|
ITEM "B|B"
|
|
ITEM "C|C"
|
|
ITEM "D|D"
|
|
END
|
|
|
|
BOOLEAN CHK_AG5_RESZTERR
|
|
BEGIN
|
|
PROMPT 2 5 "Residente in zona terremotata"
|
|
FIELD LF_ANAG->RESZTERR
|
|
HELP "Indicare se la ditta ha residenza in zona terremotata"
|
|
END
|
|
|
|
BOOLEAN CHK_AG5_VARSLORES
|
|
BEGIN
|
|
PROMPT 2 6 "Sede legale variata"
|
|
FIELD LF_ANAG->VARSLORES
|
|
HELP "Indicare se e' stata variata la sede legale della ditta"
|
|
MESSAGE FALSE DISABLE,DLG_AG5_DVARSLOR
|
|
MESSAGE FALSE RESET,DLG_AG5_DVARSLOR
|
|
MESSAGE TRUE ENABLE,DLG_AG5_DVARSLOR
|
|
END
|
|
|
|
DATE DLG_AG5_DVARSLOR
|
|
BEGIN
|
|
PROMPT 37 6 "Data variazione "
|
|
FIELD LF_ANAG->DVARSLORES
|
|
HELP "Indicare la data di variazione delle sede legale"
|
|
END
|
|
|
|
BOOLEAN CHK_AG5_RFDSL
|
|
BEGIN
|
|
PROMPT 37 5 "Dom. fiscale diverso sede legale"
|
|
FIELD LF_ANAG->RFDIVERSA
|
|
HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 0 7 "Codici statistici"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT1 7
|
|
BEGIN
|
|
PROMPT 2 8 "1 "
|
|
FIELD LF_ANAG->CODSTAT1
|
|
USE %STT
|
|
INPUT CODTAB FLD_AG6_CODSTAT1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_AG6_CODSTAT1 CODTAB
|
|
OUTPUT FLD_AG6_CODSTAT1_TABSTT_S0 S0
|
|
HELP "Primo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT1_TABSTT_S0 57
|
|
BEGIN
|
|
PROMPT 16 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT2 7
|
|
BEGIN
|
|
PROMPT 2 9 "2 "
|
|
FIELD LF_ANAG->CODSTAT2
|
|
COPY USE FLD_AG6_CODSTAT1
|
|
INPUT CODTAB FLD_AG6_CODSTAT2
|
|
COPY DISPLAY FLD_AG6_CODSTAT1
|
|
OUTPUT FLD_AG6_CODSTAT2 CODTAB
|
|
OUTPUT FLD_AG6_CODSTAT2_TABSTT_S0 S0
|
|
HELP "Secondo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT2_TABSTT_S0 57
|
|
BEGIN
|
|
PROMPT 16 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT3 7
|
|
BEGIN
|
|
PROMPT 2 10 "3 "
|
|
FIELD LF_ANAG->CODSTAT3
|
|
COPY USE FLD_AG6_CODSTAT1
|
|
INPUT CODTAB FLD_AG6_CODSTAT3
|
|
COPY DISPLAY FLD_AG6_CODSTAT1
|
|
OUTPUT FLD_AG6_CODSTAT3 CODTAB
|
|
OUTPUT FLD_AG6_CODSTAT3_TABSTT_S0 S0
|
|
HELP "Terzo codice statistico"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice assente"
|
|
END
|
|
|
|
STRING FLD_AG6_CODSTAT3_TABSTT_S0 57
|
|
BEGIN
|
|
PROMPT 16 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 12 "Note"
|
|
END
|
|
|
|
STRING FLD_AG6_NOTE1 70
|
|
BEGIN
|
|
PROMPT 3 13 ""
|
|
FIELD LF_ANAGGIU->NOTE1
|
|
HELP "Indicare le eventuali note relative alla ditta"
|
|
END
|
|
|
|
STRING FLD_AG6_NOTE2 70
|
|
BEGIN
|
|
PROMPT 3 14 ""
|
|
FIELD LF_ANAGGIU->NOTE2
|
|
HELP "Indicare le eventuali note relative alla ditta"
|
|
END
|
|
|
|
STRING FLD_AG6_NOTE3 70
|
|
BEGIN
|
|
PROMPT 3 15 ""
|
|
FIELD LF_ANAGGIU->NOTE3
|
|
HELP "Indicare le eventuali note relative alla ditta"
|
|
END
|
|
|
|
STRING FLD_AG6_NOTE4 70
|
|
BEGIN
|
|
PROMPT 3 16 ""
|
|
FIELD LF_ANAGGIU->NOTE4
|
|
HELP "Indicare le eventuali note relative alla ditta"
|
|
END
|
|
|
|
STRING FLD_AG6_NOTE5 70
|
|
BEGIN
|
|
PROMPT 3 17 ""
|
|
FIELD LF_ANAGGIU->NOTE5
|
|
HELP "Indicare le eventuali note relative alla ditta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 0 "Persone giuridiche"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD LF_ANAGGIU->CODANAGR
|
|
FLAGS "DR"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 8
|
|
BEGIN
|
|
PROMPT 0 5 "Uffici competenti"
|
|
END
|
|
|
|
STRING F_IMP_DENCOM 50
|
|
BEGIN
|
|
PROMPT 1 6 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_IMP_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 64 6 "Prov."
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_UFFIIDD 3
|
|
BEGIN
|
|
PROMPT 1 7 "Imposte Dirette "
|
|
FIELD LF_ANAG->UFFIIDD
|
|
FLAGS "RZ"
|
|
USE %UID
|
|
INPUT CODTAB F_UFFIIDD
|
|
DISPLAY "Ufficio" CODTAB
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_UFFIIDD CODTAB
|
|
OUTPUT F_DENUFFIIDD S0
|
|
OUTPUT F_CC_ESATTORIA S4
|
|
HELP "Numero dell'ufficio delle imposte dirette competente"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Ufficio imposte assente"
|
|
END
|
|
|
|
STRINF F_DENUFFIIDD 50
|
|
BEGIN
|
|
PROMPT 23 7 " "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CC_ESATTORIA 8
|
|
BEGIN
|
|
PROMPT 1 8 "C/C Esattoria "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_UFFREG 3
|
|
BEGIN
|
|
PROMPT 1 9 "Registro "
|
|
USE %URE
|
|
INPUT CODTAB F_UFFREG
|
|
OUTPUT F_UFFREG CODTAB
|
|
OUTPUT F_DENUFFREG S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UDG"
|
|
END
|
|
|
|
STRING F_DENUFFREG 50
|
|
BEGIN
|
|
PROMPT 24 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_UFFCONC 3
|
|
BEGIN
|
|
PROMPT 1 10 "Concessioni "
|
|
FLAGS "DRZG"
|
|
USE %UCC
|
|
INPUT CODTAB F_UFFCONC
|
|
OUTPUT F_UFFCONC CODTAB
|
|
OUTPUT F_DENUFFCONC S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DENUFFCONC 50
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_UFFSERV 3
|
|
BEGIN
|
|
PROMPT 1 11 "Centro Servizi "
|
|
FLAGS "DRZG"
|
|
USE %UCS
|
|
INPUT CODTAB F_UFFSERV
|
|
OUTPUT F_UFFSERV CODTAB
|
|
OUTPUT F_DENUFFSERV S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DENUFFSERV 50
|
|
BEGIN
|
|
PROMPT 24 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX -1 76 3
|
|
BEGIN
|
|
PROMPT 0 13 "Codice contribuente"
|
|
END
|
|
|
|
STRING F_CODCONTR_EP 2
|
|
BEGIN
|
|
PROMPT 1 14 "Esattoria Prov."
|
|
FIELD CODCONTR[1,2]
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODCONTR_EC 3
|
|
BEGIN
|
|
PROMPT 23 14 "Esattoria Com."
|
|
FIELD CODCONTR[3,5]
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODCONTR 8
|
|
BEGIN
|
|
PROMPT 46 14 "Codice "
|
|
FIELD CODCONTR[6,13]
|
|
END
|
|
|
|
STRING F_CODCONTR_CC 2
|
|
BEGIN
|
|
PROMPT 66 14 "C.c."
|
|
FIELD CODCONTR[14,15]
|
|
END
|
|
|
|
ENDMASK |