Power Builder - registrar ventas( Power Builder 9.0)

Hola amigos , por favor quiero q me ayuden a desarrollar un formulario, para registrar ventas en power builder 9.0, Este es mi codigo:
integer idusuario,idclie,idper,idprod
//datetime fech
double subtot,ig,tot
int li_rc
li_rc=MessageBox("Finalizar venta","¿Esta seguro de Finalizar la venta?",Question!,YesNo!)
if li_rc = 1 then
tot=dw_1.object.compute_1[dw_1.getrow()]
//GRABA LOS CAMPOS DE LA TABLA VENTAS
INSERT INTO venta
( cod_venta,
cod_cliente,
cod_personal,
tot_venta,
fech_venta,
hora_venta )
VALUES ( :sle_codigo.text,
:sle_codcliente.text,
:sle_personal.text,
:tot,
:sle_fecha.text,
:sle_hora.text ) ;
end if
String descripcion
double punitario,importe
int indice,Ub,Ed,idpedido,cant
for indice=1 to dw_1.rowcount()
if dw_1.accepttext()=1 then
idpedido=Integer(dw_1.object.cod_venta[indice])
idprod=Integer(dw_1.object.cod_producto[indice] )
descripcion=String(dw_2.object.nom_producto[indice])
punitario=double(dw_2.object.pre_producto[indice])
cant=integer(dw_2.object.cant_producto[indice])
Ub=integer(dw_2.object.dscto_producto[indice])
importe=double(dw_2.object.sub_venta[indice])
end if
insert into detalleventa(Cod_venta,Cod_producto,Nom_producto,Pre_producto,Cant_producto,Dscto_producto,Sub_venta)
values(:idpedido,:idprod,:descripcion,:punitario,:cant,:Ub,:importe);

dw_1.scrollnextrow()
next
dw_1.reset()
w_ventas.TriggerEvent(OPEN!)
/*else
return
end if*/
Lo que kiero hacer es registrar la venta del y que se graben los datos tanto en la tabla ventas como la table detalle de la venta, por favor.

Hola
hay una forma mas facil de grabar los datos de venta como de venta detalle
si cada una de ellas esta en un dw distinta
te metes a la dw, despues en las opciones del menu te vas a ROws
y de ahi a Update proporties pincahs allow update y verificas que esten todos los campos que quieras actualizar seleccionados, mas indca la tabla y la calve de ella
luego de esto grabas..

y en algun boton en el formulario que tengas solo
usas esta sentencia para guardar los datos

IF dw_1.update() <> 1 THEN
rollback using SQLCA;
MessageBox('update',".No fue posible actualizar las ventas , ")
ELSE
commit using SQLCA;
END IF

en el opnen debes tener esta sentencia

dw_1.SetTransObject(sqlca)

y eso asi actualizas sin usar los insert ni asignar tantos datos a tantas variables
espero te sirva

Ok, si actualiza pero la tabla detalleventa, pero no graba nada en tabla venta, que codigo puedo utilzar, porq los campos de la tabla venta son:Cod_venta,Cod_cliente,Cod_personal,,fecha_venta,hora_venta , Total_venta, en mi tabla detalleventa tengo lo siguiente,cod_venta,cod_producto,Nom_producto,pre_producto,cant_producto,
Sub_total,
que se sugieres q haga....por favor....

q codigo estas usando para grabar
en este caso
que estas haciendo para grabar la tabla ventas (q no te graba)
consulta.. la tabla ventas esta en una Dw???
si es asi, trataste con lo q te mencione en el otro post?
de grabar directamente la dw?
darle un update dw_x.update bla bla ??

Causa te complicas demasiado la vida, power builder fue diseñado para hacer las cosas facil, o si no mejor progrmalo en java >>solo practica<<<