Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
3ab47f8d0e
LuisLeon_FactuGES/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
david 3ab47f8d0e Recuperación de datos 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.2.0@6 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2007-06-11 15:35:41 +00:00

1143 lines
49 KiB
ObjectPascal
Raw Blame History

unit schPedidosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosCliente = '{EFAB68C0-67B7-451D-8B27-2DFEB1285D1D}';
RID_PedidosCliente_Detalles = '{84E69D2E-EF57-4295-B342-C38C67A8C5A6}';
RID_PedidosCliente_Refresh = '{B95A669F-4A64-485D-8FD2-AAABCC0E6DD3}';
{ Data table names }
nme_PedidosCliente = 'PedidosCliente';
nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles';
nme_PedidosCliente_Refresh = 'PedidosCliente_Refresh';
{ PedidosCliente fields }
fld_PedidosClienteID = 'ID';
fld_PedidosClienteID_EMPRESA = 'ID_EMPRESA';
fld_PedidosClienteID_CLIENTE = 'ID_CLIENTE';
fld_PedidosClienteUSUARIO = 'USUARIO';
fld_PedidosClienteFECHA_PEDIDO = 'FECHA_PEDIDO';
fld_PedidosClienteFECHA_CONFIRMACION = 'FECHA_CONFIRMACION';
fld_PedidosClienteFECHA_ENTREGA = 'FECHA_ENTREGA';
fld_PedidosClienteSITUACION = 'SITUACION';
fld_PedidosClienteCALLE = 'CALLE';
fld_PedidosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_PedidosClientePOBLACION = 'POBLACION';
fld_PedidosClientePROVINCIA = 'PROVINCIA';
fld_PedidosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PedidosClienteTELEFONO = 'TELEFONO';
fld_PedidosClienteREFERENCIA = 'REFERENCIA';
fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosClienteINCIDENCIAS = 'INCIDENCIAS';
fld_PedidosClienteINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS';
fld_PedidosClienteOBSERVACIONES = 'OBSERVACIONES';
fld_PedidosClienteNOMBRE = 'NOMBRE';
fld_PedidosClienteFECHA_ALTA = 'FECHA_ALTA';
fld_PedidosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ PedidosCliente field indexes }
idx_PedidosClienteID = 0;
idx_PedidosClienteID_EMPRESA = 1;
idx_PedidosClienteID_CLIENTE = 2;
idx_PedidosClienteUSUARIO = 3;
idx_PedidosClienteFECHA_PEDIDO = 4;
idx_PedidosClienteFECHA_CONFIRMACION = 5;
idx_PedidosClienteFECHA_ENTREGA = 6;
idx_PedidosClienteSITUACION = 7;
idx_PedidosClienteCALLE = 8;
idx_PedidosClienteCODIGO_POSTAL = 9;
idx_PedidosClientePOBLACION = 10;
idx_PedidosClientePROVINCIA = 11;
idx_PedidosClientePERSONA_CONTACTO = 12;
idx_PedidosClienteTELEFONO = 13;
idx_PedidosClienteREFERENCIA = 14;
idx_PedidosClienteIMPORTE_TOTAL = 15;
idx_PedidosClienteINCIDENCIAS = 16;
idx_PedidosClienteINCIDENCIAS_ACTIVAS = 17;
idx_PedidosClienteOBSERVACIONES = 18;
idx_PedidosClienteNOMBRE = 19;
idx_PedidosClienteFECHA_ALTA = 20;
idx_PedidosClienteFECHA_MODIFICACION = 21;
{ PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID';
fld_PedidosCliente_DetallesID_PEDIDO = 'ID_PEDIDO';
fld_PedidosCliente_DetallesPOSICION = 'POSICION';
fld_PedidosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_PedidosCliente_DetallesREFERENCIA = 'REFERENCIA';
fld_PedidosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosCliente_DetallesCONCEPTO = 'CONCEPTO';
fld_PedidosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PedidosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PedidosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosCliente_DetallesVISIBLE = 'VISIBLE';
{ PedidosCliente_Detalles field indexes }
idx_PedidosCliente_DetallesID = 0;
idx_PedidosCliente_DetallesID_PEDIDO = 1;
idx_PedidosCliente_DetallesPOSICION = 2;
idx_PedidosCliente_DetallesTIPO_DETALLE = 3;
idx_PedidosCliente_DetallesREFERENCIA = 4;
idx_PedidosCliente_DetallesID_ARTICULO = 5;
idx_PedidosCliente_DetallesCONCEPTO = 6;
idx_PedidosCliente_DetallesCANTIDAD = 7;
idx_PedidosCliente_DetallesIMPORTE_UNIDAD = 8;
idx_PedidosCliente_DetallesIMPORTE_TOTAL = 9;
idx_PedidosCliente_DetallesVISIBLE = 10;
{ PedidosCliente_Refresh fields }
fld_PedidosCliente_RefreshID = 'ID';
fld_PedidosCliente_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_PedidosCliente_RefreshID_CLIENTE = 'ID_CLIENTE';
fld_PedidosCliente_RefreshUSUARIO = 'USUARIO';
fld_PedidosCliente_RefreshFECHA_PEDIDO = 'FECHA_PEDIDO';
fld_PedidosCliente_RefreshFECHA_CONFIRMACION = 'FECHA_CONFIRMACION';
fld_PedidosCliente_RefreshFECHA_ENTREGA = 'FECHA_ENTREGA';
fld_PedidosCliente_RefreshSITUACION = 'SITUACION';
fld_PedidosCliente_RefreshCALLE = 'CALLE';
fld_PedidosCliente_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_PedidosCliente_RefreshPOBLACION = 'POBLACION';
fld_PedidosCliente_RefreshPROVINCIA = 'PROVINCIA';
fld_PedidosCliente_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PedidosCliente_RefreshTELEFONO = 'TELEFONO';
fld_PedidosCliente_RefreshREFERENCIA = 'REFERENCIA';
fld_PedidosCliente_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosCliente_RefreshINCIDENCIAS = 'INCIDENCIAS';
fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS';
fld_PedidosCliente_RefreshOBSERVACIONES = 'OBSERVACIONES';
fld_PedidosCliente_RefreshNOMBRE = 'NOMBRE';
fld_PedidosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA';
fld_PedidosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ PedidosCliente_Refresh field indexes }
idx_PedidosCliente_RefreshID = 0;
idx_PedidosCliente_RefreshID_EMPRESA = 1;
idx_PedidosCliente_RefreshID_CLIENTE = 2;
idx_PedidosCliente_RefreshUSUARIO = 3;
idx_PedidosCliente_RefreshFECHA_PEDIDO = 4;
idx_PedidosCliente_RefreshFECHA_CONFIRMACION = 5;
idx_PedidosCliente_RefreshFECHA_ENTREGA = 6;
idx_PedidosCliente_RefreshSITUACION = 7;
idx_PedidosCliente_RefreshCALLE = 8;
idx_PedidosCliente_RefreshCODIGO_POSTAL = 9;
idx_PedidosCliente_RefreshPOBLACION = 10;
idx_PedidosCliente_RefreshPROVINCIA = 11;
idx_PedidosCliente_RefreshPERSONA_CONTACTO = 12;
idx_PedidosCliente_RefreshTELEFONO = 13;
idx_PedidosCliente_RefreshREFERENCIA = 14;
idx_PedidosCliente_RefreshIMPORTE_TOTAL = 15;
idx_PedidosCliente_RefreshINCIDENCIAS = 16;
idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 17;
idx_PedidosCliente_RefreshOBSERVACIONES = 18;
idx_PedidosCliente_RefreshNOMBRE = 19;
idx_PedidosCliente_RefreshFECHA_ALTA = 20;
idx_PedidosCliente_RefreshFECHA_MODIFICACION = 21;
type
{ IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{26A9BA44-CCF8-4E68-A653-805B4D676C6C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetFECHA_PEDIDOValue: DateTime;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime);
function GetFECHA_CONFIRMACIONValue: DateTime;
procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
function GetFECHA_ENTREGAValue: DateTime;
procedure SetFECHA_ENTREGAValue(const aValue: DateTime);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetINCIDENCIASValue: IROStrings;
procedure SetINCIDENCIASValue(const aValue: IROStrings);
function GetINCIDENCIAS_ACTIVASValue: Integer;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
function GetOBSERVACIONESValue: IROStrings;
procedure SetOBSERVACIONESValue(const aValue: IROStrings);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
end;
{ TPedidosClienteDataTableRules }
TPedidosClienteDataTableRules = class(TDADataTableRules, IPedidosCliente)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetFECHA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
function GetFECHA_CONFIRMACIONValue: DateTime; virtual;
procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual;
function GetFECHA_ENTREGAValue: DateTime; virtual;
procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetINCIDENCIASValue: IROStrings; virtual;
procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{DB4CFB0E-6822-4A90-A953-5991FA81ED0C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetPOSICIONValue: Integer;
procedure SetPOSICIONValue(const aValue: Integer);
function GetTIPO_DETALLEValue: String;
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCANTIDADValue: Integer;
procedure SetCANTIDADValue(const aValue: Integer);
function GetIMPORTE_UNIDADValue: Float;
procedure SetIMPORTE_UNIDADValue(const aValue: Float);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
end;
{ TPedidosCliente_DetallesDataTableRules }
TPedidosCliente_DetallesDataTableRules = class(TDADataTableRules, IPedidosCliente_Detalles)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADValue: Float; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Float); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPedidosCliente_Refresh }
IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{ED74E087-EAB3-4AF7-A349-E0D4FAAEC732}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetFECHA_PEDIDOValue: DateTime;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime);
function GetFECHA_CONFIRMACIONValue: DateTime;
procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
function GetFECHA_ENTREGAValue: DateTime;
procedure SetFECHA_ENTREGAValue(const aValue: DateTime);
function GetSITUACIONValue: String;
procedure SetSITUACIONValue(const aValue: String);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetINCIDENCIASValue: IROStrings;
procedure SetINCIDENCIASValue(const aValue: IROStrings);
function GetINCIDENCIAS_ACTIVASValue: Integer;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
function GetOBSERVACIONESValue: IROStrings;
procedure SetOBSERVACIONESValue(const aValue: IROStrings);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
end;
{ TPedidosCliente_RefreshDataTableRules }
TPedidosCliente_RefreshDataTableRules = class(TDADataTableRules, IPedidosCliente_Refresh)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetFECHA_PEDIDOValue: DateTime; virtual;
procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual;
function GetFECHA_CONFIRMACIONValue: DateTime; virtual;
procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual;
function GetFECHA_ENTREGAValue: DateTime; virtual;
procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual;
function GetSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetINCIDENCIASValue: IROStrings; virtual;
procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue;
property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants;
{ TPedidosClienteDataTableRules }
constructor TPedidosClienteDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidosClienteDataTableRules.Destroy;
begin
inherited;
end;
function TPedidosClienteDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteID].AsInteger;
end;
procedure TPedidosClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosClienteID].AsInteger := aValue;
end;
function TPedidosClienteDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteID_EMPRESA].AsInteger;
end;
procedure TPedidosClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosClienteID_EMPRESA].AsInteger := aValue;
end;
function TPedidosClienteDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteID_CLIENTE].AsInteger;
end;
procedure TPedidosClienteDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosClienteID_CLIENTE].AsInteger := aValue;
end;
function TPedidosClienteDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteUSUARIO].AsString;
end;
procedure TPedidosClienteDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteUSUARIO].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetFECHA_PEDIDOValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].AsDateTime;
end;
procedure TPedidosClienteDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].AsDateTime := aValue;
end;
function TPedidosClienteDataTableRules.GetFECHA_CONFIRMACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosClienteFECHA_CONFIRMACION].AsDateTime;
end;
procedure TPedidosClienteDataTableRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosClienteFECHA_CONFIRMACION].AsDateTime := aValue;
end;
function TPedidosClienteDataTableRules.GetFECHA_ENTREGAValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosClienteFECHA_ENTREGA].AsDateTime;
end;
procedure TPedidosClienteDataTableRules.SetFECHA_ENTREGAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosClienteFECHA_ENTREGA].AsDateTime := aValue;
end;
function TPedidosClienteDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteSITUACION].AsString;
end;
procedure TPedidosClienteDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteSITUACION].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteCALLE].AsString;
end;
procedure TPedidosClienteDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteCALLE].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].AsString;
end;
procedure TPedidosClienteDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_PedidosClientePOBLACION].AsString;
end;
procedure TPedidosClienteDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClientePOBLACION].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosClientePROVINCIA].AsString;
end;
procedure TPedidosClienteDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClientePROVINCIA].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].AsString;
end;
procedure TPedidosClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteTELEFONO].AsString;
end;
procedure TPedidosClienteDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteTELEFONO].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString;
end;
procedure TPedidosClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].AsFloat;
end;
procedure TPedidosClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPedidosClienteDataTableRules.GetINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PedidosClienteINCIDENCIAS].AsString;
end;
procedure TPedidosClienteDataTableRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PedidosClienteINCIDENCIAS].AsString := aValue.Text;
end;
function TPedidosClienteDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].AsInteger;
end;
procedure TPedidosClienteDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].AsInteger := aValue;
end;
function TPedidosClienteDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PedidosClienteOBSERVACIONES].AsString;
end;
procedure TPedidosClienteDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PedidosClienteOBSERVACIONES].AsString := aValue.Text;
end;
function TPedidosClienteDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteNOMBRE].AsString;
end;
procedure TPedidosClienteDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteNOMBRE].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosClienteFECHA_ALTA].AsDateTime;
end;
procedure TPedidosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosClienteFECHA_ALTA].AsDateTime := aValue;
end;
function TPedidosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].AsDateTime;
end;
procedure TPedidosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].AsDateTime := aValue;
end;
{ TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidosCliente_DetallesDataTableRules.Destroy;
begin
inherited;
end;
function TPedidosCliente_DetallesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesID].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesID].AsInteger := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].AsInteger := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetPOSICIONValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].AsInteger := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetTIPO_DETALLEValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].AsString;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].AsString := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].AsString;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].AsString := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].AsInteger := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsString;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsString := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Float;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].AsFloat;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].AsFloat := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].AsFloat;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPedidosCliente_DetallesDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].AsInteger;
end;
procedure TPedidosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].AsInteger := aValue;
end;
{ TPedidosCliente_RefreshDataTableRules }
constructor TPedidosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPedidosCliente_RefreshDataTableRules.Destroy;
begin
inherited;
end;
function TPedidosCliente_RefreshDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshID].AsInteger;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_RefreshID].AsInteger := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].AsInteger;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].AsInteger := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].AsInteger;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].AsInteger := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetFECHA_PEDIDOValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].AsDateTime;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].AsDateTime := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetFECHA_CONFIRMACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_CONFIRMACION].AsDateTime;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_CONFIRMACION].AsDateTime := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetFECHA_ENTREGAValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ENTREGA].AsDateTime;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_ENTREGAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ENTREGA].AsDateTime := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetSITUACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshCALLE].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshCALLE].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].AsFloat;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin
DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].AsFloat := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].AsString := aValue.Text;
end;
function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].AsInteger;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].AsInteger := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].AsString := aValue.Text;
end;
function TPedidosCliente_RefreshDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].AsString;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].AsString := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].AsDateTime;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].AsDateTime := aValue;
end;
function TPedidosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].AsDateTime;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
end;
initialization
RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules);
RegisterDataTableRules(RID_PedidosCliente_Refresh, TPedidosCliente_RefreshDataTableRules);
end.
Reference in New Issue View Git Blame Copy Permalink