подскажите можно-ли использовать Мodify с datastore
почему-то не работает.


l_origin_clause = ""
l_ac_clause = ""

StartDate = uo_1.of_start_end_date(TRUE)
EndDate = uo_1.of_start_end_date(FALSE)

l_origin_oid = dw_city.getItemNumber(1, 'city_oid')

l_ac_oid = dw_ac.getItemNumber(1, 'aircraft_oid')
if not isnull(l_origin_oid) then
l_origin_clause = ' and flight_data.origination_oid = '+ string(l_origin_oid)
end if

if not isnull(l_ac_oid) then
l_ac_clause = ' and flight_data.aircraft_oid = ' + string(l_ac_oid)
end if

if ((uo_1.em_start.text <> "00/00/00") or (uo_1.em_end.text <> "00/00/00" )) then
l_date_clause = l_date_clause + " and flight_data.actual_time_out >= '" + String(uo_1.of_start_end_Date(True)) + "' "
l_date_clause = l_date_clause + " and flight_data.actual_time_out < DateAdd(d, 1, '" + String(uo_1.of_start_end_Date(False)) + "') "
end if


ModifiedWhere = "DataWindow.Table.Select='" + OriginalWhereClause + l_origin_clause + l_ac_clause + l_date_clause + "'"

ds.Modify(modifiedWhere)
ds.Retrieve()

//if isnull(l_inv_oid) or l_inv_oid = 0 then return

total_rows = DS.RowCount() // Etot statement daet 0)

Тогда, в чем проблема, может я что-то пропускаю.

После Мodify, Retrive не дает ни каких результатов. (total_rows всегда 0)

OriginalWhereClause возвращает query from Datawindow, эта часть работает, а вместе с Modify нет.

я пыталась run select statement отдельно, все работает, а в скрипте нет. ???

OriginalWhereClause возвращает query from Datawindow, эта часть работает, а вместе с Modify нет.

я пыталась run select statement отдельно, все работает, а в скрипте нет. ???

pomeniala...
if ((uo_1.em_start.text <> "00/00/00") or (uo_1.em_end.text <> "00/00/00" )) then
l_date_clause = l_date_clause + " and flight_data.actual_time_out >= ~~~'" + String(uo_1.of_start_end_Date(True)) + "~~~' "
l_date_clause = l_date_clause + " and flight_data.actual_time_out < DateAdd(d, 1, ~~~'" + String(uo_1.of_start_end_Date(False)) + "~~~') "
end if


ModifiedWhere = "'" + OriginalWhereClause + l_origin_clause + l_ac_clause + l_date_clause + "'"

DS.Reset()
DS.SetSQLSelect(modifiedWhere)

DS.Retrieve()

//if isnull(l_inv_oid) or l_inv_oid = 0 then return

l_file_dir = "\\ntserver02\LOG_PAGE\"
total_rows = DS.RowCount()

Vse ravno Total_rows is 0.

Retrieve() = -1,
proverila code oshibki = ""
??

SQLErrText is ""

А SetTransObject вы используете?

Da

я использую SetTransObject в open()

DS = CREATE DATASTORE
Ret = CREATE DATASTORE

DS.DataObject = 'dw_logpage_datastore'

DS.SetTransObject(SQLCA)

OriginalWhereClause = ds.Describe("DataWindow.Table.Select")
//OriginalWhereClause = SELECT distinct
aircraft = (select aircraft_id from aircraft_data where oid = flight_data.aircraft_oid),
flight_data.log_page,
Origin = (Select location_id from location_master where oid = flight_data.origination_oid),
date = (select min(actual_time_off) from flight_data fd where log_page = flight_data.log_page)
FROM flight_data
WHERE
flight_data.status_sym = 'Completed'

//
THEN.....в clicked()



StartDate = uo_1.of_start_end_date(TRUE)
EndDate = uo_1.of_start_end_date(FALSE)

l_origin_oid = dw_city.getItemNumber(1, 'city_oid')

l_ac_oid = dw_ac.getItemNumber(1, 'aircraft_oid')
if not isnull(l_origin_oid) then
l_origin_clause = ' and flight_data.origination_oid = '+ string(l_origin_oid)
end if

if not isnull(l_ac_oid) then
l_ac_clause = ' and flight_data.aircraft_oid = ' + string(l_ac_oid)
end if
//ds.Reset()
//DS.Retrieve(StartDate, EndDate, l_origin_oid, l_ac_oid)

////***************Если Датавиндоу имеет аргументы, все работало, но мне нужно было поменять, сделать без аргументов и с Modify Select statement.
//// i
if ((uo_1.em_start.text <> "00/00/00") or (uo_1.em_end.text <> "00/00/00" )) then
l_date_clause = l_date_clause + " and flight_data.actual_time_out >= ~~~'" + String(uo_1.of_start_end_Date(True)) + "~~~' "
l_date_clause = l_date_clause + " and flight_data.actual_time_out < DateAdd(d, 1, ~~~'" + String(uo_1.of_start_end_Date(False)) + "~~~') "
end if


