campo-sirio/ba/ba4300a.uml

#include "ba4300.h"

TOOLBAR "" 0 19 0 3 

BUTTON DLG_ATT 8 1
BEGIN
	PROMPT -16 -3 "Attivita'"
	MESSAGE K_F6
END

BUTTON DLG_ULC 8 1
BEGIN
	PROMPT -26 -3 "U.Locali"
	MESSAGE K_F5
END

BUTTON DLG_SOC 8 1
BEGIN
  PROMPT -36 -3 "Soci"
  MESSAGE K_F7
END

BUTTON DLG_REG 8 1
BEGIN
  PROMPT -46 -3 "Registri"
  MESSAGE K_F8
END

#include <toolbar.h>
ENDPAGE

PAGE "Ditte 1/4" -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 "Ragione sociale@50" RAGSOC
	OUTPUT FLD_GD1_CODDITTA CODDITTA
	OUTPUT FLD_GD1_CODDITTAH CODDITTA
	OUTPUT FLD_GD1_RAGSOC RAGSOC
	HELP "Codice della ditta"
	CHECKTYPE REQUIRED
	MESSAGE COPY,1@
	MESSAGE COPY,FLD_GD1_CODDITTAH
END

NUMBER FLD_GD1_CODDITTAH 5
BEGIN
	PROMPT 1 1 "Codice          "
	FIELD LF_NDITTE->CODDITTA
	FLAGS "RG"
	USE LF_NDITTE KEY 3
	INPUT TIPOA FLD_GD1_TIPOA
	INPUT CODANAGR FLD_GD1_CODANAGR
	INPUT CODDITTA FLD_GD1_CODDITTAH
	DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT FLD_GD1_CODDITTAH CODDITTA
	OUTPUT FLD_GD1_CODDITTA CODDITTA
	OUTPUT FLD_GD1_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
	MESSAGE COPY,1@
	MESSAGE COPY,FLD_GD1_CODDITTA
	KEY 1
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
	INPUT CODDITTA FLD_GD1_CODDITTA
	DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT FLD_GD1_CODDITTA CODDITTA
	OUTPUT FLD_GD1_RAGSOC RAGSOC
	HELP "Inserire la ragione sociale della ditta"
	CHECKTYPE REQUIRED
        FLAGS "G"
	MESSAGE COPY,2@
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 4 "Anagrafica"
END

LIST FLD_GD1_TIPOA 11
BEGIN
  PROMPT 1 5 "Tipo            "
  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 "Ragione sociale@50" RAGSOC
  OUTPUT FLD_GD1_CODANAGR CODANAGR
  OUTPUT FLD_GD1_TIPOA TIPOA
  OUTPUT FLD_GD1_CODANAGR_ANAGR_RAGSOC RAGSOC
  HELP "Inserire il codice della anagrafica"
  CHECKTYPE  REQUIRED
  WARNING "Anagrafica assente"
  ADD RUN ba4 -1
END

STRING FLD_GD1_CODANAGR_ANAGR_RAGSOC 50
BEGIN
  PROMPT 1 6 "Denominazione   "
  USE LF_ANAG KEY 2
  INPUT TIPOA FLD_GD1_TIPOA
  INPUT RAGSOC FLD_GD1_CODANAGR_ANAGR_RAGSOC
  DISPLAY "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
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 8 "Attivita' principale"
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'                                 " S0
  OUTPUT FLD_GD1_CODATTPREV CODTAB
  OUTPUT FLD_GD1_CODATTPREV_TABATT_DESCR S0
  HELP "Inserire il codice dell'attivita' prevalente della ditta"
  CHECKTYPE REQUIRED
  WARNING "Codice attivita' assente"
END

STRING FLD_GD1_CODATTPREV_TABATT_DESCR 50
BEGIN
  PROMPT 1 10 "Nome            "
  FLAGS "D"
  HELP ""
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 "Inserire il prefisso telefonico della ditta"
END

STRING FLD_GD1_TEL 30
BEGIN
  PROMPT 34 13 "Numero "
  FIELD LF_NDITTE->TEL
  HELP "Inserire il numero di telefono della ditta"
END

STRING FLD_GD1_PFAX 10
BEGIN
  PROMPT 1 14 "FAX      : Prefisso "
  FIELD LF_NDITTE->PFAX
  HELP "Inserire il prefisso telefonico del fax della ditta"
END

STRING FLD_GD1_FAX 30
BEGIN
  PROMPT 34 14 "Numero "
  FIELD LF_NDITTE->FAX
  HELP "Inserire il numero di telefono del fax della ditta"
END

ENDPAGE

PAGE "Ditte 2/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

RADIOBUTTON RDB_GD1_FREQVIVA 20
BEGIN
  PROMPT 1 4 "Frequenza IVA"
  FIELD LF_NDITTE->FREQVIVA
  HELP "Inserire la frequenza di liquidazione dell'IVA"
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
END

STRING FLD_GD1_PERRIF 20
BEGIN
  PROMPT 24 5 "Persona di riferimento "
  FIELD LF_NDITTE->PERRIF
  HELP "Inserire il nominativo della persona a cui fare rfierimento"
END

BOOLEAN CHK_GD1_ARTIG
BEGIN
  PROMPT 1 8 "Artigiano"
  FIELD LF_NDITTE->ARTIG
  HELP "Dire se si tratta di una ditta artigiana"
  MESSAGE FALSE DISABLE,3@|RESET,3@
  MESSAGE TRUE ENABLE,3@
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 9 ""
END

STRING FLD_GD1_NISCRAA 10
BEGIN
  PROMPT 1 10 "Iscriz. Albo  N."
  FIELD LF_NDITTE->NISCRAA
  FLAGS "R"
  HELP "Inserire il numero di iscrizione all'albo"
	GROUP 3
END

DATE FLD_GD1_DATAISCRAA
BEGIN
  PROMPT 52 10 "Data "
  FIELD LF_NDITTE->DATAISCRAA
  FLAGS "R"
  HELP "Inserire la 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 "Inserire il codice del comune a cui si e' iscritti all'albo"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD MASK ba4100a
	GROUP 3
END

STRING FLD_GD1_CAPAA 5
BEGIN
  PROMPT 52 11 "CAP       "
  FIELD LF_NDITTE->CAPAA
  FLAGS "RZ"
  HELP "Inserire il CAP del comune a cui si e' iscritti all'albo"
	GROUP 3
END

STRING FLD_GD1_COMAA_COMUNI_DESCR 50
BEGIN
  PROMPT 8 12 ": Nome   "
  USE LF_COMUNI KEY 2 SELECT STATO=""
  INPUT COM 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 MASK ba4100a
	GROUP 3
END

BOOLEAN CHK_GD1_CONTORD
BEGIN
  PROMPT 1 14 "Contabilit<69> ordinaria"
  FIELD LF_NDITTE->CONTORD
  HELP "Indicare se la ditta tiene una contabilita' ordinaria"
END

BOOLEAN CHK_GD1_REGMAG
BEGIN
  PROMPT 52 14 "Regime Magazzino"
  FIELD LF_NDITTE->REGMAG
  HELP "Indicare 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 "Ditte 3/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

LIST LST_GD2_DATLAV 20
BEGIN
  PROMPT 1 4 "Datore lavoro   "
  FIELD LF_NDITTE->DATLAV
  HELP "Inserire il 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 "Inserire il numero di apprendisti presenti in ditta"
END

DATE FLD_GD2_DINIZIOATT
BEGIN
  PROMPT 1 5 "Inizio Attivit<69> "
  FIELD LF_NDITTE->DINIZIOATT
  HELP "Inserire la data di inizio attivita'"
END

NUMBER FLD_GD2_NULC 3
BEGIN
  PROMPT 45 5 "Numero Unit<69> Locali     "
  FIELD LF_NDITTE->NULC
  FLAGS "RZ"
  HELP "Inserire il numero dell'unit' locale di appartenenza"
END

STRING FLD_GD2_NENASARCO 12
BEGIN
  PROMPT 1 6 "Enasarco        "
  FIELD LF_NDITTE->NENASARCO
  HELP "Inserire il 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 "Inserire il 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 "Inserire il ABI della banca della ditta"
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END

STRING FLD_GD2_CABBAN 5
BEGIN
  PROMPT 7 8 ": Cod.CAB "
  FIELD LF_NDITTE->CABBAN
  FLAGS "RZ"
  COPY ALL FLD_GD2_ABIBAN
  HELP "Inserire il codice CAB della banca"
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END

STRING FLD_GD2_ABIBAN_TABBANCHE_DESCR 47
BEGIN
  PROMPT 25 8 ""
  FLAGS "D"
END

NUMBER LST_GD2_SITSOC 1
BEGIN
  PROMPT 45 9 "Situazione societ<65>        "
  FIELD LF_NDITTE->SITSOC
  SHEET "Codice|Situazione@70"
  INPUT LST_GD2_SITSOC
  OUTPUT LST_GD2_SITSOC
  HELP "Inserire il codice della situazione della societ<65>"
  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"
END

NUMBER LST_GD2_STATOSOC 1
BEGIN
  PROMPT 1 9 "Stato societ<65>   "
  FIELD LF_NDITTE->STATOSOC
  SHEET "Codice|Stato@70"
  INPUT LST_GD2_STATOSOC
  OUTPUT LST_GD2_STATOSOC
  HELP "Inserire il codice dello stato della societ<65>"
  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

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 "Inserire il 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 "Inserire il secondo codice statistico"
  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 "Inserire il 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 "Ditte 4/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 "Inserire il codice anagrafico del firmatario"
  CHECKTYPE NORMAL
  WARNING "Anagrafica assente"
  ADD RUN ba4 -1
END

STRING FLD_GD3_FIRMAT_ANAGR_RAGSOC 50
BEGIN
  PROMPT 17 5 ""
  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 l'eventuale  esenzione ILOR della ditta"
END

BOOLEAN CHK_GD3_REGSTATSP
BEGIN
  PROMPT 27 6 "Statuto speciale"
  FIELD LF_NDITTE->REGSTATSP
  HELP "Indicare se la regione di residenza e' ha 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 secondo l'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 21
BEGIN
  PROMPT 1 8 "Carica          "
  FIELD LF_NDITTE->CARRAPP
  HELP "Inserire il codice della carica del rappresentante"
	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@
END

DATE FLD_GD3_DECCARRAPP
BEGIN
  PROMPT 50 8 "Decorrenza   "
  FIELD LF_NDITTE->DECCARRAPP
  GROUP 4
  HELP "Inserire la data di decorrenza della rappresentanza"
  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 "Inserire il codice del rapppresentante legale"
  CHECKTYPE NORMAL
  WARNING "Anagrafica assente"
  ADD RUN ba4 -1
END

STRING FLD_GD3_RAPPR_ANAGR_RAGSOC 50
BEGIN
  PROMPT 17 10 ""
  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 "Inserire la prima riga della denominazione estesa"
END

STRING FLD_DE_DENEST2 70
BEGIN
  PROMPT 3 13 ""
  FIELD LF_NDITTE->DENEST2
  HELP "Inserire la seconda riga della denominazione estesa"
END

STRING FLD_DE_DENEST3 70
BEGIN
  PROMPT 3 14 ""
  FIELD LF_NDITTE->DENEST3
  HELP "Inserire la terza riga della denominazione estesa"
END

ENDPAGE

ENDMASK