Ver Mensaje Individual
  #3505  
Antiguo 07-03-2024
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.030
Reputación: 22
keys Va por buen camino
Código Delphi [-]
DetalleIVARecibidaType = class(TRemotable)
  private
    FTipoImpositivo: Tipo2_2Type;
    FTipoImpositivo_Specified: boolean;
    FBaseImponible: ImporteSgn12_2Type;
    FCuotaSoportada: ImporteSgn12_2Type;
    FCuotaSoportada_Specified: boolean;
    FTipoRecargoEquivalencia: Tipo2_2Type;
    FTipoRecargoEquivalencia_Specified: boolean;
    FCuotaRecargoEquivalencia: ImporteSgn12_2Type;
    FCuotaRecargoEquivalencia_Specified: boolean;
    FPorcentCompensacionREAGYP: Tipo2_2Type;
    FPorcentCompensacionREAGYP_Specified: boolean;
    FImporteCompensacionREAGYP: ImporteSgn12_2Type;
    FImporteCompensacionREAGYP_Specified: boolean;
    FBienInversion: BienInversionType;
    FBienInversion_Specified: boolean;
    procedure SetTipoImpositivo(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  TipoImpositivo_Specified(Index: Integer): boolean;
    procedure SetCuotaSoportada(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  CuotaSoportada_Specified(Index: Integer): boolean;
    procedure SetTipoRecargoEquivalencia(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  TipoRecargoEquivalencia_Specified(Index: Integer): boolean;
    procedure SetCuotaRecargoEquivalencia(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  CuotaRecargoEquivalencia_Specified(Index: Integer): boolean;
    procedure SetPorcentCompensacionREAGYP(Index: Integer; const ATipo2_2Type: Tipo2_2Type);
    function  PorcentCompensacionREAGYP_Specified(Index: Integer): boolean;
    procedure SetImporteCompensacionREAGYP(Index: Integer; const AImporteSgn12_2Type: ImporteSgn12_2Type);
    function  ImporteCompensacionREAGYP_Specified(Index: Integer): boolean;
    procedure SetBienInversion(Index: Integer; const ABienInversionType: BienInversionType);
    function  BienInversion_Specified(Index: Integer): boolean;
  published
    property TipoImpositivo:            Tipo2_2Type         Index (IS_OPTN) read FTipoImpositivo write SetTipoImpositivo stored TipoImpositivo_Specified;
    property BaseImponible:             ImporteSgn12_2Type  read FBaseImponible write FBaseImponible;
    property CuotaSoportada:            ImporteSgn12_2Type  Index (IS_OPTN) read FCuotaSoportada write SetCuotaSoportada stored CuotaSoportada_Specified;
    property TipoRecargoEquivalencia:   Tipo2_2Type         Index (IS_OPTN) read FTipoRecargoEquivalencia write SetTipoRecargoEquivalencia stored TipoRecargoEquivalencia_Specified;
    property CuotaRecargoEquivalencia:  ImporteSgn12_2Type  Index (IS_OPTN) read FCuotaRecargoEquivalencia write SetCuotaRecargoEquivalencia stored CuotaRecargoEquivalencia_Specified;
    property PorcentCompensacionREAGYP: Tipo2_2Type         Index (IS_OPTN) read FPorcentCompensacionREAGYP write SetPorcentCompensacionREAGYP stored PorcentCompensacionREAGYP_Specified;
    property ImporteCompensacionREAGYP: ImporteSgn12_2Type  Index (IS_OPTN) read FImporteCompensacionREAGYP write SetImporteCompensacionREAGYP stored ImporteCompensacionREAGYP_Specified;
    property BienInversion:             BienInversionType   Index (IS_OPTN) read FBienInversion write SetBienInversion stored BienInversion_Specified;
  end;
Responder Con Cita