exportar a html
Publicado por JUAN CEVALLOS (2 intervenciones) el 17/04/2009 15:45:12
/////////////////////tengo este codigo pero no me guarda
if nivel='a' or nivel='b' then
string docname,named
integer value
if dw_17.rowcount()>0 then
value=getfilesavename("select file",&
docname,named,"HTML",&
"archivo html(*.HTML),*.HTML,"+&
"archivo texto(*.txt),*.txt")
if value=1 then
if right(docname,3)='HTMLtable'then
dw_17.saveas(docname,HTMLtable!,true)
elseif right(docname,3)='txt'then
dw_17.saveas(docname,text!,true)
end if
else
messagebox("Advertencia","No se importo ninguna información")
end if
else
messagebox("Advertencia","No hay datos")
end if
end if
if nivel='c' then
messagebox("Error","No tiene privilegios para importar datos")
end if
if nivel='a' or nivel='b' then
string docname,named
integer value
if dw_17.rowcount()>0 then
value=getfilesavename("select file",&
docname,named,"HTML",&
"archivo html(*.HTML),*.HTML,"+&
"archivo texto(*.txt),*.txt")
if value=1 then
if right(docname,3)='HTMLtable'then
dw_17.saveas(docname,HTMLtable!,true)
elseif right(docname,3)='txt'then
dw_17.saveas(docname,text!,true)
end if
else
messagebox("Advertencia","No se importo ninguna información")
end if
else
messagebox("Advertencia","No hay datos")
end if
end if
if nivel='c' then
messagebox("Error","No tiene privilegios para importar datos")
end if
Valora esta pregunta


0