Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #393 -> Mostrar la caja contable en la lista de recibos de cliente.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@520 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2010-06-22 15:12:36 +00:00
parent e04a70f555
commit 4ecbf9930e
13 changed files with 206 additions and 307 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -68,25 +68,28 @@ function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const F
una devolución devolvemos false} una devolución devolvemos false}
begin begin
APagosCliente.Append; APagosCliente.Append;
if Length(Fecha) = 0 then try
APagosCliente.FECHA_PAGO := Date if Length(Fecha) = 0 then
else APagosCliente.FECHA_PAGO := Date
APagosCliente.FECHA_PAGO := StrToDate(Fecha); else
APagosCliente.FECHA_PAGO := StrToDate(Fecha);
if (APagosCliente.DataTable.RecordCount = 0) if (APagosCliente.DataTable.RecordCount = 0)
or ((APagosCliente.DataTable.RecordCount mod 2) = 0) then or ((APagosCliente.DataTable.RecordCount mod 2) = 0) then
APagosCliente.TIPO := CTE_PAGO APagosCliente.TIPO := CTE_PAGO
else else
APagosCliente.TIPO := CTE_DEVOLUCION; APagosCliente.TIPO := CTE_DEVOLUCION;
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta); APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO; APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
APagosCliente.ASIENTO_PUNTEADO := -1; APagosCliente.ASIENTO_PUNTEADO := -1;
Result := (APagosCliente.TIPO = CTE_PAGO); Result := (APagosCliente.TIPO = CTE_PAGO);
APagosCliente.Post; finally
APagosCliente.Post;
end;
end; end;
procedure TPagosClienteController.AsignarDataModule; procedure TPagosClienteController.AsignarDataModule;

17
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Top = 24 Top = 24
end end
object rda_RecibosCliente: TDARemoteDataAdapter object rda_RecibosCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 59 Left = 59
Top = 151 Top = 151
end end
@ -141,8 +141,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
MasterSource = ds_RecibosCliente MasterSource = ds_RecibosCliente
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_RECIBO' DetailFields = 'ID_RECIBO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PagosCliente' LogicalName = 'PagosCliente'
IndexDefs = <> IndexDefs = <>
Left = 288 Left = 288
@ -383,12 +381,17 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DisplayLabel = 'RecibosCliente_TIENDA' DisplayLabel = 'RecibosCliente_TIENDA'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA' DictionaryEntry = 'RecibosCliente_TIENDA'
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
ReadOnly = True
ServerAutoRefresh = True
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RecibosCliente RemoteDataAdapter = rda_RecibosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCliente' LogicalName = 'RecibosCliente'
IndexDefs = <> IndexDefs = <>
Left = 168 Left = 168
@ -580,8 +583,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
MasterSource = ds_RecibosCliente MasterSource = ds_RecibosCliente
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_RECIBO_COMPENSADO' DetailFields = 'ID_RECIBO_COMPENSADO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'RecibosCompensadosCli' LogicalName = 'RecibosCompensadosCli'
IndexDefs = <> IndexDefs = <>
Left = 416 Left = 416
@ -604,8 +605,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_RecibosCliente RemoteDataAdapter = rda_RecibosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosRecibos' LogicalName = 'ListaAnosRecibos'
IndexDefs = <> IndexDefs = <>
Left = 176 Left = 176

