<SCRIPT language="SpeedScript">
/* Modify the "&SCOPE-DEFINE..." lines to customize this browse. */ &SCOPED-DEFINE Query-Table Customer &SCOPED-DEFINE Query-Field Name &SCOPED-DEFINE Query-Index Name &SCOPED-DEFINE Filter-Field Salesrep &SCOPED-DEFINE Display-Fields "<TR><TD>" Customer.Name "</TD><TD>"~ Customer.Cust-num "</TD></TR>" &SCOPED-DEFINE Result-Rows 10 DEFINE VARIABLE jumpto-value AS CHARACTER NO-UNDO. DEFINE VARIABLE {&Filter-Field}-key AS CHARACTER NO-UNDO. DEFINE VARIABLE repo-to AS INTEGER NO-UNDO. DEFINE VARIABLE iCount AS INTEGER NO-UNDO. DEFINE VARIABLE JumpForm AS CHARACTER NO-UNDO. DEFINE VARIABLE TmpUrl AS CHARACTER NO-UNDO. DEFINE VARIABLE DelimiterField AS CHARACTER NO-UNDO. /* Get all the fields from the input */ ASSIGN JumpForm = get-field("NoJumpForm":U) jumpto-value = get-field("jumpto-name":U) repo-to = INTEGER(get-field("repo-to":U)) NO-ERROR. {&Filter-Field}-key = get-field("{&Filter-Field}":U). /* Display "Jump To" Form. This form will not be displayed if "NoJumpForm=yes" requested */ IF JumpForm EQ"":U THEN DO: </SCRIPT> |