Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Bullet list in VFP Report
Message
De
05/02/2016 15:51:40
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
À
05/02/2016 12:03:56
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Divers
Thread ID:
01630437
Message ID:
01630961
Vues:
95
>>goedemorgen
>>
>>Koen,
>>
>>my last message wast two possible solutions
>>The first is with grouping
>>in the report builder mark several items by drawing a right angle with the mouse or marking them with [SHIFT]+Click
>>Select menu Format / Group
>>You might have seen in items property Strech relative ... in group That's what it is good for - partialy
>>The group moves different then single items
>>
>>The other stuff its realy hard to describe.
>>The basic idea is to transform your 3 memo fields into 3 records.
>>If you have done this (you have an example from me using SQL SELECT, there are other ways I can think of too)
>>You can work with grouping, detail bands or whatever on the report. If spanning around pages is a problem, multiple detail bands might be a problem, but then you might transform it all to one temporary cursor with expanded records.
>>
>>The problem is, it's much more complex to express this in words then to code it. And I guess a translation german->english ->dutch with two participants not nativ to english will loose information.
>>Possibly you simple gather an example of your data and the frx to a zipped file and attach it to your next message. I have seen a lot of people asking the same question. We can do a little competition on solutions. There are many and you can use as you like
>>
>>Lutz
>
>Schön Guten Tag Lutz,
>
>You want my cursor which has now ID, iQuestion, cQuestion,mQuestion, mAnswerA, mAnswerB, mAnswerC to be changed into:
>ID, iQuestion,cQuestion,mQuestion,iAnswer, cAnswer, mAnswer ?
>Could be possible.
>Just arrange another Select() with a scan..endscan
>Would you be able to explain to me which benefits this has on keeping my 'bullits' aligned to the text?
>F.y.i. the Group 'function' on the Format menu was found and activated, however no grouping what so ever. Also the by you option Strech relative ... in group I could not locate. Even the helpfile is only talking about strech property for images, could this be a translation issue? How is it called in your GermanUI? Or better can you give me the steps to activate this?
>
>Schüss,
>
>Koen

Hi Koen,

if you send me your mail adress (by mail or pm, as you like). I can send you a report example

On that:
check all items properties, there is a group around mQuestion, you might ungroup via format menu.

it simply is much easier to any print what one need with this - in case it will only print the question.

The report with manuy mAnswer records is much more easy to create. In general I keep the report as dumb as possible. Code is easier to maintain then frx ....

There is no need to fiddle with XBASE style SCAN to create the cursor with mAnswer:
See code below. It's untested (I would have done Iif you had provided data) but the gerneral idea should work
*old:
*REPORT FORM yourreport

*new
lcAlias = ALIAS()
lcHELP  = SYS(2015)

*Create new table out off all Answer set or one record with empty answer, if no answer is set

SELECT;
 Cur1.ID, Cur1.iQuestion, Cur1.cQuestion,Cur1.mQuestion,;
 'A' AS cLetter,;
 Cur1.mAnswerA AS mAnswer;
 FROM (lcAlias) AS Cur1;
 INTO CURSOR (lcHELP );
 ORDER BY ID,cLetter;
 WHERE !EMPTY(Cur1.mAnswerA);
 UNION;
 SELECT;
 Cur1.ID, Cur1.iQuestion, Cur1.cQuestion,Cur1.mQuestion,;
 'B' AS cLetter,;
 Cur1.mAnswerB AS mAnswer;
 FROM (lcAlias) AS Cur1;
 WHERE !EMPTY(Cur1.mAnswerB);
 UNION;
 SELECT;
 Cur1.ID, Cur1.iQuestion, Cur1.cQuestion,Cur1.mQuestion,;
 'C' AS cLetter,;
 Cur1.mAnswerC AS mAnswer;
 FROM (lcAlias) AS Cur1;
 WHERE !EMPTY(Cur1.mAnswerC);
 UNION;
 SELECT;
 Cur1.ID, Cur1.iQuestion, Cur1.cQuestion,Cur1.mQuestion,;
 '' AS cLetter,;
 CAST('' AS M) AS mAnswer;
 FROM (lcAlias) AS Cur1;
 WHERE EMPTY(Cur1.mAnswerA) AND EMPTY(Cur1.mAnswerB) AND EMPTY(Cur1.mAnswerC)

REPORT FORM yourreport

USE
SELECT(lcAlias)
HTH

Lutz

Update:
removed copy failure from SELECT SQL
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform