CALL SUPER::ue_import_data
dw_import.reset()
dw_import.importfile(text!,"")
vtrans_time = f_get_server_datetime()
vrow =  1 
DO WHILE vrow <= dw_import.rowcount() //5
	vbranchcode = dw_import.getitemstring(vrow,"branchcode")
	vphcode = dw_import.getitemstring(vrow,"phcode")
	vbranchcustcode = THIS.dw_import.getitemnumber(vrow,"branchcustcode")
	dw_import.setitem(vrow,"usercode",usercode)
	dw_import.setitem(vrow,"trans_time",vtrans_time)
	dw_import.setitem(vrow,"dsource", 1 )
	dw_import.setitem(vrow,"phcodestatus", 1 )
	dw_import.setitem(vrow,"picgiftlimit", 0 )
	dw_import.setitem(vrow,"picdebit", 0 )
	dw_import.setitem(vrow,"piccredit", 0 )
	dw_import.setitem(vrow,"picpoints", 0 )
	dw_import.setitem(vrow,"picdiscounts", 0 )
	dw_import.setitem(vrow,"picpurchase", 0 )
	dw_import.setitem(vrow,"picip", 0 )
	dw_import.setitem(vrow,"picdied", 0 )
	dw_import.setitem(vrow,"custpiccredit", 0 )
	dw_import.setitem(vrow,"custdebit", 0 )
	dw_import.setitem(vrow,"custcredit", 0 )
	dw_import.setitem(vrow,"custdateactive",datetime(date(vtrans_time)))
	dw_import.setitem(vrow,"orderbranchcode",vbranchcode)
	insert into localcustomerspoints ( branchcode , phcode , totpoints , conpoints ) values ( :ver_branch , :vphcode ,  0 . 0  ,  0 . 0  )  USING sqlca;
	IF sqlca.sqlcode <>  0  THEN //27
		messagebox("Error #222.54","Can NOT Save .. Consult vendor !!")
		ROLLBACK USING sqlca;
		RETURN
	END IF //27
	update lastdocnumbers set lastdocnumbers.branchcustcode =:vbranchcustcode where lastdocnumbers.branchcode =:ver_branch  USING sqlca;
	IF sqlca.sqlcode <>  0  THEN //33
		messagebox("Error #222.58","Can NOT Save .. Consult vendor !!")
		ROLLBACK USING sqlca;
		RETURN
	END IF //33
	vrow ++
LOOP //5
dw_import.accepttext()
IF dw_import.update() =  1  THEN //40
	COMMIT USING sqlca;