Repaso de remesa
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@68 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
36f4811c78
commit
82de6c22c5
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -1,175 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject>
|
|
||||||
<PersonalityInfo>
|
|
||||||
<Option>
|
|
||||||
<Option Name="Personality">Delphi.Personality</Option>
|
|
||||||
<Option Name="ProjectType"></Option>
|
|
||||||
<Option Name="Version">1.0</Option>
|
|
||||||
<Option Name="GUID">{A790C41F-C58C-4960-9333-616896FC3B42}</Option>
|
|
||||||
</Option>
|
|
||||||
</PersonalityInfo>
|
|
||||||
<Delphi.Personality>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">BancaElectronica_data.dpk</Source>
|
|
||||||
</Source>
|
|
||||||
<FileVersion>
|
|
||||||
<FileVersion Name="Version">7.0</FileVersion>
|
|
||||||
</FileVersion>
|
|
||||||
<Compiler>
|
|
||||||
<Compiler Name="A">8</Compiler>
|
|
||||||
<Compiler Name="B">0</Compiler>
|
|
||||||
<Compiler Name="C">1</Compiler>
|
|
||||||
<Compiler Name="D">1</Compiler>
|
|
||||||
<Compiler Name="E">0</Compiler>
|
|
||||||
<Compiler Name="F">0</Compiler>
|
|
||||||
<Compiler Name="G">1</Compiler>
|
|
||||||
<Compiler Name="H">1</Compiler>
|
|
||||||
<Compiler Name="I">1</Compiler>
|
|
||||||
<Compiler Name="J">0</Compiler>
|
|
||||||
<Compiler Name="K">0</Compiler>
|
|
||||||
<Compiler Name="L">1</Compiler>
|
|
||||||
<Compiler Name="M">0</Compiler>
|
|
||||||
<Compiler Name="N">1</Compiler>
|
|
||||||
<Compiler Name="O">1</Compiler>
|
|
||||||
<Compiler Name="P">1</Compiler>
|
|
||||||
<Compiler Name="Q">0</Compiler>
|
|
||||||
<Compiler Name="R">0</Compiler>
|
|
||||||
<Compiler Name="S">0</Compiler>
|
|
||||||
<Compiler Name="T">0</Compiler>
|
|
||||||
<Compiler Name="U">0</Compiler>
|
|
||||||
<Compiler Name="V">1</Compiler>
|
|
||||||
<Compiler Name="W">0</Compiler>
|
|
||||||
<Compiler Name="X">1</Compiler>
|
|
||||||
<Compiler Name="Y">1</Compiler>
|
|
||||||
<Compiler Name="Z">1</Compiler>
|
|
||||||
<Compiler Name="ShowHints">True</Compiler>
|
|
||||||
<Compiler Name="ShowWarnings">True</Compiler>
|
|
||||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
|
||||||
<Compiler Name="NamespacePrefix"></Compiler>
|
|
||||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
|
||||||
<Compiler Name="DefaultNamespace"></Compiler>
|
|
||||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
|
||||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
|
||||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
|
||||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
|
||||||
<Compiler Name="UnitLibrary">True</Compiler>
|
|
||||||
<Compiler Name="UnitPlatform">True</Compiler>
|
|
||||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
|
||||||
<Compiler Name="UnitExperimental">True</Compiler>
|
|
||||||
<Compiler Name="HResultCompat">True</Compiler>
|
|
||||||
<Compiler Name="HidingMember">True</Compiler>
|
|
||||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
|
||||||
<Compiler Name="Garbage">True</Compiler>
|
|
||||||
<Compiler Name="BoundsError">True</Compiler>
|
|
||||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
|
||||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
|
||||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
|
||||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
|
||||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
|
||||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
|
||||||
<Compiler Name="ForVariable">True</Compiler>
|
|
||||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
|
||||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
|
||||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
|
||||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
|
||||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
|
||||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
|
||||||
<Compiler Name="FileOpen">True</Compiler>
|
|
||||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
|
||||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
|
||||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
|
||||||
<Compiler Name="InvalidDirective">True</Compiler>
|
|
||||||
<Compiler Name="PackageNoLink">True</Compiler>
|
|
||||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
|
||||||
<Compiler Name="ImplicitImport">True</Compiler>
|
|
||||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
|
||||||
<Compiler Name="NoRetVal">True</Compiler>
|
|
||||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
|
||||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
|
||||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
|
||||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
|
||||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
|
||||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
|
||||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
|
||||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
|
||||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
|
||||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
|
||||||
<Compiler Name="UnsafeType">False</Compiler>
|
|
||||||
<Compiler Name="UnsafeCode">False</Compiler>
|
|
||||||
<Compiler Name="UnsafeCast">False</Compiler>
|
|
||||||
<Compiler Name="OptionTruncated">True</Compiler>
|
|
||||||
<Compiler Name="WideCharReduced">True</Compiler>
|
|
||||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
|
||||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
|
||||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
|
||||||
<Compiler Name="MessageDirective">True</Compiler>
|
|
||||||
<Compiler Name="CodePage"></Compiler>
|
|
||||||
</Compiler>
|
|
||||||
<Linker>
|
|
||||||
<Linker Name="MapFile">3</Linker>
|
|
||||||
<Linker Name="OutputObjs">0</Linker>
|
|
||||||
<Linker Name="GenerateHpps">False</Linker>
|
|
||||||
<Linker Name="ConsoleApp">1</Linker>
|
|
||||||
<Linker Name="DebugInfo">False</Linker>
|
|
||||||
<Linker Name="RemoteSymbols">False</Linker>
|
|
||||||
<Linker Name="GenerateDRC">False</Linker>
|
|
||||||
<Linker Name="MinStackSize">16384</Linker>
|
|
||||||
<Linker Name="MaxStackSize">1048576</Linker>
|
|
||||||
<Linker Name="ImageBase">4194304</Linker>
|
|
||||||
<Linker Name="ExeDescription"></Linker>
|
|
||||||
</Linker>
|
|
||||||
<Directories>
|
|
||||||
<Directories Name="OutputDir"></Directories>
|
|
||||||
<Directories Name="UnitOutputDir">.\</Directories>
|
|
||||||
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
|
|
||||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
|
||||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
|
||||||
<Directories Name="Packages"></Directories>
|
|
||||||
<Directories Name="Conditionals"></Directories>
|
|
||||||
<Directories Name="DebugSourceDirs"></Directories>
|
|
||||||
<Directories Name="UsePackages">False</Directories>
|
|
||||||
</Directories>
|
|
||||||
<Parameters>
|
|
||||||
<Parameters Name="RunParams"></Parameters>
|
|
||||||
<Parameters Name="HostApplication"></Parameters>
|
|
||||||
<Parameters Name="Launcher"></Parameters>
|
|
||||||
<Parameters Name="UseLauncher">False</Parameters>
|
|
||||||
<Parameters Name="DebugCWD"></Parameters>
|
|
||||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
|
||||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
|
||||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
|
||||||
</Parameters>
|
|
||||||
<Language>
|
|
||||||
<Language Name="ActiveLang"></Language>
|
|
||||||
<Language Name="ProjectLang">$00000000</Language>
|
|
||||||
<Language Name="RootDir"></Language>
|
|
||||||
</Language>
|
|
||||||
<VersionInfo>
|
|
||||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
|
||||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
|
||||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
|
||||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Release">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Build">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Debug">False</VersionInfo>
|
|
||||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Special">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Private">False</VersionInfo>
|
|
||||||
<VersionInfo Name="DLL">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
|
||||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
|
||||||
</VersionInfo>
|
|
||||||
<VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
</Delphi.Personality>
|
|
||||||
</BorlandProject>
|
|
||||||
Binary file not shown.
@ -1,116 +0,0 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<PropertyGroup>
|
|
||||||
<ProjectGuid>{a790c41f-c58c-4960-9333-616896fc3b42}</ProjectGuid>
|
|
||||||
<MainSource>BancaElectronica_data.dpk</MainSource>
|
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
|
||||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
|
||||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\BancaElectronica_data.bpl</DCC_DependencyCheckOutputName>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
|
||||||
<Version>7.0</Version>
|
|
||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
|
||||||
<Version>7.0</Version>
|
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
|
||||||
<DCC_Define>DEBUG</DCC_Define>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ProjectExtensions>
|
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
|
||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
|
||||||
<BorlandProject>
|
|
||||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
|
||||||
<Parameters Name="UseLauncher">False</Parameters>
|
|
||||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
|
||||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
|
||||||
</Parameters>
|
|
||||||
<Package_Options>
|
|
||||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
|
||||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
|
||||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
|
||||||
</Package_Options>
|
|
||||||
<VersionInfo>
|
|
||||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
|
||||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
|
||||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
|
||||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Release">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Build">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Debug">False</VersionInfo>
|
|
||||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Special">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Private">False</VersionInfo>
|
|
||||||
<VersionInfo Name="DLL">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
|
||||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
|
||||||
</VersionInfo>
|
|
||||||
<VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">BancaElectronica_data.dpk</Source>
|
|
||||||
</Source>
|
|
||||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
|
||||||
</ProjectExtensions>
|
|
||||||
<ItemGroup />
|
|
||||||
<ItemGroup>
|
|
||||||
<DelphiCompile Include="BancaElectronica_data.dpk">
|
|
||||||
<MainSource>MainSource</MainSource>
|
|
||||||
</DelphiCompile>
|
|
||||||
<DCCReference Include="adortl.dcp" />
|
|
||||||
<DCCReference Include="BancaElectronica_model.dcp" />
|
|
||||||
<DCCReference Include="Base.dcp" />
|
|
||||||
<DCCReference Include="cxDataD10.dcp" />
|
|
||||||
<DCCReference Include="cxEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="cxExtEditorsD10.dcp" />
|
|
||||||
<DCCReference Include="cxGridD10.dcp" />
|
|
||||||
<DCCReference Include="cxLibraryD10.dcp" />
|
|
||||||
<DCCReference Include="cxPageControlD10.dcp" />
|
|
||||||
<DCCReference Include="DataAbstract_D10.dcp" />
|
|
||||||
<DCCReference Include="dbrtl.dcp" />
|
|
||||||
<DCCReference Include="dsnap.dcp" />
|
|
||||||
<DCCReference Include="dxThemeD10.dcp" />
|
|
||||||
<DCCReference Include="rtl.dcp" />
|
|
||||||
<DCCReference Include="uDataModuleBancaElectronica.pas">
|
|
||||||
<Form>DataModuleBancaElectronica</Form>
|
|
||||||
<DesignClass>TDAClientDataModule</DesignClass>
|
|
||||||
</DCCReference>
|
|
||||||
<DCCReference Include="Usuarios.dcp" />
|
|
||||||
<DCCReference Include="vcl.dcp" />
|
|
||||||
<DCCReference Include="vcldb.dcp" />
|
|
||||||
<DCCReference Include="vcljpg.dcp" />
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
|
||||||
</Project>
|
|
||||||
Binary file not shown.
@ -1,14 +0,0 @@
|
|||||||
inherited DataModuleBancaElectronica: TDataModuleBancaElectronica
|
|
||||||
OnCreate = DAClientDataModuleCreate
|
|
||||||
Height = 181
|
|
||||||
Width = 518
|
|
||||||
object RORemoteService: TRORemoteService
|
|
||||||
ServiceName = 'srvBancaElectronica'
|
|
||||||
Left = 48
|
|
||||||
Top = 24
|
|
||||||
end
|
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
|
||||||
Left = 48
|
|
||||||
Top = 84
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,107 +0,0 @@
|
|||||||
{
|
|
||||||
===============================================================================
|
|
||||||
Copyright (©) 2007. Rodax Software.
|
|
||||||
===============================================================================
|
|
||||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
||||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
||||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
||||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
||||||
bajo el que se suministra.
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
Web: www.rodax-software.com
|
|
||||||
===============================================================================
|
|
||||||
Fecha primera versión:
|
|
||||||
Versión actual: 1.0.0
|
|
||||||
Fecha versión actual:
|
|
||||||
===============================================================================
|
|
||||||
Modificaciones:
|
|
||||||
|
|
||||||
Fecha Comentarios
|
|
||||||
---------------------------------------------------------------------------
|
|
||||||
===============================================================================
|
|
||||||
}
|
|
||||||
|
|
||||||
unit uDataModuleBancaElectronica;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
|
||||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
|
||||||
uRORemoteService, uROClient, uROBinMessage,
|
|
||||||
uDADesigntimeCall,
|
|
||||||
uDataModuleBase,
|
|
||||||
uIDataModuleBancaElectronica, uBizBancaElectronica, uDADataStreamer,
|
|
||||||
uDABin2DataStreamer;
|
|
||||||
|
|
||||||
type
|
|
||||||
TDataModuleBancaElectronica = class(TDataModuleBase, IDataModuleBancaElectronica)
|
|
||||||
RORemoteService: TRORemoteService;
|
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
||||||
public
|
|
||||||
function GetItems: IBizIBizBanca;
|
|
||||||
function GetItem(const ID : Integer) : IBizIBizBanca;
|
|
||||||
function NewItem : IBizIBizBanca;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.DFM}
|
|
||||||
|
|
||||||
uses
|
|
||||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
|
||||||
schBancaElectronicaClient_Intf;
|
|
||||||
|
|
||||||
{ TDataModuleBancaElectronica }
|
|
||||||
|
|
||||||
procedure TDataModuleBancaElectronica.DAClientDataModuleCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
RORemoteService.Channel := dmConexion.Channel;
|
|
||||||
RORemoteService.Message := dmConexion.Message;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TDataModuleBancaElectronica.GetItems: IBizIBizBanca;
|
|
||||||
var
|
|
||||||
AIBizBanca : TDAMemDataTable;
|
|
||||||
begin
|
|
||||||
ShowHourglassCursor;
|
|
||||||
try
|
|
||||||
AIBizBanca := CloneDataTable(tbl_BancaElectronica);
|
|
||||||
AIBizBanca.BusinessRulesID := BIZ_CLIENT_IBIZBANCA;
|
|
||||||
Result := (AIBizBanca as IBizIBizBanca);
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TDataModuleBancaElectronica.NewItem: IBizIBizBanca;
|
|
||||||
begin
|
|
||||||
Result := GetItem(ID_NULO)
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TDataModuleBancaElectronica.GetItem(const ID: Integer): IBizIBizBanca;
|
|
||||||
var
|
|
||||||
Condicion: TDAWhereExpression;
|
|
||||||
begin
|
|
||||||
ShowHourglassCursor;
|
|
||||||
try
|
|
||||||
Result := Self.GetItems;
|
|
||||||
|
|
||||||
with Result.DataTable.DynamicWhere do
|
|
||||||
begin
|
|
||||||
// (ID = :ID)
|
|
||||||
Condicion := NewBinaryExpression(NewField('', fld_BancaElectronicaID), NewConstant(ID, datInteger), dboEqual);
|
|
||||||
|
|
||||||
if IsEmpty then
|
|
||||||
Expression := Condicion
|
|
||||||
else
|
|
||||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
|
||||||
end;
|
|
||||||
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,175 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject>
|
|
||||||
<PersonalityInfo>
|
|
||||||
<Option>
|
|
||||||
<Option Name="Personality">Delphi.Personality</Option>
|
|
||||||
<Option Name="ProjectType"></Option>
|
|
||||||
<Option Name="Version">1.0</Option>
|
|
||||||
<Option Name="GUID">{36741CE3-2830-49DC-8B68-8B189BF8229F}</Option>
|
|
||||||
</Option>
|
|
||||||
</PersonalityInfo>
|
|
||||||
<Delphi.Personality>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">BancaElectronica_model.dpk</Source>
|
|
||||||
</Source>
|
|
||||||
<FileVersion>
|
|
||||||
<FileVersion Name="Version">7.0</FileVersion>
|
|
||||||
</FileVersion>
|
|
||||||
<Compiler>
|
|
||||||
<Compiler Name="A">8</Compiler>
|
|
||||||
<Compiler Name="B">0</Compiler>
|
|
||||||
<Compiler Name="C">1</Compiler>
|
|
||||||
<Compiler Name="D">1</Compiler>
|
|
||||||
<Compiler Name="E">0</Compiler>
|
|
||||||
<Compiler Name="F">0</Compiler>
|
|
||||||
<Compiler Name="G">1</Compiler>
|
|
||||||
<Compiler Name="H">1</Compiler>
|
|
||||||
<Compiler Name="I">1</Compiler>
|
|
||||||
<Compiler Name="J">0</Compiler>
|
|
||||||
<Compiler Name="K">0</Compiler>
|
|
||||||
<Compiler Name="L">1</Compiler>
|
|
||||||
<Compiler Name="M">0</Compiler>
|
|
||||||
<Compiler Name="N">1</Compiler>
|
|
||||||
<Compiler Name="O">1</Compiler>
|
|
||||||
<Compiler Name="P">1</Compiler>
|
|
||||||
<Compiler Name="Q">0</Compiler>
|
|
||||||
<Compiler Name="R">0</Compiler>
|
|
||||||
<Compiler Name="S">0</Compiler>
|
|
||||||
<Compiler Name="T">0</Compiler>
|
|
||||||
<Compiler Name="U">0</Compiler>
|
|
||||||
<Compiler Name="V">1</Compiler>
|
|
||||||
<Compiler Name="W">0</Compiler>
|
|
||||||
<Compiler Name="X">1</Compiler>
|
|
||||||
<Compiler Name="Y">1</Compiler>
|
|
||||||
<Compiler Name="Z">1</Compiler>
|
|
||||||
<Compiler Name="ShowHints">True</Compiler>
|
|
||||||
<Compiler Name="ShowWarnings">True</Compiler>
|
|
||||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
|
||||||
<Compiler Name="NamespacePrefix"></Compiler>
|
|
||||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
|
||||||
<Compiler Name="DefaultNamespace"></Compiler>
|
|
||||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
|
||||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
|
||||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
|
||||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
|
||||||
<Compiler Name="UnitLibrary">True</Compiler>
|
|
||||||
<Compiler Name="UnitPlatform">True</Compiler>
|
|
||||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
|
||||||
<Compiler Name="UnitExperimental">True</Compiler>
|
|
||||||
<Compiler Name="HResultCompat">True</Compiler>
|
|
||||||
<Compiler Name="HidingMember">True</Compiler>
|
|
||||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
|
||||||
<Compiler Name="Garbage">True</Compiler>
|
|
||||||
<Compiler Name="BoundsError">True</Compiler>
|
|
||||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
|
||||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
|
||||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
|
||||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
|
||||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
|
||||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
|
||||||
<Compiler Name="ForVariable">True</Compiler>
|
|
||||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
|
||||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
|
||||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
|
||||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
|
||||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
|
||||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
|
||||||
<Compiler Name="FileOpen">True</Compiler>
|
|
||||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
|
||||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
|
||||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
|
||||||
<Compiler Name="InvalidDirective">True</Compiler>
|
|
||||||
<Compiler Name="PackageNoLink">True</Compiler>
|
|
||||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
|
||||||
<Compiler Name="ImplicitImport">True</Compiler>
|
|
||||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
|
||||||
<Compiler Name="NoRetVal">True</Compiler>
|
|
||||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
|
||||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
|
||||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
|
||||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
|
||||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
|
||||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
|
||||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
|
||||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
|
||||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
|
||||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
|
||||||
<Compiler Name="UnsafeType">False</Compiler>
|
|
||||||
<Compiler Name="UnsafeCode">False</Compiler>
|
|
||||||
<Compiler Name="UnsafeCast">False</Compiler>
|
|
||||||
<Compiler Name="OptionTruncated">True</Compiler>
|
|
||||||
<Compiler Name="WideCharReduced">True</Compiler>
|
|
||||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
|
||||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
|
||||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
|
||||||
<Compiler Name="MessageDirective">True</Compiler>
|
|
||||||
<Compiler Name="CodePage"></Compiler>
|
|
||||||
</Compiler>
|
|
||||||
<Linker>
|
|
||||||
<Linker Name="MapFile">0</Linker>
|
|
||||||
<Linker Name="OutputObjs">0</Linker>
|
|
||||||
<Linker Name="GenerateHpps">False</Linker>
|
|
||||||
<Linker Name="ConsoleApp">1</Linker>
|
|
||||||
<Linker Name="DebugInfo">False</Linker>
|
|
||||||
<Linker Name="RemoteSymbols">False</Linker>
|
|
||||||
<Linker Name="GenerateDRC">False</Linker>
|
|
||||||
<Linker Name="MinStackSize">16384</Linker>
|
|
||||||
<Linker Name="MaxStackSize">1048576</Linker>
|
|
||||||
<Linker Name="ImageBase">4194304</Linker>
|
|
||||||
<Linker Name="ExeDescription"></Linker>
|
|
||||||
</Linker>
|
|
||||||
<Directories>
|
|
||||||
<Directories Name="OutputDir"></Directories>
|
|
||||||
<Directories Name="UnitOutputDir">.\</Directories>
|
|
||||||
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
|
|
||||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
|
||||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
|
||||||
<Directories Name="Packages"></Directories>
|
|
||||||
<Directories Name="Conditionals"></Directories>
|
|
||||||
<Directories Name="DebugSourceDirs"></Directories>
|
|
||||||
<Directories Name="UsePackages">False</Directories>
|
|
||||||
</Directories>
|
|
||||||
<Parameters>
|
|
||||||
<Parameters Name="RunParams"></Parameters>
|
|
||||||
<Parameters Name="HostApplication"></Parameters>
|
|
||||||
<Parameters Name="Launcher"></Parameters>
|
|
||||||
<Parameters Name="UseLauncher">False</Parameters>
|
|
||||||
<Parameters Name="DebugCWD"></Parameters>
|
|
||||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
|
||||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
|
||||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
|
||||||
</Parameters>
|
|
||||||
<Language>
|
|
||||||
<Language Name="ActiveLang"></Language>
|
|
||||||
<Language Name="ProjectLang">$00000000</Language>
|
|
||||||
<Language Name="RootDir"></Language>
|
|
||||||
</Language>
|
|
||||||
<VersionInfo>
|
|
||||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
|
||||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
|
||||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
|
||||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Release">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Build">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Debug">False</VersionInfo>
|
|
||||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Special">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Private">False</VersionInfo>
|
|
||||||
<VersionInfo Name="DLL">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
|
||||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
|
||||||
</VersionInfo>
|
|
||||||
<VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
</Delphi.Personality>
|
|
||||||
</BorlandProject>
|
|
||||||
@ -1,36 +0,0 @@
|
|||||||
package BancaElectronica_model;
|
|
||||||
|
|
||||||
{$R *.res}
|
|
||||||
{$ALIGN 8}
|
|
||||||
{$ASSERTIONS ON}
|
|
||||||
{$BOOLEVAL OFF}
|
|
||||||
{$DEBUGINFO ON}
|
|
||||||
{$EXTENDEDSYNTAX ON}
|
|
||||||
{$IMPORTEDDATA ON}
|
|
||||||
{$IOCHECKS ON}
|
|
||||||
{$LOCALSYMBOLS ON}
|
|
||||||
{$LONGSTRINGS ON}
|
|
||||||
{$OPENSTRINGS ON}
|
|
||||||
{$OPTIMIZATION ON}
|
|
||||||
{$OVERFLOWCHECKS OFF}
|
|
||||||
{$RANGECHECKS OFF}
|
|
||||||
{$REFERENCEINFO ON}
|
|
||||||
{$SAFEDIVIDE OFF}
|
|
||||||
{$STACKFRAMES OFF}
|
|
||||||
{$TYPEDADDRESS OFF}
|
|
||||||
{$VARSTRINGCHECKS ON}
|
|
||||||
{$WRITEABLECONST OFF}
|
|
||||||
{$MINENUMSIZE 1}
|
|
||||||
{$IMAGEBASE $400000}
|
|
||||||
{$IMPLICITBUILD OFF}
|
|
||||||
|
|
||||||
requires
|
|
||||||
Base;
|
|
||||||
|
|
||||||
contains
|
|
||||||
uIDataModuleBancaElectronica in 'Data\uIDataModuleBancaElectronica.pas',
|
|
||||||
schBancaElectronicaClient_Intf in 'schBancaElectronicaClient_Intf.pas',
|
|
||||||
schBancaElectronicaServer_Intf in 'schBancaElectronicaServer_Intf.pas',
|
|
||||||
uBizBancaElectronica in 'uBizBancaElectronica.pas';
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,539 +0,0 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<PropertyGroup>
|
|
||||||
<ProjectGuid>{36741ce3-2830-49dc-8b68-8b189bf8229f}</ProjectGuid>
|
|
||||||
<MainSource>BancaElectronica_model.dpk</MainSource>
|
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
|
||||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
|
||||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\BancaElectronica_model.bpl</DCC_DependencyCheckOutputName>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
|
||||||
<Version>7.0</Version>
|
|
||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
|
||||||
<Version>7.0</Version>
|
|
||||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
|
||||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
|
||||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
|
||||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
|
||||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
|
||||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
|
||||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
|
||||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
|
||||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ProjectExtensions>
|
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
|
||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
|
||||||
<BorlandProject>
|
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">BancaElectronica_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
|
||||||
</ProjectExtensions>
|
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
|
||||||
<ItemGroup>
|
|
||||||
<DelphiCompile Include="BancaElectronica_model.dpk">
|
|
||||||
<MainSource>MainSource</MainSource>
|
|
||||||
</DelphiCompile>
|
|
||||||
<DCCReference Include="..\..\..\Lib\Base.dcp" />
|
|
||||||
<DCCReference Include="Data\uIDataModuleBancaElectronica.pas" />
|
|
||||||
<DCCReference Include="schBancaElectronicaClient_Intf.pas" />
|
|
||||||
<DCCReference Include="schBancaElectronicaServer_Intf.pas" />
|
|
||||||
<DCCReference Include="uBizBancaElectronica.pas" />
|
|
||||||
</ItemGroup>
|
|
||||||
</Project>
|
|
||||||
|
|
||||||
<!-- EurekaLog First Line
|
|
||||||
[Exception Log]
|
|
||||||
EurekaLog Version=6006
|
|
||||||
Activate=0
|
|
||||||
Activate Handle=1
|
|
||||||
Save Log File=1
|
|
||||||
Foreground Tab=0
|
|
||||||
Freeze Activate=0
|
|
||||||
Freeze Timeout=60
|
|
||||||
SMTP From=eurekalog@email.com
|
|
||||||
SMTP Host=
|
|
||||||
SMTP Port=25
|
|
||||||
SMTP UserID=
|
|
||||||
SMTP Password=
|
|
||||||
Append to Log=0
|
|
||||||
TerminateBtn Operation=2
|
|
||||||
Errors Number=32
|
|
||||||
Errors Terminate=3
|
|
||||||
Email Address=
|
|
||||||
Email Object=
|
|
||||||
Email Send Options=0
|
|
||||||
Output Path=
|
|
||||||
Encrypt Password=
|
|
||||||
AutoCloseDialogSecs=0
|
|
||||||
WebSendMode=0
|
|
||||||
SupportULR=
|
|
||||||
HTMLLayout Count=15
|
|
||||||
HTMLLine0="%3Chtml%3E"
|
|
||||||
HTMLLine1=" %3Chead%3E"
|
|
||||||
HTMLLine2=" %3C/head%3E"
|
|
||||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
|
||||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
|
||||||
HTMLLine5=" %3Ctr%3E"
|
|
||||||
HTMLLine6=" %3Ctd nowrap%3E"
|
|
||||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
|
||||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
|
||||||
HTMLLine9=" %3C/font%3E"
|
|
||||||
HTMLLine10=" %3C/td%3E"
|
|
||||||
HTMLLine11=" %3C/tr%3E"
|
|
||||||
HTMLLine12=" %3C/table%3E"
|
|
||||||
HTMLLine13=" %3C/body%3E"
|
|
||||||
HTMLLine14="%3C/html%3E"
|
|
||||||
AutoCrashOperation=2
|
|
||||||
AutoCrashNumber=10
|
|
||||||
AutoCrashMinutes=1
|
|
||||||
WebURL=
|
|
||||||
WebUserID=
|
|
||||||
WebPassword=
|
|
||||||
WebPort=0
|
|
||||||
AttachedFiles=
|
|
||||||
ProxyURL=
|
|
||||||
ProxyUser=
|
|
||||||
ProxyPassword=
|
|
||||||
ProxyPort=8080
|
|
||||||
TrakerUser=
|
|
||||||
TrakerPassword=
|
|
||||||
TrakerAssignTo=
|
|
||||||
TrakerProject=
|
|
||||||
TrakerCategory=
|
|
||||||
TrakerTrialID=
|
|
||||||
ZipPassword=
|
|
||||||
PreBuildEvent=
|
|
||||||
PostSuccessfulBuildEvent=
|
|
||||||
PostFailureBuildEvent=
|
|
||||||
ExceptionDialogType=2
|
|
||||||
Count=0
|
|
||||||
EMail Message Line Count=0
|
|
||||||
loNoDuplicateErrors=0
|
|
||||||
loAppendReproduceText=0
|
|
||||||
loDeleteLogAtVersionChange=0
|
|
||||||
loAddComputerNameInLogFileName=0
|
|
||||||
loSaveModulesAndProcessesSections=1
|
|
||||||
loSaveAssemblerAndCPUSections=1
|
|
||||||
soAppStartDate=1
|
|
||||||
soAppName=1
|
|
||||||
soAppVersionNumber=1
|
|
||||||
soAppParameters=1
|
|
||||||
soAppCompilationDate=1
|
|
||||||
soAppUpTime=1
|
|
||||||
soExcDate=1
|
|
||||||
soExcAddress=1
|
|
||||||
soExcModuleName=1
|
|
||||||
soExcModuleVersion=1
|
|
||||||
soExcType=1
|
|
||||||
soExcMessage=1
|
|
||||||
soExcID=1
|
|
||||||
soExcCount=1
|
|
||||||
soExcStatus=1
|
|
||||||
soExcNote=1
|
|
||||||
soUserID=1
|
|
||||||
soUserName=1
|
|
||||||
soUserEmail=1
|
|
||||||
soUserPrivileges=1
|
|
||||||
soUserCompany=1
|
|
||||||
soActCtlsFormClass=1
|
|
||||||
soActCtlsFormText=1
|
|
||||||
soActCtlsControlClass=1
|
|
||||||
soActCtlsControlText=1
|
|
||||||
soCmpName=1
|
|
||||||
soCmpTotalMemory=1
|
|
||||||
soCmpFreeMemory=1
|
|
||||||
soCmpTotalDisk=1
|
|
||||||
soCmpFreeDisk=1
|
|
||||||
soCmpSysUpTime=1
|
|
||||||
soCmpProcessor=1
|
|
||||||
soCmpDisplayMode=1
|
|
||||||
soCmpDisplayDPI=1
|
|
||||||
soCmpVideoCard=1
|
|
||||||
soCmpPrinter=1
|
|
||||||
soOSType=1
|
|
||||||
soOSBuildN=1
|
|
||||||
soOSUpdate=1
|
|
||||||
soOSLanguage=1
|
|
||||||
soOSCharset=1
|
|
||||||
soNetIP=1
|
|
||||||
soNetSubmask=1
|
|
||||||
soNetGateway=1
|
|
||||||
soNetDNS1=1
|
|
||||||
soNetDNS2=1
|
|
||||||
soNetDHCP=1
|
|
||||||
soCustomData=1
|
|
||||||
sndShowSendDialog=1
|
|
||||||
sndShowSuccessFailureMsg=0
|
|
||||||
sndSendEntireLog=0
|
|
||||||
sndSendXMLLogCopy=0
|
|
||||||
sndSendScreenshot=1
|
|
||||||
sndUseOnlyActiveWindow=0
|
|
||||||
sndSendLastHTMLPage=1
|
|
||||||
sndSendInSeparatedThread=0
|
|
||||||
sndAddDateInFileName=0
|
|
||||||
sndAddComputerNameInFileName=0
|
|
||||||
edoSendErrorReportChecked=1
|
|
||||||
edoAttachScreenshotChecked=1
|
|
||||||
edoShowCopyToClipOption=1
|
|
||||||
edoShowDetailsButton=1
|
|
||||||
edoShowInDetailedMode=0
|
|
||||||
edoShowInTopMostMode=0
|
|
||||||
edoUseEurekaLogLookAndFeel=0
|
|
||||||
edoShowSendErrorReportOption=1
|
|
||||||
edoShowAttachScreenshotOption=1
|
|
||||||
edoShowCustomButton=0
|
|
||||||
csoShowDLLs=1
|
|
||||||
csoShowBPLs=1
|
|
||||||
csoShowBorlandThreads=1
|
|
||||||
csoShowWindowsThreads=1
|
|
||||||
csoDoNotStoreProcNames=0
|
|
||||||
boPauseBorlandThreads=0
|
|
||||||
boDoNotPauseMainThread=0
|
|
||||||
boPauseWindowsThreads=0
|
|
||||||
boUseMainModuleOptions=1
|
|
||||||
boCopyLogInCaseOfError=1
|
|
||||||
boSaveCompressedCopyInCaseOfError=0
|
|
||||||
boHandleSafeCallExceptions=1
|
|
||||||
boCallRTLExceptionEvent=0
|
|
||||||
boCatchHandledExceptions=0
|
|
||||||
loCatchLeaks=0
|
|
||||||
loGroupsSonLeaks=1
|
|
||||||
loHideBorlandLeaks=1
|
|
||||||
loFreeAllLeaks=1
|
|
||||||
loCatchLeaksExceptions=1
|
|
||||||
cfoReduceFileSize=1
|
|
||||||
cfoCheckFileCorruption=0
|
|
||||||
Count mtInformationMsgCaption=1
|
|
||||||
mtInformationMsgCaption0="Information."
|
|
||||||
Count mtQuestionMsgCaption=1
|
|
||||||
mtQuestionMsgCaption0="Question."
|
|
||||||
Count mtErrorMsgCaption=1
|
|
||||||
mtErrorMsgCaption0="Error."
|
|
||||||
Count mtDialog_Caption=1
|
|
||||||
mtDialog_Caption0="Error occurred"
|
|
||||||
Count mtDialog_ErrorMsgCaption=2
|
|
||||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
|
||||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
|
||||||
Count mtDialog_GeneralCaption=1
|
|
||||||
mtDialog_GeneralCaption0="General"
|
|
||||||
Count mtDialog_GeneralHeader=1
|
|
||||||
mtDialog_GeneralHeader0="General Information"
|
|
||||||
Count mtDialog_CallStackCaption=1
|
|
||||||
mtDialog_CallStackCaption0="Call Stack"
|
|
||||||
Count mtDialog_CallStackHeader=1
|
|
||||||
mtDialog_CallStackHeader0="Call Stack Information"
|
|
||||||
Count mtDialog_ModulesCaption=1
|
|
||||||
mtDialog_ModulesCaption0="Modules"
|
|
||||||
Count mtDialog_ModulesHeader=1
|
|
||||||
mtDialog_ModulesHeader0="Modules Information"
|
|
||||||
Count mtDialog_ProcessesCaption=1
|
|
||||||
mtDialog_ProcessesCaption0="Processes"
|
|
||||||
Count mtDialog_ProcessesHeader=1
|
|
||||||
mtDialog_ProcessesHeader0="Processes Information"
|
|
||||||
Count mtDialog_AsmCaption=1
|
|
||||||
mtDialog_AsmCaption0="Assembler"
|
|
||||||
Count mtDialog_AsmHeader=1
|
|
||||||
mtDialog_AsmHeader0="Assembler Information"
|
|
||||||
Count mtDialog_CPUCaption=1
|
|
||||||
mtDialog_CPUCaption0="CPU"
|
|
||||||
Count mtDialog_CPUHeader=1
|
|
||||||
mtDialog_CPUHeader0="CPU Information"
|
|
||||||
Count mtDialog_OKButtonCaption=1
|
|
||||||
mtDialog_OKButtonCaption0="%26OK"
|
|
||||||
Count mtDialog_TerminateButtonCaption=1
|
|
||||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
|
||||||
Count mtDialog_RestartButtonCaption=1
|
|
||||||
mtDialog_RestartButtonCaption0="%26Restart"
|
|
||||||
Count mtDialog_DetailsButtonCaption=1
|
|
||||||
mtDialog_DetailsButtonCaption0="%26Details"
|
|
||||||
Count mtDialog_CustomButtonCaption=1
|
|
||||||
mtDialog_CustomButtonCaption0="%26Help"
|
|
||||||
Count mtDialog_SendMessage=1
|
|
||||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
|
||||||
Count mtDialog_ScreenshotMessage=1
|
|
||||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
|
||||||
Count mtDialog_CopyMessage=1
|
|
||||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
|
||||||
Count mtDialog_SupportMessage=1
|
|
||||||
mtDialog_SupportMessage0="Go to the Support Page"
|
|
||||||
Count mtMSDialog_ErrorMsgCaption=1
|
|
||||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
|
||||||
Count mtMSDialog_RestartCaption=1
|
|
||||||
mtMSDialog_RestartCaption0="Restart application."
|
|
||||||
Count mtMSDialog_TerminateCaption=1
|
|
||||||
mtMSDialog_TerminateCaption0="Terminate application."
|
|
||||||
Count mtMSDialog_PleaseCaption=1
|
|
||||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
|
||||||
Count mtMSDialog_DescriptionCaption=1
|
|
||||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
|
||||||
Count mtMSDialog_SeeDetailsCaption=1
|
|
||||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
|
||||||
Count mtMSDialog_SeeClickCaption=1
|
|
||||||
mtMSDialog_SeeClickCaption0="click here."
|
|
||||||
Count mtMSDialog_HowToReproduceCaption=1
|
|
||||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
|
||||||
Count mtMSDialog_EmailCaption=1
|
|
||||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
|
||||||
Count mtMSDialog_SendButtonCaption=1
|
|
||||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
|
||||||
Count mtMSDialog_NoSendButtonCaption=1
|
|
||||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
|
||||||
Count mtLog_AppHeader=1
|
|
||||||
mtLog_AppHeader0="Application"
|
|
||||||
Count mtLog_AppStartDate=1
|
|
||||||
mtLog_AppStartDate0="Start Date"
|
|
||||||
Count mtLog_AppName=1
|
|
||||||
mtLog_AppName0="Name/Description"
|
|
||||||
Count mtLog_AppVersionNumber=1
|
|
||||||
mtLog_AppVersionNumber0="Version Number"
|
|
||||||
Count mtLog_AppParameters=1
|
|
||||||
mtLog_AppParameters0="Parameters"
|
|
||||||
Count mtLog_AppCompilationDate=1
|
|
||||||
mtLog_AppCompilationDate0="Compilation Date"
|
|
||||||
Count mtLog_AppUpTime=1
|
|
||||||
mtLog_AppUpTime0="Up Time"
|
|
||||||
Count mtLog_ExcHeader=1
|
|
||||||
mtLog_ExcHeader0="Exception"
|
|
||||||
Count mtLog_ExcDate=1
|
|
||||||
mtLog_ExcDate0="Date"
|
|
||||||
Count mtLog_ExcAddress=1
|
|
||||||
mtLog_ExcAddress0="Address"
|
|
||||||
Count mtLog_ExcModuleName=1
|
|
||||||
mtLog_ExcModuleName0="Module Name"
|
|
||||||
Count mtLog_ExcModuleVersion=1
|
|
||||||
mtLog_ExcModuleVersion0="Module Version"
|
|
||||||
Count mtLog_ExcType=1
|
|
||||||
mtLog_ExcType0="Type"
|
|
||||||
Count mtLog_ExcMessage=1
|
|
||||||
mtLog_ExcMessage0="Message"
|
|
||||||
Count mtLog_ExcID=1
|
|
||||||
mtLog_ExcID0="ID"
|
|
||||||
Count mtLog_ExcCount=1
|
|
||||||
mtLog_ExcCount0="Count"
|
|
||||||
Count mtLog_ExcStatus=1
|
|
||||||
mtLog_ExcStatus0="Status"
|
|
||||||
Count mtLog_ExcNote=1
|
|
||||||
mtLog_ExcNote0="Note"
|
|
||||||
Count mtLog_UserHeader=1
|
|
||||||
mtLog_UserHeader0="User"
|
|
||||||
Count mtLog_UserID=1
|
|
||||||
mtLog_UserID0="ID"
|
|
||||||
Count mtLog_UserName=1
|
|
||||||
mtLog_UserName0="Name"
|
|
||||||
Count mtLog_UserEmail=1
|
|
||||||
mtLog_UserEmail0="Email"
|
|
||||||
Count mtLog_UserCompany=1
|
|
||||||
mtLog_UserCompany0="Company"
|
|
||||||
Count mtLog_UserPrivileges=1
|
|
||||||
mtLog_UserPrivileges0="Privileges"
|
|
||||||
Count mtLog_ActCtrlsHeader=1
|
|
||||||
mtLog_ActCtrlsHeader0="Active Controls"
|
|
||||||
Count mtLog_ActCtrlsFormClass=1
|
|
||||||
mtLog_ActCtrlsFormClass0="Form Class"
|
|
||||||
Count mtLog_ActCtrlsFormText=1
|
|
||||||
mtLog_ActCtrlsFormText0="Form Text"
|
|
||||||
Count mtLog_ActCtrlsControlClass=1
|
|
||||||
mtLog_ActCtrlsControlClass0="Control Class"
|
|
||||||
Count mtLog_ActCtrlsControlText=1
|
|
||||||
mtLog_ActCtrlsControlText0="Control Text"
|
|
||||||
Count mtLog_CmpHeader=1
|
|
||||||
mtLog_CmpHeader0="Computer"
|
|
||||||
Count mtLog_CmpName=1
|
|
||||||
mtLog_CmpName0="Name"
|
|
||||||
Count mtLog_CmpTotalMemory=1
|
|
||||||
mtLog_CmpTotalMemory0="Total Memory"
|
|
||||||
Count mtLog_CmpFreeMemory=1
|
|
||||||
mtLog_CmpFreeMemory0="Free Memory"
|
|
||||||
Count mtLog_CmpTotalDisk=1
|
|
||||||
mtLog_CmpTotalDisk0="Total Disk"
|
|
||||||
Count mtLog_CmpFreeDisk=1
|
|
||||||
mtLog_CmpFreeDisk0="Free Disk"
|
|
||||||
Count mtLog_CmpSystemUpTime=1
|
|
||||||
mtLog_CmpSystemUpTime0="System Up Time"
|
|
||||||
Count mtLog_CmpProcessor=1
|
|
||||||
mtLog_CmpProcessor0="Processor"
|
|
||||||
Count mtLog_CmpDisplayMode=1
|
|
||||||
mtLog_CmpDisplayMode0="Display Mode"
|
|
||||||
Count mtLog_CmpDisplayDPI=1
|
|
||||||
mtLog_CmpDisplayDPI0="Display DPI"
|
|
||||||
Count mtLog_CmpVideoCard=1
|
|
||||||
mtLog_CmpVideoCard0="Video Card"
|
|
||||||
Count mtLog_CmpPrinter=1
|
|
||||||
mtLog_CmpPrinter0="Printer"
|
|
||||||
Count mtLog_OSHeader=1
|
|
||||||
mtLog_OSHeader0="Operating System"
|
|
||||||
Count mtLog_OSType=1
|
|
||||||
mtLog_OSType0="Type"
|
|
||||||
Count mtLog_OSBuildN=1
|
|
||||||
mtLog_OSBuildN0="Build #"
|
|
||||||
Count mtLog_OSUpdate=1
|
|
||||||
mtLog_OSUpdate0="Update"
|
|
||||||
Count mtLog_OSLanguage=1
|
|
||||||
mtLog_OSLanguage0="Language"
|
|
||||||
Count mtLog_OSCharset=1
|
|
||||||
mtLog_OSCharset0="Charset"
|
|
||||||
Count mtLog_NetHeader=1
|
|
||||||
mtLog_NetHeader0="Network"
|
|
||||||
Count mtLog_NetIP=1
|
|
||||||
mtLog_NetIP0="IP Address"
|
|
||||||
Count mtLog_NetSubmask=1
|
|
||||||
mtLog_NetSubmask0="Submask"
|
|
||||||
Count mtLog_NetGateway=1
|
|
||||||
mtLog_NetGateway0="Gateway"
|
|
||||||
Count mtLog_NetDNS1=1
|
|
||||||
mtLog_NetDNS10="DNS 1"
|
|
||||||
Count mtLog_NetDNS2=1
|
|
||||||
mtLog_NetDNS20="DNS 2"
|
|
||||||
Count mtLog_NetDHCP=1
|
|
||||||
mtLog_NetDHCP0="DHCP"
|
|
||||||
Count mtLog_CustInfoHeader=1
|
|
||||||
mtLog_CustInfoHeader0="Custom Information"
|
|
||||||
Count mtCallStack_Address=1
|
|
||||||
mtCallStack_Address0="Address"
|
|
||||||
Count mtCallStack_Name=1
|
|
||||||
mtCallStack_Name0="Module"
|
|
||||||
Count mtCallStack_Unit=1
|
|
||||||
mtCallStack_Unit0="Unit"
|
|
||||||
Count mtCallStack_Class=1
|
|
||||||
mtCallStack_Class0="Class"
|
|
||||||
Count mtCallStack_Procedure=1
|
|
||||||
mtCallStack_Procedure0="Procedure/Method"
|
|
||||||
Count mtCallStack_Line=1
|
|
||||||
mtCallStack_Line0="Line"
|
|
||||||
Count mtCallStack_MainThread=1
|
|
||||||
mtCallStack_MainThread0="Main"
|
|
||||||
Count mtCallStack_ExceptionThread=1
|
|
||||||
mtCallStack_ExceptionThread0="Exception Thread"
|
|
||||||
Count mtCallStack_RunningThread=1
|
|
||||||
mtCallStack_RunningThread0="Running Thread"
|
|
||||||
Count mtCallStack_CallingThread=1
|
|
||||||
mtCallStack_CallingThread0="Calling Thread"
|
|
||||||
Count mtCallStack_ThreadID=1
|
|
||||||
mtCallStack_ThreadID0="ID"
|
|
||||||
Count mtCallStack_ThreadPriority=1
|
|
||||||
mtCallStack_ThreadPriority0="Priority"
|
|
||||||
Count mtCallStack_ThreadClass=1
|
|
||||||
mtCallStack_ThreadClass0="Class"
|
|
||||||
Count mtCallStack_LeakCaption=1
|
|
||||||
mtCallStack_LeakCaption0="Memory Leak"
|
|
||||||
Count mtCallStack_LeakData=1
|
|
||||||
mtCallStack_LeakData0="Data"
|
|
||||||
Count mtCallStack_LeakType=1
|
|
||||||
mtCallStack_LeakType0="Type"
|
|
||||||
Count mtCallStack_LeakSize=1
|
|
||||||
mtCallStack_LeakSize0="Total size"
|
|
||||||
Count mtCallStack_LeakCount=1
|
|
||||||
mtCallStack_LeakCount0="Count"
|
|
||||||
Count mtSendDialog_Caption=1
|
|
||||||
mtSendDialog_Caption0="Send."
|
|
||||||
Count mtSendDialog_Message=1
|
|
||||||
mtSendDialog_Message0="Message"
|
|
||||||
Count mtSendDialog_Resolving=1
|
|
||||||
mtSendDialog_Resolving0="Resolving DNS..."
|
|
||||||
Count mtSendDialog_Login=1
|
|
||||||
mtSendDialog_Login0="Login..."
|
|
||||||
Count mtSendDialog_Connecting=1
|
|
||||||
mtSendDialog_Connecting0="Connecting with server..."
|
|
||||||
Count mtSendDialog_Connected=1
|
|
||||||
mtSendDialog_Connected0="Connected with server."
|
|
||||||
Count mtSendDialog_Sending=1
|
|
||||||
mtSendDialog_Sending0="Sending message..."
|
|
||||||
Count mtSendDialog_Sent=1
|
|
||||||
mtSendDialog_Sent0="Message sent."
|
|
||||||
Count mtSendDialog_SelectProject=1
|
|
||||||
mtSendDialog_SelectProject0="Select project..."
|
|
||||||
Count mtSendDialog_Searching=1
|
|
||||||
mtSendDialog_Searching0="Searching..."
|
|
||||||
Count mtSendDialog_Modifying=1
|
|
||||||
mtSendDialog_Modifying0="Modifying..."
|
|
||||||
Count mtSendDialog_Disconnecting=1
|
|
||||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
|
||||||
Count mtSendDialog_Disconnected=1
|
|
||||||
mtSendDialog_Disconnected0="Disconnected."
|
|
||||||
Count mtReproduceDialog_Caption=1
|
|
||||||
mtReproduceDialog_Caption0="Request"
|
|
||||||
Count mtReproduceDialog_Request=1
|
|
||||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
|
||||||
Count mtReproduceDialog_OKButtonCaption=1
|
|
||||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
|
||||||
Count mtModules_Handle=1
|
|
||||||
mtModules_Handle0="Handle"
|
|
||||||
Count mtModules_Name=1
|
|
||||||
mtModules_Name0="Name"
|
|
||||||
Count mtModules_Description=1
|
|
||||||
mtModules_Description0="Description"
|
|
||||||
Count mtModules_Version=1
|
|
||||||
mtModules_Version0="Version"
|
|
||||||
Count mtModules_Size=1
|
|
||||||
mtModules_Size0="Size"
|
|
||||||
Count mtModules_LastModified=1
|
|
||||||
mtModules_LastModified0="Modified"
|
|
||||||
Count mtModules_Path=1
|
|
||||||
mtModules_Path0="Path"
|
|
||||||
Count mtProcesses_ID=1
|
|
||||||
mtProcesses_ID0="ID"
|
|
||||||
Count mtProcesses_Name=1
|
|
||||||
mtProcesses_Name0="Name"
|
|
||||||
Count mtProcesses_Description=1
|
|
||||||
mtProcesses_Description0="Description"
|
|
||||||
Count mtProcesses_Version=1
|
|
||||||
mtProcesses_Version0="Version"
|
|
||||||
Count mtProcesses_Memory=1
|
|
||||||
mtProcesses_Memory0="Memory"
|
|
||||||
Count mtProcesses_Priority=1
|
|
||||||
mtProcesses_Priority0="Priority"
|
|
||||||
Count mtProcesses_Threads=1
|
|
||||||
mtProcesses_Threads0="Threads"
|
|
||||||
Count mtProcesses_Path=1
|
|
||||||
mtProcesses_Path0="Path"
|
|
||||||
Count mtCPU_Registers=1
|
|
||||||
mtCPU_Registers0="Registers"
|
|
||||||
Count mtCPU_Stack=1
|
|
||||||
mtCPU_Stack0="Stack"
|
|
||||||
Count mtCPU_MemoryDump=1
|
|
||||||
mtCPU_MemoryDump0="Memory Dump"
|
|
||||||
Count mtSend_SuccessMsg=1
|
|
||||||
mtSend_SuccessMsg0="The message was sent successfully."
|
|
||||||
Count mtSend_FailureMsg=1
|
|
||||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
|
||||||
Count mtSend_BugClosedMsg=2
|
|
||||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
|
||||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
|
||||||
Count mtSend_UnknownErrorMsg=1
|
|
||||||
mtSend_UnknownErrorMsg0="Unknown error."
|
|
||||||
Count mtSend_InvalidLoginMsg=1
|
|
||||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
|
||||||
Count mtSend_InvalidSearchMsg=1
|
|
||||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
|
||||||
Count mtSend_InvalidSelectionMsg=1
|
|
||||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
|
||||||
Count mtSend_InvalidInsertMsg=1
|
|
||||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
|
||||||
Count mtSend_InvalidModifyMsg=1
|
|
||||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
|
||||||
Count mtFileCrackedMsg=2
|
|
||||||
mtFileCrackedMsg0="This file is cracked."
|
|
||||||
mtFileCrackedMsg1="The application will be closed."
|
|
||||||
Count mtException_LeakMultiFree=1
|
|
||||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
|
||||||
Count mtException_LeakMemoryOverrun=1
|
|
||||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
|
||||||
Count mtException_AntiFreeze=1
|
|
||||||
mtException_AntiFreeze0="The application seems to be frozen."
|
|
||||||
Count mtInvalidEmailMsg=1
|
|
||||||
mtInvalidEmailMsg0="Invalid email."
|
|
||||||
TextsCollection=English
|
|
||||||
EurekaLog Last Line -->
|
|
||||||
Binary file not shown.
@ -1,43 +0,0 @@
|
|||||||
{
|
|
||||||
===============================================================================
|
|
||||||
Copyright (©) 2007. Rodax Software.
|
|
||||||
===============================================================================
|
|
||||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
||||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
||||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
||||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
||||||
bajo el que se suministra.
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
Web: www.rodax-software.com
|
|
||||||
===============================================================================
|
|
||||||
Fecha primera versión:
|
|
||||||
Versión actual: 1.0.0
|
|
||||||
Fecha versión actual:
|
|
||||||
===============================================================================
|
|
||||||
Modificaciones:
|
|
||||||
|
|
||||||
Fecha Comentarios
|
|
||||||
---------------------------------------------------------------------------
|
|
||||||
===============================================================================
|
|
||||||
}
|
|
||||||
|
|
||||||
unit uIDataModuleBancaElectronica;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
uBizBancaElectronica;
|
|
||||||
|
|
||||||
type
|
|
||||||
IDataModuleBancaElectronica = interface
|
|
||||||
['{53EF1C4A-C134-47A2-9E75-FD0EC3246AA7}']
|
|
||||||
function GetItems: IBizIBizBanca;
|
|
||||||
function GetNextID(const DataSetName : String) : Integer;
|
|
||||||
function GetItem(const ID : Integer) : IBizIBizBanca;
|
|
||||||
function NewItem : IBizIBizBanca;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,134 +0,0 @@
|
|||||||
{
|
|
||||||
===============================================================================
|
|
||||||
Copyright (©) 2007. Rodax Software.
|
|
||||||
===============================================================================
|
|
||||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
||||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
||||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
||||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
||||||
bajo el que se suministra.
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
Web: www.rodax-software.com
|
|
||||||
===============================================================================
|
|
||||||
Fecha primera versión:
|
|
||||||
Versión actual: 1.0.0
|
|
||||||
Fecha versión actual:
|
|
||||||
===============================================================================
|
|
||||||
Modificaciones:
|
|
||||||
|
|
||||||
Fecha Comentarios
|
|
||||||
---------------------------------------------------------------------------
|
|
||||||
===============================================================================
|
|
||||||
}
|
|
||||||
|
|
||||||
unit uBizBancaElectronica;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schBancaElectronicaClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
BIZ_CLIENT_IBIZBANCA = 'Client.IBizBanca';
|
|
||||||
|
|
||||||
type
|
|
||||||
IBizIBizBanca = interface(IBancaElectronica)
|
|
||||||
['{11CFA381-89E3-4491-B1C4-F270EFB2E6FE}']
|
|
||||||
function EsNuevo : Boolean;
|
|
||||||
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// procedure SetDetalles(AValue : IBizDetalles);
|
|
||||||
// function GetDetalles : IBizDetalles;
|
|
||||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
|
||||||
end;
|
|
||||||
|
|
||||||
TBizIBizBanca = class(TBancaElectronicaDataTableRules, IBizIBizBanca, ISeleccionable)
|
|
||||||
protected
|
|
||||||
FSeleccionableInterface : ISeleccionable;
|
|
||||||
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// FDetalles : IBizDetalles;
|
|
||||||
// FDetallesLink : TDADataSource;
|
|
||||||
// procedure SetDetalles(AValue : IBizDetalles);
|
|
||||||
// function GetDetalles : IBizDetalles;
|
|
||||||
|
|
||||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
|
||||||
public
|
|
||||||
procedure IniciarValoresIBizBancaNuevo;
|
|
||||||
function EsNuevo : Boolean;
|
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
|
|
||||||
property SeleccionableInterface : ISeleccionable
|
|
||||||
read FSeleccionableInterface
|
|
||||||
write FSeleccionableInterface
|
|
||||||
implements ISeleccionable;
|
|
||||||
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{ TBizIBizBanca }
|
|
||||||
|
|
||||||
uses
|
|
||||||
SysUtils, uDataTableUtils;
|
|
||||||
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// function TBizIBizBanca.GetDetalles: IBizDetalles;
|
|
||||||
// begin
|
|
||||||
// Result := FDetalles;
|
|
||||||
// end;
|
|
||||||
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// procedure TBizIBizBanca.SetDetalles(AValue: IBizDetalles);
|
|
||||||
// begin
|
|
||||||
// FDetalles := AValue;
|
|
||||||
// EnlazarMaestroDetalle(FDetallesLink, FDetalles);
|
|
||||||
// end;
|
|
||||||
|
|
||||||
constructor TBizIBizBanca.Create(aDataTable: TDADataTable);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// FDetallesLink := TDADataSource.Create(NIL);
|
|
||||||
// FDetallesLink.DataTable := aDataTable;
|
|
||||||
|
|
||||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TBizIBizBanca.Destroy;
|
|
||||||
begin
|
|
||||||
// Descomentar esto si hay clases detalles
|
|
||||||
// FDetalles := NIL;
|
|
||||||
// FreeAndNIL(FDetallesLink);
|
|
||||||
|
|
||||||
FSeleccionableInterface := NIL;
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TBizIBizBanca.EsNuevo: Boolean;
|
|
||||||
begin
|
|
||||||
Result := (ID < 0);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TBizIBizBanca.IniciarValoresIBizBancaNuevo;
|
|
||||||
begin
|
|
||||||
//
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TBizIBizBanca.OnNewRecord(Sender: TDADataTable);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
ID := GetRecNo; // -1, -2, -3...
|
|
||||||
IniciarValoresIBizBancaNuevo;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
RegisterDataTableRules(BIZ_CLIENT_IBIZBANCA, TBizIBizBanca);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,6 +1,5 @@
|
|||||||
object PluginBancaElectronica: TPluginBancaElectronica
|
object PluginBancaElectronica: TPluginBancaElectronica
|
||||||
OldCreateOrder = True
|
OldCreateOrder = True
|
||||||
DefaultAction = actBancaElectronica
|
|
||||||
Description = 'Ventas'
|
Description = 'Ventas'
|
||||||
ModuleMenu = MainMenu
|
ModuleMenu = MainMenu
|
||||||
ModuleName = 'BancaElectronica'
|
ModuleName = 'BancaElectronica'
|
||||||
@ -41,23 +40,11 @@ object PluginBancaElectronica: TPluginBancaElectronica
|
|||||||
Images = LargeImages
|
Images = LargeImages
|
||||||
Left = 40
|
Left = 40
|
||||||
Top = 72
|
Top = 72
|
||||||
object actBancaElectronica: TAction
|
|
||||||
Category = 'Ventas'
|
|
||||||
Caption = 'Cat'#225'logo de art'#237'culos'
|
|
||||||
ImageIndex = 0
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
object MainMenu: TMainMenu
|
object MainMenu: TMainMenu
|
||||||
Images = LargeImages
|
Images = LargeImages
|
||||||
Left = 40
|
Left = 40
|
||||||
Top = 16
|
Top = 16
|
||||||
object N1: TMenuItem
|
|
||||||
Caption = 'Log'#237'stica'
|
|
||||||
object BancaElectronica1: TMenuItem
|
|
||||||
Tag = 100
|
|
||||||
Action = actBancaElectronica
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
object SmallImages: TPngImageList
|
object SmallImages: TPngImageList
|
||||||
PngImages = <
|
PngImages = <
|
||||||
|
|||||||
@ -12,14 +12,11 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TPluginBancaElectronica = class(TModuleController, IMCBancaElectronica)
|
TPluginBancaElectronica = class(TModuleController, IMCBancaElectronica)
|
||||||
actBancaElectronica: TAction;
|
|
||||||
ExtraImages: TPngImageList;
|
ExtraImages: TPngImageList;
|
||||||
LargeImages: TPngImageList;
|
LargeImages: TPngImageList;
|
||||||
MainMenu: TMainMenu;
|
MainMenu: TMainMenu;
|
||||||
ModuleActionList: TActionList;
|
ModuleActionList: TActionList;
|
||||||
SmallImages: TPngImageList;
|
SmallImages: TPngImageList;
|
||||||
N1: TMenuItem;
|
|
||||||
BancaElectronica1: TMenuItem;
|
|
||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
|||||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.0.0.0\0"
|
VALUE "FileVersion", "1.0.0.0\0"
|
||||||
VALUE "ProductVersion", "1.0.0.0\0"
|
VALUE "ProductVersion", "1.0.0.0\0"
|
||||||
VALUE "CompileDate", "lunes, 25 de enero de 2010 18:22\0"
|
VALUE "CompileDate", "martes, 26 de enero de 2010 18:45\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Reference in New Issue
Block a user