campo-sirio/src/cg/cg0200a.uml

#include "cg0200.h"

TOOLBAR "topbar" 0 0 0 2

#include <filebar.h>

BUTTON DLG_CONTRLAV
BEGIN
  PROMPT 13 1 "Cont.Lav."
  PICTURE TOOL_EDIT
END

#include <cancelbar.h>

ENDPAGE

PAGE "Dati Anagrafici" -1 -1 78 23

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FIELD TIPOCF
  FLAGS "PG"
  KEY 1 2 4 5 6
  HELP "Indicare se cliente oppure fornitore"
  ITEM "C|Clienti"
  MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|SHOW,F_IMPMINFAT
  ITEM "F|Fornitori"
  MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|HIDE,F_IMPMINFAT
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Codice "
  FIELD CODCF
  FLAGS "GR"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC[1,30]
  OUTPUT F_RAGSOCA RAGSOC[31,]
  OUTPUT F_COFI COFI
  OUTPUT F_STATOPAIV STATOPAIV
  OUTPUT F_PAIV PAIV
  OUTPUT F_RICALT RICALT
  HELP "Codice relativo al cliente o fornitore"
  MESSAGE COPY,2@
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FIELD RAGSOC[1,30]
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC[1,30] F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
  HELP "Prima parte della ragione sociale o cognome"
  MESSAGE COPY,3@
  WARNING "Manca la ragione sociale"
  CHECKTYPE REQUIRED
END

STRING F_RAGSOCA 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FIELD RAGSOC[31,50]
  KEY 2
  HELP "Seconda parte della ragione sociale o nome"
  MESSAGE COPY,6@
END

STRING F_RICALT 30 20
BEGIN
  PROMPT 2 4 "Ricerca Alt.   "
  FIELD RICALT
  KEY 6
  USE LF_CLIFO KEY 6
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RICALT F_RICALT
  DISPLAY "Ricerca alternativa@30" RICALT
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  COPY OUTPUT F_CODCF
  HELP "Chiave di ricerca alternativa"
END

STRING F_STATOPAIV 2
BEGIN
  PROMPT 42 4 "Codice ISO   "
  FIELD STATOPAIV
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIV CODTAB
  OUTPUT F_STATOPAIVSTR S0
  CHECKTYPE NORMAL
END

STRING F_STATOPAIVSTR 25 15
BEGIN
  PROMPT 60 4 ""
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  KEY 2
  INPUT S0 F_STATOPAIVSTR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIV CODTAB
  OUTPUT F_STATOPAIVSTR S0
  CHECKTYPE NORMAL
END

STRING F_COFI 28 
BEGIN
  PROMPT 2 5 "Ident. fiscale "
  FIELD COFI
  FLAGS "U"
  KEY 4
  USE LF_CLIFO KEY 4
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT COFI F_COFI
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
  HELP "Codice fiscale del cliente/fornitore"
  VALIDATE XTCF_FUNC F_STATOPAIV F_SESSO F_DATANASC F_COMNASC
END

STRING F_PAIV 12 15
BEGIN
  PROMPT 51 5 "P.IVA    "
  FIELD PAIV
  KEY 5
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV F_PAIV
  DISPLAY "ISO@3" STATOPAIV
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  COPY OUTPUT F_CODCF
  HELP "Partita IVA del cliente/fornitore"
  VALIDATE PI_FUNC  F_STATOPAIV
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 6 "Recapito"
END

STRING F_INDCF 35
BEGIN
  PROMPT 2 7 "Indirizzo     "
  FIELD INDCF
  HELP "Indirizzo del recapito"
END

STRING F_CIVCF 10
BEGIN
  PROMPT 60 7 "N. "
  FIELD CIVCF
  HELP "Numero civico del recapito"
END

NUMBER F_STATOCF 3
BEGIN
  PROMPT 2 8 "Comune: Stato "
  FIELD STATOCF
  FLAGS "Z"
  USE %STA
  INPUT CODTAB F_STATOCF
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATOCF CODTAB
  OUTPUT F_DESTACF S0
  HELP "Codice dello stato del recapito"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING F_DESTACF 50
BEGIN
  PROMPT 23 8 ""
  USE %STA KEY 2
  INPUT S0 F_DESTACF
  DISPLAY "Stato@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STATOCF
END

STRING F_COMCF 4
BEGIN
  PROMPT 8 9 ":Codice "
  FIELD COMCF
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_STATOCF SELECT
  INPUT COM F_COMCF
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT F_STATOCF STATO
  OUTPUT F_COMCF COM
  OUTPUT F_CAPCF CAPCOM
  OUTPUT F_DENCOMCF DENCOM
  OUTPUT F_PROVCF PROVCOM
  HELP "Codice del comune del recapito"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_DENCOMCF 50
BEGIN
  PROMPT 23 9 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOMCF
  DISPLAY "Comune@50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  COPY OUTPUT F_COMCF
  HELP "Nome del comune del recapito"
  ADD RUN ba4 -0
END

STRING F_LOCALITACF 35
BEGIN
  PROMPT 2 10 "Localita'     "
  FIELD LOCALITACF
  HELP "Localita' del recapito"
END

STRING F_CAPCF 5
BEGIN
  PROMPT 53 10 "CAP "
  FIELD CAPCF
  FLAGS "RZ"
  HELP "Codice di avviamento postale del recapito"
END

STRING F_PROVCF 5
BEGIN
  PROMPT 64 10 "Prov"
  FLAGS "D"
END

STRING F_REFERENTE 50
BEGIN
PROMPT 2 12 "Referente            "
FIELD REFERENTE
END

LIST F_TIPOPERS 1 12
BEGIN
  PROMPT 2 13 "Tipo persona         "
  FIELD TIPOPERS
  HELP "Tipo anagrafico del cliente/fornitore"
  ITEM "F|Fisica"
  MESSAGE COPY,F_TIPOAPER
  ITEM "G|Giuridica"
  MESSAGE COPY,F_TIPOAPER
END

STRING F_CODSTAT 7
BEGIN
  PROMPT 46 13 "Codice statistico   "
  FIELD CODSTAT
  USE %STT
  INPUT CODTAB F_CODSTAT
  DISPLAY "Codice statistico" CODTAB
  DISPLAY "Descrizione della statistica         " S0
  OUTPUT F_CODSTAT CODTAB
  HELP "Codice statistico assegnato al cliente/fornitore"
  CHECKTYPE NORMAL
END

STRING F_ALLEG 1
BEGIN
  PROMPT 2 14 "Tipo cliente/fornitore  "
  FIELD ALLEG
  SHEET "Codice|Descrizione@50"
  HELP "Codice per l'inserimento negli allegati IVA"
  INPUT F_ALLEG
  ITEM " |Valido per allegato IVA"
  ITEM "1|Non valido per allegato IVA"
  ITEM "2|Occasionale"
  ITEM "3|Documenti riepilogativi"
  ITEM "4|Codice fiscale gi<67> inserito"
  ITEM "5|Estero CEE"
  ITEM "6|Privato"
  ITEM "7|Ente pubblico"
  ITEM "8|Fallimento/proc.concorsuale"
  ITEM "9|Estero NON CEE"
  ITEM "C|Scheda carburante"
  ITEM "G|Gruppo IVA"
  OUTPUT F_ALLEG
END

NUMBER F_CODALLEG 6
BEGIN
  PROMPT 32 14 "Codice allegato "
  FIELD CODALLEG
  FLAGS "R"
  COPY USE F_CODCF
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODALLEG
  COPY DISPLAY F_CODCF
  OUTPUT F_CODALLEG CODCF
  HELP "Codice dell'allegato IVA in cui inserire i progressivi"
  CHECKTYPE NORMAL
  WARNING "Cliente/Fornitore assente"
END

