Rich Report version 1.2 with clarion 6

clarion

    Next

  • 1. call a field data using a entry field when open a form
    hi all!!! My form have: - Entry field - Dos fileLookUp button I would like to call a field data as browse list box do, but using a entry field. So, when the form load they will show the first data from a tps file. And when a look up some file I need save this (full)path in the tps file. Thanx for the tips, Marcos beginner in Clarion Professional Edition V5a.
  • 2. RUN exe on another machine
    Hi All I use the run command e.g. Run 'C:\xxxx.exe' and it works fine but I want to run on another network machine e.g.Run' \\server\xxxx.exe' nothing happens ....any ideas? regards eddie
  • 3. create help
    Hi there, I want to create a help file for our app in Clarion, what's the best method? Grtz Michel

Rich Report version 1.2 with clarion 6

Postby Olumide Orukotan » Sun, 20 Jul 2003 00:29:10 GMT

Hi Everyone ,
                    Has anyone managed to get rich report version 1.2 to
work with clarion 6 and as also anyone have had problems contacting solid
software because i have been sending emails to them but no reply.

Olu.




















Re: Rich Report version 1.2 with clarion 6

Postby Michael Gould » Sun, 20 Jul 2003 01:51:47 GMT

Olu,

Jen's posted in the 3rd party newsgroup that he would be on vacation until I
think the 21st of July.

Michael Gould








Similar Threads:

1.ANN: KSpng version 1.2 released

2.RATECRYPT() Version 1.2 included below

Dear Friends,

    Here is Version 1.2 of RateCrypt() below.


Thanks to all

-Mel Smith

-------------------  snip -----------------------------

FUNCTION RATECRYPT(cCRYPT,nRATE,cEMPNUM)
//    Author: Mel Smith,  Aug 17, 2006
//           With Lots of Help from the Guys on the c.l.g newsgroup

//    Aug 18/06 -- Version 1.2
//       1. Removed Duplicate Code / Re-structured
//       2. Changed NUROUND() to standard ROUND()
//          (Thanks to BillRobertson)
//       3. Changed the nMININC 'define' to lessen 'loops'
//          (But would like to find a way to eliminate this step)

/*
   My wish with this function is to create an encrypted rate which will
   'fit' in the same field as the actual rate, but will have a value
   that will be obvious (to my function) as either encrypted (or actual).

   Thus, this function allows the programmer to 'obscure' an employee's
hourly
   Rate from casual viewing (using database viewing software) by his peers.

   The technique uses a pseudo Random Number generator copied/modified
   from NanForum's rand1.prg

   The mods include using the '%' operator (instead of the MOD() function),
   and later including an organization's own code (nORGCODE) to
differentiate
   it from other orgs who would also use this function.

   I also have to deal with variously-structured 'Employee Numbers' which
   require some extra coding below. *My* Employee numbers are (for now)
   either, for example,  'R1234'   or '59028'. So I have to use either
   *all* digits or the right-most 4 digits.

*/

#define nB 31415621        // Good old 'PI' is used here
#define nM 100000000       // The widest possible range of values
#define nMIN 60000         // Minimum returned value from encryption
#define nMAX 99999         // Maximum returned value from encryption
#define nMININC 10000      // To 'boost' the nCODEBASE to within limits ---- 
Version 1.2 change
#define nORGCODE 1234      // Choose Your own private org's code here -- 
NEVER CHANGE !
#define nMINLENEMP 5       // Minimum input allowable length of employee
number
#define nMINCODERATE 400   //  Any value > nMINCODERATE is already encrypted
LOCAL I,nSEED,nEMPVAL,nCODEBASE,nCODERATE,cDIGSTR,nDECRYPRATE

GABORT := .T.  // Global 'Abort' indicator for Calling routine
               // Assume failure at the outset

IF EMPTY(nRATE)   // I won't encrypt a 'zero' Rate
   RETURN nRATE
ENDIF

cEMPNUM := ALLTRIM(cEMPNUM)
IF EMPTY(cEMPNUM) .OR. LEN(cEMPNUM) < nMINLENEMP   // Faulty Employee Number
   RETURN nRATE
ENDIF

// Try to use *both* the n-digit Employee Numbers and also
// the letter + (n-1)-digit Employee Numbers used by other related orgs.

IF ISDIGIT(cEMPNUM)  // THEN WE CAN USE ALL n DIGITS
   nEMPVAL := VAL(cEMPNUM)
ELSE        // ELSE ONLY USE THE RIGHT-MOST n-1 DIGITS
   IF .NOT. ISDIGIT(cDIGSTR:=SUBSTR(cEMPNUM,2,10))  // THEN WE HAVE A
NON-CONFORMING EMPNUM
      RETURN nRATE
   ENDIF
   nEMPVAL := VAL(cDIGSTR)
ENDIF
// Now we have a proper Employee 'Number' to work with as part of our seed
// nCodeBase calcs was moved and structure below changed from 1st version

// Modify the 'Seed' for your own organization's purposes

nSEED := nEMPVAL + nORGCODE      // The seed is different for each different
                                 // Employee Number (+ the Org's own code)

// This next line is from the NanForum 'Rand1.prg' module and
// authors Gary Baren and 'Glenn'
nCODEBASE := nMAX * (( (nSEED * nB + 1) % nM ) / nM)

// Now bring the nCODEBASE within your org's limits

DO WHILE nCODEBASE < nMIN
   nCODEBASE += nMININC    // I don't like this loop but what else can I do
?
ENDDO

// Version 1.2 uses the 'normal' round() function below (not Fleming
Ho's) -- Kudos to Bill Robertson
nCODEBASE := ROUND(nCODEBASE*.01,2)     // Result 500.00 thru 999.99

cCRYPT := ALLTRIM(UPPER(cCRYPT))

IF cCRYPT == "E"              // Means to 'E'ncrypt
   IF nRATE > nMINCODERATE    // Already encrypted
      RETURN nRATE      // It is 'already' encrypted --  a Programming Fault
:((
   ENDIF

   nCODERATE := nCODEBASE - nRATE            // and establish the Coded Rate

   GABORT := .F.           // Signal globally that this encryption worked.
   RETURN nCODERATE        // and Return this Coded Rate

ELSEIF cCRYPT="D"    // MEANS 'D'ecrypt
   IF nRATE <= nMINCODERATE    // Already encrypted
      RETURN nRATE      // It is 'already' encrypted --  a Programming Fault
:((
   ENDIF
   nDECRYPRATE := ABS(nRATE - nCODEBASE)            // and establish the
Coded Rate

   GABORT := .F.           // Signal globally that this encryption worked.
   RETURN nDECRYPRATE        // and Return this Coded Rate

ENDIF

GABORT := .T.                  // Version 1.2 addition here
RETURN nRATE





3.[ANN] new InsiderTools version 1.2 released

Hello!

Eleus Software very happy to announce the InsiderTools library version
1.2!


List of changes in version 1.2
----------------------------

   * new routine insider():procObject(..) returns object for an
callstack
      entry of method call.
   * new routine insider():procBlock(..) returns codeblock for an
callstack
      entry of codeblock call.

   * added support for codeblock's callstack entries in fatal error
handler.
   * enhance of fatal error handler's "Full callstack" section:
         * show parameters even for internal functions
         * show ProcName()/ProcLine() for internal functions (where
            possible)
         * determining BEGIN SEQUENCEs in callstack
         * show types of callstack entries: x++ (Xbase++ call), core
            (internal function) and SEQ (BEGIN SEQUENCE)
         * show only 256 entries of callstack (128 first and 128 last)

To view complete list of changes and updated documentation, please
visit our
site.


About InsiderTools
-------------------

InsiderTools is set of add-on tools for debugging, profiling,
diagnosting
and error checking for Alaska Xbase++.

Short list of features:

  * Extended Callstack API
         Unique addon API for ProcName()/ProcLine(). You can
         retrieve parameters for any entry in callstack, get actual
         object for method call and actual codeblock for codeblock eval
  * Extended Fatal Error Handling
         A lot of infomation about crash: callstacks with all
parameters,
         memory info & stat, etc
  * Extended Memory Information
         All about used memory and allocated variables. Statistics
         about created objects. Retrieving number of references
         to an object or array.
  * Xbase++ Aspect Oriented API
         Simple and powerful tool to debug, log and profile.

check our software:
>  insiderTools: set of debugging, profiling and error checking tools
>  smartGC: addon tool to speedup garbage collector
>  XFuncs: easy extend your app with script functions

4.RfD: Ambiguity in FATAN2 version 1.2

5.JukeboxIn4Th updated (Now version: 1.2)

6. Support for SOAP version 1.2?

7. [ANNOUNCE] Unixhelp version 1.2

8. ANNOUNCE: TkproE version 1.2 released



Return to clarion

 

Who is online

Users browsing this forum: No registered users and 24 guest