campo-sirio/ba/ba4300a.uml

#include "ba4300.h"

TOOLBAR "" 0 19 0 3 

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

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

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

BUTTON DLG_REG 9 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 "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
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
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 "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 "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 rfierimento"
END

STRING F_ISCRCAF 10
BEGIN
  PROMPT 26 6 "Iscrizione CAF         "
  FIELD LF_NDITTE->ISCRCAF
  HELP "Numero di iscrizione al CAF"
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 "Iscriz. Albo  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 MASK ba4100a
	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 MASK ba4100a
	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 "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 "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"
  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 "Codice CAB della banca"
  CHECKTYPE NORMAL
  WARNING "Banca assente"
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 "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 "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 21
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@
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