campo-sirio/sc/sc2100a.uml
villa 6f39d41a3e Embrioni disseccati e scheletrici di sc2, stampa speranzosa degli
estratti conto


git-svn-id: svn://10.65.10.50/trunk@2093 c028cbd2-c16b-5b4b-a496-9718f37d4682
1995-11-06 11:10:50 +00:00

199 lines
2.7 KiB
Plaintext
Executable File

#include "sc2100a.h"
PAGE "Stampa estratti conto" -1 -1 68 17
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Cod. "
FLAGS "DFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50 46
BEGIN
PROMPT 13 1 "R.S. "
FLAGS "D"
END
GROUPBOX DLG_NULL 68 8
BEGIN
PROMPT 0 7 ""
END
STRING F_CODPROF 5
BEGIN
PROMPT 1 8 "Codice profilo "
USE LF_FORM KEY 1
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
INPUT CODPROF F_CODPROF
OUTPUT F_CODPROF CODPROF
OUTPUT F_DESPROF DESC
HELP ""
FLAGS ""
END
STRING F_DESPROF 50 30
BEGIN
PROMPT 34 8 " "
HELP ""
FLAGS "D"
END
DATE D_DATALIMOP
BEGIN
PROMPT 1 9 "Data limite operazione "
HELP ""
FLAGS "A"
CHECKTYPE REQUIRED
END
DATE D_DATALIMSC
BEGIN
PROMPT 1 10 "Data limite scaduto "
HELP ""
FLAGS ""
CHECKTYPE REQUIRED
END
NUMBER F_GIORISCH 3
BEGIN
PROMPT 1 11 "Giorni calcolo rischio "
HELP ""
FLAGS ""
END
BOOLEAN B_STAMPCHIU
BEGIN
PROMPT 1 12 "Stampa partite chiuse"
MESSAGE TRUE ENABLE,D_DATACHIU
MESSAGE FALSE DISABLE,D_DATACHIU
HELP ""
FLAGS ""
END
DATE D_DATACHIU
BEGIN
PROMPT 25 12 "dal "
HELP ""
FLAGS ""
END
STRING F_COMSEND 5
BEGIN
PROMPT 1 13 "Luogo d'invio "
USE LF_COMUNI KEY 1
INPUT COM F_COMSEND
INPUT DENCOM F_LUOGOSEND
DISPLAY "Codice" COM
DISPLAY "Descrizione@50" DENCOM
OUTPUT F_COMSEND COM
OUTPUT F_LUOGOSEND DENCOM
// CHECKTYPE NORMAL
END
STRING F_LUOGOSEND 50 20
BEGIN
PROMPT 24 13 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_LUOGOSEND
INPUT COM F_COMSEND
DISPLAY "Descrizione@50" DENCOM
DISPLAY "Codice" COM
OUTPUT F_COMSEND COM
OUTPUT F_LUOGOSEND DENCOM
// CHECKTYPE NORMAL
END
DATE D_DATASEND
BEGIN
PROMPT 50 13 "data "
HELP ""
FLAGS "A"
CHECKTYPE REQUIRED
END
BUTTON B_SELECT 10 1
BEGIN
PROMPT 51 3 "~Selezione"
HELP ""
FLAGS ""
END
BUTTON B_RESET 10 1
BEGIN
PROMPT 51 4 "~Azzera"
HELP ""
FLAGS ""
END
RADIOBUTTON R_CLIFO 20
BEGIN
PROMPT 1 2 "Selezione"
ITEM "1|Clienti"
ITEM "2|Fornitori"
HELP ""
FLAGS ""
END
RADIOBUTTON R_SORTCF 20
BEGIN
PROMPT 25 2 "Ordinamento"
ITEM "1|Per codice"
ITEM "2|Per ragione sociale"
HELP ""
FLAGS ""
END
NUMBER F_CFCODFR 5
BEGIN
PROMPT 1 6 "Da codice "
HELP ""
FLAGS ""
END
NUMBER F_CFCODTO 5
BEGIN
PROMPT 36 6 "a codice "
HELP ""
FLAGS ""
END
NUMBER F_NSEL 3
BEGIN
PROMPT 56 6 "N. "
FLAGS "D"
END
BUTTON B_CFCODFR 2 1
BEGIN
PROMPT 31 6 ""
PICTURE 109
END
BUTTON B_CFCODTO 2 1
BEGIN
PROMPT 51 6 ""
PICTURE 109
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK