git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@25 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
f1a79bda20
commit
78f1cf7f13
124
Source/Modulos/Contabilidad/Contabilidad_Group.groupproj
Normal file
124
Source/Modulos/Contabilidad/Contabilidad_Group.groupproj
Normal file
@ -0,0 +1,124 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{3df776bd-a3f8-4f3a-9129-45fdb4a2ee63}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="Controller\Contabilidad_controller.dproj" />
|
||||
<Projects Include="Data\Contabilidad_data.dproj" />
|
||||
<Projects Include="Model\Contabilidad_model.dproj" />
|
||||
<Projects Include="Plugin\Contabilidad_plugin.dproj" />
|
||||
<Projects Include="Views\Contabilidad_view.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="Base">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Base:Clean">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Base:Make">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GUIBase">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Clean">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Make">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Clean">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model">
|
||||
<MSBuild Projects="Model\Contabilidad_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model:Clean">
|
||||
<MSBuild Projects="Model\Contabilidad_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model:Make">
|
||||
<MSBuild Projects="Model\Contabilidad_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data">
|
||||
<MSBuild Projects="Data\Contabilidad_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data:Clean">
|
||||
<MSBuild Projects="Data\Contabilidad_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data:Make">
|
||||
<MSBuild Projects="Data\Contabilidad_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller">
|
||||
<MSBuild Projects="Controller\Contabilidad_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller:Clean">
|
||||
<MSBuild Projects="Controller\Contabilidad_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller:Make">
|
||||
<MSBuild Projects="Controller\Contabilidad_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view">
|
||||
<MSBuild Projects="Views\Contabilidad_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view:Clean">
|
||||
<MSBuild Projects="Views\Contabilidad_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="Views\Contabilidad_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_plugin">
|
||||
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_plugin:Clean">
|
||||
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Clean">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -0,0 +1,56 @@
|
||||
package Contabilidad_controller;
|
||||
|
||||
{$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 ON}
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contabilidad_model,
|
||||
Contabilidad_data,
|
||||
dbrtl,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
cxLibraryD10,
|
||||
dxThemeD10;
|
||||
|
||||
contains
|
||||
uIEditorEpigrafes in 'View\uIEditorEpigrafes.pas',
|
||||
uIEditorBalance in 'View\uIEditorBalance.pas',
|
||||
uIEditorBalances in 'View\uIEditorBalances.pas',
|
||||
uIEditorCuentaEspecial in 'View\uIEditorCuentaEspecial.pas',
|
||||
uIEditorCuentasEspeciales in 'View\uIEditorCuentasEspeciales.pas',
|
||||
uIEditorEpigrafe in 'View\uIEditorEpigrafe.pas',
|
||||
uEpigrafesController in 'uEpigrafesController.pas',
|
||||
uBalancesController in 'uBalancesController.pas',
|
||||
uCuentasEspecialesController in 'uCuentasEspecialesController.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,559 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
|
||||
<MainSource>Contabilidad_controller.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Contabilidad_controller.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>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contabilidad_data.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="cxLibraryD10.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxThemeD10.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uBalancesController.pas" />
|
||||
<DCCReference Include="uCuentasEspecialesController.pas" />
|
||||
<DCCReference Include="uEpigrafesController.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="View\uIEditorBalance.pas" />
|
||||
<DCCReference Include="View\uIEditorBalances.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentaEspecial.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentasEspeciales.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafe.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafes.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=0
|
||||
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.
@ -0,0 +1,22 @@
|
||||
unit uIEditorBalance;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizBalances;
|
||||
|
||||
type
|
||||
IEditorBalance = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetBalance: IBizBalance;
|
||||
procedure SetBalance(const Value: IBizBalance);
|
||||
property Balance: IBizBalance read GetBalance write SetBalance;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,21 @@
|
||||
unit uIEditorBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizBalances;
|
||||
|
||||
type
|
||||
IEditorBalances = interface
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetBalances: IBizBalance;
|
||||
procedure SetBalances(const Value: IBizBalance);
|
||||
property Balances: IBizBalance read GetBalances write SetBalances;
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,22 @@
|
||||
unit uIEditorCuentaEspecial;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizCuentasEspeciales;
|
||||
|
||||
type
|
||||
IEditorCuentaEspecial = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetCuentaEspecial: IBizCuentaEspecial;
|
||||
procedure SetCuentaEspecial(const Value: IBizCuentaEspecial);
|
||||
property CuentaEspecial: IBizCuentaEspecial read GetCuentaEspecial write SetCuentaEspecial;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,21 @@
|
||||
unit uIEditorCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizCuentasEspeciales;
|
||||
|
||||
type
|
||||
IEditorCuentasEspeciales = interface
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorEpigrafe;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizEpigrafes, uEpigrafesController;
|
||||
|
||||
type
|
||||
IEditorEpigrafe = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetController : IEpigrafesController;
|
||||
procedure SetController (const Value : IEpigrafesController);
|
||||
property Controller : IEpigrafesController read GetController write SetController;
|
||||
|
||||
function GetEpigrafe: IBizEpigrafe;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorEpigrafes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizEpigrafes, uEpigrafesController;
|
||||
|
||||
type
|
||||
IEditorEpigrafes = interface (IEditorGridBase)
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : IEpigrafesController;
|
||||
procedure SetController (const Value : IEpigrafesController);
|
||||
property Controller : IEpigrafesController read GetController write SetController;
|
||||
|
||||
function GetEpigrafes: IBizEpigrafe;
|
||||
procedure SetEpigrafes(const Value: IBizEpigrafe);
|
||||
property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
273
Source/Modulos/Contabilidad/Controller/uBalancesController.pas
Normal file
273
Source/Modulos/Contabilidad/Controller/uBalancesController.pas
Normal file
@ -0,0 +1,273 @@
|
||||
unit uBalancesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizBalances, uIDataModuleContabilidad;
|
||||
type
|
||||
IBalancesController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
function BuscarTodos: IBizBalance;
|
||||
function Buscar(ID: Integer): IBizBalance;
|
||||
procedure VerTodos(ABalances: IBizBalance);
|
||||
procedure Ver(ABalance: IBizBalance);
|
||||
procedure Anadir(ABalance : IBizBalance);
|
||||
function Eliminar(ABalance : IBizBalance): Boolean;
|
||||
function Guardar(ABalance : IBizBalance): Boolean;
|
||||
procedure DescartarCambios(ABalance : IBizBalance);
|
||||
function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
|
||||
function DarListaBalances: TStringList;
|
||||
end;
|
||||
|
||||
TBalancesController = class(TObservador, IBalancesController)
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
function ValidarBalance(ABalance: IBizBalance): Boolean;
|
||||
procedure AsignarDataModule;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(ABalance : IBizBalance): Boolean;
|
||||
function Guardar(ABalance : IBizBalance): Boolean; virtual;
|
||||
procedure DescartarCambios(ABalance : IBizBalance); virtual;
|
||||
procedure Anadir(ABalance : IBizBalance);
|
||||
function BuscarTodos: IBizBalance;
|
||||
function Buscar(ID: Integer): IBizBalance;
|
||||
procedure VerTodos(ABalances: IBizBalance);
|
||||
procedure Ver(ABalance: IBizBalance);
|
||||
function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
|
||||
function DarListaBalances: TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorBalances, uIEditorBalance, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TBalancesController }
|
||||
|
||||
procedure TBalancesController.Anadir(ABalance: IBizBalance);
|
||||
begin
|
||||
ABalance.Insert;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
end;
|
||||
|
||||
function TBalancesController.Buscar(ID: Integer): IBizBalance;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_BalancesID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.BuscarTodos: IBizBalance;
|
||||
begin
|
||||
Result := FDataModule.GetBalanceItems;
|
||||
end;
|
||||
|
||||
constructor TBalancesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
end;
|
||||
|
||||
function TBalancesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TBalancesController.DarListaBalances: TStringList;
|
||||
var
|
||||
ABalances: IBizBalance;
|
||||
begin
|
||||
ABalances := BuscarTodos;
|
||||
ABalances.DataTable.Active := True;
|
||||
Result := TStringList.Create;
|
||||
try
|
||||
with Result do
|
||||
begin
|
||||
ABalances.DataTable.First;
|
||||
while not ABalances.DataTable.EOF do
|
||||
begin
|
||||
Add(ABalances.REF_BALANCE);
|
||||
ABalances.DataTable.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
ABalances := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.DescartarCambios(ABalance: IBizBalance);
|
||||
begin
|
||||
if not Assigned(ABalance) then
|
||||
raise Exception.Create ('Balance no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ABalance.State in dsEditModes) then
|
||||
ABalance.Cancel;
|
||||
|
||||
ABalance.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TBalancesController.Destroy;
|
||||
begin
|
||||
FDataModule:= NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBalancesController.ValidarBalance(ABalance: IBizBalance): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ABalance) then
|
||||
raise Exception.Create ('Balance no asignado');
|
||||
|
||||
if (ABalance.DataTable.State in dsEditModes) then
|
||||
ABalance.DataTable.Post;
|
||||
|
||||
if Length(ABalance.REF_BALANCE) = 0 then
|
||||
raise Exception.Create('Debe indicar un nombre para este Balance.');
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.Ver(ABalance: IBizBalance);
|
||||
var
|
||||
AEditor : IEditorBalance;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorBalance', IEditorBalance, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Balance := ABalance;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.VerTodos(ABalances: IBizBalance);
|
||||
var
|
||||
AEditor : IEditorBalances;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorBalances', IEditorBalances, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Balances := ABalances;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.Eliminar(ABalance: IBizBalance): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ABalance) then
|
||||
raise Exception.Create ('Balance no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ABalance.State in dsEditModes) then
|
||||
ABalance.Cancel;
|
||||
|
||||
ABalance.Delete;
|
||||
ABalance.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBalancesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TBalancesController.Guardar(ABalance: IBizBalance): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if ValidarBalance(ABalance) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ABalance.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBalancesController.Localizar(ABalances: IBizBalance; ADescripcion: String): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with ABalances.DataTable do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
if not Locate(fld_BalancesREF_BALANCE, ADescripcion, []) then
|
||||
Result := False;
|
||||
EnableControls;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,273 @@
|
||||
unit uCuentasEspecialesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizCuentasEspeciales, uIDataModuleContabilidad;
|
||||
type
|
||||
ICuentasEspecialesController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
function BuscarTodos: IBizCuentaEspecial;
|
||||
function Buscar(ID: Integer): IBizCuentaEspecial;
|
||||
procedure VerTodos(ACuentasEspeciales: IBizCuentaEspecial);
|
||||
procedure Ver(ACuentaEspecial: IBizCuentaEspecial);
|
||||
procedure Anadir(ACuentaEspecial : IBizCuentaEspecial);
|
||||
function Eliminar(ACuentaEspecial : IBizCuentaEspecial): Boolean;
|
||||
function Guardar(ACuentaEspecial : IBizCuentaEspecial): Boolean;
|
||||
procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial);
|
||||
function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
|
||||
function DarListaCuentasEspeciales: TStringList;
|
||||
end;
|
||||
|
||||
TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController)
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
function ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean;
|
||||
procedure AsignarDataModule;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(ACuentaEspecial : IBizCuentaEspecial): Boolean;
|
||||
function Guardar(ACuentaEspecial : IBizCuentaEspecial): Boolean; virtual;
|
||||
procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial); virtual;
|
||||
procedure Anadir(ACuentaEspecial : IBizCuentaEspecial);
|
||||
function BuscarTodos: IBizCuentaEspecial;
|
||||
function Buscar(ID: Integer): IBizCuentaEspecial;
|
||||
procedure VerTodos(ACuentasEspeciales: IBizCuentaEspecial);
|
||||
procedure Ver(ACuentaEspecial: IBizCuentaEspecial);
|
||||
function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
|
||||
function DarListaCuentasEspeciales: TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TCuentasEspecialesController }
|
||||
|
||||
procedure TCuentasEspecialesController.Anadir(ACuentaEspecial: IBizCuentaEspecial);
|
||||
begin
|
||||
ACuentaEspecial.Insert;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.Buscar(ID: Integer): IBizCuentaEspecial;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_CuentasEspecialesID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.BuscarTodos: IBizCuentaEspecial;
|
||||
begin
|
||||
Result := FDataModule.GetCuentaEspecialItems;
|
||||
end;
|
||||
|
||||
constructor TCuentasEspecialesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.DarListaCuentasEspeciales: TStringList;
|
||||
var
|
||||
ACuentasEspeciales: IBizCuentaEspecial;
|
||||
begin
|
||||
ACuentasEspeciales := BuscarTodos;
|
||||
ACuentasEspeciales.DataTable.Active := True;
|
||||
Result := TStringList.Create;
|
||||
try
|
||||
with Result do
|
||||
begin
|
||||
ACuentasEspeciales.DataTable.First;
|
||||
while not ACuentasEspeciales.DataTable.EOF do
|
||||
begin
|
||||
Add(ACuentasEspeciales.DESCRIPCION);
|
||||
ACuentasEspeciales.DataTable.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
ACuentasEspeciales := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.DescartarCambios(ACuentaEspecial: IBizCuentaEspecial);
|
||||
begin
|
||||
if not Assigned(ACuentaEspecial) then
|
||||
raise Exception.Create ('CuentaEspecial no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ACuentaEspecial.State in dsEditModes) then
|
||||
ACuentaEspecial.Cancel;
|
||||
|
||||
ACuentaEspecial.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TCuentasEspecialesController.Destroy;
|
||||
begin
|
||||
FDataModule:= NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ACuentaEspecial) then
|
||||
raise Exception.Create ('CuentaEspecial no asignado');
|
||||
|
||||
if (ACuentaEspecial.DataTable.State in dsEditModes) then
|
||||
ACuentaEspecial.DataTable.Post;
|
||||
|
||||
if Length(ACuentaEspecial.DESCRIPCION) = 0 then
|
||||
raise Exception.Create('Debe indicar un nombre para este CuentaEspecial.');
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.Ver(ACuentaEspecial: IBizCuentaEspecial);
|
||||
var
|
||||
AEditor : IEditorCuentaEspecial;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorCuentaEspecial', IEditorCuentaEspecial, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
CuentaEspecial := ACuentaEspecial;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.VerTodos(ACuentasEspeciales: IBizCuentaEspecial);
|
||||
var
|
||||
AEditor : IEditorCuentasEspeciales;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorCuentasEspeciales', IEditorCuentasEspeciales, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
CuentasEspeciales := ACuentasEspeciales;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.Eliminar(ACuentaEspecial: IBizCuentaEspecial): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ACuentaEspecial) then
|
||||
raise Exception.Create ('CuentaEspecial no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ACuentaEspecial.State in dsEditModes) then
|
||||
ACuentaEspecial.Cancel;
|
||||
|
||||
ACuentaEspecial.Delete;
|
||||
ACuentaEspecial.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.Guardar(ACuentaEspecial: IBizCuentaEspecial): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if ValidarCuentaEspecial(ACuentaEspecial) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ACuentaEspecial.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesController.Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion: String): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with ACuentasEspeciales.DataTable do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
if not Locate(fld_CuentasEspecialesDESCRIPCION, ADescripcion, []) then
|
||||
Result := False;
|
||||
EnableControls;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
274
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
Normal file
274
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
Normal file
@ -0,0 +1,274 @@
|
||||
unit uEpigrafesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizEpigrafes, uIDataModuleContabilidad;
|
||||
type
|
||||
IEpigrafesController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
function BuscarTodos: IBizEpigrafe;
|
||||
function Buscar(ID: Integer): IBizEpigrafe;
|
||||
procedure VerTodos(AEpigrafes: IBizEpigrafe);
|
||||
procedure Ver(AEpigrafe: IBizEpigrafe);
|
||||
procedure Anadir(AEpigrafe : IBizEpigrafe);
|
||||
function Eliminar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
function Guardar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
procedure DescartarCambios(AEpigrafe : IBizEpigrafe);
|
||||
function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
|
||||
function DarListaEpigrafes: TStringList;
|
||||
end;
|
||||
|
||||
TEpigrafesController = class(TObservador, IEpigrafesController)
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
function ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
procedure AsignarDataModule;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(AEpigrafe : IBizEpigrafe): Boolean;
|
||||
function Guardar(AEpigrafe : IBizEpigrafe): Boolean; virtual;
|
||||
procedure DescartarCambios(AEpigrafe : IBizEpigrafe); virtual;
|
||||
procedure Anadir(AEpigrafe : IBizEpigrafe);
|
||||
function BuscarTodos: IBizEpigrafe;
|
||||
function Buscar(ID: Integer): IBizEpigrafe;
|
||||
procedure VerTodos(AEpigrafes: IBizEpigrafe);
|
||||
procedure Ver(AEpigrafe: IBizEpigrafe);
|
||||
function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
|
||||
function DarListaEpigrafes: TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorEpigrafes, uIEditorEpigrafe, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TEpigrafesController }
|
||||
|
||||
procedure TEpigrafesController.Anadir(AEpigrafe: IBizEpigrafe);
|
||||
begin
|
||||
AEpigrafe.Insert;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Buscar(ID: Integer): IBizEpigrafe;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_EpigrafesID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.BuscarTodos: IBizEpigrafe;
|
||||
begin
|
||||
Result := FDataModule.GetEpigrafeItems;
|
||||
end;
|
||||
|
||||
constructor TEpigrafesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TEpigrafesController.DarListaEpigrafes: TStringList;
|
||||
var
|
||||
AEpigrafes: IBizEpigrafe;
|
||||
begin
|
||||
AEpigrafes := BuscarTodos;
|
||||
AEpigrafes.DataTable.Active := True;
|
||||
Result := TStringList.Create;
|
||||
try
|
||||
with Result do
|
||||
begin
|
||||
AEpigrafes.DataTable.First;
|
||||
while not AEpigrafes.DataTable.EOF do
|
||||
begin
|
||||
Add(AEpigrafes.DESCRIPCION);
|
||||
AEpigrafes.DataTable.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AEpigrafes := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.DescartarCambios(AEpigrafe: IBizEpigrafe);
|
||||
begin
|
||||
if not Assigned(AEpigrafe) then
|
||||
raise Exception.Create ('Epigrafe no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AEpigrafe.State in dsEditModes) then
|
||||
AEpigrafe.Cancel;
|
||||
|
||||
AEpigrafe.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TEpigrafesController.Destroy;
|
||||
begin
|
||||
FDataModule:= NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AEpigrafe) then
|
||||
raise Exception.Create ('Epigrafe no asignado');
|
||||
|
||||
if (AEpigrafe.DataTable.State in dsEditModes) then
|
||||
AEpigrafe.DataTable.Post;
|
||||
|
||||
if Length(AEpigrafe.DESCRIPCION) = 0 then
|
||||
raise Exception.Create('Debe indicar un nombre para este Epigrafe.');
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.Ver(AEpigrafe: IBizEpigrafe);
|
||||
var
|
||||
AEditor : IEditorEpigrafe;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorEpigrafe', IEditorEpigrafe, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Epigrafe := AEpigrafe;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.VerTodos(AEpigrafes: IBizEpigrafe);
|
||||
var
|
||||
AEditor : IEditorEpigrafes;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorEpigrafes', IEditorEpigrafes, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Epigrafes := AEpigrafes;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Eliminar(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AEpigrafe) then
|
||||
raise Exception.Create ('Epigrafe no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AEpigrafe.State in dsEditModes) then
|
||||
AEpigrafe.Cancel;
|
||||
|
||||
AEpigrafe.Delete;
|
||||
AEpigrafe.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Guardar(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if ValidarEpigrafe(AEpigrafe) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AEpigrafe.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TEpigrafesController.Localizar(AEpigrafes: IBizEpigrafe; ADescripcion: String): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with AEpigrafes.DataTable do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
if not Locate(fld_EpigrafesDESCRIPCION, ADescripcion, []) then
|
||||
Result := False;
|
||||
EnableControls;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
47
Source/Modulos/Contabilidad/Data/Contabilidad_data.dpk
Normal file
47
Source/Modulos/Contabilidad/Data/Contabilidad_data.dpk
Normal file
@ -0,0 +1,47 @@
|
||||
package Contabilidad_data;
|
||||
|
||||
{$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 ON}
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
Contabilidad_model,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
cxLibraryD10,
|
||||
dxThemeD10;
|
||||
|
||||
contains
|
||||
uDataModuleContabilidad in 'uDataModuleContabilidad.pas';
|
||||
|
||||
end.
|
||||
550
Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj
Normal file
550
Source/Modulos/Contabilidad/Data/Contabilidad_data.dproj
Normal file
@ -0,0 +1,550 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{c8118762-09b6-432f-ba26-058fa36c39d9}</ProjectGuid>
|
||||
<MainSource>Contabilidad_data.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Contabilidad_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_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>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="cxLibraryD10.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxThemeD10.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uDataModuleContabilidad.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</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=0
|
||||
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 -->
|
||||
BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.res
Normal file
BIN
Source/Modulos/Contabilidad/Data/Contabilidad_data.res
Normal file
Binary file not shown.
203
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
Normal file
203
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
Normal file
@ -0,0 +1,203 @@
|
||||
inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 288
|
||||
Width = 480
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvContabilidad'
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 104
|
||||
end
|
||||
object rda_Contabilidad: TDARemoteDataAdapter
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 176
|
||||
Top = 24
|
||||
end
|
||||
object tbl_Balances: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_BALANCES_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Ejercicios_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Balances_REF_BALANCE'
|
||||
DictionaryEntry = 'Balances_REF_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'NATURALEZA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Balances_NATURALEZA'
|
||||
DictionaryEntry = 'Balances_NATURALEZA'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL1'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'Balances_NIVEL1'
|
||||
DictionaryEntry = 'Balances_NIVEL1'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Balances_DESCRIPCION1'
|
||||
DictionaryEntry = 'Balances_DESCRIPCION1'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL2'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'Balances_NIVEL2'
|
||||
DictionaryEntry = 'Balances_NIVEL2'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Balances_DESCRIPCION2'
|
||||
DictionaryEntry = 'Balances_DESCRIPCION2'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL3'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'Balances_NIVEL3'
|
||||
DictionaryEntry = 'Balances_NIVEL3'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION3'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Balances_DESCRIPCION3'
|
||||
DictionaryEntry = 'Balances_DESCRIPCION3'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Balances'
|
||||
IndexDefs = <>
|
||||
Left = 352
|
||||
Top = 216
|
||||
end
|
||||
object ds_Balances: TDADataSource
|
||||
DataSet = tbl_Balances.Dataset
|
||||
DataTable = tbl_Balances
|
||||
Left = 352
|
||||
Top = 160
|
||||
end
|
||||
object tbl_CuentasEspeciales: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'CuentasEspeciales_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
DisplayLabel = 'CuentasEspeciales_REFERENCIA'
|
||||
DictionaryEntry = 'CuentasEspeciales_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'CuentasEspeciales_DESCRIPCION'
|
||||
DictionaryEntry = 'CuentasEspeciales_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'CuentasEspeciales'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
Top = 216
|
||||
end
|
||||
object ds_CuentasEspeciales: TDADataSource
|
||||
DataSet = tbl_CuentasEspeciales.Dataset
|
||||
DataTable = tbl_CuentasEspeciales
|
||||
Left = 168
|
||||
Top = 160
|
||||
end
|
||||
object tbl_Epigrafes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
DisplayLabel = 'Epigrafes_REF_EPIGRAFE'
|
||||
DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Epigrafes_ID_PADRE'
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Epigrafes_DESCRIPCION'
|
||||
DictionaryEntry = 'Epigrafes_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Epigrafes_ID_EJERCICIO'
|
||||
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Epigrafes'
|
||||
IndexDefs = <>
|
||||
Left = 296
|
||||
Top = 80
|
||||
end
|
||||
object ds_Epigrafes: TDADataSource
|
||||
DataSet = tbl_Epigrafes.Dataset
|
||||
DataTable = tbl_Epigrafes
|
||||
Left = 296
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
88
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas
Normal file
88
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas
Normal file
@ -0,0 +1,88 @@
|
||||
unit uDataModuleContabilidad;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uControllerBase,
|
||||
uBizBalances, uBizCuentasEspeciales, uBizEpigrafes, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDAInterfaces, uRODynamicRequest,
|
||||
uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad, uDataModuleBase;
|
||||
type
|
||||
TDataModuleContabilidad = class(TDataModuleBase, IDataModuleContabilidad)
|
||||
RORemoteService: TRORemoteService;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
rda_Contabilidad: TDARemoteDataAdapter;
|
||||
tbl_Balances: TDAMemDataTable;
|
||||
ds_Balances: TDADataSource;
|
||||
tbl_CuentasEspeciales: TDAMemDataTable;
|
||||
ds_CuentasEspeciales: TDADataSource;
|
||||
tbl_Epigrafes: TDAMemDataTable;
|
||||
ds_Epigrafes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
public
|
||||
function GetEpigrafeItems: IBizEpigrafe;
|
||||
function GetCuentaEspecialItems: IBizCuentaEspecial;
|
||||
function GetBalanceItems: IBizBalance;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
schContabilidadClient_Intf;
|
||||
|
||||
{ TdmAlmacens }
|
||||
|
||||
procedure TDataModuleContabilidad.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleContabilidad.GetBalanceItems: IBizBalance;
|
||||
var
|
||||
AContabilidadBalance : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AContabilidadBalance := CloneDataTable(tbl_Balances);
|
||||
AContabilidadBalance.BusinessRulesID := BIZ_CLIENT_Balance;
|
||||
Result := (AContabilidadBalance as IBizBalance);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleContabilidad.GetCuentaEspecialItems: IBizCuentaEspecial;
|
||||
var
|
||||
AContabilidadCuentaEspecial : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AContabilidadCuentaEspecial := CloneDataTable(tbl_CuentasEspeciales);
|
||||
AContabilidadCuentaEspecial.BusinessRulesID := BIZ_CLIENT_CuentaEspecial;
|
||||
Result := (AContabilidadCuentaEspecial as IBizCuentaEspecial);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleContabilidad.GetEpigrafeItems: IBizEpigrafe;
|
||||
var
|
||||
AContabilidadEpigrafe : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AContabilidadEpigrafe := CloneDataTable(tbl_Epigrafes);
|
||||
AContabilidadEpigrafe.BusinessRulesID := BIZ_CLIENT_Epigrafe;
|
||||
Result := (AContabilidadEpigrafe as IBizEpigrafe);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
47
Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk
Normal file
47
Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk
Normal file
@ -0,0 +1,47 @@
|
||||
package Contabilidad_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 ON}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
dbrtl,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl;
|
||||
|
||||
contains
|
||||
uBizCuentasEspeciales in 'uBizCuentasEspeciales.pas',
|
||||
uBizEpigrafes in 'uBizEpigrafes.pas',
|
||||
schContabilidadClient_Intf in 'schContabilidadClient_Intf.pas',
|
||||
uBizBalances in 'uBizBalances.pas',
|
||||
uIDataModuleContabilidad in 'Data\uIDataModuleContabilidad.pas';
|
||||
|
||||
end.
|
||||
550
Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj
Normal file
550
Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj
Normal file
@ -0,0 +1,550 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{73acd39c-b2f0-49b7-9acf-10945bbac8c1}</ProjectGuid>
|
||||
<MainSource>Contabilidad_model.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Contabilidad_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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Data\adortl.dcp" />
|
||||
<DCCReference Include="Data\ApplicationBase.dcp" />
|
||||
<DCCReference Include="Data\Base.dcp" />
|
||||
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\dbrtl.dcp" />
|
||||
<DCCReference Include="Data\dsnap.dcp" />
|
||||
<DCCReference Include="Data\GUIBase.dcp" />
|
||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\rtl.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleContabilidad.pas" />
|
||||
<DCCReference Include="Data\vcl.dcp" />
|
||||
<DCCReference Include="Data\vcldb.dcp" />
|
||||
<DCCReference Include="schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="uBizBalances.pas" />
|
||||
<DCCReference Include="uBizCuentasEspeciales.pas" />
|
||||
<DCCReference Include="uBizEpigrafes.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=0
|
||||
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 -->
|
||||
BIN
Source/Modulos/Contabilidad/Model/Contabilidad_model.res
Normal file
BIN
Source/Modulos/Contabilidad/Model/Contabilidad_model.res
Normal file
Binary file not shown.
@ -0,0 +1,18 @@
|
||||
unit uIDataModuleContabilidad;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizEpigrafes, uBizCuentasEspeciales, uBizBalances;
|
||||
|
||||
type
|
||||
IDataModuleContabilidad = interface(IInterface)
|
||||
['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}']
|
||||
function GetEpigrafeItems: IBizEpigrafe;
|
||||
function GetCuentaEspecialItems: IBizCuentaEspecial;
|
||||
function GetBalanceItems: IBizBalance;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu
Normal file
BIN
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu
Normal file
Binary file not shown.
743
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
Normal file
743
Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
Normal file
@ -0,0 +1,743 @@
|
||||
unit schContabilidadClient_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_CuentasEspeciales = '{7010703B-8175-4A1E-8756-C0E20C516FFC}';
|
||||
RID_Epigrafes = '{0EE6E73B-71AE-45FD-B91F-3DEC9485EF9C}';
|
||||
RID_Balances = '{C15D38B4-0D4D-4236-90BE-662998D63281}';
|
||||
|
||||
{ Data table names }
|
||||
nme_CuentasEspeciales = 'CuentasEspeciales';
|
||||
nme_Epigrafes = 'Epigrafes';
|
||||
nme_Balances = 'Balances';
|
||||
|
||||
{ CuentasEspeciales fields }
|
||||
fld_CuentasEspecialesID = 'ID';
|
||||
fld_CuentasEspecialesREFERENCIA = 'REFERENCIA';
|
||||
fld_CuentasEspecialesDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ CuentasEspeciales field indexes }
|
||||
idx_CuentasEspecialesID = 0;
|
||||
idx_CuentasEspecialesREFERENCIA = 1;
|
||||
idx_CuentasEspecialesDESCRIPCION = 2;
|
||||
|
||||
{ Epigrafes fields }
|
||||
fld_EpigrafesID = 'ID';
|
||||
fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
|
||||
fld_EpigrafesID_PADRE = 'ID_PADRE';
|
||||
fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
|
||||
fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';
|
||||
|
||||
{ Epigrafes field indexes }
|
||||
idx_EpigrafesID = 0;
|
||||
idx_EpigrafesREF_EPIGRAFE = 1;
|
||||
idx_EpigrafesID_PADRE = 2;
|
||||
idx_EpigrafesDESCRIPCION = 3;
|
||||
idx_EpigrafesID_EJERCICIO = 4;
|
||||
|
||||
{ Balances fields }
|
||||
fld_BalancesID = 'ID';
|
||||
fld_BalancesREF_BALANCE = 'REF_BALANCE';
|
||||
fld_BalancesNATURALEZA = 'NATURALEZA';
|
||||
fld_BalancesNIVEL1 = 'NIVEL1';
|
||||
fld_BalancesDESCRIPCION1 = 'DESCRIPCION1';
|
||||
fld_BalancesNIVEL2 = 'NIVEL2';
|
||||
fld_BalancesDESCRIPCION2 = 'DESCRIPCION2';
|
||||
fld_BalancesNIVEL3 = 'NIVEL3';
|
||||
fld_BalancesDESCRIPCION3 = 'DESCRIPCION3';
|
||||
|
||||
{ Balances field indexes }
|
||||
idx_BalancesID = 0;
|
||||
idx_BalancesREF_BALANCE = 1;
|
||||
idx_BalancesNATURALEZA = 2;
|
||||
idx_BalancesNIVEL1 = 3;
|
||||
idx_BalancesDESCRIPCION1 = 4;
|
||||
idx_BalancesNIVEL2 = 5;
|
||||
idx_BalancesDESCRIPCION2 = 6;
|
||||
idx_BalancesNIVEL3 = 7;
|
||||
idx_BalancesDESCRIPCION3 = 8;
|
||||
|
||||
type
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{B124DFE8-E622-4149-B43F-7E62A28343AF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIAIsNull: Boolean;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{AC7DC016-22AE-41E3-BF12-44D7B8EA6CF6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREF_EPIGRAFEValue: String;
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String);
|
||||
function GetREF_EPIGRAFEIsNull: Boolean;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetID_PADREValue: Integer;
|
||||
procedure SetID_PADREValue(const aValue: Integer);
|
||||
function GetID_PADREIsNull: Boolean;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetID_EJERCICIOValue: Integer;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
||||
property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
end;
|
||||
|
||||
{ TEpigrafesDataTableRules }
|
||||
TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_EPIGRAFEValue: String; virtual;
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
|
||||
function GetREF_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
||||
property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{F479251D-0CF5-4E81-AA80-E5A09CF25400}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREF_BALANCEValue: String;
|
||||
procedure SetREF_BALANCEValue(const aValue: String);
|
||||
function GetREF_BALANCEIsNull: Boolean;
|
||||
procedure SetREF_BALANCEIsNull(const aValue: Boolean);
|
||||
function GetNATURALEZAValue: String;
|
||||
procedure SetNATURALEZAValue(const aValue: String);
|
||||
function GetNATURALEZAIsNull: Boolean;
|
||||
procedure SetNATURALEZAIsNull(const aValue: Boolean);
|
||||
function GetNIVEL1Value: String;
|
||||
procedure SetNIVEL1Value(const aValue: String);
|
||||
function GetNIVEL1IsNull: Boolean;
|
||||
procedure SetNIVEL1IsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCION1Value: String;
|
||||
procedure SetDESCRIPCION1Value(const aValue: String);
|
||||
function GetDESCRIPCION1IsNull: Boolean;
|
||||
procedure SetDESCRIPCION1IsNull(const aValue: Boolean);
|
||||
function GetNIVEL2Value: String;
|
||||
procedure SetNIVEL2Value(const aValue: String);
|
||||
function GetNIVEL2IsNull: Boolean;
|
||||
procedure SetNIVEL2IsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCION2Value: String;
|
||||
procedure SetDESCRIPCION2Value(const aValue: String);
|
||||
function GetDESCRIPCION2IsNull: Boolean;
|
||||
procedure SetDESCRIPCION2IsNull(const aValue: Boolean);
|
||||
function GetNIVEL3Value: String;
|
||||
procedure SetNIVEL3Value(const aValue: String);
|
||||
function GetNIVEL3IsNull: Boolean;
|
||||
procedure SetNIVEL3IsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCION3Value: String;
|
||||
procedure SetDESCRIPCION3Value(const aValue: String);
|
||||
function GetDESCRIPCION3IsNull: Boolean;
|
||||
procedure SetDESCRIPCION3IsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue;
|
||||
property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
|
||||
property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue;
|
||||
property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
|
||||
property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value;
|
||||
property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
|
||||
property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
|
||||
property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
|
||||
property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value;
|
||||
property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
|
||||
property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
|
||||
property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
|
||||
property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value;
|
||||
property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
|
||||
property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
|
||||
property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
|
||||
end;
|
||||
|
||||
{ TBalancesDataTableRules }
|
||||
TBalancesDataTableRules = class(TDADataTableRules, IBalances)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_BALANCEValue: String; virtual;
|
||||
procedure SetREF_BALANCEValue(const aValue: String); virtual;
|
||||
function GetREF_BALANCEIsNull: Boolean; virtual;
|
||||
procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNATURALEZAValue: String; virtual;
|
||||
procedure SetNATURALEZAValue(const aValue: String); virtual;
|
||||
function GetNATURALEZAIsNull: Boolean; virtual;
|
||||
procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL1Value: String; virtual;
|
||||
procedure SetNIVEL1Value(const aValue: String); virtual;
|
||||
function GetNIVEL1IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL1IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION1Value: String; virtual;
|
||||
procedure SetDESCRIPCION1Value(const aValue: String); virtual;
|
||||
function GetDESCRIPCION1IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL2Value: String; virtual;
|
||||
procedure SetNIVEL2Value(const aValue: String); virtual;
|
||||
function GetNIVEL2IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL2IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION2Value: String; virtual;
|
||||
procedure SetDESCRIPCION2Value(const aValue: String); virtual;
|
||||
function GetDESCRIPCION2IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL3Value: String; virtual;
|
||||
procedure SetNIVEL3Value(const aValue: String); virtual;
|
||||
function GetNIVEL3IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL3IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION3Value: String; virtual;
|
||||
procedure SetDESCRIPCION3Value(const aValue: String); virtual;
|
||||
function GetDESCRIPCION3IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_BALANCE: String read GetREF_BALANCEValue write SetREF_BALANCEValue;
|
||||
property REF_BALANCEIsNull: Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
|
||||
property NATURALEZA: String read GetNATURALEZAValue write SetNATURALEZAValue;
|
||||
property NATURALEZAIsNull: Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
|
||||
property NIVEL1: String read GetNIVEL1Value write SetNIVEL1Value;
|
||||
property NIVEL1IsNull: Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
|
||||
property DESCRIPCION1: String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
|
||||
property DESCRIPCION1IsNull: Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
|
||||
property NIVEL2: String read GetNIVEL2Value write SetNIVEL2Value;
|
||||
property NIVEL2IsNull: Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
|
||||
property DESCRIPCION2: String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
|
||||
property DESCRIPCION2IsNull: Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
|
||||
property NIVEL3: String read GetNIVEL3Value write SetNIVEL3Value;
|
||||
property NIVEL3IsNull: Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
|
||||
property DESCRIPCION3: String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
|
||||
property DESCRIPCION3IsNull: Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TCuentasEspecialesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasEspecialesID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasEspecialesID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetREFERENCIAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetREFERENCIAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetREFERENCIAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesREFERENCIA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasEspecialesREFERENCIA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasEspecialesDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEpigrafesDataTableRules }
|
||||
constructor TEpigrafesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TEpigrafesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetREF_EPIGRAFEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetREF_EPIGRAFEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TEpigrafesDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_EpigrafesID_EJERCICIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TBalancesDataTableRules }
|
||||
constructor TBalancesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TBalancesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetREF_BALANCEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesREF_BALANCE].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetREF_BALANCEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesREF_BALANCE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetREF_BALANCEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesREF_BALANCE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetREF_BALANCEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesREF_BALANCE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNATURALEZAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNATURALEZA].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNATURALEZAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesNATURALEZA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNATURALEZAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNATURALEZA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNATURALEZAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesNATURALEZA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL1Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL1].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL1Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesNIVEL1].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL1IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL1].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesNIVEL1].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION1Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION1].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION1Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION1].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION1IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION1].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION1].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL2Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL2].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL2Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesNIVEL2].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL2IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL2].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL2IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesNIVEL2].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION2Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION2].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION2Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION2].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION2IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION2].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION2].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL3Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL3].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL3Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesNIVEL3].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetNIVEL3IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesNIVEL3].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetNIVEL3IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesNIVEL3].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION3Value: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION3].AsString;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION3Value(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION3].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TBalancesDataTableRules.GetDESCRIPCION3IsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_BalancesDESCRIPCION3].IsNull;
|
||||
end;
|
||||
|
||||
procedure TBalancesDataTableRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_BalancesDESCRIPCION3].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
|
||||
RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
|
||||
RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);
|
||||
|
||||
end.
|
||||
860
Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
Normal file
860
Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
Normal file
@ -0,0 +1,860 @@
|
||||
unit schContabilidadServer_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_CuentasEspecialesDelta = '{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}';
|
||||
RID_EpigrafesDelta = '{5515CCA6-9D22-4C9C-BE52-492B6143F817}';
|
||||
RID_BalancesDelta = '{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}';
|
||||
|
||||
type
|
||||
{ ICuentasEspecialesDelta }
|
||||
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
||||
['{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
{ TCuentasEspecialesBusinessProcessorRules }
|
||||
TCuentasEspecialesBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentasEspeciales, ICuentasEspecialesDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IEpigrafesDelta }
|
||||
IEpigrafesDelta = interface(IEpigrafes)
|
||||
['{5515CCA6-9D22-4C9C-BE52-492B6143F817}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_EPIGRAFEValue : String;
|
||||
function GetOldID_PADREValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
end;
|
||||
|
||||
{ TEpigrafesBusinessProcessorRules }
|
||||
TEpigrafesBusinessProcessorRules = class(TDABusinessProcessorRules, IEpigrafes, IEpigrafesDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_EPIGRAFEValue: String; virtual;
|
||||
function GetREF_EPIGRAFEIsNull: Boolean; virtual;
|
||||
function GetOldREF_EPIGRAFEValue: String; virtual;
|
||||
function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
|
||||
procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_PADREValue: Integer; virtual;
|
||||
function GetID_PADREIsNull: Boolean; virtual;
|
||||
function GetOldID_PADREValue: Integer; virtual;
|
||||
function GetOldID_PADREIsNull: Boolean; virtual;
|
||||
procedure SetID_PADREValue(const aValue: Integer); virtual;
|
||||
procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
function GetOldID_EJERCICIOValue: Integer; virtual;
|
||||
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property REF_EPIGRAFE : String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
|
||||
property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
|
||||
property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
|
||||
property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
|
||||
property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
|
||||
property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
|
||||
property OldID_PADRE : Integer read GetOldID_PADREValue;
|
||||
property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IBalancesDelta }
|
||||
IBalancesDelta = interface(IBalances)
|
||||
['{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_BALANCEValue : String;
|
||||
function GetOldNATURALEZAValue : String;
|
||||
function GetOldNIVEL1Value : String;
|
||||
function GetOldDESCRIPCION1Value : String;
|
||||
function GetOldNIVEL2Value : String;
|
||||
function GetOldDESCRIPCION2Value : String;
|
||||
function GetOldNIVEL3Value : String;
|
||||
function GetOldDESCRIPCION3Value : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
|
||||
property OldNATURALEZA : String read GetOldNATURALEZAValue;
|
||||
property OldNIVEL1 : String read GetOldNIVEL1Value;
|
||||
property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
|
||||
property OldNIVEL2 : String read GetOldNIVEL2Value;
|
||||
property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
|
||||
property OldNIVEL3 : String read GetOldNIVEL3Value;
|
||||
property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
|
||||
end;
|
||||
|
||||
{ TBalancesBusinessProcessorRules }
|
||||
TBalancesBusinessProcessorRules = class(TDABusinessProcessorRules, IBalances, IBalancesDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_BALANCEValue: String; virtual;
|
||||
function GetREF_BALANCEIsNull: Boolean; virtual;
|
||||
function GetOldREF_BALANCEValue: String; virtual;
|
||||
function GetOldREF_BALANCEIsNull: Boolean; virtual;
|
||||
procedure SetREF_BALANCEValue(const aValue: String); virtual;
|
||||
procedure SetREF_BALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNATURALEZAValue: String; virtual;
|
||||
function GetNATURALEZAIsNull: Boolean; virtual;
|
||||
function GetOldNATURALEZAValue: String; virtual;
|
||||
function GetOldNATURALEZAIsNull: Boolean; virtual;
|
||||
procedure SetNATURALEZAValue(const aValue: String); virtual;
|
||||
procedure SetNATURALEZAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL1Value: String; virtual;
|
||||
function GetNIVEL1IsNull: Boolean; virtual;
|
||||
function GetOldNIVEL1Value: String; virtual;
|
||||
function GetOldNIVEL1IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL1Value(const aValue: String); virtual;
|
||||
procedure SetNIVEL1IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION1Value: String; virtual;
|
||||
function GetDESCRIPCION1IsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCION1Value: String; virtual;
|
||||
function GetOldDESCRIPCION1IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION1Value(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCION1IsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL2Value: String; virtual;
|
||||
function GetNIVEL2IsNull: Boolean; virtual;
|
||||
function GetOldNIVEL2Value: String; virtual;
|
||||
function GetOldNIVEL2IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL2Value(const aValue: String); virtual;
|
||||
procedure SetNIVEL2IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION2Value: String; virtual;
|
||||
function GetDESCRIPCION2IsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCION2Value: String; virtual;
|
||||
function GetOldDESCRIPCION2IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION2Value(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCION2IsNull(const aValue: Boolean); virtual;
|
||||
function GetNIVEL3Value: String; virtual;
|
||||
function GetNIVEL3IsNull: Boolean; virtual;
|
||||
function GetOldNIVEL3Value: String; virtual;
|
||||
function GetOldNIVEL3IsNull: Boolean; virtual;
|
||||
procedure SetNIVEL3Value(const aValue: String); virtual;
|
||||
procedure SetNIVEL3IsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCION3Value: String; virtual;
|
||||
function GetDESCRIPCION3IsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCION3Value: String; virtual;
|
||||
function GetOldDESCRIPCION3IsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCION3Value(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCION3IsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property REF_BALANCE : String read GetREF_BALANCEValue write SetREF_BALANCEValue;
|
||||
property REF_BALANCEIsNull : Boolean read GetREF_BALANCEIsNull write SetREF_BALANCEIsNull;
|
||||
property OldREF_BALANCE : String read GetOldREF_BALANCEValue;
|
||||
property OldREF_BALANCEIsNull : Boolean read GetOldREF_BALANCEIsNull;
|
||||
property NATURALEZA : String read GetNATURALEZAValue write SetNATURALEZAValue;
|
||||
property NATURALEZAIsNull : Boolean read GetNATURALEZAIsNull write SetNATURALEZAIsNull;
|
||||
property OldNATURALEZA : String read GetOldNATURALEZAValue;
|
||||
property OldNATURALEZAIsNull : Boolean read GetOldNATURALEZAIsNull;
|
||||
property NIVEL1 : String read GetNIVEL1Value write SetNIVEL1Value;
|
||||
property NIVEL1IsNull : Boolean read GetNIVEL1IsNull write SetNIVEL1IsNull;
|
||||
property OldNIVEL1 : String read GetOldNIVEL1Value;
|
||||
property OldNIVEL1IsNull : Boolean read GetOldNIVEL1IsNull;
|
||||
property DESCRIPCION1 : String read GetDESCRIPCION1Value write SetDESCRIPCION1Value;
|
||||
property DESCRIPCION1IsNull : Boolean read GetDESCRIPCION1IsNull write SetDESCRIPCION1IsNull;
|
||||
property OldDESCRIPCION1 : String read GetOldDESCRIPCION1Value;
|
||||
property OldDESCRIPCION1IsNull : Boolean read GetOldDESCRIPCION1IsNull;
|
||||
property NIVEL2 : String read GetNIVEL2Value write SetNIVEL2Value;
|
||||
property NIVEL2IsNull : Boolean read GetNIVEL2IsNull write SetNIVEL2IsNull;
|
||||
property OldNIVEL2 : String read GetOldNIVEL2Value;
|
||||
property OldNIVEL2IsNull : Boolean read GetOldNIVEL2IsNull;
|
||||
property DESCRIPCION2 : String read GetDESCRIPCION2Value write SetDESCRIPCION2Value;
|
||||
property DESCRIPCION2IsNull : Boolean read GetDESCRIPCION2IsNull write SetDESCRIPCION2IsNull;
|
||||
property OldDESCRIPCION2 : String read GetOldDESCRIPCION2Value;
|
||||
property OldDESCRIPCION2IsNull : Boolean read GetOldDESCRIPCION2IsNull;
|
||||
property NIVEL3 : String read GetNIVEL3Value write SetNIVEL3Value;
|
||||
property NIVEL3IsNull : Boolean read GetNIVEL3IsNull write SetNIVEL3IsNull;
|
||||
property OldNIVEL3 : String read GetOldNIVEL3Value;
|
||||
property OldNIVEL3IsNull : Boolean read GetOldNIVEL3IsNull;
|
||||
property DESCRIPCION3 : String read GetDESCRIPCION3Value write SetDESCRIPCION3Value;
|
||||
property DESCRIPCION3IsNull : Boolean read GetDESCRIPCION3IsNull write SetDESCRIPCION3IsNull;
|
||||
property OldDESCRIPCION3 : String read GetOldDESCRIPCION3Value;
|
||||
property OldDESCRIPCION3IsNull : Boolean read GetOldDESCRIPCION3IsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TCuentasEspecialesBusinessProcessorRules }
|
||||
constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TCuentasEspecialesBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID]);
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesID]);
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesID] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA]);
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesREFERENCIA]);
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesREFERENCIA] := Null;
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TCuentasEspecialesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEspecialesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TCuentasEspecialesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEspecialesDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEpigrafesBusinessProcessorRules }
|
||||
constructor TEpigrafesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TEpigrafesBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetREF_EPIGRAFEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldREF_EPIGRAFEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesREF_EPIGRAFE]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetREF_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO]);
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO];
|
||||
end;
|
||||
|
||||
function TEpigrafesBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_EJERCICIO]);
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TBalancesBusinessProcessorRules }
|
||||
constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TBalancesBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesID]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesID] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetREF_BALANCEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetREF_BALANCEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldREF_BALANCEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesREF_BALANCE]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetREF_BALANCEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesREF_BALANCE] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNATURALEZAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNATURALEZAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNATURALEZAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNATURALEZAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNATURALEZA]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNATURALEZAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNATURALEZAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNATURALEZA] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL1Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL1Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL1]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL1Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL1] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION1Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION1IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION1]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION1IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION1] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL2Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL2IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL2Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL2IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL2]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL2Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL2IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL2] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION2Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION2IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION2IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION2]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION2IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION2] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL3Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetNIVEL3IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL3Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldNIVEL3IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesNIVEL3]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL3Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetNIVEL3IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesNIVEL3] := Null;
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION3Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetDESCRIPCION3IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3]);
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3Value: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3];
|
||||
end;
|
||||
|
||||
function TBalancesBusinessProcessorRules.GetOldDESCRIPCION3IsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_BalancesDESCRIPCION3]);
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3Value(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := aValue;
|
||||
end;
|
||||
|
||||
procedure TBalancesBusinessProcessorRules.SetDESCRIPCION3IsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_BalancesDESCRIPCION3] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
|
||||
|
||||
end.
|
||||
54
Source/Modulos/Contabilidad/Model/uBizBalances.pas
Normal file
54
Source/Modulos/Contabilidad/Model/uBizBalances.pas
Normal file
@ -0,0 +1,54 @@
|
||||
unit uBizBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Balance = 'Client.Balance';
|
||||
|
||||
type
|
||||
IBizBalance = interface(IBalances)
|
||||
['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizBalance = class(TBalancesDataTableRules, IBizBalance)
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresBalanceNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizBalance }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
function TBizBalance.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizBalance.IniciarValoresBalanceNueva;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TBizBalance.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
IniciarValoresBalanceNueva;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Balance, TBizBalance);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
54
Source/Modulos/Contabilidad/Model/uBizCuentasEspeciales.pas
Normal file
54
Source/Modulos/Contabilidad/Model/uBizCuentasEspeciales.pas
Normal file
@ -0,0 +1,54 @@
|
||||
unit uBizCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_CuentaEspecial = 'Client.CuentaEspecial';
|
||||
|
||||
type
|
||||
IBizCuentaEspecial = interface(ICuentasEspeciales)
|
||||
['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial)
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresCuentaEspecialNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizCuentaEspecial }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
function TBizCuentaEspecial.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizCuentaEspecial.IniciarValoresCuentaEspecialNueva;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TBizCuentaEspecial.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
IniciarValoresCuentaEspecialNueva;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_CuentaEspecial, TBizCuentaEspecial);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
54
Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
Normal file
54
Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
Normal file
@ -0,0 +1,54 @@
|
||||
unit uBizEpigrafes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_Epigrafe = 'Client.Epigrafe';
|
||||
|
||||
type
|
||||
IBizEpigrafe = interface(IEpigrafes)
|
||||
['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe)
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresEpigrafeNueva;
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizEpigrafe }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
function TBizEpigrafe.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizEpigrafe.IniciarValoresEpigrafeNueva;
|
||||
begin
|
||||
ID_EJERCICIO := 5//AppFactuGES.EmpresaActiva.EjercicioActivo.ID;
|
||||
end;
|
||||
|
||||
procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
IniciarValoresEpigrafeNueva;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Epigrafe, TBizEpigrafe);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
46
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.dpk
Normal file
46
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.dpk
Normal file
@ -0,0 +1,46 @@
|
||||
package Contabilidad_plugin;
|
||||
|
||||
{$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 ON}
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
PluginSDK_D10R,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
Contabilidad_view,
|
||||
Contabilidad_controller,
|
||||
Contabilidad_model;
|
||||
|
||||
contains
|
||||
uPluginContabilidad in 'uPluginContabilidad.pas';
|
||||
|
||||
end.
|
||||
549
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.dproj
Normal file
549
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.dproj
Normal file
@ -0,0 +1,549 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{82e36812-58c4-491b-b463-6b951e95da51}</ProjectGuid>
|
||||
<MainSource>Contabilidad_plugin.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Contabilidad_plugin.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>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_plugin.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="Contabilidad_view.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uPluginContabilidad.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</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=0
|
||||
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 -->
|
||||
BIN
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res
Normal file
BIN
Source/Modulos/Contabilidad/Plugin/Contabilidad_plugin.res
Normal file
Binary file not shown.
100
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
Normal file
100
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
Normal file
@ -0,0 +1,100 @@
|
||||
object PluginContabilidad: TPluginContabilidad
|
||||
OldCreateOrder = True
|
||||
DefaultAction = actEpigrafes
|
||||
Description = 'Contabilidad'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Contabilidad'
|
||||
SmallImages = SmallImages
|
||||
LargeImages = SmallImages
|
||||
Author = 'Rodax Software'
|
||||
Version = '1.0.0'
|
||||
Height = 252
|
||||
Width = 401
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <>
|
||||
Left = 232
|
||||
Top = 16
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actEpigrafes: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Epigrafes'
|
||||
ImageIndex = 0
|
||||
OnExecute = actEpigrafesExecute
|
||||
end
|
||||
object actBalances: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Balances'
|
||||
OnExecute = actBalancesExecute
|
||||
end
|
||||
object actCuentasEspeciales: TAction
|
||||
Category = 'Contabilidad'
|
||||
Caption = 'Cuentas especiales'
|
||||
OnExecute = actCuentasEspecialesExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Contabilidad1: TMenuItem
|
||||
Caption = 'Contabilidad'
|
||||
object N1: TMenuItem
|
||||
Tag = 18990
|
||||
Caption = '-'
|
||||
end
|
||||
object Epigrafes1: TMenuItem
|
||||
Tag = 19002
|
||||
Action = actEpigrafes
|
||||
end
|
||||
end
|
||||
object Contabilidad2: TMenuItem
|
||||
Caption = 'Empresa'
|
||||
object Balances1: TMenuItem
|
||||
Action = actBalances
|
||||
end
|
||||
object Cuentasespeciales1: TMenuItem
|
||||
Action = actCuentasEspeciales
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6
|
||||
B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77
|
||||
EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5
|
||||
E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D
|
||||
6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D
|
||||
C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6
|
||||
4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141
|
||||
4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15
|
||||
F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334
|
||||
2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524
|
||||
15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256
|
||||
20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4
|
||||
3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F
|
||||
E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ExtraImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <>
|
||||
Left = 232
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
102
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
Normal file
102
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
Normal file
@ -0,0 +1,102 @@
|
||||
unit uPluginContabilidad;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
|
||||
type
|
||||
IMCContabilidad = interface(IInterface)
|
||||
['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}']
|
||||
end;
|
||||
|
||||
TPluginContabilidad = class(TModuleController, IMCContabilidad)
|
||||
actEpigrafes: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Contabilidad1: TMenuItem;
|
||||
Epigrafes1: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
actBalances: TAction;
|
||||
actCuentasEspeciales: TAction;
|
||||
Contabilidad2: TMenuItem;
|
||||
Balances1: TMenuItem;
|
||||
Cuentasespeciales1: TMenuItem;
|
||||
procedure actEpigrafesExecute(Sender: TObject);
|
||||
procedure actBalancesExecute(Sender: TObject);
|
||||
procedure actCuentasEspecialesExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uEpigrafesController, uBalancesController, uCuentasEspecialesController,
|
||||
uBizEpigrafes, uBizBalances, uBizCuentasEspeciales, uContabilidadViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginContabilidad.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginContabilidad.actBalancesExecute(Sender: TObject);
|
||||
var
|
||||
ABalancesController : IBalancesController;
|
||||
ABalances : IBizBalance;
|
||||
begin
|
||||
ABalancesController := TBalancesController.Create;
|
||||
ABalances := (ABalancesController.BuscarTodos as IBizBalance);
|
||||
ABalancesController.VerTodos(ABalances);
|
||||
end;
|
||||
|
||||
procedure TPluginContabilidad.actCuentasEspecialesExecute(Sender: TObject);
|
||||
var
|
||||
ACuentasEspecialesController : ICuentasEspecialesController;
|
||||
ACuentasEspeciales : IBizCuentaEspecial;
|
||||
begin
|
||||
ACuentasEspecialesController := TCuentasEspecialesController.Create;
|
||||
ACuentasEspeciales := (ACuentasEspecialesController.BuscarTodos as IBizCuentaEspecial);
|
||||
ACuentasEspecialesController.VerTodos(ACuentasEspeciales);
|
||||
end;
|
||||
|
||||
procedure TPluginContabilidad.actEpigrafesExecute(Sender: TObject);
|
||||
var
|
||||
AEpigrafesController : IEpigrafesController;
|
||||
AEpigrafes : IBizEpigrafe;
|
||||
begin
|
||||
AEpigrafesController := TEpigrafesController.Create;
|
||||
AEpigrafes := (AEpigrafesController.BuscarTodos as IBizEpigrafe);
|
||||
AEpigrafesController.VerTodos(AEpigrafes);
|
||||
end;
|
||||
|
||||
constructor TPluginContabilidad.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uContabilidadViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
destructor TPluginContabilidad.Destroy;
|
||||
begin
|
||||
uContabilidadViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginContabilidad);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginContabilidad);
|
||||
|
||||
end.
|
||||
344
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
Normal file
344
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
Normal file
@ -0,0 +1,344 @@
|
||||
object srvContabilidad: TsrvContabilidad
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
SessionManager = dmServer.SessionManager
|
||||
ServiceSchema = schContabilidad
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 181
|
||||
Width = 282
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 90
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="Balances" Left="0,00' +
|
||||
'" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'Ejercicios_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_BALANCES_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Balances_REF_BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Balances_NATURALEZA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Balances_NIVEL1'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'Balances_DESCRIPCION1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Balances_NIVEL2'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'Balances_DESCRIPCION2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Balances_NIVEL3'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'Balances_DESCRIPCION3'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_REF_EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_ID_PADRE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'CuentasEspeciales_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'CuentasEspeciales_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
end
|
||||
item
|
||||
Name = 'CuentasEspeciales_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
end
|
||||
object schContabilidad: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS_ESPECIALES'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'CuentasEspeciales'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ESP_ID'
|
||||
DictionaryEntry = 'CuentasEspeciales_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
DictionaryEntry = 'CuentasEspeciales_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'CuentasEspeciales_DESCRIPCION'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_EPIGRAFES'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_EPIGRAFE'
|
||||
TableField = 'REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PADRE'
|
||||
TableField = 'ID_PADRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end>
|
||||
end>
|
||||
Name = 'Epigrafes'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_EPIGRAFE'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PADRE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Epigrafes_ID_PADRE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Epigrafes_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'CONT_BALANCES'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_BALANCE'
|
||||
TableField = 'REF_BALANCE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NATURALEZA'
|
||||
TableField = 'NATURALEZA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIVEL1'
|
||||
TableField = 'NIVEL1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION1'
|
||||
TableField = 'DESCRIPCION1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIVEL2'
|
||||
TableField = 'NIVEL2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION2'
|
||||
TableField = 'DESCRIPCION2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIVEL3'
|
||||
TableField = 'NIVEL3'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION3'
|
||||
TableField = 'DESCRIPCION3'
|
||||
end>
|
||||
end>
|
||||
Name = 'Balances'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_BALANCES_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Ejercicios_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_BALANCE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Balances_REF_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'NATURALEZA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Balances_NATURALEZA'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL1'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'Balances_NIVEL1'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Balances_DESCRIPCION1'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL2'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'Balances_NIVEL2'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Balances_DESCRIPCION2'
|
||||
end
|
||||
item
|
||||
Name = 'NIVEL3'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'Balances_NIVEL3'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION3'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Balances_DESCRIPCION3'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,64 @@
|
||||
unit srvContabilidad_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
||||
uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer,
|
||||
uDABin2DataStreamer;
|
||||
|
||||
type
|
||||
{ TsrvContabilidad }
|
||||
TsrvContabilidad = class(TDataAbstractService, IsrvContabilidad)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schContabilidad: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||
var aConnectionName: string);
|
||||
private
|
||||
protected
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer,
|
||||
uDatabaseUtils;
|
||||
|
||||
procedure Create_srvContabilidad(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvContabilidad.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvContabilidad }
|
||||
procedure TsrvContabilidad.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
procedure TsrvContabilidad.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvContabilidad', Create_srvContabilidad, TsrvContabilidad_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
91
Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk
Normal file
91
Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk
Normal file
@ -0,0 +1,91 @@
|
||||
package Contabilidad_view;
|
||||
|
||||
{$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 ON}
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contabilidad_model,
|
||||
Contabilidad_controller,
|
||||
vcl,
|
||||
rtl,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
DataAbstract_Core_D11,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
cxEditorsD10,
|
||||
cxDataD10,
|
||||
vcljpg,
|
||||
cxGridD10,
|
||||
cxPageControlD10,
|
||||
cxExtEditorsD10,
|
||||
vclx,
|
||||
cxExportD10,
|
||||
dxLayoutControlD10,
|
||||
dxComnD10,
|
||||
dxPSCoreD10,
|
||||
dxPScxCommonD10,
|
||||
dxPSLnksD10,
|
||||
designide,
|
||||
xmlrtl,
|
||||
vclactnband,
|
||||
vclshlctrls,
|
||||
dxPScxGridLnkD10,
|
||||
dclcxLibraryD10,
|
||||
PNG_D10,
|
||||
PngComponentsD10,
|
||||
tb2k_d10,
|
||||
tbx_d10,
|
||||
JvCoreD11R,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvSystemD11R,
|
||||
JvStdCtrlsD11R,
|
||||
JvAppFrmD11R,
|
||||
JvCtrlsD11R,
|
||||
JvCmpD11R,
|
||||
JvPageCompsD11R,
|
||||
cxIntlPrintSys3D10,
|
||||
GUISDK_D11,
|
||||
cfpack_d11,
|
||||
ccpackD11;
|
||||
|
||||
contains
|
||||
uEditorBalance in 'uEditorBalance.pas' {fEditorBalance: TfEditorBalances},
|
||||
uEditorBalances in 'uEditorBalances.pas' {fEditorBalances: TfEditorCuentaEspecial},
|
||||
uEditorCuentaEspecial in 'uEditorCuentaEspecial.pas' {fEditorCuentaEspecial: TfEditorCuentasEspeciales},
|
||||
uEditorCuentasEspeciales in 'uEditorCuentasEspeciales.pas' {fEditorCuentasEspeciales: TfEditorEjercicios},
|
||||
uEditorEpigrafe in 'uEditorEpigrafe.pas' {fEditorEpigrafe: TfEditorEjercicios},
|
||||
uEditorEpigrafes in 'uEditorEpigrafes.pas' {fEditorEpigrafes: TfEditorEjercicios},
|
||||
uViewEpigrafe in 'uViewEpigrafe.pas' {frViewEpigrafe: TFrame},
|
||||
uViewEpigrafes in 'uViewEpigrafes.pas' {frViewEpigrafes: TFrame},
|
||||
uContabilidadViewRegister in 'uContabilidadViewRegister.pas';
|
||||
|
||||
end.
|
||||
618
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
Normal file
618
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
Normal file
@ -0,0 +1,618 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
|
||||
<MainSource>Contabilidad_view.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Contabilidad_view.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>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contabilidad_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Contabilidad_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="cxDataD10.dcp" />
|
||||
<DCCReference Include="cxEditorsD10.dcp" />
|
||||
<DCCReference Include="cxExportD10.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD10.dcp" />
|
||||
<DCCReference Include="cxGridD10.dcp" />
|
||||
<DCCReference Include="cxIntlPrintSys3D10.dcp" />
|
||||
<DCCReference Include="cxLibraryD10.dcp" />
|
||||
<DCCReference Include="cxPageControlD10.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD10.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD10.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD10.dcp" />
|
||||
<DCCReference Include="dxPSCoreD10.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD10.dcp" />
|
||||
<DCCReference Include="dxPScxGridLnkD10.dcp" />
|
||||
<DCCReference Include="dxPSLnksD10.dcp" />
|
||||
<DCCReference Include="dxThemeD10.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="JvCmpD11R.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uContabilidadViewRegister.pas" />
|
||||
<DCCReference Include="uEditorBalance.pas">
|
||||
<Form>fEditorBalance</Form>
|
||||
<DesignClass>TfEditorBalances</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorBalances.pas">
|
||||
<Form>fEditorBalances</Form>
|
||||
<DesignClass>TfEditorCuentaEspecial</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorCuentaEspecial.pas">
|
||||
<Form>fEditorCuentaEspecial</Form>
|
||||
<DesignClass>TfEditorCuentasEspeciales</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorCuentasEspeciales.pas">
|
||||
<Form>fEditorCuentasEspeciales</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorEpigrafe.pas">
|
||||
<Form>fEditorEpigrafe</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorEpigrafes.pas">
|
||||
<Form>fEditorEpigrafes</Form>
|
||||
<DesignClass>TfEditorEjercicios</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewEpigrafe.pas">
|
||||
<Form>frViewEpigrafe</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewEpigrafes.pas">
|
||||
<Form>frViewEpigrafes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</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=0
|
||||
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 -->
|
||||
BIN
Source/Modulos/Contabilidad/Views/Contabilidad_view.res
Normal file
BIN
Source/Modulos/Contabilidad/Views/Contabilidad_view.res
Normal file
Binary file not shown.
@ -0,0 +1,34 @@
|
||||
unit uContabilidadViewRegister;
|
||||
|
||||
interface
|
||||
|
||||
procedure RegisterViews;
|
||||
procedure UnregisterViews;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorBalance, uEditorBalances, uEditorCuentaEspecial, uEditorCuentasEspeciales,
|
||||
uEditorEpigrafe, uEditorEpigrafes;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorBalances, 'EditorBalances');
|
||||
EditorRegistry.RegisterClass(TfEditorBalance, 'EditorBalance');
|
||||
EditorRegistry.RegisterClass(TfEditorCuentasEspeciales, 'EditorCuentasEspeciales');
|
||||
EditorRegistry.RegisterClass(TfEditorCuentaEspecial, 'EditorCuentaEspecial');
|
||||
EditorRegistry.RegisterClass(TfEditorEpigrafes, 'EditorEpigrafes');
|
||||
EditorRegistry.RegisterClass(TfEditorEpigrafe, 'EditorEpigrafe');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorBalances);
|
||||
EditorRegistry.UnRegisterClass(TfEditorBalance);
|
||||
EditorRegistry.UnRegisterClass(TfEditorCuentasEspeciales);
|
||||
EditorRegistry.UnRegisterClass(TfEditorCuentaEspecial);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEpigrafes);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEpigrafe);
|
||||
end;
|
||||
|
||||
end.
|
||||
248
Source/Modulos/Contabilidad/Views/uEditorBalance.dfm
Normal file
248
Source/Modulos/Contabilidad/Views/uEditorBalance.dfm
Normal file
@ -0,0 +1,248 @@
|
||||
object fEditorBalance: TfEditorBalance
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = eReferencia
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Balance'
|
||||
ClientHeight = 352
|
||||
ClientWidth = 404
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Top = 17
|
||||
Width = 104
|
||||
Height = 13
|
||||
Caption = 'Datos del balance'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 173
|
||||
Top = 17
|
||||
Width = 212
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 62
|
||||
Top = 43
|
||||
Width = 55
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Referencia:'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 63
|
||||
Top = 71
|
||||
Width = 54
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Naturaleza:'
|
||||
end
|
||||
object Bevel4: TBevel
|
||||
Left = 8
|
||||
Top = 290
|
||||
Width = 388
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object JvEnterAsTab1: TJvEnterAsTab
|
||||
Left = 137
|
||||
Top = 306
|
||||
Width = 28
|
||||
Height = 28
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 84
|
||||
Top = 98
|
||||
Width = 33
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Nivel1:'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 52
|
||||
Top = 125
|
||||
Width = 65
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Descripci'#243'n1:'
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 84
|
||||
Top = 152
|
||||
Width = 33
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Nivel2:'
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 52
|
||||
Top = 179
|
||||
Width = 65
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Descripci'#243'n2:'
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 84
|
||||
Top = 206
|
||||
Width = 33
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Nivel3:'
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 52
|
||||
Top = 233
|
||||
Width = 65
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Descripci'#243'n3:'
|
||||
end
|
||||
object bAceptar: TButton
|
||||
Left = 234
|
||||
Top = 314
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
TabOrder = 2
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 319
|
||||
Top = 314
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object eReferencia: TDBEdit
|
||||
Left = 123
|
||||
Top = 40
|
||||
Width = 118
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'REF_BALANCE'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 0
|
||||
end
|
||||
object eNaturaleza: TDBEdit
|
||||
Left = 123
|
||||
Top = 68
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'NATURALEZA'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 1
|
||||
end
|
||||
object eNivel1: TDBEdit
|
||||
Left = 123
|
||||
Top = 95
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'NIVEL1'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 4
|
||||
end
|
||||
object eDescripcion1: TDBEdit
|
||||
Left = 123
|
||||
Top = 122
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION1'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 5
|
||||
end
|
||||
object eNivel2: TDBEdit
|
||||
Left = 123
|
||||
Top = 149
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'NIVEL2'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 6
|
||||
end
|
||||
object eDescripcion2: TDBEdit
|
||||
Left = 123
|
||||
Top = 176
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION2'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 7
|
||||
end
|
||||
object eNivel3: TDBEdit
|
||||
Left = 123
|
||||
Top = 203
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'NIVEL3'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 8
|
||||
end
|
||||
object eDescripcion3: TDBEdit
|
||||
Left = 123
|
||||
Top = 230
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION3'
|
||||
DataSource = dsBalances
|
||||
TabOrder = 9
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 88
|
||||
Top = 300
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = '&Guardar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
object actModificar: TAction
|
||||
Caption = '&Modificar'
|
||||
end
|
||||
end
|
||||
object dsBalances: TDADataSource
|
||||
Left = 48
|
||||
Top = 300
|
||||
end
|
||||
end
|
||||
190
Source/Modulos/Contabilidad/Views/uEditorBalance.pas
Normal file
190
Source/Modulos/Contabilidad/Views/uEditorBalance.pas
Normal file
@ -0,0 +1,190 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. 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: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorBalance;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB,
|
||||
uBizBalances, uBalancesController,
|
||||
uDADataTable, uIEditorBalance, ActnList, ExtCtrls, JvExControls,
|
||||
JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGrid, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorBalance = class(TForm, IEditorBalance)
|
||||
ActionList1: TActionList;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
actModificar: TAction;
|
||||
eReferencia: TDBEdit;
|
||||
eNaturaleza: TDBEdit;
|
||||
dsBalances: TDADataSource;
|
||||
Label1: TLabel;
|
||||
Bevel1: TBevel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Bevel4: TBevel;
|
||||
JvEnterAsTab1: TJvEnterAsTab;
|
||||
eNivel1: TDBEdit;
|
||||
eDescripcion1: TDBEdit;
|
||||
eNivel2: TDBEdit;
|
||||
eDescripcion2: TDBEdit;
|
||||
eNivel3: TDBEdit;
|
||||
eDescripcion3: TDBEdit;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
protected
|
||||
FBalance: IBizBalance;
|
||||
FController : IBalancesController;
|
||||
function GetBalance: IBizBalance;
|
||||
procedure SetBalance(const Value: IBizBalance);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Balance: IBizBalance read GetBalance write SetBalance;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorBalances }
|
||||
|
||||
uses
|
||||
Dialogs, uDialogUtils;
|
||||
|
||||
function TfEditorBalance.GetBalance: IBizBalance;
|
||||
begin
|
||||
Result := FBalance;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.SetBalance(const Value: IBizBalance);
|
||||
begin
|
||||
FBalance := Value;
|
||||
if Assigned(FBalance) then
|
||||
begin
|
||||
dsBalances.DataTable := FBalance.DataTable;
|
||||
dsBalances.DataTable.Open;
|
||||
end
|
||||
else begin
|
||||
dsBalances.DataTable := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
// FPlazos.Append;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
// FPlazos.Delete;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
(Sender as TAction).Enabled := Assigned(FPlazos) and
|
||||
FPlazos.DataTable.Active and
|
||||
(FPlazos.DataTable.RecordCount > 0);
|
||||
}
|
||||
end;
|
||||
|
||||
constructor TfEditorBalance.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FController := TBalancesController.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorBalance.Destroy;
|
||||
begin
|
||||
FBalance := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
if (ListaBalances.ActiveView.DataController.RecordCount = 0) then
|
||||
if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then
|
||||
Exit;
|
||||
}
|
||||
if FController.Guardar(FBalance) then
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
FController.DescartarCambios(FBalance);
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
(Sender as TAction).Enabled := Assigned(FPlazos) and
|
||||
FPlazos.DataTable.Active;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorBalance.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FBalance.DataTable.Active then
|
||||
FBalance.DataTable.Active := True;
|
||||
|
||||
if FBalance.EsNuevo then
|
||||
Self.Caption := 'Nueva forma de pago'
|
||||
else
|
||||
Self.Caption := 'Modificar forma de pago';
|
||||
end;
|
||||
|
||||
end.
|
||||
177
Source/Modulos/Contabilidad/Views/uEditorBalances.dfm
Normal file
177
Source/Modulos/Contabilidad/Views/uEditorBalances.dfm
Normal file
@ -0,0 +1,177 @@
|
||||
object fEditorBalances: TfEditorBalances
|
||||
Left = 453
|
||||
Top = 234
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Lista de balances'
|
||||
ClientHeight = 406
|
||||
ClientWidth = 959
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bAceptar: TButton
|
||||
Left = 236
|
||||
Top = 373
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 321
|
||||
Top = 373
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 959
|
||||
Height = 406
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitWidth = 573
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Balances'
|
||||
ExplicitWidth = 565
|
||||
object Label1: TLabel
|
||||
Left = 6
|
||||
Top = 12
|
||||
Width = 138
|
||||
Height = 13
|
||||
Caption = 'Lista de balances disponibles'
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 853
|
||||
Top = 90
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 0
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 853
|
||||
Top = 31
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 853
|
||||
Top = 61
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actModificar
|
||||
TabOrder = 2
|
||||
end
|
||||
object ListaBalances: TDBGrid
|
||||
Left = 3
|
||||
Top = 31
|
||||
Width = 844
|
||||
Height = 289
|
||||
DataSource = dsBalances
|
||||
Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
|
||||
TabOrder = 3
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'MS Sans Serif'
|
||||
TitleFont.Style = []
|
||||
Columns = <
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'REF_BALANCE'
|
||||
Title.Caption = 'Referencia'
|
||||
Width = 110
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'NATURALEZA'
|
||||
Title.Caption = 'Descripci'#243'n'
|
||||
Width = 154
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'NIVEL1'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'DESCRIPCION1'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'NIVEL2'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'DESCRIPCION2'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'NIVEL3'
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'DESCRIPCION3'
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 144
|
||||
Top = 16
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir...'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = 'A&ceptar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
object actModificar: TAction
|
||||
Caption = '&Modificar...'
|
||||
OnExecute = actModificarExecute
|
||||
OnUpdate = actModificarUpdate
|
||||
end
|
||||
end
|
||||
object dsBalances: TDADataSource
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
184
Source/Modulos/Contabilidad/Views/uEditorBalances.pas
Normal file
184
Source/Modulos/Contabilidad/Views/uEditorBalances.pas
Normal file
@ -0,0 +1,184 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. 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: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorBalances;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
uIEditorBalances, uBizBalances, uBalancesController, DB, uDADataTable,
|
||||
ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces, Mask, DBCtrls;
|
||||
|
||||
type
|
||||
TfEditorBalances = class(TForm, IEditorBalances)
|
||||
ActionList1: TActionList;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
bEliminar: TButton;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
Label1: TLabel;
|
||||
bAnadir: TButton;
|
||||
actModificar: TAction;
|
||||
Button1: TButton;
|
||||
dsBalances: TDADataSource;
|
||||
ListaBalances: TDBGrid;
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actModificarExecute(Sender: TObject);
|
||||
procedure ListaBalancesDblClick(Sender: TObject);
|
||||
procedure actModificarUpdate(Sender: TObject);
|
||||
protected
|
||||
FBalances: IBizBalance;
|
||||
FController: IBalancesController;
|
||||
function GetBalances: IBizBalance;
|
||||
procedure SetBalances(const Value: IBizBalance);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Balances: IBizBalance read GetBalances write SetBalances;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorBalances }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
function TfEditorBalances.GetBalances: IBizBalance;
|
||||
begin
|
||||
Result := FBalances;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.ListaBalancesDblClick(Sender: TObject);
|
||||
begin
|
||||
// ListaBalances.SelectedIndex
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.SetBalances(const Value: IBizBalance);
|
||||
begin
|
||||
FBalances := Value;
|
||||
dsBalances.DataTable := (FBalances as IBizBalance).DataTable;
|
||||
dsBalances.DataTable.Open;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
FController.Anadir(Balances);
|
||||
FController.Ver(Balances);
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
if (ShowConfirmMessage('Borrar forma de pago', '¿Está seguro que desea borrar esta forma de pago?') = IDYES) then
|
||||
FController.Eliminar(FBalances)
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FBalances) and
|
||||
FBalances.DataTable.Active and
|
||||
(FBalances.DataTable.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actModificarExecute(Sender: TObject);
|
||||
begin
|
||||
FController.Ver(Balances);
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actModificarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FBalances) and
|
||||
FBalances.DataTable.Active and
|
||||
(FBalances.DataTable.RecordCount > 0);
|
||||
end;
|
||||
|
||||
constructor TfEditorBalances.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FController := TBalancesController.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorBalances.Destroy;
|
||||
begin
|
||||
FBalances := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
Balances.DataTable.ApplyUpdates;
|
||||
except
|
||||
on E : Exception do begin
|
||||
Balances.DataTable.CancelUpdates;
|
||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
Balances.DataTable.CancelUpdates;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FBalances) and
|
||||
FBalances.DataTable.Active;
|
||||
end;
|
||||
|
||||
procedure TfEditorBalances.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FBalances.DataTable.Active then
|
||||
FBalances.DataTable.Active := true;
|
||||
|
||||
// ListaBalances.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
140
Source/Modulos/Contabilidad/Views/uEditorCuentaEspecial.dfm
Normal file
140
Source/Modulos/Contabilidad/Views/uEditorCuentaEspecial.dfm
Normal file
@ -0,0 +1,140 @@
|
||||
object fEditorCuentaEspecial: TfEditorCuentaEspecial
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = eReferencia
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Cuenta especial'
|
||||
ClientHeight = 178
|
||||
ClientWidth = 404
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Top = 17
|
||||
Width = 160
|
||||
Height = 13
|
||||
Caption = 'Datos de la cuenta especial'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 190
|
||||
Top = 17
|
||||
Width = 195
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 62
|
||||
Top = 43
|
||||
Width = 55
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Referencia:'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 58
|
||||
Top = 71
|
||||
Width = 59
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Descripci'#243'n:'
|
||||
end
|
||||
object Bevel4: TBevel
|
||||
Left = 8
|
||||
Top = 121
|
||||
Width = 388
|
||||
Height = 10
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object JvEnterAsTab1: TJvEnterAsTab
|
||||
Left = 137
|
||||
Top = 137
|
||||
Width = 28
|
||||
Height = 28
|
||||
end
|
||||
object bAceptar: TButton
|
||||
Left = 234
|
||||
Top = 145
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
TabOrder = 2
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 319
|
||||
Top = 145
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object eReferencia: TDBEdit
|
||||
Left = 123
|
||||
Top = 40
|
||||
Width = 118
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'REFERENCIA'
|
||||
DataSource = dsCuentasEspeciales
|
||||
TabOrder = 0
|
||||
end
|
||||
object eDescripcion: TDBEdit
|
||||
Left = 123
|
||||
Top = 68
|
||||
Width = 262
|
||||
Height = 21
|
||||
Color = clInfoBk
|
||||
DataField = 'DESCRIPCION'
|
||||
DataSource = dsCuentasEspeciales
|
||||
TabOrder = 1
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 88
|
||||
Top = 131
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = '&Guardar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
object actModificar: TAction
|
||||
Caption = '&Modificar'
|
||||
end
|
||||
end
|
||||
object dsCuentasEspeciales: TDADataSource
|
||||
Left = 48
|
||||
Top = 131
|
||||
end
|
||||
end
|
||||
178
Source/Modulos/Contabilidad/Views/uEditorCuentaEspecial.pas
Normal file
178
Source/Modulos/Contabilidad/Views/uEditorCuentaEspecial.pas
Normal file
@ -0,0 +1,178 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. 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: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorCuentaEspecial;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB,
|
||||
uBizCuentasEspeciales, uCuentasEspecialesController,
|
||||
uDADataTable, uIEditorCuentaEspecial, ActnList, ExtCtrls, JvExControls,
|
||||
JvComponent, JvEnterTab, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, cxDBData, cxSpinEdit, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
|
||||
cxGridCustomView, cxGrid, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorCuentaEspecial = class(TForm, IEditorCuentaEspecial)
|
||||
ActionList1: TActionList;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
actModificar: TAction;
|
||||
eReferencia: TDBEdit;
|
||||
eDescripcion: TDBEdit;
|
||||
dsCuentasEspeciales: TDADataSource;
|
||||
Label1: TLabel;
|
||||
Bevel1: TBevel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Bevel4: TBevel;
|
||||
JvEnterAsTab1: TJvEnterAsTab;
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
protected
|
||||
FCuentaEspecial: IBizCuentaEspecial;
|
||||
FController : ICuentasEspecialesController;
|
||||
function GetCuentaEspecial: IBizCuentaEspecial;
|
||||
procedure SetCuentaEspecial(const Value: IBizCuentaEspecial);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property CuentaEspecial: IBizCuentaEspecial read GetCuentaEspecial write SetCuentaEspecial;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorCuentasEspeciales }
|
||||
|
||||
uses
|
||||
Dialogs, uDialogUtils;
|
||||
|
||||
function TfEditorCuentaEspecial.GetCuentaEspecial: IBizCuentaEspecial;
|
||||
begin
|
||||
Result := FCuentaEspecial;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.SetCuentaEspecial(const Value: IBizCuentaEspecial);
|
||||
begin
|
||||
FCuentaEspecial := Value;
|
||||
if Assigned(FCuentaEspecial) then
|
||||
begin
|
||||
dsCuentasEspeciales.DataTable := FCuentaEspecial.DataTable;
|
||||
dsCuentasEspeciales.DataTable.Open;
|
||||
end
|
||||
else begin
|
||||
dsCuentasEspeciales.DataTable := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
// FPlazos.Append;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
// FPlazos.Delete;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
(Sender as TAction).Enabled := Assigned(FPlazos) and
|
||||
FPlazos.DataTable.Active and
|
||||
(FPlazos.DataTable.RecordCount > 0);
|
||||
}
|
||||
end;
|
||||
|
||||
constructor TfEditorCuentaEspecial.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FController := TCuentasEspecialesController.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorCuentaEspecial.Destroy;
|
||||
begin
|
||||
FCuentaEspecial := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
if (ListaCuentasEspeciales.ActiveView.DataController.RecordCount = 0) then
|
||||
if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then
|
||||
Exit;
|
||||
}
|
||||
if FController.Guardar(FCuentaEspecial) then
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
FController.DescartarCambios(FCuentaEspecial);
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
{
|
||||
(Sender as TAction).Enabled := Assigned(FPlazos) and
|
||||
FPlazos.DataTable.Active;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentaEspecial.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FCuentaEspecial.DataTable.Active then
|
||||
FCuentaEspecial.DataTable.Active := True;
|
||||
|
||||
if FCuentaEspecial.EsNuevo then
|
||||
Self.Caption := 'Nueva forma de pago'
|
||||
else
|
||||
Self.Caption := 'Modificar forma de pago';
|
||||
end;
|
||||
|
||||
end.
|
||||
145
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
Normal file
145
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
Normal file
@ -0,0 +1,145 @@
|
||||
object fEditorCuentasEspeciales: TfEditorCuentasEspeciales
|
||||
Left = 453
|
||||
Top = 234
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Lista de cuentas especiales'
|
||||
ClientHeight = 406
|
||||
ClientWidth = 959
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bAceptar: TButton
|
||||
Left = 236
|
||||
Top = 373
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 321
|
||||
Top = 373
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 959
|
||||
Height = 406
|
||||
ActivePage = TabSheet1
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Cuentas especiales'
|
||||
object Label1: TLabel
|
||||
Left = 6
|
||||
Top = 12
|
||||
Width = 131
|
||||
Height = 13
|
||||
Caption = 'Lista de cuentas especiales'
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 853
|
||||
Top = 90
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 0
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 853
|
||||
Top = 31
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 853
|
||||
Top = 61
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actModificar
|
||||
TabOrder = 2
|
||||
end
|
||||
object ListaCuentasEspeciales: TDBGrid
|
||||
Left = 3
|
||||
Top = 31
|
||||
Width = 844
|
||||
Height = 289
|
||||
DataSource = dsCuentasEspeciales
|
||||
Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
|
||||
TabOrder = 3
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'MS Sans Serif'
|
||||
TitleFont.Style = []
|
||||
Columns = <
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'REFERENCIA'
|
||||
Title.Caption = 'Referencia'
|
||||
Width = 110
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'DESCRIPCION'
|
||||
Title.Caption = 'Descripci'#243'n'
|
||||
Width = 154
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 144
|
||||
Top = 16
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir...'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = 'A&ceptar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
object actModificar: TAction
|
||||
Caption = '&Modificar...'
|
||||
OnExecute = actModificarExecute
|
||||
OnUpdate = actModificarUpdate
|
||||
end
|
||||
end
|
||||
object dsCuentasEspeciales: TDADataSource
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
184
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
Normal file
184
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
Normal file
@ -0,0 +1,184 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. 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: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorCuentasEspeciales;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
uIEditorCuentasEspeciales, uBizCuentasEspeciales, uCuentasEspecialesController, DB, uDADataTable,
|
||||
ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces, Mask, DBCtrls;
|
||||
|
||||
type
|
||||
TfEditorCuentasEspeciales = class(TForm, IEditorCuentasEspeciales)
|
||||
ActionList1: TActionList;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
bEliminar: TButton;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
Label1: TLabel;
|
||||
bAnadir: TButton;
|
||||
actModificar: TAction;
|
||||
Button1: TButton;
|
||||
dsCuentasEspeciales: TDADataSource;
|
||||
ListaCuentasEspeciales: TDBGrid;
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actModificarExecute(Sender: TObject);
|
||||
procedure ListaCuentasEspecialesDblClick(Sender: TObject);
|
||||
procedure actModificarUpdate(Sender: TObject);
|
||||
protected
|
||||
FCuentasEspeciales: IBizCuentaEspecial;
|
||||
FController: ICuentasEspecialesController;
|
||||
function GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorCuentasEspeciales }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
function TfEditorCuentasEspeciales.GetCuentasEspeciales: IBizCuentaEspecial;
|
||||
begin
|
||||
Result := FCuentasEspeciales;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.ListaCuentasEspecialesDblClick(Sender: TObject);
|
||||
begin
|
||||
// ListaCuentasEspeciales.SelectedIndex
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.SetCuentasEspeciales(const Value: IBizCuentaEspecial);
|
||||
begin
|
||||
FCuentasEspeciales := Value;
|
||||
dsCuentasEspeciales.DataTable := (FCuentasEspeciales as IBizCuentaEspecial).DataTable;
|
||||
dsCuentasEspeciales.DataTable.Open;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
FController.Anadir(CuentasEspeciales);
|
||||
FController.Ver(CuentasEspeciales);
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
if (ShowConfirmMessage('Borrar forma de pago', '¿Está seguro que desea borrar esta forma de pago?') = IDYES) then
|
||||
FController.Eliminar(FCuentasEspeciales)
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and
|
||||
FCuentasEspeciales.DataTable.Active and
|
||||
(FCuentasEspeciales.DataTable.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actModificarExecute(Sender: TObject);
|
||||
begin
|
||||
FController.Ver(CuentasEspeciales);
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actModificarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and
|
||||
FCuentasEspeciales.DataTable.Active and
|
||||
(FCuentasEspeciales.DataTable.RecordCount > 0);
|
||||
end;
|
||||
|
||||
constructor TfEditorCuentasEspeciales.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FController := TCuentasEspecialesController.Create;
|
||||
end;
|
||||
|
||||
destructor TfEditorCuentasEspeciales.Destroy;
|
||||
begin
|
||||
FCuentasEspeciales := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
CuentasEspeciales.DataTable.ApplyUpdates;
|
||||
except
|
||||
on E : Exception do begin
|
||||
CuentasEspeciales.DataTable.CancelUpdates;
|
||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
CuentasEspeciales.DataTable.CancelUpdates;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Assigned(FCuentasEspeciales) and
|
||||
FCuentasEspeciales.DataTable.Active;
|
||||
end;
|
||||
|
||||
procedure TfEditorCuentasEspeciales.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FCuentasEspeciales.DataTable.Active then
|
||||
FCuentasEspeciales.DataTable.Active := true;
|
||||
|
||||
// ListaCuentasEspeciales.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
144
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.dfm
Normal file
144
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.dfm
Normal file
@ -0,0 +1,144 @@
|
||||
inherited fEditorEpigrafe: TfEditorEpigrafe
|
||||
Left = 374
|
||||
Top = 273
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Ficha de epigrafe'
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 488
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 632
|
||||
Caption = 'Epigrafe'
|
||||
ExplicitWidth = 632
|
||||
inherited Image1: TImage
|
||||
Left = 605
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||
520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04
|
||||
511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E
|
||||
9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65
|
||||
CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E
|
||||
B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619
|
||||
D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E
|
||||
5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0
|
||||
402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87
|
||||
DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F
|
||||
83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919
|
||||
222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A
|
||||
18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C
|
||||
9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56
|
||||
88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D
|
||||
1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE
|
||||
1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D
|
||||
ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1
|
||||
889083DF93D867F65E51168D0000000049454E44AE426082}
|
||||
ExplicitLeft = 607
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem23: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem3: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = 0
|
||||
ExplicitWidth = 632
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem8: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem10: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem21: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem22: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem9: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
inherited TBXItem32: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem31: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXSeparatorItem13: TTBXSeparatorItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 624
|
||||
ExplicitHeight = 338
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 632
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 128
|
||||
end
|
||||
inherited SmallImages: TPngImageList
|
||||
Top = 112
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [6]
|
||||
Left = 168
|
||||
Top = 120
|
||||
end
|
||||
inherited LargeImages: TPngImageList [7]
|
||||
Top = 112
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [8]
|
||||
end
|
||||
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||
Left = 320
|
||||
Top = 248
|
||||
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||
GroupOptions.CaptionOptions.Font.Height = -11
|
||||
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||
end
|
||||
end
|
||||
end
|
||||
204
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas
Normal file
204
Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas
Normal file
@ -0,0 +1,204 @@
|
||||
unit uEditorEpigrafe;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||
uViewEpigrafe, uBizEpigrafes, JvNavigationPane, ActnList,
|
||||
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
||||
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||
|
||||
uViewEpigrafes, uIEditorEpigrafe, uEpigrafesController, JvExComCtrls,
|
||||
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorEpigrafe = class(TfEditorDBItem, IEditorEpigrafe)
|
||||
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
protected
|
||||
FController : IEpigrafesController;
|
||||
FEpigrafe: IBizEpigrafe;
|
||||
FViewEpigrafe : IViewEpigrafe;
|
||||
|
||||
function GetController : IEpigrafesController;
|
||||
procedure SetController (const Value : IEpigrafesController); virtual;
|
||||
function GetEpigrafe: IBizEpigrafe; virtual;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe); virtual;
|
||||
function GetViewEpigrafe: IViewEpigrafe;
|
||||
procedure SetViewEpigrafe(const Value: IViewEpigrafe);
|
||||
property ViewEpigrafe: IViewEpigrafe read GetViewEpigrafe write SetViewEpigrafe;
|
||||
|
||||
procedure GuardarInterno; override;
|
||||
procedure EliminarInterno; override;
|
||||
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
|
||||
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||
//sobreescribir este metodo
|
||||
procedure AsignarVista; virtual;
|
||||
|
||||
public
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uCustomEditor, uDataModuleBase;
|
||||
|
||||
function ShowEditorEpigrafe (ABizObject : TDADataTableRules): TModalResult;
|
||||
var
|
||||
AEditor: TfEditorEpigrafe;
|
||||
begin
|
||||
AEditor := TfEditorEpigrafe.Create(Application);
|
||||
try
|
||||
AEditor.Epigrafe := (ABizObject as IBizEpigrafe);
|
||||
Result := AEditor.ShowModal;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
end;
|
||||
|
||||
{
|
||||
******************************* TfEditorEpigrafe *******************************
|
||||
}
|
||||
function TfEditorEpigrafe.GetEpigrafe: IBizEpigrafe;
|
||||
begin
|
||||
Result := FEpigrafe;
|
||||
end;
|
||||
|
||||
function TfEditorEpigrafe.GetController: IEpigrafesController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorEpigrafe.GetViewEpigrafe: IViewEpigrafe;
|
||||
begin
|
||||
Result := FViewEpigrafe;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.GuardarInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Guardar(FEpigrafe);
|
||||
Modified := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
if Assigned(Epigrafe) then
|
||||
begin
|
||||
if Epigrafe.EsNuevo then
|
||||
FTitulo := 'Nuevo almacén'
|
||||
else
|
||||
FTitulo := 'Almacén' + ' - ' + Epigrafe.DESCRIPCION;
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
|
||||
begin
|
||||
FEpigrafe := Value;
|
||||
dsDataTable.DataTable := FEpigrafe.DataTable;
|
||||
|
||||
if Assigned(FViewEpigrafe) and Assigned(Epigrafe) then
|
||||
FViewEpigrafe.Epigrafe := Epigrafe;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.SetController(const Value: IEpigrafesController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.SetViewEpigrafe(const Value: IViewEpigrafe);
|
||||
begin
|
||||
FViewEpigrafe := Value;
|
||||
|
||||
if Assigned(FViewEpigrafe) and Assigned(Epigrafe) then
|
||||
FViewEpigrafe.Epigrafe := Epigrafe;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if not Assigned(FViewEpigrafe) then
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(Epigrafe) then
|
||||
raise Exception.Create('No hay ningún almacén asignado');
|
||||
|
||||
Epigrafe.DataTable.Active := True;
|
||||
end;
|
||||
|
||||
destructor TfEditorEpigrafe.Destroy;
|
||||
begin
|
||||
// Utilizar mejor OnClose;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.AsignarVista;
|
||||
var
|
||||
AViewEpigrafe: TfrViewEpigrafe;
|
||||
begin
|
||||
AViewEpigrafe := TfrViewEpigrafe.create(Self);
|
||||
with AViewEpigrafe do
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
Align := alClient;
|
||||
// dxLayoutControlEpigrafe.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
end;
|
||||
ViewEpigrafe := AViewEpigrafe;
|
||||
end;
|
||||
|
||||
constructor TfEditorEpigrafe.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
pgPaginas.ActivePageIndex := 0;
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.CustomEditorClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
dsDataTable.DataTable := NIL;
|
||||
FViewEpigrafe := NIL;
|
||||
FEpigrafe := NIL;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.dsDataTableDataChange(Sender: TObject;
|
||||
Field: TField);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(FEpigrafe) and (not (FEpigrafe.DataTable.Fetching) or
|
||||
not (FEpigrafe.DataTable.Opening) or not (FEpigrafe.DataTable.Closing)) then
|
||||
PonerTitulos;
|
||||
end;
|
||||
|
||||
procedure TfEditorEpigrafe.EliminarInterno;
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar este Epigrafe?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
inherited;
|
||||
if not FController.Eliminar(FEpigrafe) then
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
1499
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
Normal file
1499
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
Normal file
File diff suppressed because it is too large
Load Diff
BIN
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
Normal file
BIN
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
Normal file
Binary file not shown.
83
Source/Modulos/Contabilidad/Views/uViewEpigrafe.dfm
Normal file
83
Source/Modulos/Contabilidad/Views/uViewEpigrafe.dfm
Normal file
@ -0,0 +1,83 @@
|
||||
inherited frViewEpigrafe: TfrViewEpigrafe
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
object dxLayoutControlEpigrafe: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 194
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 83
|
||||
Top = 28
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REF_EPIGRAFE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Width = 204
|
||||
end
|
||||
object eDescripcion: TcxDBTextEdit
|
||||
Left = 83
|
||||
Top = 55
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'DESCRIPCION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 344
|
||||
end
|
||||
object dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlEpigrafeGroup1: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del ejercicio'
|
||||
object dxLayoutControlEpigrafeItem3: TdxLayoutItem
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlEpigrafeItem1: TdxLayoutItem
|
||||
Caption = 'Descripcion'
|
||||
Control = eDescripcion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 24
|
||||
Top = 144
|
||||
end
|
||||
end
|
||||
62
Source/Modulos/Contabilidad/Views/uViewEpigrafe.pas
Normal file
62
Source/Modulos/Contabilidad/Views/uViewEpigrafe.pas
Normal file
@ -0,0 +1,62 @@
|
||||
unit uViewEpigrafe;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||
DBCtrls, Grids, DBGrids, uBizEpigrafes, Mask, ComCtrls, uCustomView,
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
|
||||
cxImageComboBox, cxMaskEdit, cxCalendar;
|
||||
|
||||
type
|
||||
IViewEpigrafe = interface(IViewBase)
|
||||
['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
|
||||
function GetEpigrafe: IBizEpigrafe;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
end;
|
||||
|
||||
TfrViewEpigrafe = class(TfrViewBase, IViewEpigrafe)
|
||||
DADataSource: TDADataSource;
|
||||
dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup;
|
||||
dxLayoutControlEpigrafe: TdxLayoutControl;
|
||||
dxLayoutControlEpigrafeGroup1: TdxLayoutGroup;
|
||||
dxLayoutControlEpigrafeItem3: TdxLayoutItem;
|
||||
eReferencia: TcxDBTextEdit;
|
||||
dxLayoutControlEpigrafeItem1: TdxLayoutItem;
|
||||
eDescripcion: TcxDBTextEdit;
|
||||
protected
|
||||
FEpigrafe: IBizEpigrafe;
|
||||
function GetEpigrafe: IBizEpigrafe;
|
||||
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
||||
public
|
||||
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewEpigrafes }
|
||||
|
||||
{
|
||||
******************************* TfrViewEpigrafes ********************************
|
||||
}
|
||||
|
||||
function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe;
|
||||
begin
|
||||
Result := FEpigrafe;
|
||||
end;
|
||||
|
||||
procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
|
||||
begin
|
||||
FEpigrafe := Value;
|
||||
if Assigned(FEpigrafe) then
|
||||
DADataSource.DataTable := FEpigrafe.DataTable
|
||||
else
|
||||
DADataSource.DataTable := NIL;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
99
Source/Modulos/Contabilidad/Views/uViewEpigrafes.dfm
Normal file
99
Source/Modulos/Contabilidad/Views/uViewEpigrafes.dfm
Normal file
@ -0,0 +1,99 @@
|
||||
inherited frViewEpigrafes: TfrViewEpigrafes
|
||||
inherited cxGrid: TcxGrid
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 ejercicios'
|
||||
Kind = skCount
|
||||
Column = cxGridViewREF_EPIGRAFE
|
||||
end>
|
||||
OptionsBehavior.PullFocusing = True
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
Width = 22
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewREF_EPIGRAFE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REF_EPIGRAFE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
Width = 304
|
||||
end
|
||||
object cxGridViewID_PADRE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID_PADRE'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'DESCRIPCION'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Width = 118
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||
BuiltInStyle = True
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 160
|
||||
Top = 32
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
77
Source/Modulos/Contabilidad/Views/uViewEpigrafes.pas
Normal file
77
Source/Modulos/Contabilidad/Views/uViewEpigrafes.pas
Normal file
@ -0,0 +1,77 @@
|
||||
unit uViewEpigrafes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGrid, uBizEpigrafes, ActnList, Menus,
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
|
||||
cxImageComboBox, cxTextEdit;
|
||||
|
||||
type
|
||||
IViewEpigrafes = interface(IViewGrid)
|
||||
['{E6798DF7-011C-40EC-B368-160C48697445}']
|
||||
function GetEpigrafes: IBizEpigrafe;
|
||||
procedure SetEpigrafes(const Value: IBizEpigrafe);
|
||||
property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes;
|
||||
end;
|
||||
|
||||
TfrViewEpigrafes = class(TfrViewGrid, IViewEpigrafes)
|
||||
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||||
cxGridViewREF_EPIGRAFE: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewID_PADRE: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
protected
|
||||
FEpigrafes: IBizEpigrafe;
|
||||
function GetEpigrafes: IBizEpigrafe; virtual;
|
||||
procedure SetEpigrafes(const Value: IBizEpigrafe); virtual;
|
||||
public
|
||||
property Epigrafes: IBizEpigrafe read GetEpigrafes write SetEpigrafes;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewEpigrafes }
|
||||
|
||||
{
|
||||
******************************* TfrViewEpigrafes *******************************
|
||||
}
|
||||
function TfrViewEpigrafes.GetEpigrafes: IBizEpigrafe;
|
||||
begin
|
||||
Result := FEpigrafes;
|
||||
end;
|
||||
|
||||
procedure TfrViewEpigrafes.SetEpigrafes(const Value: IBizEpigrafe);
|
||||
begin
|
||||
FEpigrafes := Value;
|
||||
if Assigned(FEpigrafes) then
|
||||
dsDataSource.DataTable := FEpigrafes.DataTable;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewEpigrafes.cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
var
|
||||
R : TRect;
|
||||
begin
|
||||
inherited;
|
||||
R := AViewInfo.ContentBounds;
|
||||
ACanvas.FillRect(R);
|
||||
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||
ADone := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user