68 lines
1.1 KiB
Plaintext
68 lines
1.1 KiB
Plaintext
|
#include "pg0001400a.h"
|
||
|
|
|
||
|
|
PAGE "Stampa bollettini postali" -1 -1 76 15
|
||
|
|
|
||
|
|
LIST F_TIPODIST 18
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 "Tipo Distinta "
|
||
|
|
KEY 4
|
||
|
|
ITEM "I|All'incasso"
|
||
|
|
ITEM "B|Salvo buon fine"
|
||
|
|
ITEM "S|Allo sconto"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NUMBER 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Numero Distinta "
|
||
|
|
KEY 4
|
||
|
|
USE LF_EFFETTI KEY 4 SELECT (NRIGADIST=1)
|
||
|
|
INPUT NDIST F_NUMBER
|
||
|
|
INPUT TIPODIST F_TIPODIST
|
||
|
|
INPUT NRIGADIST F_NUMBERRIGA
|
||
|
|
DISPLAY "Tipo" TIPODIST
|
||
|
|
DISPLAY "Nr. distinta" NDIST
|
||
|
|
DISPLAY "Data@10" DATADIST
|
||
|
|
DISPLAY "C/F" TIPOCF
|
||
|
|
DISPLAY "ABI@5" CODABIP
|
||
|
|
DISPLAY "CABI@5" CODCABP
|
||
|
|
OUTPUT F_NUMBER NDIST
|
||
|
|
OUTPUT F_TIPODIST TIPODIST
|
||
|
|
OUTPUT F_NUMBERRIGA NRIGADIST
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
ADD RUN ef0 -2
|
||
|
|
END
|
||
|
|
|
||
|
|
/* CAMPO NASCOSTO CHE SERVE PER LA RICERCA */
|
||
|
|
LIST F_NUMBERRIGA 12
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 60 "Numero Riga Distinta"
|
||
|
|
KEY 4
|
||
|
|
ITEM "1|PRIMA RIGA"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
DATA F_DATAEMIS
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Data Emissione "
|
||
|
|
FLAGS "A"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRINFA F_CAUSALE 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 9 " Causale "
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_OK 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
ENDMASK
|
||
|
|
|