Power Builder - Doble conexión.

//Declarar en varialbe global o de instancia

transaction sqlca2

//Y en el open de la window

sqlca2 = Create transaction

// conectamos a la bd

SQLCA2.DBMS = "ODBC"

SQLCA2.AutoCommit = True

SQLCA2.DBParm = "ConnectString='DSN=HRMSSYS;UID=ACHAIREZ;PWD=CHAIREZ'"

Connect using sqlca2;

// en close de la ventana o del proyecto

disconnect using sqlca2;

destroy sqlca2

SELECT Cli_Cliente, Cli_Nombre INTO :ls_cli_cliente, :ls_nom_cliente FROM Clientes WHERE Cli_Estado = 1 USING sqlca2;

Integer li_cia

dw_datos.settransobject(sqlca2)

dw_datos.retrieve(li_cia )

Integer li_cia , li_id

Long ll_i

String ls_nombre

DECLARE cur_detalle CURSOR FOR

SELECT emp_id, emp_nombre FROM empleados

          WHERE emp_cia = :li_cia USING sqlca2;

OPEN cur_detalle;

if sqlca.sqlcode = -1 then

	messagebox("Error","No se pudo ejecutar la query busca datos~r~n"+sqlca2.sqlerrtext)

	return

end if

DO

	FETCH cur_detalle INTO :li_id, :li_nombre;

	if sqlca.sqlcode = 0 then

             ll_i = dw_datos.rowcount() + 1

             dw_datos.insertrow(ll_i)

             dw_datos.setitem(ll_i,"id", li_id)

             dw_datos.setitem(ll_i,"nombre",ls_nombre)

        end if

LOOP WHILE sqlca.sqlcode = 0

CLOSE cur_detalle;