unit schInfVentasArticuloClient_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_InfVentasArticulo = '{016815E5-79DF-4362-8711-65CD3586EA12}'; { Data table names } nme_InfVentasArticulo = 'InfVentasArticulo'; { InfVentasArticulo fields } fld_InfVentasArticuloID_FACTURA = 'ID_FACTURA'; fld_InfVentasArticuloID_EMPRESA = 'ID_EMPRESA'; fld_InfVentasArticuloID_REFERENCIA_FACTURA = 'ID_REFERENCIA_FACTURA'; fld_InfVentasArticuloFECHA_FACTURA = 'FECHA_FACTURA'; fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA = 'IMPORTE_TOTAL_FACTURA'; fld_InfVentasArticuloID_COMISION_FACTURA = 'ID_COMISION_FACTURA'; fld_InfVentasArticuloID_ARTICULO = 'ID_ARTICULO'; fld_InfVentasArticuloFAMILIA = 'FAMILIA'; fld_InfVentasArticuloREFERENCIA = 'REFERENCIA'; fld_InfVentasArticuloREFERENCIA_PROV = 'REFERENCIA_PROV'; fld_InfVentasArticuloDESCRIPCION = 'DESCRIPCION'; fld_InfVentasArticuloCOMISIONABLE = 'COMISIONABLE'; fld_InfVentasArticuloINVENTARIABLE = 'INVENTARIABLE'; fld_InfVentasArticuloPRECIO_COSTE = 'PRECIO_COSTE'; fld_InfVentasArticuloDESCUENTO_PROVEEDOR = 'DESCUENTO_PROVEEDOR'; fld_InfVentasArticuloPRECIO_NETO = 'PRECIO_NETO'; fld_InfVentasArticuloPRECIO_PORTE = 'PRECIO_PORTE'; fld_InfVentasArticuloCANTIDAD = 'CANTIDAD'; fld_InfVentasArticuloIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_InfVentasArticuloDESCUENTO_CLIENTE = 'DESCUENTO_CLIENTE'; fld_InfVentasArticuloIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_InfVentasArticuloIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_InfVentasArticuloNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; fld_InfVentasArticuloNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_InfVentasArticuloCALLE_PROVEEDOR = 'CALLE_PROVEEDOR'; fld_InfVentasArticuloPOBLACION_PROVEEDOR = 'POBLACION_PROVEEDOR'; fld_InfVentasArticuloPROVINCIA_PROVEEDOR = 'PROVINCIA_PROVEEDOR'; fld_InfVentasArticuloNIF_CIF_CLIENTE = 'NIF_CIF_CLIENTE'; fld_InfVentasArticuloNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_InfVentasArticuloCALLE_CLIENTE = 'CALLE_CLIENTE'; fld_InfVentasArticuloPOBLACION_CLIENTE = 'POBLACION_CLIENTE'; fld_InfVentasArticuloPROVINCIA_CLIENTE = 'PROVINCIA_CLIENTE'; fld_InfVentasArticuloNIF_CIF_AGENTE = 'NIF_CIF_AGENTE'; fld_InfVentasArticuloNOMBRE_AGENTE = 'NOMBRE_AGENTE'; fld_InfVentasArticuloCALLE_AGENTE = 'CALLE_AGENTE'; fld_InfVentasArticuloPOBLACION_AGENTE = 'POBLACION_AGENTE'; fld_InfVentasArticuloPROVINCIA_AGENTE = 'PROVINCIA_AGENTE'; fld_InfVentasArticuloCOMISION_AGENTE = 'COMISION_AGENTE'; fld_InfVentasArticuloIMPORTE_COMISION_AGENTE = 'IMPORTE_COMISION_AGENTE'; { InfVentasArticulo field indexes } idx_InfVentasArticuloID_FACTURA = 0; idx_InfVentasArticuloID_EMPRESA = 1; idx_InfVentasArticuloID_REFERENCIA_FACTURA = 2; idx_InfVentasArticuloFECHA_FACTURA = 3; idx_InfVentasArticuloIMPORTE_TOTAL_FACTURA = 4; idx_InfVentasArticuloID_COMISION_FACTURA = 5; idx_InfVentasArticuloID_ARTICULO = 6; idx_InfVentasArticuloFAMILIA = 7; idx_InfVentasArticuloREFERENCIA = 8; idx_InfVentasArticuloREFERENCIA_PROV = 9; idx_InfVentasArticuloDESCRIPCION = 10; idx_InfVentasArticuloCOMISIONABLE = 11; idx_InfVentasArticuloINVENTARIABLE = 12; idx_InfVentasArticuloPRECIO_COSTE = 13; idx_InfVentasArticuloDESCUENTO_PROVEEDOR = 14; idx_InfVentasArticuloPRECIO_NETO = 15; idx_InfVentasArticuloPRECIO_PORTE = 16; idx_InfVentasArticuloCANTIDAD = 17; idx_InfVentasArticuloIMPORTE_UNIDAD = 18; idx_InfVentasArticuloDESCUENTO_CLIENTE = 19; idx_InfVentasArticuloIMPORTE_PORTE = 20; idx_InfVentasArticuloIMPORTE_TOTAL = 21; idx_InfVentasArticuloNIF_CIF_PROVEEDOR = 22; idx_InfVentasArticuloNOMBRE_PROVEEDOR = 23; idx_InfVentasArticuloCALLE_PROVEEDOR = 24; idx_InfVentasArticuloPOBLACION_PROVEEDOR = 25; idx_InfVentasArticuloPROVINCIA_PROVEEDOR = 26; idx_InfVentasArticuloNIF_CIF_CLIENTE = 27; idx_InfVentasArticuloNOMBRE_CLIENTE = 28; idx_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE = 29; idx_InfVentasArticuloCALLE_CLIENTE = 30; idx_InfVentasArticuloPOBLACION_CLIENTE = 31; idx_InfVentasArticuloPROVINCIA_CLIENTE = 32; idx_InfVentasArticuloNIF_CIF_AGENTE = 33; idx_InfVentasArticuloNOMBRE_AGENTE = 34; idx_InfVentasArticuloCALLE_AGENTE = 35; idx_InfVentasArticuloPOBLACION_AGENTE = 36; idx_InfVentasArticuloPROVINCIA_AGENTE = 37; idx_InfVentasArticuloCOMISION_AGENTE = 38; idx_InfVentasArticuloIMPORTE_COMISION_AGENTE = 39; type { IInfVentasArticulo } IInfVentasArticulo = interface(IDAStronglyTypedDataTable) ['{4314FCE5-D87A-4B78-9AB4-CB1FD554B40F}'] { Property getters and setters } function GetID_FACTURAValue: Integer; procedure SetID_FACTURAValue(const aValue: Integer); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetID_REFERENCIA_FACTURAValue: String; procedure SetID_REFERENCIA_FACTURAValue(const aValue: String); function GetFECHA_FACTURAValue: DateTime; procedure SetFECHA_FACTURAValue(const aValue: DateTime); function GetIMPORTE_TOTAL_FACTURAValue: Float; procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); function GetID_COMISION_FACTURAValue: Integer; procedure SetID_COMISION_FACTURAValue(const aValue: Integer); function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); function GetFAMILIAValue: String; procedure SetFAMILIAValue(const aValue: String); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIA_PROVValue: String; procedure SetREFERENCIA_PROVValue(const aValue: String); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); function GetCOMISIONABLEValue: Integer; procedure SetCOMISIONABLEValue(const aValue: Integer); function GetINVENTARIABLEValue: Integer; procedure SetINVENTARIABLEValue(const aValue: Integer); function GetPRECIO_COSTEValue: Float; procedure SetPRECIO_COSTEValue(const aValue: Float); function GetDESCUENTO_PROVEEDORValue: Float; procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); function GetPRECIO_NETOValue: Float; procedure SetPRECIO_NETOValue(const aValue: Float); function GetPRECIO_PORTEValue: Float; procedure SetPRECIO_PORTEValue(const aValue: Float); function GetCANTIDADValue: Integer; procedure SetCANTIDADValue(const aValue: Integer); function GetIMPORTE_UNIDADValue: Float; procedure SetIMPORTE_UNIDADValue(const aValue: Float); function GetDESCUENTO_CLIENTEValue: Float; procedure SetDESCUENTO_CLIENTEValue(const aValue: Float); function GetIMPORTE_PORTEValue: Float; procedure SetIMPORTE_PORTEValue(const aValue: Float); function GetIMPORTE_TOTALValue: Float; procedure SetIMPORTE_TOTALValue(const aValue: Float); function GetNIF_CIF_PROVEEDORValue: String; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); function GetNOMBRE_PROVEEDORValue: String; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); function GetCALLE_PROVEEDORValue: String; procedure SetCALLE_PROVEEDORValue(const aValue: String); function GetPOBLACION_PROVEEDORValue: String; procedure SetPOBLACION_PROVEEDORValue(const aValue: String); function GetPROVINCIA_PROVEEDORValue: String; procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); function GetNIF_CIF_CLIENTEValue: String; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); function GetNOMBRE_CLIENTEValue: String; procedure SetNOMBRE_CLIENTEValue(const aValue: String); function GetNOMBRE_COMERCIAL_CLIENTEValue: String; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); function GetCALLE_CLIENTEValue: String; procedure SetCALLE_CLIENTEValue(const aValue: String); function GetPOBLACION_CLIENTEValue: String; procedure SetPOBLACION_CLIENTEValue(const aValue: String); function GetPROVINCIA_CLIENTEValue: String; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); function GetNIF_CIF_AGENTEValue: String; procedure SetNIF_CIF_AGENTEValue(const aValue: String); function GetNOMBRE_AGENTEValue: String; procedure SetNOMBRE_AGENTEValue(const aValue: String); function GetCALLE_AGENTEValue: String; procedure SetCALLE_AGENTEValue(const aValue: String); function GetPOBLACION_AGENTEValue: String; procedure SetPOBLACION_AGENTEValue(const aValue: String); function GetPROVINCIA_AGENTEValue: String; procedure SetPROVINCIA_AGENTEValue(const aValue: String); function GetCOMISION_AGENTEValue: Float; procedure SetCOMISION_AGENTEValue(const aValue: Float); function GetIMPORTE_COMISION_AGENTEValue: Float; procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); { Properties } property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_REFERENCIA_FACTURA: String read GetID_REFERENCIA_FACTURAValue write SetID_REFERENCIA_FACTURAValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property IMPORTE_TOTAL_FACTURA: Float read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue; property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property DESCUENTO_CLIENTE: Float read GetDESCUENTO_CLIENTEValue write SetDESCUENTO_CLIENTEValue; property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue; property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue; property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue; property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue; property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue; property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue; property IMPORTE_COMISION_AGENTE: Float read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; end; { TInfVentasArticuloDataTableRules } TInfVentasArticuloDataTableRules = class(TDADataTableRules, IInfVentasArticulo) private protected { Property getters and setters } function GetID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetID_REFERENCIA_FACTURAValue: String; virtual; procedure SetID_REFERENCIA_FACTURAValue(const aValue: String); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; function GetIMPORTE_TOTAL_FACTURAValue: Float; virtual; procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); virtual; function GetID_COMISION_FACTURAValue: Integer; virtual; procedure SetID_COMISION_FACTURAValue(const aValue: Integer); virtual; function GetID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVValue: String; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCOMISIONABLEValue: Integer; virtual; procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; function GetINVENTARIABLEValue: Integer; virtual; procedure SetINVENTARIABLEValue(const aValue: Integer); virtual; function GetPRECIO_COSTEValue: Float; virtual; procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; function GetDESCUENTO_PROVEEDORValue: Float; virtual; procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual; function GetPRECIO_NETOValue: Float; virtual; procedure SetPRECIO_NETOValue(const aValue: Float); virtual; function GetPRECIO_PORTEValue: Float; virtual; procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; function GetCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTE_UNIDADValue: Float; virtual; procedure SetIMPORTE_UNIDADValue(const aValue: Float); virtual; function GetDESCUENTO_CLIENTEValue: Float; virtual; procedure SetDESCUENTO_CLIENTEValue(const aValue: Float); virtual; function GetIMPORTE_PORTEValue: Float; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; function GetIMPORTE_TOTALValue: Float; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetNIF_CIF_PROVEEDORValue: String; virtual; procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; function GetCALLE_PROVEEDORValue: String; virtual; procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual; function GetPOBLACION_PROVEEDORValue: String; virtual; procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual; function GetPROVINCIA_PROVEEDORValue: String; virtual; procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual; function GetNIF_CIF_CLIENTEValue: String; virtual; procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual; function GetNOMBRE_CLIENTEValue: String; virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; function GetCALLE_CLIENTEValue: String; virtual; procedure SetCALLE_CLIENTEValue(const aValue: String); virtual; function GetPOBLACION_CLIENTEValue: String; virtual; procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual; function GetPROVINCIA_CLIENTEValue: String; virtual; procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual; function GetNIF_CIF_AGENTEValue: String; virtual; procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual; function GetNOMBRE_AGENTEValue: String; virtual; procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual; function GetCALLE_AGENTEValue: String; virtual; procedure SetCALLE_AGENTEValue(const aValue: String); virtual; function GetPOBLACION_AGENTEValue: String; virtual; procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual; function GetPROVINCIA_AGENTEValue: String; virtual; procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual; function GetCOMISION_AGENTEValue: Float; virtual; procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual; function GetIMPORTE_COMISION_AGENTEValue: Float; virtual; procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); virtual; { Properties } property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_REFERENCIA_FACTURA: String read GetID_REFERENCIA_FACTURAValue write SetID_REFERENCIA_FACTURAValue; property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property IMPORTE_TOTAL_FACTURA: Float read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; property ID_COMISION_FACTURA: Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property DESCUENTO_PROVEEDOR: Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue; property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTE_UNIDAD: Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property DESCUENTO_CLIENTE: Float read GetDESCUENTO_CLIENTEValue write SetDESCUENTO_CLIENTEValue; property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property CALLE_PROVEEDOR: String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue; property POBLACION_PROVEEDOR: String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue; property PROVINCIA_PROVEEDOR: String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue; property NIF_CIF_CLIENTE: String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property CALLE_CLIENTE: String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue; property POBLACION_CLIENTE: String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue; property PROVINCIA_CLIENTE: String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue; property NIF_CIF_AGENTE: String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue; property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue; property CALLE_AGENTE: String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue; property POBLACION_AGENTE: String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue; property PROVINCIA_AGENTE: String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue; property COMISION_AGENTE: Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue; property IMPORTE_COMISION_AGENTE: Float read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants; { TInfVentasArticuloDataTableRules } constructor TInfVentasArticuloDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TInfVentasArticuloDataTableRules.Destroy; begin inherited; end; function TInfVentasArticuloDataTableRules.GetID_FACTURAValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloID_FACTURA].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetID_FACTURAValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloID_FACTURA].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloID_EMPRESA].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloID_EMPRESA].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetID_REFERENCIA_FACTURAValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloID_REFERENCIA_FACTURA].AsString; end; procedure TInfVentasArticuloDataTableRules.SetID_REFERENCIA_FACTURAValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloID_REFERENCIA_FACTURA].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetFECHA_FACTURAValue: DateTime; begin result := DataTable.Fields[idx_InfVentasArticuloFECHA_FACTURA].AsDateTime; end; procedure TInfVentasArticuloDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin DataTable.Fields[idx_InfVentasArticuloFECHA_FACTURA].AsDateTime := aValue; end; function TInfVentasArticuloDataTableRules.GetIMPORTE_TOTAL_FACTURAValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloIMPORTE_TOTAL_FACTURA].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloIMPORTE_TOTAL_FACTURA].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetID_COMISION_FACTURAValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloID_COMISION_FACTURA].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetID_COMISION_FACTURAValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloID_COMISION_FACTURA].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetID_ARTICULOValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloID_ARTICULO].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetID_ARTICULOValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloID_ARTICULO].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetFAMILIAValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloFAMILIA].AsString; end; procedure TInfVentasArticuloDataTableRules.SetFAMILIAValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloFAMILIA].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetREFERENCIAValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloREFERENCIA].AsString; end; procedure TInfVentasArticuloDataTableRules.SetREFERENCIAValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloREFERENCIA].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetREFERENCIA_PROVValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloREFERENCIA_PROV].AsString; end; procedure TInfVentasArticuloDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloREFERENCIA_PROV].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetDESCRIPCIONValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloDESCRIPCION].AsString; end; procedure TInfVentasArticuloDataTableRules.SetDESCRIPCIONValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloDESCRIPCION].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetCOMISIONABLEValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloCOMISIONABLE].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetCOMISIONABLEValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloCOMISIONABLE].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetINVENTARIABLEValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloINVENTARIABLE].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetINVENTARIABLEValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloINVENTARIABLE].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetPRECIO_COSTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloPRECIO_COSTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetPRECIO_COSTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloPRECIO_COSTE].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetDESCUENTO_PROVEEDORValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloDESCUENTO_PROVEEDOR].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloDESCUENTO_PROVEEDOR].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetPRECIO_NETOValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloPRECIO_NETO].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetPRECIO_NETOValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloPRECIO_NETO].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetPRECIO_PORTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloPRECIO_PORTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetPRECIO_PORTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloPRECIO_PORTE].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetCANTIDADValue: Integer; begin result := DataTable.Fields[idx_InfVentasArticuloCANTIDAD].AsInteger; end; procedure TInfVentasArticuloDataTableRules.SetCANTIDADValue(const aValue: Integer); begin DataTable.Fields[idx_InfVentasArticuloCANTIDAD].AsInteger := aValue; end; function TInfVentasArticuloDataTableRules.GetIMPORTE_UNIDADValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloIMPORTE_UNIDAD].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloIMPORTE_UNIDAD].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetDESCUENTO_CLIENTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloDESCUENTO_CLIENTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetDESCUENTO_CLIENTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloDESCUENTO_CLIENTE].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetIMPORTE_PORTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloIMPORTE_PORTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetIMPORTE_PORTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloIMPORTE_PORTE].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetIMPORTE_TOTALValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloIMPORTE_TOTAL].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloIMPORTE_TOTAL].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetNIF_CIF_PROVEEDORValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNIF_CIF_PROVEEDOR].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNIF_CIF_PROVEEDOR].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNOMBRE_PROVEEDORValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNOMBRE_PROVEEDOR].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNOMBRE_PROVEEDOR].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetCALLE_PROVEEDORValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloCALLE_PROVEEDOR].AsString; end; procedure TInfVentasArticuloDataTableRules.SetCALLE_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloCALLE_PROVEEDOR].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPOBLACION_PROVEEDORValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPOBLACION_PROVEEDOR].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPOBLACION_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPOBLACION_PROVEEDOR].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPROVINCIA_PROVEEDORValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPROVINCIA_PROVEEDOR].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPROVINCIA_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPROVINCIA_PROVEEDOR].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNIF_CIF_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNIF_CIF_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNIF_CIF_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNIF_CIF_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNOMBRE_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNOMBRE_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNOMBRE_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetCALLE_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloCALLE_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetCALLE_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloCALLE_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPOBLACION_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPOBLACION_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPOBLACION_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPROVINCIA_CLIENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPROVINCIA_CLIENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPROVINCIA_CLIENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNIF_CIF_AGENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNIF_CIF_AGENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNIF_CIF_AGENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNIF_CIF_AGENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetNOMBRE_AGENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloNOMBRE_AGENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloNOMBRE_AGENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetCALLE_AGENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloCALLE_AGENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetCALLE_AGENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloCALLE_AGENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPOBLACION_AGENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPOBLACION_AGENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPOBLACION_AGENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPOBLACION_AGENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetPROVINCIA_AGENTEValue: String; begin result := DataTable.Fields[idx_InfVentasArticuloPROVINCIA_AGENTE].AsString; end; procedure TInfVentasArticuloDataTableRules.SetPROVINCIA_AGENTEValue(const aValue: String); begin DataTable.Fields[idx_InfVentasArticuloPROVINCIA_AGENTE].AsString := aValue; end; function TInfVentasArticuloDataTableRules.GetCOMISION_AGENTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloCOMISION_AGENTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetCOMISION_AGENTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloCOMISION_AGENTE].AsFloat := aValue; end; function TInfVentasArticuloDataTableRules.GetIMPORTE_COMISION_AGENTEValue: Float; begin result := DataTable.Fields[idx_InfVentasArticuloIMPORTE_COMISION_AGENTE].AsFloat; end; procedure TInfVentasArticuloDataTableRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); begin DataTable.Fields[idx_InfVentasArticuloIMPORTE_COMISION_AGENTE].AsFloat := aValue; end; initialization RegisterDataTableRules(RID_InfVentasArticulo, TInfVentasArticuloDataTableRules); end.