Arreglo de recibos de cliente para que coja los datos del cliente de la factura asociada
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@55 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
01bf48dff3
commit
c44470d4e8
@ -10,12 +10,12 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
Top = 24
|
||||
end
|
||||
object rda_RecibosCliente: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 59
|
||||
Top = 151
|
||||
end
|
||||
@ -115,8 +115,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
MasterSource = ds_RecibosCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_RECIBO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'PagosCliente'
|
||||
IndexDefs = <>
|
||||
Left = 288
|
||||
@ -300,12 +298,30 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DictionaryEntry = 'RecibosCliente_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'ENTIDAD'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end
|
||||
item
|
||||
Name = 'SUCURSAL'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end
|
||||
item
|
||||
Name = 'DC'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_RecibosCliente
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'RecibosCliente'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
@ -463,8 +479,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
MasterSource = ds_RecibosCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_RECIBO_COMPENSADO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'RecibosCompensadosCli'
|
||||
IndexDefs = <>
|
||||
Left = 416
|
||||
@ -487,8 +501,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_RecibosCliente
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'ListaAnosRecibos'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
|
||||
@ -3,16 +3,16 @@ unit schRecibosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, 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_ListaAnosRecibos = '{85D6A88E-F93C-4EBD-856B-E3DD70661B8C}';
|
||||
RID_RecibosCliente = '{7AEE1847-3690-481E-AA36-7DD34941DAE0}';
|
||||
RID_PagosCliente = '{24604449-C6ED-4543-A84E-A9084B86E5EA}';
|
||||
RID_RecibosCompensadosCli = '{3198778B-C101-4E4C-94B1-A5B6EE3FB400}';
|
||||
RID_ListaAnosRecibos = '{F0EF45A4-9D97-4FE8-8CC2-3EF9F94F6628}';
|
||||
RID_RecibosCliente = '{162F780C-4D8B-412A-9DE3-FE73CBEBDB5A}';
|
||||
RID_PagosCliente = '{48DF1309-C3D6-4B75-AF08-105A3BC3F928}';
|
||||
RID_RecibosCompensadosCli = '{81DC46A4-8282-4FF6-B72C-50760325DC89}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosRecibos = 'ListaAnosRecibos';
|
||||
@ -57,6 +57,10 @@ const
|
||||
fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
|
||||
fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
||||
fld_RecibosClienteUSUARIO = 'USUARIO';
|
||||
fld_RecibosClienteENTIDAD = 'ENTIDAD';
|
||||
fld_RecibosClienteSUCURSAL = 'SUCURSAL';
|
||||
fld_RecibosClienteDC = 'DC';
|
||||
fld_RecibosClienteCUENTA = 'CUENTA';
|
||||
|
||||
{ RecibosCliente field indexes }
|
||||
idx_RecibosClienteID = 0;
|
||||
@ -89,6 +93,10 @@ const
|
||||
idx_RecibosClienteFECHA_ALTA = 27;
|
||||
idx_RecibosClienteFECHA_MODIFICACION = 28;
|
||||
idx_RecibosClienteUSUARIO = 29;
|
||||
idx_RecibosClienteENTIDAD = 30;
|
||||
idx_RecibosClienteSUCURSAL = 31;
|
||||
idx_RecibosClienteDC = 32;
|
||||
idx_RecibosClienteCUENTA = 33;
|
||||
|
||||
{ PagosCliente fields }
|
||||
fld_PagosClienteID = 'ID';
|
||||
@ -185,7 +193,7 @@ const
|
||||
type
|
||||
{ IListaAnosRecibos }
|
||||
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
|
||||
['{CB0E282C-8761-42F7-A898-261F109FAE48}']
|
||||
['{C14A6067-4859-4033-AC4C-288F32393E97}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -199,7 +207,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosRecibosDataTableRules }
|
||||
TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
|
||||
TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -220,7 +228,7 @@ type
|
||||
|
||||
{ IRecibosCliente }
|
||||
IRecibosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{76F7C244-A129-4A30-90CF-2CA8C4B52CAD}']
|
||||
['{748631EC-3715-470F-A921-467E3ADAB5F5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -342,6 +350,22 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String);
|
||||
function GetUSUARIOIsNull: Boolean;
|
||||
procedure SetUSUARIOIsNull(const aValue: Boolean);
|
||||
function GetENTIDADValue: String;
|
||||
procedure SetENTIDADValue(const aValue: String);
|
||||
function GetENTIDADIsNull: Boolean;
|
||||
procedure SetENTIDADIsNull(const aValue: Boolean);
|
||||
function GetSUCURSALValue: String;
|
||||
procedure SetSUCURSALValue(const aValue: String);
|
||||
function GetSUCURSALIsNull: Boolean;
|
||||
procedure SetSUCURSALIsNull(const aValue: Boolean);
|
||||
function GetDCValue: String;
|
||||
procedure SetDCValue(const aValue: String);
|
||||
function GetDCIsNull: Boolean;
|
||||
procedure SetDCIsNull(const aValue: Boolean);
|
||||
function GetCUENTAValue: String;
|
||||
procedure SetCUENTAValue(const aValue: String);
|
||||
function GetCUENTAIsNull: Boolean;
|
||||
procedure SetCUENTAIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -405,10 +429,18 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
||||
property DC: String read GetDCValue write SetDCValue;
|
||||
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
end;
|
||||
|
||||
{ TRecibosClienteDataTableRules }
|
||||
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
|
||||
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -532,6 +564,22 @@ type
|
||||
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||
function GetUSUARIOIsNull: Boolean; virtual;
|
||||
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetENTIDADValue: String; virtual;
|
||||
procedure SetENTIDADValue(const aValue: String); virtual;
|
||||
function GetENTIDADIsNull: Boolean; virtual;
|
||||
procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
|
||||
function GetSUCURSALValue: String; virtual;
|
||||
procedure SetSUCURSALValue(const aValue: String); virtual;
|
||||
function GetSUCURSALIsNull: Boolean; virtual;
|
||||
procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
|
||||
function GetDCValue: String; virtual;
|
||||
procedure SetDCValue(const aValue: String); virtual;
|
||||
function GetDCIsNull: Boolean; virtual;
|
||||
procedure SetDCIsNull(const aValue: Boolean); virtual;
|
||||
function GetCUENTAValue: String; virtual;
|
||||
procedure SetCUENTAValue(const aValue: String); virtual;
|
||||
function GetCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -594,6 +642,14 @@ type
|
||||
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
||||
property DC: String read GetDCValue write SetDCValue;
|
||||
property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -603,7 +659,7 @@ type
|
||||
|
||||
{ IPagosCliente }
|
||||
IPagosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{B9F92CCE-2ADD-4B5F-82AF-CEEA1C8B10EC}']
|
||||
['{4A5203D1-23CA-484D-8BF8-ECB3EBE4BFB7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -683,7 +739,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPagosClienteDataTableRules }
|
||||
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
|
||||
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -770,7 +826,7 @@ type
|
||||
|
||||
{ IRecibosCompensadosCli }
|
||||
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
|
||||
['{A98A69F6-4C14-4B5D-A299-3FC51C52104B}']
|
||||
['{84668918-5039-4A33-9A1B-058490744457}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -958,7 +1014,7 @@ type
|
||||
end;
|
||||
|
||||
{ TRecibosCompensadosCliDataTableRules }
|
||||
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
|
||||
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1829,6 +1885,90 @@ begin
|
||||
DataTable.Fields[idx_RecibosClienteUSUARIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetENTIDADValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteENTIDAD].AsString;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetENTIDADValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RecibosClienteENTIDAD].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetENTIDADIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteENTIDAD].IsNull;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_RecibosClienteENTIDAD].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetSUCURSALValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetSUCURSALValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RecibosClienteSUCURSAL].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetSUCURSALIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteSUCURSAL].IsNull;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_RecibosClienteSUCURSAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetDCValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteDC].AsString;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetDCValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RecibosClienteDC].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetDCIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteDC].IsNull;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetDCIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_RecibosClienteDC].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetCUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteCUENTA].AsString;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetCUENTAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RecibosClienteCUENTA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRecibosClienteDataTableRules.GetCUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RecibosClienteCUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_RecibosClienteCUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPagosClienteDataTableRules }
|
||||
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user