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

Subida con presupuestos y contratos en comun para todas las empresas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@437 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-09-22 18:07:57 +00:00
parent 9853364ba6
commit 42fea50d1e
36 changed files with 775 additions and 674 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Database/scripts/factuges.sql
View File

@ -3641,7 +3641,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
PRESUPUESTOS_CLIENTE.ID_EMPRESA,
/* PRESUPUESTOS_CLIENTE.ID_EMPRESA,*/
EMPRESAS_CONTACTOS.ID_EMPRESA,
PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
@ -3678,14 +3679,15 @@ SELECT
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
CONTACTOS2.NOMBRE AS VENDEDOR,
PRESUPUESTOS_CLIENTE.ID_CONTRATO,
CONTRATOS_CLIENTE.REFERENCIA
CONTRATOS_CLIENTE.REFERENCIA
FROM
PRESUPUESTOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (PRESUPUESTOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
LEFT OUTER JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = PRESUPUESTOS_CLIENTE.ID_TIENDA)
LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_CONTRATO)
;
/* View: V_CONTRATOS_CLIENTE */
@ -3694,6 +3696,7 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
REF_CLIENTE,
NOMBRE_COMERCIAL_CLIENTE,
NIF_CIF,
NOMBRE,
@ -3732,9 +3735,11 @@ CREATE VIEW V_CONTRATOS_CLIENTE(
PERSONA_CONTACTO)
AS
SELECT CONTRATOS_CLIENTE.ID,
CONTRATOS_CLIENTE.ID_EMPRESA,
/* CONTRATOS_CLIENTE.ID_EMPRESA,*/
EMPRESAS_CONTACTOS.ID_EMPRESA,
CONTRATOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
CONTACTOS.REFERENCIA,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CONTRATOS_CLIENTE.NIF_CIF,
CONTRATOS_CLIENTE.NOMBRE,
@ -3774,6 +3779,7 @@ SELECT CONTRATOS_CLIENTE.ID,
FROM CONTRATOS_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)
LEFT OUTER JOIN CONTACTOS CONTACTOS2 ON (CONTRATOS_CLIENTE.ID_VENDEDOR = CONTACTOS2.ID)
INNER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = CONTRATOS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = CONTRATOS_CLIENTE.ID_TIENDA)

6
Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
View File

@ -264,12 +264,12 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Top = 16
end
object rda_Usuarios: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = srvUsuarios
GetDataCall.RemoteService = srvUsuarios
UpdateDataCall.RemoteService = srvUsuarios
GetScriptsCall.RemoteService = srvUsuarios
RemoteService = srvUsuarios
DataStreamer = Bin2DataStreamer
Left = 176
Top = 16
end
@ -362,8 +362,6 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Usuarios
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'USUARIOS'
IndexDefs = <>
Left = 176
@ -410,8 +408,6 @@ inherited DataModuleUsuarios: TDataModuleUsuarios
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Usuarios
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PERFILES'
IndexDefs = <>
Left = 272

17
Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas
View File

@ -38,7 +38,6 @@ type
function GetPerfil (const ID : Integer) : IBizPerfilUsuario;
procedure InicializarUserControl (AUserControl : TUserControl);
function DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
function Login(const AUser: String; const APassword: String): Boolean;
procedure Logout;
@ -79,22 +78,6 @@ begin
Result := GetUsuario(ID_NULO)
end;
{procedure TDataModuleUsuarios.DarIDTiendaVendedorUsuario(const ID_USUARIO: Integer; var AIdTienda: Integer; var ATienda: String);
begin
//Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado
//el usuario con el que ha accedido a la aplicación.
//Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar)
(srvUsuarios as IsrvUsuarios).darIDTiendaVendedorUsuario(ID_USUARIO, AIdTienda, ATienda);
end;}
function TDataModuleUsuarios.DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
begin
// Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado
// el usuario con el que ha accedido a la aplicación.
// Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar)
end;
procedure TDataModuleUsuarios.DataModuleCreate(Sender: TObject);
begin
inherited;

