diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index c25c43be..815d4e2e 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1131,7 +1131,8 @@ CREATE TABLE RECIBOS_PROVEEDOR (
FECHA_MODIFICACION DATE,
USUARIO TIPO_USUARIO,
ID_REMESA TIPO_ID,
- ID_RECIBO_COMPENSADO INTEGER
+ ID_RECIBO_COMPENSADO INTEGER,
+ DATOS_BANCARIOS VARCHAR(255) COLLATE ES_ES
);
CREATE TABLE REFERENCIAS (
@@ -3336,6 +3337,7 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_EMPRESA,
+ DATOS_BANCARIOS_FACTURA,
DATOS_BANCARIOS,
ID_PROVEEDOR,
NOMBRE_PROVEEDOR,
@@ -3363,6 +3365,7 @@ SELECT RECIBOS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
+ RECIBOS_PROVEEDOR.DATOS_BANCARIOS,
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 4a82c399..459d7f68 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGESFactuGES2.0.5.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2060FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.6.0FactuGESFactuGES2.0.6.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a0d22c5b..941cf2b4 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,0,5,0
-PRODUCTVERSION 2,0,5,0
+FILEVERSION 2,0,6,0
+PRODUCTVERSION 2,0,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "2.0.5.0\0"
+ VALUE "FileVersion", "2.0.6.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.0.5.0\0"
+ VALUE "ProductVersion", "2.0.6.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index c08ac4e9..b78f7037 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
index 6061b7ea..0457d268 100644
--- a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
+++ b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
@@ -19,6 +19,7 @@
+
@@ -27,6 +28,7 @@
+
@@ -311,14 +313,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index c8b1759f..c9294d5c 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -161,7 +161,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
- TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
+ TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@@ -435,7 +435,7 @@ type
end;
{ TFacturasClienteDataTableRules }
- TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
+ TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -795,7 +795,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
- TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
+ TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index 1daa7633..5ff3fc45 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
- Width = 616
- Height = 474
+ Width = 451
+ Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 616
- Height = 474
+ Width = 451
+ Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 451
- ExplicitHeight = 304
DesignSize = (
- 616
- 474)
+ 451
+ 304)
object Label1: TLabel
Left = 354
Top = 193
@@ -201,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339
end
object bElegirClienteFinal: TButton
- Left = 560
+ Left = 410
Top = 225
Width = 23
Height = 25
@@ -229,8 +227,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 224
- Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 171
@@ -249,8 +245,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitWidth = 121
- Width = 121
end
inherited Button4: TButton
Left = 251
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index 39a238e6..b7e0dfbf 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
@@ -229,7 +229,8 @@ begin
end;
finally
FreeANDNIL(ALista);
- FreeANDNIL(AListaIBAN);
+ FreeANDNIL(AListaIBAN);
+ FreeANDNIL(AListaCliente);
end;
finally
AController := NIL;
@@ -274,6 +275,17 @@ begin
else
ACadena := 'Elija el cliente al que se le realizará la factura.';
//ViewDatosYSeleccionClienteFacturaCliente1.MsgElegirCliente := ACadena;
+
+
+{Ojo hay que tener en cuenta cuando se cambia de cliente
+ if (FFactura.EsNuevo) then
+ if (cbCuentaBancaria.Properties.Items.Count > 0) then
+ begin
+ cbCuentaBancaria.ItemIndex := 1;
+ cbCuentaBancaria.EditValue := cbCuentaBancaria.Properties.Items.ValueFromIndex[1];
+ end;
+}
+
end
else begin
DADataSource.DataTable := NIL;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 01297a8c..35c4c372 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -1035,6 +1035,7 @@ begin
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
+ ARecibos.DATOS_BANCARIOS := AFactura.DATOS_BANCARIOS;
if AFormaPago.Plazos.RecordCount < 1 then
begin
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 351e67c3..e1ce4679 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
@@ -23,6 +23,7 @@
+
@@ -301,14 +302,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 9cebee5d..0cb09009 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
@@ -160,12 +160,14 @@ end;
procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
var
AController : IEmpresasController;
+ ALista : TStringList;
AListaIBAN : TStringList;
AListaProveedor : TStringList;
i : integer;
begin
AController := TEmpresasController.Create;
try
+ ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR);
@@ -176,6 +178,9 @@ begin
try
Clear;
Add('');
+ for i := 0 to ALista.Count - 1 do
+ Add(ALista.Names[i]);
+
if AListaIBAN.Count > 0 then
begin
for i := 0 to AListaIBAN.Count - 1 do
@@ -194,7 +199,9 @@ begin
end;
end;
finally
- FreeANDNIL(AListaIBAN);
+ FreeANDNIL(ALista);
+ FreeANDNIL(AListaIBAN);
+ FreeANDNIL(AListaProveedor);
end;
finally
AController := NIL;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas b/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas
index ff7071b3..a81aa2c1 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas
@@ -10,7 +10,10 @@ type
['{5B086ADA-7877-4469-ACBE-4C8E4F4BF184}']
function GetPresupuestos: IBizPresupuestoCliente;
procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
+ function GetVerSello: Integer;
+ procedure SetVerSello(const Value: Integer);
property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
+ property VerSello: Integer read GetVerSello write SetVerSello;
function ShowModal : Integer;
procedure Release;
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index e456572d..6fbfd24c 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
@@ -65,9 +65,9 @@ type
function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
- const ATextoEMail: String = ''): Boolean;
- function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean;
- function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean;
+ const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
+ function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
+ function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
@@ -148,9 +148,9 @@ type
function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
- const ATextoEMail: String = ''): Boolean;
- function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean;
- function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean;
+ const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
+ function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
+ function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
@@ -703,7 +703,7 @@ begin
end;
end;
-function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente): Boolean;
+function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
var
ADialog : IDialogListaPresupuestosEnvioEMail;
ARespuesta : Integer;
@@ -739,7 +739,7 @@ end;
function TPresupuestosClienteController.EnviarPresupuestoPorEMail(APresupuesto: IBizPresupuestoCliente;
const AEnviarDirectamente: Boolean = True;
const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
- const ATextoEMail: String = ''): Boolean;
+ const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
var
AReportController : IPresupuestosClienteReportController;
AFicheroTMP : TFileName;
@@ -777,7 +777,7 @@ begin
ShowHourglassCursor;
AReportController := TPresupuestosClienteReportController.Create;
try
- AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP);
+ AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP, AVerSello);
Result := EnviarEMailMAPI('Presupuesto ' + APresupuesto.REFERENCIA, '', AFicheroTMP, '', '', APresupuesto.Cliente.NOMBRE, AEMail, AEnviarDirectamente);
finally
DeleteFile(AFicheroTMP);
@@ -1174,7 +1174,7 @@ begin
end;
end;
-function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente): Boolean;
+function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
begin
if not Assigned(APresupuesto) then
raise Exception.Create ('Presupuesto no asignadas (GenerarEmailPresupuesto)');
@@ -1185,7 +1185,7 @@ begin
ShowHourglassCursor;
try
RecuperarCliente(APresupuesto);
- EnviarPresupuestoPorEMail(APresupuesto, False);
+ EnviarPresupuestoPorEMail(APresupuesto, False, '', '', '', AVerSello);
finally
HideHourglassCursor;
end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm
index 060cb21b..d9c3ddc9 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm
@@ -20,7 +20,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
Top = 390
Width = 665
ExplicitTop = 390
- ExplicitWidth = 735
+ ExplicitWidth = 665
inherited btnAceptar: TButton
Left = 488
Top = 6
@@ -38,7 +38,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
end
inherited pnlHeader: TPanel
Width = 665
- ExplicitWidth = 735
+ ExplicitWidth = 665
inherited lblInstruccion: TLabel
Width = 615
Caption = 'Enviar presupuestos por correo electr'#243'nico'
@@ -52,14 +52,14 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
'supuestos elegidos en formato PDF. S'#243'lo se tendr'#225'n en cuenta los' +
' clientes que tengan relleno su e-mail administrativo.'
WordWrap = True
- ExplicitWidth = 639
+ ExplicitWidth = 587
ExplicitHeight = 26
end
end
inherited pnlCuerpo: TPanel
Width = 665
Height = 322
- ExplicitWidth = 735
+ ExplicitWidth = 665
ExplicitHeight = 322
end
inherited ListView1: TListView
@@ -84,7 +84,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
end>
ExplicitLeft = 0
ExplicitTop = 66
- ExplicitWidth = 735
+ ExplicitWidth = 665
ExplicitHeight = 322
end
inherited ActionList1: TActionList
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas
index 3e6f1c70..e0b3b71e 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas
@@ -15,16 +15,20 @@ type
procedure actAceptarExecute(Sender: TObject);
private
FPresupuestos : IBizPresupuestoCliente;
+ FVerSello: Integer;
FController : IPresupuestosClienteController;
protected
function GetPresupuestos: IBizPresupuestoCliente;
procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
+ function GetVerSello: Integer;
+ procedure SetVerSello(const Value: Integer);
procedure RellenarLista;
procedure BorrarLista;
public
constructor Create(AOwner: TComponent); override;
property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
+ property VerSello: Integer read GetVerSello write SetVerSello;
end;
implementation
@@ -52,7 +56,7 @@ begin
begin
if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_1) then
begin
- if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1) then
+ if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1, 'Presupuesto', '', VerSello) then
begin
ListView1.Items[i].SubItems[2] := 'Correo generado';
ModalResult := mrOk;
@@ -66,7 +70,7 @@ begin
else
if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_2) then
begin
- if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2) then
+ if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2, 'Presupuesto', '', VerSello) then
begin
ListView1.Items[i].SubItems[2] := 'Correo generado';
ModalResult := mrOk;
@@ -114,6 +118,7 @@ constructor TfDialogListaPresupuestosEnvioEMail.Create(AOwner: TComponent);
begin
inherited;
ModalResult := mrCancel;
+ FVerSello := 1;
FController := TPresupuestosClienteController.Create;
end;
@@ -122,6 +127,11 @@ begin
Result := FPresupuestos;
end;
+function TfDialogListaPresupuestosEnvioEMail.GetVerSello: Integer;
+begin
+ Result := FVerSello;
+end;
+
procedure TfDialogListaPresupuestosEnvioEMail.RellenarLista;
var
i : Integer;
@@ -176,4 +186,9 @@ begin
BorrarLista;
end;
+procedure TfDialogListaPresupuestosEnvioEMail.SetVerSello(const Value: Integer);
+begin
+ FVerSello := Value;
+end;
+
end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 096f7c21..26c4984c 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
@@ -223,12 +223,20 @@ end;
procedure TfEditorPresupuestosCliente.actEnviarEMailExecute(Sender: TObject);
var
APresupuestos : IBizPresupuestoCliente;
+ AVerSello: Integer;
+ bEnviar: Boolean;
begin
inherited;
+ //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
+ //solo para empresa Tecsitel
+ if (AppFactuGES.EmpresaActiva.ID = 1) then
+ if not ElegirOpcionesImpresionPresupuestoCliente(AVerSello) then
+ exit;
+
if ViewGrid.NumSeleccionados = 1 then
- FController.GenerarEmailPresupuesto(FPresupuestos)
+ FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
// FController.EnviarPresupuestoPorEMail(FPresupuestos)
else begin
ShowHourglassCursor;
@@ -237,7 +245,7 @@ begin
APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
if Assigned(APresupuestos) then
- FController.EnviarEmailPresupuestos(APresupuestos);
+ FController.EnviarEmailPresupuestos(APresupuestos, AVerSello);
// RefrescarInterno;
finally
APresupuestos := NIL;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 0b3c275c..7b88d603 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
@@ -37,6 +37,8 @@ type
function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController);
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
+ function GetProveedorController: IProveedoresController;
+ property ProveedorController: IProveedoresController read GetProveedorController;
procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean;
@@ -90,11 +92,13 @@ type
protected
FDataModule : IDataModuleRecibosProveedor;
FPagosController : IPagosProveedorController;
- FClienteController : IProveedoresController;
+ FProveedorController : IProveedoresController;
function GetPagosController: IPagosProveedorController;
procedure SetPagosController(const Value: IPagosProveedorController);
+ function GetProveedorController: IProveedoresController;
+
function _Vacio : IBizRecibosProveedor;
function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean;
@@ -103,6 +107,8 @@ type
public
property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
+ property ProveedorController: IProveedoresController read GetProveedorController;
+
constructor Create; override;
destructor Destroy; override;
@@ -245,7 +251,7 @@ begin
inherited;
AsignarDataModule;
FPagosController := TPagosProveedorController.Create;
- FClienteController := TProveedoresController.Create;
+ FProveedorController := TProveedoresController.Create;
// FPagosController.addObservador(Self); //PETA NO SE PORQUE
end;
@@ -488,7 +494,7 @@ destructor TRecibosProveedorController.Destroy;
begin
FDataModule := NIL;
FPagosController := NIL;
- FClienteController := NIL;
+ FProveedorController := NIL;
inherited;
end;
@@ -686,7 +692,7 @@ end;
procedure TRecibosProveedorController.RecuperarCliente(
AReciboProveedor: IBizRecibosProveedor);
begin
- AReciboProveedor._Proveedor := (FClienteController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
+ AReciboProveedor._Proveedor := (FProveedorController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
end;
function TRecibosProveedorController.GetPagosController: IPagosProveedorController;
@@ -694,6 +700,11 @@ begin
Result := FPagosController;
end;
+function TRecibosProveedorController.GetProveedorController: IProveedoresController;
+begin
+ Result := FProveedorController;
+end;
+
procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController);
begin
FPagosController := Value;
diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
index 2ec5a4b7..77dd28aa 100644
--- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
@@ -403,6 +403,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end
+ item
+ Name = 'DATOS_BANCARIOS_FACTURA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
index 5c753e70..8487f91d 100644
--- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
+++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
@@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosRecibos = '{E517AD0B-3117-47E6-BDE0-C6F56CA71A1D}';
- RID_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}';
- RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}';
- RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}';
+ RID_ListaAnosRecibos = '{F3340670-6908-41EB-9A56-A0889A17B0EE}';
+ RID_RecibosCompensadosProv = '{E3E62EB4-5556-44A8-99C4-013EA2373D58}';
+ RID_RecibosProveedor = '{643C6FA4-C971-4D12-A1CE-4D1FFF54183B}';
+ RID_PagosProveedor = '{F6275C5E-F7BE-454A-9113-8AB468D2F7AC}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -108,6 +108,7 @@ const
fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA';
fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA';
+ fld_RecibosProveedorDATOS_BANCARIOS_FACTURA = 'DATOS_BANCARIOS_FACTURA';
fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
@@ -138,13 +139,14 @@ const
idx_RecibosProveedorFORMA_PAGO_FACTURA = 18;
idx_RecibosProveedorIMPORTE_FACTURA = 19;
idx_RecibosProveedorID_EMPRESA = 20;
- idx_RecibosProveedorDATOS_BANCARIOS = 21;
- idx_RecibosProveedorID_PROVEEDOR = 22;
- idx_RecibosProveedorNOMBRE_PROVEEDOR = 23;
- idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24;
- idx_RecibosProveedorFECHA_ALTA = 25;
- idx_RecibosProveedorFECHA_MODIFICACION = 26;
- idx_RecibosProveedorUSUARIO = 27;
+ idx_RecibosProveedorDATOS_BANCARIOS_FACTURA = 21;
+ idx_RecibosProveedorDATOS_BANCARIOS = 22;
+ idx_RecibosProveedorID_PROVEEDOR = 23;
+ idx_RecibosProveedorNOMBRE_PROVEEDOR = 24;
+ idx_RecibosProveedorNIF_CIF_PROVEEDOR = 25;
+ idx_RecibosProveedorFECHA_ALTA = 26;
+ idx_RecibosProveedorFECHA_MODIFICACION = 27;
+ idx_RecibosProveedorUSUARIO = 28;
{ PagosProveedor fields }
fld_PagosProveedorID = 'ID';
@@ -177,7 +179,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
- ['{738763D4-26C6-4F0D-BB6E-D638C380B114}']
+ ['{59463B0B-E289-4B8F-A18B-C31E4C76E34B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -212,7 +214,7 @@ type
{ IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
- ['{43B7C892-1530-424B-B6B0-380E0A018456}']
+ ['{E5864951-5BE9-4929-A2A9-4CE1B2A23A01}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -571,7 +573,7 @@ type
{ IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable)
- ['{A7B468FD-DB65-4615-A6C5-1E2807D62ABE}']
+ ['{B4198E89-9A06-4D57-A05C-BC64EA058528}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -657,6 +659,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+ function GetDATOS_BANCARIOS_FACTURAValue: String;
+ procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+ function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+ procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
function GetDATOS_BANCARIOSValue: String;
procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean;
@@ -730,6 +736,8 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+ property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -835,6 +843,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
+ procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
+ function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
@@ -907,6 +919,8 @@ type
property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+ property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+ property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -930,7 +944,7 @@ type
{ IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable)
- ['{6A3FB0F1-D6B5-49C4-A298-F046CF5DA655}']
+ ['{F3378247-D165-4514-93AF-C95E3EBFA6C7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -2184,6 +2198,27 @@ begin
DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null;
end;
+function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAValue: String;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsVariant := Null;
+end;
+
function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString;
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
index 50f8a457..db5e486f 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 = '{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}';
- RID_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}';
- RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}';
- RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}';
+ RID_ListaAnosRecibosDelta = '{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}';
+ RID_RecibosCompensadosProvDelta = '{9D1EDAFA-0389-4262-B4D8-7A977362C752}';
+ RID_RecibosProveedorDelta = '{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}';
+ RID_PagosProveedorDelta = '{56A87944-9E91-4853-8C3D-E700832370FD}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
- ['{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}']
+ ['{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
- ['{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}']
+ ['{9D1EDAFA-0389-4262-B4D8-7A977362C752}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -409,7 +409,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
- ['{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}']
+ ['{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -432,6 +432,7 @@ type
function GetOldFORMA_PAGO_FACTURAValue : String;
function GetOldIMPORTE_FACTURAValue : Currency;
function GetOldID_EMPRESAValue : Integer;
+ function GetOldDATOS_BANCARIOS_FACTURAValue : String;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
@@ -462,6 +463,7 @@ type
property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@@ -602,6 +604,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+ function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
+ function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+ function GetOldDATOS_BANCARIOS_FACTURAValue: String; virtual;
+ function GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+ procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
+ procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
@@ -730,6 +738,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+ property DATOS_BANCARIOS_FACTURA : String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+ property DATOS_BANCARIOS_FACTURAIsNull : Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
+ property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
+ property OldDATOS_BANCARIOS_FACTURAIsNull : Boolean read GetOldDATOS_BANCARIOS_FACTURAIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
@@ -767,7 +779,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
- ['{E48CD2E0-5DD4-41AF-97DE-F945B013E452}']
+ ['{56A87944-9E91-4853-8C3D-E700832370FD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@@ -2521,6 +2533,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
end;
+function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := Null;
+end;
+
function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS];
diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
index dd2f46a5..a6fef1fc 100644
--- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
+++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
@@ -9,6 +9,9 @@
+
+
+
@@ -121,14 +124,41 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ 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 716cfb2d..80f06cb4 100644
--- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
+++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
@@ -410,6 +410,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
+ end
+ item
+ DatasetField = 'DATOS_BANCARIOS_FACTURA'
+ TableField = 'DATOS_BANCARIOS_FACTURA'
end>
end>
Name = 'RecibosProveedor'
@@ -530,6 +534,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
end
+ item
+ Name = 'DATOS_BANCARIOS_FACTURA'
+ DataType = datString
+ Size = 255
+ end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
@@ -708,72 +717,67 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID'
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE'
- DataType = datFloat
+ DataType = datCurrency
Value = ''
- ParamType = daptInput
end
item
Name = 'OTROS_GASTOS'
- DataType = datFloat
+ DataType = datCurrency
Value = ''
- ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
- Size = 20
+ Size = 30
+ Value = ''
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -782,10 +786,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
SQL =
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' +
' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
- 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUE' +
- 'S'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' +
- 'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' +
- ' :IMPORTE, :OTROS_GASTOS, :USUARIO)'
+ 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, DATOS_B' +
+ 'ANCARIOS)'#10' VALUES'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENC' +
+ 'IA_PROVEEDOR, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
+ ':OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :DATOS_BA' +
+ 'NCARIOS)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -816,64 +821,59 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_REMESA'
DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE'
- DataType = datFloat
+ DataType = datCurrency
Value = ''
- ParamType = daptInput
end
item
Name = 'OTROS_GASTOS'
- DataType = datFloat
+ DataType = datCurrency
Value = ''
- ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
- Size = 20
+ Size = 30
+ Value = ''
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -885,7 +885,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor
'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' +
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' +
- 'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
+ 'USUARIO = :USUARIO,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHE' +
+ 'RE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
index 4a1ecbf1..36f2736a 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
@@ -40,6 +40,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited lblDesbloquear: TcxLabel
Left = 593
ExplicitLeft = 593
+ AnchorX = 638
+ AnchorY = 14
end
end
inherited TBXDock: TTBXDock
@@ -55,6 +57,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited pgPaginas: TPageControl
Width = 685
Height = 353
+ ActivePage = pagPagos
ExplicitWidth = 685
ExplicitHeight = 353
inherited pagGeneral: TTabSheet
@@ -91,12 +94,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 50
+ Width = 50
end
inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 216
+ Width = 216
end
inherited edtFechaVencimiento: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
@@ -111,53 +118,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 274
+ Width = 274
end
inherited eFechaEmision: TcxDBTextEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 200
Width = 200
end
inherited eFormaPago: TcxDBTextEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 200
Width = 200
end
inherited eImporteTotal: TcxDBCurrencyEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 200
Width = 200
end
inherited eNombreCliente: TcxDBTextEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
end
inherited eNifCif: TcxDBTextEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 255
Width = 255
end
@@ -166,6 +175,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 113
+ Width = 113
end
inherited edtFechaEmision: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
@@ -184,12 +195,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129
end
inherited rReferenciaFacturaProv: TcxDBTextEdit
- Left = 355
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 200
Width = 200
end
@@ -198,17 +209,35 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 216
+ Width = 216
end
- inherited eCuenta: TcxDBTextEdit
- Left = 355
+ inherited eCuentaFactura: TcxDBTextEdit
+ Left = 338
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 355
+ ExplicitLeft = 338
ExplicitWidth = 83
Width = 83
end
+ inherited eCuentaRecibo: TcxDBTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 300
+ Width = 300
+ end
+ inherited cbCuentaBancaria: TcxDBComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 158
+ Width = 158
+ end
end
end
end
@@ -274,6 +303,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
object pagCompensados: TTabSheet
Caption = 'Compensados'
ImageIndex = 2
+ TabVisible = False
inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
Left = 0
Top = 0
@@ -308,6 +338,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
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
inherited ToolButton3: TToolButton
Top = 0
ExplicitTop = 0
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
index 3d83454c..a436e2e5 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
@@ -297,9 +297,10 @@ procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorCo
begin
FController := Value;
if Assigned(FController) then
+ begin
frViewRecibosProvCompensados1.Controller := FController;
-
-// (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
+ (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
+ end;
end;
procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
index 962ca605..c3f5dfc6 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
@@ -14,7 +14,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 618
DesignSize = (
748
342)
@@ -50,7 +49,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object eSituacion: TcxDBTextEdit
Left = 136
- Top = 138
+ Top = 165
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@@ -75,7 +74,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 216
end
object edtFechaVencimiento: TcxDBDateEdit
@@ -106,7 +105,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object memObservaciones: TcxDBMemo
Left = 22
- Top = 267
+ Top = 294
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@@ -122,12 +121,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 7
+ TabOrder = 8
Height = 49
Width = 274
end
object eFechaEmision: TcxDBTextEdit
- Left = 426
+ Left = 409
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@@ -153,11 +152,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 9
+ TabOrder = 10
Width = 20
end
object eFormaPago: TcxDBTextEdit
- Left = 426
+ Left = 409
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@@ -183,11 +182,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 10
+ TabOrder = 11
Width = 42
end
object eImporteTotal: TcxDBCurrencyEdit
- Left = 426
+ Left = 409
Top = 138
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
@@ -218,12 +217,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 12
+ TabOrder = 13
Height = 21
Width = 182
end
object eNombreCliente: TcxDBTextEdit
- Left = 426
+ Left = 409
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR'
@@ -249,11 +248,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 14
+ TabOrder = 15
Width = 300
end
object eNifCif: TcxDBTextEdit
- Left = 426
+ Left = 409
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
@@ -279,12 +278,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 13
+ TabOrder = 14
Width = 147
end
object eRemesa: TcxDBTextEdit
Left = 136
- Top = 165
+ Top = 192
Anchors = [akLeft, akTop, akRight]
DataBinding.DataSource = DADataSource
Enabled = False
@@ -308,7 +307,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 5
+ TabOrder = 6
Width = 113
end
object edtFechaEmision: TcxDBDateEdit
@@ -370,7 +369,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 100
end
object rReferenciaFacturaProv: TcxDBTextEdit
- Left = 426
+ Left = 409
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@@ -396,12 +395,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 8
+ TabOrder = 9
Width = 157
end
object rRefReciboCompensado: TcxDBTextEdit
Left = 136
- Top = 216
+ Top = 243
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
DataBinding.DataSource = DADataSource
@@ -426,14 +425,14 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 7
Width = 216
end
- object eCuenta: TcxDBTextEdit
- Left = 426
+ object eCuentaFactura: TcxDBTextEdit
+ Left = 409
Top = 111
Anchors = [akLeft, akTop, akRight]
- DataBinding.DataField = 'DATOS_BANCARIOS'
+ DataBinding.DataField = 'DATOS_BANCARIOS_FACTURA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@@ -456,9 +455,31 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 11
+ TabOrder = 12
Width = 150
end
+ object cbCuentaBancaria: TcxDBComboBox
+ Left = 136
+ Top = 138
+ DataBinding.DataField = 'DATOS_BANCARIOS'
+ DataBinding.DataSource = DADataSource
+ Properties.DropDownListStyle = lsFixedList
+ Properties.DropDownRows = 12
+ Properties.ImmediatePost = True
+ Properties.ImmediateUpdateText = True
+ Properties.PostPopupValueOnTab = True
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.SkinName = ''
+ Style.ButtonStyle = bts3D
+ Style.PopupBorderStyle = epbsFrame3D
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 4
+ Width = 158
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -499,6 +520,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = edtFechaVencimiento
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item13: TdxLayoutItem
+ Caption = 'Cuenta bancaria:'
+ Control = cbCuentaBancaria
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
@@ -561,7 +587,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
object dxLayoutControl1Item6: TdxLayoutItem
Caption = 'Cuenta bancaria:'
- Control = eCuenta
+ Control = eCuentaFactura
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
index 654dec57..fd021b06 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
@@ -4,10 +4,11 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
+ Dialogs, uViewBase, uBizRecibosProveedor, uRecibosProveedorController,
+ DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
- uDAInterfaces;
+ uDAInterfaces, cxGraphics;
type
IViewReciboProveedor = interface(IViewBase)
@@ -15,6 +16,10 @@ type
function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor);
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
+ function GetController : IRecibosProveedorController;
+ procedure SetController (const Value : IRecibosProveedorController);
+ property Controller : IRecibosProveedorController read GetController write SetController;
+
end;
@@ -60,32 +65,106 @@ type
dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
- eCuenta: TcxDBTextEdit;
+ eCuentaFactura: TcxDBTextEdit;
+ dxLayoutControl1Item13: TdxLayoutItem;
+ cbCuentaBancaria: TcxDBComboBox;
private
FRecibo : IBizRecibosProveedor;
+ FController : IRecibosProveedorController;
function GetRecibo: IBizRecibosProveedor;
procedure SetRecibo(const Value: IBizRecibosProveedor);
+ function GetController : IRecibosProveedorController;
+ procedure SetController (const Value : IRecibosProveedorController);
+
+ protected
+ procedure RellenarCuentasBancarias;
public
property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
+ property Controller : IRecibosProveedorController read GetController write SetController;
end;
var
frViewReciboProveedor: TfrViewReciboProveedor;
implementation
-
{$R *.dfm}
-
{ TfrViewReciboProveedor }
+uses
+ uEmpresasController, uFactuGES_App;
+
+function TfrViewReciboProveedor.GetController: IRecibosProveedorController;
+begin
+ Result := FController;
+end;
function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
begin
Result := FRecibo;
end;
+procedure TfrViewReciboProveedor.RellenarCuentasBancarias;
+var
+ AController : IEmpresasController;
+ ALista : TStringList;
+ AListaIBAN : TStringList;
+ AListaProveedor : TStringList;
+ i : integer;
+begin
+ AController := TEmpresasController.Create;
+ try
+ ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
+ AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
+ AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FRecibo.ID_PROVEEDOR);
+
+ try
+ with cbCuentaBancaria.Properties.Items do
+ begin
+ BeginUpdate;
+ try
+ Clear;
+ Add('');
+ for i := 0 to ALista.Count - 1 do
+ Add(ALista.Names[i]);
+
+ if AListaIBAN.Count > 0 then
+ begin
+ for i := 0 to AListaIBAN.Count - 1 do
+ Add(AListaIBAN.Names[i]);
+ end;
+
+ if AListaProveedor.Count > 0 then
+ begin
+ Add('--------------');
+ for i := 0 to AListaProveedor.Count - 1 do
+ Add(AListaProveedor.Names[i]);
+ end;
+
+ finally
+ EndUpdate;
+ end;
+ end;
+ finally
+ FreeANDNIL(ALista);
+ FreeANDNIL(AListaIBAN);
+ FreeANDNIL(AListaProveedor);
+ end;
+ finally
+ AController := NIL;
+ end;
+
+end;
+
+procedure TfrViewReciboProveedor.SetController(const Value: IRecibosProveedorController);
+begin
+ FController := Value;
+end;
+
procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
begin
FRecibo := Value;
+
+ RellenarCuentasBancarias;
+
if Assigned(FRecibo) then
DADataSource.DataTable := FRecibo.DataTable
else
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 8e02e02c..e04ec771 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index cd2dcc3c..176abd94 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -111,8 +111,6 @@ uses
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
- schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
- schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@@ -135,7 +133,9 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+ schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+ schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index db2e71b7..19180dee 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,334 +1,334 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
-FalseTrueFalse/standaloneTrueFalse2050FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.5.0FactuGES Servidor2.0.5.0viernes, 24 de enero de 2014 18:50
- ExpressPrinting System by Developer Express Inc.
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
- TDataModule
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalse/standaloneTrueFalse2060FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.6.0FactuGES Servidor2.0.6.0martes, 04 de marzo de 2014 11:21
+ ExpressPrinting System by Developer Express Inc.
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TDataModule
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+