Problem with TDataRow and number

[Maurizio]

Hello
there is a problem in the class TDataRow

METHOD Modified call the Method EqualVal

For the problem of floating point arithmetic ( https://groups.google.com/forum/#!starr ... XRFGCDhSzQ )
the line

lEq := ( x == y )

sometimes return .f. even if the numbers are equal and Modified() return .t.
with ADO this generates an error in ::SaveADO oRs:Update( aCols, aVals )

Regards Maurizio

[nageswaragunupudi]

lEq := ( x == y )

sometimes return .f. even if the numbers are equal and Modified() return .t.

I agree that this is possible at times.
Do you have any suggestions? What about
lEq := ( cValToChar( x ) == cValToChar( y ) ) ?

with ADO this generates an error in ::SaveADO oRs:Update( aCols, aVals )

I do not understand why this should give an error? In the worst case a field us updated with the same value and this should not raise an error. Can you please help me to understand better?

[Maurizio]

I try
lEq := ( cValToChar( x ) == cValToChar( y ) ) ?
but dosn't work

for the moment I use

IF Str( oRec:TOT_DOC, 16, 2 ) != Str( oRec:TOT_DOC , 16, 2 )
//? "Different values"
oRec:TOT_DOC := ::nTotaleFattura
ENDIF

I do not understand why this should give an error? In the worst case a field us updated with the same value and this should not raise an error. Can you please help me to understand better?

I have this error http://i.imgur.com/CRYOfdn.png

[nageswaragunupudi]

Can you be kind enough to translate the error message into English?

[Maurizio]

Unable to locate the row specified for the upgrade is possible that some values have changed since the last read

I have this error when I do
oRs:update() without changing any data in oRs .

[nageswaragunupudi]

May I know if the table has a primary key and the sql includes the primary key?
Do you mind reproducing the sql statement for creating the record set?

[Maurizio]

May I know if the table has a primary key ?

Yes

and the sql includes the primary key?

sorry I dont understand

Do you mind reproducing the sql statement for creating the record set?

Code: Select all  Expand view

oRs :=  FW_OpenRecordSet( M->oServer ,"select * from lis_fat where lis_fat.nume = 1234 " )
 oRec  := TDataRow():New( oRs)
.
.
 
  // IF Str(  oRec:TOT_DOC, 16, 2 ) != Str(  nTotaleFattura , 16, 2 )
  //     ? "Different values"
        oRec:TOT_DOC    := ::nTotaleFattura                 //  Totale documento
  //  ENDIF

.
.

 oRec:Save()
 
 oRs:Close()
 

[nageswaragunupudi]

This kind of error can occur when either the ADO does not know the primary key and does not know where to save or if the record is modified by some other routine in our program.

The solution is not avoid saving, but ensure proper saving. I am trying to figure out what must be happening