campo-sirio/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 116
END

#include <cancelbar.h>

ENDPAGE

PAGE "Dati Anagrafici" -1 -1 78 19

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
  ITEM "F|Fornitori"
  MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC
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" 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" 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 "Stato CEE    "
  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
  CHECKTYPE NORMAL
END

STRING F_COFI 16
BEGIN
  PROMPT 2 5 "Codice 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
BEGIN
  PROMPT 42 5 "Partita IVA        "
  FIELD PAIV
  KEY 5
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV F_PAIV
  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
  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 clinete/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

NUMBER F_ALLEG 1
BEGIN
  PROMPT 2 14 "Inserimento in allegato "
  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|Cliente/Fornitore occasionale"
  ITEM "3|Documenti riepilogativi"
  ITEM "4|Clienti/Fornitori con codici fiscali gia' inseriti"
  ITEM "5|Cliente/Fornitore estero"
  ITEM "6|Cliente/Fornitore privato"
  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

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 62 14 "Collegamenti esterni"
END

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

LIST F_DIRTY 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD DIRTY
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 "Numeri telefonici"
END

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

STRING F_TEL 30
BEGIN
  PROMPT 43 5 ""
  FIELD TEL
  HELP "Numero telefonico primo recapito"
END

STRING F_PTEL2 10
BEGIN
  PROMPT 16 6 ""
  FIELD PTEL2
  HELP "Prefisso telefonico secondo recapito"
END

STRING F_TEL2 30
BEGIN
PROMPT 43 6 ""
FIELD TEL2
HELP "Numero telefonico secondo recapito"
END

STRING F_PTEL3 10
BEGIN
  PROMPT 16 7 ""
  FIELD PTEL3
  HELP "Prefisso telefonico terzo recapito"
END

STRING F_TEL3 30
BEGIN
  PROMPT 43 7 ""
  FIELD TEL3
  HELP "Numero telefonico terzo recapito"
END

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

STRING F_FAX 30
BEGIN
  PROMPT 43 8 ""
  FIELD FAX
  HELP "Numero telefonico del fax"
END

STRING F_PTELEX 10
BEGIN
  PROMPT 2 9 "Telex         "
  FIELD PTELEX
END

STRING F_TELEX 30
BEGIN
  PROMPT 43 9 ""
  FIELD TELEX
END

STRING F_MAIL 50
BEGIN
  PROMPT 2 10 "E-mail "
  FIELD MAIL
END

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

BOOLEAN F_BYMAIL
BEGIN
  PROMPT 2 11 "Consenso spedizione documenti per posta elettronica"
  FIELD BYMAIL
	MESSAGE FALSE CLEAR,F_DOCMAIL
	MESSAGE TRUE ENABLE,F_DOCMAIL
END

STRING F_DOCMAIL 50
BEGIN
  PROMPT 2 12 "Indirizzo doc."
  FIELD DOCMAIL
	CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 6
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 10 1
BEGIN
	PROMPT 45 15 "Crea percipiente"
	GROUP 4
END

NUMBER F_CODANAGPER 5
BEGIN
  PROMPT 59 15 "Codice "
  FIELD CODANAGPER
  FLAGS "R"
  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 percepiente per la compilazione Mod. 770"
  CHECKTYPE SEARCH
  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 percepiente per la compilazione Mod. 770"
  ADD RUN ba4 -1 #F_TIPOAPER
END

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

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

STRING F_COMNASC 4
BEGIN
  PROMPT 60 17 "Comune "
  FIELD COMNASC
  FLAGS "U"
  GROUP 5
  COPY USE F_COMCF
  INPUT STATO ""
  INPUT COM F_COMNASC
  COPY DISPLAY F_COMCF
  OUTPUT F_COMNASC COM
  OUTPUT F_DENCOMNASC DENCOM
  HELP "Codice del comune di nascita del cliente/fornitore"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_DENCOMNASC 50
BEGIN
  PROMPT 2 18 "Denominazione      "
  GROUP 5
  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/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

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 4 "Banca d'appoggio "
  FIELD CODABI
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  HELP "Codice ABI banca del C/F"
  CHECKTYPE NORMAL
  MESSAGE COPY,F_BBAN_ABI
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 28 4 ""
  FIELD CODCAB
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  OUTPUT F_DESBAN S0
  HELP "Codice CAB banca del C/F"
  CHECKTYPE NORMAL
  MESSAGE COPY,F_BBAN_CAB
END

STRING F_DESBAN 50 37
BEGIN
  PROMPT 37 4 ""
  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_CODCAB
END

STRING F_NUMCC 20
BEGIN
  PROMPT 2 5 "Conto corrente   "
  FIELD NUMCC
  FLAGS "U"
END

STRING F_IBAN 34
BEGIN
  PROMPT 2 60 ""
  FLAGS "D"
  FIELD IBAN
END

STRING F_IBAN_STATO 2
BEGIN
  PROMPT 2 6 "Codice IBAN      "
  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
END

NUMBER F_IBAN_CHECK 2
BEGIN
  PROMPT 24 6 ""
  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
END

STRINGA F_BBAN 30
BEGIN
  PROMPT 33 6 "BBAN "
  FLAGS "UH"
END

STRINGA F_BBAN_CIN 1
BEGIN
  PROMPT 33 6 "BBAN "
  FLAGS "U"
  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 41 6 ""
  FLAGS "DGZ"
END

NUMBER F_BBAN_CAB 5
BEGIN
  PROMPT 48 6 ""
  FLAGS "DGZ"
END

STRING F_BBAN_CONTO 12
BEGIN
  PROMPT 55 6 ""
  FLAGS "UZ"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_BBAN_CIN F_BBAN_ABI F_BBAN_CAB F_BBAN_CONTO
END


STRING F_CODVAL 3
BEGIN
  PROMPT 2 8 "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 8 ""
  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 9 "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 9 ""
  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 10 "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 10 ""
  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 11 "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 11 ""
  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 12 "Fido                "
  FIELD FIDO
  DRIVENBY F_CODVAL
  HELP "Importo massimo fido del cliente/fornitore"
END

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

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

NUMBER F_CONTO 3
BEGIN
  PROMPT 11 14 "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 14 ""
  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 16 "@bConto di ricavo"
END

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

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

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

NUMBER F_SOTTOCRIC 6
BEGIN
  PROMPT 47 17 "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 18 "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

ENDPAGE

PAGE "Banche/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

NUMBER F_CODABIPR 5
BEGIN
  PROMPT 2 4 "Banca presentazione ABI    "
  FIELD LF_CFVEN->CODABIPR
  FLAGS "Z"
  COPY USE F_CODABI
  INPUT CODTAB F_CODABIPR
  COPY DISPLAY F_CODABI
  OUTPUT F_CODABIPR CODTAB[1,5]
  HELP "Codice ABI della banca presentazione effetti"
  CHECKTYPE NORMAL
END

NUMBER F_CODBANPR 5
BEGIN
  PROMPT 43 4 "CAB    "
  FIELD LF_CFVEN->CODCABPR
  FLAGS "Z"
  COPY USE F_CODCAB
  INPUT CODTAB[1,5] F_CODABIPR
  INPUT CODTAB[6,10] F_CODBANPR
  COPY DISPLAY F_CODCAB
  OUTPUT F_CODABIPR CODTAB[1,5]
  OUTPUT F_CODBANPR CODTAB[6,10]
  OUTPUT F_DESBANPR S0
  HELP "Codice CAB della banca presentazione effetti"
  CHECKTYPE NORMAL
END

STRING F_DESBANPR 50 47
BEGIN
  PROMPT 2 5 "Denominazione              "
  COPY USE F_DESBAN
  INPUT S0 F_DESBANPR
  COPY DISPLAY F_DESBAN
  COPY OUTPUT F_CODBANPR
END

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

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

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

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

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

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

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

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

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

SPREADSHEET F_NONACCEFF 76
BEGIN
  PROMPT 1 11 "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 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

SPREADSHEET F_SHEET_G_VEN 0 -4
BEGIN
  PROMPT 0 4 ""
  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"
END

NUMBER F_CODINDDOC 3
BEGIN
  PROMPT 2 -3 "Codice indirizzo documento  "
  FIELD LF_CFVEN->CODINDDOC
//  GROUP 7
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
  ITEM " |**Nessuno**| | | "
  INPUT F_CODINDDOC
  OUTPUT F_CODINDDOC
END

NUMBER F_CODINDSP 3
BEGIN
  PROMPT 2 -2 "Codice indirizzo spedizione "
  FIELD LF_CFVEN->CODINDSP
//  GROUP 7
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
  INPUT F_CODINDSP
  OUTPUT F_CODINDSP
  HELP "Codice dell'indirizzo di spedizione da proporre"
END

NUMBER F_CODINDEFF 3
BEGIN
  PROMPT 2 -1 "Codice indirizzo effetti    "
  FIELD LF_CFVEN->CODINDEFF
//  GROUP 7
  SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
  INPUT F_CODINDEFF
  OUTPUT F_CODINDEFF
  HELP "Codice indirizzo effetti"
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 2
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 "Destinazione@30" S0
  DISPLAY "Blocca Immissione" B0
  DISPLAY "Documento" 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

DATE F_DATAECONAI
BEGIN
  PROMPT 2 12 "Data fine esenz.CONAI "
  FIELD LF_CFVEN->DATAECONAI
  GROUP 8
  MESSAGE TRUE ENABLE,8@|CLEAR,F_CONAIASS
END

BOOLEAN F_CONAIASS
BEGIN
  PROMPT 43 12 "Stampa contributo CONAI assolto"
  FIELD LF_CFVEN->CONAIASS
  MESSAGE FALSE ENABLE,F_ADDCONAI
  MESSAGE TRUE CLEAR,F_ADDCONAI
END

GROUPBOX DLG_NULL 76 4
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 30 14 "Alluminio  "
  FIELD LF_CFVEN->ESALL
  GROUP 8
END

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

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

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

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

ENDPAGE

PAGE "Dati Vendita 2" -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 "DG"
  GROUP 1
  ITEM "C|Clienti"
  MESSAGE HIDE,F_CODFASS|HIDE,F_DESCRASS
  ITEM "F|Fornitori"
  MESSAGE SHOW,F_CODFASS|SHOW,F_DESCRASS
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_CODNOTESP1 3
BEGIN
  PROMPT 2 4 "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 4 ""
  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 4 "Codice modalita' 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 5 "Vettori"
END

STRING F_CODVETT1 6
BEGIN
  PROMPT 2 6 "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 7 "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 8 "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 7 "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 8 "Raggruppamento documenti"
  FIELD LF_CFVEN->RAGGDOC
  GROUP 7
  HELP "Indicare se vanno raggruppati i documenti (bolle/fatture)"
END

STRING F_ASSFIS 4
BEGIN
  PROMPT 2 10 "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 10 "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 11 "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 41 11 "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 41 12 "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
GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 13 "Dati lettera esenzione"
END

STRING F_VSNRPROT 7
BEGIN
  PROMPT 2 14 "Vs nr. protocollo  "
  FIELD LF_CFVEN->VSNRPROT
  GROUP 7
  HELP "Vostro nr. di protocollo della lettera"
END

DATE F_VSDATAREG
BEGIN
  PROMPT 40 14 "Vs data registrazione  "
  FIELD LF_CFVEN->VSDATAREG
  GROUP 7
  HELP "Data di registrazione della lettera"
END

STRING F_NSNRPROT 7
BEGIN
  PROMPT 2 15 "Ns nr. protocollo  "
  FIELD LF_CFVEN->NSNPROT
  GROUP 7
  HELP "Nostro nr. di protocollo della lettera"
END

DATE F_NSDATAREG
BEGIN
  PROMPT 40 15 "Ns data registrazione  "
  FIELD LF_CFVEN->NSDATAREG
  GROUP 7
  HELP "Data di registrazione della lettera"
END

NUMBER F_CODCFFATT 6
BEGIN
  PROMPT 2 17 "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[1,30]
  HELP "Codice relativo al cliente o fornitore cui fatturare"
  CHECKTYPE NORMAL
END

STRING F_DESCFFATT 30
BEGIN
  PROMPT 25 17 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC[1,30] 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 18 "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 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 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

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"