#include "cg0200.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Pag.1" -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|ENABLE,7@
  ITEM "F|Fornitori"
  MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@
END

NUMBER F_CODCF 6
BEGIN
   PROMPT 2 2 "Codice "
  FIELD CODCF
  FLAGS "GR"
  KEY 1
  USE LF_CLIFO KEY 1
  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 23 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           // Guy: perche' non cosi'?
END

STRING F_RAGSOCA 20
BEGIN
  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
  FIELD RAGSOC[31,]
  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

LIST F_STATOPAIV 2 21
BEGIN
  PROMPT 42 4 "Stato CEE    "
  FIELD STATOPAIV
  KEY 5
  HELP "Codice ISO dello stato"
  ITEM "  |Italia o extra CEE"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
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 CF_FUNC  F_STATOPAIV
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@50" 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

LIST F_TIPOPERS 1 12
BEGIN
PROMPT 2 12 "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 12 "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 13 "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"
OUTPUT F_ALLEG
END

NUMBER F_CODALLEG 6
BEGIN
PROMPT 32 13 "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
OUTPUT F_RAGSOCALLEG RAGSOC
HELP "Codice dell'allegato IVA in cui inserire i progressivi"
CHECKTYPE NORMAL
WARNING "Cliente/Fornitore assente"
END

STRING F_RAGSOCALLEG 50
BEGIN
PROMPT 2 14 "Rag. soc. allegato   "
FLAGS "D"
END

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

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

BUTTON DLG_FAX 10 2
BEGIN
  PROMPT -11 -1 "Fax"
  PICTURE BMP_FAX
END

ENDPAGE

PAGE "Pag.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 "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 23 1 "Cognome / Rag. Soc.  "
FLAGS "D"
GROUP 3
END

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

GROUPBOX DLG_NULL 76 7
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
HELP "Prefisso del numero di telex"
END

STRING F_TELEX 30
BEGIN
PROMPT 43 9 ""
FIELD TELEX
HELP "Numero telefonico del telex"
END

GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 11 "Percipiente"
END

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

NUMBER F_CODANAGPER 5
BEGIN
PROMPT 61 12 "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 NORMAL
WARNING "Percipiente assente"
ADD RUN ba4 -1
END

STRING F_RAGSOC1 50
BEGIN
PROMPT 2 13 "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
END

GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 15 "Dati di nascita"
GROUP 5
END

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

NUMBER F_STATONASC 3
BEGIN
PROMPT 38 16 "Stato "
FIELD STATONASC
FLAGS "Z"
GROUP 5
COPY USE F_STATOCF
INPUT CODTAB F_STATONASC
COPY DISPLAY F_STATOCF
OUTPUT F_STATONASC CODTAB
HELP "Stato di nascita del cliente/fornitore"
CHECKTYPE NORMAL
WARNING "Nazione assente"
END

STRING F_COMNASC 4
BEGIN
PROMPT 60 16 "Comune "
FIELD COMNASC
FLAGS "U"
GROUP 5
COPY USE F_COMCF
INPUT STATO F_STATONASC
INPUT COM F_COMNASC
COPY DISPLAY F_COMCF
OUTPUT F_STATONASC STATO
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 17 "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 "Pag.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 23 1 "Cognome / Rag. Soc.  "
FLAGS "D"
GROUP 3
END

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

NUMBER F_CODABI 5
BEGIN
PROMPT 2 4 "Codice ABI          "
FIELD CODABI
FLAGS "Z"
USE %BAN
INPUT CODTAB F_CODABI
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODBAN CODTAB[6,10]
OUTPUT F_DESBAN S0
HELP "Codice ABI banca del C/F"
CHECKTYPE NORMAL
END

NUMBER F_CODBAN 5
BEGIN
PROMPT 56 4 "Codice CAB "
FIELD CODCAB
FLAGS "Z"
COPY USE F_CODABI
INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODBAN
COPY DISPLAY F_CODABI
COPY OUTPUT F_CODABI
HELP "Codice CAB banca del C/F"
CHECKTYPE NORMAL
END

STRING F_DESBAN 50
BEGIN
PROMPT 2 5 "Denominazione       "
USE %BAN KEY 2
INPUT S0 F_DESBAN
DISPLAY "Denominazione@50" S0
DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODABI
END

STRING F_CODVAL 3
BEGIN
PROMPT 2 6 "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 6 ""
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_CODLIN 1
BEGIN
PROMPT 2 7 "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 7 ""
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 8 "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 8 ""
USE %CPG KEY 2
INPUT S0 F_DESPAG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice pagamento" CODTAB
COPY OUTPUT F_CODPAG
CHECKTYPE NORMAL
END

NUMBER F_FIDO 15
BEGIN
PROMPT 2 9 "Fido                "
FIELD FIDO
FLAGS "R"
PICTURE "."
HELP "Importo massimo fido del cliente/fornitore"
END

GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 1 10 "Conto cliente/fornitore"
END

NUMBER F_GRUPPO 3
BEGIN
PROMPT 2 11 "Gruppo      "
FIELD GRUPPO
FLAGS "R"
HELP "Codice del gruppo"
END

NUMBER F_CONTO 3
BEGIN
PROMPT 27 11 "Conto "
FIELD CONTO
FLAGS "R"
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
  HELP "Inserire il gruppo"
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere di tipo clienti o fornitori"
  ADD RUN cg0 -0
  END

  STRING F_DESCONTO 50
  BEGIN
  PROMPT 2 12 "Descrizione "
  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 14 "Conto di ricavo"
  END

  GROUPBOX DLG_CST 76 4
  BEGIN
  PROMPT 1 14 "Conto di costo"
  FLAGS "H"
  END

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

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

  NUMBER F_SOTTOCRIC 6
  BEGIN
  PROMPT 47 15 "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 16 "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 "Pag.4" -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_INDSP->TIPOCF
  FLAGS "D"
  GROUP 1
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  END

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

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

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

  SPREADSHEET F_SHEET_G_VEN
  BEGIN
  PROMPT 0 5 ""
  ITEM "Ragione Sociale@50"
  ITEM "Indirizzo@35"
  ITEM "N. civico@10"
  ITEM "Localita@35"
  ITEM "CAP  "
  ITEM "Stato"
  ITEM "Comune "
  ITEM "Prefisso tel."
  ITEM "Numero tel.@30"
  ITEM "Prefisso fax"
  ITEM "Numero fax@30"
  ITEM "Iva Rid."
  ITEM "Codice"
  END

  ENDPAGE

  PAGE "Pag.5" -1 -1 78 19

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

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

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

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

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

  NUMBER F_CODINDDOC 3
  BEGIN
  PROMPT 2 5 "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
  HELP "Codice indirizzi di pag.4"
  END

  STRING F_CODNOTE 2
  BEGIN
  PROMPT 43 5 "Codice Note Cli/Fo           "
  FIELD LF_CFVEN->CODNOTE
  USE %NOT
  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_CODLEG 2
  BEGIN
  PROMPT 2 8 "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_CODCATC 2
  BEGIN
  PROMPT 43 8 "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

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

  NUMBER F_CODINDSP 3
  BEGIN
  PROMPT 43 11 "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

  GROUPBOX DLG_NULL 76 4
  BEGIN
  PROMPT 1 14 "Dati Agente"
  END

  STRING F_CODZONA 2
  BEGIN
  PROMPT 2 15 "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

  STRING F_CODAG 5
  BEGIN
  PROMPT 44 15 "Codice agente          "
  FLAGS "UZ"
  FIELD LF_CFVEN->CODAG
  USE AGE
  INPUT CODTAB F_CODAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODAG CODTAB
  CHECKTYPE NORMAL
  GROUP 7
  HELP "Codice dell'agente di cui si serve il cliente"
  END

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

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

  ENDPAGE

  PAGE "Pag.6" -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_CODCASS|SHOW,F_CODFASS|"F",F_TEMP
  ITEM "F|Fornitori"
  MESSAGE HIDE,F_CODFASS|SHOW,F_CODCASS|"C",F_TEMP
  END

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

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

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

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

  STRING F_CODNOTESP2 2
  BEGIN
  PROMPT 33 4 ""
  FIELD LF_CFVEN->CODNOTESP2
  GROUP 7
  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 2
  BEGIN
  PROMPT 46 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

  NUMBER F_CODVETT1 5
  BEGIN
  PROMPT 2 6 "Vettore 1 "
  FIELD LF_CFVEN->CODVETT1
  FLAGS "Z"
  GROUP 7
  USE %VET
  INPUT CODTAB F_CODVETT1
  DISPLAY "Codice vettore" CODTAB
  DISPLAY "Ragione sociale@50" S0
  OUTPUT F_CODVETT1 CODTAB
  END

  NUMBER F_CODVETT2 5
  BEGIN
  PROMPT 2 7 "Vettore 2 "
  FIELD LF_CFVEN->CODVETT2
  FLAGS "Z"
  GROUP 7
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODVETT2
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODVETT2 CODTAB
  END

  NUMBER F_CODVETT3 5
  BEGIN
  PROMPT 2 8 "Vettore 3 "
  FIELD LF_CFVEN->CODVETT3
  FLAGS "Z"
  GROUP 7
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODVETT3
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODVETT3 CODTAB
  END

  NUMBER F_CODSPED1 5
  BEGIN
  PROMPT 23 6 "Spedizioniere 1 "
  FIELD LF_CFVEN->CODSPED1
  FLAGS "Z"
  GROUP 7
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODSPED1
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODSPED1 CODTAB
  END

  NUMBER F_CODSPED2 5
  BEGIN
  PROMPT 51 6 "Spedizioniere 2 "
  FIELD LF_CFVEN->CODSPED2
  FLAGS "Z"
  GROUP 7
  COPY USE F_CODVETT1
  INPUT CODTAB F_CODSPED2
  COPY DISPLAY F_CODVETT1
  OUTPUT F_CODSPED2 CODTAB
  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

  NUMBER F_NCOPIE 2
  BEGIN
  PROMPT 58 8 "Numero copie  "
  FIELD LF_CFVEN->NCOPIE
  GROUP 7
  HELP "Numero di copie dei documenti"
  END

  TEXT F_CODFASS
  BEGIN
  PROMPT 23 9 "Codice fornitore associato    "
  END

  TEXT F_CODCASS
  BEGIN
  PROMPT 23 9 "Codice cliente associato      "
  END

  STRING F_TEMP 1
  BEGIN
  PROMPT 56 8 ""
  FLAGS "HD"
  END

  NUMBER F_CODCFASS 6
  BEGIN
  PROMPT 58 9 ""
  FIELD LF_CFVEN->CODCFASS
  USE LF_CLIFO KEY 1
  INPUT TIPOCF F_TEMP SELECT
  INPUT CODCF F_CODCFASS
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCFASS CODCF
  HELP "Codice del fornitore/cliente associato"
  CHECKTYPE NORMAL
  END

  NUMBER F_ASSFIS 4
  BEGIN
  PROMPT 2 11 "Codice Assoggettamento fiscale  "
  FIELD LF_CFVEN->ASSFIS
  FLAGS "Z"
  USE %ASF
  INPUT CODTAB F_ASSFIS
  DISPLAY "Codice assogg." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ASSFIS CODTAB
  HELP "Codice d'assoggettamento fiscale"
  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

  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

  BOOLEAN F_ADDBNS1500
  BEGIN
  PROMPT 2 17 "Addebito bollo Lit. 50.000  "
  FIELD LF_CFVEN->ADDBNS1500
  GROUP 7
  HELP "Indicare se addebitare bolli per imponibibili non soggetti superiori a Lit. 50.000"
  END

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

  ENDPAGE

  PAGE "Pag.7" -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 23 1 "Cognome / Rag. Soc.  "
  FLAGS "D"
  GROUP 3
  END

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

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

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

  NUMBER F_CODINDEFF 3
  BEGIN
  PROMPT 2 6 "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

  BOOLEAN F_EMEFFRICH
  BEGIN
  PROMPT 45 6 "Emissione effetti"
  FIELD LF_CFVEN->EMEFFRICH
  GROUP 7
  HELP "Indicare se emettere effetti a richiesta"
  END

  NUMBER F_IMPMINEFF 6
  BEGIN
  PROMPT 2 7 "Importo minimo effetti   "
  FIELD LF_CFVEN->IMPMINEFF
  GROUP 7
  HELP "Importo minimo effetti"
  END

  GROUPBOX DLG_NULL 76 4
  BEGIN
  PROMPT 1 9 "Periodo Effetti"
  END

  STRING F_NONACCEFF 20
  BEGIN
  PROMPT 2 10 "Periodo di non accettazione degli effetti         "
  FIELD LF_CFVEN->NONACCEFF
  GROUP 7
  HELP "IIl periodo di non accettazione effetti"
  END

  STRING F_NONSCADEFF 20
  BEGIN
  PROMPT 2 11 "Scadenza effetti periodi non accettati            "
  FIELD LF_CFVEN->NONSCADEFF
  GROUP 7
  HELP "Scadenza effetti dei periodi non accettati"
  END

  GROUPBOX DLG_NULL 76 3
  BEGIN
  PROMPT 1 13 "Addebiti"
  END

  BOOLEAN F_ADDBOLLIRB
  BEGIN
  PROMPT 2 14 "Bolli Ricevute bancarie "
  FIELD LF_CFVEN->ADDBOLLIRB
  GROUP 7
  HELP "Indicare se addebitare bolli ricevute bancarie"
  END

  BOOLEAN F_ADDBOLLITR
  BEGIN
  PROMPT 34 14 "Bolli Tratte "
  FIELD LF_CFVEN->ADDBOLLITR
  GROUP 7
  HELP "Indicare se addebitare bolli tratte"
  END

  BOOLEAN F_ADDSPINC
  BEGIN
  PROMPT 58 14 "Spese incasso "
  FIELD LF_CFVEN->ADDSPINC
  GROUP 7
  HELP "Indicare se addebitare spese d'incasso"
  END

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

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

  STRING F_CATVEN 2
  BEGIN
  PROMPT 54 16 "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

  ENDPAGE

  PAGE "Pag.8" -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 23 1 "Cognome / Rag. Soc.  "
  FLAGS "D"
  GROUP 3
  END

  STRING DLG_NULL 20
  BEGIN
  PROMPT 23 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 3
  BEGIN
  PROMPT 2 5 "Spesa 1       "
  FIELD LF_CFVEN->CODSP1
  GROUP 7
  USE %SAD
  INPUT CODTAB F_CODSP1
  DISPLAY "Codice Spesa " CODTAB
  DISPLAY "Descrizione@20" S0
  OUTPUT F_CODSP1 CODTAB
  HELP "Codici delle spese da addebitare"
  CHECKTYPE NORMAL
  END

  STRING F_CODSP2 3
  BEGIN
  PROMPT 24 5 "Spesa 2      "
  FIELD LF_CFVEN->CODSP2
  GROUP 7
  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 3
  BEGIN
  PROMPT 2 6 "Spesa 3       "
  FIELD LF_CFVEN->CODSP3
  GROUP 7
  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 3
  BEGIN
  PROMPT 24 6 "Spesa 4      "
  FIELD LF_CFVEN->CODSP4
  GROUP 7
  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 "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  HELP "Codice del magazzino movimentato"
  END

STRING F_CODLIST 3
BEGIN
  PROMPT 48 6 "Codice listino          "
  FIELD LF_CFVEN->CODLIST
  USE LF_CONDV
  JOIN CVE TO LF_CONDV INTO CODTAB=CATVEN
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN SELECT
  INPUT COD F_CODLIST
  DISPLAY "Cat.Ven." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODLIST COD
  OUTPUT F_CATVEN CATVEN
  HELP "Codice listino utilizzato"
  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

  STRING F_PROFSOLL 5
  BEGIN
  PROMPT 2 11 "Profilo sollecito       "
  FIELD LF_CFVEN->PROFSOLL
  GROUP 7
  HELP "Codice del profilo sollecito"
  END

  NUMBER F_MAXSOLL 2
  BEGIN
  PROMPT 47 11 "Numero solleciti          "
  FIELD LF_CFVEN->MAXSOLL
  GROUP 7
  HELP "Massimo numero di solleciti"
  END

  DATE F_DATAESC
  BEGIN
  PROMPT 2 12 "Ultimo estratto conto   "
  FIELD LF_CFVEN->DATAESC
  GROUP 7
  HELP "Data dell'ultimo estratto conto"
  END

  DATE F_DATASOLL
  BEGIN
  PROMPT 47 12 "Ultimo sollecito  "
  FIELD LF_CFVEN->DATASOLL
  GROUP 7
  HELP "Data dell'ultimo sollecito"
  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

  NUMBER F_MINORD 15
  BEGIN
  PROMPT 40 16 "Importo minimo      "
  FIELD LF_CFVEN->MINORD
  GROUP 7
  PICTURE "."
  HELP "Importo minimo dell'ordine"
  END

  NUMBER F_MAXORD 15
  BEGIN
  PROMPT 40 17 "Importo massimo     "
  FIELD LF_CFVEN->MAXORD
  GROUP 7
  PICTURE "."
  HELP "Importo massimo dell'ordine"
  END

  ENDPAGE

  ENDMASK

#include "cg0200b.uml"