Search results

Hi Can you download Graphics Server? I have a good program. It recives data and makes a very good graphic. You can change the graphic type, style, colors, etc. I'll send you later. MRobles

WORD:Selection:PasteAndFormat(0). First you must open word

Index(val1, '*' ) gt 0

Thanks a lot RHD In the program A.W i use this {ADLIMPIA.I "{&TEXTOS}"}. and ADLIMPIA.I now has this code: DEF VAR t_campos AS CHAR NO-UNDO. t_campos = "{1}". t_campos = REPLACE(t_campos, ' ', ','). t_campos = REPLACE(t_campos,' ',','). /* with this i can use lookup */...

Hi. I have a list {&list-1} with some variables. All of them are in a frame. How can i determinate the handle of each variable? V9. Thanks a Lot

This works. DEF VAR X AS CHAR. X = 'abc' + CHR(13) + 'def'. DISPLAY LENGTH(X) INDEX(X,CHR(13)). The result is 7 and 4

Thanks a lot Openedge10. I appreciate your help MRobles

Hi. I need to send a excel file to print and then close excel. V9.1D 1.- To print I made a macro in excel with this result: ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True How can translate this instruction to progress? 2.- To close excel from progress I can't make a macro...

In addition. In this example 1.- Define the temp-table 2.- Define an index and due I don't say UNIQUE, then it allows duplicated rows. 3.- Enter records 4.- See records DEF TEMP-TABLE xx LIKE customer INDEX llave cust-num REPEAT: CREATE xx. UPDATE xx. END. FOR EACH xx. DISPLAY xx. END...

Hi In this case I have the acumulate in variables or use the accumulate function and use a place holder. Example. DEF VAR suma AS INT NO-UNDO. FOR EACH customer NO-LOCK BREAK BY id_state. DISPLAY cust-num credit. suma = suma + credit. IF LAST-OF(id_state) THEN DO: DOWN. UNDERLINE credit...

Hi With this code, you change the color each 2 records. Put it in the main-block. It suposes your browse is called browse-1 DEF VAR celda_br AS WIDGET-HANDLE EXTENT 15 NO-UNDO. DEF VAR cual_celda AS WIDGET-HANDLE NO-UNDO. DEF VAR n_cols_browse AS INT NO-UNDO. DEF VAR col_act AS INT...

def var progname as char init 'myprog.p' no-undo. find first mytable where mytable.myvalue=1 no-lock no-error. if available mytable then run value(progname) (mytable.myvalue).

Hi Again This include file has code useful to interact with excel. To use it, call the include in the begin of your program. {excel.i} With this you can Open and close excel Send data RUN pinta(data, reng, col). /* (reng and col are integers) */ Recive data Format cells Format columns Draw...

Hi chWorksheet:Columns('A:Z'):EntireColumn:Autofit NO-ERROR.

Hi In unix I used csv files. I read the line and separate the fields. In windows you can use some like this: DEFINE VAR t_ren AS INT NO-UNDO. DEFINE VAR valor AS CHAR NO-UNDO. DEFINE VAR chExcelApplication AS COM-HANDLE. DEFINE VAR chWorkbook AS COM-HANDLE. DEFINE VAR...

And normaly those fields are keys

Hi In a relational model the relations are based on fields with the same name and format. I agree with you. We don't have to use the field 'name' for customers and employees. In that case use different names, but in the tables where you want relations use the same name an format. If you use...

The last code ask for a field. The next code asks for a table and looks in the metaschema the fields of the table and what other tables use the same fields. DEF VAR busca AS CHAR FORMAT 'X(30)'. DEF BUFFER tabla FOR _file. DEF BUFFER campo FOR _field. REPEAT: UPDATE busca. FIND _file...

DEF VAR campo AS CHAR FORMAT 'X(30)'. REPEAT: UPDATE campo. FOR EACH _field WHERE _field-name = campo NO-LOCK. FIND _file OF _field NO-LOCK. DISPLAY _file._file-name _field._format WITH TITLE campo. END. END. You can see other fields of the _field or _file tables

Hi In the data dictionary Database->Reports->Table Relations you can get a report of relations