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

Repaso a contactos:

Browse Source 
* Títulos informativos en las ventanas (lista de clientes, nuevo cliente, etc...)
* Rellenar los campos ID_EMPRESA y USUARIO con sus valores.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@130 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 12:49:11 +00:00
parent f935416314
commit 01a6886a44
11 changed files with 37 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Source/Cliente/FactuGES.dproj
View File

@ -58,18 +58,6 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

5
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -86,9 +86,8 @@ begin
Result.Edit;
with Result do
begin
// OJO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111
//ID_EMPRESA := dmUsuarios.IDEmpresaActual;
//USUARIO := dmUsuarios.LoginInfo.Usuario;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
end;
Result.Post;

29
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -78,54 +78,65 @@ inherited fEditorClientes: TfEditorClientes
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitLeft = 229
ExplicitTop = 61
ExplicitTop = 102
ExplicitWidth = 786
ExplicitHeight = 398
inherited cxGrid: TcxGrid
Width = 786
Height = 270
ExplicitWidth = 786
ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 clientes'
Kind = skCount
Column = frViewClientes1.cxGridViewNIF_CIF
Column = frViewClientes1.cxGridViewTiendaWeb
end>
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 786
ExplicitWidth = 786
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 786
inherited dxLayoutControl1: TdxLayoutControl
Width = 786
ExplicitWidth = 786
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
ExplicitWidth = 240
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 483
ExplicitLeft = 483
Left = 564
ExplicitLeft = 564
ExplicitWidth = 121
Width = 121
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 786
ExplicitWidth = 786
inherited tbxBotones: TTBXToolbar
Width = 776
ExplicitWidth = 776
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 372
ExplicitTop = 372
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 786
ExplicitWidth = 786
inherited TBXToolbar1: TTBXToolbar
Width = 776
ExplicitWidth = 776
end
end
end

7
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -35,7 +35,7 @@ implementation
uses
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils,
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
uGruposClienteController, uBizGruposCliente, uClientesController;
{$R *.dfm}
@ -62,7 +62,7 @@ end;
constructor TfEditorClientes.Create(AOwner: TComponent);
begin
inherited;
ViewGrid := frViewClientes1; //CreateView(TfrViewClientes) as IViewContactos;
ViewGrid := frViewClientes1;
end;
procedure TfEditorClientes.EliminarInterno;
@ -159,8 +159,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// FTitulo := 'Lista de clientes - ' + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;

6
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -53,7 +53,8 @@ implementation
{$R *.dfm}
uses
uCustomEditor, uDataModuleContactos, uDMBase, uDataModuleUsuarios;
uFactuGES_App, uCustomEditor, uDataModuleContactos,
uDMBase, uDataModuleUsuarios;
{
******************************* TfEditorContacto *******************************
@ -102,8 +103,7 @@ begin
inherited PonerTitulos(FTitulo);
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorContacto.SetContacto(const Value: IBizContacto);

1
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13

11
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -45,9 +45,9 @@ type
implementation
uses
uCustomEditor, uDataModuleContactos,
uEditorDBBase, uFactuGES_App,
cxGrid, cxGridCustomTableView, uDBSelectionListUtils;
uCustomEditor, uDataModuleContactos, uFactuGES_App,
uEditorDBBase, cxGrid, cxGridCustomTableView,
uDBSelectionListUtils;
{$R *.dfm}
@ -101,9 +101,8 @@ var
FTitulo : String;
begin
FTitulo := ATitulo;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
{ if FTitulo = '' then
FTitulo := 'Lista de contactos - ' + dmUsuarios.EmpresaActual.NOMBRE;}
if FTitulo = '' then
FTitulo := 'Lista de contactos - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;

1
Source/Modulos/Contactos/Views/uEditorEmpleados.dfm
View File

@ -1,6 +1,5 @@
inherited fEditorEmpleados: TfEditorEmpleados
Caption = 'fEditorEmpleados'
ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

5
Source/Modulos/Contactos/Views/uEditorEmpleados.pas
View File

@ -33,7 +33,7 @@ implementation
uses
uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
uEmpleadosController, uDBSelectionListUtils;
uEmpleadosController, uDBSelectionListUtils, uFactuGES_App;
{$R *.dfm}
@ -139,8 +139,7 @@ procedure TfEditorEmpleados.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
// ojooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
// FTitulo := 'Lista de empleados - ' + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de empleados - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;

2
Source/Modulos/Contactos/Views/uEditorProveedores.dfm
View File

@ -1,7 +1,5 @@
inherited fEditorProveedores: TfEditorProveedores
Caption = 'fEditorProveedores'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

5
Source/Modulos/Contactos/Views/uEditorProveedores.pas
View File

@ -32,7 +32,7 @@ implementation
uses
uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
uDBSelectionListUtils, uProveedoresController;
uDBSelectionListUtils, uProveedoresController, uFactuGES_App;
{$R *.dfm}
@ -138,8 +138,7 @@ procedure TfEditorProveedores.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// FTitulo := 'Lista de proveedores - ' + dmUsuarios.EmpresaActual.NOMBRE;
FTitulo := 'Lista de proveedores - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;