Search results

x = SUBSTRING(variable, 1, 9)

Hi. In addition With this code ... 1.- You insert and select an image. 2-. Set the stretch to fit atributte to true 3.- Change the height attribute 4.- Change its top and left chExcelApplication:activeSheet:pictures:INSERT('imagen.jpg'):SELECT...

Hi You have at least one record locked by an user. you can prevent this situation in your code. FIND FIRST table EXCLUSIVE-LOCK NO-WAIT NO-ERROR. IF NOT AVAILABLE table THEN DO: IF LOCKED table THEN MESSAGE "Registro Ocupado" VIEW-AS ALERT-BOX ERROR. ELSE MESSAGE "No...

Hi Nacho / Hola Ignacio Si al imprimir, seleccionas una impresora e indicas imprimir en un archivo, se genera un archivo para impresión en esa impresora específica. Ese archivo no se podrá ver como reporte con este código. When you print and you select a printer indicating print to a file...

Hola Nacho Prueba esto: CURRENT-WINDOW:WIDTH = 200. DEF VAR EDITOR-1 AS CHAR VIEW-AS EDITOR SIZE-CHAR 150 BY 40 LARGE. DEF BUTTON BOT. DEF FRAME X EDITOR-1 BOT WITH WIDTH 200. editor-1:READ-FILE(SEARCH('DESP_TXT.W')). ENABLE ALL WITH FRAME X. WAIT-FOR CHOOSE OF BOT Esto presenta un...

Hi I used similar code with RTF files replacing variables. Due is real text, if it has images works well, but this code does not work with prn files including images even using BINARY NO-CONVERT.

I Agree with you RHD

Hi You can do it but you need a development license. In this example I use 2 programs /* p1.p You enter the statements and call a program P2 */ DEF VAR inst AS CHAR NO-UNDO VIEW-AS EDITOR SIZE-CHARS 50 BY 4. REPEAT. UPDATE inst. RUN p2.p inst. END. /* p2.p Execute the statments */ {1}

Hi Ramesh I'm using a 'dirty' way to solve this problem. When I had this problem, I recive the error 1896 (crc). Before run your program, compile it in the same caller program. DEF VAR t_base AS CHAR NO-UNDO EXTENT 3. t_base[1] = 'C:\base\adm'. t_base[2] = 'C:\base\adm1'. t_base[3] =...

Hi Before the last end of this snippet put this: RETURN NO-APPLY.

It is against the first normal form (1FN) of Database Design

Try this SELECT SUBSTRING(GL_Account,1,INDEX(GL_Account,':') - 1), SUBSTRING(GL_Account,INDEX(GL_Account,':') + 1) FROM budget

You must recompile your program. Someone changed the data dictionary and then you must recompile this program and maybe others more. If you don't have source code, try to restore a backup.

1.- Make a selection list (list-item-pairs) 2.- use this code in a button DEF VAR datos AS CHAR. datos = 'A,1,B,2,C,3,D,4,E,5'. /* Fill your values" */ DO WITH FRAME default-frame. LST:LIST-ITEM-PAIRS = datos. LST = '1'. DISPLAY LST. END. The '1' is...

HI Whwar I test your code and it works ok and displays each record of a table. Try using a down statment after the display. Use a counter to display and verify if it reads all the records. If your problem continuous, please write all the code.

Some years ago I use the EZVID60 ocx to make this. You can download the ocx. Is free and it has help. Insert the ocx in your program. Insert a timer. Set the timer to act each 10 seconds. In the trigger of the timer put the statements (taken of the help) to take the picture. I have a sample (i...

This procedure use a table called part It has 2 fields: Padre and Hijo First I set the first element of the root and with this I begin the search. Try it and then change the first instruction using 'part02' and see the result. You can change the output file to locate it in a diferent path...

Are there any problem with Progress 9.1d enterprise and WIN 2003 Server? I saw a customer using it, their clients work well, but i don't know if can be a problem. Thanks a Lot.

You are using fields of the ABC table in your frame. You can double-click in the frame and remove the ABC table of the query, but take care because you must control the records used in then frame.

Hi. I Use Fonts "Carolina barcode" (http://www.carolinabarcode.com/) since about 6 years ago. You have to buy the fonts, but they are very useful.