Version 4.3.2 - Comerciales, instaladores y pasar facturas de cliente de abeto a facturas de proveedor a graden
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@177 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
c8ba9149bf
commit
4ffd628d1e
140
Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas
Normal file
140
Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas
Normal file
@ -0,0 +1,140 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uBizDelegaciones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schDelegacionesClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_DELEGACION = 'Client.Delegacion';
|
||||
|
||||
type
|
||||
IBizDelegacion = interface(IDelegaciones)
|
||||
['{1893F6FF-0E1D-40F0-A39B-CBA3C2C18710}']
|
||||
function EsNuevo : Boolean;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// procedure SetDetalles(AValue : IBizDetalles);
|
||||
// function GetDetalles : IBizDetalles;
|
||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
||||
end;
|
||||
|
||||
TBizDelegacion = class(TDelegacionesDataTableRules, IBizDelegacion, ISeleccionable)
|
||||
protected
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetalles : IBizDetalles;
|
||||
// FDetallesLink : TDADataSource;
|
||||
// procedure SetDetalles(AValue : IBizDetalles);
|
||||
// function GetDetalles : IBizDetalles;
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
procedure AfterOpen(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure IniciarValoresDelegacionNuevo;
|
||||
function EsNuevo : Boolean;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
property SeleccionableInterface : ISeleccionable
|
||||
read FSeleccionableInterface
|
||||
write FSeleccionableInterface
|
||||
implements ISeleccionable;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// property Detalles : IBizDetalles read GetDetalles write SetDetalles;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizDelegacion }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// function TBizDelegacion.GetDetalles: IBizDetalles;
|
||||
// begin
|
||||
// Result := FDetalles;
|
||||
// end;
|
||||
|
||||
// Descomentar esto si hay clases detalles
|
||||
// procedure TBizDelegacion.SetDetalles(AValue: IBizDetalles);
|
||||
// begin
|
||||
// FDetalles := AValue;
|
||||
// EnlazarMaestroDetalle(FDetallesLink, FDetalles);
|
||||
// end;
|
||||
|
||||
procedure TBizDelegacion.AfterOpen(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
DataTable.Sort([fld_DelegacionesDESCRIPCION], [sdAscending]);
|
||||
end;
|
||||
|
||||
constructor TBizDelegacion.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetallesLink := TDADataSource.Create(NIL);
|
||||
// FDetallesLink.DataTable := aDataTable;
|
||||
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizDelegacion.Destroy;
|
||||
begin
|
||||
// Descomentar esto si hay clases detalles
|
||||
// FDetalles := NIL;
|
||||
// FreeAndNIL(FDetallesLink);
|
||||
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizDelegacion.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
procedure TBizDelegacion.IniciarValoresDelegacionNuevo;
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TBizDelegacion.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ID := GetRecNo; // -1, -2, -3...
|
||||
IniciarValoresDelegacionNuevo;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Delegacion, TBizDelegacion);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
BIN
Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dpk
Normal file
BIN
Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dpk
Normal file
Binary file not shown.
546
Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj
Normal file
546
Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj
Normal file
@ -0,0 +1,546 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{139324a2-0c57-446d-aebd-edd9578e22fd}</ProjectGuid>
|
||||
<MainSource>Delegaciones_plugin.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Delegaciones_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\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">Delegaciones_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Delegaciones_plugin.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Delegaciones_controller.dcp" />
|
||||
<DCCReference Include="Delegaciones_model.dcp" />
|
||||
<DCCReference Include="Delegaciones_view.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uPluginDelegaciones.pas">
|
||||
<Form>PluginDelegaciones</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.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=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 -->
|
||||
121
Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm
Normal file
121
Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm
Normal file
@ -0,0 +1,121 @@
|
||||
object PluginDelegaciones: TPluginDelegaciones
|
||||
OldCreateOrder = True
|
||||
DefaultAction = actDelegaciones
|
||||
Description = 'Delegaciones'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Delegaciones'
|
||||
SmallImages = SmallImages
|
||||
LargeImages = LargeImages
|
||||
Author = 'Rodax Software S.L.'
|
||||
Version = '1.0.0'
|
||||
Height = 234
|
||||
Width = 459
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001D24944415478DA
|
||||
B5956B4BC2501CC6FF7E8F8AA27B9888B64A142F195D28858C40A8177D833E49
|
||||
EFA2975174854834334A2CCD4B6933D310428AF0859FA0B034746BE7D44A5D4E
|
||||
9BED81C360CFD9F383FFB39D49689A06312529056C1F45FE8D363F3D24F915C0
|
||||
187F0E2B162966D1F88AA49E5982D8C9EAFF004AC30B14051B362FAC6D1FD606
|
||||
ACDB7C9CB0458BBEAA373BAEC2902DC7456D000A60C372F90264DFF2907D7D87
|
||||
F370A20C54E9990C04EC1E05EA0358A734DF0FBF64F3F09CCD41EA298DF755F3
|
||||
26754AD83F0ED507308D106501F9F702A43319BCAF9A37AA9683DD1D16DEC182
|
||||
590B0566CE7BAE20C743E1A803E7D9B5781DE8887E70F948F13AD028A570E28F
|
||||
8AD7C1B0BC0F3CA198F00ECCC6413C67972FCAF15038F2BCE1B8781D28FABAC0
|
||||
4FDEF103AC93046C3AFC823A90F574C0E54D921F303736003BCCD728A483DE8E
|
||||
362013F7FC008B51810FAD83D32BCE9CF543323CE74034C9F15038F262C9143F
|
||||
C06C90E370211DB4B73443E2FE811F30A59581DD1311D4416B531324538FFC80
|
||||
09B5149C5E525007750146559FEFB33B78CB99B352DA8DBD3833864AA170A49A
|
||||
001DF11942A1BF1445E3C3ADF8B528FAE7CFC5DE437B4A5513A05174E213B111
|
||||
F1029657361A0A67C5023E005FB10AFEE73DE6CD0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actDelegaciones: TAction
|
||||
Category = 'Datos'
|
||||
Caption = 'Delegaciones'
|
||||
ImageIndex = 0
|
||||
OnExecute = actDelegacionesExecute
|
||||
OnUpdate = actDelegacionesUpdate
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Ventas1: TMenuItem
|
||||
Caption = 'Datos'
|
||||
object Delegaciones1: TMenuItem
|
||||
Tag = 313
|
||||
Action = actDelegaciones
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000008D4944415478DA
|
||||
63FCFFFF3F03084C59BC03C22001E4C47A3032221B6066A0C570EDF63D14455A
|
||||
AA4A58C5324A3B18CEED98866A000F3707434290035CE1A9CB8FC09A6162203E
|
||||
0880C426CD5A85DF0090E26FDF7F313C78F2042C06E38300480CAB01A35E18F5
|
||||
025DBDE064A9CF1090588D69809F8B39C3D5DB2F188801D56D93310D98B77413
|
||||
519A6100640000C16C35F0D0FF08AC0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ExtraImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD2520000025A4944415478DA
|
||||
BDD6DB6E12511406E0C583A8156821580907E98116A16945522351D31B63627C
|
||||
0ADFC14BBDF0C2C4C4182F142B56A216B12D25544AA41C4A07EC5151FB0815B5
|
||||
15B6B3568A69DAEDCC26BB61259399CC9A992F847FCD1E03630C3A598683606C
|
||||
BE2AA4B7EE39B8E79DC39A083A0C9A603860D3059B4DA66E4D6832B67FCC0E1D
|
||||
37691FBC7E1B0AF1FB62E0A3E83C17BB79C54FD893589ADB0F8F7A087B9D5C82
|
||||
7B0F22622062B7AE05E8DCDE9F06D47FEE42FD176E7B90CE29745EAB3FEE77C3
|
||||
DB54BE7DF0F0C376EABB50ACACFF03FFD70FF95C104F17DA036F847D471EB6F3
|
||||
E3376CD4BED2B55AFDE0B013120BC5F6C0AB17FA8F3C0C7F516D7B9BAED5EA8F
|
||||
791D30932989835AA199080D5228A2892CB78F1826766E71B973A11919B04332
|
||||
5BEE5C68FC7D6721F571451F7C95ACB0CB7E1B3C9E4A498566F85C2F2C2C2962
|
||||
E0259F95865A26345ED719C8142AFAE0D49CC2C6551043F1F4CD076E2870A8B1
|
||||
8F73C62BC4F04D942D7D1203434316C26442E3B15B21575ED5075FCEAEB08B5E
|
||||
0B44A63352A171F75A20AFACE983D199320BAAE0647C512A344E5B3714AB1B62
|
||||
E0D8400F0DB54C68EC5633945737F5C117EF97D9687F0FAD67B1D91C371438D4
|
||||
181A9C335E21867D657D4B0C1CE9331326131A9BF9345437BFE8839389120B78
|
||||
CCB478CA84C662EC82B5CF3531F0BCDB448BA74C68BABB4ED15E177CFEAEC87C
|
||||
2E130DB54C684C274FC0D6B7EF62E090D3487F3AAE67BCC2A1C63ECE19AF106B
|
||||
A87D8475C148BCC0BC0E23AD676CFF2BACD1FA12535F57A2C75842E0B3E93C1B
|
||||
54415C3C8FA384C03B771F1E0BD62A4DB013F51786FF4905F2C97E8000000000
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 80
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
80
Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas
Normal file
80
Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas
Normal file
@ -0,0 +1,80 @@
|
||||
unit uPluginDelegaciones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
|
||||
type
|
||||
IMCDelegaciones = interface(IInterface)
|
||||
['{A9B7BC9D-BB45-43D3-9A8A-2423F0BE24D8}']
|
||||
end;
|
||||
|
||||
TPluginDelegaciones = class(TModuleController, IMCDelegaciones)
|
||||
actDelegaciones: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Ventas1: TMenuItem;
|
||||
Delegaciones1: TMenuItem;
|
||||
procedure actDelegacionesExecute(Sender: TObject);
|
||||
procedure actDelegacionesUpdate(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils, uFactuGES_App,
|
||||
uDelegacionesController, uBizDelegaciones, uDelegacionesViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginDelegaciones.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginDelegaciones.actDelegacionesExecute(Sender: TObject);
|
||||
var
|
||||
ADelegacionesController : IDelegacionesController;
|
||||
ADelegaciones : IBizDelegacion;
|
||||
begin
|
||||
ADelegacionesController := TDelegacionesController.Create;
|
||||
ADelegaciones := (ADelegacionesController.BuscarTodos as IBizDelegacion);
|
||||
ADelegacionesController.VerTodos(ADelegaciones);
|
||||
end;
|
||||
|
||||
procedure TPluginDelegaciones.actDelegacionesUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
(Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
end;
|
||||
|
||||
constructor TPluginDelegaciones.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uDelegacionesViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
destructor TPluginDelegaciones.Destroy;
|
||||
begin
|
||||
uDelegacionesViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginDelegaciones);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginDelegaciones);
|
||||
|
||||
end.
|
||||
108
Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm
Normal file
108
Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm
Normal file
@ -0,0 +1,108 @@
|
||||
object PluginUnidadesMedida: TPluginUnidadesMedida
|
||||
OldCreateOrder = True
|
||||
DefaultAction = actUnidadesMedida
|
||||
Description = 'Tipos de IVA'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Tipos de IVA'
|
||||
SmallImages = SmallImages
|
||||
LargeImages = LargeImages
|
||||
Author = 'Rodax Software S.L.'
|
||||
Version = '1.0.0'
|
||||
Height = 234
|
||||
Width = 459
|
||||
object LargeImages: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD2520000011E4944415478DA
|
||||
6364A010ACCA60F80FA2C366303062936724CD384CC3FD2AD63030B3F132AC6F
|
||||
72C76A09D916800C5FF7218261715F22C3D7EBD31998B86418762C9C82610959
|
||||
1620BB7C612DD0E529397039744B48B600D97098CBD101B2252459802D58D0C1
|
||||
BF6F4F18AE5DDEC0F0E40624E289B600D9E597B7B933A868E7E0349C8307C2BF
|
||||
7386481F10132C30C3279D8860287359C1F0E30B03D817042D202558602EEFDA
|
||||
13C11024B0827010E14B2DB80C87B99C602453122C049329A5C182AC8E119BE1
|
||||
A4A6166C2EC76A01B58205AB05D40C160C0BA8915A705A408B60C1EA03B7D000
|
||||
AA050BCE38F088CFC16B38292EC7B000DD124A8205A705C8C14549B0E0B50066
|
||||
898A09F9C142D0029825321A94198ED702982594180E0200B0F2324A4753EBA6
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actUnidadesMedida: TAction
|
||||
Category = 'Datos'
|
||||
Caption = 'Unidades de medida'
|
||||
ImageIndex = 0
|
||||
OnExecute = actUnidadesMedidaExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = SmallImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Ventas1: TMenuItem
|
||||
Caption = 'Datos'
|
||||
object UnidadesMedida1: TMenuItem
|
||||
Tag = 313
|
||||
Action = actUnidadesMedida
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000C14944415478DA
|
||||
63642001ACCA60F81F36838111598C9158CD111111FF17F72532AC6F72674036
|
||||
842803403607D6ED645858EBCE101215C0B06BF506B821040D80D9FCF7D76786
|
||||
1F7797303071C930FCFBF6046E082331365FDEE6CEA0A41800D7EC51FD82615A
|
||||
CA09862D5BF0B80097CDF7EE6F00CB8334D76DC0E102743F63B319A4196B1810
|
||||
6B33D65820C6CFC89A510C20D566140348F133860130CDA4DA8CE102B750D26C
|
||||
C608039821C4DA8C3316544C88D78C351D340530FC275633080000DE09BBE2B0
|
||||
1D07420000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 308
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ExtraImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000001514944415478DA
|
||||
6364A0225895C1F03F6C0603233E358CC41A468C6581952B19D6B78733E0B394
|
||||
2A16822C5BF7218261715F2298BFBEC91DA7A5145B08F31903AB00C3E56DEE0C
|
||||
BA5E3B19BE5E9FCEB06BF506AC96526421B2653000B28C894B06CCDEB1700A86
|
||||
A5645B881E8CE896C100BAA5645988ECB385B5EE0CF1CD3BB15A0602574E4E61
|
||||
787283016E29C916120A4674CB387820EC3B672096926421B1C1886CD98F2F0C
|
||||
701AE453A22DC4951A09F90C04B2E6583014199C20DE87E4062308C07C46741C
|
||||
92138C5D7B2218CA5C56605846D042525323AE604456C7488C65940623410BA9
|
||||
911A892E4BA9951A71851C232ECBA8198C582DA4766AC46B212D52234E0BE911
|
||||
8CD87D58B79328CB884D8D44C5A15B68004D8211AB85304B3DE273A81E8C382D
|
||||
44B79492D448B485304B653418A8168C042D8459AA62429D6024CA42649F52CB
|
||||
328216C22CA59665200000B1F5433DEC7F85AD0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 80
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
73
Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas
Normal file
73
Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas
Normal file
@ -0,0 +1,73 @@
|
||||
unit uPluginUnidadesMedida;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
|
||||
type
|
||||
IMCUnidadesMedida = interface(IInterface)
|
||||
['{386EDE31-46C9-4EA1-9F1D-423739372E1F}']
|
||||
end;
|
||||
|
||||
TPluginUnidadesMedida = class(TModuleController, IMCUnidadesMedida)
|
||||
actUnidadesMedida: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Ventas1: TMenuItem;
|
||||
UnidadesMedida1: TMenuItem;
|
||||
procedure actUnidadesMedidaExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uUnidadesMedidaController, uBizUnidadesMedida, uUnidadesMedidaViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginUnidadesMedida.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginUnidadesMedida.actUnidadesMedidaExecute(Sender: TObject);
|
||||
var
|
||||
AUnidadesMedidaController : IUnidadesMedidaController;
|
||||
AUnidadesMedida : IBizUnidadMedida;
|
||||
begin
|
||||
AUnidadesMedidaController := TUnidadesMedidaController.Create;
|
||||
AUnidadesMedida := (AUnidadesMedidaController.BuscarTodos as IBizUnidadMedida);
|
||||
AUnidadesMedidaController.VerTodos(AUnidadesMedida);
|
||||
end;
|
||||
|
||||
constructor TPluginUnidadesMedida.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uUnidadesMedidaViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
destructor TPluginUnidadesMedida.Destroy;
|
||||
begin
|
||||
uUnidadesMedidaViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginUnidadesMedida);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginUnidadesMedida);
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user