SET Exact ON
SET Exclusive OFF 
SET Multilocks OFF
SET Fixed OFF   
SET Deleted ON
SET Optimize ON
SET Unique OFF
SET Lock OFF
SET EngineBehavior 90 
 
cItem = INPUTBOX("Enter part number.", "cItem", "")
 
IF EMPTY(cItem)
    RETURN
ENDIF  
 
SELECT DISTINCT r.item, l.islocked, l.useridl, l.datel, l.isapproved, l.useridu, l.dateu, l.isnew, 0 as sel ; 
  FROM config!rl r LEFT JOIN rllock l ;
    ON r.item == l.item ; 
  WHERE LEFT(r.item,4)<>"XXXX" AND (r.item LIKE alltrim(citem)+'%' OR ;
    r.item LIKE 'XXX'+ alltrim(citem)+'%');
  INTO CURSOR csRoutingListI READWRITE
 
******
******
TRY 
    SELECT csRoutingListI
    MESSAGEBOX("Checkpoint1: " + ALIAS(SELECT()) + " reccount: " + ALLTRIM(STR(RECCOUNT())))
    BROWSE TITLE "Press ESC to continue..."
CATCH
    MESSAGEBOX("Error displaying checkpoint1." + CHR(13) + CHR(10) + MESSAGE())
ENDTRY 
******
****** 
 
PUBLIC nConn
OPEN DATABASE Syspro SHARED
nConn=SQLCONNECT('iw_SQL')
SQLEXEC(nConn,"SELECT DISTINCT ParentPart as Item FROM BomStructure WHERE ParentPart = ?cItem","csBomStructure")
 
******
******
TRY 
    SELECT csBomStructure
    MESSAGEBOX("Checkpoint2: " + ALIAS(SELECT()) + " reccount: " + ALLTRIM(STR(RECCOUNT())))
    BROWSE TITLE "Press ESC to continue..."
CATCH
    MESSAGEBOX("Error displaying checkpoint2." + CHR(13) + CHR(10) + MESSAGE())
ENDTRY 
******
******
 
SELECT a.*, IIF(!ISNULL(b.item), .t., .f.) as lbom ;
  FROM csRoutingListI a ;
  LEFT JOIN csBomStructure b ON b.item = IIF(SUBSTR(UPPER(ALLTRIM(a.item)),1,3)=="XXX", SUBSTR(alltrim(a.item),4), ALLTRIM(a.item)) ;
  INTO CURSOR csRoutingList READWRITE
  
******
******
TRY 
    SELECT csRoutingList 
    MESSAGEBOX("Checkpoint3: " + ALIAS(SELECT()) + " reccount: " + ALLTRIM(STR(RECCOUNT())))
    BROWSE TITLE "Press ESC to continue..."
CATCH
    MESSAGEBOX("Error displaying checkpoint3." + CHR(13) + CHR(10) + MESSAGE())
ENDTRY 
******
******