2
Source/ApplicationBase/Usuarios/Model/Data/uIDataModuleUsuarios.pas
View File

@ -18,8 +18,6 @@ type
function GetPerfiles : IBizPerfilUsuario;
function GetPerfil(const ID : Integer) : IBizPerfilUsuario;
function DarTiendaUsuario(const ID_Usuario: Integer; var AID_Tienda: Integer; var ATienda: String) : Boolean;
function Login(const AUser: String; const APassword: String): Boolean;
procedure Logout;
end;

47
Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm
View File

@ -117,53 +117,6 @@ object srvUsuarios: TsrvUsuarios
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
IsPublic = False
Params = <
item
Name = 'ID_USUARIO'
DataType = datInteger
Value = '6'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = '1'
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_VENDEDORES'
Name = 'IBX'
SQL =
'select ID_TIENDA, TIENDA'#10' from V_VENDEDORES'#10' where V_VENDEDORES' +
'.ID = :ID_USUARIO and'#10' V_VENDEDORES.ID_EMPRESA = :ID_EMPRE' +
'SA'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end>
end>
Name = 'DarTiendaUsuario'
Fields = <
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <

97
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><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>
@ -58,52 +65,52 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\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\cxLibraryD11.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\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.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_D11R.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>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +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">3</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.3.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.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></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">3</VersionInfo><VersionInfo Name="Release">6</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.3.6.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.3.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

20
Source/GUIBase/uViewIncidencias.dfm
View File

@ -1,9 +1,9 @@
inherited frViewIncidencias: TfrViewIncidencias
Width = 451
Height = 370
Height = 461
Align = alBottom
ExplicitWidth = 451
ExplicitHeight = 370
ExplicitHeight = 461
object pnlSup: TPanel
Left = 0
Top = 0
@ -37,19 +37,17 @@ inherited frViewIncidencias: TfrViewIncidencias
Left = 0
Top = 28
Width = 451
Height = 342
Height = 433
Align = alClient
Caption = 'Incidencias'
TabOrder = 1
DesignSize = (
451
342)
object eIncidencias: TcxDBMemo
Left = 10
Top = 22
Anchors = [akLeft, akTop, akRight, akBottom]
Left = 2
Top = 15
Align = alClient
DataBinding.DataField = 'INCIDENCIAS'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
@ -59,8 +57,8 @@ inherited frViewIncidencias: TfrViewIncidencias
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 305
Width = 420
Height = 416
Width = 447
end
end
object DADataSource: TDADataSource

14
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

102
Source/Informes/2/InfContratoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

14
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

79
Source/Informes/2/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

10
Source/Informes/2/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf872.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAA1.tmp */

2
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf870.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9F.tmp */

2
Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf86E.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA9D.tmp */

