DEFINE CLASS Cliente AS Session OLEPUBLIC
Publicado por luis martin (20 intervenciones) el 09/12/2004 18:27:27
Me pueden explicar que es session y OLEPUBLIC en este codigo que copie?
DEFINE CLASS Cliente AS Session OLEPUBLIC
CodCliente = ""
RSocial = ""
Direccion = ""
Telefono = ""
LPedido = 0
PROCEDURE Init (cIDCliente as String)
OPEN DATABASE ;
_Samples + "\Tastrade\Data\Tastrade.dbc"
SELECT * from Customer WHERE ;
Customer_ID = cIDCliente INTO CURSOR curCliente
this.CodCliente = cIDCliente
this.RSocial = curCliente.Company_Name
this.Direccion = curCliente.Address
this.Telefono = curCliente.Phone
this.LPedido = curCliente.Max_Order_Amt
ENDPROC
PROCEDURE Destroy
ENDPROC
PROCEDURE Error(nError, cMethod, nLine)
ENDPROC
ENDDEFINE
DEFINE CLASS Cliente AS Session OLEPUBLIC
CodCliente = ""
RSocial = ""
Direccion = ""
Telefono = ""
LPedido = 0
PROCEDURE Init (cIDCliente as String)
OPEN DATABASE ;
_Samples + "\Tastrade\Data\Tastrade.dbc"
SELECT * from Customer WHERE ;
Customer_ID = cIDCliente INTO CURSOR curCliente
this.CodCliente = cIDCliente
this.RSocial = curCliente.Company_Name
this.Direccion = curCliente.Address
this.Telefono = curCliente.Phone
this.LPedido = curCliente.Max_Order_Amt
ENDPROC
PROCEDURE Destroy
ENDPROC
PROCEDURE Error(nError, cMethod, nLine)
ENDPROC
ENDDEFINE
Valora esta pregunta


0