53
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{A4BD1210-5CBF-4C09-A950-5AF7715B5F66}'; RID_ListaAnosRecibos = '{D4594CA2-99F7-4973-98CA-227B633D3DF1}';
RID_RecibosCliente = '{3AECC812-56FF-44BB-82FB-4C9B64C9A01D}'; RID_RecibosCliente = '{92D5B2CF-0050-4455-B710-94F03852A421}';
RID_PagosCliente = '{6C5A18AF-C970-40C4-B34F-84AE2A6D3AE9}'; RID_PagosCliente = '{9657C9BE-7AB9-49D3-B87F-8C46DF5652B1}';
RID_RecibosCompensadosCli = '{8C5D4976-0E53-4B19-A977-9BC2C95291EE}'; RID_RecibosCompensadosCli = '{8A8B0D8F-8F3C-47CC-A23B-3E040D662224}';
{ Data table names } { Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos'; nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -63,6 +63,7 @@ const
fld_RecibosClienteUSUARIO = 'USUARIO'; fld_RecibosClienteUSUARIO = 'USUARIO';
fld_RecibosClienteID_TIENDA = 'ID_TIENDA'; fld_RecibosClienteID_TIENDA = 'ID_TIENDA';
fld_RecibosClienteTIENDA = 'TIENDA'; fld_RecibosClienteTIENDA = 'TIENDA';
fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE';
{ RecibosCliente field indexes } { RecibosCliente field indexes }
idx_RecibosClienteID = 0; idx_RecibosClienteID = 0;
@ -101,6 +102,7 @@ const
idx_RecibosClienteUSUARIO = 33; idx_RecibosClienteUSUARIO = 33;
idx_RecibosClienteID_TIENDA = 34; idx_RecibosClienteID_TIENDA = 34;
idx_RecibosClienteTIENDA = 35; idx_RecibosClienteTIENDA = 35;
idx_RecibosClienteCUENTA_CONTABLE = 36;
{ PagosCliente fields } { PagosCliente fields }
fld_PagosClienteID = 'ID'; fld_PagosClienteID = 'ID';
@ -221,7 +223,7 @@ const
type type
{ IListaAnosRecibos } { IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable) IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{CE2FC543-F272-4EA2-9037-E30A840F8203}'] ['{89684F4E-822E-4DFF-8F1F-9F7F8FC6CF69}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -256,7 +258,7 @@ type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{A2D953EF-CA61-4ADD-821E-78B3B8732A3B}'] ['{378F80AE-758E-4936-87BD-BE5C9B4B2D8D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -402,6 +404,10 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetCUENTA_CONTABLEValue: String;
procedure SetCUENTA_CONTABLEValue(const aValue: String);
function GetCUENTA_CONTABLEIsNull: Boolean;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -477,6 +483,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
end; end;
{ TRecibosClienteDataTableRules } { TRecibosClienteDataTableRules }
@ -628,6 +636,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -702,6 +714,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -711,7 +725,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{50F7365A-2441-42A9-9738-EC5594AFE4F9}'] ['{9BF1B3A2-CF9D-48CF-A83B-007A8E2E6EC8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -950,7 +964,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{C7CF1A51-A951-435B-B7BB-78AD988872D7}'] ['{9E161737-BD9D-4B88-9D1C-406B79CAB392}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2207,6 +2221,27 @@ begin
DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null; DataTable.Fields[idx_RecibosClienteTIENDA].AsVariant := Null;
end; end;
function TRecibosClienteDataTableRules.GetCUENTA_CONTABLEValue: String;
begin
result := DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsString;
end;
procedure TRecibosClienteDataTableRules.SetCUENTA_CONTABLEValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsString := aValue;
end;
function TRecibosClienteDataTableRules.GetCUENTA_CONTABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].IsNull;
end;
procedure TRecibosClienteDataTableRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null;
end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);

59
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{8FC2C837-6926-4F14-B052-06BF6AB3BF38}'; RID_ListaAnosRecibosDelta = '{A9C64564-057C-47BC-BE2A-C75A7AEEA9F4}';
RID_RecibosClienteDelta = '{1C641E43-0B1A-4136-AAA2-0F6B13C52F34}'; RID_RecibosClienteDelta = '{51C4E379-5E80-49A6-B12B-DC533DE395F6}';
RID_PagosClienteDelta = '{3F9F91B7-5517-4927-919B-EE09DD7EDB9A}'; RID_PagosClienteDelta = '{C1E13437-5B6F-4631-BBB1-B6E0B0DC9917}';
RID_RecibosCompensadosCliDelta = '{60B42F56-C470-481C-8665-D924F758ABE4}'; RID_RecibosCompensadosCliDelta = '{7CD54669-7326-496F-B849-C800EE0404F2}';
type type
{ IListaAnosRecibosDelta } { IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos) IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{8FC2C837-6926-4F14-B052-06BF6AB3BF38}'] ['{A9C64564-057C-47BC-BE2A-C75A7AEEA9F4}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{1C641E43-0B1A-4136-AAA2-0F6B13C52F34}'] ['{51C4E379-5E80-49A6-B12B-DC533DE395F6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -89,6 +89,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldCUENTA_CONTABLEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -127,6 +128,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
end; end;
{ TRecibosClienteBusinessProcessorRules } { TRecibosClienteBusinessProcessorRules }
@ -350,6 +352,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetCUENTA_CONTABLEValue: String; virtual;
function GetCUENTA_CONTABLEIsNull: Boolean; virtual;
function GetOldCUENTA_CONTABLEValue: String; virtual;
function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual;
procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual;
procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -496,6 +504,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property CUENTA_CONTABLE : String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue;
property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull;
property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue;
property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -505,7 +517,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{3F9F91B7-5517-4927-919B-EE09DD7EDB9A}'] ['{C1E13437-5B6F-4631-BBB1-B6E0B0DC9917}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -743,7 +755,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{60B42F56-C470-481C-8665-D924F758ABE4}'] ['{7CD54669-7326-496F-B849-C800EE0404F2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -2370,6 +2382,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteTIENDA] := Null;
end; end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE];
end;
function TRecibosClienteBusinessProcessorRules.GetCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE]);
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CONTABLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CONTABLE];
end;
function TRecibosClienteBusinessProcessorRules.GetOldCUENTA_CONTABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteCUENTA_CONTABLE]);
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CONTABLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := aValue;
end;
procedure TRecibosClienteBusinessProcessorRules.SetCUENTA_CONTABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null;
end;
{ TPagosClienteBusinessProcessorRules } { TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

63
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -39,6 +39,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>
ReadOnly = True
end end
item item
Params = <> Params = <>
@ -46,7 +47,15 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE' TargetTable = 'V_RECIBOS_CLIENTE'
StatementType = stAutoSQL SQL =
'select v_recibos_cliente.*, cont_subcuentas.descripcion as CUENT' +
'A_CONTABLE'#10'from v_recibos_cliente'#10' left outer join pagos_clie' +
'nte pag on'#10' (pag.id_recibo = v_recibos_cliente.id)'#10' le' +
'ft outer join pagos_cliente pag2 on'#10' ((pag2.id_recibo = p' +
'ag.id_recibo) and (pag2.id > pag.id))'#10' left outer join cont_s' +
'ubcuentas on'#10' (cont_subcuentas.id = pag.cuenta)'#10'where (pa' +
'g2.id is null) and {Where}'#10
StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'ID' DatasetField = 'ID'
@ -191,6 +200,11 @@ object srvRecibosCliente: TsrvRecibosCliente
item item
DatasetField = 'PROVINCIA' DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA' TableField = 'PROVINCIA'
end
item
DatasetField = 'CUENTA_CONTABLE'
TableField = '<unknown>'
SQLOrigin = 'CUENTA_CONTABLE'
end> end>
end> end>
Name = 'RecibosCliente' Name = 'RecibosCliente'
@ -402,6 +416,13 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA' DictionaryEntry = 'RecibosCliente_TIENDA'
end
item
Name = 'CUENTA_CONTABLE'
DataType = datString
Size = 255
LogChanges = False
ReadOnly = True
end> end>
end end
item item
@ -1054,11 +1075,12 @@ object srvRecibosCliente: TsrvRecibosCliente
'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' + 'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' +
'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + 'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' + 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL)' + 'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,' +
#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :REFE' + #10' FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :I' +
'RENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSER' + 'D_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DES' +
'VACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NO' + 'CRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO,' +
'MBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10 ' :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, ' +
':CODIGO_POSTAL,'#10' current_timestamp)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1161,7 +1183,7 @@ object srvRecibosCliente: TsrvRecibosCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE' TargetTable = 'RECIBOS_CLIENTE'
SQL = SQL =
'UPDATE Recibos_CLIENTE'#10' SET '#10' ID_REMESA = :ID_REMESA,'#10' ID' + 'UPDATE RECIBOS_CLIENTE'#10' SET '#10' ID_REMESA = :ID_REMESA,'#10' ID' +
'_EMPRESA = :ID_EMPRESA,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' FECHA_' + '_EMPRESA = :ID_EMPRESA,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' FECHA_' +
'EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMI' + 'EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMI' +
'ENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :OBSER' + 'ENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :OBSER' +
@ -1169,7 +1191,8 @@ object srvRecibosCliente: TsrvRecibosCliente
'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMB' + 'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMB' +
'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' + 'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' + 'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
'TAL = :CODIGO_POSTAL'#10' WHERE'#10' (ID = :OLD_ID)'#10 'TAL = :CODIGO_POSTAL,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP' +
#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1230,9 +1253,9 @@ object srvRecibosCliente: TsrvRecibosCliente
SQL = SQL =
'INSERT'#10' INTO PAGOS_CLIENTE'#10' (ID, ID_RECIBO, TIPO, FECHA_PAGO' + 'INSERT'#10' INTO PAGOS_CLIENTE'#10' (ID, ID_RECIBO, TIPO, FECHA_PAGO' +
', TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO, IGNORAR' + ', TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO, IGNORAR' +
'_CONTABILIDAD)'#10' VALUES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO' + '_CONTABILIDAD,'#10' FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_RECIBO, :' +
', :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO, :' + 'TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC, :CU' +
'IGNORAR_CONTABILIDAD)'#10 'ENTA, :USUARIO, :IGNORAR_CONTABILIDAD,'#10' CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1311,7 +1334,8 @@ object srvRecibosCliente: TsrvRecibosCliente
'ECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' TI' + 'ECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' TI' +
'TULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SUCU' + 'TULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SUCU' +
'RSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA,'#10' IGNORAR_CONTABIL' + 'RSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA,'#10' IGNORAR_CONTABIL' +
'IDAD = :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID = :OLD_ID)'#10 'IDAD = :IGNORAR_CONTABILIDAD,'#10' FECHA_MODIFICACION = CURRENT_T' +
'IMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1332,8 +1356,9 @@ object srvRecibosCliente: TsrvRecibosCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE' TargetTable = 'RECIBOS_CLIENTE'
SQL = SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' + 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = :ID_REC' +
'PENSADO'#10'WHERE (ID = :ID)' 'IBO_COMPENSADO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WH' +
'ERE (ID = :ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1350,8 +1375,9 @@ object srvRecibosCliente: TsrvRecibosCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE' TargetTable = 'RECIBOS_CLIENTE'
SQL = SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = Null'#10'WHERE (ID' + 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = NULL,'#10' ' +
' = :OLD_ID)' ' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WHERE (ID = :OLD_ID' +
')'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1372,8 +1398,9 @@ object srvRecibosCliente: TsrvRecibosCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE' TargetTable = 'RECIBOS_CLIENTE'
SQL = SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' + 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = :ID_REC' +
'PENSADO'#10'WHERE (ID = :OLD_ID)' 'IBO_COMPENSADO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WH' +
'ERE (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

106
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -95,102 +95,58 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
871 871
303) 303)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Left = 326 Left = 326
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 326 ExplicitLeft = 326
ExplicitWidth = 67 ExplicitWidth = 67
Width = 67 Width = 67
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataField = 'FECHA_EMISION'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 62 ExplicitWidth = 62
Width = 62 Width = 62
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
@ -201,10 +157,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 201 Width = 201
ExplicitWidth = 201 ExplicitWidth = 201
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 181 ExplicitWidth = 181
Width = 181 Width = 181
end end
@ -224,56 +176,32 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 153
Width = 153 Width = 153
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 228 Left = 228
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 228
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -281,10 +209,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitLeft = 118 ExplicitLeft = 118
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
@ -297,6 +221,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitHeight = 150 ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 462
ExplicitHeight = 126
Height = 150 Height = 150
Width = 521 Width = 521
end end
@ -389,7 +315,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 871 Width = 871
Height = 278 Height = 278
ExplicitWidth = 871 ExplicitWidth = 871
ExplicitHeight = 308 ExplicitHeight = 278
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -403,18 +329,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 871 Width = 871
ExplicitWidth = 871 ExplicitWidth = 871
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end
@ -447,25 +361,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end

