campo-sirio/ba/ba4300a.uml

#include "ba4300.h"

TOOLBAR "" 0 -4 0 4

BUTTON DLG_ATT 10 2
BEGIN
  PROMPT -16 -3 "~Attivita'"
  MESSAGE K_F6
END

BUTTON DLG_ULC 10 2
BEGIN
  PROMPT -26 -3 "U.~Locali"
  MESSAGE K_F5
END

BUTTON DLG_SOC 10 2
BEGIN
  PROMPT -36 -3 "~Soci"
  MESSAGE K_F7
END

BUTTON DLG_REG 10 2
BEGIN
  PROMPT -46 -3 "Re~gistri"
  MESSAGE K_F8
END

BUTTON DLG_REG1 10 2
BEGIN
  PROMPT -56 -3 "Reg.Ces~p."
  MESSAGE K_F3
END

BUTTON DLG_FAX 10 2
BEGIN
  PROMPT -66 -3 "Fa~x"
  PICTURE BMP_FAX
END

#include <toolbar.h>
ENDPAGE

PAGE "Pag. 1" -1 -1 77 19

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
  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 "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)
  INPUT RAGSOC FLD_GD1_RAGSOCH
  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 "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 "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

STRING FLD_GD1_VALUTA 3
BEGIN
  PROMPT 1 17 "Codice valuta di riferimento "
  FIELD VALUTA
  USE %VAL
  INPUT CODTAB FLD_GD1_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_GD1_VALUTA CODTAB
  CHECKTYPE REQUIRED
  FLAGS "DU"
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.120 C2"
  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

PAGE "Pag. 5" -1 -1 77 18

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 2 1 "Codice          "
  FLAGS "RD"
  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 1 4 "Soggetto Obbligato INTRA"
  FLAGS "R"
END

BOOLEAN CHK_IN_PRESELEN
BEGIN
  PROMPT 2 5 "Presentati elenchi in precedenza"
  FIELD PRESELEN
END

BOOLEAN CHK_IN_CESSIVA
BEGIN
  PROMPT 2 6 "Cessata attivita' o variata partita IVA"
  FIELD CESSIVA
END

LIST LST_IN_FREQCES 1 12
BEGIN
  PROMPT 2 7 "Frequenza dei riepiloghi cessioni INTRA "
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
  ITEM "A|Annuale"
  FIELD FREQCES
END

LIST LST_IN_FREQACQ 1 12
BEGIN
  PROMPT 2 8 "Frequenza dei riepiloghi acquisti INTRA "
  ITEM "M|Mensile"
  ITEM "T|Trimestrale"
  ITEM "A|Annuale"
  FIELD FREQACQ
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 10 "Soggetto Delegato INTRA"
  FLAGS "R"
END

LIST LST_IN_TIPOSOGDEL 1 10
BEGIN
  PROMPT 1 11 "Tipo persona  "
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  FIELD TIPOSOGDEL
END

NUMBER FLD_IN_CODSOGDEL 6
BEGIN
  PROMPT 35 11 "Codice "
  USE LF_ANAG
  INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
  INPUT CODANAGR FLD_IN_CODSOGDEL
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT FLD_IN_CODSOGDEL CODANAGR
  OUTPUT FLD_IN_DESSOGDEL RAGSOC
  FIELD CODSOGDEL
  CHECKTYPE NORMAL
END

STRING FLD_IN_DESSOGDEL 50
BEGIN
  PROMPT 1 12 "Denominazione "
  USE LF_ANAG KEY 2
  INPUT TIPOA LST_IN_TIPOSOGDEL SELECT
  INPUT RAGSOC FLD_IN_DESSOGDEL
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT FLD_IN_CODSOGDEL
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK