diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 5a38cf8..491b7fb 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 3aa7c45..da4c572 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -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
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 426db58..a0c3f23 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339..8b251f3 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 9ab609b..edb540c 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -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]
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index fd776c0..ace16b4 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -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);
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index fb6f771..18ee27b 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -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);
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 978df4d..794083a 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -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>
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index 526aa2c..10ec2dd 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -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'
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index 4132821..9322b7f 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -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);
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
index ebc84b8..27b85f4 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
@@ -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'
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
index b932b31..471341d 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
@@ -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);
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index bb7359e..171007a 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