Documentos relacionados para clientes y proveedores
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@747 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
d4dab8be25
commit
035449a2e7
262
Build/Build.fbp5
262
Build/Build.fbp5
@ -18927,262 +18927,6 @@ Comments=
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{A781B4AA-D4F9-4AAF-804D-4FE753CFF7F7}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{3C6BEAC6-3A77-4732-964F-50E4089B1D2C}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">3</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{B01615CA-8D77-46DA-9714-8F84021A20F1}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
<Property name="AllowImplicitImport" type="Boolean">True</Property>
|
||||
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AutoIncBuild" type="WordBool">False</Property>
|
||||
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
<Property name="IsDLL" type="WordBool">False</Property>
|
||||
<Property name="IsPreRelease" type="WordBool">False</Property>
|
||||
<Property name="IsPrivate" type="WordBool">False</Property>
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
|
||||
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
|
||||
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{A7F3EC39-DFD8-4CA8-9C4F-595B575CFCBB}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
<Property name="GenerateDocumentation" type="Boolean">False</Property>
|
||||
<Property name="GenerateHPP" type="WordBool">False</Property>
|
||||
<Property name="HugeStrings" type="WordBool">True</Property>
|
||||
<Property name="ImageBase" type="Cardinal">4194304</Property>
|
||||
<Property name="IncludeNamespaces" type="WordBool">False</Property>
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">3</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
|
||||
<Property name="OpenStrings" type="WordBool">True</Property>
|
||||
<Property name="Optimisation" type="WordBool">True</Property>
|
||||
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
|
||||
<Property name="OverflowChecking" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
<Property name="ShowWarnings" type="WordBool">True</Property>
|
||||
<Property name="StackFrames" type="WordBool">False</Property>
|
||||
<Property name="TypedPointers" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
|
||||
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
|
||||
<Property name="UseDebugDCU" type="WordBool">False</Property>
|
||||
<Property name="UsePackages" type="WordBool">False</Property>
|
||||
<Property name="VarStringChecks" type="WordBool">True</Property>
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{C44D164A-8590-4DD5-BC4F-A890EB1C5915}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Facturas de proveedor\Views\FacturasProveedor_view.dpk]]>
|
||||
</Property>
|
||||
@ -19502,7 +19246,7 @@ Comments=
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">4</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">3</Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
|
||||
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
|
||||
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
|
||||
@ -19517,13 +19261,13 @@ Comments=
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
|
||||
FileDescription=
|
||||
FileVersion=1.4.4.0
|
||||
FileVersion=1.4.3.0
|
||||
InternalName=FactuGES
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=FactuGES
|
||||
ProductVersion=1.4.4.0
|
||||
ProductVersion=1.4.3.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
|
||||
BIN
Resources/Iconos/Generales/16x16/Versions.png
Normal file
BIN
Resources/Iconos/Generales/16x16/Versions.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 519 B |
BIN
Resources/Iconos/Generales/24x24/Versions.png
Normal file
BIN
Resources/Iconos/Generales/24x24/Versions.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 664 B |
BIN
Resources/Iconos/Generales/28x28/Versions.png
Normal file
BIN
Resources/Iconos/Generales/28x28/Versions.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 678 B |
@ -26,30 +26,14 @@ package ApplicationBase;
|
||||
{$DEFINE DEBUG}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
PLuginSDK_D10R,
|
||||
Base,
|
||||
GUIBase,
|
||||
JvJansD11R,
|
||||
pckUserControl_RT,
|
||||
dclIndyCore,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
designide,
|
||||
xmlrtl,
|
||||
vclactnband,
|
||||
vclx,
|
||||
IndyProtocols,
|
||||
VclSmp,
|
||||
pckUCDataConnector,
|
||||
pckMD5,
|
||||
vcldb,
|
||||
vcljpg;
|
||||
PluginSDK_D10R,
|
||||
Base,
|
||||
GUIBase;
|
||||
|
||||
contains
|
||||
uFactuGES_App in 'uFactuGES_App.pas',
|
||||
uPlugins_Intf in 'uPlugins_Intf.pas',
|
||||
uIDataModuleUsuarios in 'Usuarios\Model\Data\uIDataModuleUsuarios.pas',
|
||||
uDataModuleUsuarios in 'Usuarios\Data\uDataModuleUsuarios.pas' {DataModuleUsuarios},
|
||||
uUCROConn in 'Usuarios\Data\uUCROConn.pas',
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{14a25028-ec1a-430c-ade3-13c264e9bac2}</ProjectGuid>
|
||||
<ProjectGuid>{c7a4a08b-6dd0-4010-a723-f18392a3641e}</ProjectGuid>
|
||||
<MainSource>ApplicationBase.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
@ -12,75 +12,90 @@
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_Optimize>False</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<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</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_BplOutput>..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Optimize>False</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<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>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_Optimize>False</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\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><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">ApplicationBase.dpk</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<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">ApplicationBase.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
@ -111,6 +126,7 @@
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uFactuGES_App.pas" />
|
||||
<DCCReference Include="uPlugins_Intf.pas" />
|
||||
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
|
||||
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
|
||||
<DCCReference Include="Usuarios\Controller\View\uIEditorPerfilesUsuario.pas" />
|
||||
@ -163,6 +179,7 @@
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
@ -171,7 +188,7 @@ Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
@ -393,7 +410,7 @@ 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)?"
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
@ -644,5 +661,5 @@ Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, Forms, uBizUsuarios, uBizEmpresas, uControllerBase,
|
||||
uEmpresasController, uUsuariosController, uHostManager;
|
||||
uEmpresasController, uUsuariosController, uHostManager, uModuleController;
|
||||
|
||||
type
|
||||
TDoLoadModulesEvent = procedure;
|
||||
@ -50,6 +50,8 @@ type
|
||||
procedure Run;
|
||||
procedure Terminate;
|
||||
|
||||
function GetModule(AModuleName: String): TModuleController;
|
||||
|
||||
property AppVersion : String read GetAppVersion;
|
||||
property AppName : String read GetAppName;
|
||||
property AppFullName : String read GetAppFullName;
|
||||
@ -118,6 +120,8 @@ type
|
||||
|
||||
procedure CambiarEmpresa(const AIDEmpresa : Integer);
|
||||
|
||||
function GetModule(AModuleName: String): TModuleController;
|
||||
|
||||
property AppVersion : String read GetAppVersion;
|
||||
property AppName : String read GetAppName;
|
||||
property AppFullName : String read GetAppFullName;
|
||||
@ -258,6 +262,16 @@ begin
|
||||
Result := FDoLoadModulesEvent;
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetModule(AModuleName: String): TModuleController;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := NIL;
|
||||
for i := 0 to ModuleManager.ModulesCount - 1 do
|
||||
if ModuleManager.Modules[i].Module.ModuleName = AModuleName then
|
||||
Result := ModuleManager.Modules[i].Module
|
||||
end;
|
||||
|
||||
function TAppFactuGES.GetModuleManager: THostManager;
|
||||
begin
|
||||
Result := FHostManager;
|
||||
|
||||
70
Source/ApplicationBase/uPlugins_Intf.pas
Normal file
70
Source/ApplicationBase/uPlugins_Intf.pas
Normal file
@ -0,0 +1,70 @@
|
||||
unit uPlugins_Intf;
|
||||
|
||||
interface
|
||||
|
||||
const
|
||||
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
||||
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
||||
MODULENAME_FACTURAS_CLIENTE = 'FacturasCliente_plugin.bpl';
|
||||
MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl';
|
||||
|
||||
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
|
||||
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
|
||||
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
|
||||
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
|
||||
|
||||
|
||||
type
|
||||
IMCPresupuestosCliente = interface(IInterface)
|
||||
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
IMCAlbaranesCliente = interface(IInterface)
|
||||
['{0B9DD25A-3E76-446A-9EA6-D43131634A1E}']
|
||||
procedure VerAlbaranes(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
IMCFacturasCliente = interface(IInterface)
|
||||
['{DA2FEEA4-4B37-4510-9CE8-6223F9894DEE}']
|
||||
procedure VerFacturas(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
IMCRecibosCliente = interface(IInterface)
|
||||
['{6535395A-1450-4E19-8031-F9CD3D062F6D}']
|
||||
procedure VerRecibos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
IMCPedidosProveedor = interface(IInterface)
|
||||
['{D34DF6B6-6D9E-489B-B301-AEBB4DB37629}']
|
||||
procedure VerPedidos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
IMCAlbaranesProveedor = interface(IInterface)
|
||||
['{B567526E-A1F8-4311-BA19-04EE508B8374}']
|
||||
procedure VerAlbaranes(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
procedure VerDevoluciones(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
IMCFacturasProveedor = interface(IInterface)
|
||||
['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
|
||||
procedure VerFacturas(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
IMCRecibosProveedor = interface(IInterface)
|
||||
['{24A23E95-D148-404C-9987-B1ED4A19D3CA}']
|
||||
procedure VerRecibos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -53,57 +53,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
program FactuGES;
|
||||
|
||||
uses
|
||||
// ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -13,7 +13,7 @@ procedure Terminate;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDMBase, uDataModuleConexion, uDataModuleConfiguracion,
|
||||
uDMBase, uDataModuleConexion, uDataModuleConfiguracion, uPlugins_Intf,
|
||||
uMainMenuController, uNavPaneController, uPantallaPrincipal;
|
||||
|
||||
procedure DoAppLoadModules;
|
||||
@ -33,17 +33,17 @@ begin
|
||||
LoadModule('Obras_plugin.bpl');
|
||||
LoadModule('Articulos_plugin.bpl');
|
||||
|
||||
LoadModule('PresupuestosCliente_plugin.bpl');
|
||||
LoadModule('AlbaranesCliente_plugin.bpl');
|
||||
LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
|
||||
LoadModule(MODULENAME_ALBARANES_CLIENTE);
|
||||
|
||||
LoadModule('RecibosCliente_plugin.bpl');
|
||||
LoadModule('FacturasCliente_plugin.bpl');
|
||||
LoadModule(MODULENAME_FACTURAS_CLIENTE);
|
||||
|
||||
LoadModule('PedidosProveedor_plugin.bpl');
|
||||
LoadModule('AlbaranesProveedor_plugin.bpl');
|
||||
LoadModule(MODULENAME_PEDIDOS_PROVEEDOR);
|
||||
LoadModule(MODULENAME_ALBARANES_PROVEEDOR);
|
||||
|
||||
LoadModule('RecibosProveedor_plugin.bpl');
|
||||
LoadModule('FacturasProveedor_plugin.bpl');
|
||||
LoadModule(MODULENAME_RECIBOS_PROVEEDOR);
|
||||
LoadModule(MODULENAME_FACTURAS_PROVEEDOR);
|
||||
|
||||
// LoadModule('RemesasCliente_plugin.bpl');
|
||||
// LoadModule('RemesasProveedor_plugin.bpl');
|
||||
|
||||
@ -41,10 +41,10 @@
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib</DCC_IncludePath>
|
||||
<DCC_UnitSearchPath>..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
@ -58,30 +58,30 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Familias\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -14,6 +14,14 @@ uses
|
||||
type
|
||||
IEditorBase = interface(ICustomEditor)
|
||||
['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}']
|
||||
function GetWindowCaption : String;
|
||||
procedure SetWindowCaption(const AValue : String);
|
||||
property WindowCaption : String read GetWindowCaption write SetWindowCaption;
|
||||
|
||||
function GetHeaderText : String;
|
||||
procedure SetHeaderText(const AValue : String);
|
||||
property HeaderText : String read GetHeaderText write SetHeaderText;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
end;
|
||||
@ -120,6 +128,8 @@ type
|
||||
procedure actGuardarCerrarUpdate(Sender: TObject);
|
||||
procedure actGuardarUpdate(Sender: TObject);
|
||||
protected
|
||||
FWindowCaption : String;
|
||||
FHeaderText : String;
|
||||
procedure CreateParams(Var params: TCreateParams); override;
|
||||
procedure ActualizarEstadoEditor; virtual;
|
||||
function ModifiedQuery : Boolean;
|
||||
@ -136,12 +146,18 @@ type
|
||||
procedure DuplicarInterno; virtual;
|
||||
procedure PonerTitulos(const ATitulo: String = ''); virtual;
|
||||
procedure SetReadOnly(Value: Boolean); override;
|
||||
function GetWindowCaption : String; virtual;
|
||||
procedure SetWindowCaption(const AValue : String); virtual;
|
||||
function GetHeaderText : String; virtual;
|
||||
procedure SetHeaderText(const AValue : String); virtual;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
function ShowModal : Integer; override;
|
||||
procedure Show;
|
||||
procedure FormShow(Sender: TObject);
|
||||
published
|
||||
procedure FormShow(Sender: TObject);
|
||||
property WindowCaption : String read GetWindowCaption write SetWindowCaption;
|
||||
property HeaderText : String read GetHeaderText write SetHeaderText;
|
||||
end;
|
||||
|
||||
TfEditorBaseClass = class of TfEditorBase;
|
||||
@ -151,7 +167,8 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Menus, uDMBase, cxControls, uDialogUtils;
|
||||
Menus, uDMBase, cxControls, uDialogUtils,
|
||||
uStringsUtils;
|
||||
|
||||
{
|
||||
********************************* TfEditorBase *********************************
|
||||
@ -343,6 +360,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfEditorBase.GetHeaderText: String;
|
||||
begin
|
||||
Result := FHeaderText;
|
||||
end;
|
||||
|
||||
function TfEditorBase.GetWindowCaption: String;
|
||||
begin
|
||||
Result := FWindowCaption;
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.GuardarInterno;
|
||||
begin
|
||||
//
|
||||
@ -386,17 +413,28 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.PonerTitulos(const ATitulo: String);
|
||||
var
|
||||
AHeaderText,
|
||||
AWindowText : String;
|
||||
begin
|
||||
if EsCadenaVacia(ATitulo) then
|
||||
begin
|
||||
AHeaderText := FHeaderText;
|
||||
AWindowText := FHeaderText;
|
||||
end
|
||||
else begin
|
||||
AHeaderText := ATitulo;
|
||||
AWindowText := ATitulo;
|
||||
end;
|
||||
|
||||
if ReadOnly then
|
||||
begin
|
||||
JvNavPanelHeader.Caption := ATitulo + ' (NO MODIFICABLE)';
|
||||
Caption := ATitulo + ' (NO MODIFICABLE)';
|
||||
end
|
||||
else
|
||||
begin
|
||||
JvNavPanelHeader.Caption := ATitulo;
|
||||
Caption := ATitulo;
|
||||
AHeaderText := AHeaderText + ' (NO MODIFICABLE)';
|
||||
AWindowText := AWindowText + ' (NO MODIFICABLE)';
|
||||
end;
|
||||
|
||||
JvNavPanelHeader.Caption := AHeaderText;
|
||||
Caption := AWindowText;
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.PrevisualizarInterno;
|
||||
@ -409,6 +447,11 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.SetHeaderText(const AValue: String);
|
||||
begin
|
||||
FHeaderText := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.SetReadOnly(Value: Boolean);
|
||||
var
|
||||
i: integer;
|
||||
@ -424,6 +467,11 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.SetWindowCaption(const AValue: String);
|
||||
begin
|
||||
FWindowCaption := AValue;
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.Show;
|
||||
begin
|
||||
inherited Show;
|
||||
|
||||
@ -94,6 +94,7 @@ type
|
||||
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
function ShowModal : Integer; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -146,6 +147,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfEditorGridBase.ShowModal: Integer;
|
||||
begin
|
||||
tbxMenu.Visible := True;
|
||||
JvNavPanelHeader.Top := TBXDock.Height;
|
||||
Result := inherited ShowModal;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
|
||||
@ -108,6 +108,15 @@
|
||||
<Target Name="AlbaranesCliente_controller:Make">
|
||||
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view">
|
||||
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -144,15 +153,6 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -172,13 +172,13 @@
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesProveedor_view;AlbProv_FacProv_relation" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -20,14 +20,19 @@ type
|
||||
property DetallesController: IDetallesAlbaranClienteController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizAlbaranCliente;
|
||||
function BuscarTodos: IBizAlbaranCliente;
|
||||
function BuscarTodos: IBizAlbaranCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizAlbaranCliente; overload;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranCliente;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranCliente;
|
||||
function BuscarPendientes : IBizAlbaranCliente;
|
||||
function BuscarSinFacturar : IBizAlbaranCliente;
|
||||
procedure Ver(AAlbaran : IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranCliente);
|
||||
function Nuevo(withInsert: Boolean = True): IBizAlbaranCliente;
|
||||
function Anadir(AAlbaran : IBizAlbaranCliente): Boolean; overload;
|
||||
@ -103,7 +108,8 @@ type
|
||||
function Anadir(AAlbaran : IBizAlbaranCliente): Boolean; overload;
|
||||
function AnadirAlbaranDev(AAlbaran : IBizAlbaranCliente) : Boolean;
|
||||
function Buscar(const ID: Integer): IBizAlbaranCliente;
|
||||
function BuscarTodos: IBizAlbaranCliente;
|
||||
function BuscarTodos: IBizAlbaranCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizAlbaranCliente; overload;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranCliente;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranCliente;
|
||||
|
||||
@ -111,8 +117,12 @@ type
|
||||
function BuscarSinFacturar : IBizAlbaranCliente;
|
||||
function Nuevo (withInsert: Boolean = True) : IBizAlbaranCliente;
|
||||
procedure Ver(AAlbaran : IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranCliente);
|
||||
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
|
||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
||||
@ -155,7 +165,7 @@ uses
|
||||
// uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf,
|
||||
|
||||
uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils,
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail;
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail, uStringsUtils;
|
||||
|
||||
|
||||
|
||||
@ -292,6 +302,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteController.BuscarTodos(
|
||||
const ID_Cliente: Integer): IBizAlbaranCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_CLIENTE), NewConstant(ID_Cliente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteController.CambiarSituacion(
|
||||
AAlbaran: IBizAlbaranCliente; ANuevaSituacion: String; AFechaEnvio,
|
||||
AFechaRecibido: TDateTime; DoPost: Boolean): Boolean;
|
||||
@ -600,7 +634,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteController.VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente);
|
||||
procedure TAlbaranesClienteController.VerTodosAlbaranes(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorAlbaranesCliente;
|
||||
begin
|
||||
@ -611,10 +647,20 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Albaranes := AAlbarans;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -622,7 +668,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteController.VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente);
|
||||
procedure TAlbaranesClienteController.VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorAlbaranesDevCliente;
|
||||
begin
|
||||
@ -633,10 +681,19 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Albaranes := AAlbarans;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCAlbaranesCliente = interface(IInterface)
|
||||
['{1F0B5F6C-814F-423C-B15A-5C4591626008}']
|
||||
end;
|
||||
|
||||
TPluginAlbaranesCliente = class(TModuleController, IMCAlbaranesCliente)
|
||||
actAlbaranesCliente: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -27,6 +23,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerAlbaranes(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -34,8 +32,8 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uAlbaranesClienteController, uBizAlbaranesCliente, uAlbaranesClienteViewRegister;
|
||||
Forms, Dialogs, SysUtils, cxControls, uAlbaranesClienteViewRegister,
|
||||
uAlbaranesClienteController, uBizAlbaranesCliente;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -67,9 +65,34 @@ begin
|
||||
AAlbaranesClienteController.VerTodosAlbaranesDev(AAlbaranesCliente);
|
||||
end;
|
||||
|
||||
procedure TPluginAlbaranesCliente.VerAlbaranes(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
var
|
||||
AAlbaranesClienteController : IAlbaranesClienteController;
|
||||
AAlbaranesCliente : IBizAlbaranCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de albaranes del cliente %s', [ANombreCliente]);
|
||||
AAlbaranesClienteController := TAlbaranesClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AAlbaranesCliente := AAlbaranesClienteController.BuscarTodos(ID_Cliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AAlbaranesClienteController.VerTodosAlbaranes(AAlbaranesCliente, True, AText);
|
||||
finally
|
||||
AAlbaranesCliente := NIL;
|
||||
AAlbaranesClienteController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
constructor TPluginAlbaranesCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_ALBARANES_CLIENTE;
|
||||
uAlbaranesClienteViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
|
||||
@ -301,6 +301,10 @@ end;
|
||||
constructor TfEditorAlbaranesCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de albaranes de cliente';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
@ -475,11 +479,7 @@ procedure TfEditorAlbaranesCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
if (ATitulo = '') then
|
||||
FTitulo := 'Lista de albaranes de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE
|
||||
else
|
||||
FTitulo := ATitulo;
|
||||
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
|
||||
Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente'
|
||||
ExplicitWidth = 320
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -19,6 +19,7 @@ type
|
||||
procedure NuevoInterno; override;
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
constructor Create(AOwner: TComponent);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -41,6 +42,14 @@ begin
|
||||
ViewGrid := CreateView(TfrViewAlbaranesDevCliente) as IViewAlbaranesDevCliente;
|
||||
end;
|
||||
|
||||
constructor TfEditorAlbaranesDevCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de ¢rdenes de devoluci¢n a cliente';
|
||||
FWindowCaption := FHeaderText;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesDevCliente.NuevoInterno;
|
||||
begin
|
||||
// inherited;
|
||||
@ -52,7 +61,7 @@ procedure TfEditorAlbaranesDevCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de órdenes de devolución a cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -4,6 +4,7 @@
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
@ -46,6 +47,15 @@
|
||||
<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="Contactos_view">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -182,13 +192,13 @@
|
||||
<MSBuild Projects="..\Inventario\Controller\Inventario_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;AlbaranesCliente_view;Inventario_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;AlbaranesCliente_view;Inventario_controller" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;AlbaranesCliente_view:Clean;Inventario_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;AlbaranesCliente_view:Clean;Inventario_controller:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;AlbaranesCliente_view:Make;Inventario_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;AlbaranesCliente_view:Make;Inventario_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -21,13 +21,20 @@ type
|
||||
property DetallesController: IDetallesAlbaranProveedorController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizAlbaranProveedor;
|
||||
function BuscarTodos: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
|
||||
function BuscarTodos: IBizAlbaranProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesNormales(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesDevolucion(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarSinFacturar : IBizAlbaranProveedor;
|
||||
procedure Ver(AAlbaran : IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
|
||||
function Nuevo : IBizAlbaranProveedor;
|
||||
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
@ -95,14 +102,21 @@ type
|
||||
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
|
||||
function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizAlbaranProveedor;
|
||||
function BuscarTodos: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranProveedor;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
|
||||
function BuscarTodos: IBizAlbaranProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesNormales: IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesNormales(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor; overload;
|
||||
function BuscarAlbaranesDevolucion(const ID_Proveedor: Integer): IBizAlbaranProveedor; overload;
|
||||
function BuscarSinFacturar : IBizAlbaranProveedor;
|
||||
function Nuevo : IBizAlbaranProveedor;
|
||||
procedure Ver(AAlbaran : IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
|
||||
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
|
||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
||||
@ -130,7 +144,7 @@ uses
|
||||
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
|
||||
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
|
||||
uBizPedidosProveedor, uPedidosProveedorController,
|
||||
schInventarioClient_Intf,
|
||||
schInventarioClient_Intf, uStringsUtils,
|
||||
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
|
||||
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
|
||||
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController;
|
||||
@ -446,6 +460,32 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorController.BuscarTodos(
|
||||
const ID_Proveedor: Integer): IBizAlbaranProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_PROVEEDOR),
|
||||
NewConstant(ID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TAlbaranesProveedorController.CopiarDireccionEnvio(
|
||||
const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor);
|
||||
var
|
||||
@ -643,8 +683,6 @@ begin
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if ReadOnly then
|
||||
SetDataTableReadOnly(AAlbaran.DataTable, False);
|
||||
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -666,7 +704,6 @@ begin
|
||||
begin
|
||||
Albaran := AAlbaran;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -674,7 +711,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorController.VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure TAlbaranesProveedorController.VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorAlbaranesProveedor;
|
||||
begin
|
||||
@ -685,10 +724,19 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Albaranes := AAlbarans;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -696,7 +744,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesProveedorController.VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
|
||||
procedure TAlbaranesProveedorController.VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorAlbaranesDevProveedor;
|
||||
begin
|
||||
@ -707,10 +757,19 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Albaranes := AAlbarans;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -753,7 +812,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := AlbaranesProveedorSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -1091,5 +1149,54 @@ begin
|
||||
Result := FDetallesController;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorController.BuscarAlbaranesDevolucion(
|
||||
const ID_Proveedor: Integer): IBizAlbaranProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarAlbaranesDevolucion;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_PROVEEDOR),
|
||||
NewConstant(ID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAlbaranesProveedorController.BuscarAlbaranesNormales(
|
||||
const ID_Proveedor: Integer): IBizAlbaranProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarAlbaranesNormales;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_PROVEEDOR),
|
||||
NewConstant(ID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -42,10 +42,6 @@
|
||||
<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><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -55,9 +51,9 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Inventario_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedor.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesProveedorReport.pas" />
|
||||
<DCCReference Include="schAlbaranesProveedorClient_Intf.pas" />
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCAlbaranesProveedor = interface(IInterface)
|
||||
['{69EA97C0-7AEE-4D5A-80C8-402DDB3CE59E}']
|
||||
end;
|
||||
|
||||
TPluginAlbaranesProveedor = class(TModuleController, IMCAlbaranesProveedor)
|
||||
actAlbaranesProveedor: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -27,6 +23,10 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerAlbaranes(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
procedure VerDevoluciones(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -34,7 +34,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uAlbaranesProveedorController, uBizAlbaranesProveedor, uAlbaranesProveedorViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -70,6 +70,7 @@ end;
|
||||
constructor TPluginAlbaranesProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_ALBARANES_PROVEEDOR;
|
||||
uAlbaranesProveedorViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -79,6 +80,53 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginAlbaranesProveedor.VerAlbaranes(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor: String);
|
||||
var
|
||||
AAlbaranesProveedorController : IAlbaranesProveedorController;
|
||||
AAlbaranesProveedor : IBizAlbaranProveedor;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de albaranes del cliente %s', [ANombreProveedor]);
|
||||
AAlbaranesProveedorController := TAlbaranesProveedorController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AAlbaranesProveedor := AAlbaranesProveedorController.BuscarAlbaranesNormales(ID_Proveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AAlbaranesProveedorController.VerTodosAlbaranes(AAlbaranesProveedor, True, AText);
|
||||
finally
|
||||
AAlbaranesProveedor := NIL;
|
||||
AAlbaranesProveedorController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TPluginAlbaranesProveedor.VerDevoluciones(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor: String);
|
||||
var
|
||||
AAlbaranesProveedorController : IAlbaranesProveedorController;
|
||||
AAlbaranesProveedor : IBizAlbaranProveedor;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de devoluciones del cliente %s', [ANombreProveedor]);
|
||||
AAlbaranesProveedorController := TAlbaranesProveedorController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AAlbaranesProveedor := AAlbaranesProveedorController.BuscarAlbaranesDevolucion(ID_Proveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AAlbaranesProveedorController.VerTodosAlbaranesDev(AAlbaranesProveedor, True, AText);
|
||||
finally
|
||||
AAlbaranesProveedor := NIL;
|
||||
AAlbaranesProveedorController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginAlbaranesProveedor);
|
||||
|
||||
|
||||
@ -49,14 +49,14 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlbaranDevProveedor.pas">
|
||||
<Form>fEditorAlbaranDevProveedor</Form>
|
||||
|
||||
@ -21,6 +21,7 @@ type
|
||||
procedure NuevoInterno; override;
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
constructor Create(AOwner: TComponent);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -36,6 +37,14 @@ begin
|
||||
ViewGrid := CreateView(TfrViewAlbaranesDevProveedor) as IViewAlbaranesDevProveedor;
|
||||
end;
|
||||
|
||||
constructor TfEditorAlbaranesDevProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de órdenes de devolución de proveedor';
|
||||
FWindowCaption := FHeaderText;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesDevProveedor.NuevoInterno;
|
||||
begin
|
||||
// inherited;
|
||||
@ -47,7 +56,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de órdenes de devolución de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -101,6 +101,10 @@ end;
|
||||
constructor TfEditorAlbaranesProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de albaranes de proveedor';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
@ -276,11 +280,7 @@ procedure TfEditorAlbaranesProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
if (ATitulo = '') then
|
||||
FTitulo := 'Lista de albaranes de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE
|
||||
else
|
||||
FTitulo := ATitulo;
|
||||
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -9,7 +9,6 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="Data\Contactos_data.dproj" />
|
||||
<Projects Include="Model\Contactos_model.dproj" />
|
||||
@ -112,23 +111,14 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -6,8 +6,11 @@ uses
|
||||
uEditorDBBase, uBizGruposCliente, uGruposClienteController;
|
||||
|
||||
type
|
||||
IEditorGruposCliente = interface(IEditorDBBase)
|
||||
IEditorGruposCliente = interface
|
||||
['{7BF79417-A95C-41F3-96DE-707F2D6F29E3}']
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
|
||||
function GetGruposCliente: IBizGrupoCliente;
|
||||
procedure SetGruposCliente(const Value: IBizGrupoCliente);
|
||||
property GruposCliente: IBizGrupoCliente read GetGruposCliente write SetGruposCliente;
|
||||
|
||||
@ -6,8 +6,11 @@ uses
|
||||
uEditorDBBase, uBizGruposEmpleado, uGruposEmpleadoController;
|
||||
|
||||
type
|
||||
IEditorGruposEmpleado = interface(IEditorDBBase)
|
||||
IEditorGruposEmpleado = interface
|
||||
['{02981B41-9986-48D8-927C-A08A45168EDE}']
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
|
||||
function GetGruposEmpleado: IBizGrupoEmpleado;
|
||||
procedure SetGruposEmpleado(const Value: IBizGrupoEmpleado);
|
||||
property GruposEmpleado: IBizGrupoEmpleado read GetGruposEmpleado write SetGruposEmpleado;
|
||||
|
||||
@ -6,8 +6,11 @@ uses
|
||||
uEditorDBBase, uBizGruposProveedor, uGruposProveedorController;
|
||||
|
||||
type
|
||||
IEditorGruposProveedor = interface(IEditorDBBase)
|
||||
IEditorGruposProveedor = interface
|
||||
['{A593BC54-0A28-446E-A6B7-E925D7C4B82C}']
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
|
||||
function GetGruposProveedor: IBizGrupoProveedor;
|
||||
procedure SetGruposProveedor(const Value: IBizGrupoProveedor);
|
||||
property GruposProveedor: IBizGrupoProveedor read GetGruposProveedor write SetGruposProveedor;
|
||||
|
||||
@ -19,6 +19,10 @@ type
|
||||
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
procedure VerPresupuestosDeCliente(ACliente : IBizCliente);
|
||||
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
||||
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
||||
procedure VerRecibosDeCliente(ACliente : IBizCliente);
|
||||
end;
|
||||
|
||||
TClientesController = class(TContactosController, IClientesController)
|
||||
@ -48,6 +52,10 @@ type
|
||||
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
procedure VerPresupuestosDeCliente(ACliente : IBizCliente);
|
||||
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
||||
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
||||
procedure VerRecibosDeCliente(ACliente : IBizCliente);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -55,8 +63,9 @@ implementation
|
||||
uses
|
||||
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase,
|
||||
Dialogs, uIntegerListUtils, uIEditorElegirPersonaContactoCliente;
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController,
|
||||
Dialogs, uIntegerListUtils, uIEditorElegirPersonaContactoCliente, uFactuGES_App,
|
||||
uPlugins_Intf;
|
||||
|
||||
{ TClientesController }
|
||||
|
||||
@ -117,7 +126,6 @@ begin
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.ContactosSeleccionados;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
@ -140,7 +148,6 @@ begin
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.DireccionSeleccionada;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
@ -163,7 +170,6 @@ begin
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.PersonaSeleccionada;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
@ -388,7 +394,6 @@ begin
|
||||
Contacto := AContacto;
|
||||
Controller := Self;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -396,6 +401,90 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerAlbaranesDeCliente(ACliente: IBizCliente);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCAlbaranesCliente;
|
||||
begin
|
||||
if not Assigned(ACliente) then
|
||||
raise Exception.Create ('Cliente no asignado (VerAlbaranesDeCliente)');
|
||||
|
||||
if ACliente.DataTable.Active then
|
||||
ACliente.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_ALBARANES_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCAlbaranesCliente, APlugin) then
|
||||
APlugin.VerAlbaranes(ACliente.ID, ACliente.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerFacturasDeCliente(ACliente: IBizCliente);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCFacturasCliente;
|
||||
begin
|
||||
if not Assigned(ACliente) then
|
||||
raise Exception.Create ('Cliente no asignado (VerFacturasDeCliente)');
|
||||
|
||||
if ACliente.DataTable.Active then
|
||||
ACliente.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCFacturasCliente, APlugin) then
|
||||
APlugin.VerFacturas(ACliente.ID, ACliente.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerPresupuestosDeCliente(ACliente : IBizCliente);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCPresupuestosCliente;
|
||||
begin
|
||||
if not Assigned(ACliente) then
|
||||
raise Exception.Create ('Cliente no asignado (VerPresupuestosDeCliente)');
|
||||
|
||||
if ACliente.DataTable.Active then
|
||||
ACliente.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_PRESUPUESTOS_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCPresupuestosCliente, APlugin) then
|
||||
APlugin.VerPresupuestos(ACliente.ID, ACliente.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerRecibosDeCliente(ACliente: IBizCliente);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCRecibosCliente;
|
||||
begin
|
||||
if not Assigned(ACliente) then
|
||||
raise Exception.Create ('Cliente no asignado (VerFacturasDeCliente)');
|
||||
|
||||
if ACliente.DataTable.Active then
|
||||
ACliente.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_RECIBOS_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCRecibosCliente, APlugin) then
|
||||
APlugin.VerRecibos(ACliente.ID, ACliente.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorClientes;
|
||||
@ -411,7 +500,7 @@ begin
|
||||
Controller := Self;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
|
||||
@ -17,12 +17,17 @@ type
|
||||
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
function DarListaDescripcionesProveedores: TStringList;
|
||||
procedure VerPedidosDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerAlbaranesDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerDevolucionesDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerFacturasDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerRecibosDeProveedor(AProveedor : IBizProveedor);
|
||||
|
||||
end;
|
||||
|
||||
TProveedoresController = class(TContactosController, IProveedoresController)
|
||||
protected
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
@ -42,7 +47,12 @@ type
|
||||
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
function DarListaDescripcionesProveedores: TStringList;
|
||||
function DarListaDescripcionesProveedores: TStringList;
|
||||
procedure VerPedidosDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerAlbaranesDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerDevolucionesDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerFacturasDeProveedor(AProveedor : IBizProveedor);
|
||||
procedure VerRecibosDeProveedor(AProveedor : IBizProveedor);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -51,7 +61,8 @@ uses
|
||||
SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega,
|
||||
uEditorGridBase, uDAInterfaces, uIntegerListUtils;
|
||||
uEditorGridBase, uDAInterfaces, uIntegerListUtils, uFactuGES_App,
|
||||
uPlugins_Intf, uModuleController;
|
||||
|
||||
{ TProveedoresController }
|
||||
|
||||
@ -122,7 +133,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := ContactosSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -146,7 +156,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := DireccionSeleccionada;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -312,7 +321,6 @@ begin
|
||||
Contacto := AContacto;
|
||||
Controller := Self;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -320,6 +328,116 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerAlbaranesDeProveedor(
|
||||
AProveedor: IBizProveedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCAlbaranesProveedor;
|
||||
begin
|
||||
if not Assigned(AProveedor) then
|
||||
raise Exception.Create ('Proveedor no asignado (VerAlbaranesDeProveedor)');
|
||||
|
||||
if AProveedor.DataTable.Active then
|
||||
AProveedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_ALBARANES_PROVEEDOR);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCAlbaranesProveedor, APlugin) then
|
||||
APlugin.VerAlbaranes(AProveedor.ID, AProveedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerDevolucionesDeProveedor(
|
||||
AProveedor: IBizProveedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCAlbaranesProveedor;
|
||||
begin
|
||||
if not Assigned(AProveedor) then
|
||||
raise Exception.Create ('Proveedor no asignado (VerDevolucionesDeProveedor)');
|
||||
|
||||
if AProveedor.DataTable.Active then
|
||||
AProveedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_ALBARANES_PROVEEDOR);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCAlbaranesProveedor, APlugin) then
|
||||
APlugin.VerDevoluciones(AProveedor.ID, AProveedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerFacturasDeProveedor(
|
||||
AProveedor: IBizProveedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCFacturasProveedor;
|
||||
begin
|
||||
if not Assigned(AProveedor) then
|
||||
raise Exception.Create ('Proveedor no asignado (VerFacturasDeProveedor)');
|
||||
|
||||
if AProveedor.DataTable.Active then
|
||||
AProveedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_PROVEEDOR);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCFacturasProveedor, APlugin) then
|
||||
APlugin.VerFacturas(AProveedor.ID, AProveedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerPedidosDeProveedor(
|
||||
AProveedor: IBizProveedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCPedidosProveedor;
|
||||
begin
|
||||
if not Assigned(AProveedor) then
|
||||
raise Exception.Create ('Proveedor no asignado (VerPedidosDeProveedor)');
|
||||
|
||||
if AProveedor.DataTable.Active then
|
||||
AProveedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_PROVEEDOR);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCPedidosProveedor, APlugin) then
|
||||
APlugin.VerPedidos(AProveedor.ID, AProveedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerRecibosDeProveedor(
|
||||
AProveedor: IBizProveedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCRecibosProveedor;
|
||||
begin
|
||||
if not Assigned(AProveedor) then
|
||||
raise Exception.Create ('Proveedor no asignado (VerRecibosDeProveedor)');
|
||||
|
||||
if AProveedor.DataTable.Active then
|
||||
AProveedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_RECIBOS_PROVEEDOR);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCRecibosProveedor, APlugin) then
|
||||
APlugin.VerRecibos(AProveedor.ID, AProveedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TProveedoresController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorProveedores;
|
||||
|
||||
@ -49,52 +49,52 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\bdertl.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.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="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -28,8 +28,29 @@ type
|
||||
frViewClienteDescuentos1: TfrViewClienteDescuentos;
|
||||
pagDatosComerciales: TTabSheet;
|
||||
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
actDocumentosPresupuestos: TAction;
|
||||
actDocumentosAlbaranes: TAction;
|
||||
actDocumentosFacturas: TAction;
|
||||
TBXSubmenuItem8: TTBXSubmenuItem;
|
||||
TBXItem34: TTBXItem;
|
||||
TBXItem35: TTBXItem;
|
||||
TBXItem36: TTBXItem;
|
||||
TBXItem37: TTBXItem;
|
||||
TBXItem38: TTBXItem;
|
||||
TBXItem39: TTBXItem;
|
||||
TBXItem40: TTBXItem;
|
||||
actDocumentosRecibos: TAction;
|
||||
TBXItem41: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||
procedure actDocumentosPresupuestosExecute(Sender: TObject);
|
||||
procedure actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
procedure actDocumentosRecibosExecute(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
procedure SetContacto(const Value: IBizContacto); override;
|
||||
@ -42,11 +63,36 @@ implementation
|
||||
|
||||
uses
|
||||
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
|
||||
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
|
||||
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils,
|
||||
uClientesController;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorCliente.actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerAlbaranesDeCliente(IBizCliente(FContacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorCliente.actDocumentosFacturasExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerFacturasDeCliente(IBizCliente(FContacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorCliente.actDocumentosPresupuestosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerPresupuestosDeCliente(IBizCliente(FContacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorCliente.actDocumentosRecibosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerRecibosDeCliente(IBizCliente(FContacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
|
||||
var
|
||||
AGruposController : IGruposClienteController;
|
||||
|
||||
@ -3,17 +3,17 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Top = 313
|
||||
Caption = 'Lista de clientes'
|
||||
ClientHeight = 519
|
||||
ClientWidth = 786
|
||||
ExplicitWidth = 794
|
||||
ClientWidth = 857
|
||||
ExplicitWidth = 865
|
||||
ExplicitHeight = 553
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 786
|
||||
Width = 857
|
||||
Caption = 'Lista de clientes'
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
inherited Image1: TImage
|
||||
Left = 759
|
||||
Left = 830
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -49,25 +49,76 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 857
|
||||
ExplicitWidth = 857
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 775
|
||||
ExplicitWidth = 857
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [13]
|
||||
Caption = 'Documentos relacionados'
|
||||
DisplayMode = nbdmImageAndText
|
||||
DropdownCombo = True
|
||||
ImageIndex = 24
|
||||
Images = SmallImages
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actDocumentosPresupuestos
|
||||
end
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actDocumentosAlbaranes
|
||||
end
|
||||
object TBXItem41: TTBXItem
|
||||
Action = actDocumentosFacturas
|
||||
end
|
||||
object TBXItem44: TTBXItem
|
||||
Action = actDocumentosRecibos
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
inherited TBXSubmenuItemAcciones: TTBXSubmenuItem
|
||||
object TBXItem381: TTBXItem
|
||||
Action = actGruposCliente
|
||||
Caption = 'Ver grupos de cliente...'
|
||||
Images = SmallImages
|
||||
end
|
||||
object TBXSeparatorItem171: TTBXSeparatorItem
|
||||
end
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem
|
||||
Caption = 'Documentos relacionados'
|
||||
DropdownCombo = True
|
||||
ImageIndex = 24
|
||||
Images = SmallImages
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actDocumentosPresupuestos
|
||||
end
|
||||
object TBXItem39: TTBXItem
|
||||
Action = actDocumentosAlbaranes
|
||||
end
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actDocumentosFacturas
|
||||
end
|
||||
object TBXItem45: TTBXItem
|
||||
Action = actDocumentosRecibos
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 275
|
||||
DockPos = 275
|
||||
ExplicitLeft = 275
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 500
|
||||
Width = 786
|
||||
Width = 857
|
||||
ExplicitTop = 500
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
end
|
||||
inline frViewClientes1: TfrViewClientes [3]
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 786
|
||||
Width = 857
|
||||
Height = 398
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -79,24 +130,30 @@ inherited fEditorClientes: TfEditorClientes
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
ExplicitHeight = 398
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 786
|
||||
Width = 857
|
||||
Height = 270
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
ExplicitHeight = 270
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 clientes'
|
||||
Kind = skCount
|
||||
Column = frViewClientes1.cxGridViewBLOQUEADO
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 857
|
||||
ExplicitWidth = 857
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 857
|
||||
ExplicitWidth = 857
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -135,11 +192,11 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 857
|
||||
ExplicitWidth = 857
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
Width = 847
|
||||
ExplicitWidth = 847
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -151,13 +208,13 @@ inherited fEditorClientes: TfEditorClientes
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 372
|
||||
ExplicitTop = 372
|
||||
ExplicitWidth = 786
|
||||
ExplicitWidth = 857
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 857
|
||||
ExplicitWidth = 857
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
Width = 847
|
||||
ExplicitWidth = 847
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -182,6 +239,19 @@ inherited fEditorClientes: TfEditorClientes
|
||||
inherited actNuevo: TAction
|
||||
ImageIndex = 22
|
||||
end
|
||||
object actGruposCliente: TAction [1]
|
||||
Category = 'Acciones'
|
||||
Caption = 'Grupos de cliente'
|
||||
ImageIndex = 23
|
||||
OnExecute = actGruposClienteExecute
|
||||
end
|
||||
object actDocumentosFacturas: TAction [2]
|
||||
Category = 'Acciones'
|
||||
Caption = 'Facturas'
|
||||
ImageIndex = 27
|
||||
OnExecute = actDocumentosFacturasExecute
|
||||
OnUpdate = actDocumentosFacturasUpdate
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Enabled = True
|
||||
Visible = True
|
||||
@ -190,11 +260,26 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
object actGruposCliente: TAction
|
||||
object actDocumentosPresupuestos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Grupos de cliente'
|
||||
ImageIndex = 23
|
||||
OnExecute = actGruposClienteExecute
|
||||
Caption = 'Presupuestos'
|
||||
ImageIndex = 25
|
||||
OnExecute = actDocumentosPresupuestosExecute
|
||||
OnUpdate = actDocumentosFacturasUpdate
|
||||
end
|
||||
object actDocumentosAlbaranes: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Albaranes'
|
||||
ImageIndex = 26
|
||||
OnExecute = actDocumentosAlbaranesExecute
|
||||
OnUpdate = actDocumentosFacturasUpdate
|
||||
end
|
||||
object actDocumentosRecibos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Recibos'
|
||||
ImageIndex = 28
|
||||
OnExecute = actDocumentosRecibosExecute
|
||||
OnUpdate = actDocumentosFacturasUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
@ -739,6 +824,267 @@ inherited fEditorClientes: TfEditorClientes
|
||||
00000049454E44AE426082}
|
||||
Name = 'PngImage23'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000018E4944415478DA
|
||||
6364C002966C3EF19F010F88F1B56084B119CF4E6443516C9CFF8B116440B48F
|
||||
398AA6BFFFFE31FCF9F38F61CDAEB30CBD5316329CDF399D116E8051DE4FB0A2
|
||||
7393D8190E9FFFC520127C8201D90098E6DF7FFE326CDC778141469483A1B07E
|
||||
26D810B801FF7F7F6498942600D7943FFF3F866610BDF5D025B00B50BC6098F9
|
||||
8AE1CFD7070C971799A1385B3FE73B8AE6DF7F41F45F8603A76F81E5BB27CD87
|
||||
18A01B778AE1EFB7070CD7D68431A07B2779EA0F14CD20F69FBFFF184E5CBA87
|
||||
30402B6415C3DFAFF7196E6E2F67C0E69DA8BECF289A7FFDFECB70EEFA438401
|
||||
EA9E9D0CEF2F7530BC7AFA9E01977744435FC03583BC74F9F613840120A78280
|
||||
AD211B033EEF78D4BD046BFE0D34E4C683E71003906D21C63B76A58F197E010D
|
||||
B9F7E4157603B07907E42290A173DA0A192C0A1F805DF0F8E55BEC0660F30E48
|
||||
33C8D0B55B5E3218E7DC0587C5F337EF310DC0E59D3F5F6E317CBEB70E6C8058
|
||||
E829B81A8206C0BC03032003163ECF84F3FF337EC76F00CC3BC8A06001AA1EC6
|
||||
FFFFF1E65C820000241257B48E5A5E7D0000000049454E44AE426082}
|
||||
Name = 'PngImage24'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001774944415478DA
|
||||
63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F
|
||||
192CBCB3192EEE99856A80C35E4B14C5079C8F836964F1ED368718662EDFC530
|
||||
7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB0815586BB18966D3A84
|
||||
DB0098B341E01F50EECF9F7F709B034F3B312CD3DDC1B06ADB11FC06C05CB2CB
|
||||
EE0883DB211BB8CD61E7DD18166A6E6558BFEB387E03D06DFEFDE70F981F75D9
|
||||
8361AEEA2686CDFB4EE136609FD33106A77D56605BD79BEE033B1B044036C75F
|
||||
F76698AEB88161E7A133B80D00391BDDE69FBFFE30FC028AA5DFF567E8975CCD
|
||||
70F0D4454C0372623D195C0E58A384F862ED6D0CB157BDC0EC2972EB18721E05
|
||||
317489AE643876EE32A601E9916E605BFEFCFE07B639E2A23BC37CF52D60B1DF
|
||||
BF21B8F0792843ABE03286D397AE611A9018EA0CD70CF202CC6674D0C0BB98E1
|
||||
C2B59B9806C40638C23583FC8D6CF36F688C80F0BF7FFF192EDDB8856940848F
|
||||
2DC38A2D8789CE89180680044805200300115980F04CC063740000000049454E
|
||||
44AE426082}
|
||||
Name = 'PngImage25'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F33000001744944415478DA63FCFFFF3FC394
|
||||
C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
|
||||
98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0
|
||||
D7EFBF609B4178C98683D80D40770136B0AED69461E59623B80D80391B04FE01
|
||||
E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E036
|
||||
07359F66585A6AC0B069CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E
|
||||
0706FBE20360D999EC710CCA0D350CECECE9183A7FFE9CC9302FB18501C30090
|
||||
B3617E7ED6A6C6A0D5FE18AC180E7EFC00E2EF0CB3771930306F4F45189011E5
|
||||
C6E0587A10C516900B500C0069FEF00E62C02927540392C39CC1B6C2423DA4F5
|
||||
0CAA0130CD60037E32CCBE15846A405C90034A9445769E4718F0712242F3870F
|
||||
1017BC4A413520CA0FE177B841338C20063CAC47688679E15719AA01A15ED60C
|
||||
ABB71D450903A76BA9E05898BD4A1E6B1CA218004A18E8409BF70D8315EB719C
|
||||
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
|
||||
Name = 'PngImage26'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001684944415478DA
|
||||
63FCFFFF3FC394C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F
|
||||
19ACFDF319CEED98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC
|
||||
5BBA09D3007CE0D7EFBF609B4178C98683D80D40770136B0AED69461E59623B8
|
||||
0D80391B04FE01E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D
|
||||
760CCEE587E03607359F66585A6AC0B069CF49FC06A0DB0CC2207E58FB598685
|
||||
85BA0CDB0E9CC16DC0C15E0706FBE203605B37375A809D0D02209BA3BB2F30CC
|
||||
C9D566D87DE41C6E0340CE46B7F9E7AF3F6076D2C42B0C53D2D4180E9FBE8C69
|
||||
4046941B8363E94194105F5E6EC810D9791ECC9E99A5C9903EED3A437F920AC3
|
||||
89F357310D480E7386DB08A2435ACF302C2ED687B8049A067266DD62E88A5364
|
||||
387BF906A60171410E280107B3191DB446C9315CBA7E1BD380283F3B147F23DB
|
||||
FC1BC9E07FFFFE335CB97907D380502F6B86D5DB8E129D13310C0009900A4006
|
||||
00004B6D80F047EC10D30000000049454E44AE426082}
|
||||
Name = 'PngImage27'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F330000012D4944415478DA63FCFFFF3F0325
|
||||
80916203966D3945B60991DEA68C6003B42CC41852B26F6355F4E7E77F86DFDF
|
||||
FE31FCFEFC97E1FBFBDF60F68E73460C89D19D0CE7764C4318000230434E2E77
|
||||
C63048416B135C3308A018D0B7F8235C214CB30CFF5E880B3E3F6278F12F11CC
|
||||
16175BC3F0FFF76F06865F7F18E4EC4E103600A41904600688092E076B66001A
|
||||
22E77C16BB01BFBEFC6338BFD915C30BC89A19FFFC619075BF881A0620FF8334
|
||||
FFFAF297E1D75760A07DF9C3B032A610670C641FF64018D03D793E8682A9B63B
|
||||
184C53EA197E89A933309DE86638BFEF3CC3DC7DCF19A6B478C1D973F67E6764
|
||||
C465C3B116C5D003AFD556DDBD7C10AB7CB293649865F5BDD5F80CF84FB10B80
|
||||
D42A9042AABA00A4D1AAE6FE6A901A503E22D90573F7FD80EB011B40696E0400
|
||||
A0BEE1E16734A0290000000049454E44AE426082}
|
||||
Name = 'PngImage28'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
@ -1563,6 +1909,297 @@ inherited fEditorClientes: TfEditorClientes
|
||||
0049454E44AE426082}
|
||||
Name = 'PngImage22'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000002444944415478DA
|
||||
9D964B6813511885CF2074E74A70E34277522BD2E842178A1041108A6ED4858A
|
||||
28880F908A5D148A50105CD4450B4AC520BE8A56C4D7A2AD548B41A90FAA6932
|
||||
69190CA52E54444DEBA8D8343269E65EE7BF319967676E7BE06766C2F07D77EE
|
||||
C9C02808C8EDFE118E45A4B3BB07EAD3CB8AF33725E84612EC6FDAB82078EFC0
|
||||
5BAC58BE0C2DED5D2E8992BE5017B8DAF5CDC682058DF5AB30ADCFB82442E084
|
||||
715682DABD142FD5124EDD90DB29D364B83B98C2E60DAB51281A2E894B40705E
|
||||
FA89EC95956838D881C4E9964809C14D93E3FED028E29B1A509A2BBB24354115
|
||||
CEAC19BF19134F504D9084330ED39AB225A0F347C98C28D91B21889D9CA9C12B
|
||||
A357AE8D1FB8DAD1EA1338E1E6FF29338657EA47CC1667A1EBBAB8EF7A6F5F45
|
||||
D078F493D896A078BB980FEE3DEF4FBEB305EB0EA9625BA2CA968533AB93C72F
|
||||
52B660EDBE24B43BDB105676F335260DA7FB9E0C8FDA8235BBEFE1FD83BD882A
|
||||
FB58624E0A4E8B78F63A630BEA772690EB3B8EA8B28F5C32A4E074FD7C246B0B
|
||||
68955B6275882AFBF0C5BF52709AE1D478455005C8947DA0ABE01210B4FAA209
|
||||
11E735F19BB4E617C894BDE7FCEF40B8F7C9526339BF40B6EC5DE7F450381D33
|
||||
DA845F205B76D3D9E95038CD586ED22F70961D04FFA575E2E1401E3BDAA742E1
|
||||
B47DDAC407B7C05BB6176E1A53F833794B08B69FF91E0AA7840AA86C2F9C1979
|
||||
143E0F0941BCED6B283C5240657BE1CC3A16F35921D8DAFA25141E29A0B2F574
|
||||
5BE00B478225F141C8645E81F32F19949E6F27A4041485F3457DA148E71FF2CE
|
||||
98E361E521AA0000000049454E44AE426082}
|
||||
Name = 'PngImage23'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001CC4944415478DA
|
||||
63FCFFFF3F032D0123B2058B361EA79A6D71FE968C582D004A906CD8DFBFFF80
|
||||
F83F9806010BDF6C868B7B66E1B6C0752FAA25BB9D8FE3341C59ED5A8B030CF3
|
||||
56EF6198BF64237E0B4871B9C7016B0659651686F9DB8E30BC8BFEC6B070FD3E
|
||||
C21660F301BA18086CB53DC2E07DD88661CFCD1360FEEB882F0C4B361DA0CC07
|
||||
FFFF01C31A88FF005D0F62FFFE070CFF3FFFC0BEF9F3EF2FC38A2D8749F70131
|
||||
00E48B4741EF18D6EE38469C05306F9302EEFBBF61D8B0FB047116E04B39D800
|
||||
48CF4CD5CD0C9BF69D24DE025C4105B31C260F533B4D7913C3D603A768E78389
|
||||
0A1B18761D3E433B1FF4C9AC63D87BFC1CED7CD02DB986E1C0A90BF82D88F631
|
||||
07E74E727CD02EBE8AE1C8994BF82D88F03403E74E727CD024BC9CE1E485ABF8
|
||||
2D08753361F03B66479605F5024B19CE5CBE8EDF8200172386E0130E780D0359
|
||||
BEE4CF5C383F8625196C410DEF6286F3D76EE2B7C0D7C1005EAE40CAF97FE0B2
|
||||
072C062CF373EFFB63C40F8C5FC9BD88E1D28D5BF82DF0B2D5C36938882E7814
|
||||
8835F888B6C0CD5A1BA7E1A012B4E46930CEA023CA0247730DB061FFFE428AE5
|
||||
DF7F11C5F1BFFF508BFEFD437104322068819D891AB844A404E0B5A077F27C8A
|
||||
0C8701980500F0E629EF34B079A30000000049454E44AE426082}
|
||||
Name = 'PngImage25'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F330000026A4944415478DA63FCFFFF3F032D
|
||||
0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80F83F980601EBC0
|
||||
7C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3C275FB19E62DDD
|
||||
84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD97890B005D87C802E
|
||||
06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9E0FF3F605803F1
|
||||
1FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F18E70860DBB4E10
|
||||
6701CCDBA480075B431936EF3D459C05F8520E3600D2B3A8508F61EB81D3C45B
|
||||
802BA86096C3E4616AE7E7EB32EC387486721F4C2C7064F8CA7E8E41F8D527BC
|
||||
BE7AF2D589341FC02C6D2BE76788F0FBC520C1F883E1D74F0608FEC1C0F01346
|
||||
03F1C9134458800DCC4C6464884D85B0F119CE2FC1C070F52E160B223C4DC1B9
|
||||
139B0F62DE3B31B008E28FEC3FEF1186638D8350371370EEC4E60364D783C0A7
|
||||
F71017C330C80767CE4082C6CE701FC3A1F3587C10E46CC4E0567D04A70520CD
|
||||
8400C87010C06A819FA3018357ED31AC1A414184EC0310F8FB17182CBF19187E
|
||||
FF02FAE23B03C38D1B0839AC1678DBE9C1CB155819032A7B40F49E7A51140B40
|
||||
86FE061AFEE71784BD660D07839AC60F0636163C167858EB60351C54A1EC6F12
|
||||
C3880390C1201F80F0966D1C0C52F2100BD85819184E5CC662818BA51656C341
|
||||
F4A15609140BDEBE44180EB268E71E0E061169880557EE383134AFDACB886181
|
||||
BDA93AD8B07F7F11C532CCC2E39DD2700B4006BE7B85301C1454FB0E7230F089
|
||||
FF6078F0046238D6646A63A40A2E11B101D67D9E600B664EE5C09982DEFDB662
|
||||
D8FA491D7759D43B65214ECDF6BCFB187818A5F1265190E12000B300003BBC36
|
||||
ACFF3E80210000000049454E44AE426082}
|
||||
Name = 'PngImage26'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001BE4944415478DA
|
||||
63FCFFFF3F032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80
|
||||
F83F980601EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3
|
||||
C275FB19E62DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD978
|
||||
90B005D87C802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9
|
||||
E0FF3F605803F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F1
|
||||
8E70860DBB4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A850
|
||||
8F61EB81D3C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7
|
||||
E839DAF96046A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3
|
||||
838929AA0CC7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988
|
||||
C1ADFA08591674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F70
|
||||
7E820D0BD882B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275F
|
||||
C1881F18BF394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5
|
||||
164EC3411667CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F
|
||||
322068818D912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE42
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage24'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F330000028C4944415478DADD945F4853511C
|
||||
C7BF77646942ABE9A061F6BF8690D443427B88A2321123166EDAA21E122308EA
|
||||
B184407DC887E8A932F0611A3542325F0A0729B432A849CA68CA1CA2B86C0C4B
|
||||
43A428EFEEEE9FCE39E8DA9FBB7F0F7BE9073F7EE7DE7BCEF7737EBFF33B9753
|
||||
1405F934EEFF00F43A47F34689026C7555392D1425059224232C882C8AB2CC22
|
||||
1B131722121AAFB6C6030E5BDE6514964540126444C2448CB8F0538448C78204
|
||||
99BC672E8A687FA045CFB357C980B1FEE371A033B53EB4365D4B06911D53AFAE
|
||||
71603A50C284BF85CEA174CB73709284B647BAD4006A741C2B3EBEFC05756573
|
||||
88AC7C4541D17638433B602C324010049C35F7C33FA1C5C2623D9B5B5AEC407B
|
||||
973E7D066BE2E5C5C308FE3EC622151F5A3A8AD3BAB704B21B538B5530EA47E1
|
||||
0D56A2DEFA12C3AE26E8373E25352419D80DEA80C4D21834BD98976DD8AA7130
|
||||
F11A9D1B834B2654970C6166D986FDDA018C7F3F8586F303981C59C7C4E941B5
|
||||
F594670788CF60161C0AA18067194C840EA2B2CC8B4FD3FB70E1D220263F70AB
|
||||
5D403278B2333D2016229105BE5F417606023F85F585467606DBE44D08F37C92
|
||||
38B59480D82EA2ED6736FBD172B1994164D6EB52D4E973A3CD19155F8C5C815E
|
||||
D3951E10BD48B4B77985C50D073CF86C79AF7A2FF4B596B89DAF992A20F1968A
|
||||
AB37D377BF02FA9356EC3D72173323B7D89C85D931708100BA5DF3B0DF3E9104
|
||||
EE0C5D4F06743A5EABEE72F31F0FF6FCB033B1446BE9B89112EC29B8FC0F70EF
|
||||
E1E38CBF09CFCD39D5F7CD1DAEE4B9449C1A03701C9751FCE39D5D4A2E6522D0
|
||||
866E17FF22178095843EB532D9DFACA8420980CB0A40C54DA68A3EB56F6EB75F
|
||||
F56C881D22006FB680B4E5A13B4DB536EB0C52958718AB755A403E2DEF80BF27
|
||||
2521AB920B52530000000049454E44AE426082}
|
||||
Name = 'PngImage27'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
@ -1572,6 +2209,24 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
inherited StatusBarImages: TPngImageList [10]
|
||||
end
|
||||
inherited GridPopupMenu: TPopupMenu
|
||||
object Documentosrelacionados1: TMenuItem [9]
|
||||
Caption = 'Documentos relacionados'
|
||||
ImageIndex = 24
|
||||
object Presupuestos1: TMenuItem
|
||||
Action = actDocumentosPresupuestos
|
||||
end
|
||||
object Albaranes1: TMenuItem
|
||||
Action = actDocumentosAlbaranes
|
||||
end
|
||||
object Facturas1: TMenuItem
|
||||
Action = actDocumentosFacturas
|
||||
end
|
||||
object Recibos1: TMenuItem
|
||||
Action = actDocumentosRecibos
|
||||
end
|
||||
end
|
||||
end
|
||||
object JsListaContactosNoEliminados: TJSDialog
|
||||
Glyph.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||
|
||||
@ -21,7 +21,33 @@ type
|
||||
actGruposCliente: TAction;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
frViewClientes1: TfrViewClientes;
|
||||
actDocumentosPresupuestos: TAction;
|
||||
actDocumentosAlbaranes: TAction;
|
||||
actDocumentosFacturas: TAction;
|
||||
TBXItem381: TTBXItem;
|
||||
TBXSeparatorItem171: TTBXSeparatorItem;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem38: TTBXItem;
|
||||
TBXItem39: TTBXItem;
|
||||
TBXItem40: TTBXItem;
|
||||
Documentosrelacionados1: TMenuItem;
|
||||
Presupuestos1: TMenuItem;
|
||||
Albaranes1: TMenuItem;
|
||||
Facturas1: TMenuItem;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem41: TTBXItem;
|
||||
TBXItem42: TTBXItem;
|
||||
TBXItem43: TTBXItem;
|
||||
actDocumentosRecibos: TAction;
|
||||
Recibos1: TMenuItem;
|
||||
TBXItem44: TTBXItem;
|
||||
TBXItem45: TTBXItem;
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasUpdate(Sender: TObject);
|
||||
procedure actDocumentosPresupuestosExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||
procedure actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
procedure actDocumentosRecibosExecute(Sender: TObject);
|
||||
protected
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
@ -44,6 +70,38 @@ uses
|
||||
{
|
||||
******************************* TfEditorClientes *******************************
|
||||
}
|
||||
procedure TfEditorClientes.actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerAlbaranesDeCliente(IBizCliente(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actDocumentosFacturasExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerFacturasDeCliente(IBizCliente(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actDocumentosFacturasUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actDocumentosPresupuestosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerPresupuestosDeCliente(IBizCliente(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actDocumentosRecibosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IClientesController).VerRecibosDeCliente(IBizCliente(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actGruposClienteExecute(Sender: TObject);
|
||||
var
|
||||
AGruposController : IGruposClienteController;
|
||||
|
||||
@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -108,6 +109,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -139,6 +152,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -19,6 +19,11 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
object TBXSubmenuItemAcciones: TTBXSubmenuItem [4]
|
||||
Caption = 'A&cciones'
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
|
||||
@ -17,6 +17,7 @@ uses
|
||||
|
||||
type
|
||||
TfEditorContactos = class(TfEditorGridBase, IEditorContactos)
|
||||
TBXSubmenuItemAcciones: TTBXSubmenuItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
protected
|
||||
FContactos: IBizContacto;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -25,7 +25,32 @@ type
|
||||
pagDirecciones: TTabSheet;
|
||||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
||||
actGruposProveedor: TAction;
|
||||
actDocumentosPedidos: TAction;
|
||||
actDocumentosAlbaranes: TAction;
|
||||
actDocumentosDevoluciones: TAction;
|
||||
actDocumentosFacturas: TAction;
|
||||
actDocumentosRecibos: TAction;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXItem34: TTBXItem;
|
||||
TBXItem35: TTBXItem;
|
||||
TBXItem36: TTBXItem;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
TBXItem37: TTBXItem;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem38: TTBXItem;
|
||||
TBXItem39: TTBXItem;
|
||||
TBXItem40: TTBXItem;
|
||||
TBXItem41: TTBXItem;
|
||||
TBXItem42: TTBXItem;
|
||||
TBXSubmenuItem8: TTBXSubmenuItem;
|
||||
procedure actGruposProveedorExecute(Sender: TObject);
|
||||
procedure actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
procedure actDocumentosPedidosExecute(Sender: TObject);
|
||||
procedure actDocumentosDevolucionesExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||
procedure actDocumentosRecibosExecute(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
procedure SetContacto(const Value: IBizContacto); override;
|
||||
@ -41,7 +66,38 @@ implementation
|
||||
{ TfEditorProveedor }
|
||||
|
||||
uses
|
||||
uDialogUtils, uGruposProveedorController, uBizGruposProveedor;
|
||||
uDialogUtils, uGruposProveedorController, uBizGruposProveedor,
|
||||
uProveedoresController;
|
||||
|
||||
procedure TfEditorProveedor.actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerAlbaranesDeProveedor(IBizProveedor(Contacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedor.actDocumentosDevolucionesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerDevolucionesDeProveedor(IBizProveedor(Contacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedor.actDocumentosFacturasExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerFacturasDeProveedor(IBizProveedor(Contacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedor.actDocumentosPedidosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerPedidosDeProveedor(IBizProveedor(Contacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedor.actDocumentosRecibosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerRecibosDeProveedor(IBizProveedor(Contacto));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedor.actGruposProveedorExecute(Sender: TObject);
|
||||
var
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -19,6 +19,35 @@ type
|
||||
JsPrevisualizarDialog: TJSDialog;
|
||||
JsImprimirDialog: TJSDialog;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
actDocumentosPedidos: TAction;
|
||||
actDocumentosAlbaranes: TAction;
|
||||
actDocumentosDevoluciones: TAction;
|
||||
actDocumentosFacturas: TAction;
|
||||
actDocumentosRecibos: TAction;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem38: TTBXItem;
|
||||
TBXItem39: TTBXItem;
|
||||
TBXItem40: TTBXItem;
|
||||
TBXItem41: TTBXItem;
|
||||
TBXItem42: TTBXItem;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem43: TTBXItem;
|
||||
TBXItem44: TTBXItem;
|
||||
TBXItem45: TTBXItem;
|
||||
TBXItem46: TTBXItem;
|
||||
TBXItem47: TTBXItem;
|
||||
Documentosrelacionados1: TMenuItem;
|
||||
Pedidos1: TMenuItem;
|
||||
Albaranes1: TMenuItem;
|
||||
Devoluciones1: TMenuItem;
|
||||
Facturas1: TMenuItem;
|
||||
Recibos1: TMenuItem;
|
||||
procedure actDocumentosPedidosUpdate(Sender: TObject);
|
||||
procedure actDocumentosPedidosExecute(Sender: TObject);
|
||||
procedure actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
procedure actDocumentosDevolucionesExecute(Sender: TObject);
|
||||
procedure actDocumentosFacturasExecute(Sender: TObject);
|
||||
procedure actDocumentosRecibosExecute(Sender: TObject);
|
||||
protected
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
@ -38,6 +67,44 @@ uses
|
||||
|
||||
{ TfEditorProveedores }
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosAlbaranesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerAlbaranesDeProveedor(IBizProveedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosDevolucionesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerDevolucionesDeProveedor(IBizProveedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosFacturasExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerFacturasDeProveedor(IBizProveedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosPedidosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerPedidosDeProveedor(IBizProveedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosPedidosUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
procedure TfEditorProveedores.actDocumentosRecibosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IProveedoresController).VerRecibosDeProveedor(IBizProveedor(FContactos));
|
||||
end;
|
||||
|
||||
constructor TfEditorProveedores.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
uEditorDBBase, uBizFabricantes, uFabricantesController;
|
||||
|
||||
type
|
||||
IEditorFabricantes = interface(IEditorDBBase)
|
||||
IEditorFabricantes = interface
|
||||
['{1DD6E573-CCD8-4443-9AC3-378CF63EB639}']
|
||||
function GetFabricantes: IBizFabricante;
|
||||
procedure SetFabricantes(const Value: IBizFabricante);
|
||||
@ -15,6 +15,9 @@ type
|
||||
function GetController : IFabricantesController;
|
||||
procedure SetController (const Value : IFabricantesController);
|
||||
property Controller : IFabricantesController read GetController write SetController;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -47,15 +47,6 @@
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.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="Fabricantes_model">
|
||||
<MSBuild Projects="Model\Fabricantes_model.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -101,14 +92,23 @@
|
||||
<Target Name="Fabricantes_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Fabricantes_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="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES;Fabricantes_model;Fabricantes_data;Fabricantes_controller;Fabricantes_view;Fabricantes_plugin" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Fabricantes_model;Fabricantes_data;Fabricantes_controller;Fabricantes_view;Fabricantes_plugin;FactuGES" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean;Fabricantes_model:Clean;Fabricantes_data:Clean;Fabricantes_controller:Clean;Fabricantes_view:Clean;Fabricantes_plugin:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Fabricantes_model:Clean;Fabricantes_data:Clean;Fabricantes_controller:Clean;Fabricantes_view:Clean;Fabricantes_plugin:Clean;FactuGES:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make;Fabricantes_model:Make;Fabricantes_data:Make;Fabricantes_controller:Make;Fabricantes_view:Make;Fabricantes_plugin:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Fabricantes_model:Make;Fabricantes_data:Make;Fabricantes_controller:Make;Fabricantes_view:Make;Fabricantes_plugin:Make;FactuGES:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -20,10 +20,13 @@ type
|
||||
property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente; overload;
|
||||
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
|
||||
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
procedure Ver(AFactura : IBizFacturaCliente);
|
||||
procedure VerTodos(AFacturas: IBizFacturaCliente);
|
||||
procedure VerTodos(AFacturas: IBizFacturaCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
|
||||
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
@ -90,11 +93,14 @@ type
|
||||
// function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente; overload;
|
||||
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
|
||||
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
|
||||
procedure Ver(AFactura : IBizFacturaCliente);
|
||||
procedure VerTodos(AFacturas: IBizFacturaCliente);
|
||||
procedure VerTodos(AFacturas: IBizFacturaCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
|
||||
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
|
||||
procedure RecuperarCliente(AFactura : IBizFacturaCliente);
|
||||
@ -122,7 +128,7 @@ uses
|
||||
uBizDetallesAlbaranCliente, uFacturasClienteReportController,
|
||||
DateUtils, Forms, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
|
||||
uRecibosClienteController, uBizRecibosCliente, uIntegerListUtils,
|
||||
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs;
|
||||
uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs, uStringsUtils;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
@ -449,6 +455,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.BuscarTodos(
|
||||
const AID_Cliente: Integer): IBizFacturaCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_CLIENTE), NewConstant(AID_Cliente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.BuscarTodos: IBizFacturaCliente;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
@ -608,7 +638,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.VerTodos(AFacturas: IBizFacturaCliente);
|
||||
procedure TFacturasClienteController.VerTodos(AFacturas: IBizFacturaCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorFacturasCliente;
|
||||
begin
|
||||
@ -619,10 +651,19 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Facturas := AFacturas;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := Nil;
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCFacturasCliente = interface(IInterface)
|
||||
['{8E559C5E-2878-48DB-9A87-9F82678E984F}']
|
||||
end;
|
||||
|
||||
TPluginFacturasCliente = class(TModuleController, IMCFacturasCliente)
|
||||
actFacturasCliente: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -24,6 +20,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerFacturas(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -31,7 +29,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uFacturasClienteController, uBizFacturasCliente, uFacturasClienteViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -56,6 +54,7 @@ end;
|
||||
constructor TPluginFacturasCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_FACTURAS_CLIENTE;
|
||||
uFacturasClienteViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -65,6 +64,30 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginFacturasCliente.VerFacturas(const ID_Cliente: Integer;
|
||||
const ANombreCliente: String);
|
||||
var
|
||||
AFacturasClienteController : IFacturasClienteController;
|
||||
AFacturasCliente : IBizFacturaCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de facturas del cliente %s', [ANombreCliente]);
|
||||
AFacturasClienteController := TFacturasClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AFacturasClienteController.VerTodos(AFacturasCliente, True, AText);
|
||||
finally
|
||||
AFacturasCliente := NIL;
|
||||
AFacturasClienteController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginFacturasCliente);
|
||||
|
||||
|
||||
@ -49,16 +49,16 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
@ -80,7 +80,7 @@
|
||||
</DCCReference>
|
||||
<DCCReference Include="uFacturasClienteViewRegister.pas" />
|
||||
<DCCReference Include="uViewDatosYSeleccionClienteFacturaCliente.pas">
|
||||
<Form>fruViewDatosYSeleccionClienteFacturaCliente</Form>
|
||||
<Form>frViewDatosYSeleccionClienteFacturaCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesFacturaCliente.pas">
|
||||
|
||||
@ -178,6 +178,10 @@ end;
|
||||
constructor TfEditorFacturasCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de facturas de cliente';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
ViewGrid := frViewFacturasCliente1; // CreateView(TfrViewFacturasCliente) as IViewFacturasCliente;
|
||||
end;
|
||||
|
||||
@ -366,7 +370,7 @@ procedure TfEditorFacturasCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de facturas de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -20,9 +20,12 @@ type
|
||||
property DetallesController: IDetallesFacturaProveedorController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizFacturaProveedor;
|
||||
function BuscarTodos: IBizFacturaProveedor;
|
||||
function BuscarTodos: IBizFacturaProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
|
||||
procedure Ver(AFactura : IBizFacturaProveedor);
|
||||
procedure VerTodos(AFacturas: IBizFacturaProveedor);
|
||||
procedure VerTodos(AFacturas: IBizFacturaProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
function Nuevo (withInsert: Boolean = True) : IBizFacturaProveedor;
|
||||
function Anadir(AFactura : IBizFacturaProveedor) : Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaProveedor) : Boolean;
|
||||
@ -87,11 +90,14 @@ type
|
||||
// function Anadir(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor): Boolean; overload;
|
||||
function Anadir(AFactura : IBizFacturaProveedor; const IDPedido : Integer): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaProveedor;
|
||||
function BuscarTodos: IBizFacturaProveedor;
|
||||
function BuscarTodos: IBizFacturaProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
|
||||
// function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
|
||||
function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor;
|
||||
procedure Ver(AFactura : IBizFacturaProveedor);
|
||||
procedure VerTodos(AFacturas: IBizFacturaProveedor);
|
||||
procedure VerTodos(AFacturas: IBizFacturaProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
function Duplicar(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
|
||||
function GenerarAbono(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
|
||||
procedure RecuperarProveedor(AFactura : IBizFacturaProveedor);
|
||||
@ -119,7 +125,7 @@ uses
|
||||
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
|
||||
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
|
||||
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
|
||||
uFormasPagoController, uBizFormasPago;
|
||||
uFormasPagoController, uBizFormasPago, uStringsUtils;
|
||||
|
||||
procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoProveedor;
|
||||
ADestino : IBizDetallesFacturaProveedor);
|
||||
@ -242,6 +248,31 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TFacturasProveedorController.BuscarTodos(
|
||||
const ID_Proveedor: Integer): IBizFacturaProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PROVEEDOR),
|
||||
NewConstant(ID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
{REPASARRRRR
|
||||
function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
|
||||
begin
|
||||
@ -455,8 +486,6 @@ begin
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if ReadOnly then
|
||||
SetDataTableReadOnly(AFactura.DataTable, False);
|
||||
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -464,7 +493,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorController.VerTodos(AFacturas: IBizFacturaProveedor);
|
||||
procedure TFacturasProveedorController.VerTodos(AFacturas: IBizFacturaProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorFacturasProveedor;
|
||||
begin
|
||||
@ -474,10 +505,19 @@ begin
|
||||
CreateEditor('EditorFacturasProveedor', IEditorFacturasProveedor, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Facturas := AFacturas;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := Nil;
|
||||
@ -522,7 +562,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := FacturasProveedoreSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -935,4 +974,3 @@ begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCFacturasProveedor = interface(IInterface)
|
||||
['{271C68BC-F755-46B1-AEFF-769AC5172815}']
|
||||
end;
|
||||
|
||||
TPluginFacturasProveedor = class(TModuleController, IMCFacturasProveedor)
|
||||
actFacturasProveedor: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -24,6 +20,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerFacturas(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -31,8 +29,9 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uFacturasProveedorController, uBizFacturasProveedor, uFacturasProveedorViewRegister;
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uFacturasProveedorController, uBizFacturasProveedor,
|
||||
uFacturasProveedorViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -56,6 +55,7 @@ end;
|
||||
constructor TPluginFacturasProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_FACTURAS_PROVEEDOR;
|
||||
uFacturasProveedorViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -65,6 +65,29 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginFacturasProveedor.VerFacturas(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor: String);
|
||||
var
|
||||
AFacturasProveedorController : IFacturasProveedorController;
|
||||
AFacturasProveedor : IBizFacturaProveedor;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de facturas del proveedor %s', [ANombreProveedor]);
|
||||
AFacturasProveedorController := TFacturasProveedorController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFacturasProveedor := AFacturasProveedorController.BuscarTodos(ID_Proveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AFacturasProveedorController.VerTodos(AFacturasProveedor, True, AText);
|
||||
finally
|
||||
AFacturasProveedor := NIL;
|
||||
AFacturasProveedorController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginFacturasProveedor);
|
||||
|
||||
|
||||
@ -154,6 +154,10 @@ end;
|
||||
constructor TfEditorFacturasProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de facturas de proveedor';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
ViewGrid := frViewFacturasProveedor1; // CreateView(TfrViewFacturasProveedor) as IViewFacturasProveedor;
|
||||
end;
|
||||
|
||||
@ -344,7 +348,7 @@ procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de facturas de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
@ -406,4 +410,4 @@ begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
uEditorDBBase, uBizFamilias, uFamiliasController;
|
||||
|
||||
type
|
||||
IEditorFamilias = interface(IEditorDBBase)
|
||||
IEditorFamilias = interface
|
||||
['{28CD8E74-C3D5-4862-A8F9-CF0EE3E79FED}']
|
||||
function GetFamilias: IBizFamilia;
|
||||
procedure SetFamilias(const Value: IBizFamilia);
|
||||
@ -15,6 +15,9 @@ type
|
||||
function GetController : IFamiliasController;
|
||||
procedure SetController (const Value : IFamiliasController);
|
||||
property Controller : IFamiliasController read GetController write SetController;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -6,6 +6,7 @@
|
||||
<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\Familias_controller.dproj" />
|
||||
@ -92,6 +93,15 @@
|
||||
<Target Name="Familias_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Familias_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>
|
||||
@ -102,13 +112,13 @@
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -39,64 +39,23 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">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">Inventario_data.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">Inventario_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Inventario_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Lib\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Inventario_model.dcp" />
|
||||
<DCCReference Include="uDataModuleInventario.pas">
|
||||
<Form>DataModuleInventario</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -20,11 +20,14 @@ type
|
||||
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor; overload;
|
||||
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
function BuscarSinFacturar : IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
|
||||
function Nuevo : IBizPedidoProveedor;
|
||||
procedure Anadir(APedido : IBizPedidoProveedor);
|
||||
@ -95,12 +98,16 @@ type
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
procedure Anadir(APedido : IBizPedidoProveedor);
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor; overload;
|
||||
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
function BuscarSinFacturar : IBizPedidoProveedor;
|
||||
function Nuevo : IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
|
||||
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
|
||||
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
|
||||
|
||||
@ -233,6 +240,31 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarTodos(
|
||||
const AID_Proveedor: Integer): IBizPedidoProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_PROVEEDOR
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID_PROVEEDOR),
|
||||
NewConstant(AID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarTodos: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
@ -320,7 +352,6 @@ begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
PedidoProveedor := APedido;
|
||||
ShowModal;
|
||||
Release;
|
||||
Result := True;
|
||||
end;
|
||||
finally
|
||||
@ -465,8 +496,6 @@ begin
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if ReadOnly then
|
||||
SetDataTableReadOnly(APedido.DataTable, False);
|
||||
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -474,7 +503,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure TPedidosProveedorController.VerTodos(APedidos: IBizPedidoProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorPedidosProveedor;
|
||||
begin
|
||||
@ -485,10 +516,19 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Pedidos := APedidos;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -511,7 +551,6 @@ begin
|
||||
begin
|
||||
Pedido := APedido;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -554,7 +593,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := PedidosProveedorSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCPedidosProveedor = interface(IInterface)
|
||||
['{E2ACE521-1B3E-4AFD-99F4-058E328D39D1}']
|
||||
end;
|
||||
|
||||
TPluginPedidosProveedor = class(TModuleController, IMCPedidosProveedor)
|
||||
actPedidosProveedor: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -24,6 +20,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerPedidos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -31,7 +29,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uPedidosProveedorController, uBizPedidosProveedor, uPedidosProveedorViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -56,6 +54,7 @@ end;
|
||||
constructor TPluginPedidosProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_PEDIDOS_PROVEEDOR;
|
||||
uPedidosProveedorViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -65,6 +64,30 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginPedidosProveedor.VerPedidos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor: String);
|
||||
var
|
||||
APedidosController : IPedidosProveedorController;
|
||||
APedidos : IBizPedidoProveedor;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de pedidos del proveedor %s', [ANombreProveedor]);
|
||||
APedidosController := TPedidosProveedorController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedidos := APedidosController.BuscarTodos(ID_Proveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
APedidosController.VerTodos(APedidos, True, AText);
|
||||
finally
|
||||
APedidos := NIL;
|
||||
APedidosController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginPedidosProveedor);
|
||||
|
||||
|
||||
@ -49,43 +49,43 @@
|
||||
<DelphiCompile Include="PedidosProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\Obras_model.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uDialogOpcionesImpresion.pas">
|
||||
<Form>fDialogOpcionesImpresion</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
|
||||
@ -5,6 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
ClientWidth = 700
|
||||
Position = poDesigned
|
||||
ExplicitWidth = 708
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -181,6 +181,10 @@ end;
|
||||
constructor TfEditorPedidosProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de pedidos a proveedor';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
ViewGrid := frViewPedidosProveedor1; //CreateView(TfrViewPedidosProveedor) as IViewPedidosProveedor;
|
||||
end;
|
||||
|
||||
@ -363,7 +367,7 @@ procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de pedidos a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -49,12 +49,12 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GestorDocumentos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\GestorDocumentos_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_data.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uArticulosPresupuestoClienteController.pas" />
|
||||
<DCCReference Include="uDetallesPresupuestoClienteController.pas" />
|
||||
<DCCReference Include="uPresupuestosClienteController.pas" />
|
||||
|
||||
@ -29,11 +29,14 @@ type
|
||||
procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente);
|
||||
function Buscar(const ID: Integer): IBizPresupuestoCliente; overload;
|
||||
function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload;
|
||||
function BuscarTodos: IBizPresupuestoCliente;
|
||||
function BuscarTodos: IBizPresupuestoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
|
||||
function BuscarAceptados : IBizPresupuestoCliente;
|
||||
function BuscarSinFacturar : IBizPresupuestoCliente;
|
||||
procedure Ver(APresupuesto : IBizPresupuestoCliente);
|
||||
procedure VerTodos(APresupuestos: IBizPresupuestoCliente);
|
||||
procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
|
||||
function Nuevo : IBizPresupuestoCliente;
|
||||
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
|
||||
@ -106,12 +109,15 @@ type
|
||||
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
|
||||
function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload;
|
||||
function Buscar(const ID: Integer): IBizPresupuestoCliente; overload;
|
||||
function BuscarTodos: IBizPresupuestoCliente;
|
||||
function BuscarTodos: IBizPresupuestoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
|
||||
function BuscarAceptados : IBizPresupuestoCliente;
|
||||
function BuscarSinFacturar : IBizPresupuestoCliente;
|
||||
function Nuevo : IBizPresupuestoCliente;
|
||||
procedure Ver(APresupuesto : IBizPresupuestoCliente);
|
||||
procedure VerTodos(APresupuestos: IBizPresupuestoCliente);
|
||||
procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
|
||||
function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
|
||||
|
||||
@ -139,7 +145,7 @@ uses
|
||||
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
|
||||
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
|
||||
schContactosClient_Intf, uPresupuestosClienteReportController,
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs;
|
||||
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils;
|
||||
|
||||
{ TPresupuestosClienteController }
|
||||
|
||||
@ -251,6 +257,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteController.BuscarTodos(
|
||||
const ID_Cliente: Integer): IBizPresupuestoCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID_CLIENTE), NewConstant(ID_Cliente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteController.CambiarSituacion(APresupuesto: IBizPresupuestoCliente;
|
||||
Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
|
||||
// En el caso de cambiar almenos un elemento del conjunto se devuelve true
|
||||
@ -499,7 +529,9 @@ begin
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente);
|
||||
procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorPresupuestosCliente;
|
||||
begin
|
||||
@ -508,13 +540,22 @@ begin
|
||||
try
|
||||
CreateEditor('EditorPresupuestosCliente', IEditorPresupuestosCliente, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Presupuestos := APresupuestos;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Presupuestos := APresupuestos;
|
||||
MultiSelect := True;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
|
||||
@ -41,11 +41,7 @@
|
||||
<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><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
<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><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -59,7 +55,6 @@
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\Controller\PresupuestosCliente_viewcontainsuPluginPresupuestosClientein.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_view.dcp" />
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCPresupuestosCliente = interface(IInterface)
|
||||
['{4C4C1C6A-3CA8-4D81-B420-40F068BFF833}']
|
||||
end;
|
||||
|
||||
TPluginPresupuestosCliente = class(TModuleController, IMCPresupuestosCliente)
|
||||
actPresupuestosCliente: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -25,6 +21,9 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -32,7 +31,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uPresupuestosClienteController, uBizPresupuestosCliente, uPresupuestosClienteViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -50,13 +49,14 @@ var
|
||||
|
||||
begin
|
||||
APresupuestosClienteController := TPresupuestosClienteController.Create;
|
||||
APresupuestosCliente := (APresupuestosClienteController.BuscarTodos as IBizPresupuestoCliente);
|
||||
APresupuestosCliente := APresupuestosClienteController.BuscarTodos;
|
||||
APresupuestosClienteController.VerTodos(APresupuestosCliente);
|
||||
end;
|
||||
|
||||
constructor TPluginPresupuestosCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_PRESUPUESTOS_CLIENTE;
|
||||
uPresupuestosClienteViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -66,6 +66,29 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginPresupuestosCliente.VerPresupuestos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
var
|
||||
APresupuestosClienteController : IPresupuestosClienteController;
|
||||
APresupuestosCliente : IBizPresupuestoCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de presupuestos del cliente %s', [ANombreCliente]);
|
||||
APresupuestosClienteController := TPresupuestosClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APresupuestosCliente := APresupuestosClienteController.BuscarTodos(ID_Cliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
APresupuestosClienteController.VerTodos(APresupuestosCliente, True, AText);
|
||||
finally
|
||||
APresupuestosCliente := NIL;
|
||||
APresupuestosClienteController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginPresupuestosCliente);
|
||||
|
||||
|
||||
@ -9,8 +9,6 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" />
|
||||
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
|
||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="..\Articulos\Data\Articulos_data.dproj" />
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
@ -18,10 +16,8 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
|
||||
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Presupuestos de cliente - Albaranes de cliente\PreCli_AlbCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\PresupuestosCliente_controller.dproj" />
|
||||
@ -207,42 +203,6 @@
|
||||
<Target Name="PresupuestosCliente_plugin:Make">
|
||||
<MSBuild Projects="Plugin\PresupuestosCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbProv_FacProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbProv_FacProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbProv_FacProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view:Clean">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view:Make">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_controller">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_controller:Make">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -262,13 +222,13 @@
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacCli_relation;PreCli_AlbCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;AlbProv_FacProv_relation;AlbaranesProveedor_view;AlbaranesCliente_controller;FacturasCliente_controller;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacCli_relation;PreCli_AlbCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacCli_relation:Clean;PreCli_AlbCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;AlbaranesCliente_controller:Clean;FacturasCliente_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacCli_relation:Clean;PreCli_AlbCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacCli_relation:Make;PreCli_AlbCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;AlbaranesCliente_controller:Make;FacturasCliente_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacCli_relation:Make;PreCli_AlbCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -32,46 +32,13 @@ requires
|
||||
Articulos_view,
|
||||
PreCli_AlbCli_relation,
|
||||
PreCli_FacCli_relation,
|
||||
vcl,
|
||||
rtl,
|
||||
tb2k_d10,
|
||||
tbx_d10,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
cxEditorsD11,
|
||||
cxDataD11,
|
||||
dbrtl,
|
||||
vcljpg,
|
||||
vcldb,
|
||||
DataAbstract_Core_D11,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
dxLayoutControlD11,
|
||||
dxComnD11,
|
||||
JvStdCtrlsD11R,
|
||||
JclVcl,
|
||||
Jcl,
|
||||
JvCoreD11R,
|
||||
JvSystemD11R,
|
||||
JvCtrlsD11R,
|
||||
GUISDK_D11,
|
||||
xmlrtl,
|
||||
cfpack_d11,
|
||||
designide,
|
||||
ccpackD11,
|
||||
cxExtEditorsD11,
|
||||
GestorInformes_controller;
|
||||
|
||||
contains
|
||||
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
|
||||
uViewPresupuestosCliente in 'uViewPresupuestosCliente.pas' {frViewPresupuestosCliente: TFrame},
|
||||
uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame},
|
||||
uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidoCliente},
|
||||
uEditorPresupuestoCliente in 'uEditorPresupuestoCliente.pas' {fEditorPresupuestoCliente: TfEditorPedidoCliente},
|
||||
uViewDetallesPresupuestoCliente in 'uViewDetallesPresupuestoCliente.pas' {frViewDetallesPresupuestoCliente: TFrame},
|
||||
uEditorElegirPresupuestosCliente in 'uEditorElegirPresupuestosCliente.pas' {fEditorElegirPresupuestosCliente: TfEditorElegirPedidosCliente},
|
||||
|
||||
@ -49,48 +49,14 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PreCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PreCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
||||
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||
@ -107,6 +73,10 @@
|
||||
<Form>fEditorPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorPedidoCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorPresupuestosCliente.pas">
|
||||
<Form>fEditorPresupuestosCliente</Form>
|
||||
<DesignClass>TfEditorPedidoCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorPresupuestosClienteReport.pas">
|
||||
<Form>fEditorPresupuestosClientePreview</Form>
|
||||
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
|
||||
|
||||
@ -361,13 +361,17 @@ end;
|
||||
constructor TfEditorPresupuestosCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FHeaderText := 'Lista de presupuestos de cliente';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
destructor TfEditorPresupuestosCliente.Destroy;
|
||||
begin
|
||||
FPresupuestos := NIL;
|
||||
FController := NIL;
|
||||
FController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -515,7 +519,7 @@ procedure TfEditorPresupuestosCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de presupuestos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -54,14 +54,18 @@ type
|
||||
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
|
||||
|
||||
function Buscar(const ID: Integer): IBizRecibosCliente;
|
||||
function BuscarTodos: IBizRecibosCliente;
|
||||
function BuscarTodos: IBizRecibosCliente; overload;
|
||||
function BuscarTodos(const ID_CLIENTE: integer): IBizRecibosCliente; overload;
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||
function BuscarRecibosARemesar: IBizRecibosCliente;
|
||||
|
||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
|
||||
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
||||
|
||||
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
||||
@ -117,14 +121,18 @@ type
|
||||
function Nuevo : IBizRecibosCliente;
|
||||
|
||||
function Buscar(const ID: Integer): IBizRecibosCliente;
|
||||
function BuscarTodos: IBizRecibosCliente;
|
||||
function BuscarTodos: IBizRecibosCliente; overload;
|
||||
function BuscarTodos(const ID_CLIENTE: integer): IBizRecibosCliente; overload;
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
|
||||
function BuscarRecibosARemesar: IBizRecibosCliente;
|
||||
|
||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
|
||||
procedure VerTodos(ARecibosCliente: IBizRecibosCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
|
||||
procedure Ver(ARecibosCliente: IBizRecibosCliente);
|
||||
|
||||
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
|
||||
@ -149,7 +157,8 @@ uses
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
|
||||
uRecibosClienteReportController, uBizContactos, uDADelta, uIntegerListUtils,
|
||||
schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
|
||||
uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago;
|
||||
uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago,
|
||||
uStringsUtils;
|
||||
|
||||
{ TRecibosClienteController }
|
||||
|
||||
@ -405,6 +414,31 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRecibosClienteController.BuscarTodos(
|
||||
const ID_CLIENTE: integer): IBizRecibosCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_CLIENTE),
|
||||
NewConstant(ID_Cliente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRecibosClienteController._Vacio: IBizRecibosCliente;
|
||||
begin
|
||||
Result := Buscar(ID_NULO);
|
||||
@ -536,7 +570,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRecibosClienteController.VerTodos(ARecibosCliente: IBizRecibosCliente);
|
||||
procedure TRecibosClienteController.VerTodos(ARecibosCliente: IBizRecibosCliente;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorRecibosCliente;
|
||||
begin
|
||||
@ -547,10 +583,20 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
RecibosCliente := ARecibosCliente;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
|
||||
@ -18,7 +18,7 @@ type
|
||||
FDataModule : IDataModuleRecibosClienteReport;
|
||||
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
public
|
||||
constructor Create;
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const ListaID : TIntegerList);
|
||||
@ -36,6 +36,7 @@ uses
|
||||
|
||||
constructor TRecibosClienteReportController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModuleRecibosCliente.Create(Nil);
|
||||
end;
|
||||
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCRecibosCliente = interface(IInterface)
|
||||
['{9078C6E6-6733-4CD8-BCBF-DEC48A322CF7}']
|
||||
end;
|
||||
|
||||
TPluginRecibosCliente = class(TModuleController, IMCRecibosCliente)
|
||||
actRecibosCliente: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -24,6 +20,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerRecibos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -31,7 +29,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uRecibosClienteController, uBizRecibosCliente, uRecibosClienteViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -56,6 +54,7 @@ end;
|
||||
constructor TPluginRecibosCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_RECIBOS_CLIENTE;
|
||||
uRecibosClienteViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -65,6 +64,30 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginRecibosCliente.VerRecibos(const ID_Cliente: Integer;
|
||||
const ANombreCliente: String);
|
||||
var
|
||||
ARecibosController : IRecibosClienteController;
|
||||
ARecibos : IBizRecibosCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de recibos del cliente %s', [ANombreCliente]);
|
||||
ARecibosController := TRecibosClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARecibos := ARecibosController.BuscarTodos(ID_Cliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
ARecibosController.VerTodos(ARecibos, True, AText);
|
||||
finally
|
||||
ARecibos := NIL;
|
||||
ARecibosController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginRecibosCliente);
|
||||
|
||||
|
||||
@ -117,6 +117,10 @@ constructor TfEditorRecibosCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FController := TRecibosClienteController.Create;
|
||||
|
||||
FHeaderText := 'Lista de recibos de cliente';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
ViewGrid := frViewRecibosCliente1; // CreateView(TfrViewRecibosCliente) as IViewRecibosCliente;
|
||||
end;
|
||||
|
||||
@ -221,7 +225,7 @@ procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de recibos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -50,14 +50,18 @@ type
|
||||
function Nuevo : IBizRecibosProveedor;
|
||||
procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor);
|
||||
function Buscar(const ID: Integer): IBizRecibosProveedor;
|
||||
function BuscarTodos: IBizRecibosProveedor;
|
||||
function BuscarTodos: IBizRecibosProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor: Integer): IBizRecibosProveedor; overload;
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
|
||||
function BuscarRecibosARemesar: IBizRecibosProveedor;
|
||||
|
||||
procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
|
||||
procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
|
||||
procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
|
||||
function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
|
||||
|
||||
@ -112,14 +116,17 @@ type
|
||||
function Nuevo : IBizRecibosProveedor;
|
||||
|
||||
function Buscar(const ID: Integer): IBizRecibosProveedor;
|
||||
function BuscarTodos: IBizRecibosProveedor;
|
||||
function BuscarTodos: IBizRecibosProveedor; overload;
|
||||
function BuscarTodos(const ID_Proveedor: Integer): IBizRecibosProveedor; overload;
|
||||
|
||||
function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
|
||||
function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
|
||||
function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
|
||||
function BuscarRecibosARemesar: IBizRecibosProveedor;
|
||||
|
||||
procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor);
|
||||
procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
procedure Ver(ARecibosProveedor: IBizRecibosProveedor);
|
||||
|
||||
function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor;
|
||||
@ -142,7 +149,7 @@ uses
|
||||
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
|
||||
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
|
||||
uRecibosProveedorReportController, uBizContactos, uDADelta,
|
||||
uRecibosProveedorReportController, uBizContactos, uDADelta, uStringsUtils,
|
||||
schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor,
|
||||
uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor;
|
||||
|
||||
@ -167,7 +174,6 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
FechaPago := DateToStr(AEditor.FechaPago);
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
@ -383,6 +389,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController.BuscarTodos(
|
||||
const ID_Proveedor: Integer): IBizRecibosProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR),
|
||||
NewConstant(ID_Proveedor, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRecibosProveedorController._Vacio: IBizRecibosProveedor;
|
||||
begin
|
||||
Result := Buscar(ID_NULO);
|
||||
@ -508,7 +538,6 @@ begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Recibo := ARecibosProveedor;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -516,7 +545,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor);
|
||||
procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorRecibosProveedor;
|
||||
begin
|
||||
@ -527,9 +558,18 @@ begin
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self;
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
Controller := Self;
|
||||
RecibosProveedor := ARecibosProveedor;
|
||||
ShowEmbedded;
|
||||
if AVerModal then
|
||||
ShowModal
|
||||
else
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -554,7 +594,6 @@ begin
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := RecibosProveedorSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
@ -726,7 +765,6 @@ begin
|
||||
FechaPago:= '';
|
||||
if (AEditor.ShowModal = mrOk) then
|
||||
FechaPago := DateToStr(AEditor.FechaPago);
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
|
||||
@ -4,13 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCRecibosProveedor = interface(IInterface)
|
||||
['{24A23E95-D148-404C-9987-B1ED4A19D3CA}']
|
||||
end;
|
||||
|
||||
TPluginRecibosProveedor = class(TModuleController, IMCRecibosProveedor)
|
||||
actRecibosProveedor: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
@ -24,6 +20,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerRecibos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -31,8 +29,8 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
uRecibosProveedorController, uBizRecibosProveedor, uRecibosProveedorViewRegister;
|
||||
Forms, Dialogs, SysUtils, cxControls, uRecibosProveedorViewRegister,
|
||||
uRecibosProveedorController, uBizRecibosProveedor;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -56,6 +54,7 @@ end;
|
||||
constructor TPluginRecibosProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_RECIBOS_PROVEEDOR;
|
||||
uRecibosProveedorViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -65,6 +64,29 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginRecibosProveedor.VerRecibos(const ID_Proveedor: Integer;
|
||||
const ANombreProveedor: String);
|
||||
var
|
||||
ARecibosController : IRecibosProveedorController;
|
||||
ARecibos : IBizRecibosProveedor;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de recibos del proveedor %s', [ANombreProveedor]);
|
||||
ARecibosController := TRecibosProveedorController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARecibos := ARecibosController.BuscarTodos(ID_Proveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
ARecibosController.VerTodos(ARecibos, True, AText);
|
||||
finally
|
||||
ARecibos := NIL;
|
||||
ARecibosController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginRecibosProveedor);
|
||||
|
||||
|
||||
@ -112,8 +112,12 @@ end;
|
||||
|
||||
constructor TfEditorRecibosProveedor.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
inherited;
|
||||
FController := TRecibosProveedorController.Create;
|
||||
|
||||
FHeaderText := 'Lista de recibos de proveedor';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
ViewGrid := frViewRecibosProveedor1; // CreateView(TfrViewRecibosProveedor) as IViewRecibosProveedor;
|
||||
end;
|
||||
|
||||
@ -181,7 +185,7 @@ procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de recibos de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
uEditorDBBase, uBizUnidadesMedida, uUnidadesMedidaController;
|
||||
|
||||
type
|
||||
IEditorUnidadesMedida = interface(IEditorDBBase)
|
||||
IEditorUnidadesMedida = interface
|
||||
['{5786FFF0-8036-4018-B77E-CE98F1FF1CD9}']
|
||||
function GetUnidadesMedida: IBizUnidadMedida;
|
||||
procedure SetUnidadesMedida(const Value: IBizUnidadMedida);
|
||||
@ -15,6 +15,9 @@ type
|
||||
function GetController : IUnidadesMedidaController;
|
||||
procedure SetController (const Value : IUnidadesMedidaController);
|
||||
property Controller : IUnidadesMedidaController read GetController write SetController;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Show;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user