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, uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorAlbaranesCliente, uIEditorAlbaranesDevCliente, uIEditorAlbaranDevCliente, uIEditorAlbaranesCliente, uIEditorAlbaranesDevCliente, uIEditorAlbaranDevCliente,
uDataModuleAlbaranesCliente, Variants, uBizDetallesAlbaranCliente, uDataModuleAlbaranesCliente, Variants, uBizDetallesAlbaranCliente,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uFactuGES_App,
schAlbaranesClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranCliente, schAlbaranesClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranCliente,
uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente, uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase, schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
@ -412,8 +412,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Now); FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := Nil; // INCIDENCIAS := Nil;
@ -491,7 +491,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit; AAlbaran.Edit;
try 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 // Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios
// if Assigned(AAlbaran.Cliente) // if Assigned(AAlbaran.Cliente)
@ -1036,3 +1036,4 @@ begin
end; end;
end. end.

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

@ -92,7 +92,7 @@ implementation
uses uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios,
uDataTableUtils, DateUtils, uDateUtils, DB; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizAlbaranCliente } { TBizAlbaranCliente }
@ -183,8 +183,8 @@ end;
procedure TBizAlbaranCliente.IniciarValoresAlbaranNuevo; procedure TBizAlbaranCliente.IniciarValoresAlbaranNuevo;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_ALBARAN := DateOf(Date); FECHA_ALBARAN := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
SITUACION := SITUACION_ALBARAN_PENDIENTE; SITUACION := SITUACION_ALBARAN_PENDIENTE;
@ -331,3 +331,4 @@ finalization
end. end.

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

@ -77,7 +77,7 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils, uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
uEditorDBBase, uDataTableUtils; uEditorDBBase, uDataTableUtils, uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -311,7 +311,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
// FTitulo := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; FTitulo := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
Self.Caption := FTitulo; Self.Caption := FTitulo;
end; end;

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

@ -81,7 +81,7 @@ type
implementation implementation
uses uses
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
//En tecsitel no estaran habilitados los pedidos //En tecsitel no estaran habilitados los pedidos
// uPedidosClienteController, uBizPedidosCliente, // uPedidosClienteController, uBizPedidosCliente,
uDialogUtils, schAlbaranesClienteClient_Intf, uDialogUtils, schAlbaranesClienteClient_Intf,
@ -441,7 +441,7 @@ var
FTitulo : String; FTitulo : String;
begin begin
if (ATitulo = '') then if (ATitulo = '') then
// FTitulo := 'Lista de albaranes de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE FTitulo := 'Lista de albaranes de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
else else
FTitulo := ATitulo; FTitulo := ATitulo;

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

@ -25,7 +25,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDataModuleUsuarios, uViewAlbaranesDevCliente; uDataModuleUsuarios, uViewAlbaranesDevCliente, uFactuGES_App;
{ TfEditorAlbaranesDevCliente } { TfEditorAlbaranesDevCliente }
@ -50,7 +50,7 @@ procedure TfEditorAlbaranesDevCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin 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); inherited PonerTitulos(FTitulo);
end; end;

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

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

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

