version 4.0.5

*  Errores #461: Poner función de validación de CIF en la aplicación
    * Errores #488: En albaranes de cliente cuando vamos a elegir almacen da un error.
    * Errores #489: En pedidos de proveedor cuando elijo una direccion de entrega en lugar de almacen me da un error que no es claro si no relleno la calle


git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@92 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-10-19 16:54:37 +00:00
parent 599cf1bd13
commit 5360c2af50
14 changed files with 614 additions and 454 deletions

Binary file not shown.

View File

@ -117,6 +117,7 @@ contains
uSaveClipboard in 'Utiles\uSaveClipboard.pas', uSaveClipboard in 'Utiles\uSaveClipboard.pas',
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas', MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {DataModuleImpresiones: TDataModule}, uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {DataModuleImpresiones: TDataModule},
uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule}; uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule},
uValidacionUtils in 'Utiles\uValidacionUtils.pas';
end. end.

View File

@ -58,58 +58,6 @@
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas"> <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form> <Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -138,13 +86,58 @@
<Form>dmBase</Form> <Form>dmBase</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\adortl.dcp" />
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
<DCCReference Include="Utiles\ClipboardUtils.pas" /> <DCCReference Include="Utiles\ClipboardUtils.pas" />
<DCCReference Include="Utiles\Ctltortf.pas" /> <DCCReference Include="Utiles\Ctltortf.pas" />
<DCCReference Include="Utiles\cxDataD11.dcp" />
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
<DCCReference Include="Utiles\cxExportD11.dcp" />
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
<DCCReference Include="Utiles\cxGridD11.dcp" />
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Utiles\dbrtl.dcp" />
<DCCReference Include="Utiles\dclIndyCore.dcp" />
<DCCReference Include="Utiles\designide.dcp" />
<DCCReference Include="Utiles\dsnap.dcp" />
<DCCReference Include="Utiles\dxCoreD11.dcp" />
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
<DCCReference Include="Utiles\dxThemeD11.dcp" />
<DCCReference Include="Utiles\GUISDK_D11R.dcp" />
<DCCReference Include="Utiles\IndyCore.dcp" />
<DCCReference Include="Utiles\IndyProtocols.dcp" />
<DCCReference Include="Utiles\IndySystem.dcp" />
<DCCReference Include="Utiles\Jcl.dcp" />
<DCCReference Include="Utiles\JclVcl.dcp" />
<DCCReference Include="Utiles\JSDialog100.dcp" />
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
<DCCReference Include="Utiles\JvMMD11R.dcp" />
<DCCReference Include="Utiles\JvNetD11R.dcp" />
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
<DCCReference Include="Utiles\MidasSpeedFix.pas" /> <DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\pckMD5.dcp" />
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
<DCCReference Include="Utiles\PNG_D10.dcp" />
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
<DCCReference Include="Utiles\rtl.dcp" />
<DCCReference Include="Utiles\TB2k_D10.dcp" />
<DCCReference Include="Utiles\tbx_d10.dcp" />
<DCCReference Include="Utiles\uAppInfoUtils.pas" /> <DCCReference Include="Utiles\uAppInfoUtils.pas" />
<DCCReference Include="Utiles\uCalculosUtils.pas" /> <DCCReference Include="Utiles\uCalculosUtils.pas" />
<DCCReference Include="Utiles\uDataTableUtils.pas" /> <DCCReference Include="Utiles\uDataTableUtils.pas" />
@ -164,6 +157,14 @@
<DCCReference Include="Utiles\uSaveClipboard.pas" /> <DCCReference Include="Utiles\uSaveClipboard.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" /> <DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" /> <DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="Utiles\uValidacionUtils.pas" />
<DCCReference Include="Utiles\vcl.dcp" />
<DCCReference Include="Utiles\vclactnband.dcp" />
<DCCReference Include="Utiles\vcldb.dcp" />
<DCCReference Include="Utiles\vcljpg.dcp" />
<DCCReference Include="Utiles\VclSmp.dcp" />
<DCCReference Include="Utiles\vclx.dcp" />
<DCCReference Include="Utiles\xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

