Sub Create_Item_Movim (Par_Fecha As String, Par_Operacion As String, Par_Puntos As Double, Par_Saldo As Double, Par_Height As Int, Par_Width As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
'
p.SetLayoutAnimated(0, 0, 0, Par_Width, Par_Height)
p.LoadLayout("Movim_Puntos")
'
mp_lb_Fecha.Text = Par_Fecha.SubString2(0,10)
mp_lb_Operacion.Text = Par_Operacion
mp_lb_Puntos.Text = NumberFormat2(Par_Puntos,1,2,2,True)
mp_lb_Saldo.Text = NumberFormat2(Par_Saldo,1,2,2,True)
'
If Par_Operacion = "-" Then
mp_lb_Fecha.TextColor = Colors.Red
mp_lb_Operacion.TextColor = Colors.Red
mp_lb_Puntos.TextColor = Colors.Red
mp_lb_Saldo.TextColor = Colors.Red
End If
'
Return p
End Sub