Search results

You need to review carefully the product structure, a structure must already exist, probably with an end date open (blank).

define frame a cs-id cs-name cs-name cs-status cs-ind1 cs-ind2 cs-ind3 /*NO NEED THIS cs-cmnt */ with down width 72. for each customer : display cs-id cs-name cs-status cs-ind1 cs-ind2 cs-ind3 with frame a . if trim(cs-cmnt) <> "" then DO: DOWN WITH FRAME a. /* down */ display cs-cmnt...

Browses generated on QAD use it pre-processors

With "infinite loop" I mean this, what happen with this case? Record 1: - Order-Number is: 123456 - Previous-Order-Number is: 999999 Record 2: - Order-Number is 999999 - Previous-Order-Number is 111111 Record 3: - Order-Number is: 111111 - Previous-Order-Number is: 123456 Is clear logically...

Of course, you must take care for infinite loop ....

/* not tested, something like this ... */ ordernbr = "123456". find Order no-lock where Order-Number = ordernbr no-error. do while available Order: /*** code your concatenate stuff here ***/ ordernbr = Previous-Order-Number. find Order no-lock where Order-Number = ordernbr no-error. end.

Can't find on my current environment, but I remember a program called "soundex.p" or somethig like that; Soundex - Wikipedia

And, It does not matter if you have a conditional in the "DO FOR", IF FALSE THEN DO FOR pt_mstr: FIND FIRST pt_mstr NO-LOCK. END. DISPLAY AVAILABLE(pt_mstr). /* This show error: ** Reference to table <table> conflicts with block statement reference. (244) */

Progress Documentation

You need to convert the code to a Function. On Browse Maintenance 36.4.8.13 open ic007. Or search for other examples; there are a lot of browses with defined Functions.

If you don't have clear how to add functions code, take a look at 3.6.11 icbr007 That browse use it.

Define a function on "Local vars" section. And add a Calculated Field (local-var00) and call the Function created on Local vars.

This is the code for Primary Line value: v-primary = no. for first lna_det fields( lna_domain lna_allocation lna_line lna_part lna_site) where lna_det.lna_domain = global_domain and lna_site = lnd_site...

Test this: display quoter('hello"hello') format "X(20)" The 2 quotes should work, if not is other the issue. On your example you must skip after the part number. @@batchload ppptmt.p "3012.02 6.50"" MIN" "ST" "This item has inch quotes and will not load" "please help" - - . @@end

F1 dash and skip line: - F4 dot and skip line: .

On Webspeed app I used this QR Code Generator for generate QR images. And for read it Web QR

I miss the old PEG days when lot of people would compete code for which is the most efficient or the smallest, just because.

good except you will end with a string beginning with a comma.

Can I add i = 0 before the for each? lol

I don't fully understand your question, but maybe this example can give you some ideas, (be sure you are not using -q parameter) DEF VAR xtable-name AS CHAR NO-UNDO. xtable-name = "table1". OUTPUT TO temp.p. PUT UNFORMATTED "INPUT FROM table1.d." SKIP " REPEAT:" SKIP " CREATE " xtable-name...