git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@215 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
f1d8a11388
commit
a242a5f445
@ -0,0 +1,86 @@
|
||||
object srvTiposDocumento: TsrvTiposDocumento
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
ServiceSchema = schTiposDocumento
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 300
|
||||
Width = 334
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 88
|
||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'TiposDocumento_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_TIPOS_DOCUMENTO_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'TiposDocumento_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
end
|
||||
object schTiposDocumento: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'TIPOS_DOCUMENTO'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'TiposDocumento'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_TIPOS_DOCUMENTO_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'TiposDocumento_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'TiposDocumento_DESCRIPCION'
|
||||
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,63 @@
|
||||
unit srvTiposDocumento_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:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||
uDAScriptingProvider, uDAClasses,
|
||||
FactuGES_Intf, uDAInterfaces;
|
||||
|
||||
type
|
||||
{ TsrvUnidadesMedida }
|
||||
TsrvTiposDocumento = class(TDataAbstractService, IsrvTiposDocumento)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schTiposDocumento: 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_srvTiposDocumento(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvTiposDocumento.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvUnidadesMedida }
|
||||
procedure TsrvTiposDocumento.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
//SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
procedure TsrvTiposDocumento.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvTiposDocumento', Create_srvTiposDocumento, TsrvTiposDocumento_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
124
Source/Modulos/TiposDocumento/TiposDocumento_Group.groupproj
Normal file
124
Source/Modulos/TiposDocumento/TiposDocumento_Group.groupproj
Normal file
@ -0,0 +1,124 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{033276d8-059f-49be-9cc2-3276e536a74d}</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\TiposDocumento_controller.dproj" />
|
||||
<Projects Include="Data\TiposDocumento_data.dproj" />
|
||||
<Projects Include="Model\TiposDocumento_model.dproj" />
|
||||
<Projects Include="Plugin\TiposDocumento_plugin.dproj" />
|
||||
<Projects Include="Views\TiposDocumento_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="TiposDocumento_model">
|
||||
<MSBuild Projects="Model\TiposDocumento_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_model:Clean">
|
||||
<MSBuild Projects="Model\TiposDocumento_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_model:Make">
|
||||
<MSBuild Projects="Model\TiposDocumento_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_data">
|
||||
<MSBuild Projects="Data\TiposDocumento_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_data:Clean">
|
||||
<MSBuild Projects="Data\TiposDocumento_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_data:Make">
|
||||
<MSBuild Projects="Data\TiposDocumento_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_controller">
|
||||
<MSBuild Projects="Controller\TiposDocumento_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_controller:Clean">
|
||||
<MSBuild Projects="Controller\TiposDocumento_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_controller:Make">
|
||||
<MSBuild Projects="Controller\TiposDocumento_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_view">
|
||||
<MSBuild Projects="Views\TiposDocumento_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_view:Clean">
|
||||
<MSBuild Projects="Views\TiposDocumento_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_view:Make">
|
||||
<MSBuild Projects="Views\TiposDocumento_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_plugin">
|
||||
<MSBuild Projects="Plugin\TiposDocumento_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_plugin:Clean">
|
||||
<MSBuild Projects="Plugin\TiposDocumento_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="TiposDocumento_plugin:Make">
|
||||
<MSBuild Projects="Plugin\TiposDocumento_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;TiposDocumento_model;TiposDocumento_data;TiposDocumento_controller;TiposDocumento_view;TiposDocumento_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;TiposDocumento_model:Clean;TiposDocumento_data:Clean;TiposDocumento_controller:Clean;TiposDocumento_view:Clean;TiposDocumento_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;TiposDocumento_model:Make;TiposDocumento_data:Make;TiposDocumento_controller:Make;TiposDocumento_view:Make;TiposDocumento_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
BIN
Source/Modulos/TiposDocumento/Views/TiposDocumento_view.dpk
Normal file
BIN
Source/Modulos/TiposDocumento/Views/TiposDocumento_view.dpk
Normal file
Binary file not shown.
545
Source/Modulos/TiposDocumento/Views/TiposDocumento_view.dproj
Normal file
545
Source/Modulos/TiposDocumento/Views/TiposDocumento_view.dproj
Normal file
@ -0,0 +1,545 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
|
||||
<MainSource>TiposDocumento_view.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\TiposDocumento_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\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">TiposDocumento_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="TiposDocumento_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\TiposDocumento_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="uEditorTiposDocumento.pas">
|
||||
<Form>fEditorTiposDocumento</Form>
|
||||
<DesignClass>TfEditorUnidadesMedida</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uTiposDocumentoViewRegister.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
144
Source/Modulos/TiposDocumento/Views/uEditorTiposDocumento.dfm
Normal file
144
Source/Modulos/TiposDocumento/Views/uEditorTiposDocumento.dfm
Normal file
@ -0,0 +1,144 @@
|
||||
object fEditorTiposDocumento: TfEditorTiposDocumento
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = ListaTiposDocumento
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Administraci'#243'n de tipos de documento'
|
||||
ClientHeight = 494
|
||||
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
|
||||
OnClose = CustomEditorClose
|
||||
OnShow = FormShow
|
||||
InstanceID = 0
|
||||
ReadOnly = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bAceptar: TButton
|
||||
Left = 235
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 321
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 390
|
||||
Height = 442
|
||||
ActivePage = TabSheet1
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Tipos de documento'
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
Top = 12
|
||||
Width = 133
|
||||
Height = 13
|
||||
Caption = 'Lista de tipos de documento'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
Top = 326
|
||||
Width = 174
|
||||
Height = 13
|
||||
Caption = 'A'#241'adir un nuevo tipos de documento'
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 187
|
||||
Top = 330
|
||||
Width = 189
|
||||
Height = 5
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object eCategoria: TLabel
|
||||
Left = 18
|
||||
Top = 353
|
||||
Width = 40
|
||||
Height = 13
|
||||
Caption = 'Nombre:'
|
||||
end
|
||||
object ListaTiposDocumento: TDBLookupListBox
|
||||
Left = 8
|
||||
Top = 31
|
||||
Width = 262
|
||||
Height = 277
|
||||
KeyField = 'RecID'
|
||||
ListField = 'DESCRIPCION'
|
||||
ListSource = DADataSource
|
||||
TabOrder = 0
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 281
|
||||
Top = 31
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 1
|
||||
end
|
||||
object editTipoDocumento: TEdit
|
||||
Left = 64
|
||||
Top = 349
|
||||
Width = 312
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 281
|
||||
Top = 382
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 3
|
||||
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
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
181
Source/Modulos/TiposDocumento/Views/uEditorTiposDocumento.pas
Normal file
181
Source/Modulos/TiposDocumento/Views/uEditorTiposDocumento.pas
Normal file
@ -0,0 +1,181 @@
|
||||
{
|
||||
===============================================================================
|
||||
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 uEditorTiposDocumento;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
|
||||
uIEditorTiposDocumento, uCustomEditor, uGUIBase, ExtCtrls,
|
||||
ComCtrls, uBizTiposDocumento, uTiposDocumentoController, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorTiposDocumento = class(TCustomEditor, IEditorTiposDocumento)
|
||||
ActionList1: TActionList;
|
||||
DADataSource: TDADataSource;
|
||||
ListaTiposDocumento: TDBLookupListBox;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
bEliminar: TButton;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Bevel1: TBevel;
|
||||
eCategoria: TLabel;
|
||||
editTipoDocumento: TEdit;
|
||||
bAnadir: TButton;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
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
|
||||
FTiposDocumento: IBizTipoDocumento;
|
||||
FController: ITiposDocumentoController;
|
||||
function GetTiposDocumento: IBizTipoDocumento;
|
||||
procedure SetTiposDocumento(const Value: IBizTipoDocumento);
|
||||
function GetController : ITiposDocumentoController;
|
||||
procedure SetController (const Value : ITiposDocumentoController);
|
||||
public
|
||||
property TiposDocumento: IBizTipoDocumento read GetTiposDocumento write SetTiposDocumento;
|
||||
property Controller : ITiposDocumentoController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorTiposDocumento }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
function TfEditorTiposDocumento.GetController: ITiposDocumentoController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorTiposDocumento.GetTiposDocumento: IBizTipoDocumento;
|
||||
begin
|
||||
Result := FTiposDocumento;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.SetController(const Value: ITiposDocumentoController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.SetTiposDocumento(const Value: IBizTipoDocumento);
|
||||
begin
|
||||
FTiposDocumento := Value;
|
||||
DADataSource.DataTable := (FTiposDocumento as IBizTipoDocumento).DataTable;
|
||||
DADataSource.DataTable.Open;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
if not FController.Localizar(TiposDocumento, editTipoDocumento.Text) then
|
||||
begin
|
||||
TiposDocumento.Append;
|
||||
TiposDocumento.DESCRIPCION := editTipoDocumento.Text;
|
||||
TiposDocumento.Post;
|
||||
editTipoDocumento.Clear;
|
||||
ListaTiposDocumento.SetFocus;
|
||||
end
|
||||
else
|
||||
ShowErrorMessage('Ya existe el tipo ' + editTipoDocumento.Text,
|
||||
'Ya existe tipo ''' + editTipoDocumento.Text + ''' en la lista.');
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
TiposDocumento.Delete;
|
||||
ListaTiposDocumento.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (FTiposDocumento.DataTable.RecordCount > 0) and
|
||||
(Length(ListaTiposDocumento.SelectedItem) > 0);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
FTiposDocumento := Nil;
|
||||
FController := Nil;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
TiposDocumento.DataTable.ApplyUpdates;
|
||||
except
|
||||
on E : Exception do begin
|
||||
TiposDocumento.DataTable.CancelUpdates;
|
||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
TiposDocumento.DataTable.CancelUpdates;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (Length(editTipoDocumento.Text) > 0)
|
||||
end;
|
||||
|
||||
procedure TfEditorTiposDocumento.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FTiposDocumento.DataTable.Active then
|
||||
FTiposDocumento.DataTable.Active := true;
|
||||
|
||||
FTiposDocumento.DataTable.Sort(['DESCRIPCION'], [sdAscending]);
|
||||
EditTipoDocumento.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uTiposDocumentoViewRegister;
|
||||
|
||||
interface
|
||||
|
||||
procedure RegisterViews;
|
||||
procedure UnregisterViews;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorTiposDocumento;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorTiposDocumento, 'EditorTiposDocumento');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorTiposDocumento);
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user