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

- Nuevas versiones de las librerías

Browse Source 
- Adaptar el código a las nuevas versiones
- Incluye VCLFixPack (http://andy.jgknet.de/blog/?page_id=288)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@921 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-03-05 12:18:48 +00:00
parent 51ad45863e
commit 28cc4ff877
92 changed files with 3333 additions and 295 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Build/Build.fbp5
View File

@ -683,7 +683,7 @@ source_path
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">4</Property>
<Property name="MinorVersion" type="Integer">6</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
@ -703,15 +703,15 @@ source_path
<Property name="UseVersionFromDOF" type="Boolean">True</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.4.7.0
FileVersion=1.6.7.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.4.7.0
ProductVersion=1.6.8.0
Comments=
CompileDate=jueves, 27 de noviembre de 2008 16:53
CompileDate=viernes, 27 de febrero de 2009 11:47
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -19259,7 +19259,7 @@ Comments=
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">4</Property>
<Property name="MinorVersion" type="Integer">6</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
@ -19279,13 +19279,13 @@ Comments=
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.4.8.0
FileVersion=1.6.8.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES
ProductVersion=1.4.8.0
ProductVersion=1.6.8.0
Comments=
]]>
</Property>
@ -19329,7 +19329,7 @@ Comments=
<Property name="Optimisation" type="WordBool">False</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%\Cliente</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString">PluginSDK_D10R;GUISDK_D11;Base;GUIBase;ApplicationBase;</Property>
<Property MultiValue="0" name="Packages" type="WideString">PluginSDK_D11R;GUISDK_D11R;Base;GUIBase;ApplicationBase;</Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">True</Property>

2
Installer/librerias.txt
View File

@ -28,7 +28,7 @@ frxe11.bpl
frxTee11.bpl
fs11.bpl
fsTee11.bpl
GUISDK_D11.bpl
GUISDK_D11R.bpl
Jcl110.bpl
JclVcl110.bpl
JSDialog100.bpl

2
Source/ApplicationBase/ApplicationBase.dpk
View File

@ -27,7 +27,7 @@ package ApplicationBase;
requires
JvJansD11R,
PluginSDK_D10R,
PluginSDK_D11R,
Base,
GUIBase;

11
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,6 +55,11 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\JvJansD11R.dcp" />
<DCCReference Include="..\PluginSDK_D11R.dcp" />
<DCCReference Include="..\PluginSDK_D110R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@ -63,11 +68,7 @@
<DCCReference Include="Empresas\Data\uDataModuleEmpresas.pas">
<Form>DataModuleEmpresasObj</Form>
</DCCReference>
<DCCReference Include="Empresas\Model\Base.dcp" />
<DCCReference Include="Empresas\Model\Data\uIDataModuleEmpresas.pas" />
<DCCReference Include="Empresas\Model\GUIBase.dcp" />
<DCCReference Include="Empresas\Model\JvJansD11R.dcp" />
<DCCReference Include="Empresas\Model\PluginSDK_D10R.dcp" />
<DCCReference Include="Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="Empresas\Model\uBizEmpresas.pas" />
@ -77,7 +78,7 @@
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Empresas\Views\uEditorEmpresa.pas">
<Form>fEditorEmpresa</Form>
<Form>fEditorEmpresas</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />

1
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvEmpresas: TsrvEmpresas
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
ConnectionName = 'IBX'
ServiceSchema = schEmpresas
ServiceDataStreamer = DABin2DataStreamer

2
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas
View File

@ -119,7 +119,7 @@ end;
procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpEmpresas.BusinessRulesID := BIZ_SERVER_EMPRESAS;
end;

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

@ -1,7 +1,6 @@
object srvUsuarios: TsrvUsuarios
OldCreateOrder = True
OnCreate = DataAbstractServiceCreate
SessionManager = dmServer.SessionManager
ServiceSchema = schUsuarios
ServiceDataStreamer = Bin2DataStreamer
AllowExecuteSQL = True

2
Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.pas
View File

@ -54,7 +54,7 @@ end;
procedure TsrvUsuarios.DataAbstractServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
initialization

2
Source/Base/Base.dpk
View File

@ -30,7 +30,7 @@ requires
rtl,
vcl,
TB2k_D10,
GUISDK_D11,
GUISDK_D11RR,
RemObjects_Core_D11,
DataAbstract_Core_D11,
vcljpg,

102
Source/Base/Base.dproj
View File

@ -54,57 +54,57 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Cliente\adortl.dcp" />
<DCCReference Include="..\Cliente\cxDataD11.dcp" />
<DCCReference Include="..\Cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Cliente\cxExportD11.dcp" />
<DCCReference Include="..\Cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Cliente\cxGridD11.dcp" />
<DCCReference Include="..\Cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Cliente\dbrtl.dcp" />
<DCCReference Include="..\Cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Cliente\designide.dcp" />
<DCCReference Include="..\Cliente\dsnap.dcp" />
<DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Cliente\GUISDK_D11RR.dcp" />
<DCCReference Include="..\Cliente\IndyCore.dcp" />
<DCCReference Include="..\Cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Cliente\IndySystem.dcp" />
<DCCReference Include="..\Cliente\Jcl.dcp" />
<DCCReference Include="..\Cliente\JclVcl.dcp" />
<DCCReference Include="..\Cliente\JSDialog100.dcp" />
<DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Cliente\pckMD5.dcp" />
<DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Cliente\PNG_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Cliente\rtl.dcp" />
<DCCReference Include="..\Cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Cliente\tbx_d10.dcp" />
<DCCReference Include="..\Cliente\vcl.dcp" />
<DCCReference Include="..\Cliente\vclactnband.dcp" />
<DCCReference Include="..\Cliente\vcldb.dcp" />
<DCCReference Include="..\Cliente\vcljpg.dcp" />
<DCCReference Include="..\Cliente\VclSmp.dcp" />
<DCCReference Include="..\Cliente\vclx.dcp" />
<DCCReference Include="..\Cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

12
Source/Base/Utiles/uGridClipboardUtils.pas
View File

@ -273,12 +273,12 @@ begin
try
AIndex := -1;
ACaption := AReader.ReadString;
ACaption := AReader.ReadAnsiString;
NumCols := AReader.ReadInteger; // nº de columnas
for iContador := 0 to NumCols - 1 do
begin
AValueName := AReader.ReadString;
AValueType := AReader.ReadString;
AValueName := AReader.ReadAnsiString;
AValueType := AReader.ReadAnsiString;
AValueNameList.Add(AValueName);
AValueTypeList.Add(AValueType);
@ -380,7 +380,7 @@ begin
AWriter := TcxWriter.Create(AStream);
try
AWriter.WriteString(ACaption);
AWriter.WriteAnsiString(ACaption);
AWriter.WriteInteger(AView.ItemCount);
for i := 0 to AView.ItemCount - 1 do
@ -396,8 +396,8 @@ begin
AValueType := AView.Items[i].DataBinding.ValueType;
AWriter.WriteString(AName);
AWriter.WriteString(AValueType);
AWriter.WriteAnsiString(AName);
AWriter.WriteAnsiString(AValueType);
end;
with AView.DataController do

2
Source/Base/Utiles/uReferenciasUtils.pas
View File

@ -12,7 +12,7 @@ function CompararReferencias(const ARef1, ARef2 : String) : Integer;
implementation
uses
JclStrings, cxVariants;
JclAnsiStrings, cxVariants;
function CompararReferencias(const ARef1, ARef2 : String) : Integer;
var

4
Source/Cliente/FactuGES.dpr
View File

@ -14,14 +14,14 @@ uses
uNavPaneUtils in 'Utiles\uNavPaneUtils.pas',
uMainMenuController in 'uMainMenuController.pas',
uClienteUtils in 'Utiles\uClienteUtils.pas',
uBootStrap in 'uBootStrap.pas';
uBootStrap in 'uBootStrap.pas',
VCLFixPack in 'VCLFixPack.pas';
{$R *.res}
begin
Application.Initialize;
//ReportMemoryLeaksOnShutdown := True;
// ¡¡¡Fallo en Delphi 2007!!!

23
Source/Cliente/FactuGES.dproj
View File

@ -5,7 +5,7 @@
<MainSource>FactuGES.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_UsePackage>PluginSDK_D10R;GUISDK_D11;Base;GUIBase;ApplicationBase;vclx;vcl;rtl;vclactnband;xmlrtl;JSDialog100</DCC_UsePackage>
<DCC_UsePackage>PluginSDK_D11R;GUISDK_D11R;Base;GUIBase;ApplicationBase;vclx;vcl;rtl;vclactnband;xmlrtl;JSDialog100</DCC_UsePackage>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\FactuGES.exe</DCC_DependencyCheckOutputName>
<DCC_EnabledPackages>true</DCC_EnabledPackages>
@ -41,11 +41,10 @@
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>.\</DCC_BplOutput>
<DCC_DcpOutput>.\</DCC_DcpOutput>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_UnitSearchPath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
@ -54,16 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</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">1.6.8.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">1.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</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">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">9</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">1.6.9.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">1.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
@ -83,6 +73,7 @@
<DCCReference Include="Utiles\uClienteUtils.pas" />
<DCCReference Include="Utiles\uMenuUtils.pas" />
<DCCReference Include="Utiles\uNavPaneUtils.pas" />
<DCCReference Include="VCLFixPack.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2830
Source/Cliente/VCLFixPack.pas Normal file
View File

File diff suppressed because it is too large Load Diff

4
Source/GUIBase/uViewGridBase.pas
View File

@ -190,14 +190,14 @@ procedure Register;
implementation
uses
CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
uSistemaFunc, SHFolder, uAppInfoUtils;
{$R *.dfm}
procedure Register;
begin
RegisterCustomContainer(TfrViewGridBase);
//RegisterCustomContainer(TfrViewGridBase);
end;
{ TfrViewGrid }

1
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvAlbaranesCliente: TsrvAlbaranesCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schAlbaranesCliente
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -68,7 +68,7 @@ end;
procedure TsrvAlbaranesCliente.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
end;

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

@ -1,8 +1,6 @@
object srvAlbaranesProveedor: TsrvAlbaranesProveedor
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schAlbaranesProveedor
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
View File

@ -72,7 +72,7 @@ end;
procedure TsrvAlbaranesProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
end;

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvAlmacenes: TsrvAlmacenes
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schAlmacenes
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas
View File

@ -63,7 +63,7 @@ end;
procedure TsrvAlmacenes.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
function TsrvAlmacenes.DarListaAlmacenes(const IDEmpresa: Integer): Binary;

