04.11.2009, 23:13 | #1 |
Участник
|
Есть код в кодеюните 5802:
[sql] WITH LedgEntryDim DO BEGIN SETRANGE("Table ID",DATABASE::"Value Entry"); SETRANGE("Entry No.",ValueEntryNo); IF FIND('-') THEN REPEAT IF NOT TempDimBufIn.GET("Table ID","Entry No.","Dimension Code") THEN BEGIN TempDimBufIn.INIT; TempDimBufIn."Table ID" := "Table ID"; TempDimBufIn."Entry No." := "Entry No."; TempDimBufIn."Dimension Code" := "Dimension Code"; TempDimBufIn."Dimension Value Code" := "Dimension Value Code"; TempDimBufIn.INSERT; END; UNTIL NEXT = 0; END; IF TempDimBufIn.FIND('-') THEN BEGIN DimEntryNo := DimBufMgt.FindDimensions(TempDimBufIn); IF DimEntryNo = 0 THEN DimEntryNo := DimBufMgt.InsertDimensions(TempDimBufIn); END ELSE DimEntryNo := 0; EXIT(DimEntryNo);[/sql] По монитору клиента вижу что: [sql]IF FIND('-') THEN SELECT * FROM "CRONUS Россия ЗАО$Ledger Entry Dimension" WITH (UPDLOCK) WHERE (("Table ID"=?)) AND (("Entry No_"=?)) ORDER BY "Table ID","Entry No_","Dimension Code" Clustered Index Seek(CRONUS Россия ЗАО$Ledger Entry Dimension$0)[2,1] Table ID,Entry No.,Dimension Code ID: 1225;New;Prepared;Dynamic;Rows: 1;UpdateNoLocks [/sql] Возникает вопрос, как сделать чтобы запрос был с READUNCOMMITTED, а не с UPDLOCK ? FINDSET(FALSE, FALSE) пробовал - результат тот же, никак не могу понять где порылась собака. Помогите кто умеет.... |
|