git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@82 c93665c3-c93d-084d-9b98-7d5f4a9c3376
938 lines
44 KiB
ObjectPascal
938 lines
44 KiB
ObjectPascal
unit schInfVentasArticuloServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInfVentasArticuloClient_Intf;
|
|
|
|
const
|
|
{ Delta 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_InfVentasArticuloDelta = '{41CF36F8-6F1E-47E5-A111-BE05FD77D941}';
|
|
|
|
type
|
|
{ IInfVentasArticuloDelta }
|
|
IInfVentasArticuloDelta = interface(IInfVentasArticulo)
|
|
['{41CF36F8-6F1E-47E5-A111-BE05FD77D941}']
|
|
{ Property getters and setters }
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_REFERENCIA_FACTURAValue : String;
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
function GetOldIMPORTE_TOTAL_FACTURAValue : Float;
|
|
function GetOldID_COMISION_FACTURAValue : Integer;
|
|
function GetOldID_ARTICULOValue : Integer;
|
|
function GetOldFAMILIAValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldCOMISIONABLEValue : Integer;
|
|
function GetOldINVENTARIABLEValue : Integer;
|
|
function GetOldPRECIO_COSTEValue : Float;
|
|
function GetOldDESCUENTO_PROVEEDORValue : Float;
|
|
function GetOldPRECIO_NETOValue : Float;
|
|
function GetOldPRECIO_PORTEValue : Float;
|
|
function GetOldCANTIDADValue : Integer;
|
|
function GetOldIMPORTE_UNIDADValue : Float;
|
|
function GetOldDESCUENTO_CLIENTEValue : Float;
|
|
function GetOldIMPORTE_PORTEValue : Float;
|
|
function GetOldIMPORTE_TOTALValue : Float;
|
|
function GetOldNIF_CIF_PROVEEDORValue : String;
|
|
function GetOldNOMBRE_PROVEEDORValue : String;
|
|
function GetOldCALLE_PROVEEDORValue : String;
|
|
function GetOldPOBLACION_PROVEEDORValue : String;
|
|
function GetOldPROVINCIA_PROVEEDORValue : String;
|
|
function GetOldNIF_CIF_CLIENTEValue : String;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
|
|
function GetOldCALLE_CLIENTEValue : String;
|
|
function GetOldPOBLACION_CLIENTEValue : String;
|
|
function GetOldPROVINCIA_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_AGENTEValue : String;
|
|
function GetOldNOMBRE_AGENTEValue : String;
|
|
function GetOldCALLE_AGENTEValue : String;
|
|
function GetOldPOBLACION_AGENTEValue : String;
|
|
function GetOldPROVINCIA_AGENTEValue : String;
|
|
function GetOldCOMISION_AGENTEValue : Float;
|
|
function GetOldIMPORTE_COMISION_AGENTEValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_REFERENCIA_FACTURA : String read GetOldID_REFERENCIA_FACTURAValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldIMPORTE_TOTAL_FACTURA : Float read GetOldIMPORTE_TOTAL_FACTURAValue;
|
|
property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue;
|
|
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
|
|
property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue;
|
|
property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue;
|
|
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
|
property OldIMPORTE_UNIDAD : Float read GetOldIMPORTE_UNIDADValue;
|
|
property OldDESCUENTO_CLIENTE : Float read GetOldDESCUENTO_CLIENTEValue;
|
|
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
|
|
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
|
|
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
|
|
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
|
|
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
|
|
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue;
|
|
property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue;
|
|
property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue;
|
|
property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue;
|
|
property OldIMPORTE_COMISION_AGENTE : Float read GetOldIMPORTE_COMISION_AGENTEValue;
|
|
end;
|
|
|
|
{ TInfVentasArticuloBusinessProcessorRules }
|
|
TInfVentasArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfVentasArticulo, IInfVentasArticuloDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetID_FACTURAValue: Integer; virtual;
|
|
function GetOldID_FACTURAValue: Integer; virtual;
|
|
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetID_REFERENCIA_FACTURAValue: String; virtual;
|
|
function GetOldID_REFERENCIA_FACTURAValue: String; virtual;
|
|
procedure SetID_REFERENCIA_FACTURAValue(const aValue: String); virtual;
|
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetOldFECHA_FACTURAValue: DateTime; virtual;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
function GetIMPORTE_TOTAL_FACTURAValue: Float; virtual;
|
|
function GetOldIMPORTE_TOTAL_FACTURAValue: Float; virtual;
|
|
procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); virtual;
|
|
function GetID_COMISION_FACTURAValue: Integer; virtual;
|
|
function GetOldID_COMISION_FACTURAValue: Integer; virtual;
|
|
procedure SetID_COMISION_FACTURAValue(const aValue: Integer); virtual;
|
|
function GetID_ARTICULOValue: Integer; virtual;
|
|
function GetOldID_ARTICULOValue: Integer; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
function GetOldFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
function GetOldCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
function GetOldINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetPRECIO_COSTEValue: Float; virtual;
|
|
function GetOldPRECIO_COSTEValue: Float; virtual;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual;
|
|
function GetDESCUENTO_PROVEEDORValue: Float; virtual;
|
|
function GetOldDESCUENTO_PROVEEDORValue: Float; virtual;
|
|
procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual;
|
|
function GetPRECIO_NETOValue: Float; virtual;
|
|
function GetOldPRECIO_NETOValue: Float; virtual;
|
|
procedure SetPRECIO_NETOValue(const aValue: Float); virtual;
|
|
function GetPRECIO_PORTEValue: Float; virtual;
|
|
function GetOldPRECIO_PORTEValue: Float; virtual;
|
|
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual;
|
|
function GetCANTIDADValue: Integer; virtual;
|
|
function GetOldCANTIDADValue: Integer; virtual;
|
|
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
|
function GetIMPORTE_UNIDADValue: Float; virtual;
|
|
function GetOldIMPORTE_UNIDADValue: Float; virtual;
|
|
procedure SetIMPORTE_UNIDADValue(const aValue: Float); virtual;
|
|
function GetDESCUENTO_CLIENTEValue: Float; virtual;
|
|
function GetOldDESCUENTO_CLIENTEValue: Float; virtual;
|
|
procedure SetDESCUENTO_CLIENTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_PORTEValue: Float; virtual;
|
|
function GetOldIMPORTE_PORTEValue: Float; virtual;
|
|
procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_TOTALValue: Float; virtual;
|
|
function GetOldIMPORTE_TOTALValue: Float; virtual;
|
|
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
|
function GetNIF_CIF_PROVEEDORValue: String; virtual;
|
|
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
|
|
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNOMBRE_PROVEEDORValue: String; virtual;
|
|
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
|
|
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetCALLE_PROVEEDORValue: String; virtual;
|
|
function GetOldCALLE_PROVEEDORValue: String; virtual;
|
|
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetPOBLACION_PROVEEDORValue: String; virtual;
|
|
function GetOldPOBLACION_PROVEEDORValue: String; virtual;
|
|
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_PROVEEDORValue: String; virtual;
|
|
function GetOldPROVINCIA_PROVEEDORValue: String; virtual;
|
|
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetCALLE_CLIENTEValue: String; virtual;
|
|
function GetOldCALLE_CLIENTEValue: String; virtual;
|
|
procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPOBLACION_CLIENTEValue: String; virtual;
|
|
function GetOldPOBLACION_CLIENTEValue: String; virtual;
|
|
procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_CLIENTEValue: String; virtual;
|
|
function GetOldPROVINCIA_CLIENTEValue: String; virtual;
|
|
procedure SetPROVINCIA_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_AGENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_AGENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_AGENTEValue: String; virtual;
|
|
function GetOldNOMBRE_AGENTEValue: String; virtual;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
|
function GetCALLE_AGENTEValue: String; virtual;
|
|
function GetOldCALLE_AGENTEValue: String; virtual;
|
|
procedure SetCALLE_AGENTEValue(const aValue: String); virtual;
|
|
function GetPOBLACION_AGENTEValue: String; virtual;
|
|
function GetOldPOBLACION_AGENTEValue: String; virtual;
|
|
procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual;
|
|
function GetPROVINCIA_AGENTEValue: String; virtual;
|
|
function GetOldPROVINCIA_AGENTEValue: String; virtual;
|
|
procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual;
|
|
function GetCOMISION_AGENTEValue: Float; virtual;
|
|
function GetOldCOMISION_AGENTEValue: Float; virtual;
|
|
procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual;
|
|
function GetIMPORTE_COMISION_AGENTEValue: Float; virtual;
|
|
function GetOldIMPORTE_COMISION_AGENTEValue: Float; virtual;
|
|
procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); virtual;
|
|
|
|
{ Properties }
|
|
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property ID_REFERENCIA_FACTURA : String read GetID_REFERENCIA_FACTURAValue write SetID_REFERENCIA_FACTURAValue;
|
|
property OldID_REFERENCIA_FACTURA : String read GetOldID_REFERENCIA_FACTURAValue;
|
|
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property IMPORTE_TOTAL_FACTURA : Float read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue;
|
|
property OldIMPORTE_TOTAL_FACTURA : Float read GetOldIMPORTE_TOTAL_FACTURAValue;
|
|
property ID_COMISION_FACTURA : Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue;
|
|
property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue;
|
|
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property PRECIO_COSTE : Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue;
|
|
property DESCUENTO_PROVEEDOR : Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue;
|
|
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
|
|
property PRECIO_NETO : Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue;
|
|
property PRECIO_PORTE : Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
|
|
property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue;
|
|
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
|
|
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
|
property IMPORTE_UNIDAD : Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
|
|
property OldIMPORTE_UNIDAD : Float read GetOldIMPORTE_UNIDADValue;
|
|
property DESCUENTO_CLIENTE : Float read GetDESCUENTO_CLIENTEValue write SetDESCUENTO_CLIENTEValue;
|
|
property OldDESCUENTO_CLIENTE : Float read GetOldDESCUENTO_CLIENTEValue;
|
|
property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
|
|
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
|
|
property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
|
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
|
|
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
|
|
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
|
|
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
|
|
property CALLE_PROVEEDOR : String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
|
|
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
|
|
property POBLACION_PROVEEDOR : String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
|
|
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
|
|
property PROVINCIA_PROVEEDOR : String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
|
|
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
|
|
property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
|
|
property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
|
|
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
|
|
property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
|
|
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
|
|
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property CALLE_AGENTE : String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue;
|
|
property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue;
|
|
property POBLACION_AGENTE : String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue;
|
|
property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue;
|
|
property PROVINCIA_AGENTE : String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue;
|
|
property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue;
|
|
property COMISION_AGENTE : Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue;
|
|
property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue;
|
|
property IMPORTE_COMISION_AGENTE : Float read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue;
|
|
property OldIMPORTE_COMISION_AGENTE : Float read GetOldIMPORTE_COMISION_AGENTEValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers;
|
|
|
|
{ TInfVentasArticuloBusinessProcessorRules }
|
|
constructor TInfVentasArticuloBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TInfVentasArticuloBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_FACTURA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_FACTURA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_EMPRESA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_EMPRESA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetID_REFERENCIA_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldID_REFERENCIA_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetID_REFERENCIA_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFECHA_FACTURA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_FACTURAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_FACTURAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetID_COMISION_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_COMISION_FACTURA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldID_COMISION_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_COMISION_FACTURA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetID_COMISION_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_COMISION_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_ARTICULO];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_ARTICULO];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_ARTICULO] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFAMILIA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloFAMILIA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFAMILIA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloREFERENCIA];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA_PROV];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloREFERENCIA_PROV];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA_PROV] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCRIPCION];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCRIPCION];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISIONABLE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCOMISIONABLE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISIONABLE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloINVENTARIABLE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloINVENTARIABLE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloINVENTARIABLE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_COSTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_COSTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_COSTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_COSTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_COSTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetDESCUENTO_PROVEEDORValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_NETOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_NETO];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_NETOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_NETO];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_NETO] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_PORTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_PORTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_PORTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCANTIDADValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCANTIDAD];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCANTIDADValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCANTIDAD];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCANTIDAD] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_UNIDADValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetDESCUENTO_CLIENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldDESCUENTO_CLIENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetDESCUENTO_CLIENTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_PORTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_PORTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_PORTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_TOTAL];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCALLE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCALLE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetCOMISION_AGENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISION_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldCOMISION_AGENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCOMISION_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetCOMISION_AGENTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISION_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_COMISION_AGENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE];
|
|
end;
|
|
|
|
function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_COMISION_AGENTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE];
|
|
end;
|
|
|
|
procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE] := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_InfVentasArticuloDelta, TInfVentasArticuloBusinessProcessorRules);
|
|
|
|
end.
|