campo-sirio/ef/ef0200a.uml

#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 16
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"