BIN
Source/Modulos/Articulos/Plugin/Articulos_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Articulos/Plugin/Articulos_plugin.dproj
View File

@ -89,7 +89,7 @@
</DelphiCompile>
<DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="PluginSDK_D10R.dcp" />
<DCCReference Include="PluginSDK_D11R.dcp" />
<DCCReference Include="uPluginArticulos.pas" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />

2
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvArticulos: TsrvArticulos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schArticulos
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
View File

@ -64,7 +64,7 @@ end;
procedure TsrvArticulos.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpArticulos.BusinessRulesID := BIZ_SERVER_ARTICULOS;
end;

2
Source/Modulos/Articulos/Views/Articulos_view.dpk
View File

@ -32,7 +32,7 @@ requires
UnidadesMedida_controller,
Contactos_view,
Fabricantes_controller,
GUISDK_D11;
GUISDK_D11R;
contains
uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},

2
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -61,7 +61,7 @@
<DCCReference Include="..\..\..\Servidor\Fabricantes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\UnidadesMedida_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas">

2
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -32,7 +32,7 @@ requires
ApplicationBase,
Contactos_model,
Contactos_data,
GUISDK_D11,
GUISDK_D11R,
xmlrtl,
cfpack_d11,
vclx,

2
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -73,7 +73,7 @@
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11.dcp" />
<DCCReference Include="View\GUISDK_D11R.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" />

BIN
Source/Modulos/Contactos/Plugin/Contactos_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
View File

@ -53,7 +53,7 @@
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uPluginContactos.pas">

1
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvContactos: TsrvContactos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -79,7 +79,7 @@ end;
procedure TsrvContactos.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpContactos.BusinessRulesID := BIZ_SERVER_CONTACTO;
bpEmpleados.BusinessRulesID := BIZ_SERVER_EMPLEADO;

2
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -62,7 +62,7 @@ requires
JclVcl,
bdertl,
JvSystemD11R,
GUISDK_D11,
GUISDK_D11R,
xmlrtl,
cfpack_d11,
designide,

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

@ -75,7 +75,7 @@
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />

BIN
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dproj
View File

@ -53,7 +53,7 @@
<DCCReference Include="Fabricantes_model.dcp" />
<DCCReference Include="Fabricantes_view.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PluginSDK_D10R.dcp" />
<DCCReference Include="PluginSDK_D11R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uPluginFabricantes.pas">
<Form>PluginFabricantes</Form>

2
Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvFabricantes: TsrvFabricantes
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ServiceSchema = schFabricantes
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>

1
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvFacturasCliente: TsrvFacturasCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -73,7 +73,7 @@ end;
procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
end;

2
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvFacturasProveedor: TsrvFacturasProveedor
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schFacturasProveedor
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
View File

@ -67,7 +67,7 @@ end;
procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR;
end;

BIN
Source/Modulos/Familias/Plugin/Familias_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Familias/Plugin/Familias_plugin.dproj
View File

@ -52,7 +52,7 @@
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uPluginFamilias.pas" />

1
Source/Modulos/Familias/Servidor/srvFamilias_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvFamilias: TsrvFamilias
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schFamilias
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas
View File

@ -46,7 +46,7 @@ end;
{ srvFamilias }
procedure TsrvFamilias.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
procedure TsrvFamilias.DataAbstractServiceBeforeAcquireConnection(

BIN
Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dproj
View File

@ -53,7 +53,7 @@
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\FormasPago_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="..\PluginSDK_D11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uPluginFormasPago.pas" />

1
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvFormasPago: TsrvFormasPago
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ServiceSchema = schFormasPago
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>

2
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas
View File

@ -49,7 +49,7 @@ end;
{ srvFormasPago }
procedure TsrvFormasPago.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
// SessionManager := dmServer.SessionManager;
end;
function TsrvFormasPago.DarListaFormasPago: Binary;

1
Source/Modulos/Gestor de informes/Servidor/NewService_Impl.dfm
View File

@ -1,6 +1,5 @@
object NewService: TNewService
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ServiceSchema = Schema
ServiceDataStreamer = DABinDataStreamer1
ExportedDataTables = <

1
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.dfm
View File

@ -1,6 +1,5 @@
object srvGestorInformes: TsrvGestorInformes
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ServiceSchema = Schema
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <

2
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -50,7 +50,7 @@ requires
JvSystemD11R,
JvStdCtrlsD11R,
JvPageCompsD11R,
GUISDK_D11,
GUISDK_D11R,
xmlrtl,
cfpack_d11,
designide,

2
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -59,7 +59,7 @@
<DCCReference Include="fs11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />

1
Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm
View File

@ -1,6 +1,5 @@
object srvHistoricoMovimientos: TsrvHistoricoMovimientos
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schHistoricoMovimientos
ServiceDataStreamer = Bin2DataStreamer

1
Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
View File

@ -1,6 +1,5 @@
object srvInventario: TsrvInventario
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schInventario
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Obras/Servidor/srvObras_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvObras: TsrvObras
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schObras
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Obras/Servidor/srvObras_Impl.pas
View File

@ -67,7 +67,7 @@ end;
procedure TsrvObras.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
// SessionManager := dmServer.SessionManager;
bpObras.BusinessRulesID := BIZ_SERVER_OBRA;
end;

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

@ -1,7 +1,6 @@
object srvPedidosProveedor: TsrvPedidosProveedor
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schPedidosProveedor
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
View File

@ -76,7 +76,7 @@ end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
end;

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

@ -1,7 +1,6 @@
object srvPresupuestosCliente: TsrvPresupuestosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schPresupuestosCliente
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -72,7 +72,7 @@ end;
procedure TsrvPresupuestosCliente.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpPresupuestosCliente.BusinessRulesID := BIZ_SERVER_PRESUPUESTOS_CLIENTE;
end;

2
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvRecibosCliente: TsrvRecibosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRecibosCliente
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
View File

@ -68,7 +68,7 @@ end;
procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
procedure TsrvRecibosCliente.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);

