170 lines
3.1 KiB
Plaintext
Executable File
170 lines
3.1 KiB
Plaintext
Executable File
#include "ef0200.h"
|
|
|
|
PAGE "Selezione dati" -1 1 78 21
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 0 "Dati clienti"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 2 1 "Cliente "
|
|
USE LF_CLIFO KEY 1
|
|
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
|
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Comune@50" LF_COMUNI->DENCOM
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
OUTPUT F_INDIRIZZO INDCF
|
|
OUTPUT F_CODABI CODABI
|
|
OUTPUT F_CODCAB CODCAB
|
|
OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC
|
|
OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB
|
|
OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR
|
|
OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500
|
|
OUTPUT F_COMUNE LF_COMUNI->DENCOM
|
|
OUTPUT F_PROV LF_COMUNI->PROVCOM
|
|
HELP "Inserire il codice del cliente"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 1 ""
|
|
USE LF_CLIFO KEY 2
|
|
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
|
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODCF
|
|
END
|
|
|
|
STRING F_INDIRIZZO 35
|
|
BEGIN
|
|
PROMPT 2 2 "Indirizzo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_COMUNE 50
|
|
BEGIN
|
|
PROMPT 2 3 "Comune "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PROV 2
|
|
BEGIN
|
|
PROMPT 70 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODABI 5
|
|
BEGIN
|
|
PROMPT 2 5 "Banca d'appoggio "
|
|
FLAGS "RZ"
|
|
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
|
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_CODCAB CODTAB[6,10]
|
|
CHECKTYPE NORMAL
|
|
HELP "Inserire il codice della banca d'appoggio"
|
|
END
|
|
|
|
NUMBER F_CODCAB 5
|
|
BEGIN
|
|
PROMPT 32 5 ""
|
|
FLAGS "RZ"
|
|
USE %BAN
|
|
INPUT CODTAB[1,5] F_CODABI
|
|
INPUT CODTAB[6,10] F_CODCAB
|
|
COPY DISPLAY F_CODABI
|
|
COPY OUTPUT F_CODABI
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LIST F_TIPOEFF 18
|
|
BEGIN
|
|
PROMPT 43 5 "Tipo effetto "
|
|
ITEM "2|Tratta"
|
|
ITEM "3|Ricevuta bancaria"
|
|
HELP "Inserire il tipo dell'effetto"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 35 4
|
|
BEGIN
|
|
PROMPT 1 6 "Addebiti"
|
|
END
|
|
|
|
BOOLEAN F_ADDSPINC
|
|
BEGIN
|
|
PROMPT 2 7 "Sp. incasso"
|
|
HELP "Flag di addebito delle spese d'incasso"
|
|
END
|
|
|
|
BOOLEAN F_ADDBOLLIRB
|
|
BEGIN
|
|
PROMPT 19 7 "Bolli R.B."
|
|
HELP "Flag di addebito bolli delle R.B. "
|
|
END
|
|
|
|
BOOLEAN F_ADDBOLLITR
|
|
BEGIN
|
|
PROMPT 2 8 "Bolli Tr."
|
|
HELP "Flag di addebito bolli delle tratte"
|
|
END
|
|
|
|
BOOLEAN F_ADDBNS1500
|
|
BEGIN
|
|
PROMPT 19 8 "Bollo esente"
|
|
HELP "Flag di addebito dei bolli"
|
|
END
|
|
|
|
BUTTON DLG_PARTITE 9 2
|
|
BEGIN
|
|
PROMPT 39 8 "~Partite"
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT 52 8 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT 65 8 ""
|
|
END
|
|
|
|
STRING F_RESIDUO 15
|
|
BEGIN
|
|
PROMPT 2 10 "Residuo da ripartire "
|
|
FLAGS "RD"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_EFF 74 8
|
|
BEGIN
|
|
PROMPT 2 12 "Immissione effetti"
|
|
ITEM "Data scad."
|
|
ITEM "Importo rata@15 R"
|
|
ITEM "Spese incasso@15 R"
|
|
ITEM "Importo bolli@15 R"
|
|
ITEM "Importo effetto@15 R"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
#include "ef0200b.uml"
|