Search found 103 matches

by BeGeS
Sun Feb 18, 2018 3:14 pm
Forum: HMG Source
Topic: Help
Replies: 8
Views: 110

Re: Help

I would create this function:

Code: Select all

FUNCTION NEGATEX(NUMERO)
LOCAL RESUL
 IF NUMERO<0
    RESUL:= "-" + STR(ABS(NUMERO),18,2)
 ELSE
    RESUL:= STR(NUMERO,19,2)
 ENDIF
RETURN RESUL
Your index:

vrs+NEGATEX(sal)
by BeGeS
Fri Jan 26, 2018 9:15 pm
Forum: General Discussions
Topic: Happy Birthday to Mr. Grigory Filatov !!!
Replies: 26
Views: 501

Re: Happy Birthday to Mr. Grigory Filatov !!!

Happiness, Mr. Filatov!
Image
by BeGeS
Sat Jan 13, 2018 10:52 am
Forum: HMG Samples
Topic: Print Windows Form
Replies: 26
Views: 3819

Re: Print Windows Form

You need to create a rectangular box with a height not less than the height of the printed text ;) ...a box that is not necessary with PRINT LINE TO. Thanks. Out of curiosity, I have continued with this matter. The solutions of mol and edk are equally valid, although that of edk is more direct (fas...
by BeGeS
Fri Jan 12, 2018 10:20 pm
Forum: HMG Samples
Topic: Print Windows Form
Replies: 26
Views: 3819

Re: Print Windows Form

:shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: Oh my God! edk, that's the first thing I tried. I thought that PRINT DATA TO would work just like PRINT LINE TO. But no. That did not print anything. Why? Well, because I wrote something like this: cString:="Description"+REPLICATE (".",...
by BeGeS
Fri Jan 12, 2018 5:25 pm
Forum: HMG Samples
Topic: Print Windows Form
Replies: 26
Views: 3819

Re: Print Windows Form

You can use this functon to calulate length of printed text: function PrintLen( cString,nFontsize,cFontname) return round(gettextwidth(Nil,cString,cFontname)*0.072/72*25.4*nFontsize,2) It's not ideal, sometimes does not work enough good. nMaxLength := 20 cLine := "Code" do while PrintLen(cLine + "....
by BeGeS
Fri Jan 12, 2018 5:17 pm
Forum: HMG Samples
Topic: Print Windows Form
Replies: 26
Views: 3819

Re: Print Windows Form

Hola BeGes Deberás usar un Font de ancho fijo. ( Times New, Consolas, etc ) Ejemplo: PADR( "Price", 15, "." ) + ":" NOTA: Trata de hacer tu pregunta en un nuevo Post para que no se confundan o pierdan las respuestas... Gracias, Andy. Tienes razón. Quizá mi post ha irrumpido en mitad de una conversa...
by BeGeS
Thu Jan 11, 2018 9:48 pm
Forum: Self Introduction
Topic: I want to be a HMG Poster
Replies: 497
Views: 72094

Re: I want to be a HMG Poster

Hello Dominique! ;)

Welcome to the Academy.

:?: ... :arrow: ... :idea:
:( ... :arrow: ... 8-)
by BeGeS
Thu Jan 11, 2018 9:39 pm
Forum: HMG Samples
Topic: Print Windows Form
Replies: 26
Views: 3819

Re: Print Windows Form

Hello friends! :) The question seems to me a bit silly, but... :roll: How can I print suspension points to a particular column? Example: Code.............: 000001 Description......: PEPPER MARMALADE Price............: 2.35 :cry: :cry: I want the next result without having to do several tests placing...
by BeGeS
Sun Dec 31, 2017 10:19 pm
Forum: General Discussions
Topic: Happy New 2018 Year!
Replies: 15
Views: 430

Re: Happy New 2018 Year!

Happy 2018!

Salutem et laboris. Image
by BeGeS
Thu Nov 30, 2017 6:29 pm
Forum: HMG General Help
Topic: How to search and retrive a value
Replies: 31
Views: 1248

Re: How to search and retrive a value

Hi everybody I want to search a string(CSV file) read throuh memoread(CSV file) function. I have to search a Code and then jump back a few commas to retrieve a value. For eg Consider the enclosed EQ_ISINCODE_291117.CSV file. In this I want search say code "INE885A01032" after searching that I want ...