Uecko/AbetoArmarios_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adapta base de datos y programa para poder establecer permisos de acceso a las empresas para cada usuario

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@51 0a814768-cfdd-9c42-8d01-223fcc10da9d
This commit is contained in:
roberto 2011-03-10 16:40:57 +00:00
parent bc6f5e03f1
commit a0551072ec
7 changed files with 54 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BaseDatos/TablaEmpresas.pas
View File

@ -196,7 +196,8 @@ begin
with sqlGrid do with sqlGrid do
begin begin
Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL'); Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL');
Add('from EMPRESAS order by CODIGO '); Add('from EMPRESAS ');
Add('where CODIGO IN ( select CODIGOEMPRESA from PERMISOS_EMPRESAS where usuario = :USUARIO) order by CODIGO ');
end; end;
end; end;

1
Empresas/ElegirEmpresa.pas
View File

@ -99,6 +99,7 @@ begin
Database := BaseDatos; Database := BaseDatos;
Transaction := Transaccion; Transaction := Transaccion;
SelectSQL.Assign(dmTablaEmpresas.sqlGrid); SelectSQL.Assign(dmTablaEmpresas.sqlGrid);
ParamByName('USUARIO').AsString := UpperCase(dmBaseDatos.Usuario);
Prepare; Prepare;
EnableControls; EnableControls;
end; end;

8
Factuges.dof
View File

@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
IncludeVerInfo=1 IncludeVerInfo=1
AutoIncBuild=0 AutoIncBuild=0
MajorVer=3 MajorVer=3
MinorVer=2 MinorVer=3
Release=9 Release=0
Build=0 Build=0
Debug=0 Debug=0
PreRelease=0 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName= CompanyName=
FileDescription= FileDescription=
FileVersion=3.2.9.0 FileVersion=3.3.0.0
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName= ProductName=
ProductVersion=3.2.9.0 ProductVersion=3.3.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

94
Factuges.dsk
View File

@ -1,28 +1,31 @@
[Closed Files] [Closed Files]
File_0=SourceModule,'C:\Codigo Abeto\Clientes\FacturaCliente.pas',0,1,334,63,344,0,0 File_0=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\ComObj.pas',0,1,1259,1,1269,0,0
File_1=SourceModule,'C:\Codigo Abeto\Libreria\Constantes.pas',0,1,42,24,55,0,0 File_1=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\DB.pas',0,1,2340,1,2350,0,0
File_2=SourceModule,'C:\Codigo Abeto\Proveedores\FacturaProveedor.pas',0,1,272,38,285,1,0 File_2=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\IB.pas',0,1,403,1,411,0,0
File_3=SourceModule,'C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas',0,1,140,65,150,0,0 File_3=SourceModule,'C:\Codigo\Informes\InformePresupuestoCliente.pas',0,1,1,1,1,1,0
File_4=SourceModule,'C:\Codigo Abeto\Informes\InformeResumenFacturacionProveedores.pas',0,1,75,34,91,0,0 File_4=SourceModule,'C:\Codigo Abeto\Clientes\FacturaCliente.pas',0,1,334,63,344,0,0
File_5=SourceModule,'C:\Codigo Abeto\Informes\InformeResumenFacturacionClientes.pas',0,1,72,34,93,0,0 File_5=SourceModule,'C:\Codigo Abeto\Libreria\Constantes.pas',0,1,42,24,55,0,0
File_6=SourceModule,'C:\Codigo Abeto\Informes\InformeHistorialFacturacionProveedores.pas',0,1,75,37,99,0,0 File_6=SourceModule,'C:\Codigo Abeto\Proveedores\FacturaProveedor.pas',0,1,272,38,285,1,0
File_7=SourceModule,'C:\Codigo Abeto\Informes\InformeHistorialFacturacionClientes.pas',0,1,76,21,98,0,0 File_7=SourceModule,'C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas',0,1,140,65,150,0,0
File_8=SourceModule,'C:\Codigo Abeto\Clientes\AlbaranCliente.pas',0,1,633,23,648,0,0 File_8=SourceModule,'C:\Codigo Abeto\Informes\InformeResumenFacturacionProveedores.pas',0,1,75,34,91,0,0
File_9=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas',0,1,217,14,154,0,0
[Modules] [Modules]
Module0=C:\Codigo\Informes\InformePresupuestoCliente.pas Module0=C:\Codigo\Empresas\ElegirEmpresa.pas
Module1=C:\Codigo\Factuges.dpr Module1=C:\Codigo\BaseDatos\TablaEmpresas.pas
Count=2 Count=2
EditWindowCount=1 EditWindowCount=1
[C:\Codigo\Informes\InformePresupuestoCliente.pas] [C:\Codigo\Empresas\ElegirEmpresa.pas]
ModuleType=SourceModule ModuleType=SourceModule
FormState=1 FormState=1
FormOnTop=1 FormOnTop=0
[C:\Codigo\BaseDatos\TablaEmpresas.pas]
ModuleType=SourceModule
FormState=1
FormOnTop=0
[C:\Codigo\Factuges.dpr] [C:\Codigo\Factuges.dpr]
ModuleType=SourceModule
FormState=0 FormState=0
FormOnTop=0 FormOnTop=0
@ -30,13 +33,9 @@ FormOnTop=0
FormState=0 FormState=0
FormOnTop=0 FormOnTop=0
[C:\Codigo\Informes\InformeBase.pas]
FormState=0
FormOnTop=0
[EditWindow0] [EditWindow0]
ViewCount=2 ViewCount=2
CurrentView=1 CurrentView=0
View0=0 View0=0
View1=1 View1=1
CodeExplorer=CodeExplorer@EditWindow0 CodeExplorer=CodeExplorer@EditWindow0
@ -44,34 +43,34 @@ MessageView=MessageView@EditWindow0
Create=1 Create=1
Visible=1 Visible=1
State=0 State=0
Left=433 Left=447
Top=142 Top=136
Width=1139 Width=1137
Height=663 Height=560
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=1131 ClientWidth=1129
ClientHeight=629 ClientHeight=526
LeftPanelSize=140 LeftPanelSize=140
LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
RightPanelSize=0 RightPanelSize=0
BottomPanelSize=0 BottomPanelSize=85
BottomPanelClients=MessageView@EditWindow0 BottomPanelClients=MessageView@EditWindow0
BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
[View0] [View0]
Module=C:\Codigo\Factuges.dpr Module=C:\Codigo\Empresas\ElegirEmpresa.pas
CursorX=1 CursorX=70
CursorY=1 CursorY=102
TopLine=1 TopLine=86
LeftCol=1 LeftCol=1
[View1] [View1]
Module=C:\Codigo\Informes\InformePresupuestoCliente.pas Module=C:\Codigo\BaseDatos\TablaEmpresas.pas
CursorX=1 CursorX=96
CursorY=1 CursorY=200
TopLine=1 TopLine=187
LeftCol=1 LeftCol=1
[Watches] [Watches]
@ -98,7 +97,8 @@ LRDockWidth=842
Dockable=1 Dockable=1
[Breakpoints] [Breakpoints]
Count=0 Count=1
Breakpoint0='C:\Codigo\Empresas\ElegirEmpresa.pas',72,'',0,1,'',1,0,0,'',1,'','',''
[AddressBreakpoints] [AddressBreakpoints]
Count=0 Count=0
@ -109,13 +109,13 @@ Visible=1
State=2 State=2
Left=0 Left=0
Top=0 Top=0
Width=1660 Width=1676
Height=112 Height=112
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
MaxWidth=1660 MaxWidth=1684
MaxHeight=112 MaxHeight=112
ClientWidth=1652 ClientWidth=1676
ClientHeight=78 ClientHeight=78
[ProjectManager] [ProjectManager]
@ -390,26 +390,26 @@ State=0
Left=0 Left=0
Top=12 Top=12
Width=140 Width=140
Height=617 Height=426
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=140 ClientWidth=140
ClientHeight=617 ClientHeight=426
TBDockHeight=305 TBDockHeight=305
LRDockWidth=140 LRDockWidth=140
Dockable=1 Dockable=1
[MessageView@EditWindow0] [MessageView@EditWindow0]
Create=1 Create=1
Visible=0 Visible=1
State=0 State=0
Left=-236 Left=12
Top=-691 Top=0
Width=443 Width=1117
Height=85 Height=85
MaxLeft=-1 MaxLeft=-1
MaxTop=-1 MaxTop=-1
ClientWidth=443 ClientWidth=1117
ClientHeight=85 ClientHeight=85
TBDockHeight=85 TBDockHeight=85
LRDockWidth=443 LRDockWidth=443

BIN
Factuges.res
View File

Binary file not shown.

BIN
Temp/Factuges.exe
View File

Binary file not shown.

BIN
bd/ABETO.GDB
View File

Binary file not shown.