Mejorando el blog del ESLUG (Episodio 2)
Martin Ortega - 16/03/2021
Aquí dejo el código que tiene el botón "Con imagen".
Esto lo que hacer es dar contenido al campo description, después la hoja de estilos hace el resto, cuando cuente como funcionan los Web Templates explicaré que hago con este campo, pero claro, no lo puedo usar en todos las entradas, el ESLUG tiene casi mil, tendría que ir una a una modificándolas, solo sería dar al botón "Clear" y después decidir si dar al de "Con Imagen" o al de "Sin Imagen", son 10 segundos pero son demasiadas.
Si esto lo usa un forastero de tierra extraña tendría que cambiar un par de cosas en el scripts, el texto Autor y Fecha, el formato de la fecha no, cogerá el suyo.
Lo del contenido lo veo un poco bestia, seguro que hay alguna forma de traerse solo una parte del campo, si algún listo se lee esto y sabe como hacerlo le agradecería que me lo comentara.
De momento el campo lo dejo visible, el motivo es porque hay algunas entradas que solo uso el campo "Adddtional HTMLText", todo HTML, en ese caso se trae nada el campo "Content", en el ESLUG no lo usa nadie, solo yo, crearé un Roll y lo ocultaré, o tienes ese Roll o no puedes ver el campo, only para listos.
Sub Click(Source As Button)
Dim w As New notesuiworkspace
Dim s As New notessession
Dim db As notesdatabase
Dim uidoc As notesuidocument
Dim note As notesdocument
Dim cuenta As Integer
Dim item As NotesItem
Dim wnpweb As String
Set s = New NotesSession
Set db =s.currentdatabase
Set uidoc=w.currentdocument
Set note=uidoc.document
Set w = New NotesUIWorkspace
Set item = note.GetFirstItem( "description" )
wnpweb = uidoc.FieldGetText( "pagename" )
titulo = uidoc.FieldGetText( "Subject" )
autor = uidoc.FieldGetText( "Author" )
fecha = uidoc.FieldGetText( "creation" )
imagen = uidoc.FieldGetText( "imagen" )
contenido = uidoc.FieldGetText( "content" )
Call item.AppendToTextList("<a href="+Chr(34)+wnpweb+Chr(34)+">"+Chr(13))
Call item.AppendToTextList("<div id="+Chr(34)+"contenedorItem"+Chr(34)+">"+Chr(13))
Call item.AppendToTextList("<div class="+Chr(34)+"imagen"+Chr(34)+">"+Chr(13))
Call item.AppendToTextList("<img src="+Chr(34)+"../dx/"+imagen+"/$file/"+imagen+Chr(34)+">"+"</div>"+Chr(13))
Call item.AppendToTextList("<div class="+Chr(34)+"texto"+Chr(34)+">"+Chr(13))
Call item.AppendToTextList("<div id="+Chr(34)+"subjetmini"+Chr(34)+">"+titulo+"</div>"+Chr(13))
Call item.AppendToTextList("<div id="+Chr(34)+"autormini"+Chr(34)+">"+"Autor "+autor+"</div>"+Chr(13))
Call item.AppendToTextList("<div id="+Chr(34)+"fechamini"+Chr(34)+">"+"Fecha "+fecha+"</div>"+Chr(13))
Call item.AppendToTextList("<div id="+Chr(34)+"content"+Chr(34)+">"+contenido+"</div>"+Chr(13))
Call item.AppendToTextList("</div>"+"</div>"+Chr(13))
Call item.AppendToTextList("</a>"+Chr(13))
Call uidoc.RefreshHideFormulas
End Sub
