[Progress programma] Krijg rommel in output

[vandenhende]

Ik ben voor mijn stage bezig met het volgende:

We hebben hier een ERP pakket die draait op een progress database. Nu moet ik op het moment dat een aantal waarden veranderen in de databse een ASCII file laten genereren. Die moet er als volgt uit komen te zien:

artikelnummer (20 karakters) daarna een spatie en daarna artikelomschrijving (50 karakters.

Ik krijg dit al voor mekaar. Probleem is alleen dat als de artikelomschrijving kleiner is dan 50 karakters dat hij de rest van die 50 opvult met rommel bijvoorbeeld:

code:

artikelnr            Omschrijving      2

Dus die 2 is rommel en ik heb geen idee waar hij die vandaan haalt.
Nu moet ik denk ik de lege ruimte in die omschrijving opvullen met spaties. Weet iemand hoe ik dit moet aanpakken?

Alvast bedankt!

[ Voor 9% gewijzigd door vandenhende op 21-10-2004 12:05 ]

[-FoX-]

En de programmatie gebeurd ook in Progress? Of spreek je die Progress-db aan vanuit .NET of eventueel nog een andere taal?

[vandenhende]

-FoX- schreef op 21 oktober 2004 @ 10:47:
En de programmatie gebeurd ook in Progress? Of spreek je die Progress-db aan vanuit .NET of eventueel nog een andere taal?

Ik programmeer met de progress precedure editor.

[-FoX-]

Kan je de code waarmee je de ASCII file genereert ook eens posten?

Het werken met Progress is voor mij ondertussen alweer 2jaar geleden, dus hopelijk ga ik u nog kunnen helpen

[vandenhende]

code:

{ud/GlbAlert.i &TableName = "Part"}

/* bestandsnaam dynamisch aanmaken */ 
def var bestandsnaam as character no-undo. 
assign bestandsnaam = "c:\temp\" + string(part.partnum) + ".txt".  

/* output maken en in file plaatsen */
DEFINE VARIABLE artikel AS MEMPTR. 
SET-SIZE(artikel) = 71. 

PUT-STRING(artikel,1) = part.partnum.
PUT-STRING(artikel,22,50) = part.Partdescription.

OUTPUT TO value(bestandsnaam).
EXPORT artikel.
OUTPUT CLOSE.

/* terug naar Vantage en email versturen door BAM annuleren */
RETURN "CANCEL SEND".
RETURN.

[ Voor 6% gewijzigd door vandenhende op 21-10-2004 11:31 ]

[CyBeR]

* CyBeR geen ervaring met progress.. Maar het klinkt alsof je gewoon vergeet die string af te sluiten. In C gooi je er een '\0' achteraan.

[Verwijderd]

Ik werk ook met Progress, dus misschien dat ik je ook nog kan helpen als je de code post.
Dat zijn er alweer 2....

[Gerco]

Ik denk dat het komt doordat je een MEMPTR gebruikt die niet altijd helemaal gevuld wordt. Misschien kun je beter dit doen:

code:

{ud/GlbAlert.i &TableName = "Part"}

/* bestandsnaam dynamisch aanmaken */ 
def var bestandsnaam as character no-undo. 
assign bestandsnaam = "c:\temp\" + string(part.partnum) + ".txt".  


/* output maken en in file plaatsen */
DEFINE VARIABLE artikel AS CHARACTER NO-UNDO. 
ASSIGN artikel = FILL(" ", 71).

OVERLAY(artikel, 1, 20) = part.partnum.
OVERLAY(artikel,22,50) = part.Partdescription.

OUTPUT TO value(bestandsnaam).
PUT UNFORMATTED artikel SKIP.
OUTPUT CLOSE.

/* terug naar Vantage en email versturen door BAM annuleren */
RETURN "CANCEL SEND".

Zal wel niet gelijk runnen, heb geen Progress hier, maar dit werkt iets veiliger dan met memptrs gaan klooien.

Wat je ook kunt doen is een FRAME declareren met die twee gegevens erin en die dan DISPLAY'en op de output stream, is iets meer progressig dan deze oplossing.

[ Voor 23% gewijzigd door Gerco op 21-10-2004 11:52 ]

[vandenhende]

Hij werkt! Perfect.

Dus die memptr veroorzaakte die rommel. Dank je!

[-FoX-]

Fijn dat het reeds opgelost is.

Ik begrijp echter in eerste instantie niet waarom je hiervoor een MEMPTR (pointer) wou gebruiken? Heeft dit een specifieke reden?