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

Corregidos pedidos de proveedor y albaranes de proveedor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@422 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-06-03 18:40:23 +00:00
parent 56770ef2a2
commit bdbdc6c74c
17 changed files with 436 additions and 484 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/scripts/factuges.sql
View File

@ -2612,7 +2612,7 @@ SELECT
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) LEFT OUTER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
LEFT OUTER JOIN ALMACENES AS OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA) LEFT OUTER JOIN ALMACENES AS OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)

BIN
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
View File

Binary file not shown.

66
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dproj
View File

@ -41,75 +41,20 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">AlbaranesProveedor_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AlbaranesProveedor_model.dpk"> <DelphiCompile Include="AlbaranesProveedor_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
@ -119,10 +64,9 @@
<None Include="ModelSupport_AlbaranesProveedor_model\default.txaPackage" /> <None Include="ModelSupport_AlbaranesProveedor_model\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

22
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.res
View File

Binary file not shown.

6
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schAlbaranesProveedorClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -351,7 +351,7 @@ type
end; end;
{ TAlbaranesProveedorDataTableRules } { TAlbaranesProveedorDataTableRules }
TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor) TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -682,7 +682,7 @@ type
end; end;
{ TAlbaranesProveedor_DetallesDataTableRules } { TAlbaranesProveedor_DetallesDataTableRules }
TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles) TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

8
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -378,7 +378,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
SQL = SQL =
'SELECT'#10' ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_' + 'SELECT'#10' ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_' +
'DETALLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, ' + 'DETALLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, ' +
@ -445,13 +444,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = '<unknown>' TableField = 'REFERENCIA'
SQLOrigin = 'REFERENCIA'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = 'REFERENCIA_PROVEEDOR'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end end
item item
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
@ -1125,7 +1122,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor_Detalles' InsertCommandName = 'Insert_AlbaranesProveedor_Detalles'
DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles' DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles'
UpdateCommandName = 'Update_AlbaranesProveedor_Detalles' UpdateCommandName = 'Update_AlbaranesProveedor_Detalles'
RefreshDatasetName = 'AlbaranesProveedor_Detalles_Refresh'
ReferencedDataset = 'AlbaranesProveedor_Detalles' ReferencedDataset = 'AlbaranesProveedor_Detalles'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly

5
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -51,6 +51,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Nombre del proveedor' DisplayLabel = 'Nombre del proveedor'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE' DictionaryEntry = 'PedidosProveedor_NOMBRE'
end end
item item
@ -211,6 +212,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE' DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE' DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end end
item item
@ -254,6 +256,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datFloat DataType = datFloat
DisplayFormat = ',0.00 %;-,0.00 %' DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify Alignment = taRightJustify
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_IVA' DictionaryEntry = 'PedidosProveedor_IVA'
end end
item item
@ -290,6 +293,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
Required = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end end
item item
@ -359,6 +363,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
Required = True
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end end
item item

2
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
View File

@ -150,9 +150,7 @@ begin
APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE; APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE;
with TBizPedidoProveedor(APedido.BusinessEventsObj) do with TBizPedidoProveedor(APedido.BusinessEventsObj) do
begin
Detalles := _GetDetalles; Detalles := _GetDetalles;
end;
Result := (APedido as IBizPedidoProveedor); Result := (APedido as IBizPedidoProveedor);
finally finally

12
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{22AB7846-6093-4612-B61E-FD4C10DB2AE7}'; RID_PedidosProveedor = '{9437A603-5D41-4EC6-A135-34015EF07D79}';
RID_PedidosProveedor_Detalles = '{03E6E5FB-F6A4-4BA6-B50A-2266A1B760B9}'; RID_PedidosProveedor_Detalles = '{EEC311D4-4583-4E03-A27F-53131CA46FF6}';
RID_PedidosProveedor_Articulos_Pendientes = '{DE3CC08E-E770-4883-B5A9-DAAC783FEECD}'; RID_PedidosProveedor_Articulos_Pendientes = '{2ED12E30-361C-42E7-BA8D-50FF32238DA5}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -151,7 +151,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{D50CD449-67BE-478F-AC2A-D10FF3915156}'] ['{40775523-C6B7-44A2-BCE4-80EABB3B7116}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -618,7 +618,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{16378B3A-6A16-45AB-A2F8-8C50E9ECB4FA}'] ['{E78ED9DE-0DD9-4961-B9A6-2E9492EE1B7F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -833,7 +833,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{5122E04E-672C-45EF-A1C4-82D194A1DBF3}'] ['{259CA523-5F84-4E6B-A266-D4B505188134}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);

12
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{616C488F-BFD3-45A8-A204-879873D85CF0}'; RID_PedidosProveedorDelta = '{DCAC504B-ACF2-406A-B618-7ADFCDA0E43B}';
RID_PedidosProveedor_DetallesDelta = '{C93B2E5B-CC8C-47D8-B4F1-9E6B677EF39A}'; RID_PedidosProveedor_DetallesDelta = '{79754003-20D0-4881-A677-2F67EF3CD720}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{5EE863CB-706E-46E9-A9F0-743A71E89B4A}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{0F86C061-3357-416D-A496-F91CA65E42A7}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{616C488F-BFD3-45A8-A204-879873D85CF0}'] ['{DCAC504B-ACF2-406A-B618-7ADFCDA0E43B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -484,7 +484,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{C93B2E5B-CC8C-47D8-B4F1-9E6B677EF39A}'] ['{79754003-20D0-4881-A677-2F67EF3CD720}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -698,7 +698,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{5EE863CB-706E-46E9-A9F0-743A71E89B4A}'] ['{0F86C061-3357-416D-A496-F91CA65E42A7}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;

22
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
View File

@ -6,7 +6,7 @@ uses
SysUtils, Classes, AHWord97, IB, IBCustomDataSet, IBDatabase, SysUtils, Classes, AHWord97, IB, IBCustomDataSet, IBDatabase,
Word2000, uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAClasses, Word2000, uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
uDAScriptingProvider, uDADataTable, uDAMemDataTable; uDAScriptingProvider, uDADataTable, uDAMemDataTable;
type type
TRptWordPedidoProveedor = class(TDataModule) TRptWordPedidoProveedor = class(TDataModule)
DABin2DataStreamer: TDABin2DataStreamer; DABin2DataStreamer: TDABin2DataStreamer;
@ -17,15 +17,13 @@ type
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FPlantilla : string; FPlantilla : string;
FWordApp : TWordApp; FWordApp : TWordApp;
FDocumento : TWordDoc; FDocumento : TWordDoc;
FNumCapitulos : Integer;
FCodigoPedido : string; FCodigoPedido : string;
FNombreFichero : String; FNombreFichero : String;
FImportes : Boolean; FImportes : Boolean;
function DarNumCapitulos : Integer;
procedure InsertarConceptos(Tabla : Table); procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean; function Generar : Boolean;
@ -59,22 +57,6 @@ begin
FPlantilla := DarRutaInformes + rptInforme; FPlantilla := DarRutaInformes + rptInforme;
end; end;
function TRptWordPedidoProveedor.DarNumCapitulos: Integer;
var
AuxNumCapitulos : integer;
begin
AuxNumCapitulos := 0;
tbl_Cabecera.First;
while not tbl_Cabecera.Eof do
begin
if tbl_Cabecera.FieldByName('TIPO_DETALLE').AsString = 'Titulo' then
AuxNumCapitulos := AuxNumCapitulos + 1;
tbl_Cabecera.Next;
end;
tbl_Cabecera.First;
Result := AuxNumCapitulos;
end;
destructor TRptWordPedidoProveedor.Destroy; destructor TRptWordPedidoProveedor.Destroy;
begin begin
if FDocumento <> NIL then if FDocumento <> NIL then

211
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -194,6 +194,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE' DictionaryEntry = 'PedidosProveedor_NOMBRE'
end end
item item
@ -334,6 +335,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'REF_PED_CLIENTE' Name = 'REF_PED_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE' DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end end
item item
@ -364,6 +366,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'IVA' Name = 'IVA'
DataType = datFloat DataType = datFloat
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_IVA' DictionaryEntry = 'PedidosProveedor_IVA'
end end
item item
@ -382,6 +385,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL = SQL =
'SELECT'#10' PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETA' + 'SELECT'#10' PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETA' +
'LLES.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS' + 'LLES.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS' +
@ -452,15 +456,18 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end end
item item
DatasetField = 'REFERENCIA_FABRICANTE' DatasetField = 'REFERENCIA_FABRICANTE'
TableField = 'REFERENCIA_FABRICANTE' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_FABRICANTE'
end> end>
end> end>
Name = 'PedidosProveedor_Detalles' Name = 'PedidosProveedor_Detalles'
@ -636,6 +643,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end> end>
ReadOnly = True
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -658,18 +666,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -680,20 +676,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'REFERENCIA'
Value = '' Value = ''
end end
item item
@ -709,15 +697,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = '' Value = ''
end end
item item
@ -725,13 +705,25 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
Value = '' Value = ''
end end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item item
Name = 'POBLACION' Name = 'POBLACION'
Value = '' Value = ''
@ -740,10 +732,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'PROVINCIA' Name = 'PROVINCIA'
Value = '' Value = ''
end end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
Value = '' Value = ''
@ -784,31 +772,43 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
Value = '' Value = ''
end end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
Value = '' Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end> end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, ID_PROVEEDO' +
'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' + 'R, REFERENCIA, FECHA_PEDIDO,'#10' FECHA_CONFIRMACION, FECHA_ENTR' +
'_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + 'EGA, ID_ALMACEN, ID_OBRA,'#10' OBSERVACIONES, INCIDENCIAS, INCID' +
'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + 'ENCIAS_ACTIVAS, CALLE, CODIGO_POSTAL,'#10' POBLACION, PROVINCIA,' +
'IVAS, ID_ALMACEN, ID_OBRA, CALLE,'#10' POBLACION, PROVINCIA, COD' + ' PERSONA_CONTACTO, TELEFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NET' +
'IGO_POSTAL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE,' + 'O, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONI' +
' IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO' + 'BLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_' +
', BASE_IMPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO)'#10' VALUE' + 'ENVIO, USUARIO, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_' +
'S'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPR' + 'PROVEEDOR, :REFERENCIA, :FECHA_PEDIDO,'#10' :FECHA_CONFIRMACION,' +
'ESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :FECH' + ' :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' :OBSERVACIONES, :IN' +
'A_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA' + 'CIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CALLE, :CODIGO_POSTAL, :P' +
', :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_' + 'OBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PED' +
'ALMACEN, :ID_OBRA, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' + 'IDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IM' +
'L,'#10' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPOR' + 'PORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :IMPO' +
'TE_NETO, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :' + 'RTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' :USUARIO, CURRENT_' +
'BASE_IMPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO)'#10 'TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -818,10 +818,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
Value = '' DataType = datAutoInc
end GeneratorName = 'GEN_PEDIDOS_PROV_ID'
item
Name = 'USUARIO'
Value = '' Value = ''
end end
item item
@ -836,14 +834,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
Value = '' Value = ''
@ -877,11 +867,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Value = '' Value = ''
end end
item item
Name = 'ID_OBRA' Name = 'ID_ALMACEN'
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_OBRA'
Value = '' Value = ''
end end
item item
@ -944,6 +934,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
Value = '' Value = ''
end end
item
Name = 'USUARIO'
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -953,24 +947,24 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR' TargetTable = 'PEDIDOS_PROVEEDOR'
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' OBSERVACIONES =' +
'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' + ' :OBSERVACIONES,'#10' REFERENCIA = :REFERENCIA,'#10' ID_EMPRESA = ' +
'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' + ':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ENVIO =' +
'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' + ' :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONF' +
'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' + 'IRMACION = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FECHA_ENTR' +
'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' + 'EGA, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPO' +
'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + 'RTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ' +
' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + ' ID_ALMACEN = :ID_ALMACEN, '#10' ID_OBRA = :ID_OBRA,'#10' CALLE = ' +
'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + ':CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA' +
'EN, '#10' ID_OBRA = :ID_OBRA,'#10' CALLE = :CALLE, '#10' POBLACION ' + ', '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :' +
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' + 'PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIE' +
':CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' ' + 'NTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' ' +
'TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENT' + ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10 +
'E, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPO' + ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE ' +
'RTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO =' + '= :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_' +
' :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ' + 'IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' USUARIO = :USUARIO' +
' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO' + ','#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :' +
' = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'#10 'OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1072,6 +1066,16 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
Value = ''
end
item
Name = 'ID_PEDIDO'
Value = ''
end
item item
Name = 'POSICION' Name = 'POSICION'
Value = '' Value = ''
@ -1117,7 +1121,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Value = '' Value = ''
end end
item item
Name = 'ID' Name = 'OLD_ID'
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -1126,14 +1130,14 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Default = True Default = True
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' POSICION = :POSICIO' + 'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET'#10' ID = :ID,'#10' ID_PED' +
'N,'#10' TIPO_DETALLE = :TIPO_DETALLE, '#10' ID_ARTICULO = :ID_ARTI' + 'IDO = :ID_PEDIDO,'#10' POSICION = :POSICION,'#10' TIPO_DETALLE = :' +
'CULO, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' ' + 'TIPO_DETALLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' CONCEPTO = :' +
' UNIDAD_MEDIDA = :UNIDAD_MEDIDA, '#10' IMPORTE_UNIDAD = :IMPORTE_' + 'CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' UNIDAD_MEDIDA = :UNIDA' +
'UNIDAD, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPOR' + 'D_MEDIDA, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO ' +
'TE_PORTE, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :V' + '= :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_' +
'ISIBLE, '#10' FECHA_MODIFICACION = current_timestamp'#10' WHERE'#10' ' + 'TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' FECHA_MODI' +
'(ID = :ID)'#10 'FICACION = current_timestamp'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1141,10 +1145,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end> end>
RelationShips = < RelationShips = <
item item
Name = 'FK_PedidosProveedor_Detalles' Name = 'FK_PEDIDOSPROVEEDOR_DETALLES'
MasterDatasetName = 'PedidosProveedor' MasterDatasetName = 'PedidosProveedor'
MasterFields = 'ID' MasterFields = 'ID'
DetailDatasetName = 'Copy of PedidosProveedor_Detalles' DetailDatasetName = 'PedidosProveedor_Detalles'
DetailFields = 'ID_PEDIDO' DetailFields = 'ID_PEDIDO'
RelationshipType = rtForeignKey RelationshipType = rtForeignKey
end> end>
@ -1192,7 +1196,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end> end>
Version = 0 Version = 0
Left = 88 Left = 56
Top = 24 Top = 24
end end
object bpPedidosProveedor: TDABusinessProcessor object bpPedidosProveedor: TDABusinessProcessor
@ -1212,7 +1216,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DeleteCommandName = 'Delete_PedidosProveedor_Detalles' DeleteCommandName = 'Delete_PedidosProveedor_Detalles'
UpdateCommandName = 'Update_PedidosProveedor_Detalles' UpdateCommandName = 'Update_PedidosProveedor_Detalles'
ReferencedDataset = 'PedidosProveedor_Detalles' ReferencedDataset = 'PedidosProveedor_Detalles'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 240 Left = 240
Top = 88 Top = 88
@ -1376,6 +1380,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'PedidosProveedor_Detalles_ID_PEDIDO' Name = 'PedidosProveedor_Detalles_ID_PEDIDO'
DataType = datInteger DataType = datInteger
Required = True
DisplayLabel = 'ID_PEDIDO' DisplayLabel = 'ID_PEDIDO'
end end
item item
@ -1519,11 +1524,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Size = 255 Size = 255
DisplayLabel = 'Obra' DisplayLabel = 'Obra'
end> end>
Left = 88 Left = 56
Top = 152 Top = 144
end end
object Bin2DataStreamer: TDABin2DataStreamer object Bin2DataStreamer: TDABin2DataStreamer
Left = 88 Left = 56
Top = 88 Top = 80
end end
end end

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

@ -1276,7 +1276,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end end
object Bin2DataStreamer: TDABin2DataStreamer object Bin2DataStreamer: TDABin2DataStreamer
Left = 48 Left = 48
Top = 80 Top = 88
end end
object bpPresupuestosCliente: TDABusinessProcessor object bpPresupuestosCliente: TDABusinessProcessor
Schema = schPresupuestosCliente Schema = schPresupuestosCliente
@ -1286,7 +1286,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
ReferencedDataset = 'PresupuestosCliente' ReferencedDataset = 'PresupuestosCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 184 Left = 232
Top = 24 Top = 24
end end
object bpPresupuestosClienteDetalles: TDABusinessProcessor object bpPresupuestosClienteDetalles: TDABusinessProcessor
@ -1297,7 +1297,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
ReferencedDataset = 'PresupuestosCliente_Detalles' ReferencedDataset = 'PresupuestosCliente_Detalles'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 184 Left = 232
Top = 88 Top = 96
end end
end end

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

542
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,275 +1,275 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.4.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.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 16 de mayo de 2008 18:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.4.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.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 16 de mayo de 2008 18:37</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.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\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.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\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <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\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <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\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <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\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.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\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_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\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <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\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" /> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <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\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <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\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <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\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <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\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <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\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <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\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <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\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.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\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.4.0\0" VALUE "FileVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.4.0\0" VALUE "ProductVersion", "1.0.4.0\0"
VALUE "CompileDate", "martes, 03 de junio de 2008 16:14\0" VALUE "CompileDate", "martes, 03 de junio de 2008 19:12\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"