DBU & Co -> Xbase++ [erledigt]

Eigentlich ist mir die Frage peinlich, aber es kann sonst niemand helfen ... :)

Moderator: Moderatoren

DBU & Co -> Xbase++ [erledigt]

Beitragvon AUGE_OHR » Sa, 09. Apr 2016 7:54

es gibt doch eine Anleitung dazu ... wie heisst die Datei ... ich finde die nicht 8)
Zuletzt geändert von AUGE_OHR am Sa, 09. Apr 2016 10:39, insgesamt 1-mal geändert.
gruss by OHR
Jimmy
Benutzeravatar
AUGE_OHR
Marvin
Marvin
 
Beiträge: 10315
Registriert: Do, 16. Mär 2006 8:55
Wohnort: Hamburg

Re: DBU & Co -> Xbase++

Beitragvon mini990 » Sa, 09. Apr 2016 8:45

Bittesehr...
Code: Alles auswählen
///////////////////////////////////////////////////////////////////////////////
//
//                             A  C  S  N
//
// +---------------  Alaska Certified Solutions Network  -------------------+
// |                                                                        |
// |        This file is proved and certified by Alaska Software            |
// |                                                                        |
// |                   No: <Certification number>                           |
// |                          109xxx-03-0003                                |
// |                                                                        |
// |   For more information about ACSN read the appropriate announcement    |
// |      or scan for ACSN in the Alaska Support-LIBs on CompuServe or      |
// |                   at WWW.ALASKA-SOFTWARE.COM                           |
// |                                                                        |
// +------------------------------------------------------------------------+
//
// FILE NAME
//
//    CLIPUTIL.TXT
//
// AUTHOR
//
//    (c) Copyright 1997, Hannes Ziegler
//
//    ALL RIGHTS RESERVED
//
//    This file is the property of AUTHOR. It participates in the
//    Alaska Certified Solutions Network program. Permission to use,
//    copy, modify, and distribute this software for any purpose and
//    without fee is hereby granted, provided that the above copyright
//    notice appear in all copies and that the name of the author or
//    Alaska Software not be used in advertising or publicity pertaining
//    to distribution of the software without specific, written prior
//    permission.
//
// WARRANTY
//
//    THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
//    AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
//    INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
//    FITNESS FOR A PARTICULAR PURPOSE.  IN NO EVENT SHALL THE AUTHOR
//    OR ALASKA SOFTWARE BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
//    SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
//    INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT AND LOSS OF USE.
//
// DESCRIPTION
//
//    This file describes what to change in CA Clipper's utility programs
//    DBU.EXE and RL.EXE when porting them to Xbase++. If the changes
//    are applied, the programs run smoothly with both Clipper and Xbase++.
//
// HISTORY
//
//    Created Oct. 1st, 1997
//
///////////////////////////////////////////////////////////////////////////////


*******************************************************************************
Changes for DBU.EXE 5.2e
*******************************************************************************

1. DBU.PRG

   o Rename PROCEDURE Dbu to PROCEDURE Main

2. DBUEDIT.PRG

   o Correct an implementation error which is tolerated by Clipper
     but not by Xbase++

     if ( "->" $ cEditField )
        cAlias := Substr(cEditField, 1, At("->", cEditField) + 1)
                  This Plus must be a Minus ----------------^^^

   o Change two Inkey() calls to Inkey(0.1) for smooth operation

3. DBUVIEW.PRG

   o Move all "local saveColor" declarations in front of the
     PARAMETERS statement

   o Change one Inkey() to Inkey(0.1) for smooth operation

   o Change the code in FUNCTION bar_menu to reflect a slightly
     different behaviour of Xbase++'s Achoice() function.
     (Clipper's Achoice() does not display array elements which contain
      null strings, while Xbase++ does)

      FUNCTION bar_menu

      -------------------- 
      Old: local saveColor
      New: local saveColor, nElem

      -------------------------------- 
      Old: IF M->num_d < LEN(M->array)
              num_d = M->num_d + 1

              array[M->num_d] = " "
           ENDIF

      New: nElem := LEN(M->array)
           IF M->num_d < nElem
              num_d = M->num_d + 1

              array[M->num_d] = " "
              ASize( m->array, M->num_d )
           ENDIF

      ------------------------------ 
      Old: IF array[M->num_d] == " "
              array[M->num_d] = ""
           ENDIF

      New: IF array[M->num_d] == " "
              ASize( M->array, nElem )
              AFill( M->array, "", M->num_d )
           ENDIF

5. DBUUTIL.PRG

   o Move all "local saveColor" declarations in front of the
     PARAMETERS statement

   o Change this command with & to its functional equivalent
     (necessary because Xbase++ always uses late binding in code blocks)

       Old:    SET RELATION ADDITIVE TO &k INTO &t

     New:  DbSetRelation( t, &( "{||"+ k +"}" ), k )

   o Change one Inkey() to Inkey(0.1) for smooth operation

6. DBUCOPY.PRG

   o Move all "local saveColor" declarations in front of the
     PARAMETERS statement


*******************************************************************************
Changes for RL.EXE 5.2e
*******************************************************************************


1. RLFRONT.PRG

   o Rename PROCEDURE SetUp() to Main()

   o Add SET EXCLUSIVE ON in Main()

2. RLBACK.PRG

   o Change FUNCTION LBL_LOAD to reflect additional operating system
     error codes

     Old: IF file_error = 2

     New: IF file_error = 2 .OR. file_error = 110

3. RLDIALG.PRG

   o Correct two wrong Achoice() calls in FUNCTION filelist

     This line has an error:
       achoice(wt+1,wl+32,wt+wh,wl+43,files,"ch_func",0,asel,arel)

     This is correct:
       achoice(wt+1,wl+32,wt+wh,wl+43,files,.T.,"ch_func",asel,arel)

     (just search for "ch_func")

4. FRMDEF.CH

   o Add one directive to the include file

     #xtranslate  IsAffirm( <c> )   =>   (<c> $ "Yy")

5. LBLDEF.CH

   o Add one directive to the include file

     #xtranslate  IsNegative( <c> )  =>  (<c> $ "Nn")

6. STD.CH
   
   o Replace Xbase++'s LABEL FORM and REPORT FORM #commands in STD.CH
     with Clipper's #commands  (Better: copy them into a separate
     CH file and #include this file to PRGs which use the commands).


//EOF
/////


Gruß Stefan
Benutzeravatar
mini990
Rekursionen-Architekt
Rekursionen-Architekt
 
Beiträge: 304
Registriert: Sa, 28. Jan 2006 10:44
Wohnort: Berngau bei Neumarkt i.d.Opf.

Re: DBU & Co -> Xbase++

Beitragvon AUGE_OHR » Sa, 09. Apr 2016 10:39

DANKE \:D/
gruss by OHR
Jimmy
Benutzeravatar
AUGE_OHR
Marvin
Marvin
 
Beiträge: 10315
Registriert: Do, 16. Mär 2006 8:55
Wohnort: Hamburg


Zurück zu Newbie

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste