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

Repaso de todas las referencias de la aplicación

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@175 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-25 11:13:15 +00:00
parent 9011506a66
commit 85b512934e
22 changed files with 357 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,6 +46,55 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<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>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -60,12 +109,12 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />

62
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -67,12 +67,25 @@ type
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property Terminated : Boolean read GetTerminated;
//TEMPORAL
function getVAR_IDTIENDA : Integer;
procedure setVAR_IDTIENDA (AValue : Integer);
function getVAR_TIENDA : String;
procedure setVAR_TIENDA (AValue : String);
property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write SetVAR_IDTIENDA;
property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA;
procedure ShowCapado;
end;
TAppFactuGES = class(TInterfacedObject, IAppFactuGES)
private
//TEMPORAL
FVAR_IDTIENDA: Integer;
FVAR_TIENDA: String;
FAppInfo : TJclFileVersionInfo;
FEmpresasController : IEmpresasController;
FUsuariosController: IUsuariosController;
@ -116,6 +129,7 @@ type
procedure HideSplashForm;
procedure UpdateSplashForm;
public
constructor Create; virtual;
destructor Destroy; override;
@ -140,6 +154,15 @@ type
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property Terminated : Boolean read GetTerminated;
//TEMPORAL
function getVAR_IDTIENDA : Integer;
procedure setVAR_IDTIENDA (AValue : Integer);
function getVAR_TIENDA : String;
procedure setVAR_TIENDA (AValue : String);
property VAR_IDTIENDA: Integer read getVAR_IDTIENDA write setVAR_IDTIENDA;
property VAR_TIENDA: String read getVAR_TIENDA write setVAR_TIENDA;
procedure ShowCapado;
end;
@ -150,7 +173,9 @@ implementation
uses
Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
uEmpresasViewRegister, uEjerciciosController;
uEmpresasViewRegister, uEjerciciosController,
//TEMPORAL
inifiles;
procedure TAppFactuGES.CambiarEjercicio(const AIDEmpresa: Integer);
var
@ -188,11 +213,26 @@ begin
end;
procedure TAppFactuGES.CargarModulos;
var
Fichero : String;
begin
if not Assigned(FDoLoadModulesEvent) then
raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)');
FDoLoadModulesEvent();
//TEMPORAL
Fichero := ExtractFileDir(ParamStr(0))+ '\' + 'FACTUGES.INI';
if not FileExists(Fichero) then
raise Exception.Create('No se ha encontrado el fichero de configuración' + #10#13 + Fichero);
with TIniFile.Create(Fichero) do
begin
VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0);
VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', '');
Free;
end;
end;
constructor TAppFactuGES.Create;
@ -314,6 +354,16 @@ begin
Result := FUsuariosController;
end;
function TAppFactuGES.getVAR_IDTIENDA: Integer;
begin
Result := FVAR_IDTIENDA;
end;
function TAppFactuGES.getVAR_TIENDA: String;
begin
Result := FVAR_TIENDA;
end;
procedure TAppFactuGES.HideSplashForm;
begin
if not Assigned(FAppSplashForm) then
@ -368,6 +418,16 @@ begin
FDoLoadModulesEvent := ALoadModulesEvent;
end;
procedure TAppFactuGES.setVAR_IDTIENDA(AValue: Integer);
begin
FVAR_IDTIENDA := Avalue;
end;
procedure TAppFactuGES.setVAR_TIENDA(AValue: String);
begin
FVAR_TIENDA := Avalue;
end;
procedure TAppFactuGES.ShowCapado;
begin
ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias');

82
Source/Base/Base.dproj
View File

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

74
Source/Cliente/FactuGES.dproj
View File

@ -53,79 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

6
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,1,4,0
PRODUCTVERSION 2,1,4,0
FILEVERSION 2,1,5,0
PRODUCTVERSION 2,1,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.4.0\0"
VALUE "FileVersion", "2.1.5.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4\0"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

18
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj
View File

@ -42,6 +42,18 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -51,9 +63,9 @@
<DelphiCompile Include="AlbaranesCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" />

5
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

@ -83,7 +83,7 @@ begin
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA)
Result := DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
@ -101,8 +101,7 @@ begin
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(ACodigoReferencia,
Self.REFERENCIA, ID_EMPRESA)
Result := IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;

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

@ -190,11 +190,13 @@ begin
SITUACION := SITUACION_ALBARAN_PENDIENTE;
REFERENCIA := '';
TIPO := CTE_TIPO_ALBARAN;
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 1;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField);

5
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -187,8 +187,9 @@ begin
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 1;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizAlbaranProveedor.IVAOnChange(Sender: TDACustomField);