38
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,18 +3,18 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{569C4BBD-F143-44AB-AE2F-AA6733F37581}';
RID_Propiedades = '{958FDBFC-7C67-4A1F-80CF-899030163CDB}';
RID_ListaAnosContratos = '{2AFBD9FE-E31D-4A9E-AD0F-D3F4AE910BEB}';
RID_ContratosCliente = '{9A186154-0F7C-42B4-AF72-5E9E0801EAC8}';
RID_CapitulosPresupuesto = '{466F929F-F004-4E04-A043-DBB3B667ECCE}';
RID_ContratosCliente_Detalles = '{30342CD1-2EE8-4497-9A6A-25BF9E0CCDD6}';
RID_Valores = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}';
RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}';
RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}';
RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}';
RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}';
RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}';
{ Data table names }
nme_Valores = 'Valores';
@ -187,7 +187,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{5D15741A-15A6-4598-B8B7-EBFCE2D802A2}']
['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -213,7 +213,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -246,7 +246,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{090CE60B-4D24-4472-A2F4-C95C4813FEC9}']
['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -272,7 +272,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -305,7 +305,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{25612533-A52A-45BA-BE4D-04D500D6FB1C}']
['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -319,7 +319,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -340,7 +340,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F7D66B35-0712-4250-AAE0-F8F70AFA04A3}']
['{71B11240-6256-418D-82D7-5586D8A10591}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -584,7 +584,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -846,7 +846,7 @@ type
}
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{DE2E4BAE-DF41-4426-8F90-1D338AFF63BA}']
['{2187AEED-477B-45C3-BBBF-270822AF8DF1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -890,7 +890,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@ -941,7 +941,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{84FBE3E1-B0CA-408A-A962-B85C85430FE5}']
['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1039,7 +1039,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }

24
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{88181682-ABCC-4E1B-8FFA-1FF5479DEA02}';
RID_PropiedadesDelta = '{110FEF80-D7C3-4C2B-A2B5-68086C2F0DB5}';
RID_ListaAnosContratosDelta = '{7C956C53-A91A-45AB-8BC0-F48969046ADF}';
RID_ContratosClienteDelta = '{63BBD338-95C0-4E98-890E-688C4F411831}';
RID_CapitulosPresupuestoDelta = '{31D84112-02F8-4DA5-BBE1-93A957BC18C2}';
RID_ContratosCliente_DetallesDelta = '{6335F584-A85A-463D-A204-AAEFAE0B13E8}';
RID_ValoresDelta = '{25248564-22B0-47BB-86D0-2444C6EA27E9}';
RID_PropiedadesDelta = '{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}';
RID_ListaAnosContratosDelta = '{18D72479-5821-401B-B8A5-43F927D23F4D}';
RID_ContratosClienteDelta = '{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}';
RID_CapitulosPresupuestoDelta = '{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}';
RID_ContratosCliente_DetallesDelta = '{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{88181682-ABCC-4E1B-8FFA-1FF5479DEA02}']
['{25248564-22B0-47BB-86D0-2444C6EA27E9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{110FEF80-D7C3-4C2B-A2B5-68086C2F0DB5}']
['{D4DB0BBC-EA97-4F0E-8A48-AA33A949DBF3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{7C956C53-A91A-45AB-8BC0-F48969046ADF}']
['{18D72479-5821-401B-B8A5-43F927D23F4D}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{63BBD338-95C0-4E98-890E-688C4F411831}']
['{6AD4B6BE-88CF-47E6-AABC-520CC5BFC3BE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -675,7 +675,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{31D84112-02F8-4DA5-BBE1-93A957BC18C2}']
['{0669B7DF-4A6B-4517-BB0E-2934956BB2B0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -769,7 +769,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{6335F584-A85A-463D-A204-AAEFAE0B13E8}']
['{BC3F0D8A-48F1-47D0-86FB-AB210406B3CD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;

3
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -257,6 +257,9 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
VENDEDOR := AppFactuGES.UsuarioActivo.USERNAME;
Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
end;

4
Source/Modulos/Contratos de cliente/Model/uBizContratosClienteServer.pas
View File

@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
end;
function TBizContratosClienteServer.IncrementarReferencia: Boolean;
@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
end;
initialization

2
Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8BA.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE9.tmp */

80
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -738,11 +738,6 @@ object srvContratosCliente: TsrvContratosCliente
GeneratorName = 'GEN_CONTRATOS_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@ -919,23 +914,22 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTA' +
'L, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO' +
'_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA' +
'_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMP' +
'ORTE_DESCUENTO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_I' +
'VA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, P' +
'ERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VA' +
'LUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CAL' +
'LE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :F' +
'ECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OB' +
'SERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTA' +
'MP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :I' +
'MPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMP' +
'ORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_V' +
'ENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALEN' +
'CIA)'#10#10
'INSERT'#10' INTO CONTRATOS_CLIENTE'#10' (ID, ID_CLIENTE, NIF_CIF, NO' +
'MBRE, CALLE, POBLACION, PROVINCIA,'#10' CODIGO_POSTAL, REFERENCI' +
'A, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10' PLAZO_ENTREGA, OB' +
'SERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' ' +
'USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUEN' +
'TO,'#10' BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE_IVA,'#10' IMP' +
'ORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR, PERSONA_CONTA' +
'CTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA)'#10' VALUES'#10' (:I' +
'D, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' +
'A,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION' +
', :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS' +
', :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPOR' +
'TE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :B' +
'ASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL,' +
' :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACT' +
'O, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -966,11 +960,6 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
@ -1151,25 +1140,24 @@ object srvContratosCliente: TsrvContratosCliente
Default = True
TargetTable = 'CONTRATOS_CLIENTE'
SQL =
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CI' +
'F,'#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :PO' +
'BLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO' +
'_POSTAL,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_CONTRATO = :FEC' +
'HA_CONTRATO,'#10' SITUACION = :SITUACION,'#10' FORMA_PAGO = :FORMA' +
'_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIONES = :' +
'OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_A' +
'CTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_MODIFICACION = CURRENT_' +
'TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' IMPORTE_NETO = :IMPORTE_N' +
'ETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DESCUE' +
'NTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMPONI' +
'BLE = :BASE_IMPONIBLE,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA =' +
' :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPO' +
'RTE_TOTAL,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :' +
'ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' PERSONA_CONTACTO ' +
'= :PERSONA_CONTACTO,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE,' +
#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA'#10#10' WHERE'#10' (' +
'ID = :OLD_ID)'#10#10
'UPDATE CONTRATOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_CLIENTE = :' +
'ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOMBRE,'#10' CA' +
'LLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVI' +
'NCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' REFERENCIA = :REFE' +
'RENCIA,'#10' FECHA_CONTRATO = :FECHA_CONTRATO,'#10' SITUACION = :S' +
'ITUACION,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLA' +
'ZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS ' +
'= :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10 +
' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUAR' +
'IO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPOR' +
'TE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :I' +
'MPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' ID_T' +
'IPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPOR' +
'TE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ID_FORMA_PAGO = ' +
':ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :I' +
'D_VENDEDOR,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RE = :' +
'RE,'#10' IMPORTE_RE = :IMPORTE_RE,'#10' RECARGO_EQUIVALENCIA = :RE' +
'CARGO_EQUIVALENCIA'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

2
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc
View File

@ -25,4 +25,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfAE7.tmp */

122
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 332
Top = 147
Caption = 'Nuevo contrato de cliente'
ClientHeight = 676
ClientWidth = 848
ClientHeight = 595
ClientWidth = 845
OnClose = CustomEditorClose
ExplicitWidth = 856
ExplicitHeight = 710
ExplicitWidth = 853
ExplicitHeight = 629
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 848
Width = 845
Caption = 'Nuevo contrato de cliente'
ExplicitWidth = 848
inherited Image1: TImage
Left = 821
Left = 818
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -126,7 +126,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited TBXDock: TTBXDock
Width = 848
Width = 845
ExplicitWidth = 848
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
@ -147,7 +147,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 848
ExplicitWidth = 845
object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem34: TTBXItem
@ -162,8 +162,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 657
Width = 848
Top = 576
Width = 845
Panels = <
item
Width = 200
@ -172,8 +172,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 848
end
inherited pgPaginas: TPageControl
Width = 842
Height = 351
Width = 839
Height = 270
ActivePage = pagInicidencias
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
@ -188,11 +189,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitWidth = 834
ExplicitHeight = 323
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
Width = 834
Height = 323
Width = 831
Height = 242
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -207,7 +210,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited ToolBar1: TToolBar
Width = 834
Width = 831
Height = 24
ExplicitWidth = 834
ExplicitHeight = 24
@ -223,10 +226,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited FontSize: TEdit
Left = 513
Top = 0
Width = 58
Width = 74
ExplicitLeft = 513
ExplicitTop = 0
ExplicitWidth = 58
ExplicitWidth = 74
end
inherited UpDown1: TUpDown
Left = 587
@ -285,19 +288,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
inherited cxGrid: TcxGrid
Top = 50
Width = 834
Height = 273
Width = 831
Height = 192
ExplicitTop = 50
ExplicitWidth = 834
ExplicitHeight = 273
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 834
Width = 831
ExplicitTop = 24
ExplicitWidth = 834
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 614
ExplicitWidth = 564
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@ -311,11 +314,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitWidth = 834
ExplicitHeight = 323
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 834
Height = 323
Width = 831
Height = 242
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -328,22 +333,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited pnlSup: TPanel
Width = 834
Width = 831
ExplicitWidth = 834
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 834
Height = 295
Width = 831
Height = 214
ExplicitWidth = 834
ExplicitHeight = 295
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 811
ExplicitHeight = 292
Height = 292
Width = 811
Height = 211
Width = 808
end
end
end
@ -351,11 +353,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
ExplicitWidth = 834
ExplicitHeight = 323
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
Left = 0
Top = 0
Width = 834
Height = 323
Width = 831
Height = 242
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -368,12 +372,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 834
ExplicitHeight = 323
inherited TBXDock: TTBXDock
Width = 834
Width = 831
ExplicitWidth = 834
end
inherited ListView1: TListView
Width = 834
Height = 300
Width = 831
Height = 219
ExplicitWidth = 834
ExplicitHeight = 300
end
@ -385,17 +389,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited PnlComentario: TPanel
Width = 848
Width = 845
ExplicitWidth = 848
inherited lbComentario: TLabel
Width = 838
Width = 835
Height = 25
end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0
Top = 463
Width = 848
Top = 382
Width = 845
Height = 194
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -410,18 +414,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 848
ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl
Width = 848
Width = 845
ExplicitWidth = 848
inherited Bevel3: TBevel
Left = 417
Left = 416
Height = 122
ExplicitLeft = 417
ExplicitLeft = 416
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 529
Left = 528
Width = 210
ExplicitLeft = 529
ExplicitLeft = 528
ExplicitWidth = 210
end
inherited ImporteDto: TcxDBCurrencyEdit
@ -434,24 +438,24 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 600
Left = 599
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 600
ExplicitLeft = 599
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 530
Left = 529
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 530
ExplicitLeft = 529
ExplicitWidth = 137
Width = 137
end
@ -463,42 +467,42 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
Left = 529
Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 529
ExplicitLeft = 528
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 529
Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 529
ExplicitLeft = 528
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 529
Left = 528
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 529
ExplicitLeft = 528
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 600
Left = 599
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 600
ExplicitLeft = 599
ExplicitWidth = 56
Width = 56
end
@ -531,9 +535,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 81
end
inherited bTiposIVA: TButton
Left = 269
Left = 268
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 269
ExplicitLeft = 268
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''

6
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -91,12 +91,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
DataBinding.FieldName = 'NOMBRE'
Width = 161
end
object cxGridViewCLIENTE_FINAL: TcxGridDBColumn
Caption = 'Cliente final'
DataBinding.FieldName = 'CLIENTE_FINAL'
BestFitMaxWidth = 80
Width = 140
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'

2
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -23,13 +23,11 @@ type
end;
TfrViewContratosCliente = class(TfrViewGrid, IViewContratosCliente)
cxGridDBTableView1: TcxGridDBTableView;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
cxGridViewCLIENTE_FINAL: TcxGridDBColumn;
cxGridViewFACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel;

38
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{360865F6-D61C-4F56-81B3-80940311084F}';
RID_Propiedades = '{578A1925-5462-48CD-88F8-00151C73B996}';
RID_ListaAnosPresupuestos = '{44749161-C1BE-4754-8CE5-6A09AF383611}';
RID_PresupuestosCliente = '{8145DD24-FBBA-4F26-A6F1-8EE2C84AD837}';
RID_CapitulosPresupuesto = '{249810AA-086E-4490-940F-A0AF43A71A5A}';
RID_PresupuestosCliente_Detalles = '{854200B0-5648-479E-9BC9-6DE111FF31E6}';
RID_Valores = '{8F678C89-C84C-491D-88A8-3FA8AA200B7B}';
RID_Propiedades = '{CB86B7AA-E200-4D33-9831-736BBCCD1145}';
RID_ListaAnosPresupuestos = '{953D58F9-E500-46FB-A447-9E4FDB1653E5}';
RID_PresupuestosCliente = '{CAB2C1BC-02C2-4740-BC0E-C80FC7CA0D43}';
RID_CapitulosPresupuesto = '{7BF1E379-4B80-487C-AD64-9DC12F8E4293}';
RID_PresupuestosCliente_Detalles = '{51C04670-8D87-4DFA-8D34-2E8CC96C11AA}';
{ Data table names }
nme_Valores = 'Valores';
@ -185,7 +185,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{DD6974D3-A0C4-4E21-A334-E50E81583DA9}']
['{97D666A4-0354-4F3D-8A26-AE1C181A52D0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -211,7 +211,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -244,7 +244,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{6512B700-7A3B-45A4-80AC-B6D48193D4CB}']
['{3238E30E-57F0-4C9C-8951-66CCCC70EB77}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -270,7 +270,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -303,7 +303,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{EED87562-4E5D-4164-8D9E-AE13BEB8A806}']
['{6AFE2837-CEC0-4DBC-B594-53220DD34736}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -317,7 +317,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@ -338,7 +338,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{CB9CB465-7592-4B43-9E99-7A6E743BBFD2}']
['{6A36C4B0-590E-4B26-8142-7699225805F6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -576,7 +576,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -829,7 +829,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{96561128-301B-4707-91F2-6428F82033FE}']
['{27538BB0-5AAB-4F43-B48F-7B2E90A73045}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -873,7 +873,7 @@ type
end;
{ TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@ -924,7 +924,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{006D2E37-2AEC-43DD-B5A4-3BB45956BABC}']
['{A5BF3AF5-328E-4F20-8716-0B3844EF7FB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1022,7 +1022,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }

24
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}';
RID_PropiedadesDelta = '{17913405-B1A3-414E-B9CC-8668063D831C}';
RID_ListaAnosPresupuestosDelta = '{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}';
RID_PresupuestosClienteDelta = '{AD87C5AB-4E58-404D-997A-A099D3BE6A93}';
RID_CapitulosPresupuestoDelta = '{F88C93D2-E737-4E68-8C96-6F328113A033}';
RID_PresupuestosCliente_DetallesDelta = '{98D1A78A-661D-41D6-9920-E0105FFE38FD}';
RID_ValoresDelta = '{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}';
RID_PropiedadesDelta = '{48FC4878-0972-4697-A1C1-41764D19B4AF}';
RID_ListaAnosPresupuestosDelta = '{F5D7132D-0FCF-47CE-867B-8BA530302FAC}';
RID_PresupuestosClienteDelta = '{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}';
RID_CapitulosPresupuestoDelta = '{9EA18AF5-5763-4D4D-A195-9152C1058813}';
RID_PresupuestosCliente_DetallesDelta = '{639409C3-40C2-4E80-B232-CC22EBA51DDE}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{A31ECE4B-F45F-4FFA-B8D2-E4C30437FC6C}']
['{3304418B-9CEC-4A8E-B46C-B11D0D8F7FB2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -77,7 +77,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{17913405-B1A3-414E-B9CC-8668063D831C}']
['{48FC4878-0972-4697-A1C1-41764D19B4AF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -135,7 +135,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{28DC5CF0-35FD-4430-997C-CE68FAFA4B91}']
['{F5D7132D-0FCF-47CE-867B-8BA530302FAC}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -169,7 +169,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{AD87C5AB-4E58-404D-997A-A099D3BE6A93}']
['{7D8F5258-4284-4AA6-BFE7-C03DF174BCC8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -663,7 +663,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{F88C93D2-E737-4E68-8C96-6F328113A033}']
['{9EA18AF5-5763-4D4D-A195-9152C1058813}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -757,7 +757,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{98D1A78A-661D-41D6-9920-E0105FFE38FD}']
['{639409C3-40C2-4E80-B232-CC22EBA51DDE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;

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

@ -84,7 +84,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA, ID_TIENDA)
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1, ID_TIENDA)
end;
function TBizPresupuestosClienteServer.IncrementarReferencia: Boolean;
@ -99,7 +99,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1, ID_TIENDA)
end;
initialization