@ -68,6 +68,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 490 ExplicitHeight = 490
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 462 ExplicitHeight = 462
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
@ -111,40 +113,40 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 429 Left = 432
Top = 270 Top = 270
Width = 269 Width = 269
ExplicitLeft = 429 ExplicitLeft = 432
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 269 ExplicitWidth = 269
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 267 Top = 294
ExplicitTop = 267 ExplicitTop = 294
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 321 Top = 348
ExplicitTop = 321 ExplicitTop = 348
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 294 Top = 321
ExplicitTop = 294 ExplicitTop = 321
ExplicitWidth = 78 ExplicitWidth = 78
Width = 78 Width = 78
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 336 Left = 339
Top = 294 Top = 321
ExplicitLeft = 336 ExplicitLeft = 339
ExplicitTop = 294 ExplicitTop = 321
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 372 Top = 399
ExplicitTop = 372 ExplicitTop = 399
ExplicitWidth = 587 ExplicitWidth = 587
ExplicitHeight = 33 ExplicitHeight = 33
Height = 33 Height = 33
@ -157,60 +159,60 @@ inherited fEditorCliente: TfEditorCliente
Width = 265 Width = 265
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 162 Top = 189
ExplicitTop = 162 ExplicitTop = 189
ExplicitWidth = 163 ExplicitWidth = 163
Width = 163 Width = 163
end end
inherited cbGrupoCliente: TcxDBComboBox inherited cbGrupoCliente: TcxDBComboBox
Top = 111 Top = 138
ExplicitTop = 111 ExplicitTop = 138
ExplicitWidth = 40 ExplicitWidth = 40
Width = 40 Width = 40
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 189 Top = 216
ExplicitTop = 189 ExplicitTop = 216
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 429 Left = 432
Top = 315 Top = 315
ExplicitLeft = 429 ExplicitLeft = 432
ExplicitTop = 315 ExplicitTop = 315
ExplicitWidth = 275 ExplicitWidth = 275
ExplicitHeight = 21 ExplicitHeight = 21
Width = 275 Width = 275
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 524 Left = 527
Top = 57 Top = 57
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 524 Left = 527
Top = 30 Top = 30
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 524 Left = 527
Top = 84 Top = 84
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 140 ExplicitWidth = 140
Width = 140 Width = 140
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 524 Left = 527
Top = 111 Top = 111
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -222,35 +224,41 @@ inherited fEditorCliente: TfEditorCliente
Width = 158 Width = 158
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 220 Left = 226
Top = 30 Top = 30
ExplicitLeft = 220 ExplicitLeft = 226
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 524 Left = 527
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 524 Left = 527
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111
ExplicitTop = 111
ExplicitWidth = 227
Width = 227
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 524 Left = 527
Top = 217 Top = 217
ExplicitLeft = 524 ExplicitLeft = 527
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -262,10 +270,10 @@ inherited fEditorCliente: TfEditorCliente
Width = 102 Width = 102
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 240 Top = 267
ExplicitTop = 240 ExplicitTop = 267
ExplicitWidth = 256 ExplicitWidth = 253
Width = 256 Width = 253
end end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
@ -286,23 +294,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 648 Width = 648
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 648
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 418 Left = 419
ExplicitLeft = 418 ExplicitLeft = 419
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end end
end end
end end
@ -331,19 +325,19 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 648
inherited Label1: TLabel inherited Label1: TLabel
Left = 397 Left = 378
Top = 30 Top = 30
Width = 206 Width = 206
Height = 39 Height = 39
ExplicitLeft = 397 ExplicitLeft = 378
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 206 ExplicitWidth = 206
ExplicitHeight = 39 ExplicitHeight = 39
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 464 Left = 445
Top = 75 Top = 75
ExplicitLeft = 464 ExplicitLeft = 445
ExplicitTop = 75 ExplicitTop = 75
ExplicitWidth = 160 ExplicitWidth = 160
Width = 160 Width = 160
@ -351,37 +345,29 @@ inherited fEditorCliente: TfEditorCliente
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 121
Width = 121
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121
Width = 121
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 121
Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 237 Left = 218
Top = 57 Top = 57
ExplicitLeft = 237 ExplicitLeft = 218
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 121
Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 237 Left = 218
Top = 84 Top = 84
ExplicitLeft = 237 ExplicitLeft = 218
ExplicitTop = 84 ExplicitTop = 84
end end
end end

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

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

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

@ -112,7 +112,7 @@ implementation
uses uses
Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf, Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase, uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils,
uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController, uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
@ -527,8 +527,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
// ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
@ -582,7 +582,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AFactura.Edit; AFactura.Edit;
try try
// AFactura.USUARIO := dmUsuarios.LoginInfo.Usuario; AFactura.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(AFactura.Cliente) if Assigned(AFactura.Cliente)
and (AFactura.ID_CLIENTE <> AFactura.Cliente.ID) then and (AFactura.ID_CLIENTE <> AFactura.Cliente.ID) then
@ -1066,3 +1066,4 @@ begin
end; end;
end. end.

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

