SELECT Import
SCAN

	sPartNo = ALLTRIM(Import.PartNo)
	iPartId = 0
	
	sCommand = "exec ap_GetPartIdByPartNo ?@sPartNo, ?@iPartId OUTPUT "
	iResult = SQLEXEC(iConnHandle , sCommand)

	IF iResult < 0
		AERROR(ArrayName)
	ENDIF

ENDSCAN