diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 6da65e5..dcf8392 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 1120028..14d0b2f 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -51,7 +51,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2830FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.3.0FactuGESFactuGES2.8.3.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2840FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.4.0FactuGESFactuGES2.8.4.0
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index cbc977a..17126f5 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3
index b3dc620..5062650 100644
--- a/Source/Informes/1/InfAlbaranCliente.fr3
+++ b/Source/Informes/1/InfAlbaranCliente.fr3
@@ -1,10 +1,10 @@
-
+
-
+
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 8d08a1c..76df42f 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -112,6 +112,10 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'Ref. pedido cliente'
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end
+ item
+ Name = 'FECHA_CONTRATO'
+ DataType = datDateTime
+ end
item
Name = 'ID_FACTURA'
DataType = datInteger
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 00d5d0e..fcb1745 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -9,9 +9,9 @@ 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_ListaAnosAlbaranes = '{341C2DAC-F578-4289-BEC6-A22088E12DDA}';
- RID_AlbaranesCliente = '{9E0606CC-EF63-4EDA-B7FA-D41CC8803129}';
- RID_AlbaranesCliente_Detalles = '{4D6277E1-50CF-4276-9A60-C66040C70E0E}';
+ RID_ListaAnosAlbaranes = '{5392573B-B6A0-49DE-ACCD-1B04E1684DCC}';
+ RID_AlbaranesCliente = '{2B6F227E-8173-4A9A-A666-BAA270EAEA1A}';
+ RID_AlbaranesCliente_Detalles = '{FE404448-507F-47B3-ADD1-1D5821AF7506}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -38,6 +38,7 @@ const
fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
+ fld_AlbaranesClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
@@ -84,37 +85,38 @@ const
idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteREF_PEDIDO = 12;
- idx_AlbaranesClienteID_FACTURA = 13;
- idx_AlbaranesClienteREF_FACTURA = 14;
- idx_AlbaranesClienteID_DIRECCION = 15;
- idx_AlbaranesClienteCALLE = 16;
- idx_AlbaranesClienteCODIGO_POSTAL = 17;
- idx_AlbaranesClientePOBLACION = 18;
- idx_AlbaranesClientePROVINCIA = 19;
- idx_AlbaranesClientePERSONA_CONTACTO = 20;
- idx_AlbaranesClienteTELEFONO = 21;
- idx_AlbaranesClienteMOVIL = 22;
- idx_AlbaranesClienteIMPORTE_NETO = 23;
- idx_AlbaranesClienteIMPORTE_PORTE = 24;
- idx_AlbaranesClienteDESCUENTO = 25;
- idx_AlbaranesClienteIMPORTE_DESCUENTO = 26;
- idx_AlbaranesClienteBASE_IMPONIBLE = 27;
- idx_AlbaranesClienteID_TIPO_IVA = 28;
- idx_AlbaranesClienteIVA = 29;
- idx_AlbaranesClienteIMPORTE_IVA = 30;
- idx_AlbaranesClienteIMPORTE_TOTAL = 31;
- idx_AlbaranesClienteOBSERVACIONES = 32;
- idx_AlbaranesClienteINCIDENCIAS = 33;
- idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 34;
- idx_AlbaranesClienteFECHA_ALTA = 35;
- idx_AlbaranesClienteFECHA_MODIFICACION = 36;
- idx_AlbaranesClienteUSUARIO = 37;
- idx_AlbaranesClienteID_FORMA_PAGO = 38;
- idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 39;
- idx_AlbaranesClienteFECHA_ENVIO = 40;
- idx_AlbaranesClienteFECHA_RECEPCION = 41;
- idx_AlbaranesClienteID_TIENDA = 42;
- idx_AlbaranesClienteTIENDA = 43;
+ idx_AlbaranesClienteFECHA_CONTRATO = 13;
+ idx_AlbaranesClienteID_FACTURA = 14;
+ idx_AlbaranesClienteREF_FACTURA = 15;
+ idx_AlbaranesClienteID_DIRECCION = 16;
+ idx_AlbaranesClienteCALLE = 17;
+ idx_AlbaranesClienteCODIGO_POSTAL = 18;
+ idx_AlbaranesClientePOBLACION = 19;
+ idx_AlbaranesClientePROVINCIA = 20;
+ idx_AlbaranesClientePERSONA_CONTACTO = 21;
+ idx_AlbaranesClienteTELEFONO = 22;
+ idx_AlbaranesClienteMOVIL = 23;
+ idx_AlbaranesClienteIMPORTE_NETO = 24;
+ idx_AlbaranesClienteIMPORTE_PORTE = 25;
+ idx_AlbaranesClienteDESCUENTO = 26;
+ idx_AlbaranesClienteIMPORTE_DESCUENTO = 27;
+ idx_AlbaranesClienteBASE_IMPONIBLE = 28;
+ idx_AlbaranesClienteID_TIPO_IVA = 29;
+ idx_AlbaranesClienteIVA = 30;
+ idx_AlbaranesClienteIMPORTE_IVA = 31;
+ idx_AlbaranesClienteIMPORTE_TOTAL = 32;
+ idx_AlbaranesClienteOBSERVACIONES = 33;
+ idx_AlbaranesClienteINCIDENCIAS = 34;
+ idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 35;
+ idx_AlbaranesClienteFECHA_ALTA = 36;
+ idx_AlbaranesClienteFECHA_MODIFICACION = 37;
+ idx_AlbaranesClienteUSUARIO = 38;
+ idx_AlbaranesClienteID_FORMA_PAGO = 39;
+ idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 40;
+ idx_AlbaranesClienteFECHA_ENVIO = 41;
+ idx_AlbaranesClienteFECHA_RECEPCION = 42;
+ idx_AlbaranesClienteID_TIENDA = 43;
+ idx_AlbaranesClienteTIENDA = 44;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@@ -153,7 +155,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{18882089-8287-47C7-9C5D-931786CE7191}']
+ ['{9E537DDB-8E64-4969-8E68-8892E1235B3B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -188,7 +190,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{79507D33-A636-472C-B17E-D017E6D4FCAE}']
+ ['{657314CF-9B6C-48E9-9BA7-B2475D33165E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -242,6 +244,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String);
function GetREF_PEDIDOIsNull: Boolean;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean);
+ function GetFECHA_CONTRATOValue: DateTime;
+ procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
+ function GetFECHA_CONTRATOIsNull: Boolean;
+ procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
@@ -393,6 +399,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
+ property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
+ property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
@@ -518,6 +526,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_CONTRATOValue: DateTime; virtual;
+ procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
+ function GetFECHA_CONTRATOIsNull: Boolean; virtual;
+ procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
@@ -668,6 +680,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
+ property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
+ property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
@@ -739,7 +753,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{E5EA0F49-1453-4D24-9E59-0EDC0AEC18F7}']
+ ['{E97BA8BC-8EC8-441E-8A6F-E53552B75E94}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1281,6 +1295,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null;
end;
+function TAlbaranesClienteDataTableRules.GetFECHA_CONTRATOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsDateTime;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsDateTime := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetFECHA_CONTRATOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsVariant := Null;
+end;
+
function TAlbaranesClienteDataTableRules.GetID_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_FACTURA].AsInteger;
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index 8a8ad9b..9a03383 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranesDelta = '{A83C6728-0F72-4994-B6BD-27A86E154F6A}';
- RID_AlbaranesClienteDelta = '{07D97148-0DFB-49CD-B447-24C9143ECA30}';
- RID_AlbaranesCliente_DetallesDelta = '{D45C143D-1990-46DF-80F3-DE6AC699561E}';
+ RID_ListaAnosAlbaranesDelta = '{42769BFF-45B2-4BC5-8B65-09F00716E000}';
+ RID_AlbaranesClienteDelta = '{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}';
+ RID_AlbaranesCliente_DetallesDelta = '{0D156B8D-7951-4154-A33A-0A13B7228A09}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{A83C6728-0F72-4994-B6BD-27A86E154F6A}']
+ ['{42769BFF-45B2-4BC5-8B65-09F00716E000}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{07D97148-0DFB-49CD-B447-24C9143ECA30}']
+ ['{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -65,6 +65,7 @@ type
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PEDIDOValue : String;
+ function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String;
function GetOldID_DIRECCIONValue : Integer;
@@ -111,6 +112,7 @@ type
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
+ property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@@ -231,6 +233,12 @@ type
function GetOldREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_CONTRATOValue: DateTime; virtual;
+ function GetFECHA_CONTRATOIsNull: Boolean; virtual;
+ function GetOldFECHA_CONTRATOValue: DateTime; virtual;
+ function GetOldFECHA_CONTRATOIsNull: Boolean; virtual;
+ procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
@@ -469,6 +477,10 @@ type
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull;
+ property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
+ property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
+ property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
+ property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
@@ -602,7 +614,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{D45C143D-1990-46DF-80F3-DE6AC699561E}']
+ ['{0D156B8D-7951-4154-A33A-0A13B7228A09}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -1284,6 +1296,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
end;
+function TAlbaranesClienteBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetFECHA_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_CONTRATOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_CONTRATO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_CONTRATO]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO] := Null;
+end;
+
function TAlbaranesClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA];
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index e6b8939..64250d0 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -126,6 +126,15 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
end
+ item
+ Name = 'REF_CONTRATO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_CONTRATO'
+ DataType = datDateTime
+ end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
@@ -343,20 +352,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' +
'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' +
'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 +
- ' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS ' +
- 'NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS' +
- '.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE' +
- '_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' E' +
- 'MPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS ' +
- 'PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10 +
- ' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMP' +
- 'RESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_W' +
- 'EB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN E' +
- 'MPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER ' +
- 'JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10 +
- ' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONE' +
- 'S.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.I' +
- 'D = :ID'#10
+ ' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_CLIENTE.RE' +
+ 'FERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' ' +
+ 'EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE' +
+ '_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMP' +
+ 'RESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO' +
+ '_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EM' +
+ 'PRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS ' +
+ 'TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MO' +
+ 'VIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,' +
+ #10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CL' +
+ 'IENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.' +
+ 'ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_' +
+ 'CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONT' +
+ 'RATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10' LEFT OUTER JOI' +
+ 'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES' +
+ '_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -505,6 +516,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
+ end
+ item
+ DatasetField = 'REF_CONTRATO'
+ TableField = ''
+ SQLOrigin = 'REF_CONTRATO'
+ end
+ item
+ DatasetField = 'FECHA_CONTRATO'
+ TableField = ''
+ SQLOrigin = 'FECHA_CONTRATO'
end>
end>
Name = 'Informe_Cabecera'
@@ -617,6 +638,15 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
end
+ item
+ Name = 'REF_CONTRATO'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FECHA_CONTRATO'
+ DataType = datDateTime
+ end
item
Name = 'NIF_CIF_EMPRESA'
DataType = datString
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 5f21307..64e8ff6 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -223,6 +223,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
+ end
+ item
+ DatasetField = 'FECHA_CONTRATO'
+ TableField = 'FECHA_CONTRATO'
end>
end>
Name = 'AlbaranesCliente'
@@ -304,6 +308,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end
+ item
+ Name = 'FECHA_CONTRATO'
+ DataType = datDateTime
+ end
item
Name = 'ID_FACTURA'
DataType = datInteger
diff --git a/Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj b/Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
index 53045c4..6176672 100644
--- a/Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
+++ b/Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
@@ -16,6 +16,7 @@
+
@@ -241,14 +242,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 132dfcd..1943fc4 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -248,6 +248,7 @@ function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente;
var
AFacturaActual : IBizFacturaCliente;
AAlbaranesController : IAlbaranesClienteController;
+ ACadena: String;
I: Integer;
bEnEdicion : Boolean;
begin
@@ -330,12 +331,15 @@ begin
// Ya tengo la factura. Le añado los conceptos del albarán
AFacturaActual.Detalles.DataTable.Last;
- // Añado el título
- Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
+
+ // Añado el título, se cambia a petición por linea de concepto con resumen del albaran correspondiente, SE SOLICITA QUITAR POR MÓNICA 16/06/2020
+ Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do
begin
+ ACadena := '';
+ ACadena := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' de ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Edit;
- CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
+ CONCEPTO := ACadena;
Post;
end;
// Añado el contenido del albarán
@@ -369,14 +373,14 @@ begin
end;
end;
- // Añado el resumen
- Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
- with AFacturaActual.Detalles do
- begin
- Edit;
- CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
- Post;
- end;
+// Añado el resumen SE SOLICITA QUITAR POR MÓNICA 16/06/2020
+// Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
+// with AFacturaActual.Detalles do
+// begin
+// Edit;
+// CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
+// Post;
+// end;
// Añado una línea en blanco
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
index f52e888..a0cb058 100644
--- a/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
+++ b/Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
@@ -77,6 +77,7 @@ var
i : integer;
ADetalles : IBizDetallesAlbaranCliente;
ADetallesController : IDetallesAlbaranClienteController;
+ ACadena: String;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignado(CopiarDetallesAAlbaran)');
@@ -100,6 +101,18 @@ begin
//obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADetalles);
+ // Añado el título, se cambia a petición por linea de concepto con resumen del albaran correspondiente, SE SOLICITA QUITAR POR MÓNICA 16/06/2020
+ ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
+ with ADetalles do
+ begin
+ ACadena := '';
+ if not AContrato.REFERENCIAIsNull then
+ ACadena := 'Pedido: ' + AContrato.REFERENCIA + ' de ' + DateToStr(AContrato.FECHA_CONTRATO);
+ Edit;
+ CONCEPTO := ACadena;
+ Post;
+ end;
+
AArticulos.DataTable.First;
for i := 0 to AArticulos.DataTable.RecordCount - 1 do
begin
diff --git a/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu b/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
index 2bb624d..ee15ddf 100644
Binary files a/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu and b/Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 32fba71..324d275 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -126,8 +126,6 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
- schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
- schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
@@ -146,7 +144,9 @@ uses
schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas',
schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
- schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
+ schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index f01539a..0cbcae1 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -28,7 +28,7 @@
Delphi.Personality
- FalseTrueFalseTrueFalse2830FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.3.0FactuGES (Servidor)2.8.3.0jueves, 07 de mayo de 2020 13:24
+ FalseTrueFalseTrueFalse2840FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.8.4.0FactuGES (Servidor)2.8.4.0miércoles, 24 de junio de 2020 18:24
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index ae5c5b2..4d80d82 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