18
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -161,8 +161,7 @@ begin
(Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + Recibo.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then (Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + Recibo.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
begin begin
with TfEditorFechaPago.Create(Nil) do with TfEditorFechaPago.Create(Nil) do
begin try
//En el caso de que el cliente del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse //En el caso de que el cliente del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse
if (Recibo.Cliente.SubCuentas.ID < 1) then if (Recibo.Cliente.SubCuentas.ID < 1) then
begin begin
@ -175,14 +174,9 @@ begin
AFechaPago := DateToStr(FechaPago); AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad; AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta; ASubCuenta := IdSubcuenta;
Release;
end end
else finally
begin Release;
//Operación cancelada
Release;
exit;
end;
end; end;
end; end;
@ -194,7 +188,7 @@ begin
else else
HabilitarRecibo; HabilitarRecibo;
frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast; frViewPagosCliente1.ListaPagosClienteDBTableView1.DataController.GotoLast;
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
@ -251,7 +245,7 @@ begin
inherited; inherited;
with TfEditorFechaPago.Create(Nil) do with TfEditorFechaPago.Create(Nil) do
begin try
FechaPago := Recibo.Pagos.FECHA_PAGO; FechaPago := Recibo.Pagos.FECHA_PAGO;
IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD; IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
if IgnorarContabilidad = 0 then if IgnorarContabilidad = 0 then
@ -285,7 +279,7 @@ begin
if not SoloLectura then if not SoloLectura then
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta); FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
finally
Release; Release;
end; end;

1
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -158,6 +158,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn object ListaPagosClienteDBTableView1CUENTA: TcxGridDBColumn
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
VisibleForCustomization = False
end end
end end
object ListaPagosClienteLevel1: TcxGridLevel object ListaPagosClienteLevel1: TcxGridLevel

47
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -1,11 +1,11 @@
inherited frViewRecibosCliente: TfrViewRecibosCliente inherited frViewRecibosCliente: TfrViewRecibosCliente
Width = 531 Width = 686
Height = 387 Height = 445
ExplicitWidth = 531 ExplicitWidth = 686
ExplicitHeight = 387 ExplicitHeight = 445
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 531 Width = 686
Height = 259 Height = 317
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 531 ExplicitWidth = 531
@ -193,6 +193,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
DataBinding.FieldName = 'CODIGO_POSTAL' DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False Visible = False
end end
object cxGridViewCUENTA_CONTABLE: TcxGridDBColumn
Caption = 'Cuenta contable'
DataBinding.FieldName = 'CUENTA_CONTABLE'
PropertiesClassName = 'TcxTextEditProperties'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -208,60 +213,48 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 531 Width = 686
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 531 ExplicitWidth = 531
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 686
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 183 ExplicitWidth = 183
Width = 183 Width = 183
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 287 Left = 367
Style.LookAndFeel.SkinName = '' ExplicitLeft = 367
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 287
ExplicitWidth = 234 ExplicitWidth = 234
Width = 234 Width = 234
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 686
ExplicitWidth = 531 ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 521 Width = 676
ExplicitWidth = 521 ExplicitWidth = 521
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 361 Top = 419
Visible = True Visible = True
ExplicitTop = 361 ExplicitTop = 361
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 686
ExplicitWidth = 531 ExplicitWidth = 531
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 521 Width = 676
ExplicitWidth = 521 ExplicitWidth = 521
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end

1
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -57,6 +57,7 @@ type
cxGridViewPOBLACION: TcxGridDBColumn; cxGridViewPOBLACION: TcxGridDBColumn;
cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

99
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -61,6 +61,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 685
Height = 323 Height = 323
ActivePage = pagPagos
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 323 ExplicitHeight = 323
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -93,101 +94,57 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
677 677
295) 295)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Left = 228 Left = 228
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 228
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited rReferenciaFacturaProv: TcxDBTextEdit inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
@ -198,29 +155,17 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 112 Width = 112
ExplicitWidth = 112 ExplicitWidth = 112
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
end end
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 384 Left = 384
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 384
ExplicitWidth = 255 ExplicitWidth = 255
Width = 255 Width = 255
@ -239,56 +184,32 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 282 Left = 282
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 282 ExplicitLeft = 282
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -296,10 +217,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitLeft = 166 ExplicitLeft = 166
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
end end
@ -312,8 +229,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitHeight = 150 ExplicitHeight = 150
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboProveedor1.DADataSource DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 226
ExplicitHeight = 129
Height = 150 Height = 150
Width = 521 Width = 521
end end
@ -467,25 +382,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 150 ExplicitWidth = 150
Width = 150 Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eImporteTotalRecibo: TcxCurrencyEdit inherited eImporteTotalRecibo: TcxCurrencyEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 315 ExplicitWidth = 315
Width = 315 Width = 315
end end

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -112,8 +112,6 @@ uses
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@ -136,7 +134,9 @@ uses
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas'; schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,4,3,0 FILEVERSION 2,4,4,0
PRODUCTVERSION 2,4,3,0 PRODUCTVERSION 2,4,4,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.4.3.0\0" VALUE "FileVersion", "2.4.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.3.0\0" VALUE "ProductVersion", "2.4.4.0\0"
VALUE "CompileDate", "jueves, 17 de junio de 2010 13:21\0" VALUE "CompileDate", "lunes, 21 de junio de 2010 10:29\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"