topic-42336

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Abm con TDataBase ( Resuelto )
Posted: Fri Oct 21, 2022 12:25 AM

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 (fw): Select all Collapse

//----------------------------------------------------------------------------//
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

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Abm con TDataBase
Posted: Fri Oct 21, 2022 12:04 PM

+

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Abm con TDataBase ( Resuelto )
Posted: Fri Oct 21, 2022 04:53 PM

El objeto TDataBase es oComercio, si ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Abm con TDataBase ( Resuelto )
Posted: Fri Oct 21, 2022 05:04 PM

Modify current record

Code (fw): Select all Collapse

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

Append new record

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Abm con TDataBase ( Resuelto )
Posted: Fri Oct 21, 2022 10:27 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Abm con TDataBase ( Resuelto )
Posted: Sat Oct 22, 2022 06:03 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Abm con TDataBase ( Resuelto )
Posted: Sat Oct 22, 2022 01:22 PM

Nuchas gracias Antonio por tu explicación.

Saludos

FiveTech Support Forums

Continue the discussion