Scripts varios
Crear un fichero de texto desde un CEESI_Informe
Ver código ejemplo
Sub Show()
gform.Botonera.activarscripts=True
gform.Botonera.BotonAdd "InformeTXT", "BotPersGeneraInformeTXT", , 0, True, 123
End Sub
Sub Botonera_AfterExecute(aBotonera, aBoton)
If aboton.name = "BotPersGeneraInformeTXT" Then
InformeTXT
End If
End Sub
Sub InformeTXT()
lIdInforme=999
Set pCuaderno = gCn.Obj.DameObjeto("Informes", "Where IdInforme=" & lIdInforme)
Set lCol = gcn.DameNewCollection
lCol.Add CLng(Parametro1),"PEtiqueta"'Donde etiqueta es un campo de CEESI_Informes_Parametros
...
lCol.Add CLng(ParametroN),"PEtiqueta"
Set pCuaderno.Objeto.ColParametros = lcol
lfilename="C:\Prueba.txt"
lCadena = pCuaderno.Objeto.GeneraInforme(lErrores)
Set lUt = CreateObject("AhoraUtil.CUtil")
lUt.GuardaFichero cstr(lFileName), cstr(lCadena)
If Len(lErrores) > 0 Then
If MsgBox("El informe se ha generado con errores.¿Desea visualizarlos?"), 20, "Genera Informes") = 6 Then
Set lFrm = gCn.AhoraProceso("DameZoom", False, gCn)
lPrt = "Errores informe: " & gcn.damevalorcampo("Select descrip from ceesi_informes where idinforme=" & lIdInforme)
lFrm.Carga cstr(lPrt), cstr(lErrores)
End If
Else
MsgBox "El informe se ha generado correctamente", 64, "Genera Informes"
End If
End sub