Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@134 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 15:07:51 +00:00
parent 0af56d99f1
commit b7dd5c1495
23 changed files with 172 additions and 138 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -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.

7
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -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.

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -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;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -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;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
View File

@ -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;

55
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,114 +49,145 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorClientes.pas">
<Form>fEditorClientes</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorContacto.pas">
<Form>fEditorContacto</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorContactos.pas">
<Form>fEditorContactos</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorDireccion.pas">
<Form>fEditorDireccion</Form>
</DCCReference>
<DCCReference Include="uEditorElegirClientes.pas">
<Form>fEditorElegirClientes</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirDireccionEntrega.pas">
<Form>fEditorElegirDireccionEntrega</Form>
<DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirProveedores.pas">
<Form>fEditorElegirProveedores</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorEmpleado.pas">
<Form>fEditorEmpleado</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorEmpleados.pas">
<Form>fEditorEmpleados</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorEtiquetasContactosReport.pas">
<Form>fEditorEtiquetasContactosReport</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorFichasEmpleadoReport.pas">
<Form>fEditorFichasEmpleadoReport</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorGruposCliente.pas">
<Form>fEditorGruposCliente</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorGruposEmpleado.pas">
<Form>fEditorGruposEmpleado</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorGruposProveedor.pas">
<Form>fEditorGruposProveedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorProveedor.pas">
<Form>fEditorProveedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorProveedores.pas">
<Form>fEditorProveedores</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uViewCliente.pas">
<Form>frViewCliente</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewClienteDatosComerciales.pas">
<Form>frViewClienteDatosComerciales</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewClienteDescuentos.pas">
<Form>frViewClienteDescuentos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewClientes.pas">
<Form>frViewClientes</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewContacto.pas">
<Form>frViewContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactoDatosBancarios.pas">
<Form>frViewClienteDatosBancarios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewContactos.pas">
<Form>frViewContactos</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionCliente.pas">
<Form>frViewDatosYSeleccionCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionProveedor.pas">
<Form>frViewDatosYSeleccionProveedor</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDireccionesEntrega.pas">
<Form>frViewDireccionesEntrega</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewEmpleado.pas">
<Form>frViewEmpleado</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewEmpleados.pas">
<Form>frViewEmpleados</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedor.pas">
<Form>frViewProveedor</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedorDatosComerciales.pas">
<Form>frViewProveedorDatosComerciales</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedores.pas">
<Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
</ItemGroup>
</Project>

134
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -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

2
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -14,7 +14,7 @@ uses
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales;
uViewClienteDatosComerciales, uDAInterfaces;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)

9
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -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.

8
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -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;

5
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -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.

5
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -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.

11
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -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);

4
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -55,10 +55,8 @@
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" />
@ -552,4 +550,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->
EurekaLog Last Line -->

6
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -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;

12
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -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

7
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -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;

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -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;

6
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -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;

6
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -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.

2
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -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

3
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -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.

3
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas
View File

@ -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.