Smarty php como imprimir algunos ciclos de un for each con iteractions

Algo que me parecia impocible de realizar pero que si viene especificado en lagina de support Smarty
Impresion de una tabla llamada mensualidades sin los dos primeros datos y sin el ultimo de la tabla

Numero de mensualidad
Cantidad
Fecha de pago

 


                                                                 

{foreach from=$mensualidades item="mensualidad" name=bucle1} 
  {if $smarty.foreach.bucle1.iteration<3}
  {elseif $smarty.foreach.bucle1.last} 
	{else}



  

    
{$smarty.foreach.bucle1.iteration}
 
    
{$mensualidad.pago}
    
{$mensualidad.fecha_cobro}



{/if} {/foreach} 

Cambiar de idioma las fechas en SugarCRM con smarty

Después de tanto buscar en la documentación y en los foros, y no encontrar como cambiar el idioma de las fechas en SugarCRM para integrarlas en español a un documento PDF, intente asignar el valor de  la salida con un formato en especifico, con la sentencia {assign var=a value=$fields.fecha_cumpleos_c|date_format:"%m"} y así obtener el numero del mes y sustituirlo por el nombre del mes en español. Aca el código completo:


{$fields.fecha_cumpleanos_c|date_format:"%e"|cat:' de'} {assign var=a value=$fields.fecha_cumpleanos_c|date_format:"%m"} {if $a==''}{$a} 
{elseif $a=='01'}enero de 
{elseif $a=='02'}febrero de 
{elseif $a=='03'}marzo de 
{elseif $a=='04'}abril de 
{elseif $a=='05'}mayo de 
{elseif $a=='06'}junio de 
{elseif $a=='07'}julio de 
{elseif $a=='08'}agosto de 
{elseif $a=='09'}septiembre de 
{elseif $a=='10'}octubre de 
{elseif $a=='11'}noviembre de 
{elseif $a=='12'}diciembre de {/if}
{$fields.fecha_cumpleanos_c|date_format:"%Y"}

 el código {$fields.fecha_cumpleanos_c|date_format:"%e"|cat:' de'} y {$fields.fecha_cumpleanos_c|date_format:"%Y"}  escribe el día y el año respectivamente para de esta forma poder escribir una fecha del tipo 01 de mayo de 2010, este método también se puede aplicar al nombre de los días para obtener fechas del tipo Lunes 02 de octubre de 2017.

Quitar duplicados en Excel

Si bien se puede realizar dicha tarea de diferentes formas, como utilizar una consulta SQL desde el DATA Query, podría suceder que no lo tengamos instalado o mucho peor que ni siquiera tengamos acceso a instalarlo, también existen soluciones comerciales que pueden realizar dicha tarea (de manera mas efectiva), el siguiente macro agiliza un poco esta faena solo tienes que tener tus datos ordenados alfabéticamente posicionar el cursor en la primera celda de los datos y correr dicho el macro.


Sub duplicados()
Dim i As Integer
i = 0

ActiveCell.Activate

Do While ActiveCell.Offset(i, 0) <> ""

' si el dato actual es diferente al siguiente entonces
' escribelo en la celda de la derecha

If (ActiveCell.Offset(i, 0) <> ActiveCell.Offset(i + 1, 0)) Then

ActiveCell.Offset(i, 1) = ActiveCell.Offset(i, 0).Value

End If

i = i + 1

'Para librar el error donde un entero solo
'puede contener un numero entre -32767 y 32767
'y la cantidad de datos es mucho mayor a esa cifra

If i = 32000 Then i = 0
activecell.offset(i,0).activate
Loop

End Sub

Curiosidad en Excel

Si eres programador, desarrollador o lo que se le parezca estarás de acuerdo que cuando uno tiene que probar alguna idea de un modulo, función, clase, etc. etc. El nombre es en lo que menos piensas, pues eso intentaba hacer cuando me encontré con una verdadera rareza, escribía un procedimiento pare Excel cuando escribí algo parecido a esto:

Sub ae56()
…
…
. aquí puedes escribir lo que gustes al fin y al cabo no se ejecutara
.
.
…
End sub

Cuando quise ejecutarlo para sorpresa mía el procedimiento aparecía enumerado en la ventanita de los macros pero no se podia ejecutar (ni el boton ejecutar se activa) ademas cambio mi posición en el grid curiosamente en la celda que tiene el nombre de mi procedimiento.

Pues resulta entonces que el nombre de tus procedimientos no pueden tener el mismo nombre que una celda – digo si en algún momento pensaste nombrarlo de esta manera –

Borrar vinculos de una hoja

Sencillísimo pero muy útil, si alguna vez haz querido quitar links de una hoja sabras que es molesto quitar uno a uno. con este macro solo basta seleccionar el area con los links y ejecutar el macro para borrar los links.


Sub borrar_lincks()
'
Dim Strdir As String
Strdir = Selection.Address
Range(Strdir).Select
Selection.Hyperlinks.Delete
End Sub