I think is better this:

#ifdef HB_C52_STRICT
         if( uiLen > CDX_MAXKEY )
            uiLen = CDX_MAXKEY;
#endif

...

#ifndef HB_C52_STRICT
   else if ( bType == 'C' && uiLen > CDX_MAXKEY )
   {
      if( hb_cdxErrorRT( pArea, EG_DATAWIDTH, EDBF_INVALIDKEY, NULL, 0, 
EF_CANDEFAULT ) == E_DEFAULT )
        uiLen = CDX_MAXKEY;
      else
      {
        hb_vmDestroyBlockOrMacro( pKeyExp );
        SELF_GOTO( ( AREAP ) pArea, ulRecNo );
        return FAILURE;
      }
   }
#endif


Best regards,
Miguel Angel Marchuer
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to