Se pide campo fecha_cobro para las facturas
git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@14 e61cf4a9-ab77-6246-bebb-cff159b4cb7d
This commit is contained in:
parent
8c41fcaa6a
commit
be0a2a767c
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -926,7 +926,8 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
ID_CONTRATO TIPO_ID,
|
||||
SIN_COMISION SMALLINT,
|
||||
SITUACION VARCHAR(255) COLLATE ES_ES,
|
||||
REFERENCIA_PRESUPUESTO VARCHAR(255) COLLATE ES_ES
|
||||
REFERENCIA_PRESUPUESTO VARCHAR(255) COLLATE ES_ES,
|
||||
FECHA_COBRO DATE
|
||||
);
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
@ -2773,7 +2774,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
REF_CLI_CONTRATO,
|
||||
SIN_COMISION,
|
||||
REFERENCIA_PRESUPUESTO,
|
||||
TELEFONO_CLIENTE)
|
||||
TELEFONO_CLIENTE,
|
||||
FECHA_COBRO)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
@ -2826,7 +2828,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
CONTRATOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
FACTURAS_CLIENTE.SIN_COMISION,
|
||||
FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO,
|
||||
CONTACTOS.telefono_1
|
||||
CONTACTOS.telefono_1,
|
||||
FACTURAS_CLIENTE.FECHA_COBRO
|
||||
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
|
||||
@ -44,6 +44,13 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
|
||||
Binary file not shown.
@ -351,6 +351,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Name = 'REFERENCIA_PRESUPUESTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
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_ListaAnosFacturas = '{4FB44137-F728-4E8D-8D74-69487A7AC43A}';
|
||||
RID_FacturasCliente = '{BFB7896A-EEAB-4F0C-9109-BAB209348E84}';
|
||||
RID_FacturasCliente_Detalles = '{7586225E-B066-4C1D-B3C1-D5620D73D814}';
|
||||
RID_ListaAnosFacturas = '{3C8C9440-F7E3-4755-BD1E-A23173A9F92C}';
|
||||
RID_FacturasCliente = '{AEE286AF-3740-4F5B-8D65-F1362D26A3D7}';
|
||||
RID_FacturasCliente_Detalles = '{5984177D-06A4-4A10-89F9-8919F1162664}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -76,6 +76,8 @@ const
|
||||
fld_FacturasClienteREF_CLI_CONTRATO = 'REF_CLI_CONTRATO';
|
||||
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
|
||||
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
|
||||
fld_FacturasClienteTELEFONO_CLIENTE = 'TELEFONO_CLIENTE';
|
||||
fld_FacturasClienteFECHA_COBRO = 'FECHA_COBRO';
|
||||
|
||||
{ FacturasCliente field indexes }
|
||||
idx_FacturasClienteID = 0;
|
||||
@ -129,6 +131,8 @@ const
|
||||
idx_FacturasClienteREF_CLI_CONTRATO = 48;
|
||||
idx_FacturasClienteSIN_COMISION = 49;
|
||||
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 50;
|
||||
idx_FacturasClienteTELEFONO_CLIENTE = 51;
|
||||
idx_FacturasClienteFECHA_COBRO = 52;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -167,7 +171,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{15A2EAF7-43DA-4695-BBFA-DD864D47A79F}']
|
||||
['{30B99999-43BA-49D8-A7FD-00B1D68921F5}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -181,7 +185,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosFacturasDataTableRules }
|
||||
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
|
||||
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -202,7 +206,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{DCCE714A-24FC-4693-A768-AE271A87BD4B}']
|
||||
['{BC559238-5D9F-4692-96F0-0275DE79780A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -407,6 +411,14 @@ type
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
|
||||
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
|
||||
function GetTELEFONO_CLIENTEValue: String;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetFECHA_COBROValue: DateTime;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime);
|
||||
function GetFECHA_COBROIsNull: Boolean;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -512,10 +524,14 @@ type
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteDataTableRules }
|
||||
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
|
||||
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
@ -724,6 +740,14 @@ type
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetTELEFONO_CLIENTEValue: String; virtual;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_COBROValue: DateTime; virtual;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_COBROIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -828,6 +852,10 @@ type
|
||||
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
|
||||
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE: String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull: Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO: DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull: Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -837,7 +865,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{EC03457E-43B2-4E08-A995-24CBF1341748}']
|
||||
['{BB9E9075-143F-4EC9-B4ED-500470F34697}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -935,7 +963,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasCliente_DetallesDataTableRules }
|
||||
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
|
||||
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2164,6 +2192,48 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetTELEFONO_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteTELEFONO_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFECHA_COBROValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFECHA_COBROIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFECHA_COBRO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteFECHA_COBRO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesDataTableRules }
|
||||
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,14 +9,14 @@ 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_ListaAnosFacturasDelta = '{263E7CFE-EAF5-4A59-994D-C319488DE385}';
|
||||
RID_FacturasClienteDelta = '{D73F0972-622D-4F89-A8AC-DC65E3205A58}';
|
||||
RID_FacturasCliente_DetallesDelta = '{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}';
|
||||
RID_ListaAnosFacturasDelta = '{5A534CAA-740E-4DE3-A6D4-25E714DAD424}';
|
||||
RID_FacturasClienteDelta = '{C8710EA1-DBBC-4657-A84B-911C5EF001CA}';
|
||||
RID_FacturasCliente_DetallesDelta = '{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{263E7CFE-EAF5-4A59-994D-C319488DE385}']
|
||||
['{5A534CAA-740E-4DE3-A6D4-25E714DAD424}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{D73F0972-622D-4F89-A8AC-DC65E3205A58}']
|
||||
['{C8710EA1-DBBC-4657-A84B-911C5EF001CA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -103,6 +103,8 @@ type
|
||||
function GetOldREF_CLI_CONTRATOValue : String;
|
||||
function GetOldSIN_COMISIONValue : SmallInt;
|
||||
function GetOldREFERENCIA_PRESUPUESTOValue : String;
|
||||
function GetOldTELEFONO_CLIENTEValue : String;
|
||||
function GetOldFECHA_COBROValue : DateTime;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -156,6 +158,8 @@ type
|
||||
property OldREF_CLI_CONTRATO : String read GetOldREF_CLI_CONTRATOValue;
|
||||
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
|
||||
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
|
||||
property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
|
||||
property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteBusinessProcessorRules }
|
||||
@ -470,6 +474,18 @@ type
|
||||
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetTELEFONO_CLIENTEValue: String; virtual;
|
||||
function GetTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldTELEFONO_CLIENTEValue: String; virtual;
|
||||
function GetOldTELEFONO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONO_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetTELEFONO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_COBROValue: DateTime; virtual;
|
||||
function GetFECHA_COBROIsNull: Boolean; virtual;
|
||||
function GetOldFECHA_COBROValue: DateTime; virtual;
|
||||
function GetOldFECHA_COBROIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_COBROValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_COBROIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -676,6 +692,14 @@ type
|
||||
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
|
||||
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TELEFONO_CLIENTE : String read GetTELEFONO_CLIENTEValue write SetTELEFONO_CLIENTEValue;
|
||||
property TELEFONO_CLIENTEIsNull : Boolean read GetTELEFONO_CLIENTEIsNull write SetTELEFONO_CLIENTEIsNull;
|
||||
property OldTELEFONO_CLIENTE : String read GetOldTELEFONO_CLIENTEValue;
|
||||
property OldTELEFONO_CLIENTEIsNull : Boolean read GetOldTELEFONO_CLIENTEIsNull;
|
||||
property FECHA_COBRO : DateTime read GetFECHA_COBROValue write SetFECHA_COBROValue;
|
||||
property FECHA_COBROIsNull : Boolean read GetFECHA_COBROIsNull write SetFECHA_COBROIsNull;
|
||||
property OldFECHA_COBRO : DateTime read GetOldFECHA_COBROValue;
|
||||
property OldFECHA_COBROIsNull : Boolean read GetOldFECHA_COBROIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -685,7 +709,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{E5E8C1DD-3188-42A6-AA15-C0FD7AC9B68B}']
|
||||
['{C81EEEF0-3BE9-4518-9DF1-7AE844D6F126}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -2533,6 +2557,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetTELEFONO_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldTELEFONO_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTELEFONO_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetTELEFONO_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTELEFONO_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFECHA_COBROIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFECHA_COBROIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_COBRO]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROValue(const aValue: DateTime);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFECHA_COBROIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_COBRO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -251,6 +251,14 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'REFERENCIA_PRESUPUESTO'
|
||||
TableField = 'REFERENCIA_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TELEFONO_CLIENTE'
|
||||
TableField = 'TELEFONO_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_COBRO'
|
||||
TableField = 'FECHA_COBRO'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -533,6 +541,15 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'REFERENCIA_PRESUPUESTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1141,6 +1158,11 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1157,17 +1179,17 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
|
||||
'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
|
||||
','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
|
||||
'N,'#10' REFERENCIA_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRE' +
|
||||
'SA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,' +
|
||||
#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' +
|
||||
' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE' +
|
||||
'_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :' +
|
||||
'NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_' +
|
||||
'POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,' +
|
||||
#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,' +
|
||||
#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10 +
|
||||
' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACION,'#10' :REFERE' +
|
||||
'NCIA_PRESUPUESTO);'#10
|
||||
'N,'#10' REFERENCIA_PRESUPUESTO,'#10' FECHA_COBRO)'#10' VALUES ('#10' :' +
|
||||
'ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :F' +
|
||||
'ECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPO' +
|
||||
'RTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE' +
|
||||
'_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' ' +
|
||||
' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVIN' +
|
||||
'CIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' ' +
|
||||
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' +
|
||||
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,' +
|
||||
#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUA' +
|
||||
'CION,'#10' :REFERENCIA_PRESUPUESTO,'#10' :FECHA_COBRO);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1345,6 +1367,11 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_COBRO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1371,7 +1398,8 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
|
||||
'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
|
||||
'MISION,'#10' SITUACION = :SITUACION,'#10' REFERENCIA_PRESUPUESTO =' +
|
||||
' :REFERENCIA_PRESUPUESTO'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
' :REFERENCIA_PRESUPUESTO,'#10' FECHA_COBRO = :FECHA_COBRO'#10' WHERE' +
|
||||
#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 849
|
||||
Height = 552
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,17 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 849
|
||||
Height = 552
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
849
|
||||
552)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -64,7 +66,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 135
|
||||
Top = 162
|
||||
Top = 189
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
@ -92,22 +94,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 297
|
||||
Top = 162
|
||||
Top = 189
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
Enabled = False
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 296
|
||||
Top = 323
|
||||
Width = 351
|
||||
Height = 48
|
||||
Enabled = False
|
||||
@ -117,10 +119,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 296
|
||||
ExplicitTop = 323
|
||||
ExplicitWidth = 351
|
||||
ExplicitHeight = 48
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -150,7 +152,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 457
|
||||
ExplicitTop = 30
|
||||
@ -182,12 +184,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 192
|
||||
ExplicitLeft = 192
|
||||
Left = 278
|
||||
ExplicitLeft = 278
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
Left = 168
|
||||
ExplicitLeft = 168
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -197,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 135
|
||||
Top = 191
|
||||
Top = 218
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -218,12 +220,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 310
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
Left = 22
|
||||
Top = 425
|
||||
Top = 452
|
||||
Width = 521
|
||||
Height = 20
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -232,10 +234,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 425
|
||||
ExplicitTop = 452
|
||||
ExplicitHeight = 20
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
@ -246,7 +248,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 22
|
||||
Top = 374
|
||||
Top = 401
|
||||
Caption = ' No acogida a comisiones'
|
||||
DataBinding.DataField = 'SIN_COMISION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -272,7 +274,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 158
|
||||
end
|
||||
object edtSituacion: TcxDBComboBox
|
||||
@ -290,7 +292,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object edtRefContrato: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 242
|
||||
Top = 269
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REF_CONTRATO'
|
||||
@ -307,13 +309,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Height = 21
|
||||
Width = 294
|
||||
end
|
||||
object edtRefClienteContrato: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 269
|
||||
Top = 296
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REF_CLI_CONTRATO'
|
||||
@ -330,7 +332,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Height = 21
|
||||
Width = 294
|
||||
end
|
||||
@ -354,6 +356,27 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
TabOrder = 2
|
||||
Width = 294
|
||||
end
|
||||
object edtFechaCobro: TcxDBDateEdit
|
||||
Left = 135
|
||||
Top = 138
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_COBRO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 294
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -393,6 +416,11 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Control = edtSituacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
Caption = 'Fecha de cobro:'
|
||||
Control = edtFechaCobro
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Caption = 'Forma de pago'
|
||||
|
||||
@ -66,6 +66,8 @@ type
|
||||
edtRefClienteContrato: TcxDBTextEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
edtReferenciaPresupuesto: TcxDBTextEdit;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
edtFechaCobro: TcxDBDateEdit;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
|
||||
@ -45,10 +45,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Width = 69
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 32
|
||||
end
|
||||
object cxGridViewFECHA_FACTURA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FECHA_FACTURA'
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
@ -56,6 +52,14 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
SortOrder = soDescending
|
||||
Width = 28
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 32
|
||||
end
|
||||
object cxGridViewFECHA_COBRO: TcxGridDBColumn
|
||||
Caption = 'Fecha de cobro'
|
||||
DataBinding.FieldName = 'FECHA_COBRO'
|
||||
end
|
||||
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
|
||||
Caption = 'Ref. presupuesto'
|
||||
DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
|
||||
|
||||
@ -63,6 +63,7 @@ type
|
||||
cxGridViewREF_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
|
||||
cxGridViewREF_CLI_CONTRATO: TcxGridDBColumn;
|
||||
cxGridViewFECHA_COBRO: TcxGridDBColumn;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user