72
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -11,20 +11,76 @@ const
type
TBizClienteServer = class(TBizContactosServer)
private
FReferenciaAutomatica : Boolean;
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override;
procedure Update_Datos_Contacto(aChange: TDADeltaChange); override;
procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
uDataModuleServer, uDAClasses, srvContabilidad_Impl,
schContactosClient_Intf, uBusinessUtils;
schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
const
REF_CLIENTE = 'REF_CLIENTE';
{ TBizClienteServer }
procedure TBizClienteServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
begin
inherited;
// Actualizamos el contador de referencias.
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if FReferenciaAutomatica then
begin
IncrementarReferencia;
FReferenciaAutomatica := False;
end;
end;
end;
end;
procedure TBizClienteServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
FReferenciaAutomatica := True;
REFERENCIA := DarReferencia;
end;
end;
end;
end;
function TBizClienteServer.DarReferencia: String;
var
ATipo : String;
begin
ATipo := REF_CLIENTE;
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
procedure TBizClienteServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
var
ASchema : TDASchema;
@ -48,6 +104,20 @@ begin
end;
end;
function TBizClienteServer.IncrementarReferencia: Boolean;
var
ATipo : String;
begin
ATipo := REF_CLIENTE;
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
procedure TBizClienteServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
var
ASchema : TDASchema;

6
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -450,8 +450,10 @@ end;
procedure TBizContacto.IniciarValoresContactoNuevo;
begin
USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizContacto.OnNewRecord(Sender: TDADataTable);

72
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -11,20 +11,76 @@ const
type
TBizProveedorServer = class(TBizContactosServer)
private
FReferenciaAutomatica : Boolean;
function DarReferencia : String;
function IncrementarReferencia : Boolean;
protected
procedure Insert_Datos_Contacto(aChange: TDADeltaChange); override;
procedure Update_Datos_Contacto(aChange: TDADeltaChange); override;
procedure Delete_Datos_Contacto(aChange: TDADeltaChange); override;
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
uDataModuleServer, uDAClasses, srvContabilidad_Impl,
schContactosClient_Intf, uBusinessUtils;
schContactosClient_Intf, uBusinessUtils, srvReferencias_Impl;
const
REF_PROVEEDOR = 'REF_PROVEEDOR';
{ TBizProveedorServer }
procedure TBizProveedorServer.AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
begin
inherited;
// Actualizamos el contador de referencias.
case aChange.ChangeType of
ctInsert, ctUpdate: begin
if FReferenciaAutomatica then
begin
IncrementarReferencia;
FReferenciaAutomatica := False;
end;
end;
end;
end;
procedure TBizProveedorServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
FReferenciaAutomatica := True;
REFERENCIA := DarReferencia;
end;
end;
end;
end;
function TBizProveedorServer.DarReferencia: String;
var
ATipo : String;
begin
ATipo := REF_PROVEEDOR;
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
procedure TBizProveedorServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
var
ASchema : TDASchema;
@ -48,6 +104,20 @@ begin
end;
end;
function TBizProveedorServer.IncrementarReferencia: Boolean;
var
ATipo : String;
begin
ATipo := REF_PROVEEDOR;
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
end;
procedure TBizProveedorServer.Insert_Datos_Contacto(aChange: TDADeltaChange);
var
ASchema : TDASchema;

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

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

@ -256,8 +256,10 @@ begin
IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
IGNORAR_CONTABILIDAD := 0;
end;

7
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -246,8 +246,11 @@ begin
RE := 0;
SITUACION := CTE_PENDIENTE;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
IGNORAR_CONTABILIDAD := 0;
end;
procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField);

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

@ -201,9 +201,13 @@ begin
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
// ID_TIENDA := AppFactuGES.UsuarioActivo.ID_TIENDA;
ID_VENDEDOR := AppFactuGES.UsuarioActivo.ID_EMPLEADO;
TIENDA := CTE_TODAS;
// TIENDA := CTE_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField);

5
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas
View File

@ -77,7 +77,7 @@ function TBizPresupuestosClienteServer.DarReferencia: String;
begin
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA)
Result := DarNuevaReferencia(REF_PRESUPUESTOS_CLIENTE, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
@ -88,8 +88,7 @@ function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
begin
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE,
Self.REFERENCIA, ID_EMPRESA)
Result := IncrementarValorReferencia(REF_PRESUPUESTOS_CLIENTE, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;

5
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -243,7 +243,10 @@ begin
OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizRecibosCliente.OnNewRecord(Sender: TDADataTable);

5
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -245,7 +245,10 @@ begin
OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := CTE_ID_TODAS;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;
TIENDA := AppFactuGES.VAR_TIENDA;
end;
procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

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", "viernes, 21 de marzo de 2008 12:17\0"
VALUE "CompileDate", "martes, 25 de marzo de 2008 9:34\0"
END
END
BLOCK "VarFileInfo"