
{************************************************************************************************************************************************}
{                                                                                                                                                }
{                                                                XML Data Binding                                                                }
{                                                                                                                                                }
{         Generated on: 27/11/2013 12:28:44 p.m.                                                                                                 }
{       Generated from: C:\Users\Desarrollo-2\Documents\Programas Edith\Codigos trabajando\FACTURADOR WEB\FacturadorWeb dll\NuevaDireccion.xml   }
{   Settings stored in: C:\Users\Desarrollo-2\Documents\Programas Edith\Codigos trabajando\FACTURADOR WEB\FacturadorWeb dll\NuevaDireccion.xdb   }
{                                                                                                                                                }
{************************************************************************************************************************************************}

unit NuevaDireccion;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLNuevaDireccionType = interface;

{ IXMLNuevaDireccionType }

  IXMLNuevaDireccionType = interface(IXMLNode)
    ['{44662972-7F30-4654-9951-96228D60EEC7}']
    { Property Accessors }
    function Get_ClienteId: Integer;
    function Get_Nombre: WideString;
    function Get_Contacto: WideString;
    function Get_RFC: WideString;
    function Get_Calle: WideString;
    function Get_NumExt: WideString;
    function Get_NumInt: WideString;
    function Get_Colonia: WideString;
    function Get_Poblacion: WideString;
    function Get_Referencia: WideString;
    function Get_Ciudad: WideString;
    function Get_IdEstado: Integer;
    function Get_CodigoPostal: WideString;
    function Get_Telefono: WideString;
    function Get_Email: WideString;
    function Get_TipoReg: WideString;
    function Get_RegFis: WideString;
    procedure Set_ClienteId(Value: Integer);
    procedure Set_Nombre(Value: WideString);
    procedure Set_Contacto(Value: WideString);
    procedure Set_RFC(Value: WideString);
    procedure Set_Calle(Value: WideString);
    procedure Set_NumExt(Value: WideString);
    procedure Set_NumInt(Value: WideString);
    procedure Set_Colonia(Value: WideString);
    procedure Set_Poblacion(Value: WideString);
    procedure Set_Referencia(Value: WideString);
    procedure Set_Ciudad(Value: WideString);
    procedure Set_IdEstado(Value: Integer);
    procedure Set_CodigoPostal(Value: WideString);
    procedure Set_Telefono(Value: WideString);
    procedure Set_Email(Value: WideString);
    procedure Set_TipoReg(Value: WideString);
    procedure Set_RegFis(Value: WideString);
    { Methods & Properties }
    property ClienteId: Integer read Get_ClienteId write Set_ClienteId;
    property Nombre: WideString read Get_Nombre write Set_Nombre;
    property Contacto: WideString read Get_Contacto write Set_Contacto;
    property RFC: WideString read Get_RFC write Set_RFC;
    property Calle: WideString read Get_Calle write Set_Calle;
    property NumExt: WideString read Get_NumExt write Set_NumExt;
    property NumInt: WideString read Get_NumInt write Set_NumInt;
    property Colonia: WideString read Get_Colonia write Set_Colonia;
    property Poblacion: WideString read Get_Poblacion write Set_Poblacion;
    property Referencia: WideString read Get_Referencia write Set_Referencia;
    property Ciudad: WideString read Get_Ciudad write Set_Ciudad;
    property IdEstado: Integer read Get_IdEstado write Set_IdEstado;
    property CodigoPostal: WideString read Get_CodigoPostal write Set_CodigoPostal;
    property Telefono: WideString read Get_Telefono write Set_Telefono;
    property Email: WideString read Get_Email write Set_Email;
    property TipoReg: WideString read Get_TipoReg write Set_TipoReg;
    property RegFis: WideString read Get_RegFis write Set_RegFis;
  end;

{ Forward Decls }

  TXMLNuevaDireccionType = class;

{ TXMLNuevaDireccionType }

  TXMLNuevaDireccionType = class(TXMLNode, IXMLNuevaDireccionType)
  protected
    { IXMLNuevaDireccionType }
    function Get_ClienteId: Integer;
    function Get_Nombre: WideString;
    function Get_Contacto: WideString;
    function Get_RFC: WideString;
    function Get_Calle: WideString;
    function Get_NumExt: WideString;
    function Get_NumInt: WideString;
    function Get_Colonia: WideString;
    function Get_Poblacion: WideString;
    function Get_Referencia: WideString;
    function Get_Ciudad: WideString;
    function Get_IdEstado: Integer;
    function Get_CodigoPostal: WideString;
    function Get_Telefono: WideString;
    function Get_Email: WideString;
    function Get_TipoReg: WideString;
    function Get_RegFis: WideString;
    procedure Set_ClienteId(Value: Integer);
    procedure Set_Nombre(Value: WideString);
    procedure Set_Contacto(Value: WideString);
    procedure Set_RFC(Value: WideString);
    procedure Set_Calle(Value: WideString);
    procedure Set_NumExt(Value: WideString);
    procedure Set_NumInt(Value: WideString);
    procedure Set_Colonia(Value: WideString);
    procedure Set_Poblacion(Value: WideString);
    procedure Set_Referencia(Value: WideString);
    procedure Set_Ciudad(Value: WideString);
    procedure Set_IdEstado(Value: Integer);
    procedure Set_CodigoPostal(Value: WideString);
    procedure Set_Telefono(Value: WideString);
    procedure Set_Email(Value: WideString);
    procedure Set_TipoReg(Value: WideString);
    procedure Set_RegFis(Value: WideString);
  end;

