Search results

yes it will cause a conflict and you have to be careful with the limit of the char variable. Using a Temp-Table would be safer. DEF TEMP-TABLE ttCheck FIELD f AS CHAR. FOR EACH myTable NO-LOCK: IF CAN-FIND (ttCheck WHERE ttCheck.f = myTable.myField NO-LOCK) THEN NEXT. CREATE...

To get the result he wants the query should be: myQH:QUERY-PREPARE("FOR EACH pt_mstr WHERE pt_part = 'xx01' AND " + l + " = '" + k + "' NO-LOCK").

You can stop it by doing a RETURN in the definition of the program ,it will prevent the creation of widgets and stop it before it can create anything. If your using create-object or another procedure to start your window then check the handle to make sure it passed the validation before doing...

EXPORT SUBSTRING(tt_record,175,16) FORMAT "X(16)".

Your NO-ERROR applies to the RUN statement , but not the statements in your .p file . If it can't find the program to run then your ERROR-STATUS:ERROR will be true but not if a error comes up inside the called program.

Then just put the first field of your primary key in the ELSE field . The it will use the sort it would have used anyway. It either that or you do a full dynamic query (wich use the QUERY AND BUFFER objects instead of a simple FOR EACH ) wich is more complicated. The &IF clause is...

Check my example , it actually does a Order By. You only need to specify th e normal sort field in the ELSE part.

You can do it with a normal IF . def var siteval as logical. update siteval. For each in_mstr no-lock BY IF siteval THEN in_site ELSE <normal sort field>: display in_part. end.

Is your Application Server on the same machine or on another machine? Is the name of you Application Server testApp or asbroker1? The message says that it can't find your App Server so your problem is probably one of the 3 here: 1) Your appserver is on another machine so the address...

pad1 is the handle to your control frame. Progress will have created the handle chPad1 that points to your ocx. The correct call will be chPad1:<OCX Name>:OpenConnection(0). OR chPad1:ITEM(1):OpenConnection(0).

You can even do it without using a temp-table. DEF INPUT PARAMETER pcTableName AS CHAR. DEF INPUT PARAMETER pcDbSrcName AS CHAR. DEF INPUT PARAMETER pcDbDestName AS CHAR. DEF VAR hQuery AS HANDLE. DEF VAR hBufSrc AS HANDLE. DEF VAR hBufDest AS HANDLE. CREATE BUFFER hBufSrc FOR TABLE...

Here is a version where x.p copies the data back to the target DB. Program x.p DEF VAR hTable AS HANDLE. DEF VAR hQuery AS HANDLE. DEF VAR hBufferDest AS HANDLE. DEF VAR cTableName AS CHAR INIT "TableName". DEF VAR srcDB AS CHAR INIT "db1". DEF VAR targetDB AS CHAR INIT "db2". RUN x2.p...

Program x.p DEF VAR hTable AS HANDLE. RUN x2.p ("Table Name", OUTPUT TABLE-HANDLE hTable). Program x2.p DEF INPUT PARAMETER pcTableName AS CHAR. DEFINE OUTPUT PARAMETER TABLE-HANDLE ttHandle. DEF VAR hQuery AS HANDLE. DEF VAR hBufDest AS HANDLE. DEF VAR hBufSource AS HANDLE. CREATE...

It should , any command line utility or application in Windows can be redirected to a text file. dir *.* > text.txt grep something > res.txt

You can always pipe the grep command to a text file then read the text file in progress with input from.

If your signature is ok , here is what i think the call should be but i can't be sure since i don't know your dll procedure signature. DEFINE VAR ipdwMajor AS INTEGER INITIAL 0 NO-UNDO. DEFINE VAR ipdwMinor AS INTEGER INITIAL 0 NO-UNDO. DEFINE VAR cpszValidUntil AS MEMPTR NO-UNDO. DEFINE VAR...

SmartObjects are part of the ADM or ADM2 Framework. They aren't useful unless you plan on using one of those Frameworks . They have extra code that permit you to link them directly to the DB and let them do part of the work. If you want to learn about it , then you should read the book...

It probably your CHAR variable that hits it maximum number of character. A CHAR variable is not big enough to hold 65000 chars.

If you print the code and put the page upside down then it will reverse and import the data. :lol: Seriously , just look at the code given and instead of assigning the value , just read it and store it in your database. It doesnt get simpler then that. cRange = "A" + cColumn...

Here a way where you are sure that it wont crash DEFINE STREAM stOrd. OUTPUT STREAM stOrd TO c:\Caroline.csv. FOR EACH ordstat WHERE ordstat.kord-date >= 02/01/07 AND ordstat.kord-date <= 03/01/07 NO-LOCK, EACH ordline OF ordstatus NO-LOCK, FIRST ovar WHERE ovar.kvseqnum...