Abm con TDataBase ( Resuelto )

[horacio]

Colegas,
Estoy trabajando con esta clase pero no me doy cuenta como agregar ( append ) o modificar un registro. Este código no hace nada

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//
Method Guardar() Class AbmComercio
//----------------------------------------------------------------------------//

    Memvar o
   
    If( ::lOnOff )
        o : oComercio : Append()
    End 
    o : oComercio : codigo     := ::cCodigo            
    o : oComercio : compartido := ::cCompartido        
    o : oComercio : nombre     := ::cNombre            
    o : oComercio : r_social   := ::cR_social          
    o : oComercio : nrocuit    := ::cNrocuit            
    o : oComercio : respons    := ::cRespons            
    o : oComercio : domicilio  := ::cDomicilio          
    o : oComercio : puerta     := ::cPuerta            
    o : oComercio : manzana    := ::cManzana            
    o : oComercio : barrio     := ::cBarrio            
    o : oComercio : localidad  := ::cLocalidad          
    o : oComercio : c_p        := ::cC_p                
    o : oComercio : telefono   := ::cTelefono          
    o : oComercio : celular    := ::cCelular            
    o : oComercio : rendicion  := ::cRendicion          
    o : oComercio : supervisor := ::cSupervisor        
    o : oComercio : observac   := ::cObservac          
    If( ::lOnOff )
        o : oComercio : Save()
    Else
        o : oComercio : Updated()
    End
    Return 0   
 

La variable ::lOnOff me indica si es un alta o una modificación. Que estoy haciendo mal? Muchas gracias!

Saludos

[horacio]

+

[Antonio Linares]

El objeto TDataBase es oComercio, si ?

[nageswaragunupudi]

Modify current record

Code: Select all  Expand view  RUN

oDbf:<fieldname> := <newvalue>
....
oDbf:Save()
 

Append new record

Code: Select all  Expand view  RUN

oDbf:Blank()
oDbf:<fieldname> := <newvalue>
...
oDbf:Save()

[horacio]

Gracias a ambos por contestar, efectivamente Antonio, ese es el objeto TDataBase. Use el método append() y funcionó. Los métodos Blank() y Append() son equivalentes? El método Updated() que función cumple? Gracias nuevamente

Saludos

[Antonio Linares]

Append añade, Blank "limpia" el registro (lo vacia), Updated() devuelve verdadero o falso, según si la DBF ha sido actualizada

[horacio]

Nuchas gracias Antonio por tu explicación.

Saludos