ModifiedWhere = "'" + OriginalWhereClause + l_origin_clause + l_ac_clause + l_date_clause + "'"

//ModifiedWhere = ' SELECT distinct
aircraft = (select aircraft_id from aircraft_data where oid = flight_data.aircraft_oid),
flight_data.log_page,
Origin = (Select location_id from location_master where oid = flight_data.origination_oid),
date = (select min(actual_time_off) from flight_data fd where log_page = flight_data.log_page)
FROM flight_data
WHERE
flight_data.status_sym = 'Completed'

and flight_data.origination_oid = 1399 and flight_data.aircraft_oid = 111 and flight_data.actual_time_out >= ~'6/1/2006 00:00:00~' and flight_data.actual_time_out < DateAdd(d, 1, ~'8/17/2006 00:00:00~') '//

//DS.Reset()
error_check = DS.SetSQLSelect(modifiedWhere)
//error_check = 1//
error_check = DS.Retrieve()
//error_check = -1//

if DS.Retrieve() = 1 then
lsErr = "Database has been updated."
commit;
else
lsErr = sqlca.SQLErrText

//lsErr = ""//
rollback;
end if;
MessageBox("Save",lsErr)


//if isnull(l_inv_oid) or l_inv_oid = 0 then return

l_file_dir = "\\ntserver02\LOG_PAGE\"
total_rows = DS.RowCount()
For CurRow = 1 To DS.RowCount()
ReturnValue = w_reports.dw_1.InsertRow(0)


l_log_page = ds.object.log_page[CurRow]


l_file_name = l_log_page + ".pdf"

l_file_location = l_file_dir + l_file_name

if not FileExists ( l_File_Location ) then
w_reports.dw_1.object.file_exists[ReturnValue] = "NO"
else
w_reports.dw_1.object.file_exists[ReturnValue] = "YES"
end if
w_reports.dw_1.object.log_page[ReturnValue] = ds.object.log_page[CurRow]
w_reports.dw_1.object.ac_id[ReturnValue] = ds.object.aircraft[CurRow]
w_reports.dw_1.object.date[ReturnValue] = ds.object.Date[CurRow]
w_reports.dw_1.object.origin[ReturnValue] = ds.object.origin[CurRow]

Next

w_reports.dw_1.SetSort("file_exists , date")

w_reports.dw_1.Sort()
close(w_logpage_pdf_rpt)


*****Огромное спасибо всем за помощь*****

pomeniala nazad na Modify()
ds.modify() vozvraschaet error ..


Line 1, Column 439, Incorrect syntax.

Ia ne vizhu nichego wrong s syntax..

Modify...
' SELECT distinct
aircraft = (select aircraft_id from aircraft_data where oid = flight_data.aircraft_oid),
flight_data.log_page,
Origin = (Select location_id from location_master where oid = flight_data.origination_oid),
date = (select min(actual_time_off) from flight_data fd where log_page = flight_data.log_page)
FROM flight_data
WHERE flight_data.status_sym = 'Completed'
AND flight_data.actual_time_off >= '8/1/2006 00:00:00' and flight_data.actual_time_off <= '8/18/2006 00:00:00''

DataWindow.Table.Select=' SELECT distinct
aircraft = (select aircraft_id from aircraft_data where oid = flight_data.aircraft_oid),
flight_data.log_page,
Origin = (Select location_id from location_master where oid = flight_data.origination_oid),
date = (select min(actual_time_off) from flight_data fd where log_page = flight_data.log_page)
FROM flight_data
WHERE flight_data.status_sym = 'Completed'
AND flight_data.actual_time_off >= '8/1/2006 00:00:00' and flight_data.actual_time_off <= '8/18/2006 00:00:00''

Changed ModifyWhere
DataWindow.Table.Select=' SELECT distinct
aircraft = (select aircraft_id from aircraft_data where oid = flight_data.aircraft_oid),
flight_data.log_page,
Origin = (Select location_id from location_master where oid = flight_data.origination_oid),
date = (select min(actual_time_off) from flight_data fd where log_page = flight_data.log_page)
FROM flight_data
WHERE flight_data.status_sym = 'Completed'
AND flight_data.aircraft_oid = 111 AND flight_data.origination_oid = 1399 AND flight_data.actual_time_off >= ~'7/1/2006 00:00:00~' and flight_data.actual_time_off < DateAdd(d, 1, ~'7/31/2006 00:00:00~') '

vse ravno poluchau takuiu zhe error

Line 1, col 435 Incorrect syntax