[ uuid(722A65A0-5F06-11D3-AF3B-00609791A3BC), version(1.0), helpstring("Librerķa de tipos del sistema de Clientes") ] library SistemaClientes { importlib("StdOle2.Tlb"); importlib("STDVCL40.DLL"); [ uuid(722A65A1-5F06-11D3-AF3B-00609791A3BC), version(1.0), dual, oleautomation ] interface ICliente: IDispatch { [propget, id(0x00000001)] HRESULT _stdcall ClienteNo([out, retval] long * Value ); [propput, id(0x00000001)] HRESULT _stdcall ClienteNo([in] long Value ); [propget, id(0x00000002)] HRESULT _stdcall Cliente([out, retval] IPersona ** Value ); [propput, id(0x00000002)] HRESULT _stdcall Cliente([in] IPersona * Value ); [propget, id(0x00000003)] HRESULT _stdcall Direccion([out, retval] IDireccion ** Value ); [propput, id(0x00000003)] HRESULT _stdcall Direccion([in] IDireccion * Value ); [propget, id(0x00000004)] HRESULT _stdcall Telefono([out, retval] ITelefono ** Value ); [propput, id(0x00000004)] HRESULT _stdcall Telefono([in] ITelefono * Value ); [propget, id(0x00000005)] HRESULT _stdcall UltimaCompra([out, retval] double * Value ); [propput, id(0x00000005)] HRESULT _stdcall UltimaCompra([in] double Value ); [propget, id(0x00000006)] HRESULT _stdcall UltimoPago([out, retval] double * Value ); [propput, id(0x00000006)] HRESULT _stdcall UltimoPago([in] double Value ); [propget, id(0x00000007)] HRESULT _stdcall Estatus([out, retval] NEstatus * Value ); [propput, id(0x00000007)] HRESULT _stdcall Estatus([in] NEstatus Value ); [propget, id(0x00000008)] HRESULT _stdcall CreditoDisponible([out, retval] double * Value ); [propput, id(0x00000008)] HRESULT _stdcall CreditoDisponible([in] double Value ); }; [ uuid(722A65A3-5F06-11D3-AF3B-00609791A3BC), version(1.0) ] coclass Cliente { [default] interface ICliente; }; [ uuid(722A65A5-5F06-11D3-AF3B-00609791A3BC), version(1.0), dual, oleautomation ] interface IPersona: IDispatch { [propget, id(0x00000001)] HRESULT _stdcall NombredePila([out, retval] BSTR * Value ); [propput, id(0x00000001)] HRESULT _stdcall NombredePila([in] BSTR Value ); [propget, id(0x00000002)] HRESULT _stdcall ApellidoPaterno([out, retval] BSTR * Value ); [propput, id(0x00000002)] HRESULT _stdcall ApellidoPaterno([in] BSTR Value ); [propget, id(0x00000003)] HRESULT _stdcall ApellidoMaterno([out, retval] BSTR * Value ); [propput, id(0x00000003)] HRESULT _stdcall ApellidoMaterno([in] BSTR Value ); [propget, id(0x00000004)] HRESULT _stdcall FechadeNacimiento([out, retval] double * Value ); [propput, id(0x00000004)] HRESULT _stdcall FechadeNacimiento([in] double Value ); }; [ uuid(722A65A7-5F06-11D3-AF3B-00609791A3BC), version(1.0) ] coclass Persona { [default] interface IPersona; }; [ uuid(722A65A9-5F06-11D3-AF3B-00609791A3BC), version(1.0) ] typedef enum tagNEstatus { AlCorriente = 0, NuevoCliente = 1, Atrasado = 2, Conflicto = 3 } NEstatus; [ uuid(722A65AA-5F06-11D3-AF3B-00609791A3BC), version(1.0), dual, oleautomation ] interface IDireccion: IDispatch { }; [ uuid(722A65AC-5F06-11D3-AF3B-00609791A3BC), version(1.0), dual, oleautomation ] interface ITelefono: IDispatch { }; [ uuid(722A65AE-5F06-11D3-AF3B-00609791A3BC), version(1.0) ] coclass Direccion { [default] interface IDireccion; }; [ uuid(722A65B0-5F06-11D3-AF3B-00609791A3BC), version(1.0) ] coclass Telefono { [default] interface ITelefono; }; };