Como exportar XML power builder 12.5

Buenos días expertos,

Tengo un inconveniente tengo una dw creada con una estructura XML y me exporta hasta hay no hay inconveniente, cree un for para recorrerla dw pero cuando guarda si hay 10 registros solo me guarda el primer registro en los 10 XML, envío mi código:

Date Fecha_i,fecha_f
time hora_i,hora_f
long posicion
string concepto, unidad_i, unidad_f
STRING ls_ruta,ls_archivo, ls_verifica,ls_seleccion,ls_numero_servicio
boolean lb_exist
long ll_filas, ll_cont

SetPointer(HourGlass!)
ls_ruta = 'C:\test\'
ls_archivo = 'abacus.xml'
ls_verifica = ls_ruta + ls_archivo
posicion=pos(em_ano_i.text,' ')
fecha_i=Date(mid(em_ano_i.text,1,posicion -1))
hora_i=time(mid(em_ano_i.text,posicion +1,8))

posicion=pos(em_ano_f.text,' ')
fecha_f=Date(mid(em_ano_f.text,1,posicion -1))
hora_f=time(mid(em_ano_f.text,posicion +1,8))

IF f_parametro_x_clave_consulta('CLABO',CONCEPTO)=FALSE THEN RETURN

if fecha_f < fecha_i then return

if rb_todos_unidades.checked then
unidad_i = ''
unidad_f = 'zz'
else
unidad_i = dw_unidad.GetText()
unidad_f = unidad_i
end if

DW_1.SETREDRAW(false)
dw_1.SetTransObject(sqlca)
ll_filas = dw_1.RowCount()

for ll_cont=1 to ll_filas
dw_1.Accepttext()
ls_seleccion = ''
ls_seleccion = TRIM(dw_1.GetItemString(ll_cont,"ind_exportar"))
if ls_seleccion = 'S' then
// APLICAR EL FILTRO DEL NUMERO DE SERVICIO
// ls_numero_servicio = TRIM(dw_1.GetItemString(ll_cont,"numero_servicio"))
// dw_1.SetFilter("numero_servicio = '"+ ls_numero_servicio +" '")
// dw_1.Filter()
ls_archivo = 'abacus_' + STRING(ll_cont) + '.xml'
ls_verifica = ls_ruta + ls_archivo
dw_1.saveAs(ls_verifica, XML!,false)
dw_1.update()
//IF dw_1.SaveAs(ls_verifica, XML!, false) = 1 THEN
if rb_registro.checked = true then
rb_registro.trigger event clicked()
else
rb_servicio.trigger event clicked()
End If
cb_imprimir.enabled=true
cb_imprimirorden.enabled=true
// generar archivo xml
//
ELSE
//messagebox("mensaje","archivo no guardado")
//END IF

// else
cb_imprimir.enabled=false
cb_imprimirorden.enabled=false
End If

//DW_1.SetFocus()
//DW_1.SETREDRAW(TRUE)

next
messagebox("mensaje","archivo guardado")

Me podrían decir que error estoy cometiendo gracias.