151 lines
2.5 KiB
Plaintext
Executable File
151 lines
2.5 KiB
Plaintext
Executable File
#include "ef0500.h"
|
|
|
|
PAGE "Emissione Effetti" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
LIST F_TIPODIST 18
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Distinta "
|
|
KEY 4
|
|
ITEM "I| All'incasso"
|
|
ITEM "B| Salvo buon fine"
|
|
ITEM "S| Allo sconto"
|
|
END
|
|
|
|
NUMBER F_NUMBER 7
|
|
BEGIN
|
|
PROMPT 45 1 "Numero Distinta "
|
|
FLAGS "R"
|
|
KEY 4
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST = 1
|
|
INPUT NDIST F_NUMBER
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NRIGADIST F_NUMBERRIGA
|
|
DISPLAY "Nr. distinta" NDIST
|
|
DISPLAY "Tipo distinta" TIPODIST
|
|
OUTPUT F_NUMBER NDIST
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_NUMBERRIGA NRIGADIST
|
|
CHECKTYPE NORMAL
|
|
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
|
|
|
|
|
|
RADIOBUTTON F_TIPOEMIS 32
|
|
BEGIN
|
|
PROMPT 25 3 "Tipo Emissione "
|
|
ITEM "1| Emissione RI.BA. su floppy"
|
|
MESSAGE DISABLE,2@|DISABLE,4@|DISABLE,5@
|
|
MESSAGE ENABLE,1@
|
|
ITEM "2| Emissione RI.BA. su carta"
|
|
MESSAGE DISABLE,1@
|
|
MESSAGE ENABLE,2@
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 3
|
|
BEGIN
|
|
PROMPT 1 7 ""
|
|
GROUP 1
|
|
END
|
|
|
|
LIST F_UNITA 9
|
|
BEGIN
|
|
PROMPT 2 8 "Unità di output "
|
|
ITEM "A| Drive A"
|
|
ITEM "B| Drive B"
|
|
GROUP 1
|
|
END
|
|
|
|
LIST F_FOR_OUT 7
|
|
BEGIN
|
|
PROMPT 45 8 "Formato unità output "
|
|
ITEM "1|360 Kb"
|
|
ITEM "2|720 Kb"
|
|
ITEM "3|1,2 Mb"
|
|
ITEM "4|1,44 Mb"
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 10 ""
|
|
GROUP 2
|
|
END
|
|
|
|
LIST F_EMIS 20
|
|
BEGIN
|
|
PROMPT 2 11 "Emissione "
|
|
ITEM "1| Emissione effetti"
|
|
MESSAGE DISABLE,4@|ENABLE,5@
|
|
ITEM "2| Emissione distinta"
|
|
MESSAGE ENABLE,4@|DISABLE,5@
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_NCOPIE 3
|
|
BEGIN
|
|
PROMPT 2 12 "Numero copie "
|
|
NUM_EXPR {(#THIS_FIELD >= 0)}
|
|
WARNING "Il numero di copie deve essere positivo"
|
|
GROUP 2
|
|
END
|
|
|
|
LIST F_TIPORD 14
|
|
BEGIN
|
|
PROMPT 2 13 "Tipo Ordinamento "
|
|
ITEM "S| Scadenza "
|
|
ITEM "F| Fattura "
|
|
GROUP 4
|
|
END
|
|
|
|
LIST F_TIPOST 14
|
|
BEGIN
|
|
PROMPT 45 12 "Tipo di Stampa "
|
|
ITEM "P| Provvisoria"
|
|
ITEM "D| Definitiva"
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_RIST
|
|
BEGIN
|
|
PROMPT 45 13 "Ristampo RI.BA."
|
|
GROUP 5
|
|
END
|
|
|
|
DATA F_DATAEMIS
|
|
BEGIN
|
|
PROMPT 2 15 "Data Emissione "
|
|
FLAGS "A"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|