IF DID=657 THEN '-----------------------------------------enter podet automatically
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.Open "select PRID, POQUOTEREFID, SUPPLIERID FROM PO WHERE POID=" & ID, Conn
	PRID=rs(0):IF PRID=0 OR ISNULL(PRID) THEN RESPONSE.Write ("SELECT PR"):RESPONSE.END
	POQUOTEREFID=rs(1):IF POQUOTEREFID=0 OR ISNULL(POQUOTEREFID) THEN RESPONSE.Write ("SELECT POQUOTEREF"):RESPONSE.END
	SUPPLIERID=rs(2):IF SUPPLIERID=0 OR ISNULL(SUPPLIERID) THEN RESPONSE.Write ("SELECT SUPPLIER"):RESPONSE.END
	rs.Close
	Set rs = Nothing
	IF POQUOTEREFID=1 THEN'-------------------------------------------IF LAST PO REF
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.Open "select ITEMID, QTY FROM PRDET WHERE PRID=" & PRID, Conn
	While NOT rs.EOF
	ITEMID=rs(0):IF ISNULL(ITEMID) THEN ITEMID=0
	QTY=rs(1):IF ISNULL(QTY) THEN QTY=0
	'---------------------------------------------------------------find rate from last po
	set rss=Server.CreateObject("ADODB.Recordset")
	rss.Open "select RATE FROM PODETFIND WHERE ITEMID=" & ITEMID & " AND SUPPLIERID=" & SUPPLIERID, Conn
	IF NOT rss.EOF THEN
	RATE=rss(0):IF ISNULL(RATE) THEN RATE=0
	ELSE
	RATE=0
	END IF
	rss.Close
	Set rss = Nothing
	'----------------------------------------------------------------
	ISQL="INSERT INTO PODET (POID, ITEMID, RATE, QTY) VALUES (" & ID & ", " & ITEMID & ", " & RATE & ", " & QTY & ")"
	RESPONSE.Write ISQL
	Conn.Execute ISQL
	rs.MoveNext
	wend
	rs.Close
	Set rs = Nothing
	ELSE'-----------------------------------------------------------update from quote
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.Open "select ITEMID, QTY FROM PRDET WHERE PRID=" & PRID, Conn
	While NOT rs.EOF
	ITEMID=rs(0):IF ISNULL(ITEMID) THEN ITEMID=0
	QTY=rs(1):IF ISNULL(QTY) THEN QTY=0
	''---------------------------------------------------------------find rate from quote
	set rss=Server.CreateObject("ADODB.Recordset")
	rss.Open "select RATE FROM PODETQUOTEFIND WHERE ITEMID=" & ITEMID & " AND SUPPLIERID=" & SUPPLIERID, Conn
	IF NOT rss.EOF THEN
	RATE=rss(0):IF ISNULL(RATE) THEN RATE=0
	ELSE
	RATE=0
	END IF
	rss.Close
	Set rss = Nothing
	'----------------------------------------------------------------
	ISQL="INSERT INTO PODET (POID, ITEMID, RATE, QTY) VALUES (" & ID & ", " & ITEMID & ", " & RATE & ", " & QTY & ")"
	RESPONSE.Write ISQL
	Conn.Execute ISQL
	rs.MoveNext
	wend
	rs.Close
	Set rs = Nothing
    END IF
END IF