unit TrazaMedLib_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 24/4/2018 10:13:11 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll (1)
// LIBID: {476EC915-3ADA-4454-AFC9-C38597F708AE}
// LCID: 0
// Helpfile: 
// HelpString: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TTrazaMed) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TmedicamentosDTO) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TmedicamentosDTOdhSerie) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TmedicamentosFraccion) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TTransaccionPlainWS) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TConsultaStockWSResult) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TTrazaprodmed) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TgetTransaccionesWSParametros) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
//   Error creating palette bitmap of (TgetTransaccionesWSRespuesta) : Server C:\Users\amiranda\Documents\Embarcadero\Studio\Projects\TrazMedLib\TrazaMedLib.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  TrazaMedLibMajorVersion = 1;
  TrazaMedLibMinorVersion = 0;

  LIBID_TrazaMedLib: TGUID = '{476EC915-3ADA-4454-AFC9-C38597F708AE}';

  IID_ITrazaMed: TGUID = '{C2126B36-6E99-4E14-8A64-062DF54BC99B}';
  CLASS_TrazaMed: TGUID = '{88050DA1-B1C1-4FB6-ACAD-4A84D0052946}';
  IID_ImedicamentosDTO: TGUID = '{42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}';
  CLASS_medicamentosDTO: TGUID = '{7F43C0C1-B342-409B-B703-54BF1D0C1D58}';
  IID_ImedicamentosDTOdhSerie: TGUID = '{2286A429-E882-4863-BB0A-601576F5726A}';
  CLASS_medicamentosDTOdhSerie: TGUID = '{7EF7EBC7-68D0-4127-977D-8AC33A2354BF}';
  IID_ImedicamentosFraccion: TGUID = '{5822CEE2-47C1-434C-85C5-EFD5991D9608}';
  CLASS_medicamentosFraccion: TGUID = '{812028E5-5997-43FD-9505-89CB203364A6}';
  IID_ITransaccionPlainWS: TGUID = '{7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}';
  CLASS_TransaccionPlainWS: TGUID = '{D866D1B4-545D-4E7C-91CE-93F9803A7BD6}';
  IID_IConsultaStockWSResult: TGUID = '{D5F4E1A5-865A-41D4-B1E2-8438880AA25E}';
  CLASS_ConsultaStockWSResult: TGUID = '{79665691-9A91-4005-8E4F-F701010D8C29}';
  IID_ITrazaprodmed: TGUID = '{0961B600-614C-4966-9713-2052BAF49D58}';
  CLASS_Trazaprodmed: TGUID = '{C70A8D9F-B879-428F-8584-24ED9158C659}';
  IID_IgetTransaccionesWSParametros: TGUID = '{14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}';
  CLASS_getTransaccionesWSParametros: TGUID = '{59C92EA4-AAE7-47A4-B6D3-B81278C3D0B1}';
  IID_IgetTransaccionesWSRespuesta: TGUID = '{67DF4C0C-4AD8-4A60-A617-56956365E762}';
  CLASS_getTransaccionesWSRespuesta: TGUID = '{84EAF991-8030-4C22-8581-E81F25C28905}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  ITrazaMed = interface;
  ITrazaMedDisp = dispinterface;
  ImedicamentosDTO = interface;
  ImedicamentosDTODisp = dispinterface;
  ImedicamentosDTOdhSerie = interface;
  ImedicamentosDTOdhSerieDisp = dispinterface;
  ImedicamentosFraccion = interface;
  ImedicamentosFraccionDisp = dispinterface;
  ITransaccionPlainWS = interface;
  ITransaccionPlainWSDisp = dispinterface;
  IConsultaStockWSResult = interface;
  IConsultaStockWSResultDisp = dispinterface;
  ITrazaprodmed = interface;
  ITrazaprodmedDisp = dispinterface;
  IgetTransaccionesWSParametros = interface;
  IgetTransaccionesWSParametrosDisp = dispinterface;
  IgetTransaccionesWSRespuesta = interface;
  IgetTransaccionesWSRespuestaDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  TrazaMed = ITrazaMed;
  medicamentosDTO = ImedicamentosDTO;
  medicamentosDTOdhSerie = ImedicamentosDTOdhSerie;
  medicamentosFraccion = ImedicamentosFraccion;
  TransaccionPlainWS = ITransaccionPlainWS;
  ConsultaStockWSResult = IConsultaStockWSResult;
  Trazaprodmed = ITrazaprodmed;
  getTransaccionesWSParametros = IgetTransaccionesWSParametros;
  getTransaccionesWSRespuesta = IgetTransaccionesWSRespuesta;


// *********************************************************************//
// Interface: ITrazaMed
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C2126B36-6E99-4E14-8A64-062DF54BC99B}
// *********************************************************************//
  ITrazaMed = interface(IDispatch)
    ['{C2126B36-6E99-4E14-8A64-062DF54BC99B}']
    procedure Reset; safecall;
    function sendCancelacTransacc(id_transaccion: Integer): OLE_CANCELBOOL; safecall;
    procedure AgregaMedicamento(const medicamentoDTO: ImedicamentosDTO); safecall;
    function SendMedicamentos: OLE_CANCELBOOL; safecall;
    procedure AgregaMedicamentoDHSerie(const medicamento: ImedicamentosDTOdhSerie); safecall;
    function sendMedicamentosDHSerie: OLE_CANCELBOOL; safecall;
    function Get_XMLRequest: WideString; safecall;
    function Get_XMLResponse: WideString; safecall;
    function Get_Errores: WideString; safecall;
    function Get_usuario: WideString; safecall;
    procedure Set_usuario(const Value: WideString); safecall;
    function Get_password: WideString; safecall;
    procedure Set_password(const Value: WideString); safecall;
    function Get_id_transaccion: WideString; safecall;
    function Get_modo_produccion: OLE_CANCELBOOL; safecall;
    procedure Set_modo_produccion(Value: OLE_CANCELBOOL); safecall;
    procedure LogTransaction(const RequestFileName: WideString; const ResponseFilename: WideString); safecall;
    function SendConfirmaTransacc(const f_operacion: WideString; const p_ids_transac: WideString): OLE_CANCELBOOL; safecall;
    function SendCancelaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL; safecall;
    function SendAlertaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL; safecall;
    function GetTransaccionesNoConfirmadas(IdTransaccion: Double; 
                                           const GNLAgenteInformador: WideString; 
                                           const GNLAgenteOrigen: WideString; 
                                           const GNLAgenteDestino: WideString; 
                                           const GTINMedicamento: WideString; IdEvento: Integer; 
                                           const FechaTransaccionDesde: WideString; 
                                           const FechaTransaccionHasta: WideString; 
                                           const FechaOperacionDesde: WideString; 
                                           const FechaOperacionHasta: WideString; 
                                           const FechaVencimientoDesde: WideString; 
                                           const FechaVencimientoHasta: WideString; 
                                           const NroRemito: WideString; 
                                           const NroFactura: WideString; IdEstado: Integer; 
                                           const NroLote: WideString; const NroSerie: WideString; 
                                           NroPagina: Integer; CantRegPagina: Integer; 
                                           const transaccionesWSResult: ITransaccionPlainWS): OLE_CANCELBOOL; safecall;
    function getConsultaStock(const GTINMedicamento: WideString; const GLN_CUFEAgente: WideString; 
                              const Nombre: WideString; Cantidad: Integer; 
                              const Presentacion: WideString; const NroLote: WideString; 
                              const NroSerie: WideString; NroPagina: Integer; 
                              CantidadRegistros: Integer; 
                              const getConsultaStockResponse: IConsultaStockWSResult): OLE_CANCELBOOL; safecall;
    property XMLRequest: WideString read Get_XMLRequest;
    property XMLResponse: WideString read Get_XMLResponse;
    property Errores: WideString read Get_Errores;
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property id_transaccion: WideString read Get_id_transaccion;
    property modo_produccion: OLE_CANCELBOOL read Get_modo_produccion write Set_modo_produccion;
  end;

// *********************************************************************//
// DispIntf:  ITrazaMedDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {C2126B36-6E99-4E14-8A64-062DF54BC99B}
// *********************************************************************//
  ITrazaMedDisp = dispinterface
    ['{C2126B36-6E99-4E14-8A64-062DF54BC99B}']
    procedure Reset; dispid 205;
    function sendCancelacTransacc(id_transaccion: Integer): OLE_CANCELBOOL; dispid 206;
    procedure AgregaMedicamento(const medicamentoDTO: ImedicamentosDTO); dispid 201;
    function SendMedicamentos: OLE_CANCELBOOL; dispid 202;
    procedure AgregaMedicamentoDHSerie(const medicamento: ImedicamentosDTOdhSerie); dispid 208;
    function sendMedicamentosDHSerie: OLE_CANCELBOOL; dispid 207;
    property XMLRequest: WideString readonly dispid 203;
    property XMLResponse: WideString readonly dispid 204;
    property Errores: WideString readonly dispid 209;
    property usuario: WideString dispid 210;
    property password: WideString dispid 211;
    property id_transaccion: WideString readonly dispid 212;
    property modo_produccion: OLE_CANCELBOOL dispid 213;
    procedure LogTransaction(const RequestFileName: WideString; const ResponseFilename: WideString); dispid 215;
    function SendConfirmaTransacc(const f_operacion: WideString; const p_ids_transac: WideString): OLE_CANCELBOOL; dispid 216;
    function SendCancelaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL; dispid 217;
    function SendAlertaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL; dispid 218;
    function GetTransaccionesNoConfirmadas(IdTransaccion: Double; 
                                           const GNLAgenteInformador: WideString; 
                                           const GNLAgenteOrigen: WideString; 
                                           const GNLAgenteDestino: WideString; 
                                           const GTINMedicamento: WideString; IdEvento: Integer; 
                                           const FechaTransaccionDesde: WideString; 
                                           const FechaTransaccionHasta: WideString; 
                                           const FechaOperacionDesde: WideString; 
                                           const FechaOperacionHasta: WideString; 
                                           const FechaVencimientoDesde: WideString; 
                                           const FechaVencimientoHasta: WideString; 
                                           const NroRemito: WideString; 
                                           const NroFactura: WideString; IdEstado: Integer; 
                                           const NroLote: WideString; const NroSerie: WideString; 
                                           NroPagina: Integer; CantRegPagina: Integer; 
                                           const transaccionesWSResult: ITransaccionPlainWS): OLE_CANCELBOOL; dispid 214;
    function getConsultaStock(const GTINMedicamento: WideString; const GLN_CUFEAgente: WideString; 
                              const Nombre: WideString; Cantidad: Integer; 
                              const Presentacion: WideString; const NroLote: WideString; 
                              const NroSerie: WideString; NroPagina: Integer; 
                              CantidadRegistros: Integer; 
                              const getConsultaStockResponse: IConsultaStockWSResult): OLE_CANCELBOOL; dispid 219;
  end;

// *********************************************************************//
// Interface: ImedicamentosDTO
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}
// *********************************************************************//
  ImedicamentosDTO = interface(IDispatch)
    ['{42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}']
    function Get_f_evento: WideString; safecall;
    procedure Set_f_evento(const Value: WideString); safecall;
    function Get_h_evento: WideString; safecall;
    procedure Set_h_evento(const Value: WideString); safecall;
    function Get_gln_origen: WideString; safecall;
    procedure Set_gln_origen(const Value: WideString); safecall;
    function Get_cuit_origen: WideString; safecall;
    procedure Set_cuit_origen(const Value: WideString); safecall;
    function Get_gln_destino: WideString; safecall;
    procedure Set_gln_destino(const Value: WideString); safecall;
    function Get_cuit_destino: WideString; safecall;
    procedure Set_cuit_destino(const Value: WideString); safecall;
    function Get_n_remito: WideString; safecall;
    procedure Set_n_remito(const Value: WideString); safecall;
    function Get_n_factura: WideString; safecall;
    procedure Set_n_factura(const Value: WideString); safecall;
    function Get_vencimiento: WideString; safecall;
    procedure Set_vencimiento(const Value: WideString); safecall;
    function Get_gtin: WideString; safecall;
    procedure Set_gtin(const Value: WideString); safecall;
    function Get_lote: WideString; safecall;
    procedure Set_lote(const Value: WideString); safecall;
    function Get_numero_serial: WideString; safecall;
    procedure Set_numero_serial(const Value: WideString); safecall;
    function Get_id_evento: Integer; safecall;
    procedure Set_id_evento(Value: Integer); safecall;
    function Get_apellido: WideString; safecall;
    procedure Set_apellido(const Value: WideString); safecall;
    function Get_nombres: WideString; safecall;
    procedure Set_nombres(const Value: WideString); safecall;
    function Get_n_documento: WideString; safecall;
    procedure Set_n_documento(const Value: WideString); safecall;
    function Get_sexo: WideString; safecall;
    procedure Set_sexo(const Value: WideString); safecall;
    function Get_tipo_documento: Integer; safecall;
    procedure Set_tipo_documento(Value: Integer); safecall;
    function Get_direccion: WideString; safecall;
    procedure Set_direccion(const Value: WideString); safecall;
    function Get_localidad: WideString; safecall;
    procedure Set_localidad(const Value: WideString); safecall;
    function Get_numero: WideString; safecall;
    procedure Set_numero(const Value: WideString); safecall;
    function Get_piso: WideString; safecall;
    procedure Set_piso(const Value: WideString); safecall;
    function Get_dpto: WideString; safecall;
    procedure Set_dpto(const Value: WideString); safecall;
    function Get_n_postal: WideString; safecall;
    procedure Set_n_postal(const Value: WideString); safecall;
    function Get_telefono: WideString; safecall;
    procedure Set_telefono(const Value: WideString); safecall;
    function Get_id_obra_social: WideString; safecall;
    procedure Set_id_obra_social(const Value: WideString); safecall;
    function Get_provincia: WideString; safecall;
    procedure Set_provincia(const Value: WideString); safecall;
    function Get_fecha_nacimiento: WideString; safecall;
    procedure Set_fecha_nacimiento(const Value: WideString); safecall;
    function Get_id_motivo_devolucion: Double; safecall;
    procedure Set_id_motivo_devolucion(Value: Double); safecall;
    function Get_id_motivo_reposicion: Double; safecall;
    procedure Set_id_motivo_reposicion(Value: Double); safecall;
    function Get_id_programa: Double; safecall;
    procedure Set_id_programa(Value: Double); safecall;
    function Get_nro_asociado: WideString; safecall;
    procedure Set_nro_asociado(const Value: WideString); safecall;
    function Get_otro_motivo_devolucion: WideString; safecall;
    procedure Set_otro_motivo_devolucion(const Value: WideString); safecall;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: WideString read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  end;

// *********************************************************************//
// DispIntf:  ImedicamentosDTODisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}
// *********************************************************************//
  ImedicamentosDTODisp = dispinterface
    ['{42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}']
    property f_evento: WideString dispid 201;
    property h_evento: WideString dispid 202;
    property gln_origen: WideString dispid 203;
    property cuit_origen: WideString dispid 204;
    property gln_destino: WideString dispid 205;
    property cuit_destino: WideString dispid 206;
    property n_remito: WideString dispid 207;
    property n_factura: WideString dispid 208;
    property vencimiento: WideString dispid 209;
    property gtin: WideString dispid 210;
    property lote: WideString dispid 211;
    property numero_serial: WideString dispid 212;
    property id_evento: Integer dispid 213;
    property apellido: WideString dispid 214;
    property nombres: WideString dispid 215;
    property n_documento: WideString dispid 216;
    property sexo: WideString dispid 217;
    property tipo_documento: Integer dispid 218;
    property direccion: WideString dispid 219;
    property localidad: WideString dispid 220;
    property numero: WideString dispid 221;
    property piso: WideString dispid 222;
    property dpto: WideString dispid 223;
    property n_postal: WideString dispid 224;
    property telefono: WideString dispid 225;
    property id_obra_social: WideString dispid 226;
    property provincia: WideString dispid 227;
    property fecha_nacimiento: WideString dispid 228;
    property id_motivo_devolucion: Double dispid 229;
    property id_motivo_reposicion: Double dispid 230;
    property id_programa: Double dispid 231;
    property nro_asociado: WideString dispid 232;
    property otro_motivo_devolucion: WideString dispid 233;
  end;

// *********************************************************************//
// Interface: ImedicamentosDTOdhSerie
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2286A429-E882-4863-BB0A-601576F5726A}
// *********************************************************************//
  ImedicamentosDTOdhSerie = interface(IDispatch)
    ['{2286A429-E882-4863-BB0A-601576F5726A}']
    function Get_f_evento: WideString; safecall;
    procedure Set_f_evento(const Value: WideString); safecall;
    function Get_h_evento: WideString; safecall;
    procedure Set_h_evento(const Value: WideString); safecall;
    function Get_gln_origen: WideString; safecall;
    procedure Set_gln_origen(const Value: WideString); safecall;
    function Get_cuit_origen: WideString; safecall;
    procedure Set_cuit_origen(const Value: WideString); safecall;
    function Get_gln_destino: WideString; safecall;
    procedure Set_gln_destino(const Value: WideString); safecall;
    function Get_cuit_destino: WideString; safecall;
    procedure Set_cuit_destino(const Value: WideString); safecall;
    function Get_n_remito: WideString; safecall;
    procedure Set_n_remito(const Value: WideString); safecall;
    function Get_n_factura: WideString; safecall;
    procedure Set_n_factura(const Value: WideString); safecall;
    function Get_vencimiento: WideString; safecall;
    procedure Set_vencimiento(const Value: WideString); safecall;
    function Get_gtin: WideString; safecall;
    procedure Set_gtin(const Value: WideString); safecall;
    function Get_lote: WideString; safecall;
    procedure Set_lote(const Value: WideString); safecall;
    function Get_desde_numero_serial: WideString; safecall;
    procedure Set_desde_numero_serial(const Value: WideString); safecall;
    function Get_hasta_numero_serial: WideString; safecall;
    procedure Set_hasta_numero_serial(const Value: WideString); safecall;
    function Get_id_evento: Integer; safecall;
    procedure Set_id_evento(Value: Integer); safecall;
    function Get_id_obra_social: Integer; safecall;
    procedure Set_id_obra_social(Value: Integer); safecall;
    function Get_apellido: WideString; safecall;
    procedure Set_apellido(const Value: WideString); safecall;
    function Get_dpto: WideString; safecall;
    procedure Set_dpto(const Value: WideString); safecall;
    function Get_direccion: WideString; safecall;
    procedure Set_direccion(const Value: WideString); safecall;
    function Get_fecha_nacimiento: WideString; safecall;
    procedure Set_fecha_nacimiento(const Value: WideString); safecall;
    function Get_id_motivo_devolucion: Double; safecall;
    procedure Set_id_motivo_devolucion(Value: Double); safecall;
    function Get_id_motivo_reposicion: Double; safecall;
    procedure Set_id_motivo_reposicion(Value: Double); safecall;
    function Get_id_programa: Double; safecall;
    procedure Set_id_programa(Value: Double); safecall;
    function Get_localidad: WideString; safecall;
    procedure Set_localidad(const Value: WideString); safecall;
    function Get_n_documento: WideString; safecall;
    procedure Set_n_documento(const Value: WideString); safecall;
    function Get_n_postal: WideString; safecall;
    procedure Set_n_postal(const Value: WideString); safecall;
    function Get_nombres: WideString; safecall;
    procedure Set_nombres(const Value: WideString); safecall;
    function Get_nro_asociado: WideString; safecall;
    procedure Set_nro_asociado(const Value: WideString); safecall;
    function Get_numero: WideString; safecall;
    procedure Set_numero(const Value: WideString); safecall;
    function Get_otro_motivo_devolucion: WideString; safecall;
    procedure Set_otro_motivo_devolucion(const Value: WideString); safecall;
    function Get_piso: WideString; safecall;
    procedure Set_piso(const Value: WideString); safecall;
    function Get_provincia: WideString; safecall;
    procedure Set_provincia(const Value: WideString); safecall;
    function Get_sexo: WideString; safecall;
    procedure Set_sexo(const Value: WideString); safecall;
    function Get_telefono: WideString; safecall;
    procedure Set_telefono(const Value: WideString); safecall;
    function Get_tipo_documento: WideString; safecall;
    procedure Set_tipo_documento(const Value: WideString); safecall;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property desde_numero_serial: WideString read Get_desde_numero_serial write Set_desde_numero_serial;
    property hasta_numero_serial: WideString read Get_hasta_numero_serial write Set_hasta_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property apellido: WideString read Get_apellido write Set_apellido;
    property dpto: WideString read Get_dpto write Set_dpto;
    property direccion: WideString read Get_direccion write Set_direccion;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property localidad: WideString read Get_localidad write Set_localidad;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property nombres: WideString read Get_nombres write Set_nombres;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property numero: WideString read Get_numero write Set_numero;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
    property piso: WideString read Get_piso write Set_piso;
    property provincia: WideString read Get_provincia write Set_provincia;
    property sexo: WideString read Get_sexo write Set_sexo;
    property telefono: WideString read Get_telefono write Set_telefono;
    property tipo_documento: WideString read Get_tipo_documento write Set_tipo_documento;
  end;

// *********************************************************************//
// DispIntf:  ImedicamentosDTOdhSerieDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {2286A429-E882-4863-BB0A-601576F5726A}
// *********************************************************************//
  ImedicamentosDTOdhSerieDisp = dispinterface
    ['{2286A429-E882-4863-BB0A-601576F5726A}']
    property f_evento: WideString dispid 201;
    property h_evento: WideString dispid 202;
    property gln_origen: WideString dispid 203;
    property cuit_origen: WideString dispid 204;
    property gln_destino: WideString dispid 205;
    property cuit_destino: WideString dispid 215;
    property n_remito: WideString dispid 206;
    property n_factura: WideString dispid 207;
    property vencimiento: WideString dispid 208;
    property gtin: WideString dispid 209;
    property lote: WideString dispid 210;
    property desde_numero_serial: WideString dispid 211;
    property hasta_numero_serial: WideString dispid 212;
    property id_evento: Integer dispid 213;
    property id_obra_social: Integer dispid 214;
    property apellido: WideString dispid 216;
    property dpto: WideString dispid 217;
    property direccion: WideString dispid 218;
    property fecha_nacimiento: WideString dispid 219;
    property id_motivo_devolucion: Double dispid 220;
    property id_motivo_reposicion: Double dispid 221;
    property id_programa: Double dispid 222;
    property localidad: WideString dispid 223;
    property n_documento: WideString dispid 224;
    property n_postal: WideString dispid 225;
    property nombres: WideString dispid 226;
    property nro_asociado: WideString dispid 227;
    property numero: WideString dispid 228;
    property otro_motivo_devolucion: WideString dispid 229;
    property piso: WideString dispid 230;
    property provincia: WideString dispid 231;
    property sexo: WideString dispid 232;
    property telefono: WideString dispid 233;
    property tipo_documento: WideString dispid 234;
  end;

// *********************************************************************//
// Interface: ImedicamentosFraccion
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5822CEE2-47C1-434C-85C5-EFD5991D9608}
// *********************************************************************//
  ImedicamentosFraccion = interface(IDispatch)
    ['{5822CEE2-47C1-434C-85C5-EFD5991D9608}']
    function Get_f_evento: WideString; safecall;
    procedure Set_f_evento(const Value: WideString); safecall;
    function Get_h_evento: WideString; safecall;
    procedure Set_h_evento(const Value: WideString); safecall;
    function Get_gln_origen: WideString; safecall;
    procedure Set_gln_origen(const Value: WideString); safecall;
    function Get_cuit_origen: WideString; safecall;
    procedure Set_cuit_origen(const Value: WideString); safecall;
    function Get_gln_destino: WideString; safecall;
    procedure Set_gln_destino(const Value: WideString); safecall;
    function Get_cuit_destino: WideString; safecall;
    procedure Set_cuit_destino(const Value: WideString); safecall;
    function Get_n_remito: WideString; safecall;
    procedure Set_n_remito(const Value: WideString); safecall;
    function Get_n_factura: WideString; safecall;
    procedure Set_n_factura(const Value: WideString); safecall;
    function Get_vencimiento: WideString; safecall;
    procedure Set_vencimiento(const Value: WideString); safecall;
    function Get_gtin: WideString; safecall;
    procedure Set_gtin(const Value: WideString); safecall;
    function Get_lote: WideString; safecall;
    procedure Set_lote(const Value: WideString); safecall;
    function Get_numero_serial: WideString; safecall;
    procedure Set_numero_serial(const Value: WideString); safecall;
    function Get_id_evento: Integer; safecall;
    procedure Set_id_evento(Value: Integer); safecall;
    function Get_apellido: WideString; safecall;
    procedure Set_apellido(const Value: WideString); safecall;
    function Get_nombres: WideString; safecall;
    procedure Set_nombres(const Value: WideString); safecall;
    function Get_n_documento: WideString; safecall;
    procedure Set_n_documento(const Value: WideString); safecall;
    function Get_sexo: WideString; safecall;
    procedure Set_sexo(const Value: WideString); safecall;
    function Get_direccion: WideString; safecall;
    procedure Set_direccion(const Value: WideString); safecall;
    function Get_localidad: WideString; safecall;
    procedure Set_localidad(const Value: WideString); safecall;
    function Get_numero: WideString; safecall;
    procedure Set_numero(const Value: WideString); safecall;
    function Get_piso: WideString; safecall;
    procedure Set_piso(const Value: WideString); safecall;
    function Get_dpto: WideString; safecall;
    procedure Set_dpto(const Value: WideString); safecall;
    function Get_n_postal: WideString; safecall;
    procedure Set_n_postal(const Value: WideString); safecall;
    function Get_telefono: WideString; safecall;
    procedure Set_telefono(const Value: WideString); safecall;
    function Get_id_obra_social: Integer; safecall;
    procedure Set_id_obra_social(Value: Integer); safecall;
    function Get_provincia: WideString; safecall;
    procedure Set_provincia(const Value: WideString); safecall;
    function Get_fecha_nacimiento: WideString; safecall;
    procedure Set_fecha_nacimiento(const Value: WideString); safecall;
    function Get_Cantidad: Integer; safecall;
    procedure Set_Cantidad(Value: Integer); safecall;
    function Get_id_motivo_devolucion: Double; safecall;
    procedure Set_id_motivo_devolucion(Value: Double); safecall;
    function Get_id_motivo_reposicion: Double; safecall;
    procedure Set_id_motivo_reposicion(Value: Double); safecall;
    function Get_id_programa: Double; safecall;
    procedure Set_id_programa(Value: Double); safecall;
    function Get_tipo_documento: Integer; safecall;
    procedure Set_tipo_documento(Value: Integer); safecall;
    function Get_nro_asociado: WideString; safecall;
    procedure Set_nro_asociado(const Value: WideString); safecall;
    function Get_otro_motivo_devolucion: WideString; safecall;
    procedure Set_otro_motivo_devolucion(const Value: WideString); safecall;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property Cantidad: Integer read Get_Cantidad write Set_Cantidad;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  end;

// *********************************************************************//
// DispIntf:  ImedicamentosFraccionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5822CEE2-47C1-434C-85C5-EFD5991D9608}
// *********************************************************************//
  ImedicamentosFraccionDisp = dispinterface
    ['{5822CEE2-47C1-434C-85C5-EFD5991D9608}']
    property f_evento: WideString dispid 201;
    property h_evento: WideString dispid 202;
    property gln_origen: WideString dispid 203;
    property cuit_origen: WideString dispid 204;
    property gln_destino: WideString dispid 205;
    property cuit_destino: WideString dispid 206;
    property n_remito: WideString dispid 207;
    property n_factura: WideString dispid 208;
    property vencimiento: WideString dispid 209;
    property gtin: WideString dispid 210;
    property lote: WideString dispid 211;
    property numero_serial: WideString dispid 212;
    property id_evento: Integer dispid 213;
    property apellido: WideString dispid 214;
    property nombres: WideString dispid 215;
    property n_documento: WideString dispid 216;
    property sexo: WideString dispid 217;
    property direccion: WideString dispid 219;
    property localidad: WideString dispid 220;
    property numero: WideString dispid 221;
    property piso: WideString dispid 222;
    property dpto: WideString dispid 223;
    property n_postal: WideString dispid 224;
    property telefono: WideString dispid 225;
    property id_obra_social: Integer dispid 226;
    property provincia: WideString dispid 227;
    property fecha_nacimiento: WideString dispid 228;
    property Cantidad: Integer dispid 229;
    property id_motivo_devolucion: Double dispid 230;
    property id_motivo_reposicion: Double dispid 231;
    property id_programa: Double dispid 232;
    property tipo_documento: Integer dispid 218;
    property nro_asociado: WideString dispid 233;
    property otro_motivo_devolucion: WideString dispid 234;
  end;

// *********************************************************************//
// Interface: ITransaccionPlainWS
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}
// *********************************************************************//
  ITransaccionPlainWS = interface(IDispatch)
    ['{7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}']
    function Get_index: Integer; safecall;
    procedure Set_index(Value: Integer); safecall;
    function Get_count: Integer; safecall;
    function Get_id_transaccion: Double; safecall;
    function Get_id_transaccion_global: Double; safecall;
    function Get_f_evento: WideString; safecall;
    function Get_f_transaccion: Integer; safecall;
    function Get_gtin: WideString; safecall;
    function Get_lote: WideString; safecall;
    function Get_numero_serial: WideString; safecall;
    function Get_Nombre: WideString; safecall;
    function Get_id_evento: Integer; safecall;
    function Get_d_evento: WideString; safecall;
    function Get_gnl_origen: WideString; safecall;
    function Get_razon_social_origen: WideString; safecall;
    function Get_gln_destino: WideString; safecall;
    function Get_razon_social_destino: WideString; safecall;
    function Get_n_remito: WideString; safecall;
    function Get_n_factura: WideString; safecall;
    function Get_vencimiento: WideString; safecall;
    function Get_id_detalle_evento: Integer; safecall;
    function Get_id_estado: Integer; safecall;
    function Get_d_programa: WideString; safecall;
    function Get_cantPaginas: Integer; safecall;
    property index: Integer read Get_index write Set_index;
    property count: Integer read Get_count;
    property id_transaccion: Double read Get_id_transaccion;
    property id_transaccion_global: Double read Get_id_transaccion_global;
    property f_evento: WideString read Get_f_evento;
    property f_transaccion: Integer read Get_f_transaccion;
    property gtin: WideString read Get_gtin;
    property lote: WideString read Get_lote;
    property numero_serial: WideString read Get_numero_serial;
    property Nombre: WideString read Get_Nombre;
    property id_evento: Integer read Get_id_evento;
    property d_evento: WideString read Get_d_evento;
    property gnl_origen: WideString read Get_gnl_origen;
    property razon_social_origen: WideString read Get_razon_social_origen;
    property gln_destino: WideString read Get_gln_destino;
    property razon_social_destino: WideString read Get_razon_social_destino;
    property n_remito: WideString read Get_n_remito;
    property n_factura: WideString read Get_n_factura;
    property vencimiento: WideString read Get_vencimiento;
    property id_detalle_evento: Integer read Get_id_detalle_evento;
    property id_estado: Integer read Get_id_estado;
    property d_programa: WideString read Get_d_programa;
    property cantPaginas: Integer read Get_cantPaginas;
  end;

// *********************************************************************//
// DispIntf:  ITransaccionPlainWSDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}
// *********************************************************************//
  ITransaccionPlainWSDisp = dispinterface
    ['{7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}']
    property index: Integer dispid 201;
    property count: Integer readonly dispid 202;
    property id_transaccion: Double readonly dispid 203;
    property id_transaccion_global: Double readonly dispid 204;
    property f_evento: WideString readonly dispid 205;
    property f_transaccion: Integer readonly dispid 206;
    property gtin: WideString readonly dispid 207;
    property lote: WideString readonly dispid 208;
    property numero_serial: WideString readonly dispid 209;
    property Nombre: WideString readonly dispid 210;
    property id_evento: Integer readonly dispid 211;
    property d_evento: WideString readonly dispid 212;
    property gnl_origen: WideString readonly dispid 213;
    property razon_social_origen: WideString readonly dispid 214;
    property gln_destino: WideString readonly dispid 215;
    property razon_social_destino: WideString readonly dispid 216;
    property n_remito: WideString readonly dispid 217;
    property n_factura: WideString readonly dispid 218;
    property vencimiento: WideString readonly dispid 219;
    property id_detalle_evento: Integer readonly dispid 220;
    property id_estado: Integer readonly dispid 221;
    property d_programa: WideString readonly dispid 222;
    property cantPaginas: Integer readonly dispid 223;
  end;

// *********************************************************************//
// Interface: IConsultaStockWSResult
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D5F4E1A5-865A-41D4-B1E2-8438880AA25E}
// *********************************************************************//
  IConsultaStockWSResult = interface(IDispatch)
    ['{D5F4E1A5-865A-41D4-B1E2-8438880AA25E}']
    function Get_cantPaginas: Integer; safecall;
    function Get_count: Integer; safecall;
    function Get_forma: WideString; safecall;
    function Get_gln: WideString; safecall;
    function Get_gtin: WideString; safecall;
    function Get_lote: WideString; safecall;
    function Get_Nombre: WideString; safecall;
    function Get_p_unidades: Double; safecall;
    function Get_Presentacion: WideString; safecall;
    function Get_serie: WideString; safecall;
    function Get_index: Integer; safecall;
    procedure Set_index(Value: Integer); safecall;
    property cantPaginas: Integer read Get_cantPaginas;
    property count: Integer read Get_count;
    property forma: WideString read Get_forma;
    property gln: WideString read Get_gln;
    property gtin: WideString read Get_gtin;
    property lote: WideString read Get_lote;
    property Nombre: WideString read Get_Nombre;
    property p_unidades: Double read Get_p_unidades;
    property Presentacion: WideString read Get_Presentacion;
    property serie: WideString read Get_serie;
    property index: Integer read Get_index write Set_index;
  end;

// *********************************************************************//
// DispIntf:  IConsultaStockWSResultDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D5F4E1A5-865A-41D4-B1E2-8438880AA25E}
// *********************************************************************//
  IConsultaStockWSResultDisp = dispinterface
    ['{D5F4E1A5-865A-41D4-B1E2-8438880AA25E}']
    property cantPaginas: Integer readonly dispid 201;
    property count: Integer readonly dispid 202;
    property forma: WideString readonly dispid 203;
    property gln: WideString readonly dispid 204;
    property gtin: WideString readonly dispid 205;
    property lote: WideString readonly dispid 206;
    property Nombre: WideString readonly dispid 207;
    property p_unidades: Double readonly dispid 208;
    property Presentacion: WideString readonly dispid 209;
    property serie: WideString readonly dispid 210;
    property index: Integer dispid 211;
  end;

// *********************************************************************//
// Interface: ITrazaprodmed
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0961B600-614C-4966-9713-2052BAF49D58}
// *********************************************************************//
  ITrazaprodmed = interface(IDispatch)
    ['{0961B600-614C-4966-9713-2052BAF49D58}']
    procedure InicializarInforme; safecall;
    procedure AgregarTransaccion(const apellidos: WideString; const calle: WideString; 
                                 const codDiagnostico: WideString; const codHiv: WideString; 
                                 const codPostal: WideString; const cuitMedico: WideString; 
                                 const departamento: WideString; const fechaNacimiento: WideString; 
                                 const glnDestino: WideString; const glnOrigen: WideString; 
                                 const gtin: WideString; IdEvento: Double; 
                                 idMotivoDevolucion: Double; idObraSocial: Double; 
                                 idTipoDocumento: Double; const localidad: WideString; 
                                 const lote: WideString; const nombres: WideString; 
                                 const nroAfiliado: WideString; nroCalle: Double; 
                                 const nroDocumento: WideString; const NroFactura: WideString; 
                                 const NroRemito: WideString; const nroSerial: WideString; 
                                 const otroMotivoDevolucion: WideString; const piso: WideString); safecall;
    procedure AgregarTransaccion2(const provincia: WideString; const sexo: WideString; 
                                  const telefono: WideString; const vencimiento: WideString; 
                                  const fEvento: WideString; const hEvento: WideString); safecall;
    function Informar: OLE_CANCELBOOL; safecall;
    function Get_usuario: WideString; safecall;
    procedure Set_usuario(const Value: WideString); safecall;
    function Get_password: WideString; safecall;
    procedure Set_password(const Value: WideString); safecall;
    function Get_ModoProduccion: OLE_CANCELBOOL; safecall;
    procedure Set_ModoProduccion(Value: OLE_CANCELBOOL); safecall;
    function Get_Depurar: OLE_CANCELBOOL; safecall;
    procedure Set_Depurar(Value: OLE_CANCELBOOL); safecall;
    function Get_Errores: WideString; safecall;
    function Get_codigoTransaccion: WideString; safecall;
    function getTransaccionesWS(const params: IgetTransaccionesWSParametros): OLE_CANCELBOOL; safecall;
    function Get_getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta; safecall;
    function sendCancelacTransacc(transaccion: Double): OLE_CANCELBOOL; safecall;
    function sendCancelacTransaccParcial(const gtin: WideString; const serie: WideString): OLE_CANCELBOOL; safecall;
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property ModoProduccion: OLE_CANCELBOOL read Get_ModoProduccion write Set_ModoProduccion;
    property Depurar: OLE_CANCELBOOL read Get_Depurar write Set_Depurar;
    property Errores: WideString read Get_Errores;
    property codigoTransaccion: WideString read Get_codigoTransaccion;
    property getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta read Get_getTransaccionesWSRespuesta;
  end;

// *********************************************************************//
// DispIntf:  ITrazaprodmedDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0961B600-614C-4966-9713-2052BAF49D58}
// *********************************************************************//
  ITrazaprodmedDisp = dispinterface
    ['{0961B600-614C-4966-9713-2052BAF49D58}']
    procedure InicializarInforme; dispid 201;
    procedure AgregarTransaccion(const apellidos: WideString; const calle: WideString; 
                                 const codDiagnostico: WideString; const codHiv: WideString; 
                                 const codPostal: WideString; const cuitMedico: WideString; 
                                 const departamento: WideString; const fechaNacimiento: WideString; 
                                 const glnDestino: WideString; const glnOrigen: WideString; 
                                 const gtin: WideString; IdEvento: Double; 
                                 idMotivoDevolucion: Double; idObraSocial: Double; 
                                 idTipoDocumento: Double; const localidad: WideString; 
                                 const lote: WideString; const nombres: WideString; 
                                 const nroAfiliado: WideString; nroCalle: Double; 
                                 const nroDocumento: WideString; const NroFactura: WideString; 
                                 const NroRemito: WideString; const nroSerial: WideString; 
                                 const otroMotivoDevolucion: WideString; const piso: WideString); dispid 202;
    procedure AgregarTransaccion2(const provincia: WideString; const sexo: WideString; 
                                  const telefono: WideString; const vencimiento: WideString; 
                                  const fEvento: WideString; const hEvento: WideString); dispid 210;
    function Informar: OLE_CANCELBOOL; dispid 203;
    property usuario: WideString dispid 204;
    property password: WideString dispid 205;
    property ModoProduccion: OLE_CANCELBOOL dispid 206;
    property Depurar: OLE_CANCELBOOL dispid 207;
    property Errores: WideString readonly dispid 208;
    property codigoTransaccion: WideString readonly dispid 209;
    function getTransaccionesWS(const params: IgetTransaccionesWSParametros): OLE_CANCELBOOL; dispid 211;
    property getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta readonly dispid 212;
    function sendCancelacTransacc(transaccion: Double): OLE_CANCELBOOL; dispid 213;
    function sendCancelacTransaccParcial(const gtin: WideString; const serie: WideString): OLE_CANCELBOOL; dispid 214;
  end;

// *********************************************************************//
// Interface: IgetTransaccionesWSParametros
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}
// *********************************************************************//
  IgetTransaccionesWSParametros = interface(IDispatch)
    ['{14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}']
    function Get_IdTransaccion: Double; safecall;
    procedure Set_IdTransaccion(Value: Double); safecall;
    function Get_glnAgenteOrigen: WideString; safecall;
    procedure Set_glnAgenteOrigen(const Value: WideString); safecall;
    function Get_glnAgenteDestino: WideString; safecall;
    procedure Set_glnAgenteDestino(const Value: WideString); safecall;
    function Get_glnAgenteInformador: WideString; safecall;
    procedure Set_glnAgenteInformador(const Value: WideString); safecall;
    function Get_gtin: WideString; safecall;
    procedure Set_gtin(const Value: WideString); safecall;
    function Get_lote: WideString; safecall;
    procedure Set_lote(const Value: WideString); safecall;
    function Get_serie: WideString; safecall;
    procedure Set_serie(const Value: WideString); safecall;
    function Get_IdEvento: Double; safecall;
    procedure Set_IdEvento(Value: Double); safecall;
    function Get_FechaOperacionDesde: WideString; safecall;
    procedure Set_FechaOperacionDesde(const Value: WideString); safecall;
    function Get_FechaOperacionHasta: WideString; safecall;
    procedure Set_FechaOperacionHasta(const Value: WideString); safecall;
    function Get_FechaTransaccionDesde: WideString; safecall;
    procedure Set_FechaTransaccionDesde(const Value: WideString); safecall;
    function Get_FechaTransaccionHasta: WideString; safecall;
    procedure Set_FechaTransaccionHasta(const Value: WideString); safecall;
    function Get_FechaVencimientoDesde: WideString; safecall;
    procedure Set_FechaVencimientoDesde(const Value: WideString); safecall;
    function Get_FechaVencimientoHasta: WideString; safecall;
    procedure Set_FechaVencimientoHasta(const Value: WideString); safecall;
    function Get_remito: WideString; safecall;
    procedure Set_remito(const Value: WideString); safecall;
    function Get_factura: WideString; safecall;
    procedure Set_factura(const Value: WideString); safecall;
    function Get_idProvincia: Double; safecall;
    procedure Set_idProvincia(Value: Double); safecall;
    function Get_idEstadoTransaccion: Double; safecall;
    procedure Set_idEstadoTransaccion(Value: Double); safecall;
    function Get_pagina: Double; safecall;
    procedure Set_pagina(Value: Double); safecall;
    function Get_offset: Double; safecall;
    procedure Set_offset(Value: Double); safecall;
    function Get_orderBy: WideString; safecall;
    procedure Set_orderBy(const Value: WideString); safecall;
    property IdTransaccion: Double read Get_IdTransaccion write Set_IdTransaccion;
    property glnAgenteOrigen: WideString read Get_glnAgenteOrigen write Set_glnAgenteOrigen;
    property glnAgenteDestino: WideString read Get_glnAgenteDestino write Set_glnAgenteDestino;
    property glnAgenteInformador: WideString read Get_glnAgenteInformador write Set_glnAgenteInformador;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property serie: WideString read Get_serie write Set_serie;
    property IdEvento: Double read Get_IdEvento write Set_IdEvento;
    property FechaOperacionDesde: WideString read Get_FechaOperacionDesde write Set_FechaOperacionDesde;
    property FechaOperacionHasta: WideString read Get_FechaOperacionHasta write Set_FechaOperacionHasta;
    property FechaTransaccionDesde: WideString read Get_FechaTransaccionDesde write Set_FechaTransaccionDesde;
    property FechaTransaccionHasta: WideString read Get_FechaTransaccionHasta write Set_FechaTransaccionHasta;
    property FechaVencimientoDesde: WideString read Get_FechaVencimientoDesde write Set_FechaVencimientoDesde;
    property FechaVencimientoHasta: WideString read Get_FechaVencimientoHasta write Set_FechaVencimientoHasta;
    property remito: WideString read Get_remito write Set_remito;
    property factura: WideString read Get_factura write Set_factura;
    property idProvincia: Double read Get_idProvincia write Set_idProvincia;
    property idEstadoTransaccion: Double read Get_idEstadoTransaccion write Set_idEstadoTransaccion;
    property pagina: Double read Get_pagina write Set_pagina;
    property offset: Double read Get_offset write Set_offset;
    property orderBy: WideString read Get_orderBy write Set_orderBy;
  end;

// *********************************************************************//
// DispIntf:  IgetTransaccionesWSParametrosDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}
// *********************************************************************//
  IgetTransaccionesWSParametrosDisp = dispinterface
    ['{14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}']
    property IdTransaccion: Double dispid 201;
    property glnAgenteOrigen: WideString dispid 202;
    property glnAgenteDestino: WideString dispid 203;
    property glnAgenteInformador: WideString dispid 204;
    property gtin: WideString dispid 205;
    property lote: WideString dispid 206;
    property serie: WideString dispid 207;
    property IdEvento: Double dispid 208;
    property FechaOperacionDesde: WideString dispid 209;
    property FechaOperacionHasta: WideString dispid 210;
    property FechaTransaccionDesde: WideString dispid 211;
    property FechaTransaccionHasta: WideString dispid 212;
    property FechaVencimientoDesde: WideString dispid 213;
    property FechaVencimientoHasta: WideString dispid 214;
    property remito: WideString dispid 215;
    property factura: WideString dispid 216;
    property idProvincia: Double dispid 217;
    property idEstadoTransaccion: Double dispid 218;
    property pagina: Double dispid 219;
    property offset: Double dispid 220;
    property orderBy: WideString dispid 221;
  end;

// *********************************************************************//
// Interface: IgetTransaccionesWSRespuesta
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {67DF4C0C-4AD8-4A60-A617-56956365E762}
// *********************************************************************//
  IgetTransaccionesWSRespuesta = interface(IDispatch)
    ['{67DF4C0C-4AD8-4A60-A617-56956365E762}']
    function Get_indice: Integer; safecall;
    procedure Set_indice(Value: Integer); safecall;
    function Get_count: Integer; safecall;
    function Get_codDiagnostico: WideString; safecall;
    function Get_descDiagnostico: WideString; safecall;
    function Get_descEstado: WideString; safecall;
    function Get_descMotivoDevolucion: WideString; safecall;
    function Get_descProducto: WideString; safecall;
    function Get_glnDestino: WideString; safecall;
    function Get_glnOrigen: WideString; safecall;
    function Get_gtin: WideString; safecall;
    function Get_idDetalleEvento: Double; safecall;
    function Get_IdEstado: Double; safecall;
    function Get_idMotivoDevolucion: Double; safecall;
    function Get_IdTransaccion: WideString; safecall;
    function Get_idTransaccionGlobal: WideString; safecall;
    function Get_lote: WideString; safecall;
    function Get_medicoCuit: WideString; safecall;
    function Get_medicoNombres: WideString; safecall;
    function Get_Nombre: WideString; safecall;
    function Get_NroFactura: WideString; safecall;
    function Get_NroRemito: WideString; safecall;
    function Get_nroSerial: WideString; safecall;
    function Get_otroMotivoDevolucion: WideString; safecall;
    function Get_pacienteApellido: WideString; safecall;
    function Get_pacienteCalle: WideString; safecall;
    function Get_pacienteCodPostal: WideString; safecall;
    function Get_pacienteCodigoObraSocial: WideString; safecall;
    function Get_pacienteCodigoTipoDocumento: WideString; safecall;
    function Get_pacienteDepartamento: WideString; safecall;
    function Get_pacienteDescObraSocial: WideString; safecall;
    function Get_pacienteDescTipoDocumento: WideString; safecall;
    function Get_pacienteFechaNacimiento: WideString; safecall;
    function Get_pacienteLocalidad: WideString; safecall;
    function Get_pacienteNombres: WideString; safecall;
    function Get_pacienteNroAfiliado: WideString; safecall;
    function Get_pacienteNroCalle: WideString; safecall;
    function Get_pacienteNroDocumento: WideString; safecall;
    function Get_pacientePiso: WideString; safecall;
    function Get_pacienteProvincia: WideString; safecall;
    function Get_pacienteSexo: WideString; safecall;
    function Get_pacienteTelefono: WideString; safecall;
    function Get_razonSocialDestino: WideString; safecall;
    function Get_razonSocialInformador: WideString; safecall;
    function Get_razonSocialOrigen: WideString; safecall;
    function Get_transacProvincia: WideString; safecall;
    function Get_vencimiento: WideString; safecall;
    function Get_dEvento: WideString; safecall;
    function Get_fEvento: WideString; safecall;
    function Get_fTransaccion: WideString; safecall;
    function Get_hEvento: WideString; safecall;
    property indice: Integer read Get_indice write Set_indice;
    property count: Integer read Get_count;
    property codDiagnostico: WideString read Get_codDiagnostico;
    property descDiagnostico: WideString read Get_descDiagnostico;
    property descEstado: WideString read Get_descEstado;
    property descMotivoDevolucion: WideString read Get_descMotivoDevolucion;
    property descProducto: WideString read Get_descProducto;
    property glnDestino: WideString read Get_glnDestino;
    property glnOrigen: WideString read Get_glnOrigen;
    property gtin: WideString read Get_gtin;
    property idDetalleEvento: Double read Get_idDetalleEvento;
    property IdEstado: Double read Get_IdEstado;
    property idMotivoDevolucion: Double read Get_idMotivoDevolucion;
    property IdTransaccion: WideString read Get_IdTransaccion;
    property idTransaccionGlobal: WideString read Get_idTransaccionGlobal;
    property lote: WideString read Get_lote;
    property medicoCuit: WideString read Get_medicoCuit;
    property medicoNombres: WideString read Get_medicoNombres;
    property Nombre: WideString read Get_Nombre;
    property NroFactura: WideString read Get_NroFactura;
    property NroRemito: WideString read Get_NroRemito;
    property nroSerial: WideString read Get_nroSerial;
    property otroMotivoDevolucion: WideString read Get_otroMotivoDevolucion;
    property pacienteApellido: WideString read Get_pacienteApellido;
    property pacienteCalle: WideString read Get_pacienteCalle;
    property pacienteCodPostal: WideString read Get_pacienteCodPostal;
    property pacienteCodigoObraSocial: WideString read Get_pacienteCodigoObraSocial;
    property pacienteCodigoTipoDocumento: WideString read Get_pacienteCodigoTipoDocumento;
    property pacienteDepartamento: WideString read Get_pacienteDepartamento;
    property pacienteDescObraSocial: WideString read Get_pacienteDescObraSocial;
    property pacienteDescTipoDocumento: WideString read Get_pacienteDescTipoDocumento;
    property pacienteFechaNacimiento: WideString read Get_pacienteFechaNacimiento;
    property pacienteLocalidad: WideString read Get_pacienteLocalidad;
    property pacienteNombres: WideString read Get_pacienteNombres;
    property pacienteNroAfiliado: WideString read Get_pacienteNroAfiliado;
    property pacienteNroCalle: WideString read Get_pacienteNroCalle;
    property pacienteNroDocumento: WideString read Get_pacienteNroDocumento;
    property pacientePiso: WideString read Get_pacientePiso;
    property pacienteProvincia: WideString read Get_pacienteProvincia;
    property pacienteSexo: WideString read Get_pacienteSexo;
    property pacienteTelefono: WideString read Get_pacienteTelefono;
    property razonSocialDestino: WideString read Get_razonSocialDestino;
    property razonSocialInformador: WideString read Get_razonSocialInformador;
    property razonSocialOrigen: WideString read Get_razonSocialOrigen;
    property transacProvincia: WideString read Get_transacProvincia;
    property vencimiento: WideString read Get_vencimiento;
    property dEvento: WideString read Get_dEvento;
    property fEvento: WideString read Get_fEvento;
    property fTransaccion: WideString read Get_fTransaccion;
    property hEvento: WideString read Get_hEvento;
  end;

// *********************************************************************//
// DispIntf:  IgetTransaccionesWSRespuestaDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {67DF4C0C-4AD8-4A60-A617-56956365E762}
// *********************************************************************//
  IgetTransaccionesWSRespuestaDisp = dispinterface
    ['{67DF4C0C-4AD8-4A60-A617-56956365E762}']
    property indice: Integer dispid 201;
    property count: Integer readonly dispid 202;
    property codDiagnostico: WideString readonly dispid 203;
    property descDiagnostico: WideString readonly dispid 204;
    property descEstado: WideString readonly dispid 205;
    property descMotivoDevolucion: WideString readonly dispid 206;
    property descProducto: WideString readonly dispid 207;
    property glnDestino: WideString readonly dispid 208;
    property glnOrigen: WideString readonly dispid 209;
    property gtin: WideString readonly dispid 210;
    property idDetalleEvento: Double readonly dispid 211;
    property IdEstado: Double readonly dispid 212;
    property idMotivoDevolucion: Double readonly dispid 213;
    property IdTransaccion: WideString readonly dispid 214;
    property idTransaccionGlobal: WideString readonly dispid 215;
    property lote: WideString readonly dispid 216;
    property medicoCuit: WideString readonly dispid 217;
    property medicoNombres: WideString readonly dispid 218;
    property Nombre: WideString readonly dispid 219;
    property NroFactura: WideString readonly dispid 220;
    property NroRemito: WideString readonly dispid 221;
    property nroSerial: WideString readonly dispid 222;
    property otroMotivoDevolucion: WideString readonly dispid 223;
    property pacienteApellido: WideString readonly dispid 224;
    property pacienteCalle: WideString readonly dispid 225;
    property pacienteCodPostal: WideString readonly dispid 226;
    property pacienteCodigoObraSocial: WideString readonly dispid 227;
    property pacienteCodigoTipoDocumento: WideString readonly dispid 228;
    property pacienteDepartamento: WideString readonly dispid 229;
    property pacienteDescObraSocial: WideString readonly dispid 230;
    property pacienteDescTipoDocumento: WideString readonly dispid 231;
    property pacienteFechaNacimiento: WideString readonly dispid 232;
    property pacienteLocalidad: WideString readonly dispid 233;
    property pacienteNombres: WideString readonly dispid 234;
    property pacienteNroAfiliado: WideString readonly dispid 235;
    property pacienteNroCalle: WideString readonly dispid 236;
    property pacienteNroDocumento: WideString readonly dispid 237;
    property pacientePiso: WideString readonly dispid 238;
    property pacienteProvincia: WideString readonly dispid 239;
    property pacienteSexo: WideString readonly dispid 240;
    property pacienteTelefono: WideString readonly dispid 241;
    property razonSocialDestino: WideString readonly dispid 242;
    property razonSocialInformador: WideString readonly dispid 243;
    property razonSocialOrigen: WideString readonly dispid 244;
    property transacProvincia: WideString readonly dispid 245;
    property vencimiento: WideString readonly dispid 246;
    property dEvento: WideString readonly dispid 247;
    property fEvento: WideString readonly dispid 248;
    property fTransaccion: WideString readonly dispid 249;
    property hEvento: WideString readonly dispid 250;
  end;

// *********************************************************************//
// The Class CoTrazaMed provides a Create and CreateRemote method to          
// create instances of the default interface ITrazaMed exposed by              
// the CoClass TrazaMed. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoTrazaMed = class
    class function Create: ITrazaMed;
    class function CreateRemote(const MachineName: string): ITrazaMed;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TTrazaMed
// Help String      : TrazaMed Object
// Default Interface: ITrazaMed
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTrazaMedProperties= class;
{$ENDIF}
  TTrazaMed = class(TOleServer)
  private
    FIntf:        ITrazaMed;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTrazaMedProperties;
    function      GetServerProperties: TTrazaMedProperties;
{$ENDIF}
    function      GetDefaultInterface: ITrazaMed;
  protected
    procedure InitServerData; override;
    function Get_XMLRequest: WideString;
    function Get_XMLResponse: WideString;
    function Get_Errores: WideString;
    function Get_usuario: WideString;
    procedure Set_usuario(const Value: WideString);
    function Get_password: WideString;
    procedure Set_password(const Value: WideString);
    function Get_id_transaccion: WideString;
    function Get_modo_produccion: OLE_CANCELBOOL;
    procedure Set_modo_produccion(Value: OLE_CANCELBOOL);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ITrazaMed);
    procedure Disconnect; override;
    procedure Reset;
    function sendCancelacTransacc(id_transaccion: Integer): OLE_CANCELBOOL;
    procedure AgregaMedicamento(const medicamentoDTO: ImedicamentosDTO);
    function SendMedicamentos: OLE_CANCELBOOL;
    procedure AgregaMedicamentoDHSerie(const medicamento: ImedicamentosDTOdhSerie);
    function sendMedicamentosDHSerie: OLE_CANCELBOOL;
    procedure LogTransaction(const RequestFileName: WideString; const ResponseFilename: WideString);
    function SendConfirmaTransacc(const f_operacion: WideString; const p_ids_transac: WideString): OLE_CANCELBOOL;
    function SendCancelaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL;
    function SendAlertaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL;
    function GetTransaccionesNoConfirmadas(IdTransaccion: Double; 
                                           const GNLAgenteInformador: WideString; 
                                           const GNLAgenteOrigen: WideString; 
                                           const GNLAgenteDestino: WideString; 
                                           const GTINMedicamento: WideString; IdEvento: Integer; 
                                           const FechaTransaccionDesde: WideString; 
                                           const FechaTransaccionHasta: WideString; 
                                           const FechaOperacionDesde: WideString; 
                                           const FechaOperacionHasta: WideString; 
                                           const FechaVencimientoDesde: WideString; 
                                           const FechaVencimientoHasta: WideString; 
                                           const NroRemito: WideString; 
                                           const NroFactura: WideString; IdEstado: Integer; 
                                           const NroLote: WideString; const NroSerie: WideString; 
                                           NroPagina: Integer; CantRegPagina: Integer; 
                                           const transaccionesWSResult: ITransaccionPlainWS): OLE_CANCELBOOL;
    function getConsultaStock(const GTINMedicamento: WideString; const GLN_CUFEAgente: WideString; 
                              const Nombre: WideString; Cantidad: Integer; 
                              const Presentacion: WideString; const NroLote: WideString; 
                              const NroSerie: WideString; NroPagina: Integer; 
                              CantidadRegistros: Integer; 
                              const getConsultaStockResponse: IConsultaStockWSResult): OLE_CANCELBOOL;
    property DefaultInterface: ITrazaMed read GetDefaultInterface;
    property XMLRequest: WideString read Get_XMLRequest;
    property XMLResponse: WideString read Get_XMLResponse;
    property Errores: WideString read Get_Errores;
    property id_transaccion: WideString read Get_id_transaccion;
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property modo_produccion: OLE_CANCELBOOL read Get_modo_produccion write Set_modo_produccion;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTrazaMedProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TTrazaMed
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTrazaMedProperties = class(TPersistent)
  private
    FServer:    TTrazaMed;
    function    GetDefaultInterface: ITrazaMed;
    constructor Create(AServer: TTrazaMed);
  protected
    function Get_XMLRequest: WideString;
    function Get_XMLResponse: WideString;
    function Get_Errores: WideString;
    function Get_usuario: WideString;
    procedure Set_usuario(const Value: WideString);
    function Get_password: WideString;
    procedure Set_password(const Value: WideString);
    function Get_id_transaccion: WideString;
    function Get_modo_produccion: OLE_CANCELBOOL;
    procedure Set_modo_produccion(Value: OLE_CANCELBOOL);
  public
    property DefaultInterface: ITrazaMed read GetDefaultInterface;
  published
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property modo_produccion: OLE_CANCELBOOL read Get_modo_produccion write Set_modo_produccion;
  end;
{$ENDIF}


// *********************************************************************//
// The Class ComedicamentosDTO provides a Create and CreateRemote method to          
// create instances of the default interface ImedicamentosDTO exposed by              
// the CoClass medicamentosDTO. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  ComedicamentosDTO = class
    class function Create: ImedicamentosDTO;
    class function CreateRemote(const MachineName: string): ImedicamentosDTO;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TmedicamentosDTO
// Help String      : medicamentosDTO Object
// Default Interface: ImedicamentosDTO
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TmedicamentosDTOProperties= class;
{$ENDIF}
  TmedicamentosDTO = class(TOleServer)
  private
    FIntf:        ImedicamentosDTO;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TmedicamentosDTOProperties;
    function      GetServerProperties: TmedicamentosDTOProperties;
{$ENDIF}
    function      GetDefaultInterface: ImedicamentosDTO;
  protected
    procedure InitServerData; override;
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_numero_serial: WideString;
    procedure Set_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_tipo_documento: Integer;
    procedure Set_tipo_documento(Value: Integer);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_id_obra_social: WideString;
    procedure Set_id_obra_social(const Value: WideString);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ImedicamentosDTO);
    procedure Disconnect; override;
    property DefaultInterface: ImedicamentosDTO read GetDefaultInterface;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: WideString read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TmedicamentosDTOProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TmedicamentosDTO
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TmedicamentosDTOProperties = class(TPersistent)
  private
    FServer:    TmedicamentosDTO;
    function    GetDefaultInterface: ImedicamentosDTO;
    constructor Create(AServer: TmedicamentosDTO);
  protected
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_numero_serial: WideString;
    procedure Set_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_tipo_documento: Integer;
    procedure Set_tipo_documento(Value: Integer);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_id_obra_social: WideString;
    procedure Set_id_obra_social(const Value: WideString);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
  public
    property DefaultInterface: ImedicamentosDTO read GetDefaultInterface;
  published
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: WideString read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  end;
{$ENDIF}


// *********************************************************************//
// The Class ComedicamentosDTOdhSerie provides a Create and CreateRemote method to          
// create instances of the default interface ImedicamentosDTOdhSerie exposed by              
// the CoClass medicamentosDTOdhSerie. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  ComedicamentosDTOdhSerie = class
    class function Create: ImedicamentosDTOdhSerie;
    class function CreateRemote(const MachineName: string): ImedicamentosDTOdhSerie;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TmedicamentosDTOdhSerie
// Help String      : medicamentosDTOdhSerie Object
// Default Interface: ImedicamentosDTOdhSerie
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TmedicamentosDTOdhSerieProperties= class;
{$ENDIF}
  TmedicamentosDTOdhSerie = class(TOleServer)
  private
    FIntf:        ImedicamentosDTOdhSerie;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TmedicamentosDTOdhSerieProperties;
    function      GetServerProperties: TmedicamentosDTOdhSerieProperties;
{$ENDIF}
    function      GetDefaultInterface: ImedicamentosDTOdhSerie;
  protected
    procedure InitServerData; override;
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_desde_numero_serial: WideString;
    procedure Set_desde_numero_serial(const Value: WideString);
    function Get_hasta_numero_serial: WideString;
    procedure Set_hasta_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_id_obra_social: Integer;
    procedure Set_id_obra_social(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_tipo_documento: WideString;
    procedure Set_tipo_documento(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ImedicamentosDTOdhSerie);
    procedure Disconnect; override;
    property DefaultInterface: ImedicamentosDTOdhSerie read GetDefaultInterface;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property desde_numero_serial: WideString read Get_desde_numero_serial write Set_desde_numero_serial;
    property hasta_numero_serial: WideString read Get_hasta_numero_serial write Set_hasta_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property apellido: WideString read Get_apellido write Set_apellido;
    property dpto: WideString read Get_dpto write Set_dpto;
    property direccion: WideString read Get_direccion write Set_direccion;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property localidad: WideString read Get_localidad write Set_localidad;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property nombres: WideString read Get_nombres write Set_nombres;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property numero: WideString read Get_numero write Set_numero;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
    property piso: WideString read Get_piso write Set_piso;
    property provincia: WideString read Get_provincia write Set_provincia;
    property sexo: WideString read Get_sexo write Set_sexo;
    property telefono: WideString read Get_telefono write Set_telefono;
    property tipo_documento: WideString read Get_tipo_documento write Set_tipo_documento;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TmedicamentosDTOdhSerieProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TmedicamentosDTOdhSerie
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TmedicamentosDTOdhSerieProperties = class(TPersistent)
  private
    FServer:    TmedicamentosDTOdhSerie;
    function    GetDefaultInterface: ImedicamentosDTOdhSerie;
    constructor Create(AServer: TmedicamentosDTOdhSerie);
  protected
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_desde_numero_serial: WideString;
    procedure Set_desde_numero_serial(const Value: WideString);
    function Get_hasta_numero_serial: WideString;
    procedure Set_hasta_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_id_obra_social: Integer;
    procedure Set_id_obra_social(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_tipo_documento: WideString;
    procedure Set_tipo_documento(const Value: WideString);
  public
    property DefaultInterface: ImedicamentosDTOdhSerie read GetDefaultInterface;
  published
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property desde_numero_serial: WideString read Get_desde_numero_serial write Set_desde_numero_serial;
    property hasta_numero_serial: WideString read Get_hasta_numero_serial write Set_hasta_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property apellido: WideString read Get_apellido write Set_apellido;
    property dpto: WideString read Get_dpto write Set_dpto;
    property direccion: WideString read Get_direccion write Set_direccion;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property localidad: WideString read Get_localidad write Set_localidad;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property nombres: WideString read Get_nombres write Set_nombres;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property numero: WideString read Get_numero write Set_numero;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
    property piso: WideString read Get_piso write Set_piso;
    property provincia: WideString read Get_provincia write Set_provincia;
    property sexo: WideString read Get_sexo write Set_sexo;
    property telefono: WideString read Get_telefono write Set_telefono;
    property tipo_documento: WideString read Get_tipo_documento write Set_tipo_documento;
  end;
{$ENDIF}


// *********************************************************************//
// The Class ComedicamentosFraccion provides a Create and CreateRemote method to          
// create instances of the default interface ImedicamentosFraccion exposed by              
// the CoClass medicamentosFraccion. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  ComedicamentosFraccion = class
    class function Create: ImedicamentosFraccion;
    class function CreateRemote(const MachineName: string): ImedicamentosFraccion;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TmedicamentosFraccion
// Help String      : medicamentosFraccion Object
// Default Interface: ImedicamentosFraccion
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TmedicamentosFraccionProperties= class;
{$ENDIF}
  TmedicamentosFraccion = class(TOleServer)
  private
    FIntf:        ImedicamentosFraccion;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TmedicamentosFraccionProperties;
    function      GetServerProperties: TmedicamentosFraccionProperties;
{$ENDIF}
    function      GetDefaultInterface: ImedicamentosFraccion;
  protected
    procedure InitServerData; override;
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_numero_serial: WideString;
    procedure Set_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_id_obra_social: Integer;
    procedure Set_id_obra_social(Value: Integer);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_Cantidad: Integer;
    procedure Set_Cantidad(Value: Integer);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_tipo_documento: Integer;
    procedure Set_tipo_documento(Value: Integer);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ImedicamentosFraccion);
    procedure Disconnect; override;
    property DefaultInterface: ImedicamentosFraccion read GetDefaultInterface;
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property Cantidad: Integer read Get_Cantidad write Set_Cantidad;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TmedicamentosFraccionProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TmedicamentosFraccion
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TmedicamentosFraccionProperties = class(TPersistent)
  private
    FServer:    TmedicamentosFraccion;
    function    GetDefaultInterface: ImedicamentosFraccion;
    constructor Create(AServer: TmedicamentosFraccion);
  protected
    function Get_f_evento: WideString;
    procedure Set_f_evento(const Value: WideString);
    function Get_h_evento: WideString;
    procedure Set_h_evento(const Value: WideString);
    function Get_gln_origen: WideString;
    procedure Set_gln_origen(const Value: WideString);
    function Get_cuit_origen: WideString;
    procedure Set_cuit_origen(const Value: WideString);
    function Get_gln_destino: WideString;
    procedure Set_gln_destino(const Value: WideString);
    function Get_cuit_destino: WideString;
    procedure Set_cuit_destino(const Value: WideString);
    function Get_n_remito: WideString;
    procedure Set_n_remito(const Value: WideString);
    function Get_n_factura: WideString;
    procedure Set_n_factura(const Value: WideString);
    function Get_vencimiento: WideString;
    procedure Set_vencimiento(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_numero_serial: WideString;
    procedure Set_numero_serial(const Value: WideString);
    function Get_id_evento: Integer;
    procedure Set_id_evento(Value: Integer);
    function Get_apellido: WideString;
    procedure Set_apellido(const Value: WideString);
    function Get_nombres: WideString;
    procedure Set_nombres(const Value: WideString);
    function Get_n_documento: WideString;
    procedure Set_n_documento(const Value: WideString);
    function Get_sexo: WideString;
    procedure Set_sexo(const Value: WideString);
    function Get_direccion: WideString;
    procedure Set_direccion(const Value: WideString);
    function Get_localidad: WideString;
    procedure Set_localidad(const Value: WideString);
    function Get_numero: WideString;
    procedure Set_numero(const Value: WideString);
    function Get_piso: WideString;
    procedure Set_piso(const Value: WideString);
    function Get_dpto: WideString;
    procedure Set_dpto(const Value: WideString);
    function Get_n_postal: WideString;
    procedure Set_n_postal(const Value: WideString);
    function Get_telefono: WideString;
    procedure Set_telefono(const Value: WideString);
    function Get_id_obra_social: Integer;
    procedure Set_id_obra_social(Value: Integer);
    function Get_provincia: WideString;
    procedure Set_provincia(const Value: WideString);
    function Get_fecha_nacimiento: WideString;
    procedure Set_fecha_nacimiento(const Value: WideString);
    function Get_Cantidad: Integer;
    procedure Set_Cantidad(Value: Integer);
    function Get_id_motivo_devolucion: Double;
    procedure Set_id_motivo_devolucion(Value: Double);
    function Get_id_motivo_reposicion: Double;
    procedure Set_id_motivo_reposicion(Value: Double);
    function Get_id_programa: Double;
    procedure Set_id_programa(Value: Double);
    function Get_tipo_documento: Integer;
    procedure Set_tipo_documento(Value: Integer);
    function Get_nro_asociado: WideString;
    procedure Set_nro_asociado(const Value: WideString);
    function Get_otro_motivo_devolucion: WideString;
    procedure Set_otro_motivo_devolucion(const Value: WideString);
  public
    property DefaultInterface: ImedicamentosFraccion read GetDefaultInterface;
  published
    property f_evento: WideString read Get_f_evento write Set_f_evento;
    property h_evento: WideString read Get_h_evento write Set_h_evento;
    property gln_origen: WideString read Get_gln_origen write Set_gln_origen;
    property cuit_origen: WideString read Get_cuit_origen write Set_cuit_origen;
    property gln_destino: WideString read Get_gln_destino write Set_gln_destino;
    property cuit_destino: WideString read Get_cuit_destino write Set_cuit_destino;
    property n_remito: WideString read Get_n_remito write Set_n_remito;
    property n_factura: WideString read Get_n_factura write Set_n_factura;
    property vencimiento: WideString read Get_vencimiento write Set_vencimiento;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property numero_serial: WideString read Get_numero_serial write Set_numero_serial;
    property id_evento: Integer read Get_id_evento write Set_id_evento;
    property apellido: WideString read Get_apellido write Set_apellido;
    property nombres: WideString read Get_nombres write Set_nombres;
    property n_documento: WideString read Get_n_documento write Set_n_documento;
    property sexo: WideString read Get_sexo write Set_sexo;
    property direccion: WideString read Get_direccion write Set_direccion;
    property localidad: WideString read Get_localidad write Set_localidad;
    property numero: WideString read Get_numero write Set_numero;
    property piso: WideString read Get_piso write Set_piso;
    property dpto: WideString read Get_dpto write Set_dpto;
    property n_postal: WideString read Get_n_postal write Set_n_postal;
    property telefono: WideString read Get_telefono write Set_telefono;
    property id_obra_social: Integer read Get_id_obra_social write Set_id_obra_social;
    property provincia: WideString read Get_provincia write Set_provincia;
    property fecha_nacimiento: WideString read Get_fecha_nacimiento write Set_fecha_nacimiento;
    property Cantidad: Integer read Get_Cantidad write Set_Cantidad;
    property id_motivo_devolucion: Double read Get_id_motivo_devolucion write Set_id_motivo_devolucion;
    property id_motivo_reposicion: Double read Get_id_motivo_reposicion write Set_id_motivo_reposicion;
    property id_programa: Double read Get_id_programa write Set_id_programa;
    property tipo_documento: Integer read Get_tipo_documento write Set_tipo_documento;
    property nro_asociado: WideString read Get_nro_asociado write Set_nro_asociado;
    property otro_motivo_devolucion: WideString read Get_otro_motivo_devolucion write Set_otro_motivo_devolucion;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoTransaccionPlainWS provides a Create and CreateRemote method to          
// create instances of the default interface ITransaccionPlainWS exposed by              
// the CoClass TransaccionPlainWS. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoTransaccionPlainWS = class
    class function Create: ITransaccionPlainWS;
    class function CreateRemote(const MachineName: string): ITransaccionPlainWS;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TTransaccionPlainWS
// Help String      : 
// Default Interface: ITransaccionPlainWS
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTransaccionPlainWSProperties= class;
{$ENDIF}
  TTransaccionPlainWS = class(TOleServer)
  private
    FIntf:        ITransaccionPlainWS;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTransaccionPlainWSProperties;
    function      GetServerProperties: TTransaccionPlainWSProperties;
{$ENDIF}
    function      GetDefaultInterface: ITransaccionPlainWS;
  protected
    procedure InitServerData; override;
    function Get_index: Integer;
    procedure Set_index(Value: Integer);
    function Get_count: Integer;
    function Get_id_transaccion: Double;
    function Get_id_transaccion_global: Double;
    function Get_f_evento: WideString;
    function Get_f_transaccion: Integer;
    function Get_gtin: WideString;
    function Get_lote: WideString;
    function Get_numero_serial: WideString;
    function Get_Nombre: WideString;
    function Get_id_evento: Integer;
    function Get_d_evento: WideString;
    function Get_gnl_origen: WideString;
    function Get_razon_social_origen: WideString;
    function Get_gln_destino: WideString;
    function Get_razon_social_destino: WideString;
    function Get_n_remito: WideString;
    function Get_n_factura: WideString;
    function Get_vencimiento: WideString;
    function Get_id_detalle_evento: Integer;
    function Get_id_estado: Integer;
    function Get_d_programa: WideString;
    function Get_cantPaginas: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ITransaccionPlainWS);
    procedure Disconnect; override;
    property DefaultInterface: ITransaccionPlainWS read GetDefaultInterface;
    property count: Integer read Get_count;
    property id_transaccion: Double read Get_id_transaccion;
    property id_transaccion_global: Double read Get_id_transaccion_global;
    property f_evento: WideString read Get_f_evento;
    property f_transaccion: Integer read Get_f_transaccion;
    property gtin: WideString read Get_gtin;
    property lote: WideString read Get_lote;
    property numero_serial: WideString read Get_numero_serial;
    property Nombre: WideString read Get_Nombre;
    property id_evento: Integer read Get_id_evento;
    property d_evento: WideString read Get_d_evento;
    property gnl_origen: WideString read Get_gnl_origen;
    property razon_social_origen: WideString read Get_razon_social_origen;
    property gln_destino: WideString read Get_gln_destino;
    property razon_social_destino: WideString read Get_razon_social_destino;
    property n_remito: WideString read Get_n_remito;
    property n_factura: WideString read Get_n_factura;
    property vencimiento: WideString read Get_vencimiento;
    property id_detalle_evento: Integer read Get_id_detalle_evento;
    property id_estado: Integer read Get_id_estado;
    property d_programa: WideString read Get_d_programa;
    property cantPaginas: Integer read Get_cantPaginas;
    property index: Integer read Get_index write Set_index;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTransaccionPlainWSProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TTransaccionPlainWS
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTransaccionPlainWSProperties = class(TPersistent)
  private
    FServer:    TTransaccionPlainWS;
    function    GetDefaultInterface: ITransaccionPlainWS;
    constructor Create(AServer: TTransaccionPlainWS);
  protected
    function Get_index: Integer;
    procedure Set_index(Value: Integer);
    function Get_count: Integer;
    function Get_id_transaccion: Double;
    function Get_id_transaccion_global: Double;
    function Get_f_evento: WideString;
    function Get_f_transaccion: Integer;
    function Get_gtin: WideString;
    function Get_lote: WideString;
    function Get_numero_serial: WideString;
    function Get_Nombre: WideString;
    function Get_id_evento: Integer;
    function Get_d_evento: WideString;
    function Get_gnl_origen: WideString;
    function Get_razon_social_origen: WideString;
    function Get_gln_destino: WideString;
    function Get_razon_social_destino: WideString;
    function Get_n_remito: WideString;
    function Get_n_factura: WideString;
    function Get_vencimiento: WideString;
    function Get_id_detalle_evento: Integer;
    function Get_id_estado: Integer;
    function Get_d_programa: WideString;
    function Get_cantPaginas: Integer;
  public
    property DefaultInterface: ITransaccionPlainWS read GetDefaultInterface;
  published
    property index: Integer read Get_index write Set_index;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoConsultaStockWSResult provides a Create and CreateRemote method to          
// create instances of the default interface IConsultaStockWSResult exposed by              
// the CoClass ConsultaStockWSResult. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoConsultaStockWSResult = class
    class function Create: IConsultaStockWSResult;
    class function CreateRemote(const MachineName: string): IConsultaStockWSResult;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TConsultaStockWSResult
// Help String      : ConsultaStockWSResult Object
// Default Interface: IConsultaStockWSResult
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TConsultaStockWSResultProperties= class;
{$ENDIF}
  TConsultaStockWSResult = class(TOleServer)
  private
    FIntf:        IConsultaStockWSResult;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TConsultaStockWSResultProperties;
    function      GetServerProperties: TConsultaStockWSResultProperties;
{$ENDIF}
    function      GetDefaultInterface: IConsultaStockWSResult;
  protected
    procedure InitServerData; override;
    function Get_cantPaginas: Integer;
    function Get_count: Integer;
    function Get_forma: WideString;
    function Get_gln: WideString;
    function Get_gtin: WideString;
    function Get_lote: WideString;
    function Get_Nombre: WideString;
    function Get_p_unidades: Double;
    function Get_Presentacion: WideString;
    function Get_serie: WideString;
    function Get_index: Integer;
    procedure Set_index(Value: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IConsultaStockWSResult);
    procedure Disconnect; override;
    property DefaultInterface: IConsultaStockWSResult read GetDefaultInterface;
    property cantPaginas: Integer read Get_cantPaginas;
    property count: Integer read Get_count;
    property forma: WideString read Get_forma;
    property gln: WideString read Get_gln;
    property gtin: WideString read Get_gtin;
    property lote: WideString read Get_lote;
    property Nombre: WideString read Get_Nombre;
    property p_unidades: Double read Get_p_unidades;
    property Presentacion: WideString read Get_Presentacion;
    property serie: WideString read Get_serie;
    property index: Integer read Get_index write Set_index;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TConsultaStockWSResultProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TConsultaStockWSResult
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TConsultaStockWSResultProperties = class(TPersistent)
  private
    FServer:    TConsultaStockWSResult;
    function    GetDefaultInterface: IConsultaStockWSResult;
    constructor Create(AServer: TConsultaStockWSResult);
  protected
    function Get_cantPaginas: Integer;
    function Get_count: Integer;
    function Get_forma: WideString;
    function Get_gln: WideString;
    function Get_gtin: WideString;
    function Get_lote: WideString;
    function Get_Nombre: WideString;
    function Get_p_unidades: Double;
    function Get_Presentacion: WideString;
    function Get_serie: WideString;
    function Get_index: Integer;
    procedure Set_index(Value: Integer);
  public
    property DefaultInterface: IConsultaStockWSResult read GetDefaultInterface;
  published
    property index: Integer read Get_index write Set_index;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoTrazaprodmed provides a Create and CreateRemote method to          
// create instances of the default interface ITrazaprodmed exposed by              
// the CoClass Trazaprodmed. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoTrazaprodmed = class
    class function Create: ITrazaprodmed;
    class function CreateRemote(const MachineName: string): ITrazaprodmed;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TTrazaprodmed
// Help String      : Trazaprodmed Object
// Default Interface: ITrazaprodmed
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTrazaprodmedProperties= class;
{$ENDIF}
  TTrazaprodmed = class(TOleServer)
  private
    FIntf:        ITrazaprodmed;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTrazaprodmedProperties;
    function      GetServerProperties: TTrazaprodmedProperties;
{$ENDIF}
    function      GetDefaultInterface: ITrazaprodmed;
  protected
    procedure InitServerData; override;
    function Get_usuario: WideString;
    procedure Set_usuario(const Value: WideString);
    function Get_password: WideString;
    procedure Set_password(const Value: WideString);
    function Get_ModoProduccion: OLE_CANCELBOOL;
    procedure Set_ModoProduccion(Value: OLE_CANCELBOOL);
    function Get_Depurar: OLE_CANCELBOOL;
    procedure Set_Depurar(Value: OLE_CANCELBOOL);
    function Get_Errores: WideString;
    function Get_codigoTransaccion: WideString;
    function Get_getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ITrazaprodmed);
    procedure Disconnect; override;
    procedure InicializarInforme;
    procedure AgregarTransaccion(const apellidos: WideString; const calle: WideString; 
                                 const codDiagnostico: WideString; const codHiv: WideString; 
                                 const codPostal: WideString; const cuitMedico: WideString; 
                                 const departamento: WideString; const fechaNacimiento: WideString; 
                                 const glnDestino: WideString; const glnOrigen: WideString; 
                                 const gtin: WideString; IdEvento: Double; 
                                 idMotivoDevolucion: Double; idObraSocial: Double; 
                                 idTipoDocumento: Double; const localidad: WideString; 
                                 const lote: WideString; const nombres: WideString; 
                                 const nroAfiliado: WideString; nroCalle: Double; 
                                 const nroDocumento: WideString; const NroFactura: WideString; 
                                 const NroRemito: WideString; const nroSerial: WideString; 
                                 const otroMotivoDevolucion: WideString; const piso: WideString);
    procedure AgregarTransaccion2(const provincia: WideString; const sexo: WideString; 
                                  const telefono: WideString; const vencimiento: WideString; 
                                  const fEvento: WideString; const hEvento: WideString);
    function Informar: OLE_CANCELBOOL;
    function getTransaccionesWS(const params: IgetTransaccionesWSParametros): OLE_CANCELBOOL;
    function sendCancelacTransacc(transaccion: Double): OLE_CANCELBOOL;
    function sendCancelacTransaccParcial(const gtin: WideString; const serie: WideString): OLE_CANCELBOOL;
    property DefaultInterface: ITrazaprodmed read GetDefaultInterface;
    property Errores: WideString read Get_Errores;
    property codigoTransaccion: WideString read Get_codigoTransaccion;
    property getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta read Get_getTransaccionesWSRespuesta;
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property ModoProduccion: OLE_CANCELBOOL read Get_ModoProduccion write Set_ModoProduccion;
    property Depurar: OLE_CANCELBOOL read Get_Depurar write Set_Depurar;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTrazaprodmedProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TTrazaprodmed
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTrazaprodmedProperties = class(TPersistent)
  private
    FServer:    TTrazaprodmed;
    function    GetDefaultInterface: ITrazaprodmed;
    constructor Create(AServer: TTrazaprodmed);
  protected
    function Get_usuario: WideString;
    procedure Set_usuario(const Value: WideString);
    function Get_password: WideString;
    procedure Set_password(const Value: WideString);
    function Get_ModoProduccion: OLE_CANCELBOOL;
    procedure Set_ModoProduccion(Value: OLE_CANCELBOOL);
    function Get_Depurar: OLE_CANCELBOOL;
    procedure Set_Depurar(Value: OLE_CANCELBOOL);
    function Get_Errores: WideString;
    function Get_codigoTransaccion: WideString;
    function Get_getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta;
  public
    property DefaultInterface: ITrazaprodmed read GetDefaultInterface;
  published
    property usuario: WideString read Get_usuario write Set_usuario;
    property password: WideString read Get_password write Set_password;
    property ModoProduccion: OLE_CANCELBOOL read Get_ModoProduccion write Set_ModoProduccion;
    property Depurar: OLE_CANCELBOOL read Get_Depurar write Set_Depurar;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CogetTransaccionesWSParametros provides a Create and CreateRemote method to          
// create instances of the default interface IgetTransaccionesWSParametros exposed by              
// the CoClass getTransaccionesWSParametros. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CogetTransaccionesWSParametros = class
    class function Create: IgetTransaccionesWSParametros;
    class function CreateRemote(const MachineName: string): IgetTransaccionesWSParametros;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TgetTransaccionesWSParametros
// Help String      : 
// Default Interface: IgetTransaccionesWSParametros
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TgetTransaccionesWSParametrosProperties= class;
{$ENDIF}
  TgetTransaccionesWSParametros = class(TOleServer)
  private
    FIntf:        IgetTransaccionesWSParametros;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TgetTransaccionesWSParametrosProperties;
    function      GetServerProperties: TgetTransaccionesWSParametrosProperties;
{$ENDIF}
    function      GetDefaultInterface: IgetTransaccionesWSParametros;
  protected
    procedure InitServerData; override;
    function Get_IdTransaccion: Double;
    procedure Set_IdTransaccion(Value: Double);
    function Get_glnAgenteOrigen: WideString;
    procedure Set_glnAgenteOrigen(const Value: WideString);
    function Get_glnAgenteDestino: WideString;
    procedure Set_glnAgenteDestino(const Value: WideString);
    function Get_glnAgenteInformador: WideString;
    procedure Set_glnAgenteInformador(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_serie: WideString;
    procedure Set_serie(const Value: WideString);
    function Get_IdEvento: Double;
    procedure Set_IdEvento(Value: Double);
    function Get_FechaOperacionDesde: WideString;
    procedure Set_FechaOperacionDesde(const Value: WideString);
    function Get_FechaOperacionHasta: WideString;
    procedure Set_FechaOperacionHasta(const Value: WideString);
    function Get_FechaTransaccionDesde: WideString;
    procedure Set_FechaTransaccionDesde(const Value: WideString);
    function Get_FechaTransaccionHasta: WideString;
    procedure Set_FechaTransaccionHasta(const Value: WideString);
    function Get_FechaVencimientoDesde: WideString;
    procedure Set_FechaVencimientoDesde(const Value: WideString);
    function Get_FechaVencimientoHasta: WideString;
    procedure Set_FechaVencimientoHasta(const Value: WideString);
    function Get_remito: WideString;
    procedure Set_remito(const Value: WideString);
    function Get_factura: WideString;
    procedure Set_factura(const Value: WideString);
    function Get_idProvincia: Double;
    procedure Set_idProvincia(Value: Double);
    function Get_idEstadoTransaccion: Double;
    procedure Set_idEstadoTransaccion(Value: Double);
    function Get_pagina: Double;
    procedure Set_pagina(Value: Double);
    function Get_offset: Double;
    procedure Set_offset(Value: Double);
    function Get_orderBy: WideString;
    procedure Set_orderBy(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IgetTransaccionesWSParametros);
    procedure Disconnect; override;
    property DefaultInterface: IgetTransaccionesWSParametros read GetDefaultInterface;
    property IdTransaccion: Double read Get_IdTransaccion write Set_IdTransaccion;
    property glnAgenteOrigen: WideString read Get_glnAgenteOrigen write Set_glnAgenteOrigen;
    property glnAgenteDestino: WideString read Get_glnAgenteDestino write Set_glnAgenteDestino;
    property glnAgenteInformador: WideString read Get_glnAgenteInformador write Set_glnAgenteInformador;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property serie: WideString read Get_serie write Set_serie;
    property IdEvento: Double read Get_IdEvento write Set_IdEvento;
    property FechaOperacionDesde: WideString read Get_FechaOperacionDesde write Set_FechaOperacionDesde;
    property FechaOperacionHasta: WideString read Get_FechaOperacionHasta write Set_FechaOperacionHasta;
    property FechaTransaccionDesde: WideString read Get_FechaTransaccionDesde write Set_FechaTransaccionDesde;
    property FechaTransaccionHasta: WideString read Get_FechaTransaccionHasta write Set_FechaTransaccionHasta;
    property FechaVencimientoDesde: WideString read Get_FechaVencimientoDesde write Set_FechaVencimientoDesde;
    property FechaVencimientoHasta: WideString read Get_FechaVencimientoHasta write Set_FechaVencimientoHasta;
    property remito: WideString read Get_remito write Set_remito;
    property factura: WideString read Get_factura write Set_factura;
    property idProvincia: Double read Get_idProvincia write Set_idProvincia;
    property idEstadoTransaccion: Double read Get_idEstadoTransaccion write Set_idEstadoTransaccion;
    property pagina: Double read Get_pagina write Set_pagina;
    property offset: Double read Get_offset write Set_offset;
    property orderBy: WideString read Get_orderBy write Set_orderBy;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TgetTransaccionesWSParametrosProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TgetTransaccionesWSParametros
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TgetTransaccionesWSParametrosProperties = class(TPersistent)
  private
    FServer:    TgetTransaccionesWSParametros;
    function    GetDefaultInterface: IgetTransaccionesWSParametros;
    constructor Create(AServer: TgetTransaccionesWSParametros);
  protected
    function Get_IdTransaccion: Double;
    procedure Set_IdTransaccion(Value: Double);
    function Get_glnAgenteOrigen: WideString;
    procedure Set_glnAgenteOrigen(const Value: WideString);
    function Get_glnAgenteDestino: WideString;
    procedure Set_glnAgenteDestino(const Value: WideString);
    function Get_glnAgenteInformador: WideString;
    procedure Set_glnAgenteInformador(const Value: WideString);
    function Get_gtin: WideString;
    procedure Set_gtin(const Value: WideString);
    function Get_lote: WideString;
    procedure Set_lote(const Value: WideString);
    function Get_serie: WideString;
    procedure Set_serie(const Value: WideString);
    function Get_IdEvento: Double;
    procedure Set_IdEvento(Value: Double);
    function Get_FechaOperacionDesde: WideString;
    procedure Set_FechaOperacionDesde(const Value: WideString);
    function Get_FechaOperacionHasta: WideString;
    procedure Set_FechaOperacionHasta(const Value: WideString);
    function Get_FechaTransaccionDesde: WideString;
    procedure Set_FechaTransaccionDesde(const Value: WideString);
    function Get_FechaTransaccionHasta: WideString;
    procedure Set_FechaTransaccionHasta(const Value: WideString);
    function Get_FechaVencimientoDesde: WideString;
    procedure Set_FechaVencimientoDesde(const Value: WideString);
    function Get_FechaVencimientoHasta: WideString;
    procedure Set_FechaVencimientoHasta(const Value: WideString);
    function Get_remito: WideString;
    procedure Set_remito(const Value: WideString);
    function Get_factura: WideString;
    procedure Set_factura(const Value: WideString);
    function Get_idProvincia: Double;
    procedure Set_idProvincia(Value: Double);
    function Get_idEstadoTransaccion: Double;
    procedure Set_idEstadoTransaccion(Value: Double);
    function Get_pagina: Double;
    procedure Set_pagina(Value: Double);
    function Get_offset: Double;
    procedure Set_offset(Value: Double);
    function Get_orderBy: WideString;
    procedure Set_orderBy(const Value: WideString);
  public
    property DefaultInterface: IgetTransaccionesWSParametros read GetDefaultInterface;
  published
    property IdTransaccion: Double read Get_IdTransaccion write Set_IdTransaccion;
    property glnAgenteOrigen: WideString read Get_glnAgenteOrigen write Set_glnAgenteOrigen;
    property glnAgenteDestino: WideString read Get_glnAgenteDestino write Set_glnAgenteDestino;
    property glnAgenteInformador: WideString read Get_glnAgenteInformador write Set_glnAgenteInformador;
    property gtin: WideString read Get_gtin write Set_gtin;
    property lote: WideString read Get_lote write Set_lote;
    property serie: WideString read Get_serie write Set_serie;
    property IdEvento: Double read Get_IdEvento write Set_IdEvento;
    property FechaOperacionDesde: WideString read Get_FechaOperacionDesde write Set_FechaOperacionDesde;
    property FechaOperacionHasta: WideString read Get_FechaOperacionHasta write Set_FechaOperacionHasta;
    property FechaTransaccionDesde: WideString read Get_FechaTransaccionDesde write Set_FechaTransaccionDesde;
    property FechaTransaccionHasta: WideString read Get_FechaTransaccionHasta write Set_FechaTransaccionHasta;
    property FechaVencimientoDesde: WideString read Get_FechaVencimientoDesde write Set_FechaVencimientoDesde;
    property FechaVencimientoHasta: WideString read Get_FechaVencimientoHasta write Set_FechaVencimientoHasta;
    property remito: WideString read Get_remito write Set_remito;
    property factura: WideString read Get_factura write Set_factura;
    property idProvincia: Double read Get_idProvincia write Set_idProvincia;
    property idEstadoTransaccion: Double read Get_idEstadoTransaccion write Set_idEstadoTransaccion;
    property pagina: Double read Get_pagina write Set_pagina;
    property offset: Double read Get_offset write Set_offset;
    property orderBy: WideString read Get_orderBy write Set_orderBy;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CogetTransaccionesWSRespuesta provides a Create and CreateRemote method to          
// create instances of the default interface IgetTransaccionesWSRespuesta exposed by              
// the CoClass getTransaccionesWSRespuesta. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CogetTransaccionesWSRespuesta = class
    class function Create: IgetTransaccionesWSRespuesta;
    class function CreateRemote(const MachineName: string): IgetTransaccionesWSRespuesta;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TgetTransaccionesWSRespuesta
// Help String      : 
// Default Interface: IgetTransaccionesWSRespuesta
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TgetTransaccionesWSRespuestaProperties= class;
{$ENDIF}
  TgetTransaccionesWSRespuesta = class(TOleServer)
  private
    FIntf:        IgetTransaccionesWSRespuesta;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TgetTransaccionesWSRespuestaProperties;
    function      GetServerProperties: TgetTransaccionesWSRespuestaProperties;
{$ENDIF}
    function      GetDefaultInterface: IgetTransaccionesWSRespuesta;
  protected
    procedure InitServerData; override;
    function Get_indice: Integer;
    procedure Set_indice(Value: Integer);
    function Get_count: Integer;
    function Get_codDiagnostico: WideString;
    function Get_descDiagnostico: WideString;
    function Get_descEstado: WideString;
    function Get_descMotivoDevolucion: WideString;
    function Get_descProducto: WideString;
    function Get_glnDestino: WideString;
    function Get_glnOrigen: WideString;
    function Get_gtin: WideString;
    function Get_idDetalleEvento: Double;
    function Get_IdEstado: Double;
    function Get_idMotivoDevolucion: Double;
    function Get_IdTransaccion: WideString;
    function Get_idTransaccionGlobal: WideString;
    function Get_lote: WideString;
    function Get_medicoCuit: WideString;
    function Get_medicoNombres: WideString;
    function Get_Nombre: WideString;
    function Get_NroFactura: WideString;
    function Get_NroRemito: WideString;
    function Get_nroSerial: WideString;
    function Get_otroMotivoDevolucion: WideString;
    function Get_pacienteApellido: WideString;
    function Get_pacienteCalle: WideString;
    function Get_pacienteCodPostal: WideString;
    function Get_pacienteCodigoObraSocial: WideString;
    function Get_pacienteCodigoTipoDocumento: WideString;
    function Get_pacienteDepartamento: WideString;
    function Get_pacienteDescObraSocial: WideString;
    function Get_pacienteDescTipoDocumento: WideString;
    function Get_pacienteFechaNacimiento: WideString;
    function Get_pacienteLocalidad: WideString;
    function Get_pacienteNombres: WideString;
    function Get_pacienteNroAfiliado: WideString;
    function Get_pacienteNroCalle: WideString;
    function Get_pacienteNroDocumento: WideString;
    function Get_pacientePiso: WideString;
    function Get_pacienteProvincia: WideString;
    function Get_pacienteSexo: WideString;
    function Get_pacienteTelefono: WideString;
    function Get_razonSocialDestino: WideString;
    function Get_razonSocialInformador: WideString;
    function Get_razonSocialOrigen: WideString;
    function Get_transacProvincia: WideString;
    function Get_vencimiento: WideString;
    function Get_dEvento: WideString;
    function Get_fEvento: WideString;
    function Get_fTransaccion: WideString;
    function Get_hEvento: WideString;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IgetTransaccionesWSRespuesta);
    procedure Disconnect; override;
    property DefaultInterface: IgetTransaccionesWSRespuesta read GetDefaultInterface;
    property count: Integer read Get_count;
    property codDiagnostico: WideString read Get_codDiagnostico;
    property descDiagnostico: WideString read Get_descDiagnostico;
    property descEstado: WideString read Get_descEstado;
    property descMotivoDevolucion: WideString read Get_descMotivoDevolucion;
    property descProducto: WideString read Get_descProducto;
    property glnDestino: WideString read Get_glnDestino;
    property glnOrigen: WideString read Get_glnOrigen;
    property gtin: WideString read Get_gtin;
    property idDetalleEvento: Double read Get_idDetalleEvento;
    property IdEstado: Double read Get_IdEstado;
    property idMotivoDevolucion: Double read Get_idMotivoDevolucion;
    property IdTransaccion: WideString read Get_IdTransaccion;
    property idTransaccionGlobal: WideString read Get_idTransaccionGlobal;
    property lote: WideString read Get_lote;
    property medicoCuit: WideString read Get_medicoCuit;
    property medicoNombres: WideString read Get_medicoNombres;
    property Nombre: WideString read Get_Nombre;
    property NroFactura: WideString read Get_NroFactura;
    property NroRemito: WideString read Get_NroRemito;
    property nroSerial: WideString read Get_nroSerial;
    property otroMotivoDevolucion: WideString read Get_otroMotivoDevolucion;
    property pacienteApellido: WideString read Get_pacienteApellido;
    property pacienteCalle: WideString read Get_pacienteCalle;
    property pacienteCodPostal: WideString read Get_pacienteCodPostal;
    property pacienteCodigoObraSocial: WideString read Get_pacienteCodigoObraSocial;
    property pacienteCodigoTipoDocumento: WideString read Get_pacienteCodigoTipoDocumento;
    property pacienteDepartamento: WideString read Get_pacienteDepartamento;
    property pacienteDescObraSocial: WideString read Get_pacienteDescObraSocial;
    property pacienteDescTipoDocumento: WideString read Get_pacienteDescTipoDocumento;
    property pacienteFechaNacimiento: WideString read Get_pacienteFechaNacimiento;
    property pacienteLocalidad: WideString read Get_pacienteLocalidad;
    property pacienteNombres: WideString read Get_pacienteNombres;
    property pacienteNroAfiliado: WideString read Get_pacienteNroAfiliado;
    property pacienteNroCalle: WideString read Get_pacienteNroCalle;
    property pacienteNroDocumento: WideString read Get_pacienteNroDocumento;
    property pacientePiso: WideString read Get_pacientePiso;
    property pacienteProvincia: WideString read Get_pacienteProvincia;
    property pacienteSexo: WideString read Get_pacienteSexo;
    property pacienteTelefono: WideString read Get_pacienteTelefono;
    property razonSocialDestino: WideString read Get_razonSocialDestino;
    property razonSocialInformador: WideString read Get_razonSocialInformador;
    property razonSocialOrigen: WideString read Get_razonSocialOrigen;
    property transacProvincia: WideString read Get_transacProvincia;
    property vencimiento: WideString read Get_vencimiento;
    property dEvento: WideString read Get_dEvento;
    property fEvento: WideString read Get_fEvento;
    property fTransaccion: WideString read Get_fTransaccion;
    property hEvento: WideString read Get_hEvento;
    property indice: Integer read Get_indice write Set_indice;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TgetTransaccionesWSRespuestaProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TgetTransaccionesWSRespuesta
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TgetTransaccionesWSRespuestaProperties = class(TPersistent)
  private
    FServer:    TgetTransaccionesWSRespuesta;
    function    GetDefaultInterface: IgetTransaccionesWSRespuesta;
    constructor Create(AServer: TgetTransaccionesWSRespuesta);
  protected
    function Get_indice: Integer;
    procedure Set_indice(Value: Integer);
    function Get_count: Integer;
    function Get_codDiagnostico: WideString;
    function Get_descDiagnostico: WideString;
    function Get_descEstado: WideString;
    function Get_descMotivoDevolucion: WideString;
    function Get_descProducto: WideString;
    function Get_glnDestino: WideString;
    function Get_glnOrigen: WideString;
    function Get_gtin: WideString;
    function Get_idDetalleEvento: Double;
    function Get_IdEstado: Double;
    function Get_idMotivoDevolucion: Double;
    function Get_IdTransaccion: WideString;
    function Get_idTransaccionGlobal: WideString;
    function Get_lote: WideString;
    function Get_medicoCuit: WideString;
    function Get_medicoNombres: WideString;
    function Get_Nombre: WideString;
    function Get_NroFactura: WideString;
    function Get_NroRemito: WideString;
    function Get_nroSerial: WideString;
    function Get_otroMotivoDevolucion: WideString;
    function Get_pacienteApellido: WideString;
    function Get_pacienteCalle: WideString;
    function Get_pacienteCodPostal: WideString;
    function Get_pacienteCodigoObraSocial: WideString;
    function Get_pacienteCodigoTipoDocumento: WideString;
    function Get_pacienteDepartamento: WideString;
    function Get_pacienteDescObraSocial: WideString;
    function Get_pacienteDescTipoDocumento: WideString;
    function Get_pacienteFechaNacimiento: WideString;
    function Get_pacienteLocalidad: WideString;
    function Get_pacienteNombres: WideString;
    function Get_pacienteNroAfiliado: WideString;
    function Get_pacienteNroCalle: WideString;
    function Get_pacienteNroDocumento: WideString;
    function Get_pacientePiso: WideString;
    function Get_pacienteProvincia: WideString;
    function Get_pacienteSexo: WideString;
    function Get_pacienteTelefono: WideString;
    function Get_razonSocialDestino: WideString;
    function Get_razonSocialInformador: WideString;
    function Get_razonSocialOrigen: WideString;
    function Get_transacProvincia: WideString;
    function Get_vencimiento: WideString;
    function Get_dEvento: WideString;
    function Get_fEvento: WideString;
    function Get_fTransaccion: WideString;
    function Get_hEvento: WideString;
  public
    property DefaultInterface: IgetTransaccionesWSRespuesta read GetDefaultInterface;
  published
    property indice: Integer read Get_indice write Set_indice;
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

class function CoTrazaMed.Create: ITrazaMed;
begin
  Result := CreateComObject(CLASS_TrazaMed) as ITrazaMed;
end;

class function CoTrazaMed.CreateRemote(const MachineName: string): ITrazaMed;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_TrazaMed) as ITrazaMed;
end;

procedure TTrazaMed.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{88050DA1-B1C1-4FB6-ACAD-4A84D0052946}';
    IntfIID:   '{C2126B36-6E99-4E14-8A64-062DF54BC99B}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTrazaMed.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ITrazaMed;
  end;
end;

procedure TTrazaMed.ConnectTo(svrIntf: ITrazaMed);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTrazaMed.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTrazaMed.GetDefaultInterface: ITrazaMed;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTrazaMed.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTrazaMedProperties.Create(Self);
{$ENDIF}
end;

destructor TTrazaMed.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTrazaMed.GetServerProperties: TTrazaMedProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TTrazaMed.Get_XMLRequest: WideString;
begin
    Result := DefaultInterface.XMLRequest;
end;

function TTrazaMed.Get_XMLResponse: WideString;
begin
    Result := DefaultInterface.XMLResponse;
end;

function TTrazaMed.Get_Errores: WideString;
begin
    Result := DefaultInterface.Errores;
end;

function TTrazaMed.Get_usuario: WideString;
begin
    Result := DefaultInterface.usuario;
end;

procedure TTrazaMed.Set_usuario(const Value: WideString);
  { Warning: The property usuario has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.usuario := Value;
end;

function TTrazaMed.Get_password: WideString;
begin
    Result := DefaultInterface.password;
end;

procedure TTrazaMed.Set_password(const Value: WideString);
  { Warning: The property password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.password := Value;
end;

function TTrazaMed.Get_id_transaccion: WideString;
begin
    Result := DefaultInterface.id_transaccion;
end;

function TTrazaMed.Get_modo_produccion: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.modo_produccion;
end;

procedure TTrazaMed.Set_modo_produccion(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_modo_produccion(Value);
end;

procedure TTrazaMed.Reset;
begin
  DefaultInterface.Reset;
end;

function TTrazaMed.sendCancelacTransacc(id_transaccion: Integer): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.sendCancelacTransacc(id_transaccion);
end;

procedure TTrazaMed.AgregaMedicamento(const medicamentoDTO: ImedicamentosDTO);
begin
  DefaultInterface.AgregaMedicamento(medicamentoDTO);
end;

function TTrazaMed.SendMedicamentos: OLE_CANCELBOOL;
begin
  Result := DefaultInterface.SendMedicamentos;
end;

procedure TTrazaMed.AgregaMedicamentoDHSerie(const medicamento: ImedicamentosDTOdhSerie);
begin
  DefaultInterface.AgregaMedicamentoDHSerie(medicamento);
end;

function TTrazaMed.sendMedicamentosDHSerie: OLE_CANCELBOOL;
begin
  Result := DefaultInterface.sendMedicamentosDHSerie;
end;

procedure TTrazaMed.LogTransaction(const RequestFileName: WideString; 
                                   const ResponseFilename: WideString);
begin
  DefaultInterface.LogTransaction(RequestFileName, ResponseFilename);
end;

function TTrazaMed.SendConfirmaTransacc(const f_operacion: WideString; 
                                        const p_ids_transac: WideString): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.SendConfirmaTransacc(f_operacion, p_ids_transac);
end;

function TTrazaMed.SendCancelaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.SendCancelaTransacc(id_transaccion);
end;

function TTrazaMed.SendAlertaTransacc(const id_transaccion: WideString): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.SendAlertaTransacc(id_transaccion);
end;

function TTrazaMed.GetTransaccionesNoConfirmadas(IdTransaccion: Double; 
                                                 const GNLAgenteInformador: WideString; 
                                                 const GNLAgenteOrigen: WideString; 
                                                 const GNLAgenteDestino: WideString; 
                                                 const GTINMedicamento: WideString; 
                                                 IdEvento: Integer; 
                                                 const FechaTransaccionDesde: WideString; 
                                                 const FechaTransaccionHasta: WideString; 
                                                 const FechaOperacionDesde: WideString; 
                                                 const FechaOperacionHasta: WideString; 
                                                 const FechaVencimientoDesde: WideString; 
                                                 const FechaVencimientoHasta: WideString; 
                                                 const NroRemito: WideString; 
                                                 const NroFactura: WideString; IdEstado: Integer; 
                                                 const NroLote: WideString; 
                                                 const NroSerie: WideString; NroPagina: Integer; 
                                                 CantRegPagina: Integer; 
                                                 const transaccionesWSResult: ITransaccionPlainWS): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.GetTransaccionesNoConfirmadas(IdTransaccion, GNLAgenteInformador, 
                                                           GNLAgenteOrigen, GNLAgenteDestino, 
                                                           GTINMedicamento, IdEvento, 
                                                           FechaTransaccionDesde, 
                                                           FechaTransaccionHasta, 
                                                           FechaOperacionDesde, 
                                                           FechaOperacionHasta, 
                                                           FechaVencimientoDesde, 
                                                           FechaVencimientoHasta, NroRemito, 
                                                           NroFactura, IdEstado, NroLote, NroSerie, 
                                                           NroPagina, CantRegPagina, 
                                                           transaccionesWSResult);
end;

function TTrazaMed.getConsultaStock(const GTINMedicamento: WideString; 
                                    const GLN_CUFEAgente: WideString; const Nombre: WideString; 
                                    Cantidad: Integer; const Presentacion: WideString; 
                                    const NroLote: WideString; const NroSerie: WideString; 
                                    NroPagina: Integer; CantidadRegistros: Integer; 
                                    const getConsultaStockResponse: IConsultaStockWSResult): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.getConsultaStock(GTINMedicamento, GLN_CUFEAgente, Nombre, Cantidad, 
                                              Presentacion, NroLote, NroSerie, NroPagina, 
                                              CantidadRegistros, getConsultaStockResponse);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTrazaMedProperties.Create(AServer: TTrazaMed);
begin
  inherited Create;
  FServer := AServer;
end;

function TTrazaMedProperties.GetDefaultInterface: ITrazaMed;
begin
  Result := FServer.DefaultInterface;
end;

function TTrazaMedProperties.Get_XMLRequest: WideString;
begin
    Result := DefaultInterface.XMLRequest;
end;

function TTrazaMedProperties.Get_XMLResponse: WideString;
begin
    Result := DefaultInterface.XMLResponse;
end;

function TTrazaMedProperties.Get_Errores: WideString;
begin
    Result := DefaultInterface.Errores;
end;

function TTrazaMedProperties.Get_usuario: WideString;
begin
    Result := DefaultInterface.usuario;
end;

procedure TTrazaMedProperties.Set_usuario(const Value: WideString);
  { Warning: The property usuario has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.usuario := Value;
end;

function TTrazaMedProperties.Get_password: WideString;
begin
    Result := DefaultInterface.password;
end;

procedure TTrazaMedProperties.Set_password(const Value: WideString);
  { Warning: The property password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.password := Value;
end;

function TTrazaMedProperties.Get_id_transaccion: WideString;
begin
    Result := DefaultInterface.id_transaccion;
end;

function TTrazaMedProperties.Get_modo_produccion: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.modo_produccion;
end;

procedure TTrazaMedProperties.Set_modo_produccion(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_modo_produccion(Value);
end;

{$ENDIF}

class function ComedicamentosDTO.Create: ImedicamentosDTO;
begin
  Result := CreateComObject(CLASS_medicamentosDTO) as ImedicamentosDTO;
end;

class function ComedicamentosDTO.CreateRemote(const MachineName: string): ImedicamentosDTO;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_medicamentosDTO) as ImedicamentosDTO;
end;

procedure TmedicamentosDTO.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{7F43C0C1-B342-409B-B703-54BF1D0C1D58}';
    IntfIID:   '{42FDFC37-FD0D-4D1F-927F-B0C57A6AF4E9}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TmedicamentosDTO.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ImedicamentosDTO;
  end;
end;

procedure TmedicamentosDTO.ConnectTo(svrIntf: ImedicamentosDTO);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TmedicamentosDTO.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TmedicamentosDTO.GetDefaultInterface: ImedicamentosDTO;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TmedicamentosDTO.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TmedicamentosDTOProperties.Create(Self);
{$ENDIF}
end;

destructor TmedicamentosDTO.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TmedicamentosDTO.GetServerProperties: TmedicamentosDTOProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TmedicamentosDTO.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosDTO.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosDTO.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosDTO.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosDTO.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosDTO.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosDTO.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosDTO.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosDTO.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosDTO.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosDTO.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosDTO.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosDTO.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosDTO.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosDTO.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosDTO.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosDTO.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosDTO.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosDTO.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosDTO.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosDTO.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosDTO.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosDTO.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

procedure TmedicamentosDTO.Set_numero_serial(const Value: WideString);
  { Warning: The property numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero_serial := Value;
end;

function TmedicamentosDTO.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosDTO.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosDTO.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosDTO.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosDTO.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosDTO.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosDTO.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosDTO.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosDTO.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosDTO.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosDTO.Get_tipo_documento: Integer;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosDTO.Set_tipo_documento(Value: Integer);
begin
  DefaultInterface.Set_tipo_documento(Value);
end;

function TmedicamentosDTO.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosDTO.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosDTO.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosDTO.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosDTO.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosDTO.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosDTO.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosDTO.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosDTO.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosDTO.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosDTO.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosDTO.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosDTO.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosDTO.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosDTO.Get_id_obra_social: WideString;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosDTO.Set_id_obra_social(const Value: WideString);
  { Warning: The property id_obra_social has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.id_obra_social := Value;
end;

function TmedicamentosDTO.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosDTO.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosDTO.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosDTO.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosDTO.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosDTO.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosDTO.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosDTO.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosDTO.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosDTO.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosDTO.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosDTO.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosDTO.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosDTO.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TmedicamentosDTOProperties.Create(AServer: TmedicamentosDTO);
begin
  inherited Create;
  FServer := AServer;
end;

function TmedicamentosDTOProperties.GetDefaultInterface: ImedicamentosDTO;
begin
  Result := FServer.DefaultInterface;
end;

function TmedicamentosDTOProperties.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosDTOProperties.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosDTOProperties.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosDTOProperties.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosDTOProperties.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosDTOProperties.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosDTOProperties.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosDTOProperties.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosDTOProperties.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosDTOProperties.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosDTOProperties.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosDTOProperties.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosDTOProperties.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosDTOProperties.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosDTOProperties.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosDTOProperties.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosDTOProperties.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosDTOProperties.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosDTOProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosDTOProperties.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosDTOProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosDTOProperties.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosDTOProperties.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

procedure TmedicamentosDTOProperties.Set_numero_serial(const Value: WideString);
  { Warning: The property numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero_serial := Value;
end;

function TmedicamentosDTOProperties.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosDTOProperties.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosDTOProperties.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosDTOProperties.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosDTOProperties.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosDTOProperties.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosDTOProperties.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosDTOProperties.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosDTOProperties.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosDTOProperties.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosDTOProperties.Get_tipo_documento: Integer;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosDTOProperties.Set_tipo_documento(Value: Integer);
begin
  DefaultInterface.Set_tipo_documento(Value);
end;

function TmedicamentosDTOProperties.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosDTOProperties.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosDTOProperties.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosDTOProperties.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosDTOProperties.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosDTOProperties.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosDTOProperties.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosDTOProperties.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosDTOProperties.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosDTOProperties.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosDTOProperties.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosDTOProperties.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosDTOProperties.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosDTOProperties.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosDTOProperties.Get_id_obra_social: WideString;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosDTOProperties.Set_id_obra_social(const Value: WideString);
  { Warning: The property id_obra_social has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.id_obra_social := Value;
end;

function TmedicamentosDTOProperties.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosDTOProperties.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosDTOProperties.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosDTOProperties.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosDTOProperties.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosDTOProperties.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosDTOProperties.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosDTOProperties.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosDTOProperties.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosDTOProperties.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosDTOProperties.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosDTOProperties.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosDTOProperties.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosDTOProperties.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

{$ENDIF}

class function ComedicamentosDTOdhSerie.Create: ImedicamentosDTOdhSerie;
begin
  Result := CreateComObject(CLASS_medicamentosDTOdhSerie) as ImedicamentosDTOdhSerie;
end;

class function ComedicamentosDTOdhSerie.CreateRemote(const MachineName: string): ImedicamentosDTOdhSerie;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_medicamentosDTOdhSerie) as ImedicamentosDTOdhSerie;
end;

procedure TmedicamentosDTOdhSerie.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{7EF7EBC7-68D0-4127-977D-8AC33A2354BF}';
    IntfIID:   '{2286A429-E882-4863-BB0A-601576F5726A}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TmedicamentosDTOdhSerie.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ImedicamentosDTOdhSerie;
  end;
end;

procedure TmedicamentosDTOdhSerie.ConnectTo(svrIntf: ImedicamentosDTOdhSerie);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TmedicamentosDTOdhSerie.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TmedicamentosDTOdhSerie.GetDefaultInterface: ImedicamentosDTOdhSerie;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TmedicamentosDTOdhSerie.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TmedicamentosDTOdhSerieProperties.Create(Self);
{$ENDIF}
end;

destructor TmedicamentosDTOdhSerie.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TmedicamentosDTOdhSerie.GetServerProperties: TmedicamentosDTOdhSerieProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TmedicamentosDTOdhSerie.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosDTOdhSerie.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosDTOdhSerie.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosDTOdhSerie.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosDTOdhSerie.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosDTOdhSerie.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosDTOdhSerie.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosDTOdhSerie.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosDTOdhSerie.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosDTOdhSerie.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosDTOdhSerie.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosDTOdhSerie.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosDTOdhSerie.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosDTOdhSerie.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosDTOdhSerie.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosDTOdhSerie.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosDTOdhSerie.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosDTOdhSerie.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosDTOdhSerie.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosDTOdhSerie.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosDTOdhSerie.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosDTOdhSerie.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosDTOdhSerie.Get_desde_numero_serial: WideString;
begin
    Result := DefaultInterface.desde_numero_serial;
end;

procedure TmedicamentosDTOdhSerie.Set_desde_numero_serial(const Value: WideString);
  { Warning: The property desde_numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.desde_numero_serial := Value;
end;

function TmedicamentosDTOdhSerie.Get_hasta_numero_serial: WideString;
begin
    Result := DefaultInterface.hasta_numero_serial;
end;

procedure TmedicamentosDTOdhSerie.Set_hasta_numero_serial(const Value: WideString);
  { Warning: The property hasta_numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.hasta_numero_serial := Value;
end;

function TmedicamentosDTOdhSerie.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosDTOdhSerie.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosDTOdhSerie.Get_id_obra_social: Integer;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosDTOdhSerie.Set_id_obra_social(Value: Integer);
begin
  DefaultInterface.Set_id_obra_social(Value);
end;

function TmedicamentosDTOdhSerie.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosDTOdhSerie.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosDTOdhSerie.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosDTOdhSerie.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosDTOdhSerie.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosDTOdhSerie.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosDTOdhSerie.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosDTOdhSerie.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosDTOdhSerie.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosDTOdhSerie.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosDTOdhSerie.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosDTOdhSerie.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosDTOdhSerie.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosDTOdhSerie.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosDTOdhSerie.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosDTOdhSerie.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosDTOdhSerie.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosDTOdhSerie.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosDTOdhSerie.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosDTOdhSerie.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosDTOdhSerie.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosDTOdhSerie.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosDTOdhSerie.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosDTOdhSerie.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosDTOdhSerie.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosDTOdhSerie.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosDTOdhSerie.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosDTOdhSerie.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

function TmedicamentosDTOdhSerie.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosDTOdhSerie.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosDTOdhSerie.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosDTOdhSerie.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosDTOdhSerie.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosDTOdhSerie.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosDTOdhSerie.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosDTOdhSerie.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosDTOdhSerie.Get_tipo_documento: WideString;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosDTOdhSerie.Set_tipo_documento(const Value: WideString);
  { Warning: The property tipo_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.tipo_documento := Value;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TmedicamentosDTOdhSerieProperties.Create(AServer: TmedicamentosDTOdhSerie);
begin
  inherited Create;
  FServer := AServer;
end;

function TmedicamentosDTOdhSerieProperties.GetDefaultInterface: ImedicamentosDTOdhSerie;
begin
  Result := FServer.DefaultInterface;
end;

function TmedicamentosDTOdhSerieProperties.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_desde_numero_serial: WideString;
begin
    Result := DefaultInterface.desde_numero_serial;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_desde_numero_serial(const Value: WideString);
  { Warning: The property desde_numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.desde_numero_serial := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_hasta_numero_serial: WideString;
begin
    Result := DefaultInterface.hasta_numero_serial;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_hasta_numero_serial(const Value: WideString);
  { Warning: The property hasta_numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.hasta_numero_serial := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosDTOdhSerieProperties.Get_id_obra_social: Integer;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_id_obra_social(Value: Integer);
begin
  DefaultInterface.Set_id_obra_social(Value);
end;

function TmedicamentosDTOdhSerieProperties.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosDTOdhSerieProperties.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosDTOdhSerieProperties.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosDTOdhSerieProperties.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosDTOdhSerieProperties.Get_tipo_documento: WideString;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosDTOdhSerieProperties.Set_tipo_documento(const Value: WideString);
  { Warning: The property tipo_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.tipo_documento := Value;
end;

{$ENDIF}

class function ComedicamentosFraccion.Create: ImedicamentosFraccion;
begin
  Result := CreateComObject(CLASS_medicamentosFraccion) as ImedicamentosFraccion;
end;

class function ComedicamentosFraccion.CreateRemote(const MachineName: string): ImedicamentosFraccion;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_medicamentosFraccion) as ImedicamentosFraccion;
end;

procedure TmedicamentosFraccion.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{812028E5-5997-43FD-9505-89CB203364A6}';
    IntfIID:   '{5822CEE2-47C1-434C-85C5-EFD5991D9608}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TmedicamentosFraccion.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ImedicamentosFraccion;
  end;
end;

procedure TmedicamentosFraccion.ConnectTo(svrIntf: ImedicamentosFraccion);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TmedicamentosFraccion.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TmedicamentosFraccion.GetDefaultInterface: ImedicamentosFraccion;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TmedicamentosFraccion.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TmedicamentosFraccionProperties.Create(Self);
{$ENDIF}
end;

destructor TmedicamentosFraccion.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TmedicamentosFraccion.GetServerProperties: TmedicamentosFraccionProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TmedicamentosFraccion.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosFraccion.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosFraccion.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosFraccion.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosFraccion.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosFraccion.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosFraccion.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosFraccion.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosFraccion.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosFraccion.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosFraccion.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosFraccion.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosFraccion.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosFraccion.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosFraccion.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosFraccion.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosFraccion.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosFraccion.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosFraccion.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosFraccion.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosFraccion.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosFraccion.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosFraccion.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

procedure TmedicamentosFraccion.Set_numero_serial(const Value: WideString);
  { Warning: The property numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero_serial := Value;
end;

function TmedicamentosFraccion.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosFraccion.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosFraccion.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosFraccion.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosFraccion.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosFraccion.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosFraccion.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosFraccion.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosFraccion.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosFraccion.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosFraccion.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosFraccion.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosFraccion.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosFraccion.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosFraccion.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosFraccion.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosFraccion.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosFraccion.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosFraccion.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosFraccion.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosFraccion.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosFraccion.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosFraccion.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosFraccion.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosFraccion.Get_id_obra_social: Integer;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosFraccion.Set_id_obra_social(Value: Integer);
begin
  DefaultInterface.Set_id_obra_social(Value);
end;

function TmedicamentosFraccion.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosFraccion.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosFraccion.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosFraccion.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosFraccion.Get_Cantidad: Integer;
begin
    Result := DefaultInterface.Cantidad;
end;

procedure TmedicamentosFraccion.Set_Cantidad(Value: Integer);
begin
  DefaultInterface.Set_Cantidad(Value);
end;

function TmedicamentosFraccion.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosFraccion.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosFraccion.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosFraccion.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosFraccion.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosFraccion.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosFraccion.Get_tipo_documento: Integer;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosFraccion.Set_tipo_documento(Value: Integer);
begin
  DefaultInterface.Set_tipo_documento(Value);
end;

function TmedicamentosFraccion.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosFraccion.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosFraccion.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosFraccion.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TmedicamentosFraccionProperties.Create(AServer: TmedicamentosFraccion);
begin
  inherited Create;
  FServer := AServer;
end;

function TmedicamentosFraccionProperties.GetDefaultInterface: ImedicamentosFraccion;
begin
  Result := FServer.DefaultInterface;
end;

function TmedicamentosFraccionProperties.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

procedure TmedicamentosFraccionProperties.Set_f_evento(const Value: WideString);
  { Warning: The property f_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.f_evento := Value;
end;

function TmedicamentosFraccionProperties.Get_h_evento: WideString;
begin
    Result := DefaultInterface.h_evento;
end;

procedure TmedicamentosFraccionProperties.Set_h_evento(const Value: WideString);
  { Warning: The property h_evento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.h_evento := Value;
end;

function TmedicamentosFraccionProperties.Get_gln_origen: WideString;
begin
    Result := DefaultInterface.gln_origen;
end;

procedure TmedicamentosFraccionProperties.Set_gln_origen(const Value: WideString);
  { Warning: The property gln_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_origen := Value;
end;

function TmedicamentosFraccionProperties.Get_cuit_origen: WideString;
begin
    Result := DefaultInterface.cuit_origen;
end;

procedure TmedicamentosFraccionProperties.Set_cuit_origen(const Value: WideString);
  { Warning: The property cuit_origen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_origen := Value;
end;

function TmedicamentosFraccionProperties.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

procedure TmedicamentosFraccionProperties.Set_gln_destino(const Value: WideString);
  { Warning: The property gln_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gln_destino := Value;
end;

function TmedicamentosFraccionProperties.Get_cuit_destino: WideString;
begin
    Result := DefaultInterface.cuit_destino;
end;

procedure TmedicamentosFraccionProperties.Set_cuit_destino(const Value: WideString);
  { Warning: The property cuit_destino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.cuit_destino := Value;
end;

function TmedicamentosFraccionProperties.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

procedure TmedicamentosFraccionProperties.Set_n_remito(const Value: WideString);
  { Warning: The property n_remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_remito := Value;
end;

function TmedicamentosFraccionProperties.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

procedure TmedicamentosFraccionProperties.Set_n_factura(const Value: WideString);
  { Warning: The property n_factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_factura := Value;
end;

function TmedicamentosFraccionProperties.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

procedure TmedicamentosFraccionProperties.Set_vencimiento(const Value: WideString);
  { Warning: The property vencimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.vencimiento := Value;
end;

function TmedicamentosFraccionProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TmedicamentosFraccionProperties.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TmedicamentosFraccionProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TmedicamentosFraccionProperties.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TmedicamentosFraccionProperties.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

procedure TmedicamentosFraccionProperties.Set_numero_serial(const Value: WideString);
  { Warning: The property numero_serial has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero_serial := Value;
end;

function TmedicamentosFraccionProperties.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

procedure TmedicamentosFraccionProperties.Set_id_evento(Value: Integer);
begin
  DefaultInterface.Set_id_evento(Value);
end;

function TmedicamentosFraccionProperties.Get_apellido: WideString;
begin
    Result := DefaultInterface.apellido;
end;

procedure TmedicamentosFraccionProperties.Set_apellido(const Value: WideString);
  { Warning: The property apellido has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.apellido := Value;
end;

function TmedicamentosFraccionProperties.Get_nombres: WideString;
begin
    Result := DefaultInterface.nombres;
end;

procedure TmedicamentosFraccionProperties.Set_nombres(const Value: WideString);
  { Warning: The property nombres has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nombres := Value;
end;

function TmedicamentosFraccionProperties.Get_n_documento: WideString;
begin
    Result := DefaultInterface.n_documento;
end;

procedure TmedicamentosFraccionProperties.Set_n_documento(const Value: WideString);
  { Warning: The property n_documento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_documento := Value;
end;

function TmedicamentosFraccionProperties.Get_sexo: WideString;
begin
    Result := DefaultInterface.sexo;
end;

procedure TmedicamentosFraccionProperties.Set_sexo(const Value: WideString);
  { Warning: The property sexo has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.sexo := Value;
end;

function TmedicamentosFraccionProperties.Get_direccion: WideString;
begin
    Result := DefaultInterface.direccion;
end;

procedure TmedicamentosFraccionProperties.Set_direccion(const Value: WideString);
  { Warning: The property direccion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.direccion := Value;
end;

function TmedicamentosFraccionProperties.Get_localidad: WideString;
begin
    Result := DefaultInterface.localidad;
end;

procedure TmedicamentosFraccionProperties.Set_localidad(const Value: WideString);
  { Warning: The property localidad has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.localidad := Value;
end;

function TmedicamentosFraccionProperties.Get_numero: WideString;
begin
    Result := DefaultInterface.numero;
end;

procedure TmedicamentosFraccionProperties.Set_numero(const Value: WideString);
  { Warning: The property numero has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.numero := Value;
end;

function TmedicamentosFraccionProperties.Get_piso: WideString;
begin
    Result := DefaultInterface.piso;
end;

procedure TmedicamentosFraccionProperties.Set_piso(const Value: WideString);
  { Warning: The property piso has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.piso := Value;
end;

function TmedicamentosFraccionProperties.Get_dpto: WideString;
begin
    Result := DefaultInterface.dpto;
end;

procedure TmedicamentosFraccionProperties.Set_dpto(const Value: WideString);
  { Warning: The property dpto has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.dpto := Value;
end;

function TmedicamentosFraccionProperties.Get_n_postal: WideString;
begin
    Result := DefaultInterface.n_postal;
end;

procedure TmedicamentosFraccionProperties.Set_n_postal(const Value: WideString);
  { Warning: The property n_postal has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.n_postal := Value;
end;

function TmedicamentosFraccionProperties.Get_telefono: WideString;
begin
    Result := DefaultInterface.telefono;
end;

procedure TmedicamentosFraccionProperties.Set_telefono(const Value: WideString);
  { Warning: The property telefono has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.telefono := Value;
end;

function TmedicamentosFraccionProperties.Get_id_obra_social: Integer;
begin
    Result := DefaultInterface.id_obra_social;
end;

procedure TmedicamentosFraccionProperties.Set_id_obra_social(Value: Integer);
begin
  DefaultInterface.Set_id_obra_social(Value);
end;

function TmedicamentosFraccionProperties.Get_provincia: WideString;
begin
    Result := DefaultInterface.provincia;
end;

procedure TmedicamentosFraccionProperties.Set_provincia(const Value: WideString);
  { Warning: The property provincia has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.provincia := Value;
end;

function TmedicamentosFraccionProperties.Get_fecha_nacimiento: WideString;
begin
    Result := DefaultInterface.fecha_nacimiento;
end;

procedure TmedicamentosFraccionProperties.Set_fecha_nacimiento(const Value: WideString);
  { Warning: The property fecha_nacimiento has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.fecha_nacimiento := Value;
end;

function TmedicamentosFraccionProperties.Get_Cantidad: Integer;
begin
    Result := DefaultInterface.Cantidad;
end;

procedure TmedicamentosFraccionProperties.Set_Cantidad(Value: Integer);
begin
  DefaultInterface.Set_Cantidad(Value);
end;

function TmedicamentosFraccionProperties.Get_id_motivo_devolucion: Double;
begin
    Result := DefaultInterface.id_motivo_devolucion;
end;

procedure TmedicamentosFraccionProperties.Set_id_motivo_devolucion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_devolucion(Value);
end;

function TmedicamentosFraccionProperties.Get_id_motivo_reposicion: Double;
begin
    Result := DefaultInterface.id_motivo_reposicion;
end;

procedure TmedicamentosFraccionProperties.Set_id_motivo_reposicion(Value: Double);
begin
  DefaultInterface.Set_id_motivo_reposicion(Value);
end;

function TmedicamentosFraccionProperties.Get_id_programa: Double;
begin
    Result := DefaultInterface.id_programa;
end;

procedure TmedicamentosFraccionProperties.Set_id_programa(Value: Double);
begin
  DefaultInterface.Set_id_programa(Value);
end;

function TmedicamentosFraccionProperties.Get_tipo_documento: Integer;
begin
    Result := DefaultInterface.tipo_documento;
end;

procedure TmedicamentosFraccionProperties.Set_tipo_documento(Value: Integer);
begin
  DefaultInterface.Set_tipo_documento(Value);
end;

function TmedicamentosFraccionProperties.Get_nro_asociado: WideString;
begin
    Result := DefaultInterface.nro_asociado;
end;

procedure TmedicamentosFraccionProperties.Set_nro_asociado(const Value: WideString);
  { Warning: The property nro_asociado has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.nro_asociado := Value;
end;

function TmedicamentosFraccionProperties.Get_otro_motivo_devolucion: WideString;
begin
    Result := DefaultInterface.otro_motivo_devolucion;
end;

procedure TmedicamentosFraccionProperties.Set_otro_motivo_devolucion(const Value: WideString);
  { Warning: The property otro_motivo_devolucion has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.otro_motivo_devolucion := Value;
end;

{$ENDIF}

class function CoTransaccionPlainWS.Create: ITransaccionPlainWS;
begin
  Result := CreateComObject(CLASS_TransaccionPlainWS) as ITransaccionPlainWS;
end;

class function CoTransaccionPlainWS.CreateRemote(const MachineName: string): ITransaccionPlainWS;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_TransaccionPlainWS) as ITransaccionPlainWS;
end;

procedure TTransaccionPlainWS.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{D866D1B4-545D-4E7C-91CE-93F9803A7BD6}';
    IntfIID:   '{7FB8C13E-31A4-4726-ABEE-5E6EC2A04A17}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTransaccionPlainWS.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ITransaccionPlainWS;
  end;
end;

procedure TTransaccionPlainWS.ConnectTo(svrIntf: ITransaccionPlainWS);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTransaccionPlainWS.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTransaccionPlainWS.GetDefaultInterface: ITransaccionPlainWS;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTransaccionPlainWS.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTransaccionPlainWSProperties.Create(Self);
{$ENDIF}
end;

destructor TTransaccionPlainWS.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTransaccionPlainWS.GetServerProperties: TTransaccionPlainWSProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TTransaccionPlainWS.Get_index: Integer;
begin
    Result := DefaultInterface.index;
end;

procedure TTransaccionPlainWS.Set_index(Value: Integer);
begin
  DefaultInterface.Set_index(Value);
end;

function TTransaccionPlainWS.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TTransaccionPlainWS.Get_id_transaccion: Double;
begin
    Result := DefaultInterface.id_transaccion;
end;

function TTransaccionPlainWS.Get_id_transaccion_global: Double;
begin
    Result := DefaultInterface.id_transaccion_global;
end;

function TTransaccionPlainWS.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

function TTransaccionPlainWS.Get_f_transaccion: Integer;
begin
    Result := DefaultInterface.f_transaccion;
end;

function TTransaccionPlainWS.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TTransaccionPlainWS.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TTransaccionPlainWS.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

function TTransaccionPlainWS.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TTransaccionPlainWS.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

function TTransaccionPlainWS.Get_d_evento: WideString;
begin
    Result := DefaultInterface.d_evento;
end;

function TTransaccionPlainWS.Get_gnl_origen: WideString;
begin
    Result := DefaultInterface.gnl_origen;
end;

function TTransaccionPlainWS.Get_razon_social_origen: WideString;
begin
    Result := DefaultInterface.razon_social_origen;
end;

function TTransaccionPlainWS.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

function TTransaccionPlainWS.Get_razon_social_destino: WideString;
begin
    Result := DefaultInterface.razon_social_destino;
end;

function TTransaccionPlainWS.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

function TTransaccionPlainWS.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

function TTransaccionPlainWS.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

function TTransaccionPlainWS.Get_id_detalle_evento: Integer;
begin
    Result := DefaultInterface.id_detalle_evento;
end;

function TTransaccionPlainWS.Get_id_estado: Integer;
begin
    Result := DefaultInterface.id_estado;
end;

function TTransaccionPlainWS.Get_d_programa: WideString;
begin
    Result := DefaultInterface.d_programa;
end;

function TTransaccionPlainWS.Get_cantPaginas: Integer;
begin
    Result := DefaultInterface.cantPaginas;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTransaccionPlainWSProperties.Create(AServer: TTransaccionPlainWS);
begin
  inherited Create;
  FServer := AServer;
end;

function TTransaccionPlainWSProperties.GetDefaultInterface: ITransaccionPlainWS;
begin
  Result := FServer.DefaultInterface;
end;

function TTransaccionPlainWSProperties.Get_index: Integer;
begin
    Result := DefaultInterface.index;
end;

procedure TTransaccionPlainWSProperties.Set_index(Value: Integer);
begin
  DefaultInterface.Set_index(Value);
end;

function TTransaccionPlainWSProperties.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TTransaccionPlainWSProperties.Get_id_transaccion: Double;
begin
    Result := DefaultInterface.id_transaccion;
end;

function TTransaccionPlainWSProperties.Get_id_transaccion_global: Double;
begin
    Result := DefaultInterface.id_transaccion_global;
end;

function TTransaccionPlainWSProperties.Get_f_evento: WideString;
begin
    Result := DefaultInterface.f_evento;
end;

function TTransaccionPlainWSProperties.Get_f_transaccion: Integer;
begin
    Result := DefaultInterface.f_transaccion;
end;

function TTransaccionPlainWSProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TTransaccionPlainWSProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TTransaccionPlainWSProperties.Get_numero_serial: WideString;
begin
    Result := DefaultInterface.numero_serial;
end;

function TTransaccionPlainWSProperties.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TTransaccionPlainWSProperties.Get_id_evento: Integer;
begin
    Result := DefaultInterface.id_evento;
end;

function TTransaccionPlainWSProperties.Get_d_evento: WideString;
begin
    Result := DefaultInterface.d_evento;
end;

function TTransaccionPlainWSProperties.Get_gnl_origen: WideString;
begin
    Result := DefaultInterface.gnl_origen;
end;

function TTransaccionPlainWSProperties.Get_razon_social_origen: WideString;
begin
    Result := DefaultInterface.razon_social_origen;
end;

function TTransaccionPlainWSProperties.Get_gln_destino: WideString;
begin
    Result := DefaultInterface.gln_destino;
end;

function TTransaccionPlainWSProperties.Get_razon_social_destino: WideString;
begin
    Result := DefaultInterface.razon_social_destino;
end;

function TTransaccionPlainWSProperties.Get_n_remito: WideString;
begin
    Result := DefaultInterface.n_remito;
end;

function TTransaccionPlainWSProperties.Get_n_factura: WideString;
begin
    Result := DefaultInterface.n_factura;
end;

function TTransaccionPlainWSProperties.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

function TTransaccionPlainWSProperties.Get_id_detalle_evento: Integer;
begin
    Result := DefaultInterface.id_detalle_evento;
end;

function TTransaccionPlainWSProperties.Get_id_estado: Integer;
begin
    Result := DefaultInterface.id_estado;
end;

function TTransaccionPlainWSProperties.Get_d_programa: WideString;
begin
    Result := DefaultInterface.d_programa;
end;

function TTransaccionPlainWSProperties.Get_cantPaginas: Integer;
begin
    Result := DefaultInterface.cantPaginas;
end;

{$ENDIF}

class function CoConsultaStockWSResult.Create: IConsultaStockWSResult;
begin
  Result := CreateComObject(CLASS_ConsultaStockWSResult) as IConsultaStockWSResult;
end;

class function CoConsultaStockWSResult.CreateRemote(const MachineName: string): IConsultaStockWSResult;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_ConsultaStockWSResult) as IConsultaStockWSResult;
end;

procedure TConsultaStockWSResult.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{79665691-9A91-4005-8E4F-F701010D8C29}';
    IntfIID:   '{D5F4E1A5-865A-41D4-B1E2-8438880AA25E}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TConsultaStockWSResult.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IConsultaStockWSResult;
  end;
end;

procedure TConsultaStockWSResult.ConnectTo(svrIntf: IConsultaStockWSResult);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TConsultaStockWSResult.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TConsultaStockWSResult.GetDefaultInterface: IConsultaStockWSResult;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TConsultaStockWSResult.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TConsultaStockWSResultProperties.Create(Self);
{$ENDIF}
end;

destructor TConsultaStockWSResult.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TConsultaStockWSResult.GetServerProperties: TConsultaStockWSResultProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TConsultaStockWSResult.Get_cantPaginas: Integer;
begin
    Result := DefaultInterface.cantPaginas;
end;

function TConsultaStockWSResult.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TConsultaStockWSResult.Get_forma: WideString;
begin
    Result := DefaultInterface.forma;
end;

function TConsultaStockWSResult.Get_gln: WideString;
begin
    Result := DefaultInterface.gln;
end;

function TConsultaStockWSResult.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TConsultaStockWSResult.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TConsultaStockWSResult.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TConsultaStockWSResult.Get_p_unidades: Double;
begin
    Result := DefaultInterface.p_unidades;
end;

function TConsultaStockWSResult.Get_Presentacion: WideString;
begin
    Result := DefaultInterface.Presentacion;
end;

function TConsultaStockWSResult.Get_serie: WideString;
begin
    Result := DefaultInterface.serie;
end;

function TConsultaStockWSResult.Get_index: Integer;
begin
    Result := DefaultInterface.index;
end;

procedure TConsultaStockWSResult.Set_index(Value: Integer);
begin
  DefaultInterface.Set_index(Value);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TConsultaStockWSResultProperties.Create(AServer: TConsultaStockWSResult);
begin
  inherited Create;
  FServer := AServer;
end;

function TConsultaStockWSResultProperties.GetDefaultInterface: IConsultaStockWSResult;
begin
  Result := FServer.DefaultInterface;
end;

function TConsultaStockWSResultProperties.Get_cantPaginas: Integer;
begin
    Result := DefaultInterface.cantPaginas;
end;

function TConsultaStockWSResultProperties.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TConsultaStockWSResultProperties.Get_forma: WideString;
begin
    Result := DefaultInterface.forma;
end;

function TConsultaStockWSResultProperties.Get_gln: WideString;
begin
    Result := DefaultInterface.gln;
end;

function TConsultaStockWSResultProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TConsultaStockWSResultProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TConsultaStockWSResultProperties.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TConsultaStockWSResultProperties.Get_p_unidades: Double;
begin
    Result := DefaultInterface.p_unidades;
end;

function TConsultaStockWSResultProperties.Get_Presentacion: WideString;
begin
    Result := DefaultInterface.Presentacion;
end;

function TConsultaStockWSResultProperties.Get_serie: WideString;
begin
    Result := DefaultInterface.serie;
end;

function TConsultaStockWSResultProperties.Get_index: Integer;
begin
    Result := DefaultInterface.index;
end;

procedure TConsultaStockWSResultProperties.Set_index(Value: Integer);
begin
  DefaultInterface.Set_index(Value);
end;

{$ENDIF}

class function CoTrazaprodmed.Create: ITrazaprodmed;
begin
  Result := CreateComObject(CLASS_Trazaprodmed) as ITrazaprodmed;
end;

class function CoTrazaprodmed.CreateRemote(const MachineName: string): ITrazaprodmed;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Trazaprodmed) as ITrazaprodmed;
end;

procedure TTrazaprodmed.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{C70A8D9F-B879-428F-8584-24ED9158C659}';
    IntfIID:   '{0961B600-614C-4966-9713-2052BAF49D58}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTrazaprodmed.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ITrazaprodmed;
  end;
end;

procedure TTrazaprodmed.ConnectTo(svrIntf: ITrazaprodmed);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTrazaprodmed.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTrazaprodmed.GetDefaultInterface: ITrazaprodmed;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTrazaprodmed.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTrazaprodmedProperties.Create(Self);
{$ENDIF}
end;

destructor TTrazaprodmed.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTrazaprodmed.GetServerProperties: TTrazaprodmedProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TTrazaprodmed.Get_usuario: WideString;
begin
    Result := DefaultInterface.usuario;
end;

procedure TTrazaprodmed.Set_usuario(const Value: WideString);
  { Warning: The property usuario has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.usuario := Value;
end;

function TTrazaprodmed.Get_password: WideString;
begin
    Result := DefaultInterface.password;
end;

procedure TTrazaprodmed.Set_password(const Value: WideString);
  { Warning: The property password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.password := Value;
end;

function TTrazaprodmed.Get_ModoProduccion: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.ModoProduccion;
end;

procedure TTrazaprodmed.Set_ModoProduccion(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_ModoProduccion(Value);
end;

function TTrazaprodmed.Get_Depurar: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.Depurar;
end;

procedure TTrazaprodmed.Set_Depurar(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_Depurar(Value);
end;

function TTrazaprodmed.Get_Errores: WideString;
begin
    Result := DefaultInterface.Errores;
end;

function TTrazaprodmed.Get_codigoTransaccion: WideString;
begin
    Result := DefaultInterface.codigoTransaccion;
end;

function TTrazaprodmed.Get_getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta;
begin
    Result := DefaultInterface.getTransaccionesWSRespuesta;
end;

procedure TTrazaprodmed.InicializarInforme;
begin
  DefaultInterface.InicializarInforme;
end;

procedure TTrazaprodmed.AgregarTransaccion(const apellidos: WideString; const calle: WideString; 
                                           const codDiagnostico: WideString; 
                                           const codHiv: WideString; const codPostal: WideString; 
                                           const cuitMedico: WideString; 
                                           const departamento: WideString; 
                                           const fechaNacimiento: WideString; 
                                           const glnDestino: WideString; 
                                           const glnOrigen: WideString; const gtin: WideString; 
                                           IdEvento: Double; idMotivoDevolucion: Double; 
                                           idObraSocial: Double; idTipoDocumento: Double; 
                                           const localidad: WideString; const lote: WideString; 
                                           const nombres: WideString; 
                                           const nroAfiliado: WideString; nroCalle: Double; 
                                           const nroDocumento: WideString; 
                                           const NroFactura: WideString; 
                                           const NroRemito: WideString; 
                                           const nroSerial: WideString; 
                                           const otroMotivoDevolucion: WideString; 
                                           const piso: WideString);
begin
  DefaultInterface.AgregarTransaccion(apellidos, calle, codDiagnostico, codHiv, codPostal, 
                                      cuitMedico, departamento, fechaNacimiento, glnDestino, 
                                      glnOrigen, gtin, IdEvento, idMotivoDevolucion, idObraSocial, 
                                      idTipoDocumento, localidad, lote, nombres, nroAfiliado, 
                                      nroCalle, nroDocumento, NroFactura, NroRemito, nroSerial, 
                                      otroMotivoDevolucion, piso);
end;

procedure TTrazaprodmed.AgregarTransaccion2(const provincia: WideString; const sexo: WideString; 
                                            const telefono: WideString; 
                                            const vencimiento: WideString; 
                                            const fEvento: WideString; const hEvento: WideString);
begin
  DefaultInterface.AgregarTransaccion2(provincia, sexo, telefono, vencimiento, fEvento, hEvento);
end;

function TTrazaprodmed.Informar: OLE_CANCELBOOL;
begin
  Result := DefaultInterface.Informar;
end;

function TTrazaprodmed.getTransaccionesWS(const params: IgetTransaccionesWSParametros): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.getTransaccionesWS(params);
end;

function TTrazaprodmed.sendCancelacTransacc(transaccion: Double): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.sendCancelacTransacc(transaccion);
end;

function TTrazaprodmed.sendCancelacTransaccParcial(const gtin: WideString; const serie: WideString): OLE_CANCELBOOL;
begin
  Result := DefaultInterface.sendCancelacTransaccParcial(gtin, serie);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTrazaprodmedProperties.Create(AServer: TTrazaprodmed);
begin
  inherited Create;
  FServer := AServer;
end;

function TTrazaprodmedProperties.GetDefaultInterface: ITrazaprodmed;
begin
  Result := FServer.DefaultInterface;
end;

function TTrazaprodmedProperties.Get_usuario: WideString;
begin
    Result := DefaultInterface.usuario;
end;

procedure TTrazaprodmedProperties.Set_usuario(const Value: WideString);
  { Warning: The property usuario has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.usuario := Value;
end;

function TTrazaprodmedProperties.Get_password: WideString;
begin
    Result := DefaultInterface.password;
end;

procedure TTrazaprodmedProperties.Set_password(const Value: WideString);
  { Warning: The property password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.password := Value;
end;

function TTrazaprodmedProperties.Get_ModoProduccion: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.ModoProduccion;
end;

procedure TTrazaprodmedProperties.Set_ModoProduccion(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_ModoProduccion(Value);
end;

function TTrazaprodmedProperties.Get_Depurar: OLE_CANCELBOOL;
begin
    Result := DefaultInterface.Depurar;
end;

procedure TTrazaprodmedProperties.Set_Depurar(Value: OLE_CANCELBOOL);
begin
  DefaultInterface.Set_Depurar(Value);
end;

function TTrazaprodmedProperties.Get_Errores: WideString;
begin
    Result := DefaultInterface.Errores;
end;

function TTrazaprodmedProperties.Get_codigoTransaccion: WideString;
begin
    Result := DefaultInterface.codigoTransaccion;
end;

function TTrazaprodmedProperties.Get_getTransaccionesWSRespuesta: IgetTransaccionesWSRespuesta;
begin
    Result := DefaultInterface.getTransaccionesWSRespuesta;
end;

{$ENDIF}

class function CogetTransaccionesWSParametros.Create: IgetTransaccionesWSParametros;
begin
  Result := CreateComObject(CLASS_getTransaccionesWSParametros) as IgetTransaccionesWSParametros;
end;

class function CogetTransaccionesWSParametros.CreateRemote(const MachineName: string): IgetTransaccionesWSParametros;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_getTransaccionesWSParametros) as IgetTransaccionesWSParametros;
end;

procedure TgetTransaccionesWSParametros.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{59C92EA4-AAE7-47A4-B6D3-B81278C3D0B1}';
    IntfIID:   '{14EBBF05-B5B3-4895-90A6-DCD6A3308FA9}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TgetTransaccionesWSParametros.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IgetTransaccionesWSParametros;
  end;
end;

procedure TgetTransaccionesWSParametros.ConnectTo(svrIntf: IgetTransaccionesWSParametros);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TgetTransaccionesWSParametros.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TgetTransaccionesWSParametros.GetDefaultInterface: IgetTransaccionesWSParametros;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TgetTransaccionesWSParametros.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TgetTransaccionesWSParametrosProperties.Create(Self);
{$ENDIF}
end;

destructor TgetTransaccionesWSParametros.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TgetTransaccionesWSParametros.GetServerProperties: TgetTransaccionesWSParametrosProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TgetTransaccionesWSParametros.Get_IdTransaccion: Double;
begin
    Result := DefaultInterface.IdTransaccion;
end;

procedure TgetTransaccionesWSParametros.Set_IdTransaccion(Value: Double);
begin
  DefaultInterface.Set_IdTransaccion(Value);
end;

function TgetTransaccionesWSParametros.Get_glnAgenteOrigen: WideString;
begin
    Result := DefaultInterface.glnAgenteOrigen;
end;

procedure TgetTransaccionesWSParametros.Set_glnAgenteOrigen(const Value: WideString);
  { Warning: The property glnAgenteOrigen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteOrigen := Value;
end;

function TgetTransaccionesWSParametros.Get_glnAgenteDestino: WideString;
begin
    Result := DefaultInterface.glnAgenteDestino;
end;

procedure TgetTransaccionesWSParametros.Set_glnAgenteDestino(const Value: WideString);
  { Warning: The property glnAgenteDestino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteDestino := Value;
end;

function TgetTransaccionesWSParametros.Get_glnAgenteInformador: WideString;
begin
    Result := DefaultInterface.glnAgenteInformador;
end;

procedure TgetTransaccionesWSParametros.Set_glnAgenteInformador(const Value: WideString);
  { Warning: The property glnAgenteInformador has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteInformador := Value;
end;

function TgetTransaccionesWSParametros.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TgetTransaccionesWSParametros.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TgetTransaccionesWSParametros.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TgetTransaccionesWSParametros.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TgetTransaccionesWSParametros.Get_serie: WideString;
begin
    Result := DefaultInterface.serie;
end;

procedure TgetTransaccionesWSParametros.Set_serie(const Value: WideString);
  { Warning: The property serie has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.serie := Value;
end;

function TgetTransaccionesWSParametros.Get_IdEvento: Double;
begin
    Result := DefaultInterface.IdEvento;
end;

procedure TgetTransaccionesWSParametros.Set_IdEvento(Value: Double);
begin
  DefaultInterface.Set_IdEvento(Value);
end;

function TgetTransaccionesWSParametros.Get_FechaOperacionDesde: WideString;
begin
    Result := DefaultInterface.FechaOperacionDesde;
end;

procedure TgetTransaccionesWSParametros.Set_FechaOperacionDesde(const Value: WideString);
  { Warning: The property FechaOperacionDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaOperacionDesde := Value;
end;

function TgetTransaccionesWSParametros.Get_FechaOperacionHasta: WideString;
begin
    Result := DefaultInterface.FechaOperacionHasta;
end;

procedure TgetTransaccionesWSParametros.Set_FechaOperacionHasta(const Value: WideString);
  { Warning: The property FechaOperacionHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaOperacionHasta := Value;
end;

function TgetTransaccionesWSParametros.Get_FechaTransaccionDesde: WideString;
begin
    Result := DefaultInterface.FechaTransaccionDesde;
end;

procedure TgetTransaccionesWSParametros.Set_FechaTransaccionDesde(const Value: WideString);
  { Warning: The property FechaTransaccionDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaTransaccionDesde := Value;
end;

function TgetTransaccionesWSParametros.Get_FechaTransaccionHasta: WideString;
begin
    Result := DefaultInterface.FechaTransaccionHasta;
end;

procedure TgetTransaccionesWSParametros.Set_FechaTransaccionHasta(const Value: WideString);
  { Warning: The property FechaTransaccionHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaTransaccionHasta := Value;
end;

function TgetTransaccionesWSParametros.Get_FechaVencimientoDesde: WideString;
begin
    Result := DefaultInterface.FechaVencimientoDesde;
end;

procedure TgetTransaccionesWSParametros.Set_FechaVencimientoDesde(const Value: WideString);
  { Warning: The property FechaVencimientoDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaVencimientoDesde := Value;
end;

function TgetTransaccionesWSParametros.Get_FechaVencimientoHasta: WideString;
begin
    Result := DefaultInterface.FechaVencimientoHasta;
end;

procedure TgetTransaccionesWSParametros.Set_FechaVencimientoHasta(const Value: WideString);
  { Warning: The property FechaVencimientoHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaVencimientoHasta := Value;
end;

function TgetTransaccionesWSParametros.Get_remito: WideString;
begin
    Result := DefaultInterface.remito;
end;

procedure TgetTransaccionesWSParametros.Set_remito(const Value: WideString);
  { Warning: The property remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.remito := Value;
end;

function TgetTransaccionesWSParametros.Get_factura: WideString;
begin
    Result := DefaultInterface.factura;
end;

procedure TgetTransaccionesWSParametros.Set_factura(const Value: WideString);
  { Warning: The property factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.factura := Value;
end;

function TgetTransaccionesWSParametros.Get_idProvincia: Double;
begin
    Result := DefaultInterface.idProvincia;
end;

procedure TgetTransaccionesWSParametros.Set_idProvincia(Value: Double);
begin
  DefaultInterface.Set_idProvincia(Value);
end;

function TgetTransaccionesWSParametros.Get_idEstadoTransaccion: Double;
begin
    Result := DefaultInterface.idEstadoTransaccion;
end;

procedure TgetTransaccionesWSParametros.Set_idEstadoTransaccion(Value: Double);
begin
  DefaultInterface.Set_idEstadoTransaccion(Value);
end;

function TgetTransaccionesWSParametros.Get_pagina: Double;
begin
    Result := DefaultInterface.pagina;
end;

procedure TgetTransaccionesWSParametros.Set_pagina(Value: Double);
begin
  DefaultInterface.Set_pagina(Value);
end;

function TgetTransaccionesWSParametros.Get_offset: Double;
begin
    Result := DefaultInterface.offset;
end;

procedure TgetTransaccionesWSParametros.Set_offset(Value: Double);
begin
  DefaultInterface.Set_offset(Value);
end;

function TgetTransaccionesWSParametros.Get_orderBy: WideString;
begin
    Result := DefaultInterface.orderBy;
end;

procedure TgetTransaccionesWSParametros.Set_orderBy(const Value: WideString);
  { Warning: The property orderBy has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.orderBy := Value;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TgetTransaccionesWSParametrosProperties.Create(AServer: TgetTransaccionesWSParametros);
begin
  inherited Create;
  FServer := AServer;
end;

function TgetTransaccionesWSParametrosProperties.GetDefaultInterface: IgetTransaccionesWSParametros;
begin
  Result := FServer.DefaultInterface;
end;

function TgetTransaccionesWSParametrosProperties.Get_IdTransaccion: Double;
begin
    Result := DefaultInterface.IdTransaccion;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_IdTransaccion(Value: Double);
begin
  DefaultInterface.Set_IdTransaccion(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_glnAgenteOrigen: WideString;
begin
    Result := DefaultInterface.glnAgenteOrigen;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_glnAgenteOrigen(const Value: WideString);
  { Warning: The property glnAgenteOrigen has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteOrigen := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_glnAgenteDestino: WideString;
begin
    Result := DefaultInterface.glnAgenteDestino;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_glnAgenteDestino(const Value: WideString);
  { Warning: The property glnAgenteDestino has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteDestino := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_glnAgenteInformador: WideString;
begin
    Result := DefaultInterface.glnAgenteInformador;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_glnAgenteInformador(const Value: WideString);
  { Warning: The property glnAgenteInformador has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.glnAgenteInformador := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_gtin(const Value: WideString);
  { Warning: The property gtin has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.gtin := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_lote(const Value: WideString);
  { Warning: The property lote has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.lote := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_serie: WideString;
begin
    Result := DefaultInterface.serie;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_serie(const Value: WideString);
  { Warning: The property serie has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.serie := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_IdEvento: Double;
begin
    Result := DefaultInterface.IdEvento;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_IdEvento(Value: Double);
begin
  DefaultInterface.Set_IdEvento(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaOperacionDesde: WideString;
begin
    Result := DefaultInterface.FechaOperacionDesde;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaOperacionDesde(const Value: WideString);
  { Warning: The property FechaOperacionDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaOperacionDesde := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaOperacionHasta: WideString;
begin
    Result := DefaultInterface.FechaOperacionHasta;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaOperacionHasta(const Value: WideString);
  { Warning: The property FechaOperacionHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaOperacionHasta := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaTransaccionDesde: WideString;
begin
    Result := DefaultInterface.FechaTransaccionDesde;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaTransaccionDesde(const Value: WideString);
  { Warning: The property FechaTransaccionDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaTransaccionDesde := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaTransaccionHasta: WideString;
begin
    Result := DefaultInterface.FechaTransaccionHasta;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaTransaccionHasta(const Value: WideString);
  { Warning: The property FechaTransaccionHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaTransaccionHasta := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaVencimientoDesde: WideString;
begin
    Result := DefaultInterface.FechaVencimientoDesde;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaVencimientoDesde(const Value: WideString);
  { Warning: The property FechaVencimientoDesde has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaVencimientoDesde := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_FechaVencimientoHasta: WideString;
begin
    Result := DefaultInterface.FechaVencimientoHasta;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_FechaVencimientoHasta(const Value: WideString);
  { Warning: The property FechaVencimientoHasta has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.FechaVencimientoHasta := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_remito: WideString;
begin
    Result := DefaultInterface.remito;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_remito(const Value: WideString);
  { Warning: The property remito has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.remito := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_factura: WideString;
begin
    Result := DefaultInterface.factura;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_factura(const Value: WideString);
  { Warning: The property factura has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.factura := Value;
end;

function TgetTransaccionesWSParametrosProperties.Get_idProvincia: Double;
begin
    Result := DefaultInterface.idProvincia;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_idProvincia(Value: Double);
begin
  DefaultInterface.Set_idProvincia(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_idEstadoTransaccion: Double;
begin
    Result := DefaultInterface.idEstadoTransaccion;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_idEstadoTransaccion(Value: Double);
begin
  DefaultInterface.Set_idEstadoTransaccion(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_pagina: Double;
begin
    Result := DefaultInterface.pagina;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_pagina(Value: Double);
begin
  DefaultInterface.Set_pagina(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_offset: Double;
begin
    Result := DefaultInterface.offset;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_offset(Value: Double);
begin
  DefaultInterface.Set_offset(Value);
end;

function TgetTransaccionesWSParametrosProperties.Get_orderBy: WideString;
begin
    Result := DefaultInterface.orderBy;
end;

procedure TgetTransaccionesWSParametrosProperties.Set_orderBy(const Value: WideString);
  { Warning: The property orderBy has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.orderBy := Value;
end;

{$ENDIF}

class function CogetTransaccionesWSRespuesta.Create: IgetTransaccionesWSRespuesta;
begin
  Result := CreateComObject(CLASS_getTransaccionesWSRespuesta) as IgetTransaccionesWSRespuesta;
end;

class function CogetTransaccionesWSRespuesta.CreateRemote(const MachineName: string): IgetTransaccionesWSRespuesta;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_getTransaccionesWSRespuesta) as IgetTransaccionesWSRespuesta;
end;

procedure TgetTransaccionesWSRespuesta.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{84EAF991-8030-4C22-8581-E81F25C28905}';
    IntfIID:   '{67DF4C0C-4AD8-4A60-A617-56956365E762}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TgetTransaccionesWSRespuesta.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IgetTransaccionesWSRespuesta;
  end;
end;

procedure TgetTransaccionesWSRespuesta.ConnectTo(svrIntf: IgetTransaccionesWSRespuesta);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TgetTransaccionesWSRespuesta.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TgetTransaccionesWSRespuesta.GetDefaultInterface: IgetTransaccionesWSRespuesta;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TgetTransaccionesWSRespuesta.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TgetTransaccionesWSRespuestaProperties.Create(Self);
{$ENDIF}
end;

destructor TgetTransaccionesWSRespuesta.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TgetTransaccionesWSRespuesta.GetServerProperties: TgetTransaccionesWSRespuestaProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TgetTransaccionesWSRespuesta.Get_indice: Integer;
begin
    Result := DefaultInterface.indice;
end;

procedure TgetTransaccionesWSRespuesta.Set_indice(Value: Integer);
begin
  DefaultInterface.Set_indice(Value);
end;

function TgetTransaccionesWSRespuesta.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TgetTransaccionesWSRespuesta.Get_codDiagnostico: WideString;
begin
    Result := DefaultInterface.codDiagnostico;
end;

function TgetTransaccionesWSRespuesta.Get_descDiagnostico: WideString;
begin
    Result := DefaultInterface.descDiagnostico;
end;

function TgetTransaccionesWSRespuesta.Get_descEstado: WideString;
begin
    Result := DefaultInterface.descEstado;
end;

function TgetTransaccionesWSRespuesta.Get_descMotivoDevolucion: WideString;
begin
    Result := DefaultInterface.descMotivoDevolucion;
end;

function TgetTransaccionesWSRespuesta.Get_descProducto: WideString;
begin
    Result := DefaultInterface.descProducto;
end;

function TgetTransaccionesWSRespuesta.Get_glnDestino: WideString;
begin
    Result := DefaultInterface.glnDestino;
end;

function TgetTransaccionesWSRespuesta.Get_glnOrigen: WideString;
begin
    Result := DefaultInterface.glnOrigen;
end;

function TgetTransaccionesWSRespuesta.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TgetTransaccionesWSRespuesta.Get_idDetalleEvento: Double;
begin
    Result := DefaultInterface.idDetalleEvento;
end;

function TgetTransaccionesWSRespuesta.Get_IdEstado: Double;
begin
    Result := DefaultInterface.IdEstado;
end;

function TgetTransaccionesWSRespuesta.Get_idMotivoDevolucion: Double;
begin
    Result := DefaultInterface.idMotivoDevolucion;
end;

function TgetTransaccionesWSRespuesta.Get_IdTransaccion: WideString;
begin
    Result := DefaultInterface.IdTransaccion;
end;

function TgetTransaccionesWSRespuesta.Get_idTransaccionGlobal: WideString;
begin
    Result := DefaultInterface.idTransaccionGlobal;
end;

function TgetTransaccionesWSRespuesta.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TgetTransaccionesWSRespuesta.Get_medicoCuit: WideString;
begin
    Result := DefaultInterface.medicoCuit;
end;

function TgetTransaccionesWSRespuesta.Get_medicoNombres: WideString;
begin
    Result := DefaultInterface.medicoNombres;
end;

function TgetTransaccionesWSRespuesta.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TgetTransaccionesWSRespuesta.Get_NroFactura: WideString;
begin
    Result := DefaultInterface.NroFactura;
end;

function TgetTransaccionesWSRespuesta.Get_NroRemito: WideString;
begin
    Result := DefaultInterface.NroRemito;
end;

function TgetTransaccionesWSRespuesta.Get_nroSerial: WideString;
begin
    Result := DefaultInterface.nroSerial;
end;

function TgetTransaccionesWSRespuesta.Get_otroMotivoDevolucion: WideString;
begin
    Result := DefaultInterface.otroMotivoDevolucion;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteApellido: WideString;
begin
    Result := DefaultInterface.pacienteApellido;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteCalle: WideString;
begin
    Result := DefaultInterface.pacienteCalle;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteCodPostal: WideString;
begin
    Result := DefaultInterface.pacienteCodPostal;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteCodigoObraSocial: WideString;
begin
    Result := DefaultInterface.pacienteCodigoObraSocial;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteCodigoTipoDocumento: WideString;
begin
    Result := DefaultInterface.pacienteCodigoTipoDocumento;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteDepartamento: WideString;
begin
    Result := DefaultInterface.pacienteDepartamento;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteDescObraSocial: WideString;
begin
    Result := DefaultInterface.pacienteDescObraSocial;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteDescTipoDocumento: WideString;
begin
    Result := DefaultInterface.pacienteDescTipoDocumento;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteFechaNacimiento: WideString;
begin
    Result := DefaultInterface.pacienteFechaNacimiento;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteLocalidad: WideString;
begin
    Result := DefaultInterface.pacienteLocalidad;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteNombres: WideString;
begin
    Result := DefaultInterface.pacienteNombres;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteNroAfiliado: WideString;
begin
    Result := DefaultInterface.pacienteNroAfiliado;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteNroCalle: WideString;
begin
    Result := DefaultInterface.pacienteNroCalle;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteNroDocumento: WideString;
begin
    Result := DefaultInterface.pacienteNroDocumento;
end;

function TgetTransaccionesWSRespuesta.Get_pacientePiso: WideString;
begin
    Result := DefaultInterface.pacientePiso;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteProvincia: WideString;
begin
    Result := DefaultInterface.pacienteProvincia;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteSexo: WideString;
begin
    Result := DefaultInterface.pacienteSexo;
end;

function TgetTransaccionesWSRespuesta.Get_pacienteTelefono: WideString;
begin
    Result := DefaultInterface.pacienteTelefono;
end;

function TgetTransaccionesWSRespuesta.Get_razonSocialDestino: WideString;
begin
    Result := DefaultInterface.razonSocialDestino;
end;

function TgetTransaccionesWSRespuesta.Get_razonSocialInformador: WideString;
begin
    Result := DefaultInterface.razonSocialInformador;
end;

function TgetTransaccionesWSRespuesta.Get_razonSocialOrigen: WideString;
begin
    Result := DefaultInterface.razonSocialOrigen;
end;

function TgetTransaccionesWSRespuesta.Get_transacProvincia: WideString;
begin
    Result := DefaultInterface.transacProvincia;
end;

function TgetTransaccionesWSRespuesta.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

function TgetTransaccionesWSRespuesta.Get_dEvento: WideString;
begin
    Result := DefaultInterface.dEvento;
end;

function TgetTransaccionesWSRespuesta.Get_fEvento: WideString;
begin
    Result := DefaultInterface.fEvento;
end;

function TgetTransaccionesWSRespuesta.Get_fTransaccion: WideString;
begin
    Result := DefaultInterface.fTransaccion;
end;

function TgetTransaccionesWSRespuesta.Get_hEvento: WideString;
begin
    Result := DefaultInterface.hEvento;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TgetTransaccionesWSRespuestaProperties.Create(AServer: TgetTransaccionesWSRespuesta);
begin
  inherited Create;
  FServer := AServer;
end;

function TgetTransaccionesWSRespuestaProperties.GetDefaultInterface: IgetTransaccionesWSRespuesta;
begin
  Result := FServer.DefaultInterface;
end;

function TgetTransaccionesWSRespuestaProperties.Get_indice: Integer;
begin
    Result := DefaultInterface.indice;
end;

procedure TgetTransaccionesWSRespuestaProperties.Set_indice(Value: Integer);
begin
  DefaultInterface.Set_indice(Value);
end;

function TgetTransaccionesWSRespuestaProperties.Get_count: Integer;
begin
    Result := DefaultInterface.count;
end;

function TgetTransaccionesWSRespuestaProperties.Get_codDiagnostico: WideString;
begin
    Result := DefaultInterface.codDiagnostico;
end;

function TgetTransaccionesWSRespuestaProperties.Get_descDiagnostico: WideString;
begin
    Result := DefaultInterface.descDiagnostico;
end;

function TgetTransaccionesWSRespuestaProperties.Get_descEstado: WideString;
begin
    Result := DefaultInterface.descEstado;
end;

function TgetTransaccionesWSRespuestaProperties.Get_descMotivoDevolucion: WideString;
begin
    Result := DefaultInterface.descMotivoDevolucion;
end;

function TgetTransaccionesWSRespuestaProperties.Get_descProducto: WideString;
begin
    Result := DefaultInterface.descProducto;
end;

function TgetTransaccionesWSRespuestaProperties.Get_glnDestino: WideString;
begin
    Result := DefaultInterface.glnDestino;
end;

function TgetTransaccionesWSRespuestaProperties.Get_glnOrigen: WideString;
begin
    Result := DefaultInterface.glnOrigen;
end;

function TgetTransaccionesWSRespuestaProperties.Get_gtin: WideString;
begin
    Result := DefaultInterface.gtin;
end;

function TgetTransaccionesWSRespuestaProperties.Get_idDetalleEvento: Double;
begin
    Result := DefaultInterface.idDetalleEvento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_IdEstado: Double;
begin
    Result := DefaultInterface.IdEstado;
end;

function TgetTransaccionesWSRespuestaProperties.Get_idMotivoDevolucion: Double;
begin
    Result := DefaultInterface.idMotivoDevolucion;
end;

function TgetTransaccionesWSRespuestaProperties.Get_IdTransaccion: WideString;
begin
    Result := DefaultInterface.IdTransaccion;
end;

function TgetTransaccionesWSRespuestaProperties.Get_idTransaccionGlobal: WideString;
begin
    Result := DefaultInterface.idTransaccionGlobal;
end;

function TgetTransaccionesWSRespuestaProperties.Get_lote: WideString;
begin
    Result := DefaultInterface.lote;
end;

function TgetTransaccionesWSRespuestaProperties.Get_medicoCuit: WideString;
begin
    Result := DefaultInterface.medicoCuit;
end;

function TgetTransaccionesWSRespuestaProperties.Get_medicoNombres: WideString;
begin
    Result := DefaultInterface.medicoNombres;
end;

function TgetTransaccionesWSRespuestaProperties.Get_Nombre: WideString;
begin
    Result := DefaultInterface.Nombre;
end;

function TgetTransaccionesWSRespuestaProperties.Get_NroFactura: WideString;
begin
    Result := DefaultInterface.NroFactura;
end;

function TgetTransaccionesWSRespuestaProperties.Get_NroRemito: WideString;
begin
    Result := DefaultInterface.NroRemito;
end;

function TgetTransaccionesWSRespuestaProperties.Get_nroSerial: WideString;
begin
    Result := DefaultInterface.nroSerial;
end;

function TgetTransaccionesWSRespuestaProperties.Get_otroMotivoDevolucion: WideString;
begin
    Result := DefaultInterface.otroMotivoDevolucion;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteApellido: WideString;
begin
    Result := DefaultInterface.pacienteApellido;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteCalle: WideString;
begin
    Result := DefaultInterface.pacienteCalle;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteCodPostal: WideString;
begin
    Result := DefaultInterface.pacienteCodPostal;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteCodigoObraSocial: WideString;
begin
    Result := DefaultInterface.pacienteCodigoObraSocial;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteCodigoTipoDocumento: WideString;
begin
    Result := DefaultInterface.pacienteCodigoTipoDocumento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteDepartamento: WideString;
begin
    Result := DefaultInterface.pacienteDepartamento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteDescObraSocial: WideString;
begin
    Result := DefaultInterface.pacienteDescObraSocial;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteDescTipoDocumento: WideString;
begin
    Result := DefaultInterface.pacienteDescTipoDocumento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteFechaNacimiento: WideString;
begin
    Result := DefaultInterface.pacienteFechaNacimiento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteLocalidad: WideString;
begin
    Result := DefaultInterface.pacienteLocalidad;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteNombres: WideString;
begin
    Result := DefaultInterface.pacienteNombres;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteNroAfiliado: WideString;
begin
    Result := DefaultInterface.pacienteNroAfiliado;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteNroCalle: WideString;
begin
    Result := DefaultInterface.pacienteNroCalle;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteNroDocumento: WideString;
begin
    Result := DefaultInterface.pacienteNroDocumento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacientePiso: WideString;
begin
    Result := DefaultInterface.pacientePiso;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteProvincia: WideString;
begin
    Result := DefaultInterface.pacienteProvincia;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteSexo: WideString;
begin
    Result := DefaultInterface.pacienteSexo;
end;

function TgetTransaccionesWSRespuestaProperties.Get_pacienteTelefono: WideString;
begin
    Result := DefaultInterface.pacienteTelefono;
end;

function TgetTransaccionesWSRespuestaProperties.Get_razonSocialDestino: WideString;
begin
    Result := DefaultInterface.razonSocialDestino;
end;

function TgetTransaccionesWSRespuestaProperties.Get_razonSocialInformador: WideString;
begin
    Result := DefaultInterface.razonSocialInformador;
end;

function TgetTransaccionesWSRespuestaProperties.Get_razonSocialOrigen: WideString;
begin
    Result := DefaultInterface.razonSocialOrigen;
end;

function TgetTransaccionesWSRespuestaProperties.Get_transacProvincia: WideString;
begin
    Result := DefaultInterface.transacProvincia;
end;

function TgetTransaccionesWSRespuestaProperties.Get_vencimiento: WideString;
begin
    Result := DefaultInterface.vencimiento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_dEvento: WideString;
begin
    Result := DefaultInterface.dEvento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_fEvento: WideString;
begin
    Result := DefaultInterface.fEvento;
end;

function TgetTransaccionesWSRespuestaProperties.Get_fTransaccion: WideString;
begin
    Result := DefaultInterface.fTransaccion;
end;

function TgetTransaccionesWSRespuestaProperties.Get_hEvento: WideString;
begin
    Result := DefaultInterface.hEvento;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TTrazaMed, TmedicamentosDTO, TmedicamentosDTOdhSerie, TmedicamentosFraccion, 
    TTransaccionPlainWS, TConsultaStockWSResult, TTrazaprodmed, TgetTransaccionesWSParametros, TgetTransaccionesWSRespuesta]);
end;

end.
