diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index b5edd05a..c09579be 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
@@ -144,7 +144,7 @@ uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorAlbaranesCliente, uIEditorAlbaranesDevCliente, uIEditorAlbaranDevCliente,
uDataModuleAlbaranesCliente, Variants, uBizDetallesAlbaranCliente,
- uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes,
+ uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uFactuGES_App,
schAlbaranesClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranCliente,
uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
@@ -412,8 +412,8 @@ begin
Result.Edit;
with Result do
begin
- ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := Nil;
@@ -491,7 +491,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit;
try
-// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName;
// Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios
// if Assigned(AAlbaran.Cliente)
@@ -1036,3 +1036,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
index 3a16e03d..66123dad 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
@@ -92,7 +92,7 @@ implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
- uDataTableUtils, DateUtils, uDateUtils, DB;
+ uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizAlbaranCliente }
@@ -183,8 +183,8 @@ end;
procedure TBizAlbaranCliente.IniciarValoresAlbaranNuevo;
begin
- ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
SITUACION := SITUACION_ALBARAN_PENDIENTE;
@@ -331,3 +331,4 @@ finalization
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
index 96f00ae7..41224934 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
@@ -77,7 +77,7 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
- uEditorDBBase, uDataTableUtils;
+ uEditorDBBase, uDataTableUtils, uFactuGES_App;
{$R *.dfm}
@@ -311,7 +311,7 @@ begin
inherited PonerTitulos(FTitulo);
-// FTitulo := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+ FTitulo := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
Self.Caption := FTitulo;
end;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
index dae389f3..9b78353c 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
@@ -81,7 +81,7 @@ type
implementation
uses
- uDataModuleAlbaranesCliente, uDataModuleUsuarios,
+ uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
//En tecsitel no estaran habilitados los pedidos
// uPedidosClienteController, uBizPedidosCliente,
uDialogUtils, schAlbaranesClienteClient_Intf,
@@ -441,7 +441,7 @@ var
FTitulo : String;
begin
if (ATitulo = '') then
-// FTitulo := 'Lista de albaranes de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE
+ FTitulo := 'Lista de albaranes de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
else
FTitulo := ATitulo;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
index 3b98b744..8c5ded50 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
@@ -25,7 +25,7 @@ implementation
{$R *.dfm}
uses
- uDataModuleUsuarios, uViewAlbaranesDevCliente;
+ uDataModuleUsuarios, uViewAlbaranesDevCliente, uFactuGES_App;
{ TfEditorAlbaranesDevCliente }
@@ -50,7 +50,7 @@ procedure TfEditorAlbaranesDevCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
-// FTitulo := 'Lista de órdenes de devolución a cliente - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de órdenes de devolución a cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index bb02c4af..62f4f3f0 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,114 +49,145 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TfEditorElegirDireccionEntrega
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomEditor
+ TCustomView
+ TFrame
+ TFrame
+ TCustomView
+ TCustomView
+ TFrame
+ TCustomView
+ TFrame
+ TFrame
+ TFrame
+ TCustomView
+ TCustomView
+ TCustomView
+ TFrame
+ TCustomView
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index fa00f52b..eef6710e 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -68,6 +68,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 656
ExplicitHeight = 490
inherited pagGeneral: TTabSheet
+ ExplicitLeft = 0
+ ExplicitTop = 0
ExplicitWidth = 648
ExplicitHeight = 462
inline frViewCliente1: TfrViewCliente
@@ -111,40 +113,40 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162
end
inherited Label1: TLabel
- Left = 429
+ Left = 432
Top = 270
Width = 269
- ExplicitLeft = 429
+ ExplicitLeft = 432
ExplicitTop = 270
ExplicitWidth = 269
end
inherited eCalle: TcxDBTextEdit
- Top = 267
- ExplicitTop = 267
+ Top = 294
+ ExplicitTop = 294
ExplicitWidth = 268
Width = 268
end
inherited eProvincia: TcxDBTextEdit
- Top = 321
- ExplicitTop = 321
+ Top = 348
+ ExplicitTop = 348
ExplicitWidth = 268
Width = 268
end
inherited ePoblacion: TcxDBTextEdit
- Top = 294
- ExplicitTop = 294
+ Top = 321
+ ExplicitTop = 321
ExplicitWidth = 78
Width = 78
end
inherited eCodigoPostal: TcxDBTextEdit
- Left = 336
- Top = 294
- ExplicitLeft = 336
- ExplicitTop = 294
+ Left = 339
+ Top = 321
+ ExplicitLeft = 339
+ ExplicitTop = 321
end
inherited eObservaciones: TcxDBMemo
- Top = 372
- ExplicitTop = 372
+ Top = 399
+ ExplicitTop = 399
ExplicitWidth = 587
ExplicitHeight = 33
Height = 33
@@ -157,60 +159,60 @@ inherited fEditorCliente: TfEditorCliente
Width = 265
end
inherited cbClienteBloqueado: TcxDBCheckBox
- Top = 162
- ExplicitTop = 162
+ Top = 189
+ ExplicitTop = 189
ExplicitWidth = 163
Width = 163
end
inherited cbGrupoCliente: TcxDBComboBox
- Top = 111
- ExplicitTop = 111
+ Top = 138
+ ExplicitTop = 138
ExplicitWidth = 40
Width = 40
end
inherited eBloqueo: TcxDBTextEdit
- Top = 189
- ExplicitTop = 189
+ Top = 216
+ ExplicitTop = 216
ExplicitWidth = 205
Width = 205
end
inherited cxDBCheckBox1: TcxDBCheckBox
- Left = 429
+ Left = 432
Top = 315
- ExplicitLeft = 429
+ ExplicitLeft = 432
ExplicitTop = 315
ExplicitWidth = 275
ExplicitHeight = 21
Width = 275
end
inherited eTlfParticular: TcxDBTextEdit
- Left = 524
+ Left = 527
Top = 57
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
- Left = 524
+ Left = 527
Top = 30
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
- Left = 524
+ Left = 527
Top = 84
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 84
ExplicitWidth = 140
Width = 140
end
inherited eFax: TcxDBTextEdit
- Left = 524
+ Left = 527
Top = 111
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@@ -222,35 +224,41 @@ inherited fEditorCliente: TfEditorCliente
Width = 158
end
inherited eNIFCIF: TcxDBTextEdit
- Left = 220
+ Left = 226
Top = 30
- ExplicitLeft = 220
+ ExplicitLeft = 226
ExplicitTop = 30
ExplicitWidth = 268
Width = 268
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
- Left = 524
+ Left = 527
Top = 162
Properties.Prefix = 'mailto:'
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 162
ExplicitWidth = 121
Width = 121
end
inherited eMailParticular: TcxDBHyperLinkEdit
- Left = 524
+ Left = 527
Top = 190
Properties.Prefix = 'mailto:'
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 190
ExplicitWidth = 121
Width = 121
end
+ inherited eCodigoAsignado: TcxDBTextEdit
+ Top = 111
+ ExplicitTop = 111
+ ExplicitWidth = 227
+ Width = 227
+ end
inherited ePaginaWeb: TcxDBHyperLinkEdit
- Left = 524
+ Left = 527
Top = 217
- ExplicitLeft = 524
+ ExplicitLeft = 527
ExplicitTop = 217
ExplicitWidth = 121
Width = 121
@@ -262,10 +270,10 @@ inherited fEditorCliente: TfEditorCliente
Width = 102
end
inherited ePersonaContacto: TcxDBTextEdit
- Top = 240
- ExplicitTop = 240
- ExplicitWidth = 256
- Width = 256
+ Top = 267
+ ExplicitTop = 267
+ ExplicitWidth = 253
+ Width = 253
end
end
inherited dsContacto: TDADataSource
@@ -286,23 +294,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 648
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648
- inherited eEntidad: TcxDBTextEdit
- ExplicitWidth = 114
- Width = 114
- end
inherited eSucursal: TcxDBTextEdit
- Left = 418
- ExplicitLeft = 418
- ExplicitWidth = 112
- Width = 112
- end
- inherited eCuenta: TcxDBTextEdit
- ExplicitWidth = 194
- Width = 194
- end
- inherited eTitular: TcxDBTextEdit
- ExplicitWidth = 194
- Width = 194
+ Left = 419
+ ExplicitLeft = 419
end
end
end
@@ -331,19 +325,19 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648
inherited Label1: TLabel
- Left = 397
+ Left = 378
Top = 30
Width = 206
Height = 39
- ExplicitLeft = 397
+ ExplicitLeft = 378
ExplicitTop = 30
ExplicitWidth = 206
ExplicitHeight = 39
end
inherited eDiasVencimiento: TcxDBSpinEdit
- Left = 464
+ Left = 445
Top = 75
- ExplicitLeft = 464
+ ExplicitLeft = 445
ExplicitTop = 75
ExplicitWidth = 160
Width = 160
@@ -351,37 +345,29 @@ inherited fEditorCliente: TfEditorCliente
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
ExplicitTop = 30
- ExplicitWidth = 121
- Width = 121
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
ExplicitTop = 111
- ExplicitWidth = 121
- Width = 121
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
ExplicitTop = 57
- ExplicitWidth = 121
- Width = 121
end
inherited bFormasPago: TButton
- Left = 237
+ Left = 218
Top = 57
- ExplicitLeft = 237
+ ExplicitLeft = 218
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
Top = 84
ExplicitTop = 84
- ExplicitWidth = 121
- Width = 121
end
inherited bTiposIVA: TButton
- Left = 237
+ Left = 218
Top = 84
- ExplicitLeft = 237
+ ExplicitLeft = 218
ExplicitTop = 84
end
end
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas
index 4ea16090..e5e9eba5 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@@ -14,7 +14,7 @@ uses
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
- uViewClienteDatosComerciales;
+ uViewClienteDatosComerciales, uDAInterfaces;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index eb5d9ba8..530107c7 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -112,7 +112,7 @@ implementation
uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
- uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente,
+ uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils,
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
@@ -527,8 +527,8 @@ begin
Result.Edit;
with Result do
begin
-// ID_EMPRESA := dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now);
@@ -582,7 +582,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit;
try
-// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ AFactura.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AFactura.Cliente)
and (AFactura.ID_CLIENTE <> AFactura.Cliente.ID) then
@@ -1066,3 +1066,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index a9f1680f..c17f21dd 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
@@ -97,7 +97,7 @@ implementation
uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
- Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, Dialogs;
+ Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App;
{ TBizFacturaCliente }
@@ -248,12 +248,12 @@ end;
procedure TBizFacturaCliente.IniciarValoresFacturaNueva;
begin
- ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now);
TIPO := CTE_TIPO_FACTURA;
ID_CLIENTE := ID_NULO;
-// IVA := dmUsuarios.EmpresaActual.IVA;
+ IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
end;
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
index a0a8f29b..29dea340 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
@@ -78,7 +78,7 @@ implementation
{$R *.dfm}
uses
- uBizContactos, uDataModuleUsuarios,
+ uBizContactos, uDataModuleUsuarios, uFactuGES_App,
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesCliFacCliUtils;
@@ -349,7 +349,7 @@ begin
inherited PonerTitulos(FTitulo);
-// Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+ Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorFacturaCliente.PrevisualizarInterno;
@@ -419,3 +419,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index 194d2df5..59311293 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
@@ -62,7 +62,7 @@ type
implementation
uses
- uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController,
+ uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente,
// uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente,
@@ -316,7 +316,7 @@ procedure TfEditorFacturasCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
-// FTitulo := 'Lista de facturas de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de facturas de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@@ -375,3 +375,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index f3cd075c..6c57ce4b 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
@@ -117,7 +117,7 @@ implementation
uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPresupuestosCliente, uDataModulePresupuestosCliente, Variants,
- uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes,
+ uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uFactuGES_App,
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController;
@@ -260,8 +260,8 @@ begin
Result.Edit;
with Result do
begin
-// ID_EMPRESA := dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := Nil;
@@ -308,7 +308,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
APresupuesto.Edit;
try
-// APresupuesto.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ APresupuesto.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(APresupuesto.Cliente)
and (APresupuesto.ID_CLIENTE <> APresupuesto.Cliente.ID) then
@@ -602,8 +602,7 @@ begin
if APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := False;
- // Filtrar los presupuestos actuales por empresa
-{ with APresupuesto.DataTable.Where do
+ { with APresupuesto.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
index a2ea336e..c2c1b004 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
@@ -55,10 +55,8 @@
-
-
@@ -552,4 +550,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
-EurekaLog Last Line -->
\ No newline at end of file
+EurekaLog Last Line -->
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
index 26ee21e1..6561d1ab 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
@@ -90,7 +90,7 @@ implementation
uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
- uDataTableUtils, DateUtils, uDateUtils, DB;
+ uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizPresupuestoCliente }
@@ -193,8 +193,8 @@ end;
procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo;
begin
- ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
-// USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+ USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := NIL;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index 5403452d..0273acee 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
@@ -201,6 +201,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@@ -241,6 +245,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet
Caption = 'Portada'
ImageIndex = 3
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object eIncidencias: TcxDBMemo
Left = 0
Top = 0
@@ -255,6 +263,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet
Caption = 'Memoria'
ImageIndex = 4
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
object cxDBMemo1: TcxDBMemo
Left = 0
Top = 0
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 71a339f8..e7d56ad8 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
@@ -79,7 +79,7 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
- uBizDireccionesContacto, uDialogUtils;
+ uBizDireccionesContacto, uDialogUtils, uFactuGES_App;
{$R *.dfm}
@@ -276,14 +276,13 @@ begin
if (FTitulo = '') and Assigned(FPresupuesto) then
begin
if FPresupuesto.EsNuevo then
- FTitulo := 'Nuevo Presupuesto de cliente'
+ FTitulo := 'Nuevo presupuesto de cliente'
else
FTitulo := 'Presupuesto de cliente' + ' - ' + FPresupuesto.Cliente.Nombre + ' - ' + FPresupuesto.SITUACION;
end;
inherited PonerTitulos(FTitulo);
-
-// Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+ Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index fd86e4a9..f71f585f 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
@@ -72,7 +72,7 @@ type
implementation
uses
- uDataModulePresupuestosCliente, uDataModuleUsuarios,
+ uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
// uBizAlbaranesCliente, uAlbaranesClienteController,
uEditorBase, uEditorDBBase, uDialogUtils,
// uFacturasClienteController, uBizFacturasCliente,
@@ -329,7 +329,7 @@ procedure TfEditorPresupuestosCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
- FTitulo := 'Lista de Presupuestos de cliente - '; //+ dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de presupuestos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index 9404319d..52181b41 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
@@ -142,7 +142,7 @@ implementation
uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
- uDAInterfaces, uDataTableUtils, uDataModuleUsuarios,
+ uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosClienteReportController, uBizContactos,
schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
@@ -439,7 +439,7 @@ begin
DuplicarRegistros(ARecibosCliente.DataTable, Result.DataTable, mdrActual);
// Descomentar esto si hay detalles
- // (EN ESTE CASO NO NOS INTERESA COPIAR LOS PAGOS DEL RECIBO DUPLIACDO)
+ // (EN ESTE CASO NO NOS INTERESA COPIAR LOS PAGOS DEL RECIBO DUPLICADO)
// DuplicarRegistros(ARecibosCliente.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos);
// ˇCUIDADO! Hay que dejar algunos campos como si fuera todo nuevo
@@ -489,7 +489,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
ARecibosCliente.Edit;
try
-// ARecibosCliente.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ARecibosCliente.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True;
finally
ARecibosCliente.Post;
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
index 92d50f8b..f78adf1d 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
@@ -73,7 +73,8 @@ type
implementation
uses
- uDataModuleRecibosCliente, uDataModuleUsuarios, uGridUtils, uDBSelectionListUtils;
+ uDataModuleRecibosCliente, uDataModuleUsuarios, uFactuGES_App,
+ uGridUtils, uDBSelectionListUtils;
{$R *.dfm}
@@ -187,7 +188,7 @@ procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
-// FTitulo := 'Lista de recibos de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de recibos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@@ -246,3 +247,4 @@ begin
end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
index 541d194b..ea9d8c79 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
@@ -204,7 +204,7 @@ begin
// Asegurarse de valores en campos "automáticos"
ARemesaCliente.Edit;
try
- ARemesaCliente.USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ARemesaCliente.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True;
finally
diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
index 23399ce2..5a03b763 100644
--- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
+++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
@@ -173,7 +173,7 @@ begin
inherited PonerTitulos(FTitulo);
- Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+ Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorRemesaCliente.PrevisualizarInterno;
@@ -337,3 +337,4 @@ end;
end.
+
\ No newline at end of file
diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
index a2bd711b..49241de1 100644
--- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
+++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
@@ -152,7 +152,7 @@ procedure TfEditorRemesasCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
- FTitulo := 'Lista de remesas de cobro - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de remesas de cobro - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
@@ -303,3 +303,4 @@ end;
end.
+
\ No newline at end of file