Told you it has been a long day Here it is as I have it now
Sorry Note vpo_number is text While vpo_number <> QUIT -- 1PRINT AP_Internal_Detail WHERE pon = .vpo_number + -- 1OPTION PRINTER -- + -- |DUPLEX HORIZONTAL + -- 1|COLLATION ON + -- 1|COPIES 1 + -- 1|ORIENTATION PORTRAIT + -- |PRINTER_NAME \\rsd01\RICOH Aficio SP 8100DN PCL6 LABEL loop1 CLEAR VAR vpo_number DIALOG 'Enter A CDI Job# or ESC to exit (AP_Internal_Detail):' vpo_number=10 vkey 1 IF vkey = '[esc]' THEN GOTO finish ENDIF IF vkey = '[enter]' AND vpo_number IS NULL THEN RUN errmsg.rmd USING 'No PO# Number Entered - Press Any Key to Enter One' GOTO loop1 ENDIF CLEAR VAR vpon SET VAR vpon = pon FROM master WHERE pon = .vpo_number IF vpon IS NULL THEN RUN errmsg.rmd USING 'CDI Job# Not found' -- GOTO loop1 ENDIF endwhile LABEL finish RETURN Stephen
