<< Click to Display Table of Contents >> Navigation:  Web Service > Funciones > Classes > TListaSurtido

TSurtido = class(TRemotable)

private

   FNuVenta: LongInt;

   FNuVenta_Mov: LongInt;

   FCliente: string;

   FMesa: string;

   FProducto: string;

   FCantidad: Real;

published

  property NuVenta:   LongInt   read FNuVenta write FNuVenta;

  property NuVenta_Mov: LongInt read FNuVenta_Mov write FNuVenta_Mov;

  property Cliente:    string   read FCliente write FCliente;

  property Mesa:       string   read FMesa write FMesa;

  property Producto:   string   read FProducto write FProducto;

  property Cantidad:   Real     read FCantidad write FCantidad;

end;

 

 TArraySurtido = array of TSurtido;

 

TListaSurtido = class(TRemotable)

private

   FCount : Integer;

   FArraySurtido: TArraySurtido;

public

   procedure SetLengthList(Value: integer);

published

  property Count:         Integer   read FCount write FCount;

  property ArraySurtido:  TArraySurtido    read FArraySurtido write FArraySurtido;

end;