diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 6c246ba..2907939 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Database/udfs/funciones.pas b/Database/udfs/funciones.pas
index 2782f42..a30f598 100644
--- a/Database/udfs/funciones.pas
+++ b/Database/udfs/funciones.pas
@@ -10,13 +10,34 @@ uses
Forms, Classes, SysUtils, StdCtrls, ComCtrls,
Menus, Windows;
+function RtfToText(Cadena: PChar): PChar;
+var
+ AStream : TStringStream;
+ ARichEdit: TRichEdit;
+begin
+ ARichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
+ try
+ AStream := TStringStream.Create(Cadena);
+ try
+ ARichEdit.SelectAll;
+ ARichEdit.SelText := StrPas(Cadena);
+ Result := PChar(ARichEdit.Text);
+ finally
+ FreeAndNIL(AStream);
+ end;
+ finally
+ FreeAndNIL(ARichEdit);
+ end;
+end;
+
+{ANTIGUA FUNCION CON FUGA DE MEMORIA
function RtfToText(Cadena: PChar): PChar;
var
AStream : TStringStream;
ARichEdit: TRichEdit;
begin
AStream := TStringStream.Create(Cadena);
- ARichEdit := TRichEdit.CreateParented(HWND(-3));
+ ARichEdit := TRichEdit.CreateParented(HWND(-3));
try
ARichEdit.SelectAll;
ARichEdit.SelText := StrPas(Cadena);
@@ -25,7 +46,6 @@ begin
FreeAndNIL(AStream);
end;
end;
-
-
+}
end.
diff --git a/Database/udfs/udf_RtfToText.dll b/Database/udfs/udf_RtfToText.dll
index 1d74330..42afa67 100644
Binary files a/Database/udfs/udf_RtfToText.dll and b/Database/udfs/udf_RtfToText.dll differ
diff --git a/Database/udfs/udf_RtfToText.drc b/Database/udfs/udf_RtfToText.drc
index fb1d974..1e853e5 100644
--- a/Database/udfs/udf_RtfToText.drc
+++ b/Database/udfs/udf_RtfToText.drc
@@ -467,5 +467,5 @@ END
/* c:\archivos de programa\codegear\rad studio\5.0\Lib\Controls.res */
/* c:\archivos de programa\codegear\rad studio\5.0\Lib\Buttons.res */
/* c:\archivos de programa\codegear\rad studio\5.0\Lib\ExtDlgs.res */
-/* C:\Codigo Acana\Database\udfs\udf_RtfToText.RES */
-/* C:\Codigo Acana\Database\udfs\udf_RtfToText.drf */
+/* C:\Codigo Arribas2\Database\udfs\udf_RtfToText.RES */
+/* C:\Codigo Arribas2\Database\udfs\udf_RtfToText.drf */
diff --git a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.dfm b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.dfm
index 81dbdda..2bd85d3 100644
--- a/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.dfm
+++ b/Source/ApplicationBase/Ejercicios/Views/uEditorEjercicio.dfm
@@ -110,20 +110,6 @@ inherited fEditorEjercicio: TfEditorEjercicio
end
end
end
- inherited pgPaginas: TPageControl
- Width = 513
- Height = 344
- ExplicitLeft = 3
- ExplicitTop = 79
- ExplicitWidth = 513
- ExplicitHeight = 344
- inherited pagGeneral: TTabSheet
- ExplicitLeft = 4
- ExplicitTop = 24
- ExplicitWidth = 505
- ExplicitHeight = 316
- end
- end
inherited StatusBar: TJvStatusBar
Top = 426
Width = 519
@@ -134,20 +120,34 @@ inherited fEditorEjercicio: TfEditorEjercicio
ExplicitTop = 426
ExplicitWidth = 519
end
+ inherited pgPaginas: TPageControl
+ Width = 513
+ Height = 314
+ ExplicitTop = 79
+ ExplicitWidth = 513
+ ExplicitHeight = 344
+ inherited pagGeneral: TTabSheet
+ ExplicitLeft = 4
+ ExplicitTop = 24
+ ExplicitWidth = 505
+ ExplicitHeight = 316
+ end
+ end
+ inherited PnlComentario: TPanel
+ Width = 519
+ end
inherited EditorActionList: TActionList
Top = 128
end
- inherited SmallImages: TPngImageList
- Top = 112
- end
inherited dsDataTable: TDADataSource [6]
Left = 168
Top = 120
end
- inherited LargeImages: TPngImageList [7]
+ inherited LargeImages: TPngImageList
Top = 112
end
- inherited JvFormStorage: TJvFormStorage [8]
+ inherited SmallImages: TPngImageList [9]
+ Top = 112
end
inherited StatusBarImages: TPngImageList
Left = 64
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 206bda5..b36e2e2 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -65,56 +65,56 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 3593205..34ccb94 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -52,7 +52,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGES v2FactuGES v22.2.0.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGES v2FactuGES v22.2.2.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 1e2e333..9b3864f 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
index 02999cc..0274323 100644
--- a/Source/Informes/1/InfContratoCliente.fr3
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -83,4 +83,15 @@
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Lib/ApplicationBase.dcp b/Source/Lib/ApplicationBase.dcp
index 5e37463..5c3267d 100644
Binary files a/Source/Lib/ApplicationBase.dcp and b/Source/Lib/ApplicationBase.dcp differ
diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp
index 668b1ba..5da070d 100644
Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ
diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp
index 03b2828..5deda21 100644
Binary files a/Source/Lib/GUIBase.dcp and b/Source/Lib/GUIBase.dcp differ
diff --git a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
index 5053b12..16fa45b 100644
--- a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
+++ b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
@@ -640,14 +640,18 @@ object PluginContabilidad: TPluginContabilidad
object actCuentas: TAction
Category = 'Contabilidad'
Caption = 'Cuentas'
+ Enabled = False
ImageIndex = 2
+ Visible = False
OnExecute = actCuentasExecute
OnUpdate = actCuentasUpdate
end
object actSubCuentas: TAction
Category = 'Contabilidad'
Caption = 'Subcuentas'
+ Enabled = False
ImageIndex = 1
+ Visible = False
OnExecute = actSubCuentasExecute
OnUpdate = actSubCuentasUpdate
end
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
index fa5ffbd..34a1ef4 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
@@ -55,8 +55,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean;
- procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false);
- procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
+ procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
+ procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
function AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
@@ -133,8 +133,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean;
- procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false);
- procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false);
+ procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
+ procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
function AsignarLOPD(AContratos: IBizContratoCliente): Boolean;
@@ -1115,7 +1115,7 @@ begin
Result := AContrato;
end;
-procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false);
+procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
var
AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList;
@@ -1141,14 +1141,14 @@ begin
else
ID_Contratos.Add(AContrato.ID);
- AReportController.Preview(ID_Contratos);
+ AReportController.Preview(ID_Contratos, AVerCondiciones);
finally
AReportController := NIL;
FreeAndNil(ID_Contratos);
end;
end;
-procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false);
+procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; AVerCondiciones: Boolean = false);
var
AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList;
@@ -1173,7 +1173,7 @@ begin
else
ID_Contratos.Add(AContrato.ID);
- AReportController.Print(ID_Contratos);
+ AReportController.Print(ID_Contratos, AVerCondiciones);
finally
AReportController := NIL;
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
index 2881f9f..80ac488 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
@@ -10,8 +10,8 @@ uses
type
IContratosClienteReportController = interface(IControllerBase)
['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
- procedure Preview(const AListaID : TIntegerList);
- procedure Print(const AListaID : TIntegerList);
+ procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
+ procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@@ -23,8 +23,8 @@ type
constructor Create; override;
destructor Destroy; override;
- procedure Preview(const AListaID : TIntegerList);
- procedure Print(const AListaID : TIntegerList);
+ procedure Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
+ procedure Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@@ -80,7 +80,7 @@ begin
end;
end;
-procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList);
+procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
var
AStream: Binary;
AEditor : IEditorContratosClientePreview;
@@ -89,7 +89,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptContratos(AListaID);
+ AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones);
try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then
@@ -113,7 +113,7 @@ begin
end;
end;
-procedure TContratosClienteReportController.Print(const AListaID : TIntegerList);
+procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; AVerCondiciones: Boolean = false);
var
AStream: Binary;
AEditor : IEditorContratosClientePreview;
@@ -122,7 +122,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptContratos(AListaID);
+ AStream := FDataModule.GetRptContratos(AListaID, AVerCondiciones);
try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
index a102144..7d1dad0 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
@@ -45,8 +45,8 @@ type
function NewItem : IBizContratoCliente;
// Report
- function GetRptContratos(const AListaID: TIntegerList): Binary;
- function GetRptPDFContrato(const AID: Integer): Binary;
+ function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary;
+ function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary;
function GetAnosItems : TStringList;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
@@ -73,27 +73,26 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleContratosCliente.GetRptPDFContrato(
- const AID: Integer): Binary;
+function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
- Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam)
+ Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AVerCondiciones)
finally
FreeANDNIL(AParam)
end;
end;
-function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList): Binary;
+function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
- Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam)
+ Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AVerCondiciones)
finally
FreeANDNIL(AParam)
end;
diff --git a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas b/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas
index a883e0f..21af9f1 100644
--- a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas
+++ b/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas
@@ -8,8 +8,8 @@ uses
type
IDataModuleContratosClienteReport = interface
['{6AB7469B-842A-413E-AF33-9506477A9666}']
- function GetRptContratos(const AListaID: TIntegerList): Binary;
- function GetRptPDFContrato(const AID: Integer): Binary;
+ function GetRptContratos(const AListaID: TIntegerList; AVerCondiciones: Boolean = false): Binary;
+ function GetRptPDFContrato(const AID: Integer; AVerCondiciones: Boolean = false): Binary;
end;
implementation
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index db4c0ea..2055cd1 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -9,13 +9,13 @@ 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_Valores = '{99FB7080-55D3-4F71-9776-CA0470AF1B16}';
- RID_Propiedades = '{39955AC4-909B-43B5-BFC3-AAC1E85B4521}';
- RID_ListaAnosContratos = '{842CF7DF-5B01-44CC-88B8-EF63F5B7B3BD}';
- RID_ContratosClienteBeneficios = '{CB3A4E53-B875-4D04-A53A-637A86A595CA}';
- RID_ContratosCliente = '{CFCB6098-A9BA-4688-BDA7-0CA8EF49CBD4}';
- RID_TiposCapitulos = '{E3584A5B-938B-48B5-87B2-A23154011868}';
- RID_ContratosCliente_Detalles = '{78024C2B-F048-4252-A838-4636A2126824}';
+ RID_Valores = '{0549BE41-8DC9-4C9D-812F-6D146575E4B4}';
+ RID_Propiedades = '{A65EEF12-2395-4143-9DA6-F23FFF505ADF}';
+ RID_ListaAnosContratos = '{D47DCD2C-5EED-4423-A22A-1CC3F1347D27}';
+ RID_ContratosClienteBeneficios = '{6B12BAFF-EBC0-4A87-A7EA-CEF5B669B735}';
+ RID_ContratosCliente = '{0BA8D712-E5F9-4808-B8C1-251F0007E42F}';
+ RID_TiposCapitulos = '{AE2C99EF-A3DF-41B8-A583-3D4D2146EFDF}';
+ RID_ContratosCliente_Detalles = '{A3A68389-EC21-4034-9751-29C596223D59}';
{ Data table names }
nme_Valores = 'Valores';
@@ -255,7 +255,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{09FAC198-D702-4643-8EC4-4EB93D4BF4F6}']
+ ['{456DE31B-603C-49A6-B24F-F8F67E7BA1D9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -314,7 +314,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{54CBB767-40EE-4C07-B6A5-63974D22B258}']
+ ['{B20DDA26-6EF1-49DF-8C3F-3C113EC3A75A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -373,7 +373,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{6B58BA26-5CD0-4833-8D04-BBCC26C3F2B5}']
+ ['{EDC46A9F-5445-43F2-8B16-2C80FA55312C}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -408,7 +408,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{4ED11DCC-83B2-4E5D-ABDB-ECD75EB2E34D}']
+ ['{6D340200-67CA-469A-924A-B2AD661BF858}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -611,7 +611,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{F0ADB580-DB5D-4260-9065-0A37ED306068}']
+ ['{FE98EB74-D1A6-4425-8087-F9D05815E895}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1285,7 +1285,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{7F065E7D-C88C-4287-B4F1-4C90BDE4A5D0}']
+ ['{5302F198-C996-421D-9897-7155FFFF5C6C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1380,7 +1380,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{FDC78645-413A-493D-8809-FC071D4847D8}']
+ ['{45BBDB1C-0E57-4631-A81F-17286C3F0225}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 6f2cbbe..1501320 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -9,18 +9,18 @@ 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_ValoresDelta = '{632E5888-2F7A-4385-87BD-46FC070B09D8}';
- RID_PropiedadesDelta = '{5BFC3D15-E4D9-4699-8EC7-9B314CD76D61}';
- RID_ListaAnosContratosDelta = '{92902251-E218-4288-839E-12C085E7E005}';
- RID_ContratosClienteBeneficiosDelta = '{8DB4D500-6D3F-4533-AC6F-99D59749A965}';
- RID_ContratosClienteDelta = '{65572B83-AD9B-4706-87EB-1454077273F4}';
- RID_TiposCapitulosDelta = '{21A8FE37-27F9-4CC7-9EE9-553179AC7015}';
- RID_ContratosCliente_DetallesDelta = '{C96EC97B-D8F0-4CA9-891B-1483F39E2224}';
+ RID_ValoresDelta = '{406066CE-3BB3-42F3-B7FC-493C9BA814E8}';
+ RID_PropiedadesDelta = '{F16E429C-3CD8-4458-8312-208C5A37AFD6}';
+ RID_ListaAnosContratosDelta = '{524A7663-3184-41AC-98BC-61A438830141}';
+ RID_ContratosClienteBeneficiosDelta = '{30858076-5CCE-49DC-8A00-C7B87CE73B2A}';
+ RID_ContratosClienteDelta = '{1F8826C9-2B51-4454-B6D7-CF7879E483EF}';
+ RID_TiposCapitulosDelta = '{962F7FF0-8B19-4D5F-9F87-108CA74B52C9}';
+ RID_ContratosCliente_DetallesDelta = '{E8242C5E-E9FE-492B-A51C-A9387B2E4765}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{632E5888-2F7A-4385-87BD-46FC070B09D8}']
+ ['{406066CE-3BB3-42F3-B7FC-493C9BA814E8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{5BFC3D15-E4D9-4699-8EC7-9B314CD76D61}']
+ ['{F16E429C-3CD8-4458-8312-208C5A37AFD6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{92902251-E218-4288-839E-12C085E7E005}']
+ ['{524A7663-3184-41AC-98BC-61A438830141}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{8DB4D500-6D3F-4533-AC6F-99D59749A965}']
+ ['{30858076-5CCE-49DC-8A00-C7B87CE73B2A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{65572B83-AD9B-4706-87EB-1454077273F4}']
+ ['{1F8826C9-2B51-4454-B6D7-CF7879E483EF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -1048,7 +1048,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{21A8FE37-27F9-4CC7-9EE9-553179AC7015}']
+ ['{962F7FF0-8B19-4D5F-9F87-108CA74B52C9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1142,7 +1142,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{C96EC97B-D8F0-4CA9-891B-1483F39E2224}']
+ ['{E8242C5E-E9FE-492B-A51C-A9387B2E4765}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
index 1b1018e..d96fae8 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
@@ -1034,7 +1034,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
- ReportOptions.LastChange = 41590.494716782410000000
+ ReportOptions.LastChange = 44126.785023055560000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
index 5384aeb..75b63cf 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
@@ -86,6 +86,7 @@ type
FNombreEmpresa: String;
FVerPrecios: Boolean;
FVerTotales: Boolean;
+ FVerCondiciones: Boolean;
procedure _GenerarContrato(const AID : Integer);
@@ -94,10 +95,10 @@ type
function _GenerarInforme(const TipoInforme: String): Binary;
procedure IniciarParametrosInforme;
- procedure RecuperarNombresClientes;
+ procedure RecuperarNombresClientes;
public
- function GenerarContrato(const ListaID : TIntegerArray): Binary;
- function GenerarContratoEnPDF(const ListaID : TIntegerArray): Binary;
+ function GenerarContrato(const ListaID : TIntegerArray; const VerCondiciones: Boolean): Binary;
+ function GenerarContratoEnPDF(const ListaID : TIntegerArray; const VerCondiciones: Boolean): Binary;
function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
@@ -145,7 +146,7 @@ begin
end;
end;
-function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray): Binary;
+function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
var
i: Integer;
begin
@@ -156,7 +157,7 @@ begin
FNombreEmpresa := '';
FVerPrecios := true;
FVerTotales := true;
-
+ FVerCondiciones := VerCondiciones;
try
//Vamos generando todos y cada uno de los Contratos recibidos
@@ -489,7 +490,7 @@ begin
end;
end;
-function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray): Binary;
+function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
var
i: Integer;
begin
@@ -500,6 +501,7 @@ begin
FNombreEmpresa := '';
FVerPrecios := True;
FVerTotales := True;
+ FVerCondiciones := VerCondiciones;
try
//Vamos generando todos y cada uno de los Contratos recibidos
@@ -562,6 +564,7 @@ begin
frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales;
+ frxReport.Variables.Variables['VerCondiciones'] := FVerCondiciones;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas
index 4381145..bfa7bd7 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas
@@ -33,8 +33,9 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvContratosCliente methods }
- function GenerarInforme(const ListaID: TIntegerArray): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
+
end;
implementation
@@ -77,25 +78,25 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
-function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
+function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
var
AReportGenerator : TRptContratosCliente;
begin
AReportGenerator := TRptContratosCliente.Create(nil);
try
- Result := AReportGenerator.GenerarContrato(ListaID);
+ Result := AReportGenerator.GenerarContrato(ListaID, VerCondiciones);
finally
FreeAndNIL(AReportGenerator);
end;
end;
-function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
var
AReportGenerator : TRptContratosCliente;
begin
AReportGenerator := TRptContratosCliente.Create(nil);
try
- Result := AReportGenerator.GenerarContratoEnPDF(ListaID);
+ Result := AReportGenerator.GenerarContratoEnPDF(ListaID, VerCondiciones);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index e2df5c6..5c1a2da 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -175,6 +175,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 866
Height = 473
+ ActivePage = pagCondiciones
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
@@ -581,10 +582,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
object pagCondiciones: TTabSheet
- Caption = 'Condiciones'
- Enabled = False
+ Caption = 'Montadores/Enganches'
ImageIndex = 4
- TabVisible = False
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
@@ -766,15 +765,15 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 872
ExplicitWidth = 872
inherited Bevel3: TBevel
- Left = 429
+ Left = 351
Height = 122
- ExplicitLeft = 429
+ ExplicitLeft = 351
ExplicitHeight = 122
end
inherited Bevel4: TBevel
- Left = 541
+ Left = 463
Width = 210
- ExplicitLeft = 541
+ ExplicitLeft = 463
ExplicitWidth = 210
end
inherited ImporteDto: TcxDBCurrencyEdit
@@ -783,16 +782,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 612
+ Left = 534
Style.IsFontAssigned = True
- ExplicitLeft = 612
+ ExplicitLeft = 534
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 542
+ Left = 464
Style.IsFontAssigned = True
- ExplicitLeft = 542
+ ExplicitLeft = 464
ExplicitWidth = 137
Width = 137
end
@@ -800,26 +799,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
- Left = 541
+ Left = 463
Style.IsFontAssigned = True
- ExplicitLeft = 541
+ ExplicitLeft = 463
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 541
+ Left = 463
Style.IsFontAssigned = True
- ExplicitLeft = 541
+ ExplicitLeft = 463
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 541
+ Left = 463
Style.IsFontAssigned = True
- ExplicitLeft = 541
+ ExplicitLeft = 463
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 612
+ Left = 534
Style.IsFontAssigned = True
- ExplicitLeft = 612
+ ExplicitLeft = 534
ExplicitWidth = 56
Width = 56
end
@@ -840,14 +839,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 81
end
inherited bTiposIVA: TButton
- Left = 281
+ Left = 203
OnClick = frViewTotales1bTiposIVAClick
- ExplicitLeft = 281
+ ExplicitLeft = 203
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end
+ inherited edtRetencion: TcxDBSpinEdit
+ Left = 463
+ Style.IsFontAssigned = True
+ ExplicitLeft = 463
+ end
+ inherited ImporteRetencion: TcxDBCurrencyEdit
+ Left = 534
+ Style.IsFontAssigned = True
+ ExplicitLeft = 534
+ ExplicitWidth = 281
+ Width = 281
+ end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
index 0b8986b..3cd361a 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
@@ -293,10 +293,15 @@ begin
end;
procedure TfEditorContratoCliente.ImprimirInterno;
+var
+ FVerCondiciones : Boolean;
begin
inherited;
if not Modified then
- FController.Print(FContrato);
+ begin
+ FVerCondiciones := ShowConfirmMessage('Previsualizar presupuesto', '¿Desea previsualizar Montadores/Enganches?') = IDYES;
+ FController.Print(FContrato, False, FVerCondiciones);
+ end;
end;
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
@@ -392,10 +397,16 @@ begin
end;
procedure TfEditorContratoCliente.PrevisualizarInterno;
+var
+ FVerCondiciones : Boolean;
+
begin
inherited;
if not Modified then
- FController.Preview(FContrato);
+ begin
+ FVerCondiciones := ShowConfirmMessage('Previsualizar presupuesto', '¿Desea previsualizar Montadores/Enganches?') = IDYES;
+ FController.Preview(FContrato, False, FVerCondiciones);
+ end;
end;
{procedure TfEditorContratoCliente.RecalcularPortePorUnidad;
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
index 7329a37..48589c8 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
@@ -633,9 +633,12 @@ var
Respuesta : Integer;
AContratos: IBizContratoCliente;
AllItems: Boolean;
+ FVerCondiciones : Boolean;
+
begin
AContratos := Nil;
AllItems := False;
+ FVerCondiciones := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@@ -662,7 +665,8 @@ begin
AContratos := Contratos;
if Assigned(AContratos) then
- FController.Print(AContratos, AllItems);
+ FVerCondiciones := ShowConfirmMessage('Previsualizar presupuesto', '¿Desea previsualizar Montadores/Enganches?') = IDYES;
+ FController.Print(AContratos, AllItems, FVerCondiciones);
end;
end;
end;
@@ -706,9 +710,12 @@ var
Respuesta : Integer;
AContratos: IBizContratoCliente;
AllItems: Boolean;
+ FVerCondiciones : Boolean;
+
begin
AContratos := Nil;
AllItems := False;
+ FVerCondiciones := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@@ -735,7 +742,8 @@ begin
AContratos := Contratos;
if Assigned(AContratos) then
- FController.Preview(AContratos, AllItems);
+ FVerCondiciones := ShowConfirmMessage('Previsualizar presupuesto', '¿Desea previsualizar Montadores/Enganches?') = IDYES;
+ FController.Preview(AContratos, AllItems, FVerCondiciones);
end;
end;
end;
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index 6ab0b03..0b1a5c0 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -287,6 +287,11 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'FORMA_PAGO'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 98dec0d..a742de1 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -9,10 +9,10 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturas = '{5EC733D0-DC7F-43A8-A290-90DF3580EF60}';
- RID_FacturasProveedor_Contratos = '{8CB5511A-E896-473C-A67E-6E3141296AF8}';
- RID_FacturasProveedor = '{14B00AB0-8C72-44BF-8319-54A81E4EA612}';
- RID_FacturasProveedor_Detalles = '{C43F1F4D-4F6A-4ECD-B6DA-D66F7E6042E6}';
+ RID_ListaAnosFacturas = '{53859183-8621-4E20-BD02-3946114224F4}';
+ RID_FacturasProveedor_Contratos = '{D3B2A8DE-A702-4ED3-A508-8C998E852CC1}';
+ RID_FacturasProveedor = '{B7A06876-C8B1-4219-9FA4-6F603C0626A0}';
+ RID_FacturasProveedor_Detalles = '{3687ACB0-058A-4BA3-AA58-C55ED1085DBC}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -95,6 +95,7 @@ const
fld_FacturasProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
fld_FacturasProveedorRETENCION = 'RETENCION';
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
+ fld_FacturasProveedorFORMA_PAGO = 'FORMA_PAGO';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@@ -141,6 +142,7 @@ const
idx_FacturasProveedorASIENTO_PUNTEADO = 41;
idx_FacturasProveedorRETENCION = 42;
idx_FacturasProveedorIMPORTE_RETENCION = 43;
+ idx_FacturasProveedorFORMA_PAGO = 44;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@@ -177,7 +179,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{DE768EB7-76CF-44E8-AE1E-BC2CE5BC60C2}']
+ ['{C0691AB6-E446-40DA-9325-CC2DBF58DE24}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -212,7 +214,7 @@ type
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
- ['{471034E3-DD97-4487-8564-52AA41745E50}']
+ ['{56C5F1C3-DFF3-43DD-8B4E-5578BC7E3123}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -355,7 +357,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{993E54AD-C84E-4314-A0FD-C6FC6B5C12C1}']
+ ['{19E27DC5-2CB0-4106-A46C-EF522AD57AC2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -532,6 +534,10 @@ type
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
+ function GetFORMA_PAGOValue: String;
+ procedure SetFORMA_PAGOValue(const aValue: String);
+ function GetFORMA_PAGOIsNull: Boolean;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean);
{ Properties }
@@ -623,6 +629,8 @@ type
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
end;
{ TFacturasProveedorDataTableRules }
@@ -807,6 +815,10 @@ type
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGOValue: String; virtual;
+ procedure SetFORMA_PAGOValue(const aValue: String); virtual;
+ function GetFORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -897,6 +909,8 @@ type
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
+ property FORMA_PAGO: String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -906,7 +920,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{024EFC64-A8A8-497F-891E-D4B407378FA4}']
+ ['{C9175800-D175-4276-B8E2-78AFE8EBBD48}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2296,6 +2310,27 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsVariant := Null;
end;
+function TFacturasProveedorDataTableRules.GetFORMA_PAGOValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorFORMA_PAGO].AsString;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFORMA_PAGOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasProveedorFORMA_PAGO].AsString := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetFORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorFORMA_PAGO].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedorFORMA_PAGO].AsVariant := Null;
+end;
+
{ TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 0bbff47..b0a54c4 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturasDelta = '{30F77C37-AF68-42B8-9656-F46D79178373}';
- RID_FacturasProveedor_ContratosDelta = '{C5F637C2-E1B3-4A3E-8C74-35548EE2B2EB}';
- RID_FacturasProveedorDelta = '{6D103885-6FF2-4452-8C98-1F805E1C3147}';
- RID_FacturasProveedor_DetallesDelta = '{4A9BB6AD-05CD-4C05-8245-1004B1C351F9}';
+ RID_ListaAnosFacturasDelta = '{81F4E395-9EF6-40C1-83D5-5C2A0A2490B1}';
+ RID_FacturasProveedor_ContratosDelta = '{9F853EA8-A072-49D3-974F-EC78904BF3E5}';
+ RID_FacturasProveedorDelta = '{35C96B32-3020-4329-9690-9823F535BEEE}';
+ RID_FacturasProveedor_DetallesDelta = '{C47D8D71-F005-4A0A-921C-99C45D6D01B2}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{30F77C37-AF68-42B8-9656-F46D79178373}']
+ ['{81F4E395-9EF6-40C1-83D5-5C2A0A2490B1}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
- ['{C5F637C2-E1B3-4A3E-8C74-35548EE2B2EB}']
+ ['{9F853EA8-A072-49D3-974F-EC78904BF3E5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -193,7 +193,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{6D103885-6FF2-4452-8C98-1F805E1C3147}']
+ ['{35C96B32-3020-4329-9690-9823F535BEEE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -239,6 +239,7 @@ type
function GetOldASIENTO_PUNTEADOValue : SmallInt;
function GetOldRETENCIONValue : Float;
function GetOldIMPORTE_RETENCIONValue : Currency;
+ function GetOldFORMA_PAGOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -285,6 +286,7 @@ type
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldRETENCION : Float read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
+ property OldFORMA_PAGO : String read GetOldFORMA_PAGOValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@@ -557,6 +559,12 @@ type
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
+ function GetFORMA_PAGOValue: String; virtual;
+ function GetFORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldFORMA_PAGOValue: String; virtual;
+ function GetOldFORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetFORMA_PAGOValue(const aValue: String); virtual;
+ procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -735,6 +743,10 @@ type
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
+ property FORMA_PAGO : String read GetFORMA_PAGOValue write SetFORMA_PAGOValue;
+ property FORMA_PAGOIsNull : Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
+ property OldFORMA_PAGO : String read GetOldFORMA_PAGOValue;
+ property OldFORMA_PAGOIsNull : Boolean read GetOldFORMA_PAGOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -744,7 +756,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{4A9BB6AD-05CD-4C05-8245-1004B1C351F9}']
+ ['{C47D8D71-F005-4A0A-921C-99C45D6D01B2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -2685,6 +2697,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := Null;
end;
+function TFacturasProveedorBusinessProcessorRules.GetFORMA_PAGOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMA_PAGO];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetFORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMA_PAGO]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFORMA_PAGOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFORMA_PAGO];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFORMA_PAGO]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFORMA_PAGOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMA_PAGO] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFORMA_PAGO] := Null;
+end;
+
{ TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 07b444d..afa2d9a 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -348,6 +348,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
+ end
+ item
+ DatasetField = 'FORMA_PAGO'
+ TableField = 'FORMA_PAGO'
end>
end>
Name = 'FacturasProveedor'
@@ -580,6 +584,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
+ end
+ item
+ Name = 'FORMA_PAGO'
+ DataType = datString
+ Size = 255
end>
end
item
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
index 32c17e3..b1baae9 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
@@ -41,9 +41,6 @@
Package
FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
-
-
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
FacturasProveedor_view.dpk
@@ -52,42 +49,42 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorElegirArticulosFacturaProveedor
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
index 8a2c252..5e9881b 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
@@ -83,7 +83,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 1105
Height = 374
OnChanging = pgPaginasChanging
- ExplicitTop = 109
+ ExplicitLeft = 8
+ ExplicitTop = 106
ExplicitWidth = 1105
ExplicitHeight = 374
inherited pagGeneral: TTabSheet
@@ -210,6 +211,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 671
+ ExplicitHeight = 228
Height = 228
Width = 671
end
@@ -268,57 +270,57 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
- Left = 586
+ Left = 570
Top = 0
- ExplicitLeft = 586
+ ExplicitLeft = 570
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
- Left = 603
+ Left = 587
Top = 0
- ExplicitLeft = 603
+ ExplicitLeft = 587
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
- Left = 611
+ Left = 595
Top = 0
- ExplicitLeft = 611
+ ExplicitLeft = 595
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
- Left = 645
+ Left = 629
Top = 0
- ExplicitLeft = 645
+ ExplicitLeft = 629
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
- Left = 679
+ Left = 663
Top = 0
- ExplicitLeft = 679
+ ExplicitLeft = 663
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
- Left = 713
+ Left = 697
Top = 0
- ExplicitLeft = 713
+ ExplicitLeft = 697
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 721
+ Left = 705
Top = 0
- ExplicitLeft = 721
+ ExplicitLeft = 705
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
- Left = 755
+ Left = 739
Top = 0
- ExplicitLeft = 755
+ ExplicitLeft = 739
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
- Left = 789
+ Left = 773
Top = 0
- ExplicitLeft = 789
+ ExplicitLeft = 773
ExplicitTop = 0
end
end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
index db3f3ba..163358b 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
- Width = 451
- Height = 304
+ Width = 1007
+ Height = 604
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 451
- Height = 304
+ Width = 1007
+ Height = 604
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitWidth = 451
+ ExplicitHeight = 304
DesignSize = (
- 451
- 304)
+ 1007
+ 604)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@@ -95,7 +97,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 169
end
object bFormasPago: TButton
- Left = 150
+ Left = 513
Top = 135
Width = 132
Height = 23
@@ -142,7 +144,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl
Width = 320
- ExplicitWidth = 320
+ ExplicitWidth = 260
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
@@ -171,7 +173,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
- Left = 310
+ Left = 673
Top = 30
Width = 312
Height = 260
@@ -183,7 +185,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False
TabOrder = 7
ReadOnly = False
- ExplicitLeft = 310
+ ExplicitLeft = 673
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
@@ -247,7 +249,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
- ExplicitHeight = 228
+ ExplicitWidth = 600
+ ExplicitHeight = 20
Height = 228
end
end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
index 9a1de8d..f51dd21 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
@@ -93,6 +93,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
DataBinding.FieldName = 'SITUACION'
Width = 32
end
+ object cxGridViewFORMA_PAGO: TcxGridDBColumn
+ Caption = 'Forma de pago'
+ DataBinding.FieldName = 'FORMA_PAGO'
+ end
object cxGridViewFECHA_FACTURA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_FACTURA'
PropertiesClassName = 'TcxDateEditProperties'
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
index 3ea621c..e7c623d 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
@@ -62,6 +62,7 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewRETENCION: TcxGridDBColumn;
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
+ cxGridViewFORMA_PAGO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index bd8a310..8640ee9 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
@@ -45,6 +45,7 @@ type
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
+ function AnadirPagos(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@@ -123,6 +124,7 @@ type
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
+ function AnadirPagos(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
@@ -217,6 +219,23 @@ begin
end;
end;
+function TRecibosClienteController.AnadirPagos(
+ ARecibosCliente: IBizRecibosCliente; FechaPago: String; AIgnorarContabilidad,
+ AIdSubCuenta: Integer; ASubCuenta: String): Boolean;
+begin
+ if Assigned(ARecibosCliente) then
+ with ARecibosCliente.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ if (ARecibosCliente.SITUACION = CTE_PENDIENTE) then
+ Self.AnadirPago(ARecibosCliente, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
+ Next;
+ end;
+ end;
+end;
+
procedure TRecibosClienteController.AsignarDataModule;
begin
FDataModule := TDataModuleRecibosCliente.Create(Nil);
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
index 1760ab6..6bda34f 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
@@ -405,6 +405,15 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'REFERENCIA_CONTRATO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index c3292a0..193214c 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
@@ -9,10 +9,10 @@ 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 = '{D5B6BF26-7BBC-47E0-B49F-E6F4D3B44319}';
- RID_RecibosCliente = '{B32FEACD-28B0-4FF2-8003-F5A89897D1B2}';
- RID_PagosCliente = '{992BD3A1-1E54-4F16-9744-B8F6390D83C6}';
- RID_RecibosCompensadosCli = '{745905DF-2406-47A4-953E-36D56DF294E3}';
+ RID_ListaAnosRecibos = '{2923957A-D068-4237-B223-2D9A29E62166}';
+ RID_RecibosCliente = '{6BA303A0-F7F4-49EE-A1C9-1F7593DC75D0}';
+ RID_PagosCliente = '{F177D453-F035-4169-90B3-87659AB92304}';
+ RID_RecibosCompensadosCli = '{65A0935A-6F09-461F-BBB9-9BC6C4D699A4}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -68,6 +68,8 @@ const
fld_RecibosClienteID_CONTRATO = 'ID_CONTRATO';
fld_RecibosClienteID_CON_FACTURA = 'ID_CON_FACTURA';
fld_RecibosClienteREFERENCIA_CONTRATO = 'REFERENCIA_CONTRATO';
+ fld_RecibosClienteFECHA_PAGO = 'FECHA_PAGO';
+ fld_RecibosClienteSUBCUENTA = 'SUBCUENTA';
{ RecibosCliente field indexes }
idx_RecibosClienteID = 0;
@@ -111,6 +113,8 @@ const
idx_RecibosClienteID_CONTRATO = 38;
idx_RecibosClienteID_CON_FACTURA = 39;
idx_RecibosClienteREFERENCIA_CONTRATO = 40;
+ idx_RecibosClienteFECHA_PAGO = 41;
+ idx_RecibosClienteSUBCUENTA = 42;
{ PagosCliente fields }
fld_PagosClienteID = 'ID';
@@ -235,7 +239,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
- ['{D3C1EE97-0A4D-4B95-94FA-8F71079694AF}']
+ ['{7EC58276-B43B-46AA-A9F7-7F508A0938BC}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -270,7 +274,7 @@ type
{ IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable)
- ['{29EF7928-3ACF-4AA1-985F-316885B0F742}']
+ ['{B8901349-7751-4A58-A1BE-7B75DA54BDD5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -436,6 +440,14 @@ type
procedure SetREFERENCIA_CONTRATOValue(const aValue: String);
function GetREFERENCIA_CONTRATOIsNull: Boolean;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean);
+ function GetFECHA_PAGOValue: DateTime;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime);
+ function GetFECHA_PAGOIsNull: Boolean;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean);
+ function GetSUBCUENTAValue: String;
+ procedure SetSUBCUENTAValue(const aValue: String);
+ function GetSUBCUENTAIsNull: Boolean;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean);
{ Properties }
@@ -521,6 +533,10 @@ type
property ID_CON_FACTURAIsNull: Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
end;
{ TRecibosClienteDataTableRules }
@@ -692,6 +708,14 @@ type
procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PAGOValue: DateTime; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -776,6 +800,10 @@ type
property ID_CON_FACTURAIsNull: Boolean read GetID_CON_FACTURAIsNull write SetID_CON_FACTURAIsNull;
property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue;
property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -785,7 +813,7 @@ type
{ IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable)
- ['{08480DE6-29F3-4979-93F8-2C70BE75F582}']
+ ['{0ED35CB6-EBE6-4DC6-BEF1-A5A035A399A4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1024,7 +1052,7 @@ type
{ IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
- ['{33CEE61F-AA71-4B69-890D-B4A8730BF65F}']
+ ['{D6EBEA68-458A-4870-9D00-35D40782E532}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2410,6 +2438,48 @@ begin
DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsVariant := Null;
end;
+function TRecibosClienteDataTableRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_PAGO].AsDateTime;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosClienteFECHA_PAGO].AsDateTime := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetFECHA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteFECHA_PAGO].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteFECHA_PAGO].AsVariant := Null;
+end;
+
+function TRecibosClienteDataTableRules.GetSUBCUENTAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSUBCUENTA].AsString;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosClienteSUBCUENTA].AsString := aValue;
+end;
+
+function TRecibosClienteDataTableRules.GetSUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosClienteSUBCUENTA].IsNull;
+end;
+
+procedure TRecibosClienteDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosClienteSUBCUENTA].AsVariant := Null;
+end;
+
{ TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
index 92dfe03..c6f8b0e 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
+++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}';
- RID_RecibosClienteDelta = '{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}';
- RID_PagosClienteDelta = '{7C905E12-6184-4266-A621-3082A0495D15}';
- RID_RecibosCompensadosCliDelta = '{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}';
+ RID_ListaAnosRecibosDelta = '{F05CAFE8-C43F-4E9D-AA88-62F2B9E406EA}';
+ RID_RecibosClienteDelta = '{0883DCB0-8B4F-4577-A247-4D4AD216B31D}';
+ RID_PagosClienteDelta = '{57F40BC2-CE5A-4DE2-90CB-230F5A45E7F3}';
+ RID_RecibosCompensadosCliDelta = '{CB3E887F-CB3D-4A93-B22A-37F15431939D}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
- ['{72D48DE9-24CF-46E8-851D-FFB3C34EF8A0}']
+ ['{F05CAFE8-C43F-4E9D-AA88-62F2B9E406EA}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente)
- ['{7C11BE84-F76A-4894-B7D2-2148A6A5FDB2}']
+ ['{0883DCB0-8B4F-4577-A247-4D4AD216B31D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -94,6 +94,8 @@ type
function GetOldID_CONTRATOValue : Integer;
function GetOldID_CON_FACTURAValue : Integer;
function GetOldREFERENCIA_CONTRATOValue : String;
+ function GetOldFECHA_PAGOValue : DateTime;
+ function GetOldSUBCUENTAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -137,6 +139,8 @@ type
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID_CON_FACTURA : Integer read GetOldID_CON_FACTURAValue;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TRecibosClienteBusinessProcessorRules }
@@ -390,6 +394,18 @@ type
function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual;
procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual;
procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PAGOValue: DateTime; virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ function GetOldFECHA_PAGOValue: DateTime; virtual;
+ function GetOldFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ function GetOldSUBCUENTAValue: String; virtual;
+ function GetOldSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -556,6 +572,14 @@ type
property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull;
property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue;
property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull;
+ property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull : Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldFECHA_PAGOIsNull : Boolean read GetOldFECHA_PAGOIsNull;
+ property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+ property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -565,7 +589,7 @@ type
{ IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente)
- ['{7C905E12-6184-4266-A621-3082A0495D15}']
+ ['{57F40BC2-CE5A-4DE2-90CB-230F5A45E7F3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -803,7 +827,7 @@ type
{ IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
- ['{0CE1BC42-8D5A-4EA3-9E6F-E0158BD7F9B1}']
+ ['{CB3E887F-CB3D-4A93-B22A-37F15431939D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -2609,6 +2633,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null;
end;
+function TRecibosClienteBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_PAGO];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteFECHA_PAGO]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteFECHA_PAGO] := Null;
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA]);
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUBCUENTA];
+end;
+
+function TRecibosClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteSUBCUENTA]);
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA] := aValue;
+end;
+
+procedure TRecibosClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteSUBCUENTA] := Null;
+end;
+
{ TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
index 3373dbe..939f937 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
@@ -69,12 +69,13 @@ object srvRecibosCliente: TsrvRecibosCliente
'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' +
' cont_subcuentas.descripcion as CUENTA_CONTABLE, v_recibos_clie' +
'nte.ID_CONTRATO, v_recibos_cliente.ID_CON_FACTURA, v_recibos_cli' +
- 'ente.REFERENCIA_CONTRATO'#10'from v_recibos_cliente'#10' left outer j' +
- 'oin pagos_cliente pag on'#10' (pag.id_recibo = v_recibos_clie' +
- 'nte.id)'#10' left outer join pagos_cliente pag2 on'#10' ((pag2' +
- '.id_recibo = pag.id_recibo) and (pag2.id > pag.id))'#10' left out' +
- 'er join cont_subcuentas on'#10' (cont_subcuentas.id = pag.cue' +
- 'nta)'#10'where (pag2.id is null) and {Where}'#10
+ 'ente.REFERENCIA_CONTRATO,'#10' v_recibos_cliente.FECHA_PAGO, v_re' +
+ 'cibos_cliente.SUBCUENTA'#10'from v_recibos_cliente'#10' left outer jo' +
+ 'in pagos_cliente pag on'#10' (pag.id_recibo = v_recibos_clien' +
+ 'te.id)'#10' left outer join pagos_cliente pag2 on'#10' ((pag2.' +
+ 'id_recibo = pag.id_recibo) and (pag2.id > pag.id))'#10' left oute' +
+ 'r join cont_subcuentas on'#10' (cont_subcuentas.id = pag.cuen' +
+ 'ta)'#10'where (pag2.id is null) and {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -241,6 +242,14 @@ object srvRecibosCliente: TsrvRecibosCliente
item
DatasetField = 'ID_CONTRATO'
TableField = 'ID_CONTRATO'
+ end
+ item
+ DatasetField = 'FECHA_PAGO'
+ TableField = 'FECHA_PAGO'
+ end
+ item
+ DatasetField = 'SUBCUENTA'
+ TableField = 'SUBCUENTA'
end>
end>
Name = 'RecibosCliente'
@@ -475,6 +484,15 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'REFERENCIA_CONTRATO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
end
item
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
index df20070..ccb6c55 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
@@ -10,6 +10,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 885
Caption = 'Recibo de cliente'
+ ExplicitTop = 49
ExplicitWidth = 885
inherited Image1: TImage
Left = 858
@@ -60,21 +61,22 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
inherited pgPaginas: TPageControl
Width = 879
- Height = 331
+ Height = 213
ActivePage = pagPagos
OnChanging = pgPaginasChanging
+ ExplicitTop = 109
ExplicitWidth = 879
- ExplicitHeight = 331
+ ExplicitHeight = 213
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 871
- ExplicitHeight = 303
+ ExplicitHeight = 185
inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0
Top = 0
Width = 871
- Height = 303
+ Height = 185
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -85,15 +87,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 871
- ExplicitHeight = 303
+ ExplicitHeight = 185
inherited dxLayoutControl1: TdxLayoutControl
Width = 871
- Height = 303
+ Height = 185
ExplicitWidth = 871
- ExplicitHeight = 303
+ ExplicitHeight = 185
DesignSize = (
871
- 303)
+ 185)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -309,64 +311,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagPagos: TTabSheet
Caption = 'Pagos'
ImageIndex = 2
- inline frViewPagosCliente1: TfrViewPagosCliente
- Left = 0
- Top = 0
- Width = 871
- Height = 303
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- ReadOnly = False
- ExplicitWidth = 871
- ExplicitHeight = 303
- inherited dxLayoutControl1: TdxLayoutControl
- Width = 871
- Height = 303
- ExplicitWidth = 871
- ExplicitHeight = 303
- end
- inherited dxLayoutControl2: TdxLayoutControl
- Width = 871
- Height = 303
- ExplicitWidth = 871
- ExplicitHeight = 303
- inherited ToolBar1: TToolBar
- Width = 684
- ExplicitWidth = 684
- end
- inherited ListaPagosCliente: TcxGrid
- Width = 684
- Height = 256
- ExplicitWidth = 684
- ExplicitHeight = 256
- inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
- inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
- IsCaptionAssigned = True
- end
- end
- end
- end
- inherited ActionListContenido: TActionList
- inherited actAnadir: TAction
- OnExecute = frViewPagosCliente1actAnadirExecute
- OnUpdate = frViewPagosCliente1actAnadirUpdate
- end
- inherited actModificar: TAction
- OnExecute = frViewPagosCliente1actModificarExecute
- OnUpdate = frViewPagosCliente1actModificarUpdate
- end
- inherited actEliminar: TAction
- OnExecute = frViewPagosCliente1actEliminarExecute
- OnUpdate = frViewPagosCliente1actEliminarUpdate
- end
- end
- end
end
object pagCompensados: TTabSheet
Caption = 'Recibos compensados'
@@ -375,7 +319,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0
Top = 0
Width = 871
- Height = 303
+ Height = 185
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -386,12 +330,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 871
- ExplicitHeight = 303
+ ExplicitHeight = 185
inherited cxGrid: TcxGrid
Width = 871
- Height = 278
+ Height = 160
ExplicitWidth = 871
- ExplicitHeight = 278
+ ExplicitHeight = 128
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -429,7 +373,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0
- Top = 443
+ Top = 325
Width = 885
Height = 100
Align = alBottom
@@ -441,7 +385,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 5
ReadOnly = False
- ExplicitTop = 443
+ ExplicitTop = 325
ExplicitWidth = 885
inherited dxLayoutControl1: TdxLayoutControl
Width = 885
@@ -463,21 +407,87 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
inherited PnlComentario: TPanel [5]
Width = 885
+ ExplicitTop = 76
ExplicitWidth = 885
inherited lbComentario: TLabel
Width = 875
Height = 25
end
end
- inherited JvFormStorage: TJvFormStorage
+ inline frViewPagosCliente1: TfrViewPagosCliente [6]
+ Left = 0
+ Top = 425
+ Width = 885
+ Height = 118
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 6
+ ReadOnly = False
+ ExplicitTop = 425
+ ExplicitWidth = 885
+ ExplicitHeight = 118
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 885
+ Height = 118
+ ExplicitWidth = 885
+ ExplicitHeight = 118
+ end
+ inherited dxLayoutControl2: TdxLayoutControl
+ Width = 885
+ Height = 118
+ ExplicitWidth = 885
+ ExplicitHeight = 118
+ inherited ToolBar1: TToolBar
+ Width = 684
+ ExplicitWidth = 684
+ end
+ inherited ListaPagosCliente: TcxGrid
+ Width = 684
+ Height = 256
+ ExplicitWidth = 684
+ ExplicitHeight = 256
+ inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
+ inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
+ end
+ end
+ end
+ inherited ActionListContenido: TActionList
+ inherited actAnadir: TAction
+ OnExecute = frViewPagosCliente1actAnadirExecute
+ OnUpdate = frViewPagosCliente1actAnadirUpdate
+ end
+ inherited actModificar: TAction
+ OnExecute = frViewPagosCliente1actModificarExecute
+ OnUpdate = frViewPagosCliente1actModificarUpdate
+ end
+ inherited actEliminar: TAction
+ OnExecute = frViewPagosCliente1actEliminarExecute
+ OnUpdate = frViewPagosCliente1actEliminarUpdate
+ end
+ end
+ end
+ inherited SmallImages: TPngImageList [7]
+ end
+ inherited LargeImages: TPngImageList [8]
+ end
+ inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
- inherited dsDataTable: TDADataSource
+ inherited dsDataTable: TDADataSource [10]
Left = 16
Top = 200
end
- inherited EditorActionList: TActionList [11]
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
+ end
+ inherited EditorActionList: TActionList
Top = 96
inherited actNuevo: TAction
Enabled = False
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
index 32ff7e8..551fdd1 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
@@ -100,6 +100,7 @@ begin
//RECIBOS COMPENSADOS DESHABILITADOS
pagCompensados.TabVisible := False;
+ pagPagos.TabVisible := False;
ViewRecibo := frViewReciboCliente1;
end;
@@ -196,7 +197,7 @@ end;
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirUpdate(Sender: TObject);
begin
inherited;
- (Sender as TAction).Enabled := not (Recibo.ID_RECIBO_COMPENSADO > 0);
+ (Sender as TAction).Enabled := not (Recibo.ID_RECIBO_COMPENSADO > 0) and (FRecibo.Pagos.DataTable.RecordCount < 1)
end;
procedure TfEditorReciboCliente.frViewPagosCliente1actEliminarExecute(Sender: TObject);
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
index 9ba5f01..bd88652 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
@@ -59,12 +59,20 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645
end
inherited TBXTMain2: TTBXToolbar
- Left = 431
+ Left = 437
+ DockPos = 437
Visible = True
- ExplicitLeft = 431
- ExplicitWidth = 66
+ ExplicitLeft = 437
+ ExplicitWidth = 181
object TBXItem38: TTBXItem
Action = actInformes
+ DisplayMode = nbdmImageAndText
+ end
+ object TBXSeparatorItem17: TTBXSeparatorItem
+ end
+ object TBXItem39: TTBXItem
+ Action = actCambioSituacion
+ DisplayMode = nbdmImageAndText
end
end
end
@@ -93,9 +101,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitHeight = 440
inherited cxGrid: TcxGrid
Width = 645
- Height = 312
+ Height = 319
ExplicitWidth = 645
- ExplicitHeight = 312
+ ExplicitHeight = 319
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@@ -161,6 +169,30 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 295
Width = 295
end
+ inherited edtFecha2FinFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFecha2IniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFecha3IniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFecha3FinFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 645
@@ -221,8 +253,15 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
object actInformes: TAction
Category = 'Archivo'
Caption = 'Informes'
+ ImageIndex = 23
OnExecute = actInformesExecute
end
+ object actCambioSituacion: TAction
+ Category = 'Archivo'
+ Caption = 'Cobrar recibo'
+ ImageIndex = 24
+ OnExecute = actCambioSituacionExecute
+ end
end
inherited SmallImages: TPngImageList [5]
PngImages = <
@@ -736,6 +775,121 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
3E79D138E0990900FC7AC6454D6D985F0000000049454E44AE426082}
Name = 'PngImage22'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000EE4944415478DA
+ 63FCFFFF3F0325801164C0D22D27C93225DAC79C116E00904350C3DF7FFF197E
+ FFF9CBF0EBF71F0687E02286733BA6116F00B2E645EB0E30CC5BBA09D3006E6E
+ 6E86AF5FBF82696CE0F9ABB70CBF7FFF6558BEF930760308D90CD20C62AFD97E
+ 0CBF01F85C72FDCE13864D7B4E127601369B7F81E97F0CDB0F9C26EC82B7EF3F
+ 32080BF263B8E0D4C5BB0CFB8F5FC06DC02FA04D2836C2D848E2474E5FC61D0B
+ AFDEBC67101311C41AA047CFDE021B7AEAC2354C03423D4C08DA0C133F7FF526
+ A60101CE86446906B1AFDCBC836980B7BD1EC3920D0789CE071806F44E59485A
+ 4E0202B80194000082585AF04025F9110000000049454E44AE426082}
+ Name = 'PngImage23'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD25200000A4D694343505068
+ 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
+ F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
+ 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
+ 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
+ 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
+ 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
+ C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
+ 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
+ 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
+ CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
+ 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
+ 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
+ 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
+ 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
+ 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
+ FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
+ F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
+ 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
+ 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
+ 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
+ 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
+ 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
+ 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
+ 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
+ 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
+ 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
+ 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
+ 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
+ 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
+ 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
+ A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
+ 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
+ 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
+ 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
+ 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
+ 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
+ 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
+ EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
+ 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
+ EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
+ 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
+ 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
+ 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
+ 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
+ A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
+ 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
+ D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
+ 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
+ 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
+ D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
+ C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
+ 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
+ FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
+ 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
+ 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
+ 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
+ BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
+ F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
+ A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
+ 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
+ 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
+ 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
+ F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
+ DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
+ 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
+ A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
+ 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
+ EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
+ CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
+ 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
+ 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
+ B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
+ 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
+ EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
+ E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
+ 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
+ EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
+ EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
+ FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
+ CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
+ ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
+ CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
+ F73EE77CFEFC2FF784F3FB25D29F330000012D4944415478DA63FCFFFF3F0325
+ 80916203966D3945B60991DEA68C6003B42CC41852B26F6355F4E7E77F86DFDF
+ FE31FCFEFC97E1FBFBDF60F68E73460C89D19D0CE7764C4318000230434E2E77
+ C63048416B135C3308A018D0B7F8235C214CB30CFF5E880B3E3F6278F12F11CC
+ 16175BC3F0FFF76F06865F7F18E4EC4E103600A41904600688092E076B66001A
+ 22E77C16BB01BFBEFC6338BFD915C30BC89A19FFFC619075BF881A0620FF8334
+ FFFAF297E1D75760A07DF9C3B032A610670C641FF64018D03D793E8682A9B63B
+ 184C53EA197E89A933309DE86638BFEF3CC3DC7DCF19A6B478C1D973F67E6764
+ C465C3B116C5D003AFD556DDBD7C10AB7CB293649865F5BDD5F80CF84FB10B80
+ D42A9042AABA00A4D1AAE6FE6A901A503E22D90573F7FD80EB011B40696E0400
+ A0BEE1E16734A0290000000049454E44AE426082}
+ Name = 'PngImage24'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
index a2be603..150a35c 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
@@ -47,10 +47,14 @@ type
JSInformesDialog: TJSDialog;
actInformes: TAction;
TBXItem38: TTBXItem;
+ actCambioSituacion: TAction;
+ TBXSeparatorItem17: TTBXSeparatorItem;
+ TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
+ procedure actCambioSituacionExecute(Sender: TObject);
private
FRecibosCliente: IBizRecibosCliente;
@@ -82,7 +86,7 @@ type
implementation
uses
- uDataModuleRecibosCliente, uDataModuleUsuarios, uFactuGES_App,
+ uDataModuleRecibosCliente, uDataModuleUsuarios, uFactuGES_App, uEditorFechaPago,
uGridUtils, uDBSelectionListUtils, uGestorInformesController;
{$R *.dfm}
@@ -90,6 +94,69 @@ uses
{
*************************** TfEditorRecibosCliente ***************************
}
+procedure TfEditorRecibosCliente.actCambioSituacionExecute(Sender: TObject);
+var
+ AFechaPago: String;
+ AIgnorarContabilidad: Integer;
+ AIdSubCuenta: Integer;
+ ASubCuenta: String;
+ ARecibos: IBizRecibosCliente;
+ AllItems: Boolean;
+
+begin
+ inherited;
+
+ ARecibos := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ if AllItems then
+ begin
+ if (Application.MessageBox('¿Desea cambiar a pagados los recibos de cliente seleccionados, en caso de tener recibos ya pagados en la selección, estos no serán modificados?', 'Atención', MB_YESNO) = IDYES) then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosCliente as ISeleccionable).SelectedRecords);
+ ARecibos := (Controller as IRecibosClienteController).ExtraerSeleccionados(RecibosCliente) as IBizRecibosCliente;
+ end
+ else
+ exit;
+ end
+ else begin
+ ARecibos := Controller.Buscar(RecibosCliente.ID);
+ ARecibos.DataTable.active := True;
+ end;
+
+ with TfEditorFechaPago.Create(Nil) do
+ begin
+ if (ShowModal = mrOk) then
+ begin
+ AFechaPago := DateToStr(FechaPago);
+ AIgnorarContabilidad := IgnorarContabilidad;
+ AIdSubCuenta := IdSubcuenta;
+ ASubCuenta := frViewListaSubcuentas1.cbSubCuentas.Text;
+ Release;
+ end
+ else
+ begin
+ //Operación cancelada
+ Release;
+ exit;
+ end;
+ end;
+
+ if Assigned(ARecibos) then
+ begin
+ ViewGrid._Grid.BeginUpdate;
+ ViewGrid._Grid.EndUpdate;
+ FController.AnadirPagos(ARecibos, AFechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
+ FController.Guardar(ARecibos);
+ actRefrescar.Execute;
+ ViewGrid._Grid.EndUpdate;
+ end;
+
+end;
+
procedure TfEditorRecibosCliente.actEliminarUpdate(Sender: TObject);
begin
inherited;
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
index 8d54df0..1849d37 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
@@ -1,14 +1,14 @@
inherited frViewPagosCliente: TfrViewPagosCliente
Width = 666
- Height = 401
+ Height = 130
OnShow = CustomViewShow
ExplicitWidth = 666
- ExplicitHeight = 401
+ ExplicitHeight = 130
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 666
- Height = 401
+ Height = 130
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@@ -19,6 +19,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitHeight = 401
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -29,13 +30,14 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Left = 0
Top = 0
Width = 666
- Height = 401
+ Height = 130
Align = alClient
ParentBackground = True
TabOrder = 1
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitHeight = 401
object ToolBar1: TToolBar
Left = 22
Top = 30
@@ -83,9 +85,9 @@ inherited frViewPagosCliente: TfrViewPagosCliente
object ListaPagosCliente: TcxGrid
Left = 22
Top = 61
- Width = 605
- Height = 262
- Align = alClient
+ Width = 622
+ Height = 150
+ Align = alBottom
Enabled = False
TabOrder = 1
LookAndFeel.Kind = lfStandard
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
index ddf1a97..7e54975 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
@@ -118,6 +118,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
VisibleForCustomization = False
Width = 40
end
+ object cxGridViewFECHA_PAGO: TcxGridDBColumn
+ Caption = 'Fecha de cobro'
+ DataBinding.FieldName = 'FECHA_PAGO'
+ end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
@@ -216,6 +220,13 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Caption = 'Ref. presupuesto'
DataBinding.FieldName = 'REFERENCIA_CONTRATO'
end
+ object cxGridViewSUBCUENTA: TcxGridDBColumn
+ Caption = 'Cuenta'
+ DataBinding.FieldName = 'SUBCUENTA'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
@@ -294,12 +305,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
Enabled = False
- Visible = False
Hidden = False
end
- inherited dxLayoutControl1Group4: TdxLayoutGroup
- Visible = False
- end
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
index 49cec2d..0401a66 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
@@ -60,6 +60,8 @@ type
cxGridViewCUENTA_CONTABLE: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
+ cxGridViewFECHA_PAGO: TcxGridDBColumn;
+ cxGridViewSUBCUENTA: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index b89d2ad..e67fc07 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
@@ -43,6 +43,7 @@ type
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
+ function AnadirPagos(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
@@ -115,6 +116,7 @@ type
procedure RecuperarProveedor(AReciboProveedor : IBizRecibosProveedor);
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
+ function AnadirPagos(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function Eliminar(ARecibosProveedor : IBizRecibosProveedor; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean;
@@ -205,6 +207,23 @@ begin
end;
end;
+function TRecibosProveedorController.AnadirPagos(
+ ARecibosProveedor: IBizRecibosProveedor; FechaPago: String;
+ AIgnorarContabilidad, AIdSubCuenta: Integer; ASubCuenta: String): Boolean;
+begin
+ if Assigned(ARecibosProveedor) then
+ with ARecibosProveedor.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ if (ARecibosProveedor.SITUACION = CTE_PENDIENTE) then
+ Self.AnadirPago(ARecibosProveedor, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
+ Next;
+ end;
+ end;
+end;
+
procedure TRecibosProveedorController.AsignarDataModule;
begin
FDataModule := TDataModuleRecibosProveedor.Create(Nil);
diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
index 5ce48ff..16f5f46 100644
--- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
@@ -584,6 +584,15 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
index 8731a87..30b89d1 100644
--- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
+++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
@@ -9,10 +9,10 @@ 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 = '{FDCECB7A-F380-4768-B4DD-BB7B099545B0}';
- RID_RecibosCompensadosProv = '{5E1F3780-C4F1-4D78-A90D-7B4864BB534F}';
- RID_RecibosProveedor = '{7C35903F-1550-47CC-8F7B-6653C6111C6F}';
- RID_PagosProveedor = '{0769FC25-A19C-4585-91C9-CAA2733EBC94}';
+ RID_ListaAnosRecibos = '{97AAE0FA-D3DF-4008-B070-A3015CC189F9}';
+ RID_RecibosCompensadosProv = '{4CB8497B-1BEB-4DE9-94B9-5E42284456AE}';
+ RID_RecibosProveedor = '{151C8D3D-E3FC-47A4-BE6F-3A415A106120}';
+ RID_PagosProveedor = '{3711DD41-9259-4E70-AB01-30D8877B4B7E}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -148,6 +148,8 @@ const
fld_RecibosProveedorUSUARIO = 'USUARIO';
fld_RecibosProveedorID_TIENDA = 'ID_TIENDA';
fld_RecibosProveedorTIENDA = 'TIENDA';
+ fld_RecibosProveedorFECHA_PAGO = 'FECHA_PAGO';
+ fld_RecibosProveedorSUBCUENTA = 'SUBCUENTA';
{ RecibosProveedor field indexes }
idx_RecibosProveedorID = 0;
@@ -189,6 +191,8 @@ const
idx_RecibosProveedorUSUARIO = 36;
idx_RecibosProveedorID_TIENDA = 37;
idx_RecibosProveedorTIENDA = 38;
+ idx_RecibosProveedorFECHA_PAGO = 39;
+ idx_RecibosProveedorSUBCUENTA = 40;
{ PagosProveedor fields }
fld_PagosProveedorID = 'ID';
@@ -233,7 +237,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
- ['{240A3304-8A4A-437C-B507-EA3C29B09E34}']
+ ['{7BBFD3EA-3A1F-49D8-BC66-6EF128836528}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -268,7 +272,7 @@ type
{ IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
- ['{E9748134-4CD2-4393-9ADC-F9B017F89E8D}']
+ ['{04E42180-C48E-4724-BA02-1B93D6251CCD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -759,7 +763,7 @@ type
{ IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable)
- ['{672FBDB0-2292-4F6E-9FA1-ACCE04B8A41F}']
+ ['{52D22B65-BCBF-4AF8-919B-7AFBF217853C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -917,6 +921,14 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
+ function GetFECHA_PAGOValue: DateTime;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime);
+ function GetFECHA_PAGOIsNull: Boolean;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean);
+ function GetSUBCUENTAValue: String;
+ procedure SetSUBCUENTAValue(const aValue: String);
+ function GetSUBCUENTAIsNull: Boolean;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean);
{ Properties }
@@ -998,6 +1010,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
end;
{ TRecibosProveedorDataTableRules }
@@ -1161,6 +1177,14 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PAGOValue: DateTime; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -1241,6 +1265,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1250,7 +1278,7 @@ type
{ IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable)
- ['{751D7F88-FCB6-457A-9850-8B293B22A64D}']
+ ['{4D36AE20-8D1F-40F2-BDFF-EBF7B9330D5D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -3185,6 +3213,48 @@ begin
DataTable.Fields[idx_RecibosProveedorTIENDA].AsVariant := Null;
end;
+function TRecibosProveedorDataTableRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorFECHA_PAGO].AsDateTime;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_RecibosProveedorFECHA_PAGO].AsDateTime := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetFECHA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorFECHA_PAGO].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosProveedorFECHA_PAGO].AsVariant := Null;
+end;
+
+function TRecibosProveedorDataTableRules.GetSUBCUENTAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorSUBCUENTA].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosProveedorSUBCUENTA].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetSUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorSUBCUENTA].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosProveedorSUBCUENTA].AsVariant := Null;
+end;
+
{ TPagosProveedorDataTableRules }
constructor TPagosProveedorDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
index 3b01764..5ff25bc 100644
--- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
+++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{5D29690B-384E-4780-9C9B-36BB88222B3B}';
- RID_RecibosCompensadosProvDelta = '{7B6C1BEB-EE45-4CBD-9706-211CB1030A5A}';
- RID_RecibosProveedorDelta = '{C93C14AF-851D-4BAA-BD1A-5FE048D5A0AC}';
- RID_PagosProveedorDelta = '{B4931DB5-8073-40F2-BD77-3A430666BC5F}';
+ RID_ListaAnosRecibosDelta = '{E8A296C6-C6C6-4821-ABD1-65EE5C5CE5E7}';
+ RID_RecibosCompensadosProvDelta = '{6210EF83-7686-4674-A385-B7071237FACB}';
+ RID_RecibosProveedorDelta = '{41AE7B3A-2837-467C-9EF5-EE52952DC66E}';
+ RID_PagosProveedorDelta = '{42CA510C-C01E-4C46-A221-CE6EF13D95EA}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
- ['{5D29690B-384E-4780-9C9B-36BB88222B3B}']
+ ['{E8A296C6-C6C6-4821-ABD1-65EE5C5CE5E7}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
- ['{7B6C1BEB-EE45-4CBD-9706-211CB1030A5A}']
+ ['{6210EF83-7686-4674-A385-B7071237FACB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -541,7 +541,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
- ['{C93C14AF-851D-4BAA-BD1A-5FE048D5A0AC}']
+ ['{41AE7B3A-2837-467C-9EF5-EE52952DC66E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -582,6 +582,8 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
+ function GetOldFECHA_PAGOValue : DateTime;
+ function GetOldSUBCUENTAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -623,6 +625,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TRecibosProveedorBusinessProcessorRules }
@@ -864,6 +868,18 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_PAGOValue: DateTime; virtual;
+ function GetFECHA_PAGOIsNull: Boolean; virtual;
+ function GetOldFECHA_PAGOValue: DateTime; virtual;
+ function GetOldFECHA_PAGOIsNull: Boolean; virtual;
+ procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ function GetOldSUBCUENTAValue: String; virtual;
+ function GetOldSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -1022,6 +1038,14 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+ property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue;
+ property FECHA_PAGOIsNull : Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull;
+ property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue;
+ property OldFECHA_PAGOIsNull : Boolean read GetOldFECHA_PAGOIsNull;
+ property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+ property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1031,7 +1055,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
- ['{B4931DB5-8073-40F2-BD77-3A430666BC5F}']
+ ['{42CA510C-C01E-4C46-A221-CE6EF13D95EA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -3756,6 +3780,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorTIENDA] := Null;
end;
+function TRecibosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_PAGO];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_PAGO]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_PAGO] := Null;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUBCUENTA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUBCUENTA]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUBCUENTA] := Null;
+end;
+
{ TPagosProveedorBusinessProcessorRules }
constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
index a1d2bd6..e635eca 100644
--- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
+++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
@@ -9,10 +9,12 @@
+
+
@@ -151,14 +153,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
index bbf9201..2bfebce 100644
--- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
+++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
@@ -553,6 +553,14 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
+ end
+ item
+ DatasetField = 'FECHA_PAGO'
+ TableField = 'FECHA_PAGO'
+ end
+ item
+ DatasetField = 'SUBCUENTA'
+ TableField = 'SUBCUENTA'
end>
end>
Name = 'RecibosProveedor'
@@ -770,6 +778,15 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FECHA_PAGO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
end
item
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
index 6d31400..0c088f8 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
@@ -21,11 +21,9 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
object Label1: TLabel
Left = 42
Top = 31
- Width = 362
+ Width = 285
Height = 13
- Caption =
- 'Introduzca la fecha en la que se ha hecho efectivo el cobro o la' +
- ' devoluci'#243'n:'
+ Caption = 'Introduzca la fecha en la que se ha hecho efectivo el pago:'
end
object Label2: TLabel
Left = 42
@@ -39,9 +37,9 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
object Label3: TLabel
Left = 42
Top = 101
- Width = 306
+ Width = 240
Height = 13
- Caption = 'Seleccione el banco o caja donde se hace el cobro o devoluci'#243'n:'
+ Caption = 'Seleccione el banco o caja donde se hace el pago:'
end
object eFechaPago: TcxDateEdit
Left = 129
@@ -65,7 +63,6 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Height = 41
Align = alBottom
TabOrder = 1
- ExplicitTop = 176
object bAceptar: TButton
Left = 268
Top = 6
@@ -99,7 +96,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
ParentFont = False
TabOrder = 2
ReadOnly = False
- ExplicitTop = 136
+ ExplicitTop = 118
ExplicitWidth = 443
ExplicitHeight = 40
inherited dxLayoutControl1: TdxLayoutControl
@@ -159,8 +156,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Caption = 'Comentario'
Visible = False
WordWrap = True
- ExplicitWidth = 55
- ExplicitHeight = 13
+ ExplicitHeight = 24
end
end
end
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
index 8b2b92e..5e52b03 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
@@ -1,18 +1,19 @@
inherited fEditorReciboProveedor: TfEditorReciboProveedor
Caption = 'Recibo de cliente'
- ClientHeight = 554
- ClientWidth = 691
+ ClientHeight = 732
+ ClientWidth = 1015
OnClose = CustomEditorClose
- ExplicitWidth = 699
- ExplicitHeight = 588
+ ExplicitWidth = 1023
+ ExplicitHeight = 766
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 691
- Caption = 'Recibo de cliente'
- ExplicitWidth = 691
+ Width = 1015
+ Caption = 'Recibo de proveedor'
+ ExplicitTop = 49
+ ExplicitWidth = 1015
inherited Image1: TImage
- Left = 664
+ Left = 988
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -39,41 +40,41 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited TBXDock: TTBXDock
- Width = 691
- ExplicitWidth = 691
+ Width = 1015
+ ExplicitWidth = 1015
inherited tbxMain: TTBXToolbar
ExplicitWidth = 267
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 691
+ ExplicitWidth = 1015
end
end
inherited StatusBar: TJvStatusBar
- Top = 535
- Width = 691
+ Top = 713
+ Width = 1015
Panels = <
item
Width = 200
end>
- ExplicitTop = 535
- ExplicitWidth = 691
+ ExplicitTop = 713
+ ExplicitWidth = 1015
end
inherited pgPaginas: TPageControl
- Width = 685
- Height = 323
- ActivePage = pagPagos
- ExplicitWidth = 685
- ExplicitHeight = 323
+ Width = 1009
+ Height = 381
+ ExplicitTop = 109
+ ExplicitWidth = 1009
+ ExplicitHeight = 381
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 677
- ExplicitHeight = 295
+ ExplicitWidth = 1001
+ ExplicitHeight = 353
inline frViewReciboProveedor1: TfrViewReciboProveedor
Left = 0
Top = 0
- Width = 677
- Height = 295
+ Width = 1001
+ Height = 353
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -83,16 +84,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 677
- ExplicitHeight = 295
+ ExplicitWidth = 1001
+ ExplicitHeight = 353
inherited dxLayoutControl1: TdxLayoutControl
- Width = 677
- Height = 295
- ExplicitWidth = 677
- ExplicitHeight = 295
+ Width = 1001
+ Height = 353
+ ExplicitWidth = 1001
+ ExplicitHeight = 353
DesignSize = (
- 677
- 295)
+ 1001
+ 353)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@@ -110,43 +111,43 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 112
end
inherited edtFechaVencimiento: TcxDBDateEdit
- Left = 228
+ Left = 418
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 228
+ ExplicitLeft = 418
ExplicitWidth = 20
Width = 20
end
inherited eFechaEmision: TcxDBTextEdit
- Left = 384
+ Left = 696
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 384
+ ExplicitLeft = 696
ExplicitWidth = 255
Width = 255
end
inherited eImporteTotal: TcxDBCurrencyEdit
- Left = 384
+ Left = 696
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 384
+ ExplicitLeft = 696
ExplicitWidth = 255
Width = 255
end
inherited eNombreCliente: TcxDBTextEdit
- Left = 384
+ Left = 696
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 384
+ ExplicitLeft = 696
ExplicitWidth = 255
Width = 255
end
@@ -175,12 +176,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 112
end
inherited rReferenciaFacturaProv: TcxDBTextEdit
- Left = 384
+ Left = 696
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 384
+ ExplicitLeft = 696
ExplicitWidth = 255
Width = 255
end
@@ -217,19 +218,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 112
end
inherited eNifCif: TcxDBTextEdit
- Left = 384
+ Left = 696
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 384
+ ExplicitLeft = 696
ExplicitWidth = 255
Width = 255
end
inherited frViewProveedorRecibo1: TfrViewProveedorRecibo
- Left = 276
+ Left = 588
Width = 374
- ExplicitLeft = 276
+ ExplicitLeft = 588
ExplicitWidth = 374
inherited dxLayoutControl1: TdxLayoutControl
Width = 374
@@ -307,16 +308,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited frViewObservaciones1: TfrViewObservaciones
- Width = 521
- Height = 150
- ExplicitWidth = 521
- ExplicitHeight = 150
+ Width = 561
+ Height = 100
+ ExplicitWidth = 561
+ ExplicitHeight = 100
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
- ExplicitWidth = 226
- ExplicitHeight = 129
- Height = 150
- Width = 521
+ ExplicitWidth = 561
+ ExplicitHeight = 100
+ Height = 100
+ Width = 561
end
end
end
@@ -325,63 +326,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
object pagPagos: TTabSheet
Caption = 'Pagos'
ImageIndex = 1
- inline frViewPagosProveedor1: TfrViewPagosProveedor
- Left = 0
- Top = 0
- Width = 677
- Height = 295
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- ReadOnly = False
- ExplicitWidth = 677
- ExplicitHeight = 295
- inherited dxLayoutControl1: TdxLayoutControl
- Width = 677
- Height = 295
- ExplicitWidth = 677
- ExplicitHeight = 295
- inherited ListaPagosProveedor: TcxGrid
- Width = 633
- Height = 248
- Enabled = False
- ExplicitWidth = 633
- ExplicitHeight = 248
- inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
- inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn
- IsCaptionAssigned = True
- end
- end
- end
- inherited ToolBar1: TToolBar
- Width = 633
- ExplicitWidth = 633
- end
- end
- inherited DADataSource: TDADataSource
- Left = 48
- Top = 88
- end
- inherited ActionListContenido: TActionList
- Left = 24
- inherited actAnadir: TAction
- OnExecute = frViewPagosProveedor1actAnadirExecute
- end
- inherited actModificar: TAction
- OnExecute = frViewPagosProveedor1actModificarExecute
- OnUpdate = frViewPagosProveedor1actModificarUpdate
- end
- inherited actEliminar: TAction
- OnExecute = frViewPagosProveedor1actEliminarExecute
- OnUpdate = frViewPagosProveedor1actEliminarUpdate
- end
- end
- end
end
object pagCompensados: TTabSheet
Caption = 'Compensados'
@@ -389,8 +333,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
Left = 0
Top = 0
- Width = 677
- Height = 295
+ Width = 1001
+ Height = 353
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -400,13 +344,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 677
- ExplicitHeight = 295
+ ExplicitWidth = 1001
+ ExplicitHeight = 353
inherited cxGrid: TcxGrid
- Width = 677
- Height = 270
- ExplicitWidth = 677
- ExplicitHeight = 300
+ Width = 1001
+ Height = 328
+ ExplicitWidth = 1001
+ ExplicitHeight = 328
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@@ -418,20 +362,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited ToolBar1: TToolBar
- Width = 677
- ExplicitWidth = 677
- inherited ToolButton1: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton4: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton2: TToolButton
- ExplicitWidth = 113
- end
- inherited ToolButton7: TToolButton
- ExplicitWidth = 113
- end
+ Width = 1001
+ ExplicitWidth = 1001
inherited ToolButton3: TToolButton
Top = 0
ExplicitTop = 0
@@ -448,8 +380,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4]
Left = 0
- Top = 435
- Width = 691
+ Top = 493
+ Width = 1015
Height = 100
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -460,11 +392,11 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ParentFont = False
TabOrder = 5
ReadOnly = False
- ExplicitTop = 435
- ExplicitWidth = 691
+ ExplicitTop = 493
+ ExplicitWidth = 1015
inherited dxLayoutControl1: TdxLayoutControl
- Width = 691
- ExplicitWidth = 691
+ Width = 1015
+ ExplicitWidth = 1015
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
@@ -481,22 +413,75 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
end
end
inherited PnlComentario: TPanel [5]
- Width = 691
- ExplicitWidth = 691
+ Width = 1015
+ ExplicitTop = 76
+ ExplicitWidth = 1015
inherited lbComentario: TLabel
- Width = 681
+ Width = 1005
Height = 25
end
end
- inherited JvFormStorage: TJvFormStorage
+ inline frViewPagosProveedor1: TfrViewPagosProveedor [6]
+ Left = 0
+ Top = 593
+ Width = 1015
+ Height = 120
+ Align = alBottom
+ Constraints.MaxHeight = 120
+ TabOrder = 6
+ ReadOnly = False
+ ExplicitTop = 593
+ ExplicitWidth = 1015
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 1015
+ ExplicitWidth = 1015
+ inherited ListaPagosProveedor: TcxGrid
+ Width = 252
+ Height = 105
+ ExplicitWidth = 252
+ ExplicitHeight = 105
+ inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView
+ inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
+ end
+ end
+ inherited ToolBar1: TToolBar
+ Width = 622
+ ExplicitWidth = 622
+ end
+ end
+ inherited ActionListContenido: TActionList
+ Left = 24
+ inherited actAnadir: TAction
+ OnExecute = frViewPagosProveedor1actAnadirExecute
+ OnUpdate = frViewPagosProveedor1actAnadirUpdate
+ end
+ inherited actModificar: TAction
+ OnExecute = frViewPagosProveedor1actModificarExecute
+ OnUpdate = frViewPagosProveedor1actModificarUpdate
+ end
+ inherited actEliminar: TAction
+ OnExecute = frViewPagosProveedor1actEliminarExecute
+ OnUpdate = actEliminarUpdate
+ end
+ end
+ end
+ inherited SmallImages: TPngImageList [7]
+ end
+ inherited LargeImages: TPngImageList [8]
+ end
+ inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
end
- inherited dsDataTable: TDADataSource
+ inherited dsDataTable: TDADataSource [10]
Left = 8
Top = 136
end
- inherited EditorActionList: TActionList [11]
+ inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
+ end
+ inherited EditorActionList: TActionList
Left = 56
Top = 144
inherited actNuevo: TAction
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
index 56cc78c..c6fddc4 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
@@ -19,9 +19,9 @@ type
frViewReciboProveedor1: TfrViewReciboProveedor;
pagPagos: TTabSheet;
pagCompensados: TTabSheet;
- frViewPagosProveedor1: TfrViewPagosProveedor;
frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados;
frViewReciboProvImportes1: TfrViewReciboProvImportes;
+ frViewPagosProveedor1: TfrViewPagosProveedor;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@@ -40,6 +40,7 @@ type
procedure JvFormStorageSavePlacement(Sender: TObject);
procedure frViewReciboProvImportes1eImportePropertiesEditValueChanged(Sender: TObject);
procedure frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
+ procedure frViewPagosProveedor1actAnadirUpdate(Sender: TObject);
private
FController : IRecibosProveedorController;
@@ -96,6 +97,8 @@ begin
//RECIBOS COMPENSADOS DESHABILITADOS
pagCompensados.TabVisible := False;
+ pagPagos.TabVisible := False;
+
ViewRecibo := frViewReciboProveedor1;
end;
@@ -189,6 +192,14 @@ begin
frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;
end;
+procedure TfEditorReciboProveedor.frViewPagosProveedor1actAnadirUpdate(
+ Sender: TObject);
+begin
+ //El recibo solo podrá tener un único pago
+ if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then
+ frViewPagosProveedor1.actAnadir.Enabled := (FRecibo.Pagos.DataTable.RecordCount < 1)
+end;
+
procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarExecute(Sender: TObject);
begin
inherited;
@@ -210,7 +221,7 @@ begin
DeshabilitarRecibo;
end;
- frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;
+ frViewPagosProveedor1.ListaPagosProveedorDBTableView1.DataController.GotoLast;
end;
procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject);
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
index 1517a20..6034dda 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
@@ -62,9 +62,16 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Left = 431
Visible = True
ExplicitLeft = 431
- ExplicitWidth = 66
+ ExplicitWidth = 176
object TBXItem38: TTBXItem
Action = actInformes
+ DisplayMode = nbdmImageAndText
+ end
+ object TBXSeparatorItem17: TTBXSeparatorItem
+ end
+ object TBXItem39: TTBXItem
+ Action = actCambiarSituacion
+ DisplayMode = nbdmImageAndText
end
end
end
@@ -258,8 +265,15 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
object actInformes: TAction
Category = 'Archivo'
Caption = 'Informes'
+ ImageIndex = 24
OnExecute = actInformesExecute
end
+ object actCambiarSituacion: TAction
+ Category = 'Archivo'
+ Caption = 'Pagar recibo'
+ ImageIndex = 23
+ OnExecute = actCambiarSituacionExecute
+ end
end
inherited SmallImages: TPngImageList [5]
PngImages = <
@@ -773,6 +787,121 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
3E79D138E0990900FC7AC6454D6D985F0000000049454E44AE426082}
Name = 'PngImage22'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD25200000A4D694343505068
+ 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
+ F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
+ 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
+ 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
+ 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
+ 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
+ C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
+ 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
+ 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
+ CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
+ 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
+ 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
+ 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
+ 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
+ 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
+ FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
+ F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
+ 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
+ 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
+ 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
+ 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
+ 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
+ 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
+ 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
+ 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
+ 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
+ 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
+ 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
+ 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
+ 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
+ A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
+ 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
+ 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
+ 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
+ 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
+ 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
+ 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
+ EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
+ 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
+ EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
+ 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
+ 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
+ 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
+ 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
+ A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
+ 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
+ D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
+ 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
+ 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
+ D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
+ C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
+ 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
+ FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
+ 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
+ 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
+ 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
+ BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
+ F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
+ A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
+ 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
+ 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
+ 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
+ F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
+ DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
+ 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
+ A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
+ 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
+ EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
+ CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
+ 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
+ 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
+ B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
+ 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
+ EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
+ E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
+ 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
+ EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
+ EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
+ FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
+ CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
+ ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
+ CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
+ F73EE77CFEFC2FF784F3FB25D29F330000012D4944415478DA63FCFFFF3F0325
+ 80916203966D3945B60991DEA68C6003B42CC41852B26F6355F4E7E77F86DFDF
+ FE31FCFEFC97E1FBFBDF60F68E73460C89D19D0CE7764C4318000230434E2E77
+ C63048416B135C3308A018D0B7F8235C214CB30CFF5E880B3E3F6278F12F11CC
+ 16175BC3F0FFF76F06865F7F18E4EC4E103600A41904600688092E076B66001A
+ 22E77C16BB01BFBEFC6338BFD915C30BC89A19FFFC619075BF881A0620FF8334
+ FFFAF297E1D75760A07DF9C3B032A610670C641FF64018D03D793E8682A9B63B
+ 184C53EA197E89A933309DE86638BFEF3CC3DC7DCF19A6B478C1D973F67E6764
+ C465C3B116C5D003AFD556DDBD7C10AB7CB293649865F5BDD5F80CF84FB10B80
+ D42A9042AABA00A4D1AAE6FE6A901A503E22D90573F7FD80EB011B40696E0400
+ A0BEE1E16734A0290000000049454E44AE426082}
+ Name = 'PngImage23'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000EE4944415478DA
+ 63FCFFFF3F0325801164C0D22D27C93225DAC79C116E00904350C3DF7FFF197E
+ FFF9CBF0EBF71F0687E02286733BA6116F00B2E645EB0E30CC5BBA09D3006E6E
+ 6E86AF5FBF82696CE0F9ABB70CBF7FFF6558BEF930760308D90CD20C62AFD97E
+ 0CBF01F85C72FDCE13864D7B4E127601369B7F81E97F0CDB0F9C26EC82B7EF3F
+ 32080BF263B8E0D4C5BB0CFB8F5FC06DC02FA04D2836C2D848E2474E5FC61D0B
+ AFDEBC67101311C41AA047CFDE021B7AEAC2354C03423D4C08DA0C133F7FF526
+ A60101CE86446906B1AFDCBC836980B7BD1EC3920D0789CE071806F44E59485A
+ 4E0202B80194000082585AF04025F9110000000049454E44AE426082}
+ Name = 'PngImage24'
+ Background = clWindow
end>
Bitmap = {}
end
@@ -1907,7 +2036,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF}
Width = 450
- Left = 408
- Top = 80
+ Left = 352
+ Top = 88
end
end
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
index a5d3787..6b69914 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
@@ -45,10 +45,14 @@ type
actInformes: TAction;
TBXItem38: TTBXItem;
JSInformesDialog: TJSDialog;
+ actCambiarSituacion: TAction;
+ TBXItem39: TTBXItem;
+ TBXSeparatorItem17: TTBXSeparatorItem;
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
+ procedure actCambiarSituacionExecute(Sender: TObject);
private
FRecibosProveedor: IBizRecibosProveedor;
@@ -81,13 +85,76 @@ implementation
uses
uDataModuleRecibosProveedor, uFactuGES_App, uDataModuleUsuarios, uGridUtils, uDBSelectionListUtils,
- uGestorInformesController;
+ uGestorInformesController, uEditorFechaPagoProveedor;
{$R *.dfm}
{
*************************** TfEditorRecibosProveedor ***************************
}
+procedure TfEditorRecibosProveedor.actCambiarSituacionExecute(Sender: TObject);
+var
+ AFechaPago: String;
+ AIgnorarContabilidad: Integer;
+ AIdSubCuenta: Integer;
+ ASubCuenta: String;
+ ARecibos: IBizRecibosProveedor;
+ AllItems: Boolean;
+
+begin
+ inherited;
+
+ ARecibos := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ if AllItems then
+ begin
+ if (Application.MessageBox('¿Desea cambiar a pagados los recibos de proveedor seleccionados, en caso de tener recibos ya pagados en la selección, estos no serán modificados?', 'Atención', MB_YESNO) = IDYES) then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosProveedor as ISeleccionable).SelectedRecords);
+ ARecibos := (Controller as IRecibosProveedorController).ExtraerSeleccionados(RecibosProveedor) as IBizRecibosProveedor;
+ end
+ else
+ exit;
+ end
+ else begin
+ ARecibos := Controller.Buscar(RecibosProveedor.ID);
+ ARecibos.DataTable.active := True;
+ end;
+
+ with TfEditorFechaPagoProveedor.Create(Nil) do
+ begin
+ if (ShowModal = mrOk) then
+ begin
+ AFechaPago := DateToStr(FechaPago);
+ AIgnorarContabilidad := IgnorarContabilidad;
+ AIdSubCuenta := IdSubcuenta;
+ ASubCuenta := frViewListaSubcuentas1.cbSubCuentas.Text;
+ Release;
+ end
+ else
+ begin
+ //Operación cancelada
+ Release;
+ exit;
+ end;
+ end;
+
+ if Assigned(ARecibos) then
+ begin
+ ViewGrid._Grid.BeginUpdate;
+ ViewGrid._Grid.EndUpdate;
+ FController.AnadirPagos(ARecibos, AFechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
+ FController.Guardar(ARecibos);
+ actRefrescar.Execute;
+ ViewGrid._Grid.EndUpdate;
+ end;
+
+end;
+
procedure TfEditorRecibosProveedor.actEliminarUpdate(Sender: TObject);
begin
inherited;
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
index c3dc24a..bca0816 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
@@ -1,14 +1,15 @@
inherited frViewPagosProveedor: TfrViewPagosProveedor
- Width = 664
- Height = 355
+ Width = 673
+ Height = 120
+ Constraints.MaxHeight = 120
OnShow = CustomViewShow
- ExplicitWidth = 664
- ExplicitHeight = 355
+ ExplicitWidth = 673
+ ExplicitHeight = 120
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 664
- Height = 355
+ Width = 673
+ Height = 120
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@@ -151,7 +152,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
- Caption = 'Cobros y devoluciones del recibo'
+ Caption = 'Pago de recibo'
object dxLayoutControl1Item3: TdxLayoutItem
ShowCaption = False
Control = ToolBar1
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
index e4895b6..854fddc 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
@@ -101,6 +101,11 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
SortOrder = soDescending
Width = 61
end
+ object cxGridViewFECHA_PAGO: TcxGridDBColumn
+ Caption = 'Fecha de pago'
+ DataBinding.FieldName = 'FECHA_PAGO'
+ PropertiesClassName = 'TcxDateEditProperties'
+ end
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
@@ -151,6 +156,13 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Visible = False
VisibleForCustomization = False
end
+ object cxGridViewSUBCUENTA: TcxGridDBColumn
+ Caption = 'Cuenta'
+ DataBinding.FieldName = 'SUBCUENTA'
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ HeaderAlignmentHorz = taRightJustify
+ end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
index 513c1e6..43e8799 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
@@ -52,6 +52,8 @@ type
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
+ cxGridViewFECHA_PAGO: TcxGridDBColumn;
+ cxGridViewSUBCUENTA: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index e0d7068..d5b7ff0 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -919,6 +919,8 @@
+
+
@@ -927,6 +929,8 @@
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 58c9baf..82805ef 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -859,8 +859,8 @@ type
{ IsrvContratosCliente }
IsrvContratosCliente = interface(IDataAbstractService)
['{ADBF1627-F507-4A0F-818E-38BAE28579B6}']
- function GenerarInforme(const ListaID: TIntegerArray): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
end;
{ CosrvContratosCliente }
@@ -873,8 +873,8 @@ type
protected
function __GetInterfaceName:string; override;
- function GenerarInforme(const ListaID: TIntegerArray): Binary;
- function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
+ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
end;
implementation
@@ -2778,12 +2778,13 @@ begin
result := 'srvContratosCliente';
end;
-function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+ __Message.Write('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@@ -2795,12 +2796,13 @@ begin
end
end;
-function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+ __Message.Write('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 81563cc..4c878a8 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -2289,9 +2289,10 @@ begin
end;
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
+ VerCondiciones: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -2299,8 +2300,9 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+ __Message.Read('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
- lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID);
+ lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, VerCondiciones);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -2319,9 +2321,10 @@ begin
end;
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerCondiciones: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
+ VerCondiciones: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@@ -2329,8 +2332,9 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+ __Message.Read('VerCondiciones', TypeInfo(Boolean), VerCondiciones, []);
- lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID);
+ lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, VerCondiciones);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res
index 82c19ac..86bfa9b 100644
Binary files a/Source/Servicios/RODLFile.res and b/Source/Servicios/RODLFile.res differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 9ba1547..dafe7af 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -121,16 +121,12 @@ uses
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
- schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
- schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
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',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
- schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
- schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
@@ -138,7 +134,11 @@ uses
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
- schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+ schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+ schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_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 ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index effba29..f0534e1 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -28,7 +28,7 @@
Delphi.Personality
- FalseTrueFalseTrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGES v2(Servidor)2.2.0.0viernes, 05 de junio de 2020 18:48
+ FalseTrueFalseTrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGES v2(Servidor)2.2.2.0martes, 02 de marzo de 2021 15:34
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 2167d9c..14fd7ae 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