Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso general

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@123 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-01-29 20:08:46 +00:00
parent 67d73e3347
commit 54939fe544
15 changed files with 101 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -59,6 +59,13 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -74,8 +81,12 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Base.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
@ -148,9 +159,6 @@
<Form>frViewTiendas</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="JvJansD11R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uFactuGES_App.pas" />
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
@ -223,7 +231,6 @@
<Form>frUsuarios</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

2
Source/ApplicationBase/Empresas/Views/uViewTienda.pas
View File

@ -38,8 +38,6 @@ implementation
{$R *.dfm}
procedure TfrViewTienda.CustomViewCreate(Sender: TObject);
var
i: Integer;
begin
inherited;
FListaTiendas := Nil;

4
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -876,8 +876,8 @@ begin
end;
procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario);
var
Condicion: TDAWhereExpression;
{var
Condicion: TDAWhereExpression;}
begin
// AQUI HAY QUE TENER EN CUENTA QUE UN USUARIO PUEDE QUE NO TENGA ACCESO

2
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
Caption = 'fEditorPerfilUsuario'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock

5
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas
View File

@ -49,6 +49,9 @@ implementation
{$R *.dfm}
uses
uDialogUtils;
{ TfEditorUsuario }
var
@ -83,7 +86,7 @@ end;
procedure TfEditorPerfilUsuario.EliminarInterno;
begin
if (Application.MessageBox('¿Desea borrar este perfil?', 'Atención', MB_YESNO) = IDYES) then
if (ShowConfirmMessage('Eliminar un perfil de usuario', '¿Desea borrar este perfil?') = IDYES) then
begin
inherited;
if not FController.EliminarPerfil(FPerfilUsuario) then

4
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorUsuario: TfEditorUsuario
Caption = 'fEditorUsuario'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited TBXDock: TTBXDock
@ -48,7 +50,7 @@ inherited fEditorUsuario: TfEditorUsuario
ExplicitWidth = 638
DesignSize = (
638
249)
273)
inherited PngSpeedButton3: TPngSpeedButton
Top = 84
ExplicitTop = 84

2
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -98,7 +98,7 @@ end;
procedure TfEditorUsuario.EliminarInterno;
begin
if (Application.MessageBox('¿Desea borrar este usuario?', 'Atención', MB_YESNO) = IDYES) then
if (ShowConfirmMessage('Eliminar un usuario', '¿Desea borrar este usuario?') = IDYES) then
begin
inherited;
if not FController.EliminarUsuario(FUsuario.ID) then

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Familias\adortl.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Familias\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Familias\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\designide.dcp" />
<DCCReference Include="..\Modulos\Familias\dsnap.dcp" />
<DCCReference Include="..\Modulos\Familias\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Familias\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Familias\Jcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Familias\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Familias\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Familias\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\rtl.dcp" />
<DCCReference Include="..\Modulos\Familias\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Familias\vcl.dcp" />
<DCCReference Include="..\Modulos\Familias\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
<DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Familias\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Familias\vclx.dcp" />
<DCCReference Include="..\Modulos\Familias\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

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

@ -49,31 +49,31 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="..\..\Contabilidad\adortl.dcp" />
<DCCReference Include="..\..\Contabilidad\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contabilidad\Base.dcp" />
<DCCReference Include="..\..\Contabilidad\ccpackD11.dcp" />
<DCCReference Include="..\..\Contabilidad\cfpack_d11.dcp" />
<DCCReference Include="..\..\Contabilidad\Contactos_controller.dcp" />
<DCCReference Include="..\..\Contabilidad\Contactos_model.dcp" />
<DCCReference Include="..\..\Contabilidad\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Contabilidad\dbrtl.dcp" />
<DCCReference Include="..\..\Contabilidad\designide.dcp" />
<DCCReference Include="..\..\Contabilidad\dsnap.dcp" />
<DCCReference Include="..\..\Contabilidad\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Contabilidad\FormasPago_model.dcp" />
<DCCReference Include="..\..\Contabilidad\GUIBase.dcp" />
<DCCReference Include="..\..\Contabilidad\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Contabilidad\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Contabilidad\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Contabilidad\rtl.dcp" />
<DCCReference Include="..\..\Contabilidad\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Contabilidad\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Contabilidad\vcl.dcp" />
<DCCReference Include="..\..\Contabilidad\vclactnband.dcp" />
<DCCReference Include="..\..\Contabilidad\vcldb.dcp" />
<DCCReference Include="..\..\Contabilidad\vclx.dcp" />
<DCCReference Include="..\..\Contabilidad\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

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

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

BIN
Source/Modulos/Familias/Model/Familias_model.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

18
Source/Servidor/FactuGES_Server.cfg
View File

@ -1,7 +1,7 @@
-$A8
-$B-
-$C+
-$D-
-$D+
-$E-
-$F-
-$G+
@ -9,7 +9,7 @@
-$I+
-$J-
-$K-
-$L-
-$L+
-$M-
-$N+
-$O+
@ -22,18 +22,16 @@
-$V+
-$W-
-$X+
-$Y-
-$YD
-$Z1
-GD
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"C:\Codigo Acana\Output\Debug\Servidor"
-N".\"
-U"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-O"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-I"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-R"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-GD
-E"..\..\Output\Debug\Servidor"
-LE"C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl"
-LN"C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Dcp"

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 22 de enero de 2008 10:27\0"
VALUE "CompileDate", "martes, 29 de enero de 2008 20:19\0"
END
END
BLOCK "VarFileInfo"