Return in Input block
Posted in 1997
Hi, In field f005 if I send a RETURN key, I exit of the INPUT block (I want do that with the CTRL-P key). Why ? If I have a RETURN key, I want to go to the next line. Here my code -> 4GL ------ OPEN WINDOW w_l010 AT 03,03 WITH FORM "f_L010" ATTRIBUTE(FORM LINE FIRST, BORDER) DISPLAY " " AT 06,01 ATTRIBUTE(UNDERLINE, DIM) DISPLAY " Paragraphe Libre " AT 07,01 ATTRIBUTE(UNDERLINE, REVERSE, DIM) INPUT date1, date2, intitule2, remarque, libre FROM ve_l010.date1, ve_l010.date2, ve_l010.intitule, ve_l010.rem, ve_l010. libre ON KEY (CONTROL-P) EXIT INPUT END INPUT CLOSE WINDOW w_l010 -> f_L010.PER ------------- DATABASE indus SCREEN { Date 1 er Courrier Prestations : [f001 ] Date 2 i'me Courrier Prestations : [f002 ] Intitul' de la personne : [f003 ] Remarque : [f004 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] >[f005 ] } END TABLES indu ATTRIBUTES f001 = formonly.date1 TYPE DATE, REQUIRED, FORMAT = "dd/mm/yyyy", AUTONEXT; f002 = formonly.date2 TYPE DATE, REQUIRED, FORMAT = "dd/mm/yyyy", AUTONEXT; f003 = formonly.intitule, REQUIRED, COMMENTS=" Ex: Monsieur Le Directeur, Messieurs ....", AUTONEXT; f004 = formonly.rem, COMMENTS = " Ex: Rappel, Envoi Recommand{e, A.R ....", AUTONEXT; f005 = formonly.libre TYPE CHAR, WORDWRAP COMPRESS; END INSTRUCTIONS DELIMITERS " " SCREEN RECORD ve_L010(date1, date2, intitule, rem, libre) Amicalement Net.