Ignacio :
He seguido tus instrucciones pero obtengo el siguiente error
:
Saludos
José Ramón Truchado
************************** Mensaje del Error **********************
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TDATAFIELD:ODATASET1
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TODOELNOMBRE (132) =======> Se corresponde con : WITH OBJECT
oDataField:oDataSet
(b)TFORM2:FORMINITIALIZE (124)
TDATAFIELD:ONGETVALUE (0)
(b)XDATAFIELD:XDATAFIELD (27)
TDATAFIELD:VALUE (0)
TDBBRWCOLUMN:GETDATA (41)
TDBBRWCOLUMN:PAINTDATA (42)
TBROWSE:WMPAINT (131)
TDBBROWSE:WMPAINT (896)
UPDATEWINDOW (0)
(b)XCONTROL:XCONTROL (89)
TFORM2:UPDATE (0)
TFORM2:WMNCACTIVATE (711)
SHOWWINDOW (0)
TSCROLLINGWINCONTROL:SHOW (580)
TFORM2:SHOW (412)
MAIN (14)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: INQUILINOS
Registro: 3
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
************************************************************ *************
"Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
news:445a22f6$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> José Ramón,
>
> Utilizando como base el ejemplo SamplesDataControls1 haz lo siguiente:
>
> 1) Crea una nueva columna en el browse
> 2) En su propiedad oDataField escribe: FIRSTLAST
> 3) En el evento TForm:OnInitialize escribe:
>
>
> METHOD FormInitialize( oSender ) CLASS TForm1
>
> ::oDbfDataSet1:AddCalcField( "FIRSTLAST", {|o| FirstLast( o ) } )
>
> RETURN Nil
>
> STATIC FUNCTION FirstLast( oDataField )
>
> LOCAL cText
>
> WITH OBJECT oDataField:oDataSet
> cText := Trim( :First ) + " " + Trim( :Last )
> END WITH
>
> RETURN cText
>
> ¡Ya esta!
>
> "José Ramón Truchado" <
proveedores@e-tmsoft.com> escribió en el mensaje
> news:445a15f4$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>> Muchas gracias Paco :
>> Efectivamente así lo he hecho, en el primer mensaje expongo el método.
>> El problema es que no sé desde qué evento llamar al método. Lo he
>> intentado desde el OnCreate corresponbdiente a la columna del TdbfBrowse
>> y no me funciona, esa columna aparece vacía. Es curioso, si no defino
>> ninguna columna el TdbfBrowse me muestra el nombre completo en una sola
>> columna a pesar de que en la dbf son campos distintos nombre y apellido1
>> y apellido2. Deseo tener claro el proceso adecuado porque quiero que
>> posteriormente el Browse muestre los campos boleanos como "Sí o Nó" según
>> el caso, en vez de .T. o .F. que el usuário no entiende.
>>
>> Saludos
>> José Ramón Truchado.
>>
>> "Paco V." <
paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:[email=
445a0fd0@ozsrvnegro.ozlan.local...]
445a0fd0@ozsrvnegro.ozlan.local...[/email]
>>> Jose Ramon:
>>>
>>> Creo que tienes que ir al tema de los campos calculados.
>>>
>>> Puedes crear un nombre de campo al que le dices que campos son los que
>>> quieres meter en el. Es campo es qe que te mostrara en el browse.
>>>
>>> ::oDbfDataSet3:AddCalcField( "numero", {||
>>> ::oDbfDataSet3:cSeral+"/::oDbfDataSet3:cSeral} )
>>>
>>> Fijate, he creado un CalcField al que llamo numero. En el se juntan
>>> ::oDbfDataSet3:cSeral, mas un barrita y mas ::oDbfDataSet3:cSeral
>>>
>>> Lo utilizo para poner en la misma columna del Browse El número de serie
>>> del Albarán y el número de albaran separados por "/".
>>>
>>> Seguro que hay mucha gente que te lo explicara mejor que yo, y si me
>>> equivoco perdona.
>>>
>>> Paco V
>>>
>>> "José Ramón Truchado" <
proveedores@e-tmsoft.com> escribió en el mensaje
>>> news:[email=
4459df09@ozsrvnegro.ozlan.local...]
4459df09@ozsrvnegro.ozlan.local...[/email]
>>>> Gracias Ignacio pero lo he intentado y no lo he conseguido. Lo que
>>>> pretendo es que el Browse me muestre el nombre completo en una sola
>>>> columna mientras que en la BD se compone de tres campos
>>>> (nombre,apellido1 y apellido2). Tengo creado el método pero no se
>>>> ejecuta, el browse muestra todos los campos menos ese.
>>>> ¿Me podías concretar más. Lo siento pero soy novato utilizando Xailer.
>>>> Saludos
>>>> José Ramón
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
>>>> news:4459ad08$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>>>>> José Ramón,
>>>>>
>>>>> La puede ubicar donde quiera, pero siempre antes de ser utilizada.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> "José Ramón Truchado" <
proveedores@e-tmsoft.com> escribió en el
>>>>> mensaje news:4458d1ad$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
>>>>>> Hola a todos :
>>>>>>
>>>>>> ¿Donde debo ubicar la llamada al método descrito abajo para que el
>>>>>> nombre completo (3 campos en la DBF), salga en una sola columna. Lo
>>>>>> he hecho en el evento OnCreate correspondiente a la columna del
>>>>>> Browse y no funciona.
>>>>>>
>>>>>> METHOD AddNombre( oSender ) CLASS TForm2
>>>>>> IF ::oDataSet1:lOpen()
>>>>>> ::oDataSet1:AddCalcField( "Nombre", {|o|Trim(
>>>>>> o:oDataSet1:Nombre ) + " " +;
>>>>>> Trim(
>>>>>> o:oDataSet1:Apellido1 ) + " " +;
>>>>>> Trim(
>>>>>> o:oDataSet1:Apellido2 ) } )
>>>>>> Endif
>>>>>>
>>>>>> Saludos
>>>>>> José Ramón Truchado
>>>>>>
>>>>>> RETURN Nil
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>