Hola.
Antes de nada Felicitar el Nuevo Año a todos y felicitar a este foro por la ayuda que aporta.
Llevo unos cuantos años con Delphi, tengo cierta soltura, pero quizás me he encasillado en lo que funciona y no he estudiado más. La cosa que ahora con lo nuevo de VERIFACTU, estoy viendo código de compañeros que no entiendo y es por eso si me podéis ayudar a comprenderlo.
Código Delphi
[-]
PersonaFisicaJuridicaType = class(TRemotable)
private
FNIF: NIFType;
FNIF_Specified: boolean;
FIDOtro: IDOtroType;
FIDOtro_Specified: boolean;
public
destructor Destroy; override;
published
property NombreRazon: TextMax120Type read FNombreRazon write FNombreRazon;
property NIF: NIFType Index (IS_OPTN) read FNIF write SetNIF stored NIF_Specified;
property IDOtro: IDOtroType Index (IS_OPTN) read FIDOtro write SetIDOtro stored IDOtro_Specified;
procedure PersonaFisicaJuridicaType.SetNIF(Index: Integer; const ANIFType: NIFType);
begin
FNIF := ANIFType;
FNIF_Specified := True;
end;
function PersonaFisicaJuridicaType.NIF_Specified(Index: Integer): boolean;
begin
Result := FNIF_Specified;
end;
procedure PersonaFisicaJuridicaType.SetIDOtro(Index: Integer; const AIDOtroType: IDOtroType);
begin
FIDOtro := AIDOtroType;
FIDOtro_Specified := True;
end;
function PersonaFisicaJuridicaType.IDOtro_Specified(Index: Integer): boolean;
begin
Result := FIDOtro_Specified;
end;
Mi dudas son:
* por que dos propiedades diferentes tienen el mismo índiceIndex (IS_OPTN)?
* Cual es la función de stored que lee el valor de una función?,no se podría haber puesto directamente la variable?
Espero haberme explicado bien.
Muchas Gracias.