1
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvRecibosProveedor: TsrvRecibosProveedor
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRecibosProveedor
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas
View File

@ -66,7 +66,7 @@ end;
procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection(

1
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvReferencias: TsrvReferencias
OldCreateOrder = True
OnCreate = DataAbstractServiceCreate
SessionManager = dmServer.SessionManager
ServiceSchema = schReferencias
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>

2
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas
View File

@ -112,7 +112,7 @@ end;
procedure TsrvReferencias.DataAbstractServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;

2
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvRemesasCliente: TsrvRemesasCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRemesasCliente
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas
View File

@ -67,7 +67,7 @@ end;
procedure TsrvRemesasCliente.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE;
end;

2
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvRemesasProveedor: TsrvRemesasProveedor
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRemesasProveedor
ServiceDataStreamer = Bin2DataStreamer

2
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas
View File

@ -66,7 +66,7 @@ end;
procedure TsrvRemesasProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR;
end;

BIN
Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj
View File

@ -50,7 +50,7 @@
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="..\PluginSDK_D11R.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />

2
Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvTiposIVA: TsrvTiposIVA
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ServiceSchema = schTiposIVA
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>

2
Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas
View File

@ -47,7 +47,7 @@ end;
{ srvTiposIVA }
procedure TsrvTiposIVA.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
function TsrvTiposIVA.DarListaTiposIVA: Binary;

BIN
Source/Modulos/Unidades de medida/Plugin/UnidadesMedida_plugin.dpk
View File

Binary file not shown.

2
Source/Modulos/Unidades de medida/Plugin/UnidadesMedida_plugin.dproj
View File

@ -50,7 +50,7 @@
<DCCReference Include="..\..\..\Cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Cliente\Base.dcp" />
<DCCReference Include="..\..\..\Cliente\GUIBase.dcp" />
<DCCReference Include="..\..\..\Cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\..\..\Cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\..\..\Cliente\rtl.dcp" />
<DCCReference Include="..\..\..\Cliente\UnidadesMedida_controller.dcp" />
<DCCReference Include="..\..\..\Cliente\UnidadesMedida_model.dcp" />

2
Source/Modulos/Unidades de medida/Servidor/srvUnidadesMedida_Impl.dfm
View File

@ -1,8 +1,6 @@
object srvUnidadesMedida: TsrvUnidadesMedida
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ServiceSchema = schUnidadesMedida
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>

2
Source/Modulos/Unidades de medida/Servidor/srvUnidadesMedida_Impl.pas
View File

@ -46,7 +46,7 @@ end;
{ srvUnidadesMedida }
procedure TsrvUnidadesMedida.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
procedure TsrvUnidadesMedida.DataAbstractServiceBeforeAcquireConnection(

38
Source/Servicios/FactuGES.RODL
View File

@ -27,13 +27,13 @@
</Operation>
<Operation Name="DarListaDescripcionesProveedores" UID="{F3C0D310-7A7D-4944-9E69-B8AC84FEFA00}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
<Parameter Name="Result" DataType="AnsiString" Flag="Result">
</Parameter>
</Parameters>
</Operation>
<Operation Name="DarListaContratosEmpleados" UID="{988C2AB6-4815-4F1B-891C-CFBB57E7B85E}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
<Parameter Name="Result" DataType="AnsiString" Flag="Result">
</Parameter>
</Parameters>
</Operation>
@ -50,9 +50,9 @@
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="User" DataType="String" Flag="In" >
<Parameter Name="User" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Password" DataType="String" Flag="In" >
<Parameter Name="Password" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="LoginInfo" DataType="TRdxLoginInfo" Flag="Out" >
</Parameter>
@ -116,11 +116,11 @@
<Operations>
<Operation Name="darValor" UID="{DC5B2492-2918-4631-9E1A-A89C5C4AEB79}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
<Parameter Name="Result" DataType="AnsiString" Flag="Result">
</Parameter>
<Parameter Name="CODIGO" DataType="String" Flag="In" >
<Parameter Name="CODIGO" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="ValorPorDefecto" DataType="String" Flag="In" >
<Parameter Name="ValorPorDefecto" DataType="AnsiString" Flag="In" >
</Parameter>
</Parameters>
</Operation>
@ -441,15 +441,16 @@
</Interfaces>
</Service>
<Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Ancestor="DataAbstractService">
<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation>
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces>
<Interface Name="Default" UID="{B957528D-3BE1-412D-A35E-801C97CCD252}">
<Operations>
<Operation Name="DarNuevaReferencia" UID="{EA3276C4-2F49-4BFC-A2F8-97C705FC7C4C}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
<Parameter Name="Result" DataType="AnsiString" Flag="Result">
</Parameter>
<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
<Parameter Name="NombreReferencia" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
@ -459,9 +460,9 @@
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
<Parameter Name="NombreReferencia" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Valor" DataType="String" Flag="In" >
<Parameter Name="Valor" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
@ -551,7 +552,7 @@
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
</Parameter>
</Parameters>
</Operation>
@ -563,7 +564,7 @@
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Fichero" DataType="Binary" Flag="In" >
</Parameter>
@ -577,7 +578,7 @@
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
</Parameter>
</Parameters>
</Operation>
@ -859,9 +860,9 @@
<Elements>
<Element Name="UserID" DataType="Integer">
</Element>
<Element Name="SessionID" DataType="String">
<Element Name="SessionID" DataType="AnsiString">
</Element>
<Element Name="Usuario" DataType="String">
<Element Name="Usuario" DataType="AnsiString">
</Element>
<Element Name="Perfiles" DataType="StringArray">
</Element>
@ -888,5 +889,6 @@
</Arrays>
<Uses>
<Use Name="DataAbstract4" UID="{1E2905B4-36C9-4EAA-9BB9-DF3D3C9BBE75}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
</Use></Uses>
</Use>
</Uses>
</Library>

124
Source/Servicios/FactuGES_Intf.pas
View File

@ -8,7 +8,7 @@ unit FactuGES_Intf;
{ unit is regenerated the next time you compile the project. }
{----------------------------------------------------------------------------}
{$I Remobjects.inc}
{$I RemObjects.inc}
interface
@ -101,8 +101,8 @@ type
TRdxLoginInfo = class(TROComplexType)
private
fUserID: Integer;
fSessionID: String;
fUsuario: String;
fSessionID: AnsiString;
fUsuario: AnsiString;
fPerfiles: StringArray;
fEmpresas: TRdxEmpresasArray;
function GetPerfiles: StringArray;
@ -113,8 +113,8 @@ type
procedure WriteComplex(ASerializer: TObject); override;
published
property UserID:Integer read fUserID write fUserID;
property SessionID:String read fSessionID write fSessionID;
property Usuario:String read fUsuario write fUsuario;
property SessionID:AnsiString read fSessionID write fSessionID;
property Usuario:AnsiString read fUsuario write fUsuario;
property Perfiles:StringArray read GetPerfiles write fPerfiles;
property Empresas:TRdxEmpresasArray read GetEmpresas write fEmpresas;
end;
@ -204,8 +204,8 @@ type
['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
function DarListaDescripcionesProveedores: String;
function DarListaContratosEmpleados: String;
function DarListaDescripcionesProveedores: AnsiString;
function DarListaContratosEmpleados: AnsiString;
end;
{ CosrvContactos }
@ -220,14 +220,14 @@ type
function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
function DarListaDescripcionesProveedores: String;
function DarListaContratosEmpleados: String;
function DarListaDescripcionesProveedores: AnsiString;
function DarListaContratosEmpleados: AnsiString;
end;
{ IsrvLogin }
IsrvLogin = interface(IDataAbstractService)
['{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}']
function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
procedure Logout;
function Ping: Boolean;
end;
@ -242,7 +242,7 @@ type
protected
function __GetInterfaceName:string; override;
function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
procedure Logout;
function Ping: Boolean;
end;
@ -305,7 +305,7 @@ type
{ IsrvConfiguracion }
IsrvConfiguracion = interface(IDataAbstractService)
['{0882B8A4-C8AA-424E-8FC1-C6226B670522}']
function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
end;
{ CosrvConfiguracion }
@ -318,7 +318,7 @@ type
protected
function __GetInterfaceName:string; override;
function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
end;
{ IsrvFamilias }
@ -639,8 +639,8 @@ type
Para uso interno del servidor. Para modulo de gestion de referencias del cliente }
IsrvReferencias = interface(IDataAbstractService)
['{B957528D-3BE1-412D-A35E-801C97CCD252}']
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
end;
{ CosrvReferencias }
@ -653,8 +653,8 @@ type
protected
function __GetInterfaceName:string; override;
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
end;
{ IsrvUnidadesMedida }
@ -735,9 +735,9 @@ type
IsrvGestorDocumentos = interface(IDataAbstractService)
['{2FFB4EEA-F314-442C-920A-E1D37F378929}']
function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
@ -752,9 +752,9 @@ type
function __GetInterfaceName:string; override;
function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
@ -892,9 +892,7 @@ end;
procedure TRdxEmpresasArray.SetItems(aIndex: integer; const Value: Integer);
begin
if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
if fItems[aIndex] <> Value then begin
fItems[aIndex] := Value;
end;
fItems[aIndex] := Value;
end;
procedure TRdxEmpresasArray.Resize(ElementCount: integer);
@ -1024,9 +1022,7 @@ end;
procedure TIntegerArray.SetItems(aIndex: integer; const Value: Integer);
begin
if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
if fItems[aIndex] <> Value then begin
fItems[aIndex] := Value;
end;
fItems[aIndex] := Value;
end;
procedure TIntegerArray.Resize(ElementCount: integer);
@ -1125,19 +1121,19 @@ procedure TRdxLoginInfo.ReadComplex(ASerializer: TObject);
var
l_Empresas: TRdxEmpresasArray;
l_Perfiles: StringArray;
l_SessionID: String;
l_SessionID: AnsiString;
l_UserID: Integer;
l_Usuario: String;
l_Usuario: AnsiString;
begin
if TROSerializer(ASerializer).RecordStrictOrder then begin
l_UserID := UserID;
TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
UserID := l_UserID;
l_SessionID := SessionID;
TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
SessionID := l_SessionID;
l_Usuario := Usuario;
TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
TROSerializer(ASerializer).ReadAnsiString('Usuario', l_Usuario);
Usuario := l_Usuario;
l_Perfiles := Perfiles;
TROSerializer(ASerializer).ReadArray('Perfiles', StringArray, l_Perfiles);
@ -1158,13 +1154,13 @@ begin
if Perfiles <> l_Perfiles then Perfiles.Free;
Perfiles := l_Perfiles;
l_SessionID := SessionID;
TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
SessionID := l_SessionID;
l_UserID := UserID;
TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
UserID := l_UserID;
l_Usuario := Usuario;
TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
TROSerializer(ASerializer).ReadAnsiString('Usuario', l_Usuario);
Usuario := l_Usuario;
end;
end;
@ -1173,18 +1169,18 @@ procedure TRdxLoginInfo.WriteComplex(ASerializer: TObject);
var
l_Empresas: TRdxEmpresasArray;
l_Perfiles: StringArray;
l_SessionID: String;
l_SessionID: AnsiString;
l_UserID: Integer;
l_Usuario: String;
l_Usuario: AnsiString;
begin
if TROSerializer(ASerializer).RecordStrictOrder then begin
TROSerializer(ASerializer).ChangeClass(TRdxLoginInfo);
l_UserID := UserID;
TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
l_SessionID := SessionID;
TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
l_Usuario := Usuario;
TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
TROSerializer(ASerializer).WriteAnsiString('Usuario', l_Usuario);
l_Perfiles := Perfiles;
TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, StringArray);
l_Empresas := Empresas;
@ -1196,11 +1192,11 @@ begin
l_Perfiles := Perfiles;
TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, StringArray);
l_SessionID := SessionID;
TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
l_UserID := UserID;
TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
l_Usuario := Usuario;
TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
TROSerializer(ASerializer).WriteAnsiString('Usuario', l_Usuario);
end;
end;
@ -1278,7 +1274,7 @@ begin
end
end;
function TsrvContactos_Proxy.DarListaDescripcionesProveedores: String;
function TsrvContactos_Proxy.DarListaDescripcionesProveedores: AnsiString;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaDescripcionesProveedores');
@ -1286,14 +1282,14 @@ begin
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
__Message.Read('Result', TypeInfo(AnsiString), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvContactos_Proxy.DarListaContratosEmpleados: String;
function TsrvContactos_Proxy.DarListaContratosEmpleados: AnsiString;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaContratosEmpleados');
@ -1301,7 +1297,7 @@ begin
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
__Message.Read('Result', TypeInfo(AnsiString), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
@ -1322,13 +1318,13 @@ begin
result := 'srvLogin';
end;
function TsrvLogin_Proxy.Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
function TsrvLogin_Proxy.Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
begin
try
LoginInfo := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'Login');
__Message.Write('User', TypeInfo(String), User, []);
__Message.Write('Password', TypeInfo(String), Password, []);
__Message.Write('User', TypeInfo(AnsiString), User, []);
__Message.Write('Password', TypeInfo(AnsiString), Password, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1453,17 +1449,17 @@ begin
result := 'srvConfiguracion';
end;
function TsrvConfiguracion_Proxy.darValor(const CODIGO: String; const ValorPorDefecto: String): String;
function TsrvConfiguracion_Proxy.darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'darValor');
__Message.Write('CODIGO', TypeInfo(String), CODIGO, []);
__Message.Write('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
__Message.Write('CODIGO', TypeInfo(AnsiString), CODIGO, []);
__Message.Write('ValorPorDefecto', TypeInfo(AnsiString), ValorPorDefecto, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
__Message.Read('Result', TypeInfo(AnsiString), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
@ -2042,29 +2038,29 @@ begin
result := 'srvReferencias';
end;
function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
__Message.Read('Result', TypeInfo(AnsiString), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarValorReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('Valor', TypeInfo(String), Valor, []);
__Message.Write('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
__Message.Write('Valor', TypeInfo(AnsiString), Valor, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Finalize;
@ -2211,14 +2207,14 @@ begin
end
end;
function TsrvGestorDocumentos_Proxy.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function TsrvGestorDocumentos_Proxy.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DescargarFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -2230,13 +2226,13 @@ begin
end
end;
function TsrvGestorDocumentos_Proxy.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function TsrvGestorDocumentos_Proxy.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'SubirFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
__Message.Write('Fichero', TypeInfo(Binary), Fichero, []);
__Message.Finalize;
@ -2249,13 +2245,13 @@ begin
end
end;
function TsrvGestorDocumentos_Proxy.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function TsrvGestorDocumentos_Proxy.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'EliminarFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

332
Source/Servicios/FactuGES_Invk.pas
View File

@ -8,7 +8,7 @@ unit FactuGES_Invk;
{ unit is regenerated the next time you compile the project. }
{----------------------------------------------------------------------------}
{$I Remobjects.inc}
{$I RemObjects.inc}
interface
@ -23,6 +23,8 @@ type
TsrvContactos_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -33,6 +35,8 @@ type
TsrvLogin_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -42,18 +46,24 @@ type
TsrvInventario_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvHistoricoMovimientos_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvEmpresas_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -62,6 +72,8 @@ type
TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@ -69,30 +81,40 @@ type
TsrvFamilias_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvFormasPago_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvTiposIVA_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvUsuarios_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvAlmacenes_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@ -100,6 +122,8 @@ type
TsrvArticulos_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@ -107,6 +131,8 @@ type
TsrvRecibosCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@ -114,24 +140,32 @@ type
TsrvRecibosProveedor_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvRemesasCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -141,12 +175,16 @@ type
TsrvFacturasProveedor_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -157,6 +195,8 @@ type
TsrvPedidosProveedor_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -166,6 +206,8 @@ type
TsrvAlbaranesCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -176,6 +218,8 @@ type
TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -185,6 +229,8 @@ type
TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -193,18 +239,24 @@ type
TsrvUnidadesMedida_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvFabricantes_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvObras_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@ -212,6 +264,8 @@ type
TsrvProvinciasPoblaciones_Invoker = class(TROInvoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -220,6 +274,8 @@ type
TsrvGestorDocumentos_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -231,6 +287,8 @@ type
TsrvGestorInformes_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@ -253,6 +311,12 @@ uses
{ TsrvContactos_Invoker }
constructor TsrvContactos_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvContactos_Invoker.Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary; }
var
@ -314,15 +378,15 @@ begin
end;
procedure TsrvContactos_Invoker.Invoke_DarListaDescripcionesProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaDescripcionesProveedores: String; }
{ function DarListaDescripcionesProveedores: AnsiString; }
var
lResult: String;
lResult: AnsiString;
begin
try
lResult := (__Instance as IsrvContactos).DarListaDescripcionesProveedores;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaDescripcionesProveedoresResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
@ -331,15 +395,15 @@ begin
end;
procedure TsrvContactos_Invoker.Invoke_DarListaContratosEmpleados(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaContratosEmpleados: String; }
{ function DarListaContratosEmpleados: AnsiString; }
var
lResult: String;
lResult: AnsiString;
begin
try
lResult := (__Instance as IsrvContactos).DarListaContratosEmpleados;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaContratosEmpleadosResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
@ -349,19 +413,25 @@ end;
{ TsrvLogin_Invoker }
constructor TsrvLogin_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvLogin_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean; }
{ function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean; }
var
User: String;
Password: String;
User: AnsiString;
Password: AnsiString;
LoginInfo: FactuGES_Intf.TRdxLoginInfo;
lResult: Boolean;
__lObjectDisposer: TROObjectDisposer;
begin
LoginInfo := nil;
try
__Message.Read('User', TypeInfo(String), User, []);
__Message.Read('Password', TypeInfo(String), Password, []);
__Message.Read('User', TypeInfo(AnsiString), User, []);
__Message.Read('Password', TypeInfo(AnsiString), Password, []);
lResult := (__Instance as IsrvLogin).Login(User, Password, LoginInfo);
@ -413,8 +483,30 @@ begin
end;
end;
{ TsrvInventario_Invoker }
constructor TsrvInventario_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvHistoricoMovimientos_Invoker }
constructor TsrvHistoricoMovimientos_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvEmpresas_Invoker }
constructor TsrvEmpresas_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvEmpresas_Invoker.Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaFormasPago: Binary; }
var
@ -467,21 +559,27 @@ end;
{ TsrvConfiguracion_Invoker }
constructor TsrvConfiguracion_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function darValor(const CODIGO: String; const ValorPorDefecto: String): String; }
{ function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString; }
var
CODIGO: String;
ValorPorDefecto: String;
lResult: String;
CODIGO: AnsiString;
ValorPorDefecto: AnsiString;
lResult: AnsiString;
begin
try
__Message.Read('CODIGO', TypeInfo(String), CODIGO, []);
__Message.Read('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
__Message.Read('CODIGO', TypeInfo(AnsiString), CODIGO, []);
__Message.Read('ValorPorDefecto', TypeInfo(AnsiString), ValorPorDefecto, []);
lResult := (__Instance as IsrvConfiguracion).darValor(CODIGO, ValorPorDefecto);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvConfiguracion', 'darValorResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
@ -489,8 +587,46 @@ begin
end;
end;
{ TsrvFamilias_Invoker }
constructor TsrvFamilias_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvFormasPago_Invoker }
constructor TsrvFormasPago_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvTiposIVA_Invoker }
constructor TsrvTiposIVA_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvUsuarios_Invoker }
constructor TsrvUsuarios_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvAlmacenes_Invoker }
constructor TsrvAlmacenes_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvAlmacenes_Invoker.Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaAlmacenes(const IDEmpresa: Integer): Binary; }
var
@ -521,6 +657,12 @@ end;
{ TsrvArticulos_Invoker }
constructor TsrvArticulos_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvArticulos_Invoker.Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary; }
var
@ -551,6 +693,12 @@ end;
{ TsrvRecibosCliente_Invoker }
constructor TsrvRecibosCliente_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvRecibosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
@ -581,8 +729,38 @@ begin
end;
end;
{ TsrvRecibosProveedor_Invoker }
constructor TsrvRecibosProveedor_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvRemesasCliente_Invoker }
constructor TsrvRemesasCliente_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvRemesasProveedor_Invoker }
constructor TsrvRemesasProveedor_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvFacturasCliente_Invoker }
constructor TsrvFacturasCliente_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Boolean): Binary; }
var
@ -677,8 +855,22 @@ begin
end;
end;
{ TsrvFacturasProveedor_Invoker }
constructor TsrvFacturasProveedor_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvPresupuestosCliente_Invoker }
constructor TsrvPresupuestosCliente_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
@ -797,6 +989,12 @@ end;
{ TsrvPedidosProveedor_Invoker }
constructor TsrvPedidosProveedor_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvPedidosProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; }
var
@ -899,6 +1097,12 @@ end;
{ TsrvAlbaranesCliente_Invoker }
constructor TsrvAlbaranesCliente_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
@ -1019,6 +1223,12 @@ end;
{ TsrvAlbaranesProveedor_Invoker }
constructor TsrvAlbaranesProveedor_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
@ -1109,21 +1319,27 @@ end;
{ TsrvReferencias_Invoker }
constructor TsrvReferencias_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; }
{ function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString; }
var
NombreReferencia: String;
NombreReferencia: AnsiString;
EmpresaID: Integer;
lResult: String;
lResult: AnsiString;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'DarNuevaReferenciaResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
@ -1132,16 +1348,16 @@ begin
end;
procedure TsrvReferencias_Invoker.Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; }
{ function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean; }
var
NombreReferencia: String;
Valor: String;
NombreReferencia: AnsiString;
Valor: AnsiString;
EmpresaID: Integer;
lResult: Boolean;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('Valor', TypeInfo(String), Valor, []);
__Message.Read('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
__Message.Read('Valor', TypeInfo(AnsiString), Valor, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID);
@ -1155,8 +1371,30 @@ begin
end;
end;
{ TsrvUnidadesMedida_Invoker }
constructor TsrvUnidadesMedida_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvFabricantes_Invoker }
constructor TsrvFabricantes_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvObras_Invoker }
constructor TsrvObras_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvObras_Invoker.Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaObras(const IDEmpresa: Integer): Binary; }
var
@ -1187,6 +1425,12 @@ end;
{ TsrvProvinciasPoblaciones_Invoker }
constructor TsrvProvinciasPoblaciones_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaProvincias: Binary; }
var
@ -1242,6 +1486,12 @@ end;
{ TsrvGestorDocumentos_Invoker }
constructor TsrvGestorDocumentos_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray; }
var
@ -1273,11 +1523,11 @@ begin
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary; }
{ function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
NombreFichero: AnsiString;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1285,7 +1535,7 @@ begin
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
lResult := (__Instance as IsrvGestorDocumentos).DescargarFichero(Almacen, ID, NombreFichero);
@ -1305,11 +1555,11 @@ begin
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_SubirFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean; }
{ function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
NombreFichero: AnsiString;
Fichero: Binary;
lResult: Boolean;
__lObjectDisposer: TROObjectDisposer;
@ -1318,7 +1568,7 @@ begin
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
__Message.Read('Fichero', TypeInfo(Binary), Fichero, []);
lResult := (__Instance as IsrvGestorDocumentos).SubirFichero(Almacen, ID, NombreFichero, Fichero);
@ -1339,17 +1589,17 @@ begin
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_EliminarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean; }
{ function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
NombreFichero: AnsiString;
lResult: Boolean;
begin
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
lResult := (__Instance as IsrvGestorDocumentos).EliminarFichero(Almacen, ID, NombreFichero);
@ -1386,6 +1636,12 @@ end;
{ TsrvGestorInformes_Invoker }
constructor TsrvGestorInformes_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

1
Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvConfiguracion: TsrvConfiguracion
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schConfiguracion
ServiceDataStreamer = Bin2DataStreamer

2
Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
View File

@ -46,7 +46,7 @@ end;
{ srvConfiguracion }
procedure TsrvConfiguracion.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
//SessionManager := dmServer.SessionManager;
end;
function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;

6
Source/Servidor/Configuracion/uConexionBD.pas
View File

@ -4,9 +4,9 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, cxShellBrowserDialog, cxControls,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, IBServices,
DB, IBDatabase, uFrameConfiguracion;
Dialogs, StdCtrls, ExtCtrls, IBServices,
DB, IBDatabase, uFrameConfiguracion, cxControls, cxContainer, cxEdit,
cxTextEdit, cxMaskEdit, cxButtonEdit;
type
TfrConexionBD = class(TFrameConfiguracion)

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -7,7 +7,7 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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_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 Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">7</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.6.7.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.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 27 de febrero de 2009 11:47</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">6</VersionInfo><VersionInfo Name="Release">9</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.6.9.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.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de marzo de 2009 17:16</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.6.7.0\0"
VALUE "ProductVersion", "1.6.7.0\0"
VALUE "CompileDate", "martes, 03 de marzo de 2009 14:06\0"
VALUE "CompileDate", "martes, 03 de marzo de 2009 17:16\0"
END
END
BLOCK "VarFileInfo"