Hi,
I have a really strange problem when I try to sort a dbf file using the command SORT ON .

In this self-contained sample

www.softwarexp.co.uk/beta/browse.zip
I create a new dbf (date ordered) form a source dbf but the order is incorrect (see www.softwarexp.co.uk/beta/browse.gif)

Any ideas ? Thanks in advance.

I confirm what Otto has found.

EMG

Hi Enrico,
How did you check the dates ?

I checked them using the Norton Commander dbview and the Open Office "Calc" and all displayed well.

Marco, try your code with
SET CENTURY ON
Regards,
Otto

include "FiveWin.ch"

function Main()
set century on
set date french

use testm

sort on lb02/a to results
use

USE results

Browse()

USE

return nil

Enrico Maria Giordano wrote:I confirm what Otto has found.

Marco Turco wrote:Hi Enrico,
How did you check the dates ?

I checked them using the Norton Commander dbview and the Open Office "Calc" and all displayed well.

Yes, it was a date issue.

I was unable to detect it due the fact that my (very very old) Norton Commander dbView displayed those dates exactly.

Thanks to all for the support.

Marco Turco wrote:Yes, it was a date issue.

I was unable to detect it due the fact that my (very very old) Norton Commander dbView displayed those dates exactly.

Thanks to all for the support.

        REDEFINE LISTBOX oLbx1 FIELDS ;
                     PADC(History->STATUS,3)  ,;    // STATUS "S" or blank
               Right(History->HISTNUMB,5) , ;       // Autom.number
               Right(History->FILENUMB,6) , ;       // File number
     SCTOC(DTOC(StoD(History->HISTDATE))) , ;       // Date (dd-mm-yy)
.....
                   HEADERS  "St."          ,;
                           "Hist"        ,;
                           "File"        ,;
                           "Off.Date"     ,;

Function SCTOC(x)
*---------------- Returns a date (Char type) from 10 chars to 8 chars (Sort)
* SCTOC(DTOC(StoD(History->HISTDATE))),;         // Date (dd-mm-yy)
   Local z := ""

   if len(x) == 8
      Return (x)
   endif
   z := left(x, 6)  +;  // 18-01-2003
        right(x,2)
   Return (z)