Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Changing frx table with program
Message
De
07/06/2007 02:25:31
Albert Beermann
Piepenbrock Service Gmbh & Cokg
Osnabrück, Allemagne
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Changing frx table with program
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Database:
MySQL
Divers
Thread ID:
01231161
Message ID:
01231161
Vues:
49
Hello Everybody

I have a report with several hundred fields per detail record.
(Shift-planing with n fields per day)
I do changes to this report with a programm

use
use xyz.frx
FOR i = 1 TO 31
l_nr = ALLTRIM(STR(i))
l_sucher = "*MYCURSOR.ENDE"+l_nr+"*"
LOCATE for LIKE(l_sucher, UPPER(expr))
IF FOUND()
l_usertext = "*:LISTENER BACKCOLOR = mycursor.bcolor"+ALLTRIM(STR(i))
replace user WITH l_usertext
replace mode WITH 0 &&opal
replace supexpr WITH "" && no print when
ENDif
ENDFOR
FOR i = 1 TO 31
l_nr = ALLTRIM(STR(i))
l_sucher = "*MYCURSOR.START"+l_nr+"*"
LOCATE for LIKE(l_sucher, UPPER(expr))
IF FOUND()
l_usertext = "*:LISTENER BACKCOLOR = mycursor.bcolor"+ALLTRIM(STR(i))
replace user WITH l_usertext
replace mode WITH 0 &&opal
replace supexpr WITH "" && no print when
ENDif
ENDFOR

use

Now i want to change some formating:
For numeric formats: left justify, blank if zero, currency
For charater formats: alignment left or right, to upper case

I don't know which columns of the frx table i have to change with which values.

Any help welcomed
Best regards
Albert
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform