215 lines
2.9 KiB
Plaintext
Executable File
215 lines
2.9 KiB
Plaintext
Executable File
#include "veconf.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione spese incasso" 1 1 60 14
|
|
|
|
NUMBER F_IMPSPINC1 9
|
|
BEGIN
|
|
PROMPT 2 2 "Importo spese per rimesse dirette "
|
|
FIELD IMPSPINC[1]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC2 9
|
|
BEGIN
|
|
PROMPT 2 3 "Importo spese per tratte "
|
|
FIELD IMPSPINC[2]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC3 9
|
|
BEGIN
|
|
PROMPT 2 4 "Importo spese per ricevute bancarie "
|
|
FIELD IMPSPINC[3]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC4 9
|
|
BEGIN
|
|
PROMPT 2 5 "Importo spese per cessioni "
|
|
FIELD IMPSPINC[4]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC5 9
|
|
BEGIN
|
|
PROMPT 2 6 "Importo spese per paghero' "
|
|
FIELD IMPSPINC[5]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC6 9
|
|
BEGIN
|
|
PROMPT 2 7 "Importo spese per lettere di credito "
|
|
FIELD F_IMPSPINC[6]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC7 9
|
|
BEGIN
|
|
PROMPT 2 8 "Importo spese per tratte accettate "
|
|
FIELD IMPSPINC[7]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC8 9
|
|
BEGIN
|
|
PROMPT 2 9 "Importo spese per R.I.D. "
|
|
FIELD IMPSPINC[8]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IMPSPINC9 9
|
|
BEGIN
|
|
PROMPT 2 10 "Importo spese per bonifici "
|
|
FIELD IMPSPINC[9]
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Gestione spese bolli" 1 1 60 14
|
|
|
|
NUMBER F_SPBOSCA1 11
|
|
BEGIN
|
|
PROMPT 2 2 "Scaglione "
|
|
FIELD SPBOSCA[1]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP1 11
|
|
BEGIN
|
|
PROMPT 25 2 "Importo "
|
|
FIELD SPBOIMP[1]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA2 11
|
|
BEGIN
|
|
PROMPT 2 3 "Scaglione "
|
|
FIELD SPBOSCA[2]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP2 11
|
|
BEGIN
|
|
PROMPT 25 3 "Importo "
|
|
FIELD SPBOIMP[2]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA3 11
|
|
BEGIN
|
|
PROMPT 2 4 "Scaglione "
|
|
FIELD SPBOSCA[3]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP3 11
|
|
BEGIN
|
|
PROMPT 25 4 "Importo "
|
|
FIELD SPBOIMP[3]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA4 11
|
|
BEGIN
|
|
PROMPT 2 5 "Scaglione "
|
|
FIELD SPBOSCA[4]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP4 11
|
|
BEGIN
|
|
PROMPT 25 5 "Importo "
|
|
FIELD SPBOIMP[4]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA5 11
|
|
BEGIN
|
|
PROMPT 2 6 "Scaglione "
|
|
FIELD SPBOSCA[5]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP5 11
|
|
BEGIN
|
|
PROMPT 25 6 "Importo "
|
|
FIELD SPBOIMP[5]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA6 11
|
|
BEGIN
|
|
PROMPT 2 7 "Scaglione "
|
|
FIELD SPBOSCA[6]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP6 11
|
|
BEGIN
|
|
PROMPT 25 7 "Importo "
|
|
FIELD SPBOIMP[6]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOSCA7 11
|
|
BEGIN
|
|
PROMPT 2 8 "Scaglione "
|
|
FIELD SPBOSCA[7]
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_SPBOIMP7 11
|
|
BEGIN
|
|
PROMPT 25 8 "Importo "
|
|
FIELD SPBOIMP[7]
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Gestione omaggi" 1 1 60 14
|
|
|
|
STRING F_TIPORIGAOM 4
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo riga per omaggi "
|
|
FIELD TROMAGGI
|
|
FLAGS "U"
|
|
USE %TRI SELECT S7=="O"
|
|
INPUT CODTAB F_TIPORIGAOM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPORIGAOM CODTAB
|
|
OUTPUT F_DESCRRIGAOM S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCRRIGAOM 50
|
|
BEGIN
|
|
PROMPT 23 3 ""
|
|
USE %TRI KEY 2 SELECT S7=="O"
|
|
INPUT S0 F_DESCRRIGAOM
|
|
COPY DISPLAY F_TIPORIGAOM
|
|
COPY OUTPUT F_TIPORIGAOM
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|