If vid_pac > 0 then
datawin.reset()
Datawin.Retrieve(vid_pac, datetime(date(em_desde.text), time('00:00')), datetime(date(em_hasta.text), time('23:59')))
Datawin.setsort("#6A")
Datawin.sort()
Datawin.groupcalc()
End if
dw_rte.reset()
For v_fila = 1 to datawin.rowcount()
dw_rte.insertrow(0)
dw_rte.scrolltorow(dw_rte.rowcount())
dw_rte.setitem(dw_rte.rowcount(), 1, datawin.getitemstring(v_fila, "cf_informe"))
Next
varchi_text = 'C:\gesturnos\Historias Clinicas\' + sle_paciente.text + '.txt'
If NOT DirectoryExists ('C:\gesturnos\Historias Clinicas\') then CreateDirectory ('C:\gesturnos\Historias Clinicas\')
If dw_rte.SaveAs(varchi_text, Text!, FALSE) = 1 then
//If datawin.SaveAs(vpath_archi, Text!, FALSE) = 1 then
rte_1.InsertDocument(varchi_text, TRUE, FileTypeText!)
End if