NUMBER F_CODFASS 6
BEGIN
  PROMPT 2 15 "Codice cliente associato "
  FIELD CODCFASS
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CODFASS
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@55" RAGSOC
  OUTPUT F_CODFASS CODCF
  OUTPUT F_DESCRASS RAGSOC
  HELP "Codice del fornitore/cliente associato"
  CHECKTYPE NORMAL
END

STRING F_DESCRASS 50 36
BEGIN
  PROMPT 37 15 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_DESCRASS
  DISPLAY "Ragione Sociale@55" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODFASS
  CHECKTYPE NORMAL
END

LIST FLD_REGFISC 4 47
BEGIN
  PROMPT 2 16 "Regime Fiscale"
  ITEM "RF01|RF01 Ordinario"
  ITEM "RF02|RF02 Contribuenti minimi"
  ITEM "RF04|RF04 Agricoltura e pesca"
  ITEM "RF05|RF05 Vendita sali e tabacchi"
  ITEM "RF06|RF06 Commercio fiammiferi"
  ITEM "RF07|RF07 Editoria"
  ITEM "RF08|RF08 Gest. servizi tel. pub."
  ITEM "RF09|RF09 Rivendita DdT"
  ITEM "RF10|RF10 Intr., giochi"
  ITEM "RF11|RF11 Agenzie viaggi e turismo"
  ITEM "RF12|RF12 Agriturismo"
  ITEM "RF13|RF13 Vendite a domicilio"
  ITEM "RF14|RF14 Riv. usato arte col."
  ITEM "RF15|RF15 Asta d<>arte, col."
  ITEM "RF16|RF16 IVA per cassa P.A."
  ITEM "RF17|RF17 IVA per cassa"
  ITEM "RF18|RF18 Altro"
  ITEM "RF19|RF19 Regime forfettario"
  ITEM "RF20|RF20 Regime transfrontaliero di franchigia IVA"
  FIELD REGFISC
END

BOOLEAN F_SPLITPAY
BEGIN
  PROMPT 2 17 "Ente soggetto a 'SCISSIONE DEI PAGAMENTI' ai sensi art. 17-ter D.P.R. 633/72"
  FIELD SPLITPAY
END

LIST LST_TIPO_RFSO 10
BEGIN
  HELP "Indicare se <20> un rappresentante o stabile organizzativo <20> una persona fisica o giuridica"
  PROMPT 2 18 "Tipo RF/SO: "   
  FIELD CODRFSO[1,1]
  ITEM "|"
  ITEM "G|Giuridico"
  ITEM "F|Fisico"
END

STRING F_COD_RFSO_G 5
BEGIN
  PROMPT 30 18 "Codice RF/SO:"
  FIELD CODRFSO[2,]
  USE LF_ANAG SELECT TIPORFSO!=""
  INPUT TIPOA "G" 
  INPUT CODANAGR F_COD_RFSO_G
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_COD_RFSO_G CODANAGR
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
  FLAGS "H"
END

STRING F_COD_RFSO_F 5
BEGIN
  PROMPT 30 18 "Codice RF/SO:"
  FIELD CODRFSO[2,]
  USE LF_ANAG SELECT TIPORFSO!=""
  INPUT TIPOA "F"
  INPUT CODANAGR F_COD_RFSO_F
  DISPLAY "Codice" CODANAGR
  DISPLAY "Cognome@30" RAGSOC[1,30]
  DISPLAY "Nome@20" RAGSOC[31,0]
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_COD_RFSO_F CODANAGR
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
  FLAGS "H"
END

BOOLEAN F_OCCASIONALE
BEGIN
PROMPT 2 19 "Occasionale "
FIELD OCCAS
HELP "Indicare se si tratta di un C/F occasionale"
END

BOOLEAN F_SOSPESO
BEGIN
  PROMPT 32 19 "Sospeso "
  FIELD SOSPESO
  HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
END

TEXT DLG_NULL
BEGIN
  PROMPT 62 18 "Collegamenti esterni"
END

GOLEM DLG_OGGETTI 10 2
BEGIN
  PROMPT 64 19 ""
  FIELD OGGETTI  
  FLAGS "M"
END

DATE DLG_INIFATTEL
BEGIN
  PROMPT 2 21 "Inizio Fatt.elettronica "
  FIELD INIFATTEL
END

DATE DLG_INIREVCHG
BEGIN
  PROMPT 42 21 "Inizio reverse charge "
  FIELD INIREVCHG
END

LIST DLG_NULL 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD DIRTY
END

STRING DLG_NULL 50 32
BEGIN
  PROMPT 1 -1 "Ultimo aggiornamento "
  FLAGS "D"
  FIELD UTENTE
END

DATE DLG_NULL
BEGIN
  PROMPT 60 -1 ""
  FLAGS "D"
  FIELD DATAAGG
END


ENDPAGE

PAGE "Contatti/Percipiente" -1 -1 78 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

GROUPBOX DLG_NULL 76 10
BEGIN
  PROMPT 1 4 "Contatti"
END

STRING F_PTEL 5
BEGIN
  PROMPT 2 5 "Telefono "
  FIELD PTEL
  HELP "Prefisso telefonico primo recapito"
END

STRING F_TEL 20 15
BEGIN
  PROMPT 18 5 "/"
  FIELD TEL
  HELP "Numero telefonico primo recapito"
END

STRING F_PTEL2 5
BEGIN
  PROMPT 45 5 ""
  FIELD PTEL2
  HELP "Prefisso telefonico secondo recapito"
END

STRING F_TEL2 20 15
BEGIN
PROMPT 52 5 "/"
FIELD TEL2
HELP "Numero telefonico secondo recapito"
END

STRING F_PTEL3 5
BEGIN
  PROMPT 11 6 ""
  FIELD PTEL3
  HELP "Prefisso telefonico terzo recapito"
END

STRING F_TEL3 20 15
BEGIN
  PROMPT 18 6 "/"
  FIELD TEL3
  HELP "Numero telefonico terzo recapito"
END

STRING F_PTELEX 5
BEGIN
  PROMPT 45 6 ""
  FIELD PTELEX
END

STRING F_TELEX 20 15
BEGIN
  PROMPT 52 6 "/"
  FIELD TELEX
END

STRING F_PFAX 5
BEGIN
  PROMPT 2 7 "Fax      "
  FIELD PFAX
  HELP "Prefisso del numero di fax"
END

STRING F_FAX 20 15
BEGIN
  PROMPT 18 7 "/"
  FIELD FAX
  HELP "Numero telefonico del fax"
END

BOOLEAN F_BYMAIL
BEGIN
  PROMPT 40 7 "Consenso spedizione doc tramite email"
  FIELD BYMAIL
	MESSAGE FALSE CLEAR,F_DOCMAIL
	MESSAGE TRUE ENABLE,F_DOCMAIL
END

STRING F_MAIL 50 23
BEGIN
  PROMPT 2 8  "E-Mail   "
  FIELD MAIL
END

STRING F_DOCMAIL 50 20
BEGIN
  PROMPT 40 8 "E-Mail doc"
  FIELD DOCMAIL
	CHECKTYPE REQUIRED
END

STRING F_PEC 80 45
BEGIN
  PROMPT 2 9 "Pec      "
  FIELD PEC
END

BUTTON DLG_EMAIL 10 2
BEGIN
  PROMPT 62 9 "~Posta"
  PICTURE BMP_EMAIL
END

BOOLEAN F_SPEDPRI
BEGIN
  PROMPT 2 11 "Informativa Privacy spedita"
  FIELD LF_CFPRI->SPEDITA
END

DATE F_SPEDDATA
BEGIN
  PROMPT 40 11 "In data "
  FIELD LF_CFPRI->DATASPE
END

STRING F_SPEDRISP 5
BEGIN
  PROMPT 2 12 "Risposta ricevuta "
  FIELD LF_CFPRI->RISPOSTA
  USE %PRI
  INPUT CODTAB F_SPEDRISP
  DISPLAY "Codice" CODTAB
  DISPLAY "Risposta@25" S0
  OUTPUT F_SPEDRISP CODTAB
END

DATE F_SPEDDATARISP
BEGIN
  PROMPT 40 12 "In data "
  FIELD LF_CFPRI->DATARISP
END 

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 1 14 "Dati Percipiente/Nascita"
END

LIST F_TIPOAPER 1 15
BEGIN
  PROMPT 2 15 "Tipo               "
  FIELD TIPOAPER
  FLAGS "D"
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

BUTTON DLG_ANAG 17 1
BEGIN
	PROMPT 39 15 "Nuovo percipiente"
	GROUP 4
END

NUMBER F_CODANAGPER 5
BEGIN
  PROMPT 59 15 "Codice "
  FIELD CODANAGPER
  GROUP 4
  USE LF_ANAG
  INPUT TIPOA F_TIPOAPER SELECT
  INPUT CODANAGR F_CODANAGPER
  DISPLAY "Codice" CODANAGR
  DISPLAY "Nome@50" RAGSOC
  OUTPUT F_TIPOAPER TIPOA
  OUTPUT F_CODANAGPER CODANAGR
  OUTPUT F_RAGSOC1 RAGSOC
  HELP "Codice anagrafico percipiente per la compilazione Mod.770"
  CHECKTYPE SEARCH
  MESSAGE EMPTY RESET,F_RAGSOC1
  WARNING "Percipiente assente"
  ADD RUN ba4 -1 #F_TIPOAPER
END

STRING F_RAGSOC1 50
BEGIN
  PROMPT 2 16 "Ragione sociale    "
  GROUP 4
  USE LF_ANAG KEY 2
  INPUT TIPOA F_TIPOAPER SELECT
  INPUT RAGSOC F_RAGSOC1
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODANAGR
  COPY OUTPUT F_CODANAGPER
  HELP "Ragione sociale del percipiente per la compilazione Mod.770"
  ADD RUN ba4 -1 #F_TIPOAPER
END

DATE F_DATANASC
BEGIN
  PROMPT 2 17 "Data               "
  FIELD DATANASC
  HELP "Data di nascita del cliente/fornitore"
END

LIST F_SESSO 1 12
BEGIN
  PROMPT 34 17 "Sesso"
  HELP "Sesso della persona fisica"
  ITEM "M|Maschio"
  ITEM "F|Femmina"
  FIELD SESSO
  GROUP 5 
END

BUTTON DLG_PERC 15 1
BEGIN
	PROMPT 57 17 "Dati Previdenziali"
	GROUP 4
END


NUMBER F_STATONASC 3
BEGIN
  PROMPT 2 18 "Stato       "
  FIELD STATONASC
  FLAGS "Z"
  USE %STA
  INPUT CODTAB F_STATONASC
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATONASC CODTAB
  OUTPUT F_DESTANASC S0
  HELP "Codice dello stato di nascita"
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING F_DESTANASC 50
BEGIN
  PROMPT 23 18 ""
  USE %STA KEY 2
  INPUT S0 F_DESTANASC
  DISPLAY "Stato@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STATONASC
END

STRING F_COMNASC 4
BEGIN
  PROMPT 2 19 "Comune      "
  FIELD COMNASC
  FLAGS "U"
  COPY USE F_COMCF
  INPUT STATO F_STATONASC SELECT
  INPUT COM F_COMNASC
  COPY DISPLAY F_COMCF
  OUTPUT F_COMNASC COM
  OUTPUT F_DENCOMNASC DENCOM
  HELP "Codice del comune di nascita"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_DENCOMNASC 50
BEGIN
  PROMPT 23 19 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOMNASC
  COPY DISPLAY F_DENCOMCF
  COPY OUTPUT F_COMNASC
  HELP "Nome del comune di nascita"
  ADD RUN ba4 -0
END

ENDPAGE

PAGE "Banche" -1 -1 78 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

TEXT DLG_NULL
BEGIN
	PROMPT 0 4 "@bBanche di appoggio"
END

SPREADSHEET F_BANA 0 8
BEGIN
	PROMPT 0 5 ""
  ITEM "IBAN\nNaz.@4"
  ITEM "IBAN\nChk.@4"
  ITEM "IBAN\nCIN@4"
  ITEM "IBAN\nABI@5"
  ITEM "IBAN\nCAB@5"
  ITEM "IBAN\nConto@12"
  ITEM "BBAN@15"
  ITEM "@1"
  ITEM "Descrizione@50"
  ITEM "IBAN@27"
END

TEXT DLG_NULL
BEGIN
	PROMPT 0 14 "@bBanche di presentazione"
END

SPREADSHEET F_BANP 0 0
BEGIN
	PROMPT 0 15 ""
  ITEM "IBAN\nNaz.@4"
  ITEM "IBAN\nChk@4"
  ITEM "IBAN\nCIN@4"
  ITEM "IBAN\nABI@5"
  ITEM "IBAN\nCAB@5"
  ITEM "IBAN\nConto@12"
  ITEM "@1"
  ITEM "Progressivo"
  ITEM "Descrizione@50"
  ITEM "IBAN@27"
END

ENDPAGE

PAGE "Condizioni" -1 -1 78 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

STRING F_CODVAL 3
BEGIN
  PROMPT 2 4 "Valuta       "
  FLAGS "UZ"
  FIELD CODVAL
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice valuta" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODVAL CODTAB
  OUTPUT F_DESVAL S0
  CHECKTYPE NORMAL
END

STRING F_DESVAL 50
BEGIN
  PROMPT 22 4 ""
  USE %VAL KEY 2
  INPUT S0 F_DESVAL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice valuta" CODTAB
  COPY OUTPUT F_CODVAL
  CHECKTYPE NORMAL
END

STRING F_CODVALINTRA 3
BEGIN
  PROMPT 2 5 "Valuta INTRA "
  FLAGS "UZ"
  FIELD VALINTRA
  COPY USE F_CODVAL
  INPUT CODTAB F_CODVALINTRA
  COPY DISPLAY F_CODVAL
  OUTPUT F_CODVALINTRA CODTAB
  OUTPUT F_DESVALINTRA S0
  CHECKTYPE NORMAL  
  GROUP 4
END

STRING F_DESVALINTRA 50
BEGIN
  PROMPT 22 5 ""
  COPY USE F_DESVAL
  INPUT S0 F_DESVALINTRA
  COPY DISPLAY F_DESVAL
  COPY OUTPUT F_CODVALINTRA
  CHECKTYPE NORMAL
  GROUP 4
END

STRING F_CODLIN 1
BEGIN
  PROMPT 2 6 "Lingua         "
  FIELD CODLIN
  USE %LNG
  FLAGS "U"
  INPUT CODTAB F_CODLIN
  DISPLAY "Codice lingua " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLIN CODTAB
  OUTPUT F_DESLIN S0
  HELP "Codice lingua per C/F esteri"
  CHECKTYPE NORMAL
END

STRING F_DESLIN 50
BEGIN
  PROMPT 22 6 ""
  USE %LNG KEY 2
  INPUT S0 F_DESLIN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice lingua" CODTAB
  COPY OUTPUT F_CODLIN
  CHECKTYPE NORMAL
END

STRING F_CODPAG 4
BEGIN
  PROMPT 2 7 "Pagamento   "
  FIELD CODPAG
  FLAGS "U#"
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESPAG S0
  HELP "Codice condizione di pagamento concordata"
  CHECKTYPE NORMAL
  ADD RUN ba3 -6
END

STRING F_DESPAG 50
BEGIN
  PROMPT 22 7 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice pagamento" CODTAB
  COPY OUTPUT F_CODPAG
  CHECKTYPE NORMAL
  ADD RUN ba3 -6
END

CURRENCY F_FIDO 15
BEGIN
  PROMPT 2 8 "Fido                "
  FIELD FIDO
  DRIVENBY F_CODVAL
  HELP "Importo massimo fido del cliente/fornitore"
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 9 "@bConto cliente/fornitore"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 10 "Grp."
  FIELD GRUPPO
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 11 10 "Cnt."
  FIELD CONTO
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESCONTO DESCR
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere di tipo clienti o fornitori"
  ADD RUN cg0 -0
END

STRING F_DESCONTO 50
BEGIN
  PROMPT 22 10 ""
  USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
  INPUT DESCR F_DESCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  COPY OUTPUT F_CONTO
  CHECKTYPE NORMAL
  ADD RUN cg0 -0
END

GROUPBOX DLG_RIC 76 4
BEGIN
  PROMPT 1 12 "@bConto di ricavo"
END

GROUPBOX DLG_CST 76 4
BEGIN
  PROMPT 1 12 "@bConto di costo"
  FLAGS "H"
END

NUMBER F_GRUPPORIC 3
BEGIN
  PROMPT 2 13 "Gruppo      "
  FIELD GRUPPORIC
  FLAGS "R"
  HELP "Gruppo di contropartita"
END

NUMBER F_CONTORIC 3
BEGIN
  PROMPT 27 13 "Conto "
  FIELD CONTORIC
  FLAGS "R"
  HELP "Conto di contropartita"
END

NUMBER F_SOTTOCRIC 6
BEGIN
  PROMPT 47 13 "Sottoconto "
  FIELD SOTTOCRIC
  FLAGS "R"
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPORIC
  INPUT CONTO F_CONTORIC
  INPUT SOTTOCONTO F_SOTTOCRIC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPORIC GRUPPO
  OUTPUT F_CONTORIC CONTO
  OUTPUT F_SOTTOCRIC SOTTOCONTO
  OUTPUT F_DESCRIC DESCR
  HELP "Sottoconto di contropartita"
  CHECKTYPE NORMAL
  ADD RUN cg0 -0
END

STRING F_DESCRIC 50
BEGIN
  PROMPT 2 14 "Descrizione "
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR F_DESCRIC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCRIC
  CHECKTYPE NORMAL
  ADD RUN cg0 -0
END

BOOLEAN F_DIPPUBB
BEGIN
  PROMPT 2 16 "Dipendente pubblico"
  FIELD DIPPUBB
  MESSAGE FALSE CLEAR,40@
  MESSAGE TRUE ENABLE,40@
  GROUP 4
END

STRING F_ENTE 4
BEGIN
  PROMPT 2 17 "Ente pubblico  "
  FIELD ENTE
  USE %ENP
  INPUT CODTAB F_ENTE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ENTE CODTAB
  OUTPUT F_DESENTE S0
  OUTPUT F_INDENTE S1
  CHECKTYPE NORMAL
  GROUP 4 40
END

STRING F_DESENTE 50
BEGIN
  PROMPT 25 17 ""
  USE %ENP KEY 2
  INPUT S0 F_DESENTE
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_ENTE
  CHECKTYPE NORMAL
  GROUP 4 40
END

STRING F_INDENTE 50
BEGIN
  PROMPT 2 18 "Indirizzo ente "
  FLAGS "D"
  GROUP 4
END

ENDPAGE

PAGE "Effetti" -1 -1 78 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

CURRENCY F_IMPMINEFF 10
BEGIN
  PROMPT 2 4 "Importo minimo effetti     "
  FIELD LF_CFVEN->IMPMINEFF
END

BOOLEAN F_EMEFFRICH
BEGIN
  PROMPT 43 4 "Emissione effetti"
  FIELD LF_CFVEN->EMEFFRICH
END

BOOLEAN F_RAGGEFF
BEGIN
  PROMPT 43 5 "Raggruppamento effetti"
  FIELD LF_CFVEN->RAGGEFF
END

NUMBER F_NUMESC 5
BEGIN
  PROMPT 2 6 "Ultimo Nr. estratto conto  "
  FIELD LF_CFVEN->NUMESC
  GROUP 9
END

NUMBER F_MAXSOLL 2
BEGIN
  PROMPT 43 6 "Numero max solleciti  "
  FIELD LF_CFVEN->MAXSOLL
  GROUP 7 9
END

DATE F_DATAESC
BEGIN
  PROMPT 2 7 "Data ultimo estratto conto "
  FIELD LF_CFVEN->DATAESC
  GROUP 9
END

DATE F_DATASOLL
BEGIN
  PROMPT 43 7 "Data ultimo sollecito "
  FIELD LF_CFVEN->DATASOLL
  GROUP 7 9
END

/* Campo non ancora utilizzato
STRING F_PROFSOLL 5
BEGIN
  PROMPT 45 8 "Codice profilo    "
  FIELD LF_CFVEN->PROFSOLL
  GROUP 7
END
*/

TEXT DLG_NULL
BEGIN
  PROMPT 1 8 "@bPeriodi di non accettazione effetti"
END

SPREADSHEET F_NONACCEFF 76
BEGIN
  PROMPT 1 9 "Periodi effetti"
  ITEM "Dal\nGiorno@8"
  ITEM "Dal\nMese"
  ITEM "Al\nGiorno@8"
  ITEM "Al\nMese"
  ITEM "Sposta al\nGiorno@9"
  ITEM "Sposta al\nMese"
  GROUP 7
END

ENDPAGE

PAGE "Indirizzi" -1 -1 78 19

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 9
BEGIN
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 15 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 55 1 ""
  FLAGS "D"
  GROUP 4
END


SPREADSHEET F_SHEET_G_VEN 0 8
BEGIN
  PROMPT 0 3 ""
  ITEM "Ragione Sociale@50"
  ITEM "Indirizzo@35"
  ITEM "N. civico@10"
  ITEM "Localita@35"
  ITEM "CAP  "
  ITEM "Stato"
  ITEM "Cod.comune "
  ITEM "Prefisso tel."
  ITEM "Numero tel.@30"
  ITEM "Prefisso fax"
  ITEM "Numero fax@30"
  ITEM "Iva Rid."
  ITEM "Comune@50"
  ITEM "Indirizzo aggiuntivo@35"
  ITEM "Codice Destinatario@15"
  ITEM "Riferimento Amministrazione@20"
END

BOOLEAN F_ADDRAGSOC
BEGIN
  PROMPT 1 12 "Aggiungi la ragione sociale principale agli indirizzi di spedizione"
  FIELD ADDRAGSOC
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 13 "@bIndirizzi predefiniti"
END

NUMBER F_CODINDDOC 3
BEGIN
  PROMPT 2 14 "Documenti "
  FIELD LF_CFVEN->CODINDDOC
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localit<69>@35"
  ITEM " |**Nessuno**| | | "
  INPUT F_CODINDDOC
  OUTPUT F_CODINDDOC
END

NUMBER F_CODINDSP 3
BEGIN
  PROMPT 32 14 "Spedizione "
  FIELD LF_CFVEN->CODINDSP
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localit<69>@35"
  INPUT F_CODINDSP
  OUTPUT F_CODINDSP
  HELP "Codice dell'indirizzo di spedizione da proporre"
END

NUMBER F_CODINDEFF 3
BEGIN
  PROMPT 62 14 "Effetti "
  FIELD LF_CFVEN->CODINDEFF
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localit<69>@35"
  INPUT F_CODINDEFF
  OUTPUT F_CODINDEFF
  HELP "Codice indirizzo effetti"
END

SPREADSHEET F_SHEET_CONT
BEGIN
  PROMPT 0 16 ""
  ITEM "Contatto@R"
  ITEM "Nome@20"
  ITEM "Cognome@30"
  ITEM "Documento 1"
  ITEM "Documento 2"
  ITEM "Documento 3"
  ITEM "Documento 4"
  ITEM "Documento 5"
  ITEM "Documento 6"
END

ENDPAGE

PAGE "Dati vendita 1" -1 -1 78 19

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FIELD LF_CFVEN->TIPOCF
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FIELD LF_CFVEN->CODCF
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

STRING F_CODLEG 3
BEGIN
  PROMPT 2 4 "Codice Legale              "
  FIELD LF_CFVEN->CODLEG
  GROUP 7
  USE %LEG
  INPUT CODTAB F_CODLEG
  DISPLAY "Codice legale" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODLEG CODTAB
  HELP "Codice legale per contenzioso"
  CHECKTYPE NORMAL
END

STRING F_CODNOTE 10
BEGIN
  PROMPT 43 4 "Codice Note Cli/Fo   "
  FIELD LF_CFVEN->CODNOTE
  USE %NOT
  FLAGS "U"
  INPUT CODTAB F_CODNOTE
  DISPLAY "Codice nota" CODTAB
  DISPLAY "Nota@30" S0
  DISPLAY "Blocca Immissione" B0
  DISPLAY "Solo visualizzazione" B1
  OUTPUT F_CODNOTE CODTAB
  HELP "Codice note cliente/fornitore"
  CHECKTYPE NORMAL
END

STRING F_CODPRCF 10
BEGIN
  PROMPT 2 5 "Codice presso cliente      "
  FIELD LF_CFVEN->CODPRCF
  GROUP 7
  HELP "Codice meccanografico assegnato dal cliente"
END

STRING F_CODCATC 2
BEGIN
  PROMPT 43 5 "Codice Categoria contabile   "
  FIELD LF_CFVEN->CODCATC
  USE CCO
  INPUT CODTAB F_CODCATC
  DISPLAY "Codice contabile" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODCATC CODTAB
  HELP "Codice categoria contabile del C/F"
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 6 "@bDati Agente"
END

STRING F_CODAG 5
BEGIN
  PROMPT 2 7 "Codice agente          "
  FLAGS "UZ"
  FIELD LF_CFVEN->CODAG
  USE LF_AGENTI
  INPUT CODAGE F_CODAG
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAG CODAGE          
  ADD RUN pr0 -4
  CHECKTYPE NORMAL
  GROUP 7
  HELP "Codice dell'agente di cui si serve il cliente"
END

NUMBER F_PROVV 5 2
BEGIN
  PROMPT 44 7 "Provvigione           "
  FIELD LF_CFVEN->PERCPROVV
  GROUP 7
  HELP "Provvigione percepita dall'agente"
END

STRING F_CODAG1 5
BEGIN
  PROMPT 2 8 "Codice secondo agente  "
  FLAGS "UZ"
  FIELD LF_CFVEN->CODAG1
  USE LF_AGENTI
  INPUT CODAGE F_CODAG1
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAG1 CODAGE          
  ADD RUN pr0 -4
  CHECKTYPE NORMAL
  GROUP 7
  HELP "Codice dell'agente di cui si serve il cliente"
END

NUMBER F_PROVV1 5 2
BEGIN
  PROMPT 44 8 "Provvigione           "
  FIELD LF_CFVEN->PERCPROVV1
  GROUP 7
  HELP "Provvigione percepita dall'agente"
END

STRING F_CODZONA 2
BEGIN
  PROMPT 2 9 "Codice Zona                "
  FIELD LF_CFVEN->CODZONA
  GROUP 7
  USE ZON
  INPUT CODTAB F_CODZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODZONA CODTAB
  HELP "Codice della zona dell'agente"
  CHECKTYPE NORMAL
END

BOOLEAN F_LIQPAG
BEGIN
  PROMPT 44 9 "Liquidazione provvigioni"
  FIELD LF_CFVEN->LIQPAG
  GROUP 7
  HELP "Indicare se si usa la liquidazione provvigioni"
END

BOOLEAN F_ADDCONAI
BEGIN
  PROMPT 2 11 "Addebito CONAI"
  FIELD LF_CFVEN->ADDCONAI
  MESSAGE FALSE CLEAR,8@|ENABLE,F_CONAIASS
  MESSAGE TRUE ENABLE,8@|CLEAR,F_CONAIASS
END

BOOLEAN F_CONAIASS
BEGIN
  PROMPT 30 11 "Stampa 'Contributo CONAI assolto'"
  FIELD LF_CFVEN->CONAIASS
  MESSAGE FALSE ENABLE,F_ADDCONAI
  MESSAGE TRUE CLEAR,F_ADDCONAI
END

DATE F_DATAICONAI
BEGIN
  PROMPT 2 12 "Data esenzione CONAI : inizio "
  FIELD LF_CFVEN->DATAICONAI
  GROUP 8
  MESSAGE TRUE ENABLE,8@|CLEAR,F_CONAIASS
END

DATE F_DATAECONAI
BEGIN
  PROMPT 50 12 "fine"
  FIELD LF_CFVEN->DATAECONAI
  GROUP 8
  MESSAGE TRUE ENABLE,8@|CLEAR,F_CONAIASS
  WARNING "Inserire una data uguale o posteriore alla data di inizio"
  VALIDATE DATE_CMP_FUNC >= F_DATAICONAI
END

GROUPBOX DLG_NULL 38 5
BEGIN
  PROMPT 1 13 "@bEsenzioni CONAI"
END

NUMBER F_ESACC 6 2
BEGIN          
  PROMPT  2 14 "Acciaio  "
  FIELD LF_CFVEN->ESACC
  GROUP 8
END

NUMBER F_ESALL 6 2
BEGIN          
  PROMPT 20 14 "Alluminio "
  FIELD LF_CFVEN->ESALL
  GROUP 8
END

NUMBER F_ESCAR 6 2
BEGIN          
  PROMPT 2 15 "Carta    "
  FIELD LF_CFVEN->ESCAR
  GROUP 8
END

NUMBER F_ESPLA 6 2
BEGIN          
  PROMPT 20 15 "Plastica  "
  FIELD LF_CFVEN->ESPLA
  GROUP 8
END

NUMBER F_ESLEG 6 2
BEGIN          
  PROMPT 2 16 "Legno    "
  FIELD LF_CFVEN->ESLEG
  GROUP 8
END

NUMBER F_ESVET 6 2
BEGIN          
  PROMPT 20 16 "Vetro     "
  FIELD LF_CFVEN->ESVET
  GROUP 8
END

GROUPBOX DLG_NULL 35 5
BEGIN
  PROMPT 42 13 "@bProduttore CONAI"
END

BOOLEAN F_PRODACC
BEGIN
  PROMPT 43 14 "Acciao"
  FIELD LF_CFVEN->PRODCONAI[1,1]
END

BOOLEAN F_PRODALL
BEGIN
  PROMPT 62 14 "Alluminio"
  FIELD LF_CFVEN->PRODCONAI[2,2]
END

BOOLEAN F_PRODCAR
BEGIN
  PROMPT 43 15 "Carta"
  FIELD LF_CFVEN->PRODCONAI[3,3]
END

BOOLEAN F_PRODPLA
BEGIN
  PROMPT 62 15 "Plastica"
  FIELD LF_CFVEN->PRODCONAI[4,4]
END

BOOLEAN F_PRODLEG
BEGIN
  PROMPT 43 16 "Legno"
  FIELD LF_CFVEN->PRODCONAI[5,5]
END

BOOLEAN F_PRODVET
BEGIN
  PROMPT 62 16 "Vetro"
  FIELD LF_CFVEN->PRODCONAI[6,6]
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 18 "@bFattura elettronica"
  MODULES PA,FP
END

STRING F_PADESTIN 7
BEGIN
  PROMPT 2 19 "Destinatario  "
  FLAGS ""
  MODULES PA,FP
  HELP "Codice ufficio dell destinatario della fattura elettronica"
  FIELD LF_CFVEN->PADESTIN
END

STRING F_PARIFAMM 20
BEGIN
  PROMPT 27 19 "Riferimento amministrazione "
  FLAGS "U"
  MODULES PA,FP
  HELP "Codice del cedente presso l'amministrazione"
  FIELD LF_CFVEN->PARIFAMM
END

ENDPAGE

PAGE "Dati Vendita 2" -1 -1 78 19

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 9
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "DG"
  GROUP 1
  ITEM "C|Cliente"
  MESSAGE HIDE,F_CODFASS|HIDE,F_DESCRASS
  ITEM "F|Fornitore"
  MESSAGE SHOW,F_CODFASS|SHOW,F_DESCRASS
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING FLD_CODEORI 20
BEGIN
	PROMPT 2 3 "EORI   "
	FIELD LF_CLIFO->CODEORI
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

STRING F_CODNOTESP1 3
BEGIN
  PROMPT 2 5 "Codici note documento   "
  FIELD LF_CFVEN->CODNOTESP1
  GROUP 7
  USE %NDO
  FLAGS "U"
  INPUT CODTAB F_CODNOTESP1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNOTESP1 CODTAB
  HELP "Primo codice delle note del documento"
  CHECKTYPE NORMAL
END

STRING F_CODNOTESP2 3
BEGIN
  PROMPT 33 5 ""
  FIELD LF_CFVEN->CODNOTESP2
  GROUP 7
  FLAGS "U"
  COPY USE F_CODNOTESP1
  INPUT CODTAB F_CODNOTESP2
  COPY DISPLAY F_CODNOTESP1
  OUTPUT F_CODNOTESP2 CODTAB
  HELP "Secondo codice delle note del documento"
  CHECKTYPE NORMAL
END

STRING F_CODSPMEZZO 3
BEGIN
  PROMPT 43 5 "Codice modalit<69> spedizione  "
  FIELD LF_CFVEN->CODSPMEZZO
  USE %MSP
  INPUT CODTAB F_CODSPMEZZO
  DISPLAY "Codice modalita'" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODSPMEZZO CODTAB
  HELP "Codice modalita' di spedizione/a mezzo"
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 20 5
BEGIN
  PROMPT 1 6 "Vettori"
END

STRING F_CODVETT1 6
BEGIN
  PROMPT 2 7 "Vettore 1 "
  FIELD LF_CFVEN->CODVETT1
  FLAGS "UZ"
  USE %VET
  INPUT CODTAB F_CODVETT1
  DISPLAY "Codice vettore" CODTAB
  DISPLAY "Ragione sociale@50" S0
  OUTPUT F_CODVETT1 CODTAB
  CHECKTYPE NORMAL
END

STRING F_CODVETT2 6
BEGIN
  PROMPT 2 8 "Vettore 2 "
  FIELD LF_CFVEN->CODVETT2
  FLAGS "UZ"
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODVETT2
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODVETT2 CODTAB
  CHECKTYPE NORMAL
END

STRING F_CODVETT3 6
BEGIN
  PROMPT 2 9 "Vettore 3 "
  FIELD LF_CFVEN->CODVETT3
  FLAGS "UZ"
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODVETT3
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODVETT3 CODTAB
  CHECKTYPE NORMAL
END

STRING F_CODPORTO 3
BEGIN
  PROMPT 23 8 "Porto     "
  FIELD LF_CFVEN->CODPORTO
  USE %POR
  INPUT CODTAB F_CODPORTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CODPORTO CODTAB
  HELP "Codice della modalita' di consegna/porto"
  CHECKTYPE NORMAL
END

BOOLEAN F_RAGGDOC
BEGIN
  PROMPT 23 9 "Raggr. documenti"
  FIELD LF_CFVEN->RAGGDOC
  GROUP 7
  HELP "Indicare se vanno raggruppati i documenti (bolle/fatture)"
END

CURRENCY F_IMPMINFAT 10
BEGIN
  PROMPT 43 9 "Importo minimo fatture  "
  FIELD LF_CFVEN->IMPMINFAT
END


STRING F_ASSFIS 4
BEGIN
  PROMPT 2 11 "Codice Assoggettamento fiscale  "
  FIELD LF_CFVEN->ASSFIS
  HELP "Codice d'assoggettamento fiscale"
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_ASSFIS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "Sospeso" B2
  OUTPUT F_ASSFIS CODTAB
  HELP "Inserire il codice IVA"
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
END

BOOLEAN F_FATTSOSP
BEGIN
  PROMPT 51 11 "Fatture in sospensione"
  FIELD LF_CFVEN->FATTSOSP
  HELP "Indicase se si tartta di fatture in sospensione d'imposta"
END

STRING F_TIPODOCFAT 4
BEGIN
  PROMPT 2 12 "Tipo        "
  FIELD LF_CFVEN->TIPODOCFAT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCFAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCFAT CODTAB
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 43 12 "Causale contabile            "
  FIELD LF_CFVEN->CODCAUS
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  CHECKTYPE NORMAL
  FLAG "U"
END

STRING F_CODCAUSNC 3
BEGIN
  PROMPT 2 13 "Causale contabile Note Credito  "
  FIELD LF_CFVEN->CODCAUSNC
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUSNC
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUSNC CODCAUS
  CHECKTYPE NORMAL
  FLAG "U"
END

STRING F_CODCAUSINC 3
BEGIN
  PROMPT 43 13 "Causale contabile Anticipi   "
  FIELD LF_CFVEN->CODCAUSINC
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUSINC
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUSINC CODCAUS
  CHECKTYPE NORMAL
  FLAG "U"
END

STRING DLG_NULL 76 4
BEGIN
  PROMPT 1 14 "Dati lettera esenzione"
  FLAGS "DH" // NON PIU UTILIZZATI
END

STRING F_VSNRPROT 7
BEGIN
  PROMPT 2 15 "Vs nr. protocollo  "
  FIELD LF_CFVEN->VSNRPROT
  GROUP 7
  HELP "Vostro nr. di protocollo della lettera"
  FLAGS "DH" // NON PIU UTILIZZATI
END

DATE F_VSDATAREG
BEGIN
  PROMPT 40 15 "Vs data registrazione  "
  FIELD LF_CFVEN->VSDATAREG
  GROUP 7
  HELP "Data di registrazione della lettera"
  FLAGS "DH" // NON PIU UTILIZZATI
END

STRING F_NSNRPROT 7
BEGIN
  PROMPT 2 16 "Ns nr. protocollo  "
  FIELD LF_CFVEN->NSNPROT
  GROUP 7
  HELP "Nostro nr. di protocollo della lettera"
  FLAGS "DH" // NON PIU UTILIZZATI
END

DATE F_NSDATAREG
BEGIN
  PROMPT 40 14 "Ns data registrazione  "
  FIELD LF_CFVEN->NSDATAREG
  GROUP 7
  HELP "Data di registrazione della lettera"
  FLAGS "DH" // NON PIU UTILIZZATI
END

NUMBER F_CODCFFATT 6
BEGIN
  PROMPT 2 14 "Fatturare a "
  FIELD CODCFFATT
  FLAGS "GR"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCFFATT
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCFFATT CODCF
  OUTPUT F_DESCFFATT RAGSOC
  HELP "Codice relativo al cliente o fornitore cui fatturare"
  CHECKTYPE NORMAL
END

STRING F_DESCFFATT 50 30
BEGIN
  PROMPT 25 14 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_DESCFFATT
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCFFATT
  HELP "Ragione sociale clifo cui fatturare"
  CHECKTYPE NORMAL
END

STRING F_CATFIN 2
BEGIN
  PROMPT 2 15 "Categoria finanziaria      "
  FIELD LF_CFVEN->CATFIN
  USE %CFI
  INPUT CODTAB F_CATFIN
  DISPLAY "Codice categoria" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CATFIN CODTAB
  CHECKTYPE NORMAL
  FLAGS "U" 
  HELP "Codice della categoria finanziaria"
END

ENDPAGE

PAGE "Dati Vendita 3" -1 -1 78 19

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
END

LIST DLG_NULL 1 11
BEGIN
  PROMPT 2 1 "Tipo   "
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER DLG_NULL 6
BEGIN
  PROMPT 2 2 "Codice "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 30
BEGIN
  PROMPT 25 1 "Cognome/Rag. Soc.  "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 20
BEGIN
  PROMPT 25 2 "Nome/Seconda parte Rag. Soc. "
  FLAGS "D"
  GROUP 6
END

  GROUPBOX DLG_NULL 45 4
BEGIN
  PROMPT 1 4 "Spese da addebitare"
END

STRING F_CODSP1 8
BEGIN
  PROMPT 2 5 "Spesa 1  "
  FIELD LF_CFVEN->CODSP1
  GROUP 7
  USE SPP
  FLAGS "U"
  INPUT CODTAB F_CODSP1
  DISPLAY "Codice Spesa " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODSP1 CODTAB
  HELP "Codici delle spese da addebitare"
  CHECKTYPE NORMAL
END

STRING F_CODSP2 8
BEGIN
  PROMPT 24 5 "Spesa 2 "
  FIELD LF_CFVEN->CODSP2
  GROUP 7
  FLAGS "U"
  COPY USE F_CODSP1
  INPUT CODTAB F_CODSP2
  COPY DISPLAY F_CODSP1
  OUTPUT F_CODSP2 CODTAB
  HELP "Codici delle spese da addebitare"
  CHECKTYPE NORMAL
END

STRING F_CODSP3 8
BEGIN
  PROMPT 2 6 "Spesa 3  "
  FIELD LF_CFVEN->CODSP3
  GROUP 7
  FLAGS "U"
  COPY USE F_CODSP1
  INPUT CODTAB F_CODSP3
  COPY DISPLAY F_CODSP1
  OUTPUT F_CODSP3 CODTAB
  HELP "Codici delle spese da addebitare"
  CHECKTYPE NORMAL
END

STRING F_CODSP4 8
BEGIN
  PROMPT 24 6 "Spesa 4 "
  FIELD LF_CFVEN->CODSP4
  GROUP 7
  FLAGS "U"
  COPY USE F_CODSP1
  INPUT CODTAB F_CODSP4
  COPY DISPLAY F_CODSP1
  OUTPUT F_CODSP4 CODTAB
  HELP "Codici delle spese da addebitare"
  CHECKTYPE NORMAL
END

STRING F_CODMAG 3
BEGIN
  PROMPT 48 5 "Codice magazzino        "
  FIELD LF_CFVEN->CODMAG
  USE MAG SELECT CODTAB ? "???"
  INPUT  CODTAB[1,3] F_CODMAG
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  WARNING "Magazzino errato"
  FLAGS "U"
END

STRING F_CODDEP 2
BEGIN
  PROMPT 48 6 "Codice deposito         "
  FIELD LF_CFVEN->CODDEP
  USE MAG SELECT CODTAB ? "?????"
  INPUT  CODTAB[1,3] F_CODMAG SELECT
  INPUT  CODTAB[4,] F_CODDEP
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODDEP CODTAB[4,]
  WARNING "Deposito errato"
  FLAGS "U"
END

STRING F_CODLIST 3
BEGIN
  PROMPT 48 7 "Codice listino          "
  FLAGS "U"
  FIELD LF_CFVEN->CODLIST
  USE LF_CONDV SELECT CATVEN!=""
  JOIN CVE TO LF_CONDV INTO CODTAB=CATVEN
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN
  INPUT COD F_CODLIST
  DISPLAY "Cat.Ven." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODLIST COD
  OUTPUT F_CATVEN CATVEN
  MESSAGE COPY,F_CODLIST1
  CHECKTYPE NORMAL
  WARNING "Listino assente"
END

STRING F_CODLIST1 3
BEGIN
  PROMPT 48 7 "Codice listino          "
  FLAGS "UH"
  FIELD LF_CFVEN->CODLIST
  USE LF_CONDV SELECT CATVEN==""
  JOIN CVE TO LF_CONDV INTO CODTAB=CATVEN
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD F_CODLIST1
  DISPLAY "Cat.Ven." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODLIST1 COD
  MESSAGE COPY,F_CODLIST
  CHECKTYPE NORMAL
  WARNING "Listino assente"
END

STRING F_CODSCC 2
BEGIN
  PROMPT 2 8 "Codice sconto cliente   "
  FIELD LF_CFVEN->CODSCC
  USE %SCC
  INPUT CODTAB F_CODSCC
  DISPLAY "Codice sconto" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Percentuale" S1
  OUTPUT F_CODSCC CODTAB
  HELP "Codice dello sconto cliente"
  GROUP 7
  CHECKTYPE NORMAL
END

STRING F_SCONTO 25
BEGIN
  PROMPT 2 9 "Sconto                  "
  FIELD LF_CFVEN->SCONTO
  GROUP 7
  HELP "Percentuale sconto di riga applicato nelle forme: semplice, es. 10 (per 10%) composto, es. 10+5 (per 10%+5%) oppure  10+5-2 (per 10%+5%-2%)"
END

BOOLEAN F_ADDBOLLI
BEGIN
  PROMPT 2 10 "Addebito Bolli Ricevute bancarie "
  FIELD LF_CFVEN->ADDBOLLI
  GROUP 7
  HELP "Indicare se addebitare bolli ricevute bancarie"
END

NUMBER F_PERCSPINC 6 2
BEGIN
  PROMPT 44 10 "% Addebito Spese incasso "
  FIELD LF_CFVEN->PERCSPINC
  GROUP 7
  HELP "Indicare la percentuale di addebito delle spese d'incasso"
END

BOOLEAN F_IVARID
BEGIN
  PROMPT 2 11 "Aliquota ridotta "
  FIELD LF_CFVEN->IVARID
  GROUP 7
  HELP "Indicare se applicare l'aliquota ridotta"
END

BOOLEAN F_GESTCONTR
BEGIN
  PROMPT 26 11 "Gestione contratto"
  FIELD LF_CFVEN->GESTCONTR
  HELP "Indicare se si gestisce un contratto"
END

STRING F_CATVEN 2
BEGIN
  PROMPT 54 11 "Categoria vendita  "
  FIELD LF_CFVEN->CATVEN
  GROUP 7
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Codice vendita" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CATVEN CODTAB
  HELP "Codice della categoria di vendita"
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRING F_TITOLO 2
BEGIN
  PROMPT 2 13 "Titolo onorifico        "
  FIELD LF_CFVEN->TITOLO
  GROUP 7
  USE %TIT
  INPUT CODTAB F_TITOLO
  DISPLAY "Codice titolo " CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_TITOLO CODTAB
  HELP "Codice del titolo onorifico"
END

LIST F_RAGGOR 1 16
BEGIN
  PROMPT 2 15 "Raggruppamento ordine   "
  FIELD LF_CFVEN->RAGGOR
  GROUP 7
  HELP "Indicare il tipo di raggruppamento dell'ordine"
  ITEM "O|Intero ordine"
  ITEM "R|Intera riga"
  ITEM "P|Anche parziale"
END

NUMBER F_PREVORD 2
BEGIN
  PROMPT 2 16 "Priorita' ordine        "
  FIELD LF_CFVEN->PREVORD
  GROUP 7
  HELP "Priorita' di evasione dell'ordine"
END

STRING F_TIPOEVORD 2
BEGIN
  PROMPT 2 17 "Tipo evasione ordine    "
  FIELD LF_CFVEN->TIPOEVORD
  GROUP 7
  HELP "Tipo di evasione dell'ordine"
END

CURRENCY F_MINORD 18
BEGIN
  PROMPT 40 16 "Importo minimo  "
  FIELD LF_CFVEN->MINORD
  GROUP 7
  DRIVENBY F_CODVAL
  HELP "Importo minimo dell'ordine"
END

CURRENCY F_MAXORD 18
BEGIN
  PROMPT 40 17 "Importo massimo "
  FIELD LF_CFVEN->MAXORD
  GROUP 7
  DRIVENBY F_CODVAL
  HELP "Importo massimo dell'ordine"
END

BOOLEAN F_RIFDOC
BEGIN
  PROMPT 2 18 "Righe di riferimento nei documenti"
  FIELD LF_CFVEN->RIFDOC
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 19 "@bPersonalizzazioni FP"
  MODULE FP
END

BOOLEAN F_DISABLECUSTFP
BEGIN
  PROMPT 2 20 "Disabilita pers."
  FIELD DISCUSTFP
  MESSAGE FALSE ENABLE, F_CODCUSTFP
  MESSAGE TRUE CLEAR, F_CODCUSTFP
  MODULE FP
END

STRING F_CODCUSTFP 10
BEGIN
  PROMPT 25 20 "Codice pers. FP "
  FIELD CODFPCUST
  USE FPCUST
  INPUT CODICE F_CODCUSTFP
  DISPLAY "Codice" CODICE
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCUSTFP CODICE
  HELP "Codice della personalizzazione FP da applicare al cliente"
  MODULE FP
END

ENDPAGE

PAGE "Lavanderie" -1 -1 78 19

GROUPBOX DLG_NULL 78 14
BEGIN
  PROMPT 0 4 "@bLavanderie"
  GROUP G_LV
  MODULE LV
END

LISTBOX F_TPIMBALLO 10
BEGIN
  PROMPT 1 5 "Tipo Imballo"  
  ITEM "S|Sacco"
  ITEM "C|Carrello"
  FIELD 41@->S0 //LVAUT = 41
  GROUP G_LV
  MODULE LV
END

LISTBOX F_DIMENSIONE 2
BEGIN
  PROMPT 30 5 "Dimensione "
  ITEM "XS|XS"
  ITEM "M|M"
  ITEM "XL|XL"
  FIELD 41@->S2  //LVAUT = 41
  GROUP G_LV
  MODULE LV
END

LISTBOX F_RIEMPIMENTO 24
BEGIN
  PROMPT 1 6 "Riempimento "  
  ITEM "A|Un solo art. per imballo"
  ITEM "P|Proporzionale"
  FIELD 41@->S1
  GROUP G_LV
  MODULE LV
END

BOOLEAN F_ARTSEP
BEGIN
  PROMPT 1 7 "Articoli separati"
  FIELD 41@->B0 //LVAUT = 41
  GROUP G_LV
  MODULE LV
END

ENDPAGE

ENDMASK

PAGE "Banche di appoggio" -1 -1 80 8

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 1 1 ""
  FLAGS "U"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO F_DESBAN 0
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 5 1 ""
  FLAGS "UZ"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_IBAN_STATO F_IBAN_CHECK F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO F_DESBAN 0
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 9 1 ""
  FLAGS "UG"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

NUMBER F_BBAN_ABI 5
BEGIN
  PROMPT 12 1 ""
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_BBAN_ABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_BBAN_ABI CODTAB[1,5]
  HELP "Codice ABI banca del C/F"
  CHECKTYPE NORMAL
  FLAGS "ZG"
END

NUMBER F_BBAN_CAB 5
BEGIN
  PROMPT 21 1 ""
  USE %BAN SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_BBAN_ABI
  INPUT CODTAB[6,10] F_BBAN_CAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_BBAN_ABI CODTAB[1,5]
  OUTPUT F_BBAN_CAB CODTAB[6,10]
  OUTPUT F_DESBAN S0
  HELP "Codice CAB banca del C/F"
  CHECKTYPE NORMAL
  FLAGS "ZG"
END

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 30 1 ""
  FLAGS "UZG"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END

STRING F_BBAN 30
BEGIN
  PROMPT 30 2 ""
  FLAGS "UG"
END

NUMBER F_PROGPR 2
BEGIN
  PROMPT 1 60 "Progressivo IGNORATO"
  FLAGS "D"
END

STRING F_DESBAN 50 40
BEGIN
  PROMPT 1 3 ""
  USE %BAN KEY 2 SELECT CODTAB ?= "??????????"
  INPUT S0 F_DESBAN
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  COPY OUTPUT F_BBAN_CAB
  FLAGS "G"
END

STRING F_IBAN 27
BEGIN
  PROMPT 1 4 "IBAN "
  FLAGS "D"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

PAGE "Banche di presentazione" -1 -1 80 8

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 2 2 "Codice IBAN      "
  FLAGS "UDG"
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 24 2 ""
  FLAGS "UZD"
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 33 42 ""
  FLAGS "UDG"
END

NUMBER F_BBAN_ABI 5
BEGIN
  PROMPT 41 2 ""
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
  INPUT CODTAB[1,5] F_BBAN_ABI
  INPUT CODTAB[6,10] F_BBAN_CAB
  INPUT CODTAB[11,12] F_PROGPR
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Progr." CODTAB[11,12]
  DISPLAY "IBAN@27" S3
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_BBAN_ABI CODTAB[1,5]
  OUTPUT F_BBAN_CAB CODTAB[6,10]
  OUTPUT F_PROGPR CODTAB[11,12]
  OUTPUT F_DESBAN 100@->S0
  OUTPUT F_IBAN S3
  HELP "Codice ABI banca del C/F"
  CHECKTYPE SEARCH
  FLAGS "ZG"
END

NUMBER F_BBAN_CAB 5
BEGIN
  PROMPT 50 2 ""
  COPY ALL F_BBAN_ABI
  HELP "Codice CAB banca del C/F"
  CHECKTYPE NORMAL
  FLAGS "GZ"
END

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 59 2 ""
  FLAGS "UGDZ"
END

STRING F_BBAN 30
BEGIN
  PROMPT 59 2 ""
  FLAGS "UHGD"
END

NUMBER F_PROGPR 2
BEGIN
  PROMPT 2 4 "Progressivo   "
  COPY ALL F_BBAN_ABI
  FLAGS "Z"
END

STRING F_DESBAN 50 40
BEGIN
  PROMPT 20 3 "Descrizione "
  USE %BAN KEY 2 SELECT (CODTAB ?= "??????????"&&100@->CODTAB!="")
  JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
  INPUT S0 F_DESBAN
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  COPY OUTPUT F_BBAN_CAB
  FLAGS "G"
END

STRING F_IBAN 27
BEGIN
  PROMPT 2 6 "IBAN "
  FLAGS "D"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

PAGE "Effetti" -1 -1 42 10

GROUPBOX DLG_NULL 40 4
BEGIN
  PROMPT 1 1 "@bPeriodo di non accettazione effetti"
END
 
NUMBER 101 2  
BEGIN
  PROMPT 2 2 "Dal giorno "
  FLAGS "Z"
  NUM_EXPR (#THIS_FIELD>=1)&&(#THIS_FIELD<=31)
  WARNING "Inserire un giorno compreso tra 1 e 31"
END 

LIST 102 2 10
BEGIN
  PROMPT 20 2 "mese "
  FLAGS "M"
END 

NUMBER 103 2  
BEGIN
  PROMPT 2 3 "Al giorno  "
  FLAGS "Z"
  NUM_EXPR (#THIS_FIELD>=1)&&(#THIS_FIELD<=31)
  WARNING "Inserire un giorno compreso tra 1 e 31"
END 

LIST 104 2 10
BEGIN
  PROMPT 20 3 "mese "
  FLAGS "M"
END 

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 1 5 "@bScadenza effetti non accettati"
END

NUMBER 105 2  
BEGIN
  PROMPT 2 6 "Giorno     "
  FLAGS "Z"
  NUM_EXPR (#THIS_FIELD>=1)&&(#THIS_FIELD<=31)
  WARNING "Inserire un giorno compreso tra 1 e 31"
END 

LIST 106 2 10
BEGIN
 PROMPT 20 6 "mese "
 FLAGS "M"
END 

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK

#include "cg0200b.uml"