From 72147c76134e00270c4c5bf3bbd94ac6c7a80360 Mon Sep 17 00:00:00 2001 From: angelo Date: Mon, 27 Mar 1995 17:11:54 +0000 Subject: [PATCH] Modificata lunghezza campi: PORTO, CODVETT,ASSIFS,CODSCINC. Aggiunti i campi CODSPED1 e CODSPED2. git-svn-id: svn://10.65.10.50/trunk@1182 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg0200.h | 2 + cg/cg0200a.uml | 1572 ++++++++++++++++++++++++------------------------ 2 files changed, 800 insertions(+), 774 deletions(-) diff --git a/cg/cg0200.h b/cg/cg0200.h index 4513a9e6b..ec11ff01a 100755 --- a/cg/cg0200.h +++ b/cg/cg0200.h @@ -125,6 +125,8 @@ #define F_CODVETT1 217 #define F_CODVETT2 218 #define F_CODVETT3 219 +#define F_SPED1 225 +#define F_SPED2 226 #define F_RAGSOCALLEG 220 #define F_CODCASS 221 #define F_CODFASS 222 diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml index 04b249243..d155936db 100755 --- a/cg/cg0200a.uml +++ b/cg/cg0200a.uml @@ -10,327 +10,327 @@ PAGE "" -1 -1 78 19 GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 1 0 "Dati identificativi" +PROMPT 1 0 "Dati identificativi" END LIST F_TIPOCF 1 12 BEGIN - PROMPT 2 1 "Tipo " - FIELD LF_CLIFO->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@ +PROMPT 2 1 "Tipo " +FIELD LF_CLIFO->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 LF_CLIFO->CODCF - FLAGS "GR" - KEY 1 - USE LF_CLIFO KEY 1 - INPUT TIPOCF F_TIPOCF SELECT - INPUT CODCF F_CODCF - DISPLAY "Codice" 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 +PROMPT 2 2 "Codice " +FIELD LF_CLIFO->CODCF +FLAGS "GR" +KEY 1 +USE LF_CLIFO KEY 1 +INPUT TIPOCF F_TIPOCF SELECT +INPUT CODCF F_CODCF +DISPLAY "Codice" 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 LF_CLIFO->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" 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" - VALIDATE NOT_EMPTY_FUNC +PROMPT 23 1 "Cognome / Rag. Soc." +FIELD LF_CLIFO->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" 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" +VALIDATE NOT_EMPTY_FUNC END STRING F_RAGSOCA 20 BEGIN - PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " - FIELD LF_CLIFO->RAGSOC[31,] - KEY 2 - HELP "Seconda parte della ragione sociale o nome" - MESSAGE COPY,6@ +PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " +FIELD LF_CLIFO->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 LF_CLIFO->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" +PROMPT 2 4 "Ricerca Alt. " +FIELD LF_CLIFO->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 LF_CLIFO->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" +PROMPT 42 4 "Stato CEE " +FIELD LF_CLIFO->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 LF_CLIFO->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" 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 +PROMPT 2 5 "Codice fiscale " +FIELD LF_CLIFO->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" 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 LF_CLIFO->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" 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 +PROMPT 42 5 "Partita IVA " +FIELD LF_CLIFO->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" 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" +PROMPT 1 6 "Recapito" END STRING F_INDCF 35 BEGIN - PROMPT 2 7 "Indirizzo " - FIELD LF_CLIFO->INDCF - HELP "Indirizzo del recapito" +PROMPT 2 7 "Indirizzo " +FIELD LF_CLIFO->INDCF +HELP "Indirizzo del recapito" END STRING F_CIVCF 10 BEGIN - PROMPT 60 7 "N. " - FIELD LF_CLIFO->CIVCF - HELP "Numero civico del recapito" +PROMPT 60 7 "N. " +FIELD LF_CLIFO->CIVCF +HELP "Numero civico del recapito" END STRING F_LOCALITACF 35 BEGIN - PROMPT 2 8 "Localita' " - FIELD LF_CLIFO->LOCALITACF - HELP "Localita' del recapito" +PROMPT 2 8 "Localita' " +FIELD LF_CLIFO->LOCALITACF +HELP "Localita' del recapito" END STRING F_CAPCF 5 BEGIN - PROMPT 50 8 "CAP " - FIELD LF_CLIFO->CAPCF - HELP "Codice di avviamento postale del recapito" +PROMPT 50 8 "CAP " +FIELD LF_CLIFO->CAPCF +HELP "Codice di avviamento postale del recapito" END STRING F_PROVCF 5 BEGIN - PROMPT 63 8 "Prov." - FLAGS "D" +PROMPT 63 8 "Prov." +FLAGS "D" END NUMBER F_STATOCF 3 BEGIN - PROMPT 2 9 "Comune:Stato " - FIELD LF_CLIFO->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" +PROMPT 2 9 "Comune:Stato " +FIELD LF_CLIFO->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 9 "" - USE %STA KEY 2 - INPUT S0 F_DESTACF - DISPLAY "Stato@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_STATOCF +PROMPT 23 9 "" +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 10 ":Codice " - FIELD LF_CLIFO->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 MASK ba4100a +PROMPT 8 10 ":Codice " +FIELD LF_CLIFO->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 MASK ba4100a END STRING F_DENCOMCF 50 BEGIN - PROMPT 23 10 "" - 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 MASK ba4100a +PROMPT 23 10 "" +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 MASK ba4100a END LIST F_TIPOPERS 1 11 BEGIN - PROMPT 2 12 "Tipo persona " - FIELD LF_CLIFO->TIPOPERS - HELP "Tipo anagrafico del clinete/fornitore" - ITEM "F|Fisica" - MESSAGE COPY,F_TIPOAPER - ITEM "G|Giuridica" - MESSAGE COPY,F_TIPOAPER +PROMPT 2 12 "Tipo persona " +FIELD LF_CLIFO->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 LF_CLIFO->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 +PROMPT 46 12 "Codice statistico " +FIELD LF_CLIFO->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 LF_CLIFO->ALLEG - SHEET "Codice|Descrizione@120" - HELP "Codice per l'inserimento negli allegati IVA" - INPUT F_ALLEG - ITEM " |Persona fisica/giuridica valida ai fini allegato IVA" - ITEM "1|Persona che non deve essere indicata su allegato IVA" - ITEM "2|Persona non indicata su all. IVA e per la quale non interessa avere dei dati anagrafici e il dettaglio dei saldi" - ITEM "3|Per inserire documenti riepil. dei quali occorre indicare in immissione il protocollo iniziale e finale" - ITEM "4|Cliente con partita IVA gia presente in archivio, ma che si intende stampare separatamente sull'allegato IVA" - ITEM "5|Cliente che risiede all'estero" - OUTPUT F_ALLEG +PROMPT 2 13 "Inserimento in allegato " +FIELD LF_CLIFO->ALLEG +SHEET "Codice|Descrizione@120" +HELP "Codice per l'inserimento negli allegati IVA" +INPUT F_ALLEG +ITEM " |Persona fisica/giuridica valida ai fini allegato IVA" +ITEM "1|Persona che non deve essere indicata su allegato IVA" +ITEM "2|Persona non indicata su all. IVA e per la quale non interessa avere dei dati anagrafici e il dettaglio dei saldi" +ITEM "3|Per inserire documenti riepil. dei quali occorre indicare in immissione il protocollo iniziale e finale" +ITEM "4|Cliente con partita IVA gia presente in archivio, ma che si intende stampare separatamente sull'allegato IVA" +ITEM "5|Cliente che risiede all'estero" +OUTPUT F_ALLEG END NUMBER F_CODALLEG 6 BEGIN - PROMPT 32 13 "Codice allegato " - FIELD LF_CLIFO->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" +PROMPT 32 13 "Codice allegato " +FIELD LF_CLIFO->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" +PROMPT 2 14 "Rag. soc. allegato " +FLAGS "D" END BOOLEAN F_OCCASIONALE BEGIN - PROMPT 2 16 "Occasionale " - FIELD LF_CLIFO->OCCAS - HELP "Indicare se si tratta di un C/F occasionale" - MESSAGE TRUE "2",F_ALLEG +PROMPT 2 16 "Occasionale " +FIELD LF_CLIFO->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 LF_CLIFO->SOSPESO - HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile" +PROMPT 32 16 "Sospeso " +FIELD LF_CLIFO->SOSPESO +HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile" END ENDPAGE @@ -339,221 +339,221 @@ PAGE "Pag. 2" -1 -1 78 19 GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 1 0 "Dati identificativi" +PROMPT 1 0 "Dati identificativi" END LIST DLG_NULL 1 12 BEGIN - PROMPT 2 1 "Tipo " - FLAGS "D" - GROUP 1 - ITEM "C|Clienti" - ITEM "F|Fornitori" +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 +PROMPT 2 2 "Codice " +FLAGS "RD" +GROUP 2 END STRING DLG_NULL 30 BEGIN - PROMPT 23 1 "Cognome / Rag. Soc. " - FLAGS "D" - GROUP 3 +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 +PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " +FLAGS "D" +GROUP 6 END GROUPBOX DLG_NULL 76 7 BEGIN - PROMPT 1 4 "Numeri telefonici" +PROMPT 1 4 "Numeri telefonici" END STRING F_PTEL 10 BEGIN - PROMPT 2 5 "Telefono " - FIELD LF_CLIFO->PTEL - HELP "Prefisso telefonico primo recapito" +PROMPT 2 5 "Telefono " +FIELD LF_CLIFO->PTEL +HELP "Prefisso telefonico primo recapito" END STRING F_TEL 30 BEGIN - PROMPT 43 5 "" - FIELD LF_CLIFO->TEL - HELP "Numero telefonico primo recapito" +PROMPT 43 5 "" +FIELD LF_CLIFO->TEL +HELP "Numero telefonico primo recapito" END STRING F_PTEL2 10 BEGIN - PROMPT 16 6 "" - FIELD LF_CLIFO->PTEL2 - HELP "Prefisso telefonico secondo recapito" +PROMPT 16 6 "" +FIELD LF_CLIFO->PTEL2 +HELP "Prefisso telefonico secondo recapito" END STRING F_TEL2 30 BEGIN - PROMPT 43 6 "" - FIELD LF_CLIFO->TEL2 - HELP "Numero telefonico secondo recapito" +PROMPT 43 6 "" +FIELD LF_CLIFO->TEL2 +HELP "Numero telefonico secondo recapito" END STRING F_PTEL3 10 BEGIN - PROMPT 16 7 "" - FIELD LF_CLIFO->PTEL3 - HELP "Prefisso telefonico terzo recapito" +PROMPT 16 7 "" +FIELD LF_CLIFO->PTEL3 +HELP "Prefisso telefonico terzo recapito" END STRING F_TEL3 30 BEGIN - PROMPT 43 7 "" - FIELD LF_CLIFO->TEL3 - HELP "Numero telefonico terzo recapito" +PROMPT 43 7 "" +FIELD LF_CLIFO->TEL3 +HELP "Numero telefonico terzo recapito" END STRING F_PFAX 10 BEGIN - PROMPT 2 8 "Fax " - FIELD LF_CLIFO->PFAX - HELP "Prefisso del numero di fax" +PROMPT 2 8 "Fax " +FIELD LF_CLIFO->PFAX +HELP "Prefisso del numero di fax" END STRING F_FAX 30 BEGIN - PROMPT 43 8 "" - FIELD LF_CLIFO->FAX - HELP "Numero telefonico del fax" +PROMPT 43 8 "" +FIELD LF_CLIFO->FAX +HELP "Numero telefonico del fax" END STRING F_PTELEX 10 BEGIN - PROMPT 2 9 "Telex " - FIELD LF_CLIFO->PTELEX - HELP "Prefisso del numero di telex" +PROMPT 2 9 "Telex " +FIELD LF_CLIFO->PTELEX +HELP "Prefisso del numero di telex" END STRING F_TELEX 30 BEGIN - PROMPT 43 9 "" - FIELD LF_CLIFO->TELEX - HELP "Numero telefonico del telex" +PROMPT 43 9 "" +FIELD LF_CLIFO->TELEX +HELP "Numero telefonico del telex" END GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 1 11 "Percipiente" +PROMPT 1 11 "Percipiente" END LIST F_TIPOAPER 1 9 BEGIN - PROMPT 2 12 "Tipo " - FIELD LF_CLIFO->TIPOAPER - FLAGS "D" - ITEM "F|Fisica" - ITEM "G|Giuridica" +PROMPT 2 12 "Tipo " +FIELD LF_CLIFO->TIPOAPER +FLAGS "D" +ITEM "F|Fisica" +ITEM "G|Giuridica" END NUMBER F_CODANAGPER 5 BEGIN - PROMPT 61 12 "Codice " - FIELD LF_CLIFO->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 +PROMPT 61 12 "Codice " +FIELD LF_CLIFO->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 +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 +PROMPT 1 15 "Dati di nascita" +GROUP 5 END DATE F_DATANASC BEGIN - PROMPT 2 16 "Data " - FIELD LF_CLIFO->DATANASC - GROUP 5 - HELP "Data di nascita del clinete/fornitore" +PROMPT 2 16 "Data " +FIELD LF_CLIFO->DATANASC +GROUP 5 +HELP "Data di nascita del clinete/fornitore" END NUMBER F_STATONASC 3 BEGIN - PROMPT 38 16 "Stato " - FIELD LF_CLIFO->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" - ADD MASK ba4100a +PROMPT 38 16 "Stato " +FIELD LF_CLIFO->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" +ADD MASK ba4100a END STRING F_COMNASC 4 BEGIN - PROMPT 60 16 "Comune " - FIELD LF_CLIFO->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 MASK ba4100a +PROMPT 60 16 "Comune " +FIELD LF_CLIFO->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 MASK ba4100a 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 MASK ba4100a +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 MASK ba4100a END ENDPAGE @@ -562,184 +562,184 @@ PAGE "Pag. 3" -1 -1 78 19 GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 1 0 "Dati identificativi" +PROMPT 1 0 "Dati identificativi" END LIST DLG_NULL 1 12 BEGIN - PROMPT 2 1 "Tipo " - FLAGS "D" - GROUP 1 - ITEM "C|Clienti" - ITEM "F|Fornitori" +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 +PROMPT 2 2 "Codice " +FLAGS "RD" +GROUP 2 END STRING DLG_NULL 30 BEGIN - PROMPT 23 1 "Cognome / Rag. Soc. " - FLAGS "D" - GROUP 3 +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 +PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " +FLAGS "D" +GROUP 6 END NUMBER F_CODABI 5 BEGIN - PROMPT 2 4 "Codice ABI " - FIELD LF_CLIFO->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 +PROMPT 2 4 "Codice ABI " +FIELD LF_CLIFO->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 LF_CLIFO->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 +PROMPT 56 4 "Codice CAB " +FIELD LF_CLIFO->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 +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 " - FIELD LF_CLIFO->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 +PROMPT 2 6 "Valuta " +FIELD LF_CLIFO->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 +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 LF_CLIFO->CODLIN - USE %LNG - 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 +PROMPT 2 7 "Lingua " +FIELD LF_CLIFO->CODLIN +USE %LNG +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 +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 LF_CLIFO->CODPAG - FLAGS "UZ" - 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 +PROMPT 2 8 "Pagamento " +FIELD LF_CLIFO->CODPAG +FLAGS "UZ" +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 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 +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 LF_CLIFO->FIDO - FLAGS "R" - PICTURE "." - HELP "Importo massimo fido del cliente/fornitore" +PROMPT 2 9 "Fido " +FIELD LF_CLIFO->FIDO +FLAGS "R" +PICTURE "." +HELP "Importo massimo fido del cliente/fornitore" END GROUPBOX DLG_NULL 76 4 BEGIN - PROMPT 1 10 "Conto cliente/fornitore" +PROMPT 1 10 "Conto cliente/fornitore" END NUMBER F_GRUPPO 3 BEGIN - PROMPT 2 11 "Gruppo " - FIELD LF_CLIFO->GRUPPO - FLAGS "R" - HELP "Codice del gruppo" +PROMPT 2 11 "Gruppo " +FIELD LF_CLIFO->GRUPPO +FLAGS "R" +HELP "Codice del gruppo" END NUMBER F_CONTO 3 BEGIN - PROMPT 27 11 "Conto " - FIELD LF_CLIFO->CONTO - FLAGS "R" - USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) +PROMPT 27 11 "Conto " +FIELD LF_CLIFO->CONTO +FLAGS "R" +USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) INPUT GRUPPO F_GRUPPO INPUT CONTO F_CONTO DISPLAY "Gruppo" GRUPPO @@ -752,10 +752,10 @@ BEGIN CHECKTYPE NORMAL WARNING "Il conto deve essere di tipo clienti o fornitori" ADD RUN cg0 -0 -END + END -STRING F_DESCONTO 50 -BEGIN + STRING F_DESCONTO 50 + BEGIN PROMPT 2 12 "Descrizione " USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) INPUT DESCR F_DESCONTO @@ -765,37 +765,37 @@ BEGIN COPY OUTPUT F_CONTO CHECKTYPE NORMAL ADD RUN cg0 -0 -END + END -GROUPBOX DLG_RIC 76 4 -BEGIN + GROUPBOX DLG_RIC 76 4 + BEGIN PROMPT 1 14 "Conto di ricavo" -END + END -GROUPBOX DLG_CST 76 4 -BEGIN + GROUPBOX DLG_CST 76 4 + BEGIN PROMPT 1 14 "Conto di costo" FLAGS "H" -END + END -NUMBER F_GRUPPORIC 3 -BEGIN + NUMBER F_GRUPPORIC 3 + BEGIN PROMPT 2 15 "Gruppo " FIELD LF_CLIFO->GRUPPORIC FLAGS "R" HELP "Gruppo di contropartita" -END + END -NUMBER F_CONTORIC 3 -BEGIN + NUMBER F_CONTORIC 3 + BEGIN PROMPT 27 15 "Conto " FIELD LF_CLIFO->CONTORIC FLAGS "R" HELP "Conto di contropartita" -END + END -NUMBER F_SOTTOCRIC 6 -BEGIN + NUMBER F_SOTTOCRIC 6 + BEGIN PROMPT 47 15 "Sottoconto " FIELD LF_CLIFO->SOTTOCRIC FLAGS "R" @@ -814,10 +814,10 @@ BEGIN HELP "Sottoconto di contropartita" CHECKTYPE NORMAL ADD RUN cg0 -0 -END + END -STRING F_DESCRIC 50 -BEGIN + STRING F_DESCRIC 50 + BEGIN PROMPT 2 16 "Descrizione " USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" INPUT DESCR F_DESCRIC @@ -828,51 +828,51 @@ BEGIN COPY OUTPUT F_SOTTOCRIC CHECKTYPE NORMAL ADD RUN cg0 -0 -END + END -ENDPAGE + ENDPAGE -PAGE "Pag. 4" -1 -1 78 19 + PAGE "Pag. 4" -1 -1 78 19 -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 0 "Dati identificativi" -END + END -LIST DLG_NULL 1 12 -BEGIN + LIST DLG_NULL 1 12 + BEGIN PROMPT 2 1 "Tipo " FIELD LF_INDSP->TIPOCF FLAGS "D" GROUP 1 ITEM "C|Clienti" ITEM "F|Fornitori" -END + END -NUMBER DLG_NULL 6 -BEGIN + NUMBER DLG_NULL 6 + BEGIN PROMPT 2 2 "Codice " FIELD LF_INDSP->CODCF FLAGS "RD" GROUP 2 -END + END -STRING DLG_NULL 30 -BEGIN + STRING DLG_NULL 30 + BEGIN PROMPT 23 1 "Cognome / Rag. Soc. " FLAGS "D" GROUP 3 -END + END -STRING DLG_NULL 20 -BEGIN + STRING DLG_NULL 20 + BEGIN PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " FLAGS "D" GROUP 6 -END + END -SPREADSHEET F_SHEET_G_VEN -BEGIN + SPREADSHEET F_SHEET_G_VEN + BEGIN PROMPT 0 5 "" ITEM "Ragione Sociale@50" ITEM "Indirizzo@35" @@ -887,51 +887,51 @@ BEGIN ITEM "Numero fax@30" ITEM "Iva Rid." ITEM "Codice" -END + END -ENDPAGE + ENDPAGE -PAGE "Pag. 5" -1 -1 78 19 + PAGE "Pag. 5" -1 -1 78 19 -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 0 "Dati identificativi" -END + END -LIST F_TIPOCFVEN 1 12 -BEGIN + LIST F_TIPOCFVEN 1 12 + BEGIN PROMPT 2 1 "Tipo " FIELD LF_CFVEN->TIPOCF FLAGS "D" GROUP 1 ITEM "C|Clienti" ITEM "F|Fornitori" -END + END -NUMBER F_CODCFVEN 6 -BEGIN + NUMBER F_CODCFVEN 6 + BEGIN PROMPT 2 2 "Codice " FIELD LF_CFVEN->CODCF FLAGS "RD" GROUP 2 -END + END -STRING DLG_NULL 30 -BEGIN + STRING DLG_NULL 30 + BEGIN PROMPT 23 1 "Cognome / Rag. Soc. " FLAGS "D" GROUP 3 -END + END -STRING DLG_NULL 20 -BEGIN + STRING DLG_NULL 20 + BEGIN PROMPT 23 2 "Nome / seconda parte Rag. Soc. " FLAGS "D" GROUP 6 -END + END -NUMBER F_CODINDDOC 3 -BEGIN + NUMBER F_CODINDDOC 3 + BEGIN PROMPT 2 5 "Codice indirizzo documento " FIELD LF_CFVEN->CODINDDOC GROUP 7 @@ -940,10 +940,10 @@ BEGIN OUTPUT F_CODINDDOC HELP "Codice indirizzi di pag.4" CHECKTYPE NORMAL -END + END -STRING F_CODNOTE 2 -BEGIN + STRING F_CODNOTE 2 + BEGIN PROMPT 43 5 "Codice Note Cli/Fo " FIELD LF_CFVEN->CODNOTE USE %NOT @@ -955,10 +955,10 @@ BEGIN OUTPUT F_CODNOTE CODTAB HELP "Codice note cliente/fornitore" CHECKTYPE NORMAL -END + END -STRING F_CODLEG 2 -BEGIN + STRING F_CODLEG 2 + BEGIN PROMPT 2 8 "Codice Legale " FIELD LF_CFVEN->CODLEG GROUP 7 @@ -969,10 +969,10 @@ BEGIN OUTPUT F_CODLEG CODTAB HELP "Codice legale per contenzioso" CHECKTYPE NORMAL -END + END -STRING F_CODCATC 2 -BEGIN + STRING F_CODCATC 2 + BEGIN PROMPT 43 8 "Codice Categoria contabile " FIELD LF_CFVEN->CODCATC USE %CCO @@ -982,18 +982,18 @@ BEGIN OUTPUT F_CODCATC CODTAB HELP "Codice categoria contabile del C/F" CHECKTYPE NORMAL -END + END -STRING F_CODPRCF 10 -BEGIN + STRING F_CODPRCF 10 + BEGIN PROMPT 2 11 "Codice presso cliente " FIELD LF_CFVEN->CODPRCF GROUP 7 HELP "Codice meccanografico assegnato dal cliente" -END + END -NUMBER F_CODINDSP 3 -BEGIN + NUMBER F_CODINDSP 3 + BEGIN PROMPT 43 11 "Codice indirizzo spedizione " FIELD LF_CFVEN->CODINDSP GROUP 7 @@ -1002,15 +1002,15 @@ BEGIN OUTPUT F_CODINDSP HELP "Codice dell'indirizzo di spedizione da proporre" CHECKTYPE NORMAL -END + END -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 14 "Dati Agente" -END + END -STRING F_CODZONA 2 -BEGIN + STRING F_CODZONA 2 + BEGIN PROMPT 2 15 "Codice Zona " FIELD LF_CFVEN->CODZONA GROUP 7 @@ -1021,10 +1021,10 @@ BEGIN OUTPUT F_CODZONA CODTAB HELP "Codice della zona dell'agente" CHECKTYPE NORMAL -END + END -STRING F_CODAG 5 -BEGIN + STRING F_CODAG 5 + BEGIN PROMPT 44 15 "Codice agente " FLAGS "UZ" FIELD LF_CFVEN->CODAG @@ -1036,35 +1036,35 @@ BEGIN CHECKTYPE NORMAL GROUP 7 HELP "Codice dell'agente di cui si serve il cliente" -END + END -NUMBER F_PROVV 5 2 -BEGIN + NUMBER F_PROVV 5 2 + BEGIN PROMPT 2 16 "Provvigione " FIELD LF_CFVEN->PROVV GROUP 7 HELP "Provvigione percepita dall'agente" -END + END -BOOLEAN F_LIQPAG -BEGIN + BOOLEAN F_LIQPAG + BEGIN PROMPT 46 16 "Liquidazione provvigioni" FIELD LF_CFVEN->LIQPAG GROUP 7 HELP "Indicare se si usa la liquidazione provvigioni" -END + END -ENDPAGE + ENDPAGE -PAGE "Pag. 6" -1 -1 78 19 + PAGE "Pag. 6" -1 -1 78 19 -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 0 "Dati identificativi" -END + END -LIST DLG_NULL 1 12 -BEGIN + LIST DLG_NULL 1 12 + BEGIN PROMPT 2 1 "Tipo " FLAGS "DG" GROUP 1 @@ -1072,31 +1072,31 @@ BEGIN MESSAGE HIDE,F_CODCASS|SHOW,F_CODFASS|"F",F_TEMP ITEM "F|Fornitori" MESSAGE HIDE,F_CODFASS|SHOW,F_CODCASS|"C",F_TEMP -END + END -NUMBER DLG_NULL 6 -BEGIN + NUMBER DLG_NULL 6 + BEGIN PROMPT 2 2 "Codice " FLAGS "RD" GROUP 2 -END + END -STRING DLG_NULL 30 -BEGIN + STRING DLG_NULL 30 + BEGIN PROMPT 23 1 "Cognome / Rag. Soc. " FLAGS "D" GROUP 3 -END + END -STRING DLG_NULL 20 -BEGIN + STRING DLG_NULL 20 + BEGIN PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " FLAGS "D" GROUP 6 -END + END -STRING F_CODNOTESP1 2 -BEGIN + STRING F_CODNOTESP1 2 + BEGIN PROMPT 2 4 "Codici note documento " FIELD LF_CFVEN->CODNOTESP1 GROUP 7 @@ -1107,10 +1107,10 @@ BEGIN OUTPUT F_CODNOTESP1 CODTAB HELP "Primo codice delle note del documento" CHECKTYPE NORMAL -END + END -STRING F_CODNOTESP2 2 -BEGIN + STRING F_CODNOTESP2 2 + BEGIN PROMPT 33 4 "" FIELD LF_CFVEN->CODNOTESP2 GROUP 7 @@ -1120,10 +1120,10 @@ BEGIN OUTPUT F_CODNOTESP2 CODTAB HELP "Secondo codice delle note del documento" CHECKTYPE NORMAL -END + END -STRING F_CODSPMEZZO 2 -BEGIN + STRING F_CODSPMEZZO 2 + BEGIN PROMPT 46 4 "Codice modalita spedizione " FIELD LF_CFVEN->CODSPMEZZO USE %MSP @@ -1133,16 +1133,16 @@ BEGIN OUTPUT F_CODSPMEZZO CODTAB HELP "Codice modalita' di spedizione/a mezzo" CHECKTYPE NORMAL -END + END -GROUPBOX DLG_NULL 20 5 -BEGIN - PROMPT 1 6 "Vettori" -END + GROUPBOX DLG_NULL 20 5 + BEGIN + PROMPT 1 5 "Vettori" + END -NUMBER F_CODVETT1 3 -BEGIN - PROMPT 2 7 "Vettore 1 " + NUMBER F_CODVETT1 5 + BEGIN + PROMPT 2 6 "Vettore 1 " FIELD LF_CFVEN->CODVETT1 FLAGS "Z" GROUP 7 @@ -1151,11 +1151,11 @@ BEGIN DISPLAY "Codice vettore" CODTAB DISPLAY "Ragione sociale@50" S0 OUTPUT F_CODVETT1 CODTAB -END + END -NUMBER F_CODVETT2 3 -BEGIN - PROMPT 2 8 "Vettore 2 " + NUMBER F_CODVETT2 5 + BEGIN + PROMPT 2 7 "Vettore 2 " FIELD LF_CFVEN->CODVETT2 FLAGS "Z" GROUP 7 @@ -1163,11 +1163,11 @@ BEGIN INPUT CODTAB F_CODVETT2 COPY DISPLAY F_CODVETT1 OUTPUT F_CODVETT2 CODTAB -END + END -NUMBER F_CODVETT3 3 -BEGIN - PROMPT 2 9 "Vettore 3 " + NUMBER F_CODVETT3 5 + BEGIN + PROMPT 2 8 "Vettore 3 " FIELD LF_CFVEN->CODVETT3 FLAGS "Z" GROUP 7 @@ -1175,11 +1175,35 @@ BEGIN INPUT CODTAB F_CODVETT3 COPY DISPLAY F_CODVETT1 OUTPUT F_CODVETT3 CODTAB -END + END -STRING F_CODPORTO 2 -BEGIN - PROMPT 23 6 "Porto " + NUMBER F_SPED1 5 + BEGIN + PROMPT 23 6 "Spedizioniere 1 " + FIELD LF_CFVEN->SPED1 + FLAGS "Z" + GROUP 7 + COPY USE F_CODVETT1 + INPUT CODTAB F_SPED1 + COPY DISPLAY F_CODVETT1 + OUTPUT F_SPED1 CODTAB + END + + NUMBER F_SPED2 5 + BEGIN + PROMPT 51 6 "Spedizioniere 2 " + FIELD LF_CFVEN->SPED2 + FLAGS "Z" + GROUP 7 + COPY USE F_CODVETT1 + INPUT CODTAB F_SPED2 + COPY DISPLAY F_CODVETT1 + OUTPUT F_SPED2 CODTAB + END + + STRING F_CODPORTO 3 + BEGIN + PROMPT 23 7 "Porto " FIELD LF_CFVEN->CODPORTO USE %POR INPUT CODTAB F_CODPORTO @@ -1188,42 +1212,42 @@ BEGIN OUTPUT F_CODPORTO CODTAB HELP "Codice della modalita' di consegna/porto" CHECKTYPE NORMAL -END + END -BOOLEAN F_RAGGDOC -BEGIN + 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 + END -NUMBER F_NCOPIE 2 -BEGIN + NUMBER F_NCOPIE 2 + BEGIN PROMPT 58 8 "Numero copie " FIELD LF_CFVEN->NCOPIE GROUP 7 HELP "Numero di copie dei documenti" -END + END -TEXT F_CODFASS -BEGIN + TEXT F_CODFASS + BEGIN PROMPT 23 9 "Codice fornitore associato " -END + END -TEXT F_CODCASS -BEGIN + TEXT F_CODCASS + BEGIN PROMPT 23 9 "Codice cliente associato " -END + END -STRING F_TEMP 1 -BEGIN + STRING F_TEMP 1 + BEGIN PROMPT 56 8 "" FLAGS "HD" -END + END -NUMBER F_CODCFASS 6 -BEGIN + NUMBER F_CODCFASS 6 + BEGIN PROMPT 58 9 "" FIELD LF_CFVEN->CODCFASS USE LF_CLIFO KEY 1 @@ -1234,10 +1258,10 @@ BEGIN OUTPUT F_CODCFASS CODCF HELP "Codice del fornitore/cliente associato" CHECKTYPE NORMAL -END + END -NUMBER F_ASSFIS 2 -BEGIN + NUMBER F_ASSFIS 4 + BEGIN PROMPT 2 11 "Codice Assoggettamento fiscale " FIELD LF_CFVEN->ASSFIS FLAGS "Z" @@ -1247,62 +1271,62 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_ASSFIS CODTAB HELP "Codice d'assoggettamento fiscale" -END + END -BOOLEAN F_FATTSOSP -BEGIN + 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 + END -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 13 "Dati lettera esenzione" -END + END -STRING F_VSNRPROT 7 -BEGIN + 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 + END -DATE F_VSDATAREG -BEGIN + DATE F_VSDATAREG + BEGIN PROMPT 40 14 "Vs data registrazione " FIELD LF_CFVEN->VSDATAREG GROUP 7 HELP "Data di registrazione della lettera" -END + END -STRING F_NSNRPROT 7 -BEGIN + 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 + END -DATE F_NSDATAREG -BEGIN + DATE F_NSDATAREG + BEGIN PROMPT 40 15 "Ns data registrazione " FIELD LF_CFVEN->NSDATAREG GROUP 7 HELP "Data di registrazione della lettera" -END + END -BOOLEAN F_ADDBNS1500 -BEGIN + 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 + END -STRING F_CATFIN 2 -BEGIN + STRING F_CATFIN 2 + BEGIN PROMPT 46 17 "Categoria finanziaria " FIELD LF_CFVEN->CATFIN USE %CFI @@ -1311,49 +1335,49 @@ BEGIN DISPLAY "Descrizione@30" S0 OUTPUT F_CATFIN CODTAB HELP "Codice della categoria finanziaria" -END + END -ENDPAGE + ENDPAGE -PAGE "Pag. 7" -1 -1 78 19 + PAGE "Pag. 7" -1 -1 78 19 -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 0 "Dati identificativi" -END + END -LIST DLG_NULL 1 12 -BEGIN + LIST DLG_NULL 1 12 + BEGIN PROMPT 2 1 "Tipo " FLAGS "D" GROUP 1 ITEM "C|Clienti" ITEM "F|Fornitori" -END + END -NUMBER DLG_NULL 6 -BEGIN + NUMBER DLG_NULL 6 + BEGIN PROMPT 2 2 "Codice " FLAGS "RD" GROUP 2 -END + END -STRING DLG_NULL 30 -BEGIN + STRING DLG_NULL 30 + BEGIN PROMPT 23 1 "Cognome / Rag. Soc. " FLAGS "D" GROUP 3 -END + END -STRING DLG_NULL 20 -BEGIN + STRING DLG_NULL 20 + BEGIN PROMPT 23 2 "Nome / Seconda Parte Rag. Soc. " FLAGS "D" GROUP 6 -END + END -NUMBER F_CODABIPR 5 -BEGIN + NUMBER F_CODABIPR 5 + BEGIN PROMPT 2 4 "Codice ABI effetti " FIELD LF_CFVEN->CODABIPR FLAGS "Z" @@ -1364,10 +1388,10 @@ BEGIN OUTPUT F_CODBANPR CODTAB[6,10] HELP "Codice ABI della banca presentazione effetti" CHECKTYPE NORMAL -END + END -NUMBER F_CODBANPR 5 -BEGIN + NUMBER F_CODBANPR 5 + BEGIN PROMPT 45 4 "Codice CAB effetti " FIELD LF_CFVEN->CODCABPR FLAGS "Z" @@ -1379,10 +1403,10 @@ BEGIN OUTPUT F_CODBANPR CODTAB[6,10] HELP "Codice CAB della banca presentazione effetti" CHECKTYPE NORMAL -END + END -NUMBER F_CODINDEFF 3 -BEGIN + NUMBER F_CODINDEFF 3 + BEGIN PROMPT 2 6 "Codice indirizzo effetti " FIELD LF_CFVEN->CODINDEFF GROUP 7 @@ -1391,91 +1415,91 @@ BEGIN OUTPUT F_CODINDEFF HELP "Codice indirizzo effetti" CHECKTYPE NORMAL -END + END -BOOLEAN F_EMEFFRICH -BEGIN + BOOLEAN F_EMEFFRICH + BEGIN PROMPT 45 6 "Emissione effetti" FIELD LF_CFVEN->EMEFFRICH GROUP 7 HELP "Indicare se emettere effetti a richiesta" -END + END -NUMBER F_IMPMINEFF 6 -BEGIN + NUMBER F_IMPMINEFF 6 + BEGIN PROMPT 2 7 "Importo minimo effetti " FIELD LF_CFVEN->IMPMINEFF GROUP 7 HELP "Importo minimo effetti" -END + END -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 9 "Periodo Effetti" -END + END -STRING F_NONACCEFF 20 -BEGIN + 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 + END -STRING F_NONSCADEFF 20 -BEGIN + 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 + END -GROUPBOX DLG_NULL 76 3 -BEGIN + GROUPBOX DLG_NULL 76 3 + BEGIN PROMPT 1 13 "Addebiti" -END + END -BOOLEAN F_ADDBOLLIRB -BEGIN + BOOLEAN F_ADDBOLLIRB + BEGIN PROMPT 2 14 "Bolli Ricevute bancarie " FIELD LF_CFVEN->ADDBOLLIRB GROUP 7 HELP "Indicare se addebitare bolli ricevute bancarie" -END + END -BOOLEAN F_ADDBOLLITR -BEGIN + BOOLEAN F_ADDBOLLITR + BEGIN PROMPT 34 14 "Bolli Tratte " FIELD LF_CFVEN->ADDBOLLITR GROUP 7 HELP "Indicare se addebitare bolli tratte" -END + END -BOOLEAN F_ADDSPINC -BEGIN + BOOLEAN F_ADDSPINC + BEGIN PROMPT 58 14 "Spese incasso " FIELD LF_CFVEN->ADDSPINC GROUP 7 HELP "Indicare se addebitare spese d'incasso" -END + END -BOOLEAN F_IVARID -BEGIN + BOOLEAN F_IVARID + BEGIN PROMPT 2 16 "Aliquota ridotta " FIELD LF_CFVEN->IVARID GROUP 7 HELP "Indicare se applicare l'aliquota ridotta" -END + END -BOOLEAN F_GESTCONTR -BEGIN + BOOLEAN F_GESTCONTR + BEGIN PROMPT 26 16 "Gestione contratto" FIELD LF_CFVEN->GESTCONTR HELP "Indicare se si gestisce un contratto" -END + END -STRING F_CATVEN 2 -BEGIN + STRING F_CATVEN 2 + BEGIN PROMPT 54 16 "Categoria vendita " FIELD LF_CFVEN->CATVEN GROUP 7 @@ -1486,54 +1510,54 @@ BEGIN OUTPUT F_CATVEN CODTAB HELP "Codice della categoria di vendita" CHECKTYPE NORMAL -END + END -ENDPAGE + ENDPAGE -PAGE "Pag. 8" -1 -1 78 19 + PAGE "Pag. 8" -1 -1 78 19 -GROUPBOX DLG_NULL 76 4 -BEGIN + GROUPBOX DLG_NULL 76 4 + BEGIN PROMPT 1 0 "Dati identificativi" -END + END -LIST DLG_NULL 1 12 -BEGIN + LIST DLG_NULL 1 12 + BEGIN PROMPT 2 1 "Tipo " FLAGS "D" GROUP 1 ITEM "C|Clienti" ITEM "F|Fornitori" -END + END -NUMBER DLG_NULL 6 -BEGIN + NUMBER DLG_NULL 6 + BEGIN PROMPT 2 2 "Codice " FLAGS "RD" GROUP 2 -END + END -STRING DLG_NULL 30 -BEGIN + STRING DLG_NULL 30 + BEGIN PROMPT 23 1 "Cognome / Rag. Soc. " FLAGS "D" GROUP 3 -END + END -STRING DLG_NULL 20 -BEGIN + STRING DLG_NULL 20 + BEGIN PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " FLAGS "D" GROUP 6 -END + END -GROUPBOX DLG_NULL 45 4 -BEGIN + GROUPBOX DLG_NULL 45 4 + BEGIN PROMPT 1 4 "Spese da addebitare" -END + END -STRING F_CODSP1 3 -BEGIN + STRING F_CODSP1 3 + BEGIN PROMPT 2 5 "Spesa 1 " FIELD LF_CFVEN->CODSP1 GROUP 7 @@ -1544,10 +1568,10 @@ BEGIN OUTPUT F_CODSP1 CODTAB HELP "Codici delle spese da addebitare" CHECKTYPE NORMAL -END + END -STRING F_CODSP2 3 -BEGIN + STRING F_CODSP2 3 + BEGIN PROMPT 24 5 "Spesa 2 " FIELD LF_CFVEN->CODSP2 GROUP 7 @@ -1557,10 +1581,10 @@ BEGIN OUTPUT F_CODSP2 CODTAB HELP "Codici delle spese da addebitare" CHECKTYPE NORMAL -END + END -STRING F_CODSP3 3 -BEGIN + STRING F_CODSP3 3 + BEGIN PROMPT 2 6 "Spesa 3 " FIELD LF_CFVEN->CODSP3 GROUP 7 @@ -1570,10 +1594,10 @@ BEGIN OUTPUT F_CODSP3 CODTAB HELP "Codici delle spese da addebitare" CHECKTYPE NORMAL -END + END -STRING F_CODSP4 3 -BEGIN + STRING F_CODSP4 3 + BEGIN PROMPT 24 6 "Spesa 4 " FIELD LF_CFVEN->CODSP4 GROUP 7 @@ -1583,17 +1607,17 @@ BEGIN OUTPUT F_CODSP4 CODTAB HELP "Codici delle spese da addebitare" CHECKTYPE NORMAL -END + END -STRING F_CODMAG 3 -BEGIN + STRING F_CODMAG 3 + BEGIN PROMPT 48 5 "Codice magazzino " FIELD LF_CFVEN->CODMAG HELP "Codice del magazzino movimentato" -END + END -STRING F_CODLIST 5 -BEGIN + STRING F_CODLIST 5 + BEGIN PROMPT 48 6 "Codice listino " FIELD LF_CFVEN->CODLIST USE %LIS @@ -1603,10 +1627,10 @@ BEGIN OUTPUT F_CODLIST CODTAB HELP "Codice listino utilizzato" CHECKTYPE NORMAL -END + END -STRING F_CODSCINC 2 -BEGIN + STRING F_CODSCINC 3 + BEGIN PROMPT 2 8 "Sconto incondizionato " FIELD LF_CFVEN->CODSCINC USE %SCO @@ -1617,59 +1641,59 @@ BEGIN OUTPUT F_CODSCINC CODTAB HELP "Codice dello sconto incondizionato" CHECKTYPE NORMAL -END + END -NUMBER F_SCONTOCL 5 2 -BEGIN + NUMBER F_SCONTOCL 5 2 + BEGIN PROMPT 48 8 "Sconto cliente " FIELD LF_CFVEN->SCONTOCL FLAGS "R" PICTURE ".2" HELP "Percentuale sconto applicato" -END + END -STRING F_SCONTOR 15 -BEGIN + STRING F_SCONTOR 15 + BEGIN PROMPT 2 9 "Sconto di riga " FIELD LF_CFVEN->SCONTOR 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 + END -STRING F_PROFSOLL 5 -BEGIN + STRING F_PROFSOLL 5 + BEGIN PROMPT 2 11 "Profilo sollecito " FIELD LF_CFVEN->PROFSOLL GROUP 7 HELP "Codice del profilo sollecito" -END + END -NUMBER F_MAXSOLL 2 -BEGIN + NUMBER F_MAXSOLL 2 + BEGIN PROMPT 47 11 "Numero solleciti " FIELD LF_CFVEN->MAXSOLL GROUP 7 HELP "Massimo numero di solleciti" -END + END -DATE F_DATAESC -BEGIN + DATE F_DATAESC + BEGIN PROMPT 2 12 "Ultimo estratto conto " FIELD LF_CFVEN->DATAESC GROUP 7 HELP "Data dell'ultimo estratto conto" -END + END -DATE F_DATASOLL -BEGIN + DATE F_DATASOLL + BEGIN PROMPT 47 12 "Ultimo sollecito " FIELD LF_CFVEN->DATASOLL GROUP 7 HELP "Data dell'ultimo sollecito" -END + END -STRING F_TITOLO 2 -BEGIN + STRING F_TITOLO 2 + BEGIN PROMPT 2 13 "Titolo onorifico " FIELD LF_CFVEN->TITOLO GROUP 7 @@ -1679,10 +1703,10 @@ BEGIN DISPLAY "Descrizione@30" S0 OUTPUT F_TITOLO CODTAB HELP "Codice del titolo onorifico" -END + END -LIST F_RAGGOR 1 16 -BEGIN + LIST F_RAGGOR 1 16 + BEGIN PROMPT 2 15 "Raggruppamento ordine " FIELD LF_CFVEN->RAGGOR GROUP 7 @@ -1690,44 +1714,44 @@ BEGIN ITEM "O|Intero ordine" ITEM "R|Intera riga" ITEM "P|Anche parziale" -END + END -NUMBER F_PREVORD 2 -BEGIN + NUMBER F_PREVORD 2 + BEGIN PROMPT 2 16 "Priorita' ordine " FIELD LF_CFVEN->PREVORD GROUP 7 HELP "Priorita' di evasione dell'ordine" -END + END -STRING F_TIPOEVORD 2 -BEGIN + STRING F_TIPOEVORD 2 + BEGIN PROMPT 2 17 "Tipo evasione ordine " FIELD LF_CFVEN->TIPOEVORD GROUP 7 HELP "Tipo di evasione dell'ordine" -END + END -NUMBER F_MINORD 15 -BEGIN + NUMBER F_MINORD 15 + BEGIN PROMPT 40 16 "Importo minimo " FIELD LF_CFVEN->MINORD GROUP 7 PICTURE "." HELP "Importo minimo dell'ordine" -END + END -NUMBER F_MAXORD 15 -BEGIN + NUMBER F_MAXORD 15 + BEGIN PROMPT 40 17 "Importo massimo " FIELD LF_CFVEN->MAXORD GROUP 7 PICTURE "." HELP "Importo massimo dell'ordine" -END + END -ENDPAGE + ENDPAGE -ENDMASK + ENDMASK #include "cg0200b.uml"