@ -97,7 +97,7 @@ implementation
uses uses
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, Dialogs; Variants, cxDateUtils, uTiposIVAController, uBizTiposIVA, uFactuGES_App;
{ TBizFacturaCliente } { TBizFacturaCliente }
@ -248,12 +248,12 @@ end;
procedure TBizFacturaCliente.IniciarValoresFacturaNueva; procedure TBizFacturaCliente.IniciarValoresFacturaNueva;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
ID_CLIENTE := ID_NULO; ID_CLIENTE := ID_NULO;
// IVA := dmUsuarios.EmpresaActual.IVA; IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
end; end;

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

@ -78,7 +78,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uBizContactos, uDataModuleUsuarios, uBizContactos, uDataModuleUsuarios, uFactuGES_App,
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils; uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesCliFacCliUtils; // uGenerarAlbaranesCliFacCliUtils;
@ -349,7 +349,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
// Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorFacturaCliente.PrevisualizarInterno; procedure TfEditorFacturaCliente.PrevisualizarInterno;
@ -419,3 +419,4 @@ begin
end; end;
end. end.

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

@ -62,7 +62,7 @@ type
implementation implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente, // uPedidosClienteController, uBizPedidosCliente,
// uGenerarFacturasCliAlbCliUtils, // uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente, uBizAlbaranesCliente,
@ -316,7 +316,7 @@ procedure TfEditorFacturasCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
// FTitulo := 'Lista de facturas de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de facturas de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -375,3 +375,4 @@ begin
end; end;
end. end.

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

@ -117,7 +117,7 @@ implementation
uses uses
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPresupuestosCliente, uDataModulePresupuestosCliente, Variants, uIEditorPresupuestosCliente, uDataModulePresupuestosCliente, Variants,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uBizContactos, uDataTableUtils, uDataModuleUsuarios, Classes, uFactuGES_App,
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente, schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente, uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController; schContactosClient_Intf, uPresupuestosClienteReportController;
@ -260,8 +260,8 @@ begin
Result.Edit; Result.Edit;
with Result do with Result do
begin begin
// ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Now); FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := Nil; // INCIDENCIAS := Nil;
@ -308,7 +308,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
APresupuesto.Edit; APresupuesto.Edit;
try try
// APresupuesto.USUARIO := dmUsuarios.LoginInfo.Usuario; APresupuesto.USUARIO := AppFactuGES.UsuarioActivo.UserName;
if Assigned(APresupuesto.Cliente) if Assigned(APresupuesto.Cliente)
and (APresupuesto.ID_CLIENTE <> APresupuesto.Cliente.ID) then and (APresupuesto.ID_CLIENTE <> APresupuesto.Cliente.ID) then
@ -602,8 +602,7 @@ begin
if APresupuesto.DataTable.Active then if APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := False; APresupuesto.DataTable.Active := False;
// Filtrar los presupuestos actuales por empresa { with APresupuesto.DataTable.Where do
{ with APresupuesto.DataTable.Where do
begin begin
if NotEmpty then if NotEmpty then
AddOperator(opAND); AddOperator(opAND);

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

@ -55,10 +55,8 @@
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
@ -552,4 +550,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English 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 uses
SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs, SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, Dialogs,
uDataTableUtils, DateUtils, uDateUtils, DB; uDataTableUtils, DateUtils, uDateUtils, DB, uFactuGES_App;
{ TBizPresupuestoCliente } { TBizPresupuestoCliente }
@ -193,8 +193,8 @@ end;
procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo; procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo;
begin begin
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
// USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Date); FECHA_PRESUPUESTO := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// INCIDENCIAS := NIL; // INCIDENCIAS := NIL;

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

@ -201,6 +201,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -241,6 +245,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object eIncidencias: TcxDBMemo object eIncidencias: TcxDBMemo
Left = 0 Left = 0
Top = 0 Top = 0
@ -255,6 +263,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 0 Left = 0
Top = 0 Top = 0

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

@ -79,7 +79,7 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils; uBizDireccionesContacto, uDialogUtils, uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -276,14 +276,13 @@ begin
if (FTitulo = '') and Assigned(FPresupuesto) then if (FTitulo = '') and Assigned(FPresupuesto) then
begin begin
if FPresupuesto.EsNuevo then if FPresupuesto.EsNuevo then
FTitulo := 'Nuevo Presupuesto de cliente' FTitulo := 'Nuevo presupuesto de cliente'
else else
FTitulo := 'Presupuesto de cliente' + ' - ' + FPresupuesto.Cliente.Nombre + ' - ' + FPresupuesto.SITUACION; FTitulo := 'Presupuesto de cliente' + ' - ' + FPresupuesto.Cliente.Nombre + ' - ' + FPresupuesto.SITUACION;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
// Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
end; end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno; procedure TfEditorPresupuestoCliente.PrevisualizarInterno;

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

@ -72,7 +72,7 @@ type
implementation implementation
uses uses
uDataModulePresupuestosCliente, uDataModuleUsuarios, uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
// uBizAlbaranesCliente, uAlbaranesClienteController, // uBizAlbaranesCliente, uAlbaranesClienteController,
uEditorBase, uEditorDBBase, uDialogUtils, uEditorBase, uEditorDBBase, uDialogUtils,
// uFacturasClienteController, uBizFacturasCliente, // uFacturasClienteController, uBizFacturasCliente,
@ -329,7 +329,7 @@ procedure TfEditorPresupuestosCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de Presupuestos de cliente - '; //+ dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de presupuestos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

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

@ -142,7 +142,7 @@ implementation
uses uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosClienteReportController, uBizContactos, uRecibosClienteReportController, uBizContactos,
schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente, schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
@ -439,7 +439,7 @@ begin
DuplicarRegistros(ARecibosCliente.DataTable, Result.DataTable, mdrActual); DuplicarRegistros(ARecibosCliente.DataTable, Result.DataTable, mdrActual);
// Descomentar esto si hay detalles // 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); // DuplicarRegistros(ARecibosCliente.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos);
// ¡CUIDADO! Hay que dejar algunos campos como si fuera todo nuevo // ¡CUIDADO! Hay que dejar algunos campos como si fuera todo nuevo
@ -489,7 +489,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
ARecibosCliente.Edit; ARecibosCliente.Edit;
try try
// ARecibosCliente.USUARIO := dmUsuarios.LoginInfo.Usuario; ARecibosCliente.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True; Result := True;
finally finally
ARecibosCliente.Post; ARecibosCliente.Post;

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

@ -73,7 +73,8 @@ type
implementation implementation
uses uses
uDataModuleRecibosCliente, uDataModuleUsuarios, uGridUtils, uDBSelectionListUtils; uDataModuleRecibosCliente, uDataModuleUsuarios, uFactuGES_App,
uGridUtils, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}
@ -187,7 +188,7 @@ procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
// FTitulo := 'Lista de recibos de cliente - ' + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de recibos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -246,3 +247,4 @@ begin
end; end;
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" // Asegurarse de valores en campos "automáticos"
ARemesaCliente.Edit; ARemesaCliente.Edit;
try try
ARemesaCliente.USUARIO := dmUsuarios.LoginInfo.Usuario; ARemesaCliente.USUARIO := AppFactuGES.UsuarioActivo.UserName;
Result := True; Result := True;
finally finally

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

@ -173,7 +173,7 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')'; Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end; end;
procedure TfEditorRemesaCliente.PrevisualizarInterno; procedure TfEditorRemesaCliente.PrevisualizarInterno;
@ -337,3 +337,4 @@ end;
end. end.

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

@ -152,7 +152,7 @@ procedure TfEditorRemesasCliente.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de remesas de cobro - ' + dmUsuarios.EmpresaActual.NOMBRE; FTitulo := 'Lista de remesas de cobro - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
@ -303,3 +303,4 @@ end;
end. end.