{ Global Functions }

function GetNuevaDireccion(Doc: IXMLDocument): IXMLNuevaDireccionType;
function LoadNuevaDireccion(const FileName: WideString): IXMLNuevaDireccionType;
function NewNuevaDireccion: IXMLNuevaDireccionType;

const
  TargetNamespace = '';

implementation

{ Global Functions }

function GetNuevaDireccion(Doc: IXMLDocument): IXMLNuevaDireccionType;
begin
  Result := Doc.GetDocBinding('NuevaDireccion', TXMLNuevaDireccionType, TargetNamespace) as IXMLNuevaDireccionType;
end;

function LoadNuevaDireccion(const FileName: WideString): IXMLNuevaDireccionType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('NuevaDireccion', TXMLNuevaDireccionType, TargetNamespace) as IXMLNuevaDireccionType;
end;

function NewNuevaDireccion: IXMLNuevaDireccionType;
begin
  Result := NewXMLDocument.GetDocBinding('NuevaDireccion', TXMLNuevaDireccionType, TargetNamespace) as IXMLNuevaDireccionType;
end;

{ TXMLNuevaDireccionType }

function TXMLNuevaDireccionType.Get_ClienteId: Integer;
begin
  Result := ChildNodes['ClienteId'].NodeValue;
end;

procedure TXMLNuevaDireccionType.Set_ClienteId(Value: Integer);
begin
  ChildNodes['ClienteId'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Nombre: WideString;
begin
  Result := ChildNodes['Nombre'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Nombre(Value: WideString);
begin
  ChildNodes['Nombre'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Contacto: WideString;
begin
  Result := ChildNodes['Contacto'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Contacto(Value: WideString);
begin
  ChildNodes['Contacto'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_RFC: WideString;
begin
  Result := ChildNodes['RFC'].Text;
end;

procedure TXMLNuevaDireccionType.Set_RFC(Value: WideString);
begin
  ChildNodes['RFC'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Calle: WideString;
begin
  Result := ChildNodes['Calle'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Calle(Value: WideString);
begin
  ChildNodes['Calle'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_NumExt: WideString;
begin
  Result := ChildNodes['NumExt'].Text;
end;

procedure TXMLNuevaDireccionType.Set_NumExt(Value: WideString);
begin
  ChildNodes['NumExt'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_NumInt: WideString;
begin
  Result := ChildNodes['NumInt'].Text;
end;

procedure TXMLNuevaDireccionType.Set_NumInt(Value: WideString);
begin
  ChildNodes['NumInt'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Colonia: WideString;
begin
  Result := ChildNodes['Colonia'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Colonia(Value: WideString);
begin
  ChildNodes['Colonia'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Poblacion: WideString;
begin
  Result := ChildNodes['Poblacion'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Poblacion(Value: WideString);
begin
  ChildNodes['Poblacion'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Referencia: WideString;
begin
  Result := ChildNodes['Referencia'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Referencia(Value: WideString);
begin
  ChildNodes['Referencia'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Ciudad: WideString;
begin
  Result := ChildNodes['Ciudad'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Ciudad(Value: WideString);
begin
  ChildNodes['Ciudad'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_IdEstado: Integer;
begin
  Result := ChildNodes['IdEstado'].NodeValue;
end;

procedure TXMLNuevaDireccionType.Set_IdEstado(Value: Integer);
begin
  ChildNodes['IdEstado'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_CodigoPostal: WideString;
begin
  Result := ChildNodes['CodigoPostal'].Text;
end;

procedure TXMLNuevaDireccionType.Set_CodigoPostal(Value: WideString);
begin
  ChildNodes['CodigoPostal'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Telefono: WideString;
begin
  Result := ChildNodes['Telefono'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Telefono(Value: WideString);
begin
  ChildNodes['Telefono'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_Email: WideString;
begin
  Result := ChildNodes['Email'].Text;
end;

procedure TXMLNuevaDireccionType.Set_Email(Value: WideString);
begin
  ChildNodes['Email'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_TipoReg: WideString;
begin
  Result := ChildNodes['TipoReg'].Text;
end;

procedure TXMLNuevaDireccionType.Set_TipoReg(Value: WideString);
begin
  ChildNodes['TipoReg'].NodeValue := Value;
end;

function TXMLNuevaDireccionType.Get_RegFis: WideString;
begin
  Result := ChildNodes['RegFis'].Text;
end;

procedure TXMLNuevaDireccionType.Set_RegFis(Value: WideString);
begin
  ChildNodes['RegFis'].NodeValue := Value;
end;


end.