78
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -726,11 +726,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
@ -891,23 +886,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
'ESUPUESTO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' SITU' +
'ACION, ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FORMA_PA' +
'GO, PLAZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDENCIAS_' +
'ACTIVAS, FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10' ' +
'DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, ' +
'IMPORTE_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_' +
'TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO)'#10 +
' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_VIGEN' +
'CIA, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE,' +
' :ID_DIRECCION, :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTR' +
'EGA, :OBSERVACIONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CU' +
'RRENT_TIMESTAMP, :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :' +
'DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :I' +
'VA, :IMPORTE_IVA,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, ' +
':IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :' +
'ID_CONTRATO)'#10' '#10#10#10#10#10
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID,'#10' FECHA_PRESUPUES' +
'TO, FECHA_VIGENCIA, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ' +
'ID_CLIENTE, ID_DIRECCION, PERSONA_CONTACTO,'#10' FORMA_PAGO, PLA' +
'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
', FECHA_ALTA, USUARIO, IMPORTE_NETO, IMPORTE_PORTE,'#10' DESCUEN' +
'TO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
'_IVA,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, IMPORTE_TOTAL, ' +
'ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,'#10' ID_CONTRATO)'#10' VALUE' +
'S'#10' (:ID,'#10' :FECHA_PRESUPUESTO, :FECHA_VIGENCIA, :FECHA_DEC' +
'ISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :ID_DIRECCION,' +
' :PERSONA_CONTACTO,'#10' :FORMA_PAGO, :PLAZO_ENTREGA, :OBSERVACI' +
'ONES, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' +
', :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMP' +
'ORTE_DESCUENTO, :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IV' +
'A,'#10' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA, :IMPORTE_TOTAL,' +
' :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDEDOR,'#10' :ID_CONTRATO)'#10' ' +
' '#10#10#10#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -940,11 +935,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
@ -1094,23 +1084,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' +
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
' FECHA_VIGENCIA = :FECHA_VIGENCIA,'#10' FECHA_DECISION = :FECHA_D' +
'ECISION, '#10' REFERENCIA = :REFERENCIA, '#10' SITUACION = :SITUAC' +
'ION,'#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_DIRECCION = :ID_DIREC' +
'CION,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' FORMA_PAGO =' +
' :FORMA_PAGO,'#10' PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10' OBSERVACIO' +
'NES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCI' +
'DENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_MODIFICACION ' +
'= CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO =' +
' :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUE' +
'NTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10 +
' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ID_TIPO_IVA = :ID_TIP' +
'O_IVA,'#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMP' +
'ORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO' +
','#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR,'#10' ' +
' ID_CONTRATO = :ID_CONTRATO'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' +
'PUESTO = :FECHA_PRESUPUESTO,'#10' FECHA_VIGENCIA = :FECHA_VIGENCI' +
'A,'#10' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFE' +
'RENCIA, '#10' SITUACION = :SITUACION,'#10' ID_CLIENTE = :ID_CLIENT' +
'E, '#10' ID_DIRECCION = :ID_DIRECCION,'#10' PERSONA_CONTACTO = :PE' +
'RSONA_CONTACTO,'#10' FORMA_PAGO = :FORMA_PAGO,'#10' PLAZO_ENTREGA ' +
'= :PLAZO_ENTREGA,'#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCID' +
'ENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_A' +
'CTIVAS, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO' +
' = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_POR' +
'TE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' +
'ESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPON' +
'IBLE, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IVA = :IVA, '#10' IMPO' +
'RTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ' +
' ID_VENDEDOR = :ID_VENDEDOR,'#10' ID_CONTRATO = :ID_CONTRATO'#10' W' +
'HERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -131,12 +131,12 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

584
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,295 +1,297 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</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.3.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 26 de agosto de 2009 12:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">6</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.3.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de septiembre de 2009 18:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclfqb100.bpl">FastQueryBuilder 1.03</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\JvUIBD11D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.5.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.5.0\0"
VALUE "CompileDate", "lunes, 21 de septiembre de 2009 19:40\0"
VALUE "CompileDate", "martes, 22 de septiembre de 2009 18:55\0"
END
END
BLOCK "VarFileInfo"