public subroutine wf_to_file ();
Integer i
long	ll_pos, ll_rc
SaveAsType lSaveAsType
String	ls_pathname, ls_filename, ls_ext, ls_path1, ls_path2
n_cst_string lnv_str
DataWindowChild ldwc1, ldwc2
DataStore ldws

i = GetFileSaveName ( 'Select File', ls_pathname, ls_filename, "XLS", &
	"Excel (*.XLS),*.XLS, Comma-separated (*.CSV), *.CSV, DBF (*.DBF), *.DBF") 
If i =  1  Then
	ls_pathname = Lower(ls_pathname)
	ll_pos = lnv_str.of_lastpos(ls_pathname,'.')
	If ll_pos =  0  Then
		Message_Error('Не определено расширение файла.')
		Return
	End If
	ls_ext = MID(ls_pathname, ll_pos+ 1 )
	CHOOSE CASE ls_ext
	 CASE "xls"
		lSaveAsType = Excel5!
	 CASE "csv"
		lSaveAsType = CSV!
	 CASE "dbf"
		lSaveAsType = dBASE3!
	 CASE ELSE
		Message_Error('Для расширения "' + ls_ext + '" формат файла не определён.')
		Return
	END CHOOSE
	If dw_report.GetChild('rep1', ldwc1) = - 1  Or dw_report.GetChild('rep2', ldwc2) = - 1  Then 
		Message_Error('Ошика определения вложеных отчётов.')
		Return
	End If
	ll_rc = ldwc1.RowCount() // Возвращает правильное значение
	If ll_rc >  0  Then
		ldws = CREATE DataStore
		ldws.SetTransObject(SqlCa)
		ldwc1.SetTransObject(SqlCa)
		ll_rc = ldwc1.RowsCopy( 1 , ll_rc, Primary!, ldws,  1 , Primary!) // Возврат - 1 
		If ll_rc >  0  Then
			ll_rc = ldws.SaveAs(ls_pathname,lSaveAsType,false)
			MessageBox('ldws.SaveAs', String(ll_rc))
		End If
		ls_path1 = Left(ls_pathname,ll_pos -  1 ) + '_1.' + ls_ext
		ll_rc = ldwc1.SaveAs(ls_path1,lSaveAsType,false) // Возврат - 1 
	End If	
End If

...
		ldws = CREATE DataStore
		ldws.DataObject=ldwc1.DataObject
		ldws.SetTransObject(SqlCa)
		ldwc1.SetTransObject(SqlCa)
		ll_rc = ldwc1.RowsCopy( 1 , ll_rc, Primary!, ldws,  1 , Primary!) // Возврат - 1