Poder agrupar los albaranes por agente, arreglo de portes y otros detalles
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@211 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
fcd330ce4a
commit
8970cfe736
File diff suppressed because one or more lines are too long
@ -21,7 +21,8 @@
|
||||
<Projects Name="AlbaranesCliente_view.bpl">Views\AlbaranesCliente_view.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
|
||||
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
|
||||
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl</Projects>
|
||||
<Projects Name="FacturasCliente_view.bpl">..\Facturas de cliente\Views\FacturasCliente_view.bdsproj</Projects>
|
||||
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
@ -1016,7 +1016,6 @@ begin
|
||||
AAlbaran.Edit;
|
||||
try
|
||||
AAlbaran.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(AAlbaran.Detalles);
|
||||
AAlbaran.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(AAlbaran.Detalles);
|
||||
if not bEnEdicion then
|
||||
AAlbaran.Post;
|
||||
finally
|
||||
|
||||
@ -49,7 +49,7 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
Value = 'Luis'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
@ -587,6 +587,33 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_ID_AGENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Agente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
|
||||
@ -9,11 +9,11 @@ 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_DarReferencia = '{8FF21D79-2A38-49A1-9920-59BF9D1A3761}';
|
||||
RID_AlbaranesCliente = '{286BA8B4-1D1A-4A28-92AD-EE389E49F82F}';
|
||||
RID_AlbaranesCliente_Detalles = '{204AB55B-DFB6-4C06-97FE-ACE0073003D9}';
|
||||
RID_AlbaranesCliente_Detalles_Refresh = '{DD2DF7C8-E7A8-4460-8124-A68A24FA8708}';
|
||||
RID_AlbaranesCliente_Refresh = '{613B4A25-BE5C-4641-920A-A2928969F49C}';
|
||||
RID_DarReferencia = '{341025B6-FE72-4C74-BDF0-C3927C245F63}';
|
||||
RID_AlbaranesCliente = '{16CEF413-0B6A-4EF4-93E5-84AA225DFAD4}';
|
||||
RID_AlbaranesCliente_Detalles = '{D5262A01-1237-4B9B-94C7-69EB0A2EE285}';
|
||||
RID_AlbaranesCliente_Detalles_Refresh = '{185547D0-70EE-444D-9F66-AD112ED2E6DD}';
|
||||
RID_AlbaranesCliente_Refresh = '{6B67F077-F0E0-4D9F-81E4-4DA4F11B1D17}';
|
||||
|
||||
{ Data table names }
|
||||
nme_DarReferencia = 'DarReferencia';
|
||||
@ -68,6 +68,8 @@ const
|
||||
fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||
fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO';
|
||||
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
|
||||
fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_AlbaranesClienteAGENTE = 'AGENTE';
|
||||
|
||||
{ AlbaranesCliente field indexes }
|
||||
idx_AlbaranesClienteID = 0;
|
||||
@ -109,6 +111,8 @@ const
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 37;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 38;
|
||||
idx_AlbaranesClienteID_AGENTE = 39;
|
||||
idx_AlbaranesClienteAGENTE = 40;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -214,6 +218,8 @@ const
|
||||
fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||
fld_AlbaranesCliente_RefreshFECHA_ENVIO = 'FECHA_ENVIO';
|
||||
fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION';
|
||||
fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
|
||||
fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
|
||||
|
||||
{ AlbaranesCliente_Refresh field indexes }
|
||||
idx_AlbaranesCliente_RefreshID = 0;
|
||||
@ -255,11 +261,13 @@ const
|
||||
idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 36;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ENVIO = 37;
|
||||
idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
|
||||
idx_AlbaranesCliente_RefreshID_AGENTE = 39;
|
||||
idx_AlbaranesCliente_RefreshAGENTE = 40;
|
||||
|
||||
type
|
||||
{ IDarReferencia }
|
||||
IDarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{C690B03E-DC7C-40EA-AD23-A11C074ED29D}']
|
||||
['{C2E7FD79-3AA4-4157-8F79-E6E526FDCC9B}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -288,7 +296,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{FE25F44D-23C6-4BBB-8352-80D4C8666E2B}']
|
||||
['{E4A33579-0951-4E59-99D3-6F272440FE61}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -368,6 +376,10 @@ type
|
||||
procedure SetFECHA_ENVIOValue(const aValue: DateTime);
|
||||
function GetFECHA_RECEPCIONValue: DateTime;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -410,6 +422,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||
property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
@ -495,6 +509,10 @@ type
|
||||
procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -536,6 +554,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||
property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -545,7 +565,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{E58F6EA5-0A62-40F4-9E09-6F6D91F8A46D}']
|
||||
['{97C8D6FE-11E0-4CF1-9B6F-F84B193FB0FB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -652,7 +672,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_Refresh }
|
||||
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{A088060C-CE4F-486A-9311-0DCDCE6216CE}']
|
||||
['{E9B38B1D-00D3-4E28-AAC2-94A82323A4CC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -759,7 +779,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Refresh }
|
||||
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{BF8BA7D7-C0A1-47D8-9D69-65EC70584C39}']
|
||||
['{59B27143-6A32-490E-99D3-EBCA96FEF3E7}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -839,6 +859,10 @@ type
|
||||
procedure SetFECHA_ENVIOValue(const aValue: DateTime);
|
||||
function GetFECHA_RECEPCIONValue: DateTime;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -881,6 +905,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||
property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_RefreshDataTableRules }
|
||||
@ -966,6 +992,10 @@ type
|
||||
procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1007,6 +1037,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
|
||||
property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1443,6 +1475,26 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
|
||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -2151,6 +2203,26 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshFECHA_RECEPCION].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
|
||||
|
||||
@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{D519E3C7-849C-4730-A2B7-6319C0AD5448}';
|
||||
RID_AlbaranesClienteDelta = '{303FA8ED-65F6-4DCB-8037-55544878855F}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}';
|
||||
RID_AlbaranesCliente_Detalles_RefreshDelta = '{2CFAF206-0220-4452-A453-B1B90592A487}';
|
||||
RID_AlbaranesCliente_RefreshDelta = '{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}';
|
||||
RID_DarReferenciaDelta = '{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}';
|
||||
RID_AlbaranesClienteDelta = '{DF0B838F-1795-4D57-9430-4BDC5E34F39F}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{F9848F77-A24D-4559-A63E-46C49E6B6FCA}';
|
||||
RID_AlbaranesCliente_Detalles_RefreshDelta = '{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}';
|
||||
RID_AlbaranesCliente_RefreshDelta = '{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}';
|
||||
|
||||
type
|
||||
{ IDarReferenciaDelta }
|
||||
IDarReferenciaDelta = interface(IDarReferencia)
|
||||
['{D519E3C7-849C-4730-A2B7-6319C0AD5448}']
|
||||
['{41FD0C2E-1F83-4A29-90F8-DF7AC5F20671}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -47,7 +47,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{303FA8ED-65F6-4DCB-8037-55544878855F}']
|
||||
['{DF0B838F-1795-4D57-9430-4BDC5E34F39F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -88,6 +88,8 @@ type
|
||||
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
|
||||
function GetOldFECHA_ENVIOValue : DateTime;
|
||||
function GetOldFECHA_RECEPCIONValue : DateTime;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -129,6 +131,8 @@ type
|
||||
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
|
||||
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteBusinessProcessorRules }
|
||||
@ -253,6 +257,12 @@ type
|
||||
function GetFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -333,6 +343,10 @@ type
|
||||
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -342,7 +356,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}']
|
||||
['{F9848F77-A24D-4559-A63E-46C49E6B6FCA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -462,7 +476,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_RefreshDelta }
|
||||
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
|
||||
['{2CFAF206-0220-4452-A453-B1B90592A487}']
|
||||
['{6F609F3D-CA71-4EDF-88DC-126708EA0DFA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -582,7 +596,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_RefreshDelta }
|
||||
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
|
||||
['{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}']
|
||||
['{AEF4C61D-CCBB-4E95-9F61-4D891E5F00B3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -623,6 +637,8 @@ type
|
||||
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
|
||||
function GetOldFECHA_ENVIOValue : DateTime;
|
||||
function GetOldFECHA_RECEPCIONValue : DateTime;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -664,6 +680,8 @@ type
|
||||
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
|
||||
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesCliente_RefreshBusinessProcessorRules }
|
||||
@ -788,6 +806,12 @@ type
|
||||
function GetFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -868,6 +892,10 @@ type
|
||||
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
|
||||
property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
|
||||
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1507,6 +1535,36 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteAGENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
|
||||
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
|
||||
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -2552,6 +2610,36 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshAGENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
|
||||
|
||||
@ -78,8 +78,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
|
||||
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' +
|
||||
'ARANES_CLIENTE'
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
|
||||
'TE'#10' FROM'#10' V_ALBARANES_CLIENTE'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -645,6 +645,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'AlbaranesCliente_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
@ -1147,8 +1168,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
|
||||
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' +
|
||||
'ARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID = :ID'
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
|
||||
'TE'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID' +
|
||||
' = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -1717,6 +1739,27 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'AlbaranesCliente_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
@ -3141,6 +3184,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Agente'
|
||||
Alignment = taLeftJustify
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -170,14 +170,9 @@
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
|
||||
@ -83,6 +83,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
BestFitMaxWidth = 120
|
||||
Width = 119
|
||||
end
|
||||
object cxGridViewAGENTE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'AGENTE'
|
||||
end
|
||||
object cxGridViewREF_PEDIDO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REF_PEDIDO'
|
||||
BestFitMaxWidth = 45
|
||||
@ -172,6 +175,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 596
|
||||
ExplicitWidth = 596
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 251
|
||||
ExplicitLeft = 251
|
||||
@ -214,6 +225,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAlmacenes
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actAgentes
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -263,6 +279,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
OnExecute = actAlmacenesExecute
|
||||
OnUpdate = actAlmacenesUpdate
|
||||
end
|
||||
object actAgentes: TAction
|
||||
Caption = 'Agentes'
|
||||
OnExecute = actAgentesExecute
|
||||
OnUpdate = actAgentesUpdate
|
||||
end
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
|
||||
@ -57,6 +57,10 @@ type
|
||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
|
||||
cxStyleRETRASADOS: TcxStyle;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
actAgentes: TAction;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
@ -72,6 +76,8 @@ type
|
||||
procedure actAlmacenesUpdate(Sender: TObject);
|
||||
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure actAgentesExecute(Sender: TObject);
|
||||
procedure actAgentesUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -95,6 +101,27 @@ uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlb
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAgentesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAgentesUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.actAlmacenesExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then
|
||||
|
||||
@ -8,9 +8,7 @@
|
||||
<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Default.Personality>
|
||||
|
||||
<Projects>
|
||||
<Default.Personality> <Projects>
|
||||
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
||||
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
||||
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
||||
@ -30,7 +28,9 @@
|
||||
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
|
||||
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
|
||||
<Projects Name="AlbaranesCliente_controller.bpl">..\Albaranes de cliente\Controller\AlbaranesCliente_controller.bdsproj</Projects>
|
||||
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl AlbaranesCliente_controller.bpl</Projects>
|
||||
<Projects Name="PedidosCliente_model.bpl">..\Pedidos de cliente\Model\PedidosCliente_model.bdsproj</Projects>
|
||||
<Projects Name="FacturasProveedor_view.bpl">..\Facturas de proveedor\Views\FacturasProveedor_view.bdsproj</Projects>
|
||||
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl FacturasCliente_view.bpl FactuGES.exe FactuGES_Server.exe AlbCli_FacCli_relation.bpl AlbaranesCliente_controller.bpl PedidosCliente_model.bpl FacturasProveedor_view.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
|
||||
@ -407,6 +407,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
@ -419,6 +422,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Item9: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
|
||||
@ -162,21 +162,22 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
'R.BASE_IMPONIBLE, V_FACTURAS_PROVEEDOR.DESCUENTO, V_FACTURAS_PRO' +
|
||||
'VEEDOR.IMPORTE_DESCUENTO,'#10' V_FACTURAS_PROVEEDOR.IVA, V_FACTUR' +
|
||||
'AS_PROVEEDOR.IMPORTE_IVA,'#10' V_FACTURAS_PROVEEDOR.RE, V_FACTURA' +
|
||||
'S_PROVEEDOR.IMPORTE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL,'#10 +
|
||||
' V_FACTURAS_PROVEEDOR.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION ' +
|
||||
'AS FORMA_PAGO, V_FACTURAS_PROVEEDOR.ID_PROVEEDOR,'#10' V_FACTURAS' +
|
||||
'_PROVEEDOR.NIF_CIF, V_FACTURAS_PROVEEDOR.NOMBRE, V_FACTURAS_PROV' +
|
||||
'EEDOR.CALLE,'#10' V_FACTURAS_PROVEEDOR.PROVINCIA, V_FACTURAS_PROV' +
|
||||
'EEDOR.CODIGO_POSTAL, V_FACTURAS_PROVEEDOR.POBLACION,'#10#10' ID_EMP' +
|
||||
'RESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL' +
|
||||
','#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POB' +
|
||||
'LACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMP' +
|
||||
'RESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEF' +
|
||||
'ONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMP' +
|
||||
'RESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO' +
|
||||
#10#10'FROM V_FACTURAS_PROVEEDOR'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ' +
|
||||
'ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS' +
|
||||
'_PROVEEDOR.ID_FORMA_PAGO)'#10'WHERE V_FACTURAS_PROVEEDOR.ID = :ID'
|
||||
'S_PROVEEDOR.IMPORTE_RE,'#10' V_FACTURAS_PROVEEDOR.IMPORTE_TOTAL, ' +
|
||||
'V_FACTURAS_PROVEEDOR.IMPORTE_PORTE,'#10' V_FACTURAS_PROVEEDOR.OBS' +
|
||||
'ERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS_PR' +
|
||||
'OVEEDOR.ID_PROVEEDOR,'#10' V_FACTURAS_PROVEEDOR.NIF_CIF, V_FACTUR' +
|
||||
'AS_PROVEEDOR.NOMBRE, V_FACTURAS_PROVEEDOR.CALLE,'#10' V_FACTURAS_' +
|
||||
'PROVEEDOR.PROVINCIA, V_FACTURAS_PROVEEDOR.CODIGO_POSTAL, V_FACTU' +
|
||||
'RAS_PROVEEDOR.POBLACION,'#10#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NI' +
|
||||
'F_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALL' +
|
||||
'E_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS' +
|
||||
'.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIG' +
|
||||
'O_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESA' +
|
||||
'S.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.R' +
|
||||
'EGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM V_FACTURAS_PROVEEDOR'#10 +
|
||||
'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_' +
|
||||
'PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_PROVEEDOR.ID_FORMA_PAGO)'#10'WH' +
|
||||
'ERE V_FACTURAS_PROVEEDOR.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -314,6 +315,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
item
|
||||
DatasetField = 'ID_PROVEEDOR'
|
||||
TableField = 'ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_PORTE'
|
||||
TableField = 'IMPORTE_PORTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasProveedor'
|
||||
@ -431,6 +436,17 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
@ -1171,7 +1187,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 39293.765855208330000000
|
||||
ReportOptions.LastChange = 39465.864521631940000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
@ -1283,7 +1299,6 @@ object RptFacturasProveedor: TRptFacturasProveedor
|
||||
' Memo21.Lines.Clear;'
|
||||
' Memo29.Lines.Clear;'
|
||||
' end;'
|
||||
''
|
||||
'end;'
|
||||
''
|
||||
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
|
||||
|
||||
@ -7,7 +7,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 796
|
||||
ExplicitHeight = 607
|
||||
ExplicitHeight = 600
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -203,49 +203,51 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 2
|
||||
end
|
||||
inherited FontSize: TEdit [5]
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 0
|
||||
ExplicitLeft = 0
|
||||
end
|
||||
inherited UpDown1: TUpDown [6]
|
||||
Left = 42
|
||||
ExplicitLeft = 42
|
||||
inherited FontSize: TEdit
|
||||
Left = 145
|
||||
Width = 57
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 57
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [7]
|
||||
Left = 59
|
||||
ExplicitLeft = 59
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 202
|
||||
ExplicitLeft = 202
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 204
|
||||
ExplicitLeft = 204
|
||||
Left = 219
|
||||
ExplicitLeft = 219
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 212
|
||||
ExplicitLeft = 212
|
||||
Left = 227
|
||||
ExplicitLeft = 227
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 246
|
||||
ExplicitLeft = 246
|
||||
Left = 261
|
||||
ExplicitLeft = 261
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 280
|
||||
ExplicitLeft = 280
|
||||
Left = 295
|
||||
ExplicitLeft = 295
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 314
|
||||
ExplicitLeft = 314
|
||||
Left = 329
|
||||
ExplicitLeft = 329
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 322
|
||||
ExplicitLeft = 322
|
||||
Left = 337
|
||||
ExplicitLeft = 337
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 356
|
||||
ExplicitLeft = 356
|
||||
Left = 371
|
||||
ExplicitLeft = 371
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 390
|
||||
ExplicitLeft = 390
|
||||
Left = 405
|
||||
ExplicitLeft = 405
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -423,6 +425,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item8: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
|
||||
@ -591,7 +591,6 @@ begin
|
||||
APedido.Edit;
|
||||
try
|
||||
APedido.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APedido.Detalles);
|
||||
APedido.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APedido.Detalles);
|
||||
if not bEnEdicion then
|
||||
APedido.Post;
|
||||
finally
|
||||
|
||||
@ -99,8 +99,6 @@ uses
|
||||
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
|
||||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
@ -131,7 +129,9 @@ uses
|
||||
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
|
||||
uRptEtiquetasContactos_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContactos_Server.pas' {RptEtiquetasContactos: TDataModule},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.3.9.0\0"
|
||||
VALUE "ProductName", "FactuGES Server\0"
|
||||
VALUE "ProductVersion", "2.3.9.0\0"
|
||||
VALUE "CompileDate", "miércoles, 02 de enero de 2008 20:38\0"
|
||||
VALUE "CompileDate", "viernes, 18 de enero de 2008 21:11\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user