SoloCodigo

Para conocer el Hwnd de una ventana  powerbuilder en la ayuda te da las siguientes opciones:

This statement returns the handle to the window w_child:

Handle(w_child)

These statements use an external function in Windows called FlashWindow to change the title bar of a window to inactive and then return it to active. The external function declaration is:

function boolean flashwindow(uint hnd, boolean inst) &

library "user.exe"

The code that flashes the window's title bar is:

integer nLoop   // Loop counter

long hWnd   // Handle to control

// Get the handle to a PowerBuilder window.

hWnd = Handle(Parent)

// Make the title bar flash 300 times.

FOR nLoop = 1 to 300
      FlashWindow (hWnd, TRUE)

NEXT

// Return the window to its original state.

FlashWindow (hWnd, FALSE)

For applications on Windows, the Handle function does not return a useful value when the previous flag is TRUE. You can use the FindWindowA Windows function to determine whether a Windows application is already running.
Declare FindWindowA as a global external function:

FUNCTION uint FindWindowA (long classname,  &

string windowname) LIBRARY "user32.dll"

Then add code like the following to your application's open event:

uint  val

val = FindWindowA(0, "MyApp Main Window")

IF val > 0 THEN
      MessageBox("Application already running", &
      "MyApp is already running. You cannot &
         start it again")
      HALT CLOSE

ELSE
      open(w_main)

END IF

Lo primero que tienes que haces es definir el puerto que se va autilizar para hacer la captura de datos y luego abrir el puerto:

ole_com.Object.CommPort = 1
ole_com.object.portopen = true

A partir de alli, colocas en el Oncomm del objeto Ole l avariable que capture la informacion que esta llegando y la muestre en el multiline. Si sabes la cantidad de datos que va a llegar po el puerto te creas un contador y que al finalizar el ultimo dato lo muestre en el control multiline. Al terminar la captura debes cerrar el puerto serial

ole_com.object.portopen = false

Si no te recibe nada el puerto, chequea el valor que le estas colocando en CommPort.

Saludos

Carlos

La mejor solucion es que te crees un datawindows de tipo RichText y dependiendo, si los datos vienen de la BD o de un archivo externo, seleccionas el origen o la tabla que contiene l ainformacion de los clientes. Luego generas el contrato y colocas los campos en cada uno de los puntos del contrato (tipo combinar correspondencia de word) y con eso puedes imprimir la informacion deseada.

saludos

Carlos

Si tienes algun adll que lea y se comunique con puerto serial te lo agradeceria.

Saludos

Carlos

Si tienes Mysql menor a la version 4.1 no se puede realizar un subquery. Posiblemente el error es que prueba 1 no puede ir separado

update prueba set valor = (select sum(valor) from prueba 1);

ademas que la sintaxis debe ser, en caso de que tengas la version adecuada

update prueba set valor = (select sum(valor) from prueba1);

Saludos

Carlos

Roberto:

Si lo que quieres es que el encabezado solo salga en la primera pagina debes colocarlo empezando en el detalle, de esa manera no saldra en las demasa hojas, si lo dejas en el encabezado aparecera en todas las hojas.

Espero que te sirva

Saludos

Carlos

yo utilizo una funcio para centrar las ventanas que espero te sirva:

declaras las siguientes variables de instancia:
int l_xx, l_yy

y creas la funcion f_center() y colocas el siguiente script:

__________________

//*-----------------------------------------------------------------*/
//*    f_Center:  Center the window
//*-----------------------------------------------------------------*/
int li_screenheight, li_screenwidth, li_rc, li_x=1, li_y=1
environment   lenv_obj

/*  Check for a window association with this object  */
If IsNull ( this ) Or Not IsValid ( this ) Then Return -1

/*  Get environment  */
If GetEnvironment ( lenv_obj ) = -1 Then Return -1

/*  Determine current screen resolution and validate  */
li_screenheight = PixelsToUnits ( lenv_obj.ScreenHeight, YPixelsToUnits! )
li_screenwidth  = PixelsToUnits ( lenv_obj.ScreenWidth, XPixelsToUnits! )
If Not ( li_screenheight > 0 ) Or Not ( li_screenwidth > 0 ) Then Return -1

/*  Get center points  */
If li_screenwidth > this.Width Then
   li_x = ( li_screenwidth / 2 ) - ( this.Width / 2 )
End If
If li_screenheight > this.Height Then
   li_y = ( li_screenheight / 2 ) - ( this.Height / 2 )
End If

/*  Center window  */
li_rc = this.Move ( li_x, li_y )
If li_rc <> 1 Then Return -1

Return 1
_________________________

Espero que te sirva,

saludos
Carlos