View File

@ -0,0 +1,147 @@
unit uValidacionUtils;
interface
function EsNIFCIF(Cif : String) : Boolean;
function DarDC(const Entidad,Sucursal,Cuenta: Variant): String;
implementation
uses
SysUtils, Variants;
function Letra(Numero: Integer): string;
begin
Result:= copy('TRWAGMYFPDXBNJZSQVHLCKET',1 + numero mod 23,1);
end;
function EsNif(NIF: String): Boolean;
var
Numero: Integer;
begin
Result:= FALSE;
if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then
Result:= Uppercase(Copy(NIF,Length(NIF),1)) = Letra(Numero);
end;
function EsNumero(Num: Char): Boolean;
begin
try
StrToInt(Num);
Result:=True;
Except
result:=False;
end;
end;
{Cambiar un carácter por otro en una cadena.}
function CadCambioCar(Cadena, CarOrig, CarCambio : String) : String;
var
i : Integer;
Temp : String;
begin
Temp := '';
for i := 1 to Length(Cadena) do
if Copy(Cadena, i, 1) = CarOrig then
Temp := Temp + CarCambio
else
Temp := Temp + Copy(Cadena, i, 1);
Result := Temp;
end;
{ Validar si un CIF introducido es correcto}
function EsNIFCIF(Cif : String) : Boolean;
var
Suma, Control : Integer;
n : Byte;
begin
Result := False;
{Se pasa todo a mayúsculas limpio de espacios y de caracteres especiales}
Cif := UpperCase(Trim(Cif));
{Se limpia de los caracteres '-' y '/'. }
Cif := CadCambioCar(Cif,'-','');
Cif := CadCambioCar(Cif,'/','');
{El cif debe ser de 9 cifras}
if Length(Cif) = 9 then
begin
{Comprobamos que sea un NIF}
if EsNumero(Cif[1]) then
Result := EsNif(Cif)
else
{Se comprueba que la letra que designa el tipo de cif sea correcta}
if (Pos(Cif[1], 'ABCDEFGHPQSKLMX') = 0) then
Result := False
else
{Se comprueba si es un extranjero, en ese caso se calcula el nif, cambiando la X, por 0}
if Cif[1] = 'X' then
Result := EsNif('0'+Copy(Cif,2,8))
else
begin
Suma:= StrToInt(Cif[3])+StrToInt(Cif[5])+StrToInt(Cif[7]);
for n := 1 to 4 do
Suma := Suma + ((2*StrToInt(Cif[2*n])) mod 10)+((2*StrToInt(Cif[2*n])) div 10);
Control := 10 - (Suma mod 10);
{Se comprueba si es de tipo 'P' o 'S', es decir, Corporaciones Locales (Ayuntamientos, etc.)
y Organismos públicos.}
if Pos(Cif[1],'PS')<>0 then
{Control tipo letra}
Result := (Cif[9] = Chr(64+Control))
else
{Resto de tipos de CIF}
begin
{Control tipo número}
if Control = 10 then
Control := 0;
Result:= ( StrToInt(Cif[9]) = Control);
end;
end;
end;
end;
function CCC(cTemp : String) : Integer;
var
K,I,nNum,nSum : Integer;
cPesos,cNum : String;
begin
cPesos := '06030709100508040201';
nSum := 0;
for I := 1 TO length(cTemp) DO
begin
cNum := Copy(cTemp, length(cTemp) - I + 1, 1);
nNum := StrToInt(cNum);
nSum := nSum + (nNum * StrToInt(Copy(cPesos, ((i - 1) * 2) + 1, 2)));
end;
K := 11 - (nSum MOD 11);
Case K OF
10:Result := 1;
11:Result := 0;
Else Result := K;
end;
end;
function DarDC(const Entidad,Sucursal,Cuenta: Variant): String;
var
DC1,DC2: String;
begin
if VarIsNull(Entidad)
or VarIsNull(Sucursal)
or VarIsNull(Cuenta) then
Result := ''
else
begin
DC1 := IntToStr(CCC(VarToStr(Entidad) + VarToStr(Sucursal))) ;
DC2 := IntToStr(CCC(VarToStr(Cuenta)));
Result := Dc1 + Dc2;
end;
end;
end.

View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.4.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">4</VersionInfo><VersionInfo Name="MinorVer">0</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">4.0.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">4.0.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>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

Binary file not shown.

View File

@ -15,8 +15,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 903
ExplicitHeight = 506
DesignSize = ( DesignSize = (
907 907
591) 591)
@ -569,8 +567,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 292 Left = 292
@ -593,8 +589,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 110 ExplicitTop = 110
ExplicitWidth = 283
Width = 283
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''

View File

@ -10,7 +10,7 @@ uses
uViewObservaciones, uViewDatosYSeleccionCliente, uViewObservaciones, uViewDatosYSeleccionCliente,
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit, cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaAlbaranCliente, Buttons, ActnList, uViewDireccionEntregaAlbaranCliente, Buttons, ActnList, uBizAlmacenes,
uBizPedidosCliente, uPedidosClienteController, uBizPedidosCliente, uPedidosClienteController,
@ -126,6 +126,7 @@ type
protected protected
FController : IAlbaranesClienteController; FController : IAlbaranesClienteController;
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
FAlmacenes : IBizAlmacen;
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
FPedidoAsociado : IBizPedidoCliente; FPedidoAsociado : IBizPedidoCliente;
FPedidoController : IPedidosClienteController; FPedidoController : IPedidosClienteController;
@ -160,7 +161,7 @@ implementation
uses uses
uClientesController, uBizDireccionesContacto, uClientesController, uBizDireccionesContacto,
schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils, schAlbaranesClienteClient_Intf, uDateUtils,
uDialogUtils, uProvinciasPoblacionesController, uStringsUtils; uDialogUtils, uProvinciasPoblacionesController, uStringsUtils;
@ -337,6 +338,8 @@ begin
FPedidoController := TPedidosClienteController.Create; FPedidoController := TPedidosClienteController.Create;
FViewClienteAlbaran := frViewDatosYSeleccionClienteAlbaran1; FViewClienteAlbaran := frViewDatosYSeleccionClienteAlbaran1;
FAlmacenes := Nil;
FAlmacenesController := TAlmacenesController.Create; FAlmacenesController := TAlmacenesController.Create;
end; end;
@ -349,7 +352,8 @@ begin
if Assigned(FPoblaciones) then if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones); FreeANDNIL(FPoblaciones);
FController := Nil; FController := Nil;
FAlmacenes := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FViewClienteAlbaran := Nil; FViewClienteAlbaran := Nil;
@ -452,7 +456,8 @@ begin
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
dsAlmacenes.DataTable := (FAlmacenesController.BuscarTodos).DataTable; FAlmacenes := FAlmacenesController.BuscarTodos;
dsAlmacenes.DataTable := FAlmacenes.DataTable;
dsAlmacenes.DataTable.Active := True; dsAlmacenes.DataTable.Active := True;
//Para que no me cambie el estilo del campo //Para que no me cambie el estilo del campo

View File

@ -392,6 +392,7 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 338 Left = 338
Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''

View File

@ -57,6 +57,8 @@ type
procedure eMailAdministracionPropertiesValidate(Sender: TObject; procedure eMailAdministracionPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure actMandarCorreoAdministracionUpdate(Sender: TObject); procedure actMandarCorreoAdministracionUpdate(Sender: TObject);
procedure eNIFCIFPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected protected
FGrupoController: IGruposClienteController; FGrupoController: IGruposClienteController;
procedure SetContacto(const Value: IBizContacto); override; procedure SetContacto(const Value: IBizContacto); override;
@ -67,7 +69,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uBizGruposCliente; uValidacionUtils, uBizGruposCliente;
type type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit); THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
@ -162,6 +164,14 @@ begin
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []); DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end; end;
procedure TfrViewCliente.eNIFCIFPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
if not EsNIFCIF(DisplayValue) then
Application.MessageBox('El NIF/CIF introducido no es correcto', 'Atención', MB_OK);
end;
procedure TfrViewCliente.SetContacto(const Value: IBizContacto); procedure TfrViewCliente.SetContacto(const Value: IBizContacto);
begin begin
inherited; inherited;

View File

@ -448,7 +448,7 @@ begin
raise Exception.Create('Debe indicar la fecha de este pedido'); raise Exception.Create('Debe indicar la fecha de este pedido');
if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) and (APedido.ID_OBRA = 0) then if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) and (APedido.ID_OBRA = 0) then
raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido'); raise Exception.Create('Debe indicar la calle de la dirección de entrega o almacén para este pedido');
if (APedido.Detalles.DataTable.RecordCount = 0) then if (APedido.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('Debe indicar al menos un concepto en el contenido del pedido'); raise Exception.Create('Debe indicar al menos un concepto en el contenido del pedido');

Binary file not shown.

View File

@ -1,392 +1,393 @@
<?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_D11R;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_D11R;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>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(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">4</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">4.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">4.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 01 de octubre de 2010 19:02</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">4</VersionInfo><VersionInfo Name="MinorVer">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.5.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">4.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 13 de octubre de 2010 13:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</ProjectExtensions> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> </ProjectExtensions>
<ItemGroup> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DelphiCompile Include="FactuGES_Server.dpr"> <ItemGroup>
<MainSource>MainSource</MainSource> <DelphiCompile Include="FactuGES_Server.dpr">
</DelphiCompile> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> </DCCReference>
<Form>srvProvinciasPoblaciones_Impl</Form> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DesignClass>TDataModule</DesignClass> <Form>srvProvinciasPoblaciones_Impl</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<Form>srvUsuarios</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUsuarios</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Base\schBase_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<Form>RptAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> </DCCReference>
<Form>RptWordAlbaranCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordAlbaranCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> </DCCReference>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>RptAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas"> </DCCReference>
<Form>RptWordAlbaranProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordAlbaranProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> </DCCReference>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
<Form>srvArticulos</Form> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvArticulos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<Form>RptComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptComisiones</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> </DCCReference>
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvComisiones</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptEtiquetasContacto</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> </DCCReference>
<Form>RptFichasEmpleado</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFichasEmpleado</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> </DCCReference>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<Form>srvFabricantes</Form> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFabricantes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> </DCCReference>
<Form>RptWordFacturaCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordFacturaCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<Form>RptFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> </DCCReference>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<Form>srvFamilias</Form> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFamilias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<Form>srvFormasPago</Form> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFormasPago</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> </DCCReference>
<Form>srvGestorDocumentos</Form> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorDocumentos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> </DCCReference>
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvGestorInformes</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas"> <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
<Form>srvImpresiones</Form> <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvImpresiones</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<Form>srvObras</Form> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvObras</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<Form>RptPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> </DCCReference>
<Form>RptWordPedidoProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordPedidoProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> </DCCReference>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas"> <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
<Form>RptPedidosCliente</Form> <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPedidosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas"> </DCCReference>
<Form>srvPedidosCliente</Form> <DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> </DCCReference>
<Form>RptWordCertificadoTrabajo</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordCertificadoTrabajo</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> </DCCReference>
<Form>RptWordPresupuestoCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptWordPresupuestoCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> </DCCReference>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<Form>RptRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas"> </DCCReference>
<Form>srvRegistroCorreos</Form> <DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRegistroCorreos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>RptRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRemesasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> </DCCReference>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>RptRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> </DCCReference>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/> <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas"> <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
<Form>srvTiendaWeb</Form> <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiendaWeb</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<Form>srvTiposIVA</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvTiposIVA</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConexionOSC.pas"> </DCCReference>
<Form>frConexionOSC</Form> <DCCReference Include="Configuracion\uConexionOSC.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionOSC</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\AHWord97.pas"/> </DCCReference>
<DCCReference Include="Utiles\MidasSpeedFix.pas"/> <DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas"/> <DCCReference Include="Utiles\MidasSpeedFix.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]