In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Re: Error con TMenDataSet:Append()

Foro público de Xailer en español
Responder
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

Re: Error con TMenDataSet:Append()

Mensaje por jose.luis »

Ignacio,
En la versión 1.9.8 existe el método append.
Del fuente memdataset.prg
METHOD Append( lEvents ) CLASS XMemDataSet
LOCAL aRecord
LOCAL lCancel
IF ::lReadOnly
RETURN .F.
ENDIF
DEFAULT lEvents TO .T.
aRecord := {}
IF lEvents
lCancel := ::OnPreAppend()
IF Valtype( lCancel ) == "L" .AND. ! lCancel
RETURN .F.
ENDIF
ENDIF
AEval( ::aFields, {|v| AAdd( aRecord, v:Blank( .F. ) ) } )
AAdd( ::aData, aRecord )
IF !( ::aData == ::aWork )
Aadd( ::aWork, aRecord )
ENDIF
::GoBottom( lEvents )
IF lEvents
IF ::EventAssigned( "OnPostAppend" )
RETURN ::OnPostAppend()
ENDIF
ENDIF
RETURN .T.
¿Es que ya no existe en la 2?
Saludos,
José luis CApel
PD: En mis aplicaciones estoy usando memdataset:Append
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:4ab3472b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> José Alfonso,
>
> Lo siento, ahora mismo corrigo la ayuda.
>
> Saludos,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer support / Soporte de Xailer
> http://www.xailer.com
> http://www.xailer.info
> "José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
> mensaje news:4ab34143$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>>
>> De la ayuda de Xailer:
>>
>> TMemDataSet:Append
>> Añade un nuevo registro en la tabla.
>> Tipo
>> Sólo usable con TMemDataSet abierto
>>
>> Parámetros
>> [<lEvents>]
>>
>> Si verdadero se disparan los eventos, por defecto .T.
>>
>> Valor Retorno
>> <lSuccess>
>>
>> Verdadero si éxito
>>
>> Este método es el equivalente a la función DbAppend() típica de
>> Clipper/[x]Harbour.
>>
>> TMemDataSet
>> Propiedades
>> Métodos
>>
>> Saludos,
>>
>> Alf+.
>>
>> Ignacio Ortiz de Zúñiga escribió:
>>> José Alfonso,
>>>
>>> No existe el método Append en la clase TMemDataset, hay que usar
>>> AddNew() y Update().
>>>
>>> Saludos
>>>
>>
>
>
Arriba
jasm.quitaesto
Mensajes: 420
Registrado: Sab Ago 16, 2008 9:06 pm

Re: Error con TMenDataSet:Append()

Mensaje por jasm.quitaesto »

Ya me parecí­a a mi que mi memoria no fallaba.... ni la ayuda.
Ignacio, ¿algun documento que informe de los cambios importantes en los
dataset?
Saludos
Alf+.
José Luis Capel - Aicom escribió:
> Ignacio,
>
> En la versión 1.9.8 existe el método append.
>
> Del fuente memdataset.prg
>
> METHOD Append( lEvents ) CLASS XMemDataSet
>
> LOCAL aRecord
> LOCAL lCancel
>
> IF ::lReadOnly
> RETURN .F.
> ENDIF
>
> DEFAULT lEvents TO .T.
>
> aRecord := {}
>
> IF lEvents
> lCancel := ::OnPreAppend()
> IF Valtype( lCancel ) == "L" .AND. ! lCancel
> RETURN .F.
> ENDIF
> ENDIF
>
> AEval( ::aFields, {|v| AAdd( aRecord, v:Blank( .F. ) ) } )
>
> AAdd( ::aData, aRecord )
>
> IF !( ::aData == ::aWork )
> Aadd( ::aWork, aRecord )
> ENDIF
>
> ::GoBottom( lEvents )
>
> IF lEvents
> IF ::EventAssigned( "OnPostAppend" )
> RETURN ::OnPostAppend()
> ENDIF
> ENDIF
>
> RETURN .T.
>
> ¿Es que ya no existe en la 2?
>
> Saludos,
> José luis CApel
> PD: En mis aplicaciones estoy usando memdataset:Append
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
> mensaje news:4ab3472b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> José Alfonso,
>>
>> Lo siento, ahora mismo corrigo la ayuda.
>>
>> Saludos,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer support / Soporte de Xailer
>> http://www.xailer.com
>> http://www.xailer.info
>> "José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
>> mensaje news:4ab34143$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Ignacio,
>>>
>>> De la ayuda de Xailer:
>>>
>>> TMemDataSet:Append
>>> Añade un nuevo registro en la tabla.
>>> Tipo
>>> Sólo usable con TMemDataSet abierto
>>>
>>> Parámetros
>>> [<lEvents>]
>>>
>>> Si verdadero se disparan los eventos, por defecto .T.
>>>
>>> Valor Retorno
>>> <lSuccess>
>>>
>>> Verdadero si éxito
>>>
>>> Este método es el equivalente a la función DbAppend() tí­pica de
>>> Clipper/[x]Harbour.
>>>
>>> TMemDataSet
>>> Propiedades
>>> Métodos
>>>
>>> Saludos,
>>>
>>> Alf+.
>>>
>>> Ignacio Ortiz de Zúñiga escribió:
>>>> José Alfonso,
>>>>
>>>> No existe el método Append en la clase TMemDataset, hay que usar
>>>> AddNew() y Update().
>>>>
>>>> Saludos
>>>>
>>
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9460
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Re: Error con TMenDataSet:Append()

Mensaje por ignacio »

José Luis,
Entonces lo implementaremos en la 2.0 pero sólo por compatibilidad con
versiones anteriores. Hemos pretendido que TMemDataset se comporte más como
un dataset SQL que como uno del tipo DBF
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"José Luis Capel - Aicom" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=4ab35b21@svctag-j7w3v3j....]4ab35b21@svctag-j7w3v3j....[/email]
> Ignacio,
>
> En la versión 1.9.8 existe el método append.
>
> Del fuente memdataset.prg
>
> METHOD Append( lEvents ) CLASS XMemDataSet
>
> LOCAL aRecord
> LOCAL lCancel
>
> IF ::lReadOnly
> RETURN .F.
> ENDIF
>
> DEFAULT lEvents TO .T.
>
> aRecord := {}
>
> IF lEvents
> lCancel := ::OnPreAppend()
> IF Valtype( lCancel ) == "L" .AND. ! lCancel
> RETURN .F.
> ENDIF
> ENDIF
>
> AEval( ::aFields, {|v| AAdd( aRecord, v:Blank( .F. ) ) } )
>
> AAdd( ::aData, aRecord )
>
> IF !( ::aData == ::aWork )
> Aadd( ::aWork, aRecord )
> ENDIF
>
> ::GoBottom( lEvents )
>
> IF lEvents
> IF ::EventAssigned( "OnPostAppend" )
> RETURN ::OnPostAppend()
> ENDIF
> ENDIF
>
> RETURN .T.
>
> ¿Es que ya no existe en la 2?
>
> Saludos,
> José luis CApel
> PD: En mis aplicaciones estoy usando memdataset:Append
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
> mensaje news:4ab3472b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> José Alfonso,
>>
>> Lo siento, ahora mismo corrigo la ayuda.
>>
>> Saludos,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer support / Soporte de Xailer
>> http://www.xailer.com
>> http://www.xailer.info
>> "José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
>> mensaje news:4ab34143$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Ignacio,
>>>
>>> De la ayuda de Xailer:
>>>
>>> TMemDataSet:Append
>>> Añade un nuevo registro en la tabla.
>>> Tipo
>>> Sólo usable con TMemDataSet abierto
>>>
>>> Parámetros
>>> [<lEvents>]
>>>
>>> Si verdadero se disparan los eventos, por defecto .T.
>>>
>>> Valor Retorno
>>> <lSuccess>
>>>
>>> Verdadero si éxito
>>>
>>> Este método es el equivalente a la función DbAppend() típica de
>>> Clipper/[x]Harbour.
>>>
>>> TMemDataSet
>>> Propiedades
>>> Métodos
>>>
>>> Saludos,
>>>
>>> Alf+.
>>>
>>> Ignacio Ortiz de Zúñiga escribió:
>>>> José Alfonso,
>>>>
>>>> No existe el método Append en la clase TMemDataset, hay que usar
>>>> AddNew() y Update().
>>>>
>>>> Saludos
>>>>
>>>
>>
>>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer Spanish”