** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Consulta con texto enriquecido
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Consulta con texto enriquecido

 Responder Responder
Autor
Mensaje
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Consulta con texto enriquecido
    Enviado: 12/Mayo/2018 a las 15:31
Function que consulta en una tabla con un campo de texto enriquecido y no reconoce, en el cuerpo de la consulta los textos de mas de 255 caracteres y con caracteres como "/:' etc etc  

Alguna idea?
Algún enlace para leer sobre como trabajar con dichos campos?

Ojo que los datos de campo llevan todod tipo de caracteres alfanumericos e incluso acentos,comas, dos puntos,dieresis.... y la biblia en verso
El campo claro esta es multiline

Ver: errores mas abajo los datos que busca

Dim strsql As String
Dim i As String
Dim rs As Recordset
Dim SOrdenaInicio As Integer
Dim sOrdenaFinal As Integer
Dim estado As Boolean
Dim s As Long

Private Sub CmdMudanza_Click()
strsql = "SELECT Tbl_Pres_Lineas.Encabezado, Tbl_Pres_Lineas.EncabezadoNou"
strsql = strsql & "  FROM Tbl_Pres_Lineas"
strsql = strsql & " WHERE (((Tbl_Pres_Lineas.Encabezado) Is Not Null))"
strsql = strsql & " Order By Tbl_Pres_Lineas.Encabezado;"
Set rs = CurrentDb.OpenRecordset(strsql)
With rs
sOrdenaFinal = rs.RecordCount
For SOrdenaInicio = 1 To sOrdenaFinal
        i = Trim(!Encabezado)
        .Edit
        s = Actualiza
        If estado = False Then
           GoTo 100
        End If
        !EncabezadoNou = s
        .Update
        .MoveNext
Next
100
    .Close: Set rs = Nothing
End With
End Sub


Private Function Actualiza()
   '' he incluido trim y mejora un poco
strsql = " SELECT Trim(Tbl_ConceptosEncabezados.IDEncabezado) as IDEncabezado"
'strsql = " SELECT Tbl_ConceptosEncabezados.IDEncabezado"
strsql = strsql & "  FROM Tbl_ConceptosEncabezados "
strsql = strsql & " WHERE Tbl_ConceptosEncabezados.Encabezado=" & """" & i & """"
    ''Nota: con "like" en vez de "="  tampoco vá.
Set rs = CurrentDb.OpenRecordset(strsql)
If rs.RecordCount = 0 Then
   MsgBox "No encontramos el esperado .... " & i & "..." & Len(i), vbCritical, "Balances"
   rs.Close: Set rs = Nothing
   estado = False
   Exit Function
End If
rs.MoveFirst
    Actualiza = rs!IDencabezado
    estado = True
rs.Close: Set rs = Nothing
End Function



Errores porque no encuentra:

"Col·lector penjat de tub de  PVC de 110 mm"

Baixant 110 mm. de tub de PVC de D 110 mm, incloses les peces especials i fixat mecànicament amb brides cada 1,50m. inclusos colzes de pressió al final dels baixant totalment instal·lat i acabat per el seu correcte funcionament.

Canonada de PVC per sanejament soterrat tipus UD, segons norma UNE-EN 1401-1:1998 de rigidesa anular nominal SN 4 (SDR 41), de 160 mm de diàmetre nominal, amb unions mitjançant junta elàstica o encolades, amb pp d'accessoris i elements de subjecció. Compl

Extractor de bany, tipus EDM-200-CH de Soler & Palau

Veras cuando empieze con buscar en las descripciones... para tirarse de los pelos!!





Editado por VayaCaló - 12/Mayo/2018 a las 16:23
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: en línea
Puntos: 10348
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 16:22
Entiendo que ambos modulos los tienes en el mismo formulario ¿no?

¿has comprobado que el valor de i en la Funcion Actualiza sea el correcto?

Yo suelo emplear el instr

.... WHERE Instr(Encabezado, "Cadena a buscar") > 0 ....

con variable sería:

.... WHERE Instr(Encabezado, '" & variable "') > 0 ....


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 626
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita pitxiku Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 16:28
Declaras un objeto rs en... ¿la sección Declaraciones? Luego lo usas en el evento del botón, y sin cerrarlo, le asignas otro origen en la función. ¿No fallan los recordsets?

Por otro lado, ¿por qué no creas una consulta con las 2 tablas, relacionadas por los campos Encabezado? Así es Access el que tiene que lidiar con esos campos enriquecidos, y no tú. Y si la conviertes en una consulta de actualización, ya ni siquiera necesitas el código, sólo ejecutarla.
Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 17:10
Lo acabo de probar y no mejora , se queda trabado cuando encuentra por ejemplo:

Armari empotrat 90x70x250 ('Rebedor'')

las comillas.... ejem

Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 17:12
Pues.... nunca de los jamases en 30 años me han fallado los recordsets

La finalidad es trasladar las definiciones string a otra tabla, economia de medios, con un ID autonumerico y desde esa sustituir el string por el id


Editado por VayaCaló - 12/Mayo/2018 a las 17:13
Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 626
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita pitxiku Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 17:32
Lo de los recordstes es que nunca lo había visto así, por eso preguntaba.

Para lo otro, igual te interesa usar el texto plano, no sea cosa que te estén fastidiando las etiquetas que coloca Access, y en un campo estén y en el otro no:

- https://msdn.microsoft.com/es-es/vba/access-vba/articles/application-plaintext-method-access
Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 457
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita 01loko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 18:00
Pregunta tal vez absurda:
¿porque no quitas todos los s¡imbolos (mediante uncion) haces la consulta y guardas los resultados sin cambios? 
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: España
Estado: en línea
Puntos: 10348
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 18:30
Tendrás que hacer un replace de la ' (o de la doble si también hay)

Replace(Cadena, "'", """")


... puñeteros acentos, eñes, comillas, símbolos especiales, .... Angry
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 457
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita 01loko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 19:15
Public Function PuroTexto(cadena As String)
' cadena se elimina todo que no sea letras a-z y A-Z y espacios.
Dim iX As Integer
Dim iC As Integer
Dim iZ As Integer
Dim CS As String
For iX = 1 To Len(cadena)
iC = asc(Mid(cadena, iX, 1))
If (iC >= (asc("a")) And iC <= (asc("z"))) Or iC = 32 _
Or (iC >= (asc("A")) And iC <= (asc("Z"))) Or iC >= (asc("1")) _
And iC <= (asc("9")) Then
CS = CS & Chr(iC)
End If
Next
PuroTexto = CS
End Function
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 12/Mayo/2018 a las 21:11
Saludos a todos, Tonto! soy Tonto! bueno pues habia compuesto una function muy chula con la función de Olaz y una function RegExp que es funcional...peroooooo...

Inicié la cosa con sugerencia de 01loko  tratando primero los datos en seccion limpieza

Aplique PlainText con sugerencia de pitxiku
Aplique de Olaz  TextoSinAcentos
Aplique RegExp 

y cuando me disponia tan feliz a guardar el tocho....  argggg no me deja

Me dpy cuenta que estoy trabajando con texto plano no con texto enriquecido y perderé todo el trabajo de formateo. 

Lastima

Algún experto en texto enriquecido?



Editado por VayaCaló - 12/Mayo/2018 a las 21:13
Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Mayo/2018 a las 00:29
Al final lo he fabricado de esta manera..... desechando texto enriquecido, por ahora

Que hace: Traslada los datos string (Cabecera y Descripcion) de una tabla (origen) a dos tablas (destino), haciendo una limpieza de acentos y cosas varias, una vez efectuado y en la tabla origen rellena dos columnas con los identificadores de las tablas anteriores que los relacionan, efectuando una comprobación final con NoCoincidentes.

Falta eliminar las columnas string de la tabla origen... pero eso y por seguridad despues de hacer una copia de la tabla origen, por si las moscas

Podeis cerrar el hilo y gracias por vuestra atención

Post: RegExt muy interesante
        Sigo pidiendo ayuda para trabajar con textos enriquecidos

Option Compare Database
Option Explicit

Dim strsql As String
Dim i As String
Dim Sexpresion As String
Dim rs As dao.Recordset
Dim SOrdenaInicio As Integer
Dim sOrdenaFinal As Integer
Dim estado As Boolean
Dim stCual As String
Dim sti As String

Private Function Actualiza(sti)
Select Case stCual
Case "Encabezados"
    estado = True
    strsql = " SELECT Tbl_ConceptosEncabezados.IDEncabezado"
    strsql = strsql & "  FROM Tbl_ConceptosEncabezados "
    strsql = strsql & " WHERE Encabezado=" & """" & sti & """"
Case "Descripcion"
    estado = False
    strsql = " SELECT Tbl_ConceptosDescripcion.IDDescripcion"
    strsql = strsql & "  FROM Tbl_ConceptosDescripcion "
    strsql = strsql & " WHERE Descripcion=" & """" & sti & """"
End Select
If estado = True Then
    Set rs = CurrentDb.OpenRecordset(strsql)
    If rs.RecordCount = 0 Then
       MsgBox "No encontramos el esperado .... " & sti & "..." & Len(sti), vbCritical, "Balances"
       rs.Close: Set rs = Nothing
       estado = False
       Exit Function
    End If
    rs.MoveFirst
    Actualiza = rs!IdEncabezado
    estado = True
    rs.Close: Set rs = Nothing
Else
    Set rs = CurrentDb.OpenRecordset(strsql)
    If rs.RecordCount = 0 Then
       MsgBox "No encontramos el esperado .... " & sti & "..." & Len(sti), vbCritical, "Balances"
       rs.Close: Set rs = Nothing
       estado = False
       Exit Function
    End If
    rs.MoveFirst
    Actualiza = rs!IDDescripcion
    estado = True
    rs.Close: Set rs = Nothing
End If
End Function

Private Sub NumeroLosDatosTablas()
Select Case stCual
Case "Encabezados"
    strsql = "SELECT Tbl_Pres_Lineas.Encabezado, Tbl_Pres_Lineas.EncabezadoNou"
    strsql = strsql & " FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Len([Encabezado])) > 0))"
    strsql = strsql & " Order By Tbl_Pres_Lineas.Encabezado;"
    Set rs = CurrentDb.OpenRecordset(strsql)
    With rs
    sOrdenaFinal = rs.RecordCount
    For SOrdenaInicio = 1 To sOrdenaFinal
        .Edit
        !EncabezadoNou = Actualiza(Trim(!Encabezado))
        .Update
        .MoveNext
    Next
    .Close: Set rs = Nothing
    End With
Case "Descripcion"
    strsql = "SELECT Tbl_Pres_Lineas.Descripcion, Tbl_Pres_Lineas.DescripcionNou"
    strsql = strsql & " FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Len([Descripcion])) > 0)) "
    strsql = strsql & " Order By Tbl_Pres_Lineas.Descripcion;"
    Set rs = CurrentDb.OpenRecordset(strsql)
    With rs
    sOrdenaFinal = rs.RecordCount
    For SOrdenaInicio = 1 To sOrdenaFinal
        .Edit
        !DescripcionNou = Actualiza(Trim(!Descripcion))
        .Update
        .MoveNext
    Next
    .Close: Set rs = Nothing
    End With
End Select
End Sub

Private Sub MudoLosDatos()
Select Case stCual
Case "Encabezados"
    strsql = " INSERT INTO Tbl_ConceptosEncabezados ( Encabezado )"
    strsql = strsql & " SELECT DISTINCT Trim(Tbl_Pres_Lineas.Encabezado) as Encabezado "
    strsql = strsql & " FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Len([Encabezado])) > 0))"
    strsql = strsql & " ORDER BY Trim(Tbl_Pres_Lineas.Encabezado);"
    CurrentDb.Execute strsql
Case "Descripcion"
    strsql = " INSERT INTO Tbl_ConceptosDescripcion ( Descripcion )"
    strsql = strsql & " SELECT DISTINCT Trim(Tbl_Pres_Lineas.Descripcion) as Descripcion"
    strsql = strsql & " FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Len([Descripcion])) > 0))"
    strsql = strsql & " ORDER BY Trim(Tbl_Pres_Lineas.Descripcion);"
    CurrentDb.Execute strsql
End Select
End Sub

Private Sub IniCioPorErroresdesdeCero()
DoCmd.SetWarnings False
CurrentDb.Execute "UPDATE Tbl_Pres_Lineas SET Tbl_Pres_Lineas.EncabezadoNou = Null, Tbl_Pres_Lineas.DescripcionNou = Null;"
CurrentDb.Execute "DELETE Tbl_ConceptosDescripcion.* FROM Tbl_ConceptosDescripcion;"
CurrentDb.Execute "DELETE Tbl_ConceptosEncabezados.* FROM Tbl_ConceptosEncabezados;"
DoCmd.SetWarnings True
End Sub

Private Sub CmdLimpiaTablaCaracteresRaros_Click()
 Call IniCioPorErroresdesdeCero
 stCual = "Encabezados": Call LimpiaLosDatosAntesDeLaMudanza
 stCual = "Descripcion": Call LimpiaLosDatosAntesDeLaMudanza
 stCual = "Encabezados": Call MudoLosDatos
 stCual = "Descripcion": Call MudoLosDatos
 stCual = "Encabezados": Call NumeroLosDatosTablas:
 stCual = "Descripcion": Call NumeroLosDatosTablas:
 Call CompruebaQueTodoEstaBien
End Sub

Private Sub CompruebaQueTodoEstaBien()
strsql = " SELECT Tbl_ConceptosEncabezados.IdEncabezado, Tbl_ConceptosEncabezados.Encabezado"
strsql = strsql & " FROM Tbl_ConceptosEncabezados LEFT JOIN Tbl_Pres_Lineas ON Tbl_ConceptosEncabezados.[IdEncabezado] = Tbl_Pres_Lineas.[EncabezadoNou]"
strsql = strsql & " WHERE (((Tbl_Pres_Lineas.EncabezadoNou) Is Null));"
Set rs = CurrentDb.OpenRecordset(strsql)
    If rs.RecordCount = 0 Then
      MsgBox "Todo esta bien en los encabezamientos", vbCritical, "Balances"
      rs.Close: Set rs = Nothing
    Else
      MsgBox " Hemos encontrado errores en nª: " & rs.RecordCount & "Revise los datos de las tablas de encabezamiento ", vbCritical, "Balances"
      rs.Close: Set rs = Nothing
    End If
strsql = " SELECT Tbl_ConceptosDescripcion.IdDescripcion, Tbl_ConceptosDescripcion.Descripcion"
strsql = strsql & " FROM Tbl_ConceptosDescripcion LEFT JOIN Tbl_Pres_Lineas ON Tbl_ConceptosDescripcion.[IdDescripcion] = Tbl_Pres_Lineas.[DescripcionNou]"
strsql = strsql & " WHERE (((Tbl_Pres_Lineas.DescripcionNou) Is Null));"
Set rs = CurrentDb.OpenRecordset(strsql)
    If rs.RecordCount = 0 Then
      MsgBox "Todo esta bien en las Descripciones", vbCritical, "Balances"
      rs.Close: Set rs = Nothing
    Else
      MsgBox " Hemos encontrado errores en nª: " & rs.RecordCount & "Revise los datos de las tablas de Descripcion ", vbCritical, "Balances"
      rs.Close: Set rs = Nothing
    End If
End Sub


Private Function LimpiaLosDatosAntesDeLaMudanza()
Dim a As Boolean
Select Case stCual
Case "Encabezados"
    a = True
    strsql = " SELECT Tbl_Pres_Lineas.Encabezado "
    strsql = strsql & "  FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Tbl_Pres_Lineas.Encabezado) Is Not Null) AND ((Len([encabezado]))>0))"
    strsql = strsql & " Order By Tbl_Pres_Lineas.Encabezado;"
Case "Descripcion"
    a = False
    strsql = " SELECT Tbl_Pres_Lineas.Descripcion "
    strsql = strsql & "  FROM Tbl_Pres_Lineas"
    strsql = strsql & " WHERE (((Tbl_Pres_Lineas.Descripcion) Is Not Null) AND ((Len([Descripcion]))>0))"
    strsql = strsql & " Order By Tbl_Pres_Lineas.Encabezado;"
End Select
Sexpresion = "[^\w\ .%,+@-]"
Set rs = CurrentDb.OpenRecordset(strsql)
    If rs.RecordCount = 0 Then
        MsgBox "No encontramos datos para efectuar la limpieza .... ", vbCritical, "Balances"
        rs.Close: Set rs = Nothing
        Exit Function
    End If
If a = True Then
With rs
    .MoveFirst
    sOrdenaFinal = .RecordCount
    For SOrdenaInicio = 1 To sOrdenaFinal
        i = Trim(!Encabezado)
        i = Replace(i, "ñ", "n")
        i = TextoSinAcentos(i)
        i = regexp_replace(i, Sexpresion, "")
        .Edit
        !Encabezado = ""
        !Encabezado = i
        .Update
        .MoveNext
    Next
    .Close: Set rs = Nothing
End With
Else
With rs
    .MoveFirst
    sOrdenaFinal = .RecordCount
    For SOrdenaInicio = 1 To sOrdenaFinal
        i = Trim(!Descripcion)
        i = Replace(i, "ñ", "n")
        i = TextoSinAcentos(i)
        i = regexp_replace(i, Sexpresion, "")
        .Edit
        !Descripcion = ""
        !Descripcion = i
        .Update
        .MoveNext
    Next
    .Close: Set rs = Nothing
End With
End If
End Function

Public Function regexp_replace(ByVal SourceString As String, ByVal Pattern As String, ByVal ReplacePattern As String, Optional ByVal IgnoreCase As Boolean = True, Optional ByVal MultiLine As Boolean = True, Optional ByVal MatchGlobal As Boolean = True) As String
'de http://msaccesstipsandtricks.blogspot.com.es/2014/04/how-to-replace-string-with-regular-expression-in-msacess-vba.html   corregida
    Dim NewRegExp As Object
    Set NewRegExp = CreateObject("VBScript.RegExp")
    With NewRegExp
        .MultiLine = MultiLine
        .IgnoreCase = IgnoreCase
        .Global = MatchGlobal
        .Pattern = Pattern
        regexp_replace = .Replace(SourceString, ReplacePattern)
    End With
    Set NewRegExp = Nothing
End Function



Public Function TextoSinAcentos(ByVal Texto As String) As String
' Esta función devuelve el texto sin acentos eduardo@olaz.net
Dim lngTexto As Long
Dim i As Long
Dim lngPos As Long
Dim strCaracter As String * 1
Dim strNormalizado As String
Dim strConAcentos As String
Dim strSinAcentos As String
lngTexto = Len(Texto)
If lngTexto = 0 Then
    TextoSinAcentos = ""
    Exit Function
End If
strConAcentos = "ÁÀÂÄÃáàâäãÉÈÊËéèêëÍÌÎÏíìîïÓÒÔÖÕóòôöõÚÙÛÜúùûüÝýÿ"
strSinAcentos = "AAAAAaaaaaEEEEeeeeIIIIiiiiOOOOOoooooUUUUuuuuYyy"
For i = 1 To lngTexto
    strCaracter = Mid(Texto, i, 1) 'comparamos el caracter con la cadena con acentos
    lngPos = InStr(1, strConAcentos, strCaracter, vbBinaryCompare) 'si se ha encontrado coincidencia
    If lngPos <> 0 Then 'sustituímos el caracter con el que tiene la misma
    'posición en la cadena sin acentos (o sea la letra sin acentos)
    strCaracter = Mid(strSinAcentos, lngPos, 1)
End If
    '... y si no, pues seguimos como si nada
    TextoSinAcentos = TextoSinAcentos & strCaracter
Next i
End Function



Editado por VayaCaló - 13/Mayo/2018 a las 00:30
Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 457
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita 01loko Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Mayo/2018 a las 20:24
has probado a poner :
tucampotextoplano=plaintext(tucampotextoenriquecido)
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
VayaCaló Ver desplegable
Habitual
Habitual


Unido: 16/Septiembre/2008
Localización: España
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita VayaCaló Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Septiembre/2018 a las 17:56
Saludos,

Podeis cerrar este hilo?

Gracias

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable