1767 lines
32 KiB
Plaintext
Executable File
1767 lines
32 KiB
Plaintext
Executable File
#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"
|
|
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 Zona " CODTAB
|
|
DISPLAY "Descrizione@30" 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->PROVV
|
|
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"
|