Version 4.3.2 - Comerciales, instaladores y pasar facturas de cliente de abeto a facturas de proveedor a graden
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@173 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
parent
b70d953285
commit
622dffcfe8
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:00:07</LastBuildRun>
|
||||
<LastBuildStart>04/04/2022 10:55:43</LastBuildStart>
|
||||
<LastBuildState>True</LastBuildState>
|
||||
<LastBuildRun>00:00:00</LastBuildRun>
|
||||
<LastBuildStart>06/02/2023 20:23:47</LastBuildStart>
|
||||
<LastBuildState>False</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -46,21 +46,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:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</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>
|
||||
@ -71,43 +56,43 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.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\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.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\rtl.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\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxNavBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
|
||||
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
|
||||
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
|
||||
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
|
||||
|
||||
@ -32,7 +32,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils,
|
||||
Forms, Dialogs, SysUtils, uFactuGES_App,
|
||||
uEjerciciosController, uBizEjercicios, uEjerciciosViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
@ -57,6 +57,18 @@ constructor TPluginEjercicios.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uEjerciciosViewRegister.RegisterViews;
|
||||
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
|
||||
begin
|
||||
actEjercicios.Enabled := True;
|
||||
actEjercicios.Visible := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
actEjercicios.Enabled := False;
|
||||
actEjercicios.Visible := False;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
destructor TPluginEjercicios.Destroy;
|
||||
|
||||
@ -9,9 +9,14 @@ uses
|
||||
|
||||
const
|
||||
CTE_PERFIL_ADMINISTRADOR = 3;
|
||||
CTE_PERFIL_VENDEDOR = 7;
|
||||
CTE_PERFIL_VENDEDOR_GRADEN = 7;
|
||||
CTE_PERFIL_VENDEDOR_MARBELLA = 9;
|
||||
CTE_PERFIL_COMPRAS = 8;
|
||||
CTE_PERFIL_USUARIO = 5;
|
||||
CTE_PERFIL_USUARIO = 5;
|
||||
|
||||
CTE_EMPRESA_ABETO = 1;
|
||||
CTE_EMPRESA_GRADEN = 2;
|
||||
CTE_EMPRESA_GRADEN_MARBELLA = 6;
|
||||
|
||||
type
|
||||
TAppFactuGES_Event = procedure;
|
||||
|
||||
@ -58,54 +58,54 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -52,7 +52,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.9.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><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
Binary file not shown.
@ -22,7 +22,7 @@ begin
|
||||
with AppFactuGES.ModuleManager do
|
||||
begin
|
||||
LoadModule('Referencias_plugin.bpl');
|
||||
// LoadModule('TiposVenta_plugin.bpl');
|
||||
LoadModule('Delegaciones_plugin.bpl');
|
||||
LoadModule('FormasPago_plugin.bpl');
|
||||
LoadModule('TiposIVA_plugin.bpl');
|
||||
LoadModule('TiposOperacionCompra_plugin.bpl');
|
||||
|
||||
@ -274,7 +274,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
|
||||
Category = 'Menus'
|
||||
Caption = 'Log'#237'stica'
|
||||
OnExecute = actMenuLogisticaExecute
|
||||
OnUpdate = actMenuLogisticaUpdate
|
||||
end
|
||||
object actMenuVentas: TAction
|
||||
Category = 'Menus'
|
||||
|
||||
@ -124,7 +124,6 @@ type
|
||||
procedure actMenuInformesExecute(Sender: TObject);
|
||||
procedure Listadeempresas1_OLDClick(Sender: TObject);
|
||||
procedure actInformacionEmpresaExecute(Sender: TObject);
|
||||
procedure actMenuLogisticaUpdate(Sender: TObject);
|
||||
private
|
||||
FContenido : TCustomEditor;
|
||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||||
@ -196,7 +195,8 @@ end;
|
||||
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
|
||||
begin
|
||||
//El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2))
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR) then
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_GRADEN)
|
||||
or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_MARBELLA) then
|
||||
begin
|
||||
Informes1.Enabled := False;
|
||||
Informes1.Visible := False;
|
||||
@ -247,8 +247,14 @@ begin
|
||||
ATitulo := AppFactuGES.GetAppFullName;
|
||||
|
||||
if Assigned(AppFactuGES.EmpresaActiva) then
|
||||
begin
|
||||
ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
|
||||
|
||||
actMenuLogistica.Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
actMenuLogistica.Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
end;
|
||||
|
||||
|
||||
Application.Title := ATitulo;
|
||||
Caption := Application.Title;
|
||||
|
||||
@ -435,12 +441,6 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.actMenuLogisticaUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = 1;
|
||||
(Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = 1;
|
||||
end;
|
||||
|
||||
procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject);
|
||||
var
|
||||
i : integer;
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -256,8 +256,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 419
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
@ -203,12 +203,17 @@ end;
|
||||
procedure TfrViewAlbaranesCliente.ConfigView;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
|
||||
cxGridViewTIENDA.Visible := True
|
||||
else
|
||||
//Solo para Graden
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
|
||||
cxGridViewTIENDA.VisibleForCustomization := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
cxGridViewTIENDA.VisibleForCustomization := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
||||
|
||||
@ -65,7 +65,9 @@ object PluginComisiones: TPluginComisiones
|
||||
object actComisiones: TAction
|
||||
Category = 'Comisiones'
|
||||
Caption = 'Liquidaciones de comisiones'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actComisionesExecute
|
||||
OnUpdate = actComisionesUpdate
|
||||
end
|
||||
|
||||
@ -185,6 +185,16 @@ constructor TPluginContabilidad.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
uContabilidadViewRegister.RegisterViews;
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
|
||||
begin
|
||||
actSubCuentas.Enabled := True;
|
||||
actSubCuentas.Visible := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
actSubCuentas.Enabled := False;
|
||||
actSubCuentas.Visible := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TPluginContabilidad.Destroy;
|
||||
|
||||
@ -14,6 +14,10 @@
|
||||
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
|
||||
<Projects Include="..\Contabilidad\Plugin\Contabilidad_plugin.dproj" />
|
||||
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
|
||||
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
|
||||
<Projects Include="..\Delegaciones\Controller\Delegaciones_controller.dproj" />
|
||||
<Projects Include="..\Delegaciones\Model\Delegaciones_model.dproj" />
|
||||
<Projects Include="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
@ -191,14 +195,50 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_plugin">
|
||||
<MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_plugin:Clean">
|
||||
<MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_plugin:Make">
|
||||
<MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_controller">
|
||||
<MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_controller:Clean">
|
||||
<MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_controller:Make">
|
||||
<MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_model">
|
||||
<MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_model:Clean">
|
||||
<MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Delegaciones_model:Make">
|
||||
<MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_view">
|
||||
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_view:Make">
|
||||
<MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;Contabilidad_plugin;GestorInformes_view;PresupuestosCliente_controller;PresupuestosCliente_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;Contabilidad_plugin;GestorInformes_view;PresupuestosCliente_controller;PresupuestosCliente_view;Delegaciones_plugin;Delegaciones_controller;Delegaciones_model;ContratosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_plugin:Clean;GestorInformes_view:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_plugin:Clean;GestorInformes_view:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;Delegaciones_plugin:Clean;Delegaciones_controller:Clean;Delegaciones_model:Clean;ContratosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_plugin:Make;GestorInformes_view:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_plugin:Make;GestorInformes_view:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;Delegaciones_plugin:Make;Delegaciones_controller:Make;Delegaciones_model:Make;ContratosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -37,7 +37,17 @@ requires
|
||||
rtl,
|
||||
vclactnband,
|
||||
vclx,
|
||||
vcl;
|
||||
vcl,
|
||||
dbrtl,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
dxCoreD11;
|
||||
|
||||
contains
|
||||
uContactosController in 'uContactosController.pas',
|
||||
@ -47,7 +57,7 @@ contains
|
||||
uIEditorClientes in 'View\uIEditorClientes.pas',
|
||||
uClientesController in 'uClientesController.pas',
|
||||
uIEditorProveedores in 'View\uIEditorProveedores.pas',
|
||||
uIEditorVendedores in 'View\uIEditorVendedores.pas',
|
||||
uIEditorComerciales in 'View\uIEditorComerciales.pas',
|
||||
uIEditorVendedor in 'View\uIEditorVendedor.pas',
|
||||
uIEditorProveedor in 'View\uIEditorProveedor.pas',
|
||||
uProveedoresController in 'uProveedoresController.pas',
|
||||
@ -69,6 +79,13 @@ contains
|
||||
uPersonalContactoController in 'uPersonalContactoController.pas',
|
||||
uIEditorElegirPersonaContacto in 'View\uIEditorElegirPersonaContacto.pas',
|
||||
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas',
|
||||
uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas';
|
||||
uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas',
|
||||
uIEditorInstaladores in 'View\uIEditorInstaladores.pas',
|
||||
uIEditorInstalador in 'View\uIEditorInstalador.pas',
|
||||
uIEditorComercial in 'View\uIEditorComercial.pas',
|
||||
uComercialesController in 'uComercialesController.pas',
|
||||
uInstaladoresController in 'uInstaladoresController.pas',
|
||||
uIEditorElegirComerciales in 'View\uIEditorElegirComerciales.pas',
|
||||
uIEditorElegirInstaladores in 'View\uIEditorElegirInstaladores.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -49,6 +49,24 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -62,49 +80,66 @@
|
||||
<DelphiCompile Include="Contactos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_data.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="uClientesController.pas" />
|
||||
<DCCReference Include="uComercialesController.pas" />
|
||||
<DCCReference Include="uContactosController.pas" />
|
||||
<DCCReference Include="uDireccionesContactoController.pas" />
|
||||
<DCCReference Include="uEtiquetasContactosReportController.pas" />
|
||||
<DCCReference Include="uGruposClienteController.pas" />
|
||||
<DCCReference Include="uGruposProveedorController.pas" />
|
||||
<DCCReference Include="uInstaladoresController.pas" />
|
||||
<DCCReference Include="uPersonalContactoController.pas" />
|
||||
<DCCReference Include="uProcedenciasClienteController.pas" />
|
||||
<DCCReference Include="uProveedoresController.pas" />
|
||||
<DCCReference Include="uVendedoresController.pas" />
|
||||
<DCCReference Include="View\adortl.dcp" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="View\Contactos_data.dcp" />
|
||||
<DCCReference Include="View\Contactos_model.dcp" />
|
||||
<DCCReference Include="View\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="View\dbrtl.dcp" />
|
||||
<DCCReference Include="View\designide.dcp" />
|
||||
<DCCReference Include="View\dsnap.dcp" />
|
||||
<DCCReference Include="View\dxCoreD11.dcp" />
|
||||
<DCCReference Include="View\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="View\dxThemeD11.dcp" />
|
||||
<DCCReference Include="View\GUIBase.dcp" />
|
||||
<DCCReference Include="View\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorComercial.pas" />
|
||||
<DCCReference Include="View\uIEditorComerciales.pas" />
|
||||
<DCCReference Include="View\uIEditorContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorContactos.pas" />
|
||||
<DCCReference Include="View\uIEditorDireccionContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirComerciales.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirContactos.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirInstaladores.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirVendedores.pas" />
|
||||
<DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" />
|
||||
<DCCReference Include="View\uIEditorGruposCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorGruposProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorInstalador.pas" />
|
||||
<DCCReference Include="View\uIEditorInstaladores.pas" />
|
||||
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorVendedor.pas" />
|
||||
<DCCReference Include="View\uIEditorVendedores.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vclactnband.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
<DCCReference Include="View\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -22,7 +22,8 @@ type
|
||||
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
|
||||
|
||||
function darClienteGraden(const ID: Integer): IBizContacto;
|
||||
function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;
|
||||
function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;
|
||||
function AsignarComercial(AClientes : IBizCliente; AID_AGENTE: Variant; AllItems: Boolean = false): Boolean;
|
||||
end;
|
||||
|
||||
TClientesController = class(TContactosController, IClientesController)
|
||||
@ -57,6 +58,7 @@ type
|
||||
|
||||
function darClienteGraden(const ID: Integer): IBizContacto;
|
||||
function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;
|
||||
function AsignarComercial(AClientes : IBizCliente; AID_AGENTE: Variant; AllItems: Boolean = false): Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -70,6 +72,50 @@ uses
|
||||
|
||||
{ TClientesController }
|
||||
|
||||
function TClientesController.AsignarComercial(AClientes: IBizCliente;
|
||||
AID_AGENTE: Variant; AllItems: Boolean): Boolean;
|
||||
begin
|
||||
if not Assigned(AClientes) then
|
||||
raise Exception.Create ('AClientes no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not AClientes.DataTable.Active then
|
||||
AClientes.DataTable.Active := True;
|
||||
|
||||
if (AClientes.State in dsEditModes) then
|
||||
AClientes.Cancel;
|
||||
|
||||
//Siempre cambiaremos de situacion el seleccionado
|
||||
AClientes.DataTable.Edit;
|
||||
AClientes.ID_AGENTE := AID_AGENTE;
|
||||
AClientes.DataTable.Post;
|
||||
|
||||
//En el caso de querer cambiar todos los items del objeto AClientes
|
||||
if AllItems then
|
||||
begin
|
||||
with AClientes.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
AClientes.DataTable.Edit;
|
||||
AClientes.ID_AGENTE := AID_AGENTE;
|
||||
AClientes.DataTable.Post;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
AClientes.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TClientesController.AsignarPrecioPunto(AClientes: IBizCliente; APrecioPunto: Variant; AllItems: Boolean): Boolean;
|
||||
begin
|
||||
if not Assigned(AClientes) then
|
||||
|
||||
@ -17,6 +17,7 @@ type
|
||||
procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
|
||||
procedure SetTieneSubcuenta(AProveedor: IBizProveedor; AValue: Boolean);
|
||||
procedure SetIgnorarContabilidad(AProveedor: IBizProveedor; AValue: Boolean);
|
||||
function BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;
|
||||
end;
|
||||
|
||||
TProveedoresController = class(TContactosController, IProveedoresController)
|
||||
@ -29,6 +30,7 @@ type
|
||||
destructor Destroy; override;
|
||||
|
||||
function Buscar(const ID: Integer): IBizContacto; override;
|
||||
function BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;
|
||||
function BuscarTodos: IBizContacto; override;
|
||||
function BuscarTodosTiendaWeb: IBizProveedor;
|
||||
function Nuevo : IBizContacto; override;
|
||||
@ -66,6 +68,11 @@ begin
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TProveedoresController.BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleProveedores).GetItem(ID);
|
||||
end;
|
||||
|
||||
function TProveedoresController.BuscarTodos: IBizContacto;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleProveedores).GetItems;
|
||||
|
||||
@ -30,12 +30,25 @@ requires
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contactos_model;
|
||||
Contactos_model,
|
||||
dbrtl,
|
||||
RemObjects_Core_D11,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
dxCoreD11,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
|
||||
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
|
||||
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
|
||||
uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule};
|
||||
uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule},
|
||||
uDataModuleInstaladores in 'uDataModuleInstaladores.pas' {DataModuleInstaladores: TDAClientDataModule},
|
||||
uDataModuleComerciales in 'uDataModuleComerciales.pas' {DataModuleComerciales: TDAClientDataModule};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,20 +49,39 @@
|
||||
<DelphiCompile Include="Contactos_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
|
||||
<DCCReference Include="..\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Views\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Views\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Views\vclx.dcp" />
|
||||
<DCCReference Include="uDataModuleClientes.pas">
|
||||
<Form>DataModuleClientes</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleComerciales.pas">
|
||||
<Form>DataModuleComerciales</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleContactos.pas">
|
||||
<Form>DataModuleContactos</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleInstaladores.pas">
|
||||
<Form>DataModuleInstaladores</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleProveedores.pas">
|
||||
<Form>DataModuleProveedores</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
@ -71,7 +90,6 @@
|
||||
<Form>DataModuleVendedores</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<None Include="ModelSupport_Contactos_data\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -296,6 +296,22 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
item
|
||||
Name = 'PRECIO_PUNTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -303,14 +319,14 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'Clientes'
|
||||
IndexDefs = <>
|
||||
Left = 296
|
||||
Top = 168
|
||||
Left = 64
|
||||
Top = 192
|
||||
end
|
||||
object ds_Clientes: TDADataSource
|
||||
DataSet = tbl_Clientes.Dataset
|
||||
DataTable = tbl_Clientes
|
||||
Left = 296
|
||||
Top = 232
|
||||
Left = 72
|
||||
Top = 248
|
||||
end
|
||||
object tbl_ClientesDescuentos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
|
||||
Binary file not shown.
@ -49,27 +49,29 @@
|
||||
<DelphiCompile Include="Contactos_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="Data\adortl.dcp" />
|
||||
<DCCReference Include="Data\ApplicationBase.dcp" />
|
||||
<DCCReference Include="Data\Base.dcp" />
|
||||
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\dbrtl.dcp" />
|
||||
<DCCReference Include="Data\dsnap.dcp" />
|
||||
<DCCReference Include="Data\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="Data\FormasPago_model.dcp" />
|
||||
<DCCReference Include="Data\GUIBase.dcp" />
|
||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\rtl.dcp" />
|
||||
<DCCReference Include="Data\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="Data\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleComerciales.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleInstaladores.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
|
||||
<DCCReference Include="Data\vcl.dcp" />
|
||||
<DCCReference Include="Data\vcldb.dcp" />
|
||||
<DCCReference Include="schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="uBizClientesDescuentos.pas" />
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -165,7 +165,7 @@ begin
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
|
||||
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
|
||||
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
|
||||
@ -223,7 +223,7 @@ begin
|
||||
begin
|
||||
ParamByName('OLD_ID_CLIENTE').Value := aChange.OldValueByName[fld_ClientesID];
|
||||
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
|
||||
// ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
|
||||
ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
|
||||
ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
|
||||
|
||||
@ -12,11 +12,18 @@ const
|
||||
BIZ_CLIENT_CLIENTE = 'Client.Cliente';
|
||||
BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor';
|
||||
BIZ_CLIENT_VENDEDOR = 'Client.Vendedor';
|
||||
BIZ_CLIENT_INSTALADOR = 'Client.Instalador';
|
||||
BIZ_CLIENT_COMERCIAL = 'Client.Comercial';
|
||||
|
||||
CATEGORIA_CLIENTE = 1;
|
||||
CATEGORIA_PROVEEDOR = 2;
|
||||
CATEGORIA_VENDEDOR = 3;
|
||||
CATEGORIA_INSTALADOR = 4;
|
||||
CATEGORIA_COMERCIAL = 5;
|
||||
|
||||
CTE_CLIENTE_GRADEN_PARA_FABRICA = 2000000005;
|
||||
CTE_PROVEEDOR_ABETO_PARA_GRADEN = 29;
|
||||
CTE_TIPO_FACTURA_PROV_ABETO = 54;
|
||||
|
||||
type
|
||||
IBizContacto = interface (IContactos)
|
||||
@ -51,6 +58,9 @@ type
|
||||
function GetPRECIO_PUNTOValue: Currency;
|
||||
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
|
||||
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
|
||||
function GetDESCUENTO_LINEAValue: Float;
|
||||
procedure SetDESCUENTO_LINEAValue(const aValue: Float);
|
||||
|
||||
@ -95,8 +105,14 @@ type
|
||||
|
||||
function GetDescuentos: IBizClienteDescuentos;
|
||||
procedure SetDescuentos(Value: IBizClienteDescuentos);
|
||||
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
|
||||
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
|
||||
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
|
||||
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
|
||||
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
@ -112,7 +128,10 @@ type
|
||||
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property DESCUENTO_LINEA: Float read GetDESCUENTO_LINEAValue write SetDESCUENTO_LINEAValue;
|
||||
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
|
||||
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
@ -216,6 +235,24 @@ type
|
||||
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
|
||||
end;
|
||||
|
||||
IBizInstalador = interface (IBizContacto)
|
||||
['{D9F3652F-BB47-4B3C-A951-1966ED79236F}']
|
||||
end;
|
||||
|
||||
IBizComercial = interface (IBizContacto)
|
||||
['{97496872-5FB3-43A1-85A5-9F29867A2E6A}']
|
||||
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
|
||||
function GetCOMISIONValue: Float;
|
||||
procedure SetCOMISIONValue(const aValue: Float);
|
||||
|
||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
||||
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
end;
|
||||
|
||||
TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
|
||||
protected
|
||||
FDatosBancarios : IBizContactosDatosBancarios;
|
||||
@ -273,6 +310,9 @@ type
|
||||
function GetPRECIO_PUNTOValue: Currency;
|
||||
procedure SetPRECIO_PUNTOValue(const aValue: Currency);
|
||||
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
|
||||
function GetDESCUENTO_LINEAValue: Float;
|
||||
procedure SetDESCUENTO_LINEAValue(const aValue: Float);
|
||||
|
||||
@ -327,6 +367,12 @@ type
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -351,6 +397,10 @@ type
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property DESCUENTO_LINEA: Float read GetDESCUENTO_LINEAValue write SetDESCUENTO_LINEAValue;
|
||||
property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -452,6 +502,26 @@ type
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
end;
|
||||
|
||||
TBizInstalador = class(TBizContacto, IBizInstalador)
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
end;
|
||||
|
||||
TBizComercial = class(TBizContacto, IBizComercial)
|
||||
private
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
protected
|
||||
function GetCOMISIONValue: Float;
|
||||
procedure SetCOMISIONValue(const aValue: Float);
|
||||
published
|
||||
|
||||
public
|
||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
@ -512,7 +582,8 @@ begin
|
||||
1 : Result := 'Cliente';
|
||||
2 : Result := 'Proveedor';
|
||||
3 : Result := 'Vendedor';
|
||||
4 : Result := 'Instalador';
|
||||
4 : Result := 'Instalador';
|
||||
5 : Result := 'Comercial';
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -587,11 +658,21 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetAGENTEValue: String;
|
||||
begin
|
||||
Result := DataTable.Fields[idx_ClientesAGENTE].AsString;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetBLOQUEADOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetDELEGACIONValue: String;
|
||||
begin
|
||||
Result := DataTable.Fields[idx_ClientesDELEGACION].AsString;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetDescuentos: IBizClienteDescuentos;
|
||||
begin
|
||||
Result := FDescuentos;
|
||||
@ -612,6 +693,11 @@ begin
|
||||
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetID_FORMA_PAGOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
|
||||
@ -647,11 +733,21 @@ begin
|
||||
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetBLOQUEADOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesDELEGACION].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos);
|
||||
begin
|
||||
FDescuentos := Value;
|
||||
@ -673,6 +769,11 @@ begin
|
||||
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
|
||||
@ -1056,11 +1157,49 @@ begin
|
||||
DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
{ TBizInstalador }
|
||||
|
||||
procedure TBizInstalador.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_INSTALADOR;
|
||||
end;
|
||||
|
||||
{ TBizComercial }
|
||||
|
||||
function TBizComercial.GetCOMISIONValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComercialesCOMISION].AsFloat;
|
||||
end;
|
||||
|
||||
function TBizComercial.GetDELEGACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComercialesDELEGACION].AsString;
|
||||
end;
|
||||
|
||||
procedure TBizComercial.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_COMERCIAL;
|
||||
end;
|
||||
|
||||
procedure TBizComercial.SetCOMISIONValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_ComercialesCOMISION].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizComercial.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ComercialesDELEGACION].AsString := aValue;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto);
|
||||
RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente);
|
||||
RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor);
|
||||
RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor);
|
||||
RegisterDataTableRules(BIZ_CLIENT_INSTALADOR, TBizInstalador);
|
||||
RegisterDataTableRules(BIZ_CLIENT_COMERCIAL, TBizComercial);
|
||||
|
||||
finalization
|
||||
|
||||
|
||||
@ -279,7 +279,7 @@ object PluginContactos: TPluginContactos
|
||||
end
|
||||
object actVendedores: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Vendedores \ Instaladores'
|
||||
Caption = 'Vendedores usuarios'
|
||||
ImageIndex = 2
|
||||
OnExecute = actVendedoresExecute
|
||||
OnUpdate = actVendedoresUpdate
|
||||
@ -303,6 +303,20 @@ object PluginContactos: TPluginContactos
|
||||
ImageIndex = 6
|
||||
OnExecute = actProcedenciasClienteExecute
|
||||
end
|
||||
object actComerciales: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Comerciales'
|
||||
ImageIndex = 3
|
||||
OnExecute = actComercialesExecute
|
||||
OnUpdate = actComercialesUpdate
|
||||
end
|
||||
object actInstaladores: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Instaladores'
|
||||
ImageIndex = 4
|
||||
OnExecute = actInstaladoresExecute
|
||||
OnUpdate = actInstaladoresUpdate
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = SmallImages
|
||||
@ -315,6 +329,14 @@ object PluginContactos: TPluginContactos
|
||||
Action = actVendedores
|
||||
SubMenuImages = SmallImages
|
||||
end
|
||||
object Comerciales1: TMenuItem
|
||||
Tag = 103
|
||||
Action = actComerciales
|
||||
end
|
||||
object Instaladores1: TMenuItem
|
||||
Tag = 104
|
||||
Action = actInstaladores
|
||||
end
|
||||
end
|
||||
object Da1: TMenuItem
|
||||
Caption = 'Datos'
|
||||
|
||||
@ -32,6 +32,10 @@ type
|
||||
actProcedenciasCliente: TAction;
|
||||
Procedenciasdecliente1: TMenuItem;
|
||||
Empresas1: TMenuItem;
|
||||
actComerciales: TAction;
|
||||
actInstaladores: TAction;
|
||||
Comerciales1: TMenuItem;
|
||||
Instaladores1: TMenuItem;
|
||||
procedure actClientesExecute(Sender: TObject);
|
||||
procedure actProveedoresExecute(Sender: TObject);
|
||||
procedure actVendedoresExecute(Sender: TObject);
|
||||
@ -41,6 +45,10 @@ type
|
||||
function GetVistaConfiguracion : TClass;
|
||||
function GetEtiquetaConfiguracion : String;
|
||||
procedure actVendedoresUpdate(Sender: TObject);
|
||||
procedure actComercialesExecute(Sender: TObject);
|
||||
procedure actInstaladoresExecute(Sender: TObject);
|
||||
procedure actComercialesUpdate(Sender: TObject);
|
||||
procedure actInstaladoresUpdate(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -53,6 +61,7 @@ implementation
|
||||
uses
|
||||
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
|
||||
uClientesController, uProveedoresController, uVendedoresController,
|
||||
uComercialesController, uInstaladoresController,
|
||||
uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
|
||||
uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
|
||||
uContactosViewRegister, uBizContactos, uViewConfiguracionContactos,
|
||||
@ -84,6 +93,22 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actComercialesExecute(Sender: TObject);
|
||||
var
|
||||
AComercialesController : IComercialesController;
|
||||
AComerciales : IBizComercial;
|
||||
begin
|
||||
AComercialesController := TComercialesController.Create;
|
||||
AComerciales := (AComercialesController.BuscarTodos as IBizComercial);
|
||||
AComercialesController.VerTodos(AComerciales);
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actComercialesUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
(Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actGruposClienteExecute(Sender: TObject);
|
||||
var
|
||||
AGruposClienteController : IGruposClienteController;
|
||||
@ -104,6 +129,22 @@ begin
|
||||
AGruposProveedorController.VerTodos(AGruposProveedor);
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actInstaladoresExecute(Sender: TObject);
|
||||
var
|
||||
AInstaladoresController : IInstaladoresController;
|
||||
AInstaladores : IBizInstalador;
|
||||
begin
|
||||
AInstaladoresController := TInstaladoresController.Create;
|
||||
AInstaladores := (AInstaladoresController.BuscarTodos as IBizInstalador);
|
||||
AInstaladoresController.VerTodos(AInstaladores);
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actInstaladoresUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
(Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
|
||||
var
|
||||
AProcedenciasClienteController : IProcedenciasClienteController;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -32,6 +32,8 @@ type
|
||||
bpPersonalContacto: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpSubCuentasContacto: TDABusinessProcessor;
|
||||
bpInstaladores: TDABusinessProcessor;
|
||||
bpComerciales: TDABusinessProcessor;
|
||||
schContactos: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
@ -51,6 +53,7 @@ uses
|
||||
{Generated:} FactuGES_Invk, Dialogs, uBizContactosServer,
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager,
|
||||
schContactosClient_Intf, uBizVendedoresServer,
|
||||
uBizInstaladoresServer, uBizComercialesServer,
|
||||
uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
|
||||
uRptEtiquetasContacto_Server;
|
||||
|
||||
@ -82,6 +85,8 @@ begin
|
||||
bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR;
|
||||
bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE;
|
||||
bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR;
|
||||
bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR;
|
||||
bpComerciales.BusinessRulesID := BIZ_SERVER_COMERCIAL;
|
||||
end;
|
||||
|
||||
function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer;
|
||||
|
||||
@ -60,7 +60,29 @@ requires
|
||||
xmlrtl,
|
||||
vclactnband,
|
||||
GestorInformes_controller,
|
||||
dxCoreD11;
|
||||
dxCoreD11,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
tb2k_d10,
|
||||
tbx_d10,
|
||||
cxGridD11,
|
||||
cxPageControlD11,
|
||||
cxExtEditorsD11,
|
||||
cxExportD11,
|
||||
dxPSCoreD11,
|
||||
dxComnD11,
|
||||
dxPScxCommonD11,
|
||||
dxPSLnksD11,
|
||||
vclshlctrls,
|
||||
dxPScxGrid6LnkD11,
|
||||
dclcxLibraryD11,
|
||||
dcldxCoreD11,
|
||||
JvStdCtrlsD11R,
|
||||
JvPageCompsD11R,
|
||||
JSDialog100,
|
||||
dxLayoutControlD11,
|
||||
Delegaciones_controller,
|
||||
JvCtrlsD11R;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
@ -101,6 +123,19 @@ contains
|
||||
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
|
||||
uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor},
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor},
|
||||
uEditorAsignarPrecioPunto in 'uEditorAsignarPrecioPunto.pas' {fEditorAsignarPrecioPunto: TCustomEditor};
|
||||
uEditorAsignarPrecioPunto in 'uEditorAsignarPrecioPunto.pas' {fEditorAsignarPrecioPunto: TCustomEditor},
|
||||
uViewComerciales in 'uViewComerciales.pas' {frViewComerciales: TCustomView},
|
||||
uEditorComerciales in 'uEditorComerciales.pas' {fEditorComerciales: TCustomEditor},
|
||||
uEditorComercial in 'uEditorComercial.pas' {fEditorComercial: TCustomEditor},
|
||||
uViewComercial in 'uViewComercial.pas' {frViewComercial: TFrame},
|
||||
uViewInstaladores in 'uViewInstaladores.pas' {frViewInstaladores: TCustomView},
|
||||
uEditorInstaladores in 'uEditorInstaladores.pas' {fEditorInstaladores: TCustomEditor},
|
||||
uViewInstalador in 'uViewInstalador.pas' {frViewInstalador: TFrame},
|
||||
uEditorInstalador in 'uEditorInstalador.pas' {fEditorInstalador: TCustomEditor},
|
||||
uEditorAsignarComercial in 'uEditorAsignarComercial.pas' {fEditorAsignarComercial: TCustomEditor},
|
||||
uViewDatosYSeleccionComercial in 'uViewDatosYSeleccionComercial.pas' {frViewDatosYSeleccionComercial: TFrame},
|
||||
uEditorElegirComerciales in 'uEditorElegirComerciales.pas' {fEditorElegirComerciales: TCustomEditor},
|
||||
uViewDatosYSeleccionInstalador in 'uViewDatosYSeleccionInstalador.pas' {frViewDatosYSeleccionInstalador: TFrame},
|
||||
uEditorElegirInstaladores in 'uEditorElegirInstaladores.pas' {fEditorElegirInstaladores: TCustomEditor};
|
||||
|
||||
end.
|
||||
|
||||
@ -47,43 +47,62 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_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\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.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\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.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="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="Delegaciones_controller.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FormasPago_controller.dcp" />
|
||||
<DCCReference Include="FormasPago_model.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JSDialog100.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="TiposIVA_model.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAsignarComercial.pas">
|
||||
<Form>fEditorAsignarComercial</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorAsignarPrecioPunto.pas">
|
||||
<Form>fEditorAsignarPrecioPunto</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -96,6 +115,14 @@
|
||||
<Form>fEditorClientes</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorComercial.pas">
|
||||
<Form>fEditorComercial</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorComerciales.pas">
|
||||
<Form>fEditorComerciales</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorContacto.pas">
|
||||
<Form>fEditorContacto</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -111,10 +138,18 @@
|
||||
<Form>fEditorElegirClientes</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirComerciales.pas">
|
||||
<Form>fEditorElegirComerciales</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirDireccionEntrega.pas">
|
||||
<Form>fEditorElegirDireccionEntrega</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirInstaladores.pas">
|
||||
<Form>fEditorElegirInstaladore</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirPersonaContacto.pas">
|
||||
<Form>fEditorElegirPersonaContacto</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -139,6 +174,14 @@
|
||||
<Form>fEditorGruposProveedor</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInstalador.pas">
|
||||
<Form>fEditorInstalador</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInstaladores.pas">
|
||||
<Form>fEditorInstaladores</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorPersonal.pas">
|
||||
<Form>fEditorPersonal</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -179,6 +222,14 @@
|
||||
<Form>frViewClientes</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewComercial.pas">
|
||||
<Form>frViewComercial</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewComerciales.pas">
|
||||
<Form>frViewComerciales</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewConfiguracionContactos.pas">
|
||||
<Form>frViewConfiguracionContactos</Form>
|
||||
</DCCReference>
|
||||
@ -198,6 +249,14 @@
|
||||
<Form>frViewDatosYSeleccionCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionComercial.pas">
|
||||
<Form>frViewDatosYSeleccionComercial</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionInstalador.pas">
|
||||
<Form>frViewDatosYSeleccionInstalador</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionProveedor.pas">
|
||||
<Form>frViewDatosYSeleccionProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -206,6 +265,14 @@
|
||||
<Form>frViewDireccionesEntrega</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewInstalador.pas">
|
||||
<Form>frViewInstalador</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewInstaladores.pas">
|
||||
<Form>frViewInstaladores</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewPersonalContacto.pas">
|
||||
<Form>frViewPersonalContacto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -234,6 +301,13 @@
|
||||
<Form>frViewVendedores</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -13,24 +13,31 @@ uses
|
||||
uEditorVendedores, uEditorElegirCLientes,
|
||||
uEditorCliente, uEditorProveedor,
|
||||
uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
|
||||
uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
|
||||
uEditorGruposProveedor, uEditorEtiquetasContactosReport,
|
||||
uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto,
|
||||
uEditorElegirDireccionEntrega, uEditorAsignarPrecioPunto;
|
||||
uEditorElegirVendedores, uEditorElegirComerciales, uEditorElegirInstaladores,
|
||||
uEditorGruposCliente, uEditorProcedenciasCliente, uEditorGruposProveedor,
|
||||
uEditorEtiquetasContactosReport, uViewConfiguracionContactos, uEditorPersonal,
|
||||
uEditorElegirPersonaContacto, uEditorElegirDireccionEntrega, uEditorAsignarPrecioPunto,
|
||||
uEditorComerciales, uEditorInstaladores, uEditorComercial, uEditorInstalador;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
|
||||
EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
|
||||
EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
|
||||
EditorRegistry.RegisterClass(TfEditorComerciales, 'EditorComerciales');
|
||||
EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
|
||||
EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
|
||||
EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
|
||||
EditorRegistry.RegisterClass(TfEditorComercial, 'EditorComercial');
|
||||
EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirComerciales, 'EditorElegirComerciales');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
|
||||
@ -53,14 +60,20 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorClientes);
|
||||
EditorRegistry.UnRegisterClass(TfEditorProveedores);
|
||||
EditorRegistry.UnRegisterClass(TfEditorVendedores);
|
||||
EditorRegistry.UnRegisterClass(TfEditorComerciales);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInstaladores);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorCliente);
|
||||
EditorRegistry.UnRegisterClass(TfEditorProveedor);
|
||||
EditorRegistry.UnRegisterClass(TfEditorVendedor);
|
||||
EditorRegistry.UnRegisterClass(TfEditorComercial);
|
||||
EditorRegistry.UnRegisterClass(TfEditorInstalador);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirClientes);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirVendedores);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirComerciales);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirInstaladores);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorDireccion);
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);
|
||||
|
||||
@ -70,6 +70,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 931
|
||||
Height = 524
|
||||
ActivePage = pagDatosComerciales
|
||||
ExplicitWidth = 931
|
||||
ExplicitHeight = 524
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -421,6 +422,18 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 923
|
||||
ExplicitWidth = 923
|
||||
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
|
||||
@ -482,27 +495,27 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 923
|
||||
ExplicitHeight = 433
|
||||
inherited Label1: TLabel
|
||||
Left = 608
|
||||
Left = 622
|
||||
Top = 30
|
||||
Width = 277
|
||||
ExplicitLeft = 608
|
||||
ExplicitLeft = 622
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 277
|
||||
end
|
||||
inherited Label2: TLabel
|
||||
Top = 167
|
||||
Top = 218
|
||||
Width = 317
|
||||
ExplicitTop = 167
|
||||
ExplicitTop = 218
|
||||
ExplicitWidth = 317
|
||||
end
|
||||
inherited eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 680
|
||||
Left = 694
|
||||
Top = 62
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 680
|
||||
ExplicitLeft = 694
|
||||
ExplicitTop = 62
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
@ -536,9 +549,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 289
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 448
|
||||
Left = 462
|
||||
Top = 57
|
||||
ExplicitLeft = 448
|
||||
ExplicitLeft = 462
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
@ -552,57 +565,63 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 289
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 448
|
||||
Left = 462
|
||||
Top = 84
|
||||
ExplicitLeft = 448
|
||||
ExplicitLeft = 462
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited cxDBSpinEdit1: TcxDBSpinEdit
|
||||
Left = 680
|
||||
Left = 694
|
||||
Top = 89
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 680
|
||||
ExplicitLeft = 694
|
||||
ExplicitTop = 89
|
||||
end
|
||||
inherited cxDBSpinEdit2: TcxDBSpinEdit
|
||||
Left = 680
|
||||
Left = 694
|
||||
Top = 116
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 680
|
||||
ExplicitLeft = 694
|
||||
ExplicitTop = 116
|
||||
end
|
||||
inherited eDescuentoLinea: TcxDBSpinEdit
|
||||
Top = 186
|
||||
Top = 237
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 186
|
||||
ExplicitTop = 237
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Top = 213
|
||||
Top = 264
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 213
|
||||
ExplicitTop = 264
|
||||
ExplicitWidth = 508
|
||||
Width = 508
|
||||
end
|
||||
inherited ePrecioPunto: TcxDBCurrencyEdit
|
||||
Top = 240
|
||||
ExplicitTop = 240
|
||||
Top = 291
|
||||
ExplicitTop = 291
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited cbComercial: TcxDBLookupComboBox
|
||||
Top = 167
|
||||
ExplicitTop = 167
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited dxLayoutGroup1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group4: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
|
||||
@ -62,7 +62,7 @@ inherited fEditorClientes: TfEditorClientes
|
||||
DockPos = 207
|
||||
Visible = True
|
||||
ExplicitLeft = 207
|
||||
ExplicitWidth = 247
|
||||
ExplicitWidth = 387
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actInformes
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -72,7 +72,12 @@ inherited fEditorClientes: TfEditorClientes
|
||||
object TBXItem39: TTBXItem
|
||||
Action = actCambiarPrecioPunto
|
||||
DisplayMode = nbdmImageAndText
|
||||
ImageIndex = 25
|
||||
end
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actCambiarComercial
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -153,14 +158,14 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Width = 121
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 537
|
||||
Left = 611
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 537
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
ExplicitLeft = 611
|
||||
ExplicitWidth = 150
|
||||
Width = 150
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -222,9 +227,16 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
object actCambiarPrecioPunto: TAction
|
||||
Caption = 'Cambiar precio punto'
|
||||
ImageIndex = 25
|
||||
OnExecute = actCambiarPrecioPuntoExecute
|
||||
OnUpdate = actCambiarPrecioPuntoUpdate
|
||||
end
|
||||
object actCambiarComercial: TAction
|
||||
Caption = 'Cambiar comercial'
|
||||
ImageIndex = 25
|
||||
OnExecute = actCambiarComercialExecute
|
||||
OnUpdate = actCambiarComercialUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
|
||||
@ -27,10 +27,16 @@ type
|
||||
actCambiarPrecioPunto: TAction;
|
||||
TBXSeparatorItem17: TTBXSeparatorItem;
|
||||
TBXItem39: TTBXItem;
|
||||
actCambiarComercial: TAction;
|
||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
||||
TBXItem40: TTBXItem;
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
procedure actInformesExecute(Sender: TObject);
|
||||
procedure actCambiarPrecioPuntoExecute(Sender: TObject);
|
||||
procedure actCambiarPrecioPuntoUpdate(Sender: TObject);
|
||||
procedure actCambiarComercialExecute(Sender: TObject);
|
||||
procedure actCambiarComercialUpdate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
protected
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
@ -46,7 +52,7 @@ uses
|
||||
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
|
||||
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
|
||||
uGruposClienteController, uBizGruposCliente, uClientesController, uGestorInformesController,
|
||||
uEditorAsignarPrecioPunto, Dialogs;
|
||||
uEditorAsignarPrecioPunto, uEditorAsignarComercial, Dialogs;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -54,6 +60,39 @@ uses
|
||||
{
|
||||
******************************* TfEditorClientes *******************************
|
||||
}
|
||||
procedure TfEditorClientes.actCambiarComercialExecute(Sender: TObject);
|
||||
var
|
||||
AClientes: IBizCliente;
|
||||
AllItems: Boolean;
|
||||
AID_AGENTE: Variant;
|
||||
begin
|
||||
AClientes := Nil;
|
||||
AllItems := False;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
if AsignarComercial(AID_AGENTE) then
|
||||
begin
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
|
||||
AClientes := (Controller as IClientesController).ExtraerSeleccionados(Contactos) as IBizCliente;
|
||||
end
|
||||
else
|
||||
AClientes := (Contactos as IBizCliente);
|
||||
|
||||
(Controller as IClientesController).AsignarComercial(AClientes, AID_AGENTE, AllItems);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actCambiarComercialUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.actCambiarPrecioPuntoExecute(Sender: TObject);
|
||||
var
|
||||
AClientes: IBizCliente;
|
||||
@ -184,6 +223,20 @@ begin
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
actCambiarComercial.Visible := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
actCambiarComercial.Visible := False;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
|
||||
@ -2,16 +2,25 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Left = 285
|
||||
Top = 448
|
||||
Caption = 'Lista de contactos'
|
||||
ExplicitWidth = 320
|
||||
ClientWidth = 974
|
||||
ExplicitWidth = 982
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 974
|
||||
Caption = 'Lista de contactos'
|
||||
ExplicitWidth = 974
|
||||
inherited Image1: TImage
|
||||
Left = 947
|
||||
ExplicitLeft = 947
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 974
|
||||
ExplicitWidth = 974
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 543
|
||||
ExplicitWidth = 694
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 201
|
||||
@ -22,6 +31,13 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 974
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 974
|
||||
ExplicitWidth = 974
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actPrevisualizar: TAction
|
||||
|
||||
@ -33,6 +33,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
TabOrder = 7
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 220
|
||||
ExplicitWidth = 181
|
||||
Width = 181
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 132
|
||||
@ -334,6 +336,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 132
|
||||
ExplicitWidth = 38
|
||||
Width = 38
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 132
|
||||
@ -345,6 +349,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 301
|
||||
ExplicitWidth = 256
|
||||
Width = 256
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Left = 344
|
||||
@ -361,6 +367,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 376
|
||||
Width = 376
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -374,7 +382,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
ExplicitHeight = 127
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = dsContacto
|
||||
ExplicitWidth = 585
|
||||
ExplicitWidth = 583
|
||||
ExplicitHeight = 127
|
||||
Height = 127
|
||||
Width = 585
|
||||
|
||||
@ -166,7 +166,7 @@ procedure TfrViewCliente.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//Solo se ve campo tienda en Graden
|
||||
if (AppFactuGES.EmpresaActiva.ID = 1) then
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
dxLayoutControlContactoGroup100.Enabled := False;
|
||||
dxLayoutControlContactoGroup100.Visible := False;
|
||||
|
||||
@ -1,24 +1,25 @@
|
||||
inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 637
|
||||
Height = 284
|
||||
Height = 391
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 637
|
||||
ExplicitHeight = 284
|
||||
ExplicitHeight = 391
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 637
|
||||
Height = 284
|
||||
Height = 391
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
object Label1: TLabel
|
||||
Left = 350
|
||||
Left = 362
|
||||
Top = 28
|
||||
Width = 277
|
||||
Width = 261
|
||||
Height = 26
|
||||
Caption =
|
||||
'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
|
||||
@ -28,7 +29,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 22
|
||||
Top = 171
|
||||
Top = 228
|
||||
Width = 317
|
||||
Height = 13
|
||||
Caption =
|
||||
@ -38,7 +39,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
WordWrap = True
|
||||
end
|
||||
object eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 427
|
||||
Left = 439
|
||||
Top = 60
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -157,7 +158,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 42
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 188
|
||||
Left = 200
|
||||
Top = 55
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -202,7 +203,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 42
|
||||
end
|
||||
object bTiposIVA: TButton
|
||||
Left = 188
|
||||
Left = 200
|
||||
Top = 82
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -211,7 +212,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
OnClick = bTiposIVAClick
|
||||
end
|
||||
object cxDBSpinEdit1: TcxDBSpinEdit
|
||||
Left = 427
|
||||
Left = 439
|
||||
Top = 87
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -237,7 +238,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
Width = 79
|
||||
end
|
||||
object cxDBSpinEdit2: TcxDBSpinEdit
|
||||
Left = 427
|
||||
Left = 439
|
||||
Top = 114
|
||||
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
@ -264,7 +265,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
end
|
||||
object eDescuentoLinea: TcxDBSpinEdit
|
||||
Left = 162
|
||||
Top = 190
|
||||
Top = 247
|
||||
DataBinding.DataField = 'DESCUENTO_LINEA'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -285,12 +286,12 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Width = 200
|
||||
end
|
||||
object eDescuento: TcxDBSpinEdit
|
||||
Left = 162
|
||||
Top = 217
|
||||
Top = 274
|
||||
DataBinding.DataField = 'DESCUENTO'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
@ -311,19 +312,54 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 508
|
||||
end
|
||||
object ePrecioPunto: TcxDBCurrencyEdit
|
||||
Left = 162
|
||||
Top = 244
|
||||
Top = 301
|
||||
DataBinding.DataField = 'PRECIO_PUNTO'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 239
|
||||
end
|
||||
object cbComercial: TcxDBLookupComboBox
|
||||
Left = 162
|
||||
Top = 171
|
||||
DataBinding.DataField = 'ID_AGENTE'
|
||||
DataBinding.DataSource = dsDatosComerciales
|
||||
Properties.ImmediatePost = True
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
Properties.ListColumns = <
|
||||
item
|
||||
FieldName = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
FieldName = 'DELEGACION'
|
||||
end>
|
||||
Properties.ListOptions.GridLines = glNone
|
||||
Properties.ListOptions.ShowHeader = False
|
||||
Properties.ListOptions.SyncMode = True
|
||||
Properties.ListSource = dsAgentes
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
Width = 276
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -426,8 +462,19 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
Caption = 'Comercial'
|
||||
LayoutDirection = ldHorizontal
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Comercial asignado:'
|
||||
Control = cbComercial
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
Caption = 'Descuento por defecto'
|
||||
Caption = 'Descuentos'
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = Label2
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
|
||||
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
|
||||
uDAInterfaces, uBizFormasPago, uBizTiposIVA, cxCurrencyEdit;
|
||||
uDAInterfaces, uBizFormasPago, uBizTiposIVA, cxCurrencyEdit, uComercialesController;
|
||||
|
||||
type
|
||||
IViewClienteDatosComerciales = interface(IViewBase)
|
||||
@ -59,17 +59,23 @@ type
|
||||
eDescuento: TcxDBSpinEdit;
|
||||
dxLayoutControl1Item14: TdxLayoutItem;
|
||||
ePrecioPunto: TcxDBCurrencyEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
cbComercial: TcxDBLookupComboBox;
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure bTiposIVAClick(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
protected
|
||||
FContacto : IBizContacto;
|
||||
FTiposIVA : IBizTipoIVA;
|
||||
FComerciales : IBizComercial;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FTiposIVAController : ITiposIVAController;
|
||||
FComercialesController : IComercialesController;
|
||||
function GetContacto: IBizContacto;
|
||||
procedure SetContacto(const Value: IBizContacto);
|
||||
public
|
||||
@ -115,9 +121,10 @@ procedure TfrViewClienteDatosComerciales.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FTiposIVA := Nil;
|
||||
FComerciales := Nil;
|
||||
FFormasPago := Nil;
|
||||
FContacto := Nil;
|
||||
// FAgentesController := TAgentesController.Create;
|
||||
FComercialesController := TComercialesController.Create;
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
FTiposIVAController := TTiposIVAController.Create;
|
||||
end;
|
||||
@ -126,13 +133,30 @@ procedure TfrViewClienteDatosComerciales.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FTiposIVA := Nil;
|
||||
FComerciales := Nil;
|
||||
FFormasPago := Nil;
|
||||
FContacto := Nil;
|
||||
// FAgentesController := NIL;
|
||||
FComercialesController := NIL;
|
||||
FFormasPagoController := NIL;
|
||||
FTiposIVAController := NIL;
|
||||
end;
|
||||
|
||||
procedure TfrViewClienteDatosComerciales.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//Solo se ve campo comercial en abeto
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
dxLayoutControl1Group8.Enabled := True;
|
||||
dxLayoutControl1Group8.Visible := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dxLayoutControl1Group8.Enabled := False;
|
||||
dxLayoutControl1Group8.Visible := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrViewClienteDatosComerciales.GetContacto: IBizContacto;
|
||||
begin
|
||||
Result := FContacto;
|
||||
@ -144,18 +168,19 @@ begin
|
||||
if Assigned(FContacto) then
|
||||
begin
|
||||
dsDatosComerciales.DataTable := FContacto.DataTable;
|
||||
// dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable;
|
||||
// dsAgentes.DataTable.Active := True;
|
||||
FFormasPago := FFormasPagoController.BuscarTodos;
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
FTiposIVA := FTiposIVAController.BuscarTodos;
|
||||
dsTiposIVA.DataTable := FTiposIVA.DataTable;
|
||||
dsTiposIVA.DataTable.Active := True;
|
||||
FComerciales := (FComercialesController.BuscarTodos as IBizComercial);
|
||||
dsAgentes.DataTable := FComerciales.DataTable;
|
||||
dsAgentes.DataTable.Active := True;
|
||||
end
|
||||
else begin
|
||||
dsDatosComerciales.DataTable := NIL;
|
||||
// dsAgentes.DataTable := NIL;
|
||||
dsAgentes.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
dsTiposIVA.DataTable := NIL;
|
||||
end
|
||||
|
||||
@ -54,6 +54,28 @@ inherited frViewClientes: TfrViewClientes
|
||||
object cxGridViewPRECIO_PUNTO: TcxGridDBColumn
|
||||
Caption = 'Precio punto'
|
||||
DataBinding.FieldName = 'PRECIO_PUNTO'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
GroupSummaryAlignment = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewAGENTE: TcxGridDBColumn
|
||||
Caption = 'Comercial'
|
||||
DataBinding.FieldName = 'AGENTE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
GroupSummaryAlignment = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewDELEGACION: TcxGridDBColumn
|
||||
Caption = 'Delegaci'#243'n'
|
||||
DataBinding.FieldName = 'DELEGACION'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
GroupSummaryAlignment = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -92,14 +114,12 @@ inherited frViewClientes: TfrViewClientes
|
||||
Width = 427
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 475
|
||||
Left = 464
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 475
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
ExplicitLeft = 464
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -132,6 +152,16 @@ inherited frViewClientes: TfrViewClientes
|
||||
object TBXItem3: TTBXItem
|
||||
Action = actPrecioPunto
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actComercial
|
||||
end
|
||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem5: TTBXItem
|
||||
Action = actDelegacion
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -161,6 +191,16 @@ inherited frViewClientes: TfrViewClientes
|
||||
OnExecute = actPrecioPuntoExecute
|
||||
OnUpdate = actPrecioPuntoUpdate
|
||||
end
|
||||
object actDelegacion: TAction
|
||||
Caption = 'Delegaci'#243'n'
|
||||
OnExecute = actDelegacionExecute
|
||||
OnUpdate = actDelegacionUpdate
|
||||
end
|
||||
object actComercial: TAction
|
||||
Caption = 'Comercial'
|
||||
OnExecute = actComercialExecute
|
||||
OnUpdate = actComercialUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -14,7 +14,7 @@ uses
|
||||
dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
|
||||
uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
|
||||
uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
|
||||
uDAInterfaces, cxTextEdit, uCustomView, uViewBase, cxCurrencyEdit;
|
||||
|
||||
type
|
||||
IViewClientes = interface(IViewContactos)
|
||||
@ -34,6 +34,14 @@ type
|
||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||
TBXItem3: TTBXItem;
|
||||
actPrecioPunto: TAction;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
cxGridViewDELEGACION: TcxGridDBColumn;
|
||||
actDelegacion: TAction;
|
||||
actComercial: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||
TBXItem5: TTBXItem;
|
||||
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||
var ADone: Boolean);
|
||||
@ -41,17 +49,62 @@ type
|
||||
procedure actProcedenciaUpdate(Sender: TObject);
|
||||
procedure actPrecioPuntoExecute(Sender: TObject);
|
||||
procedure actPrecioPuntoUpdate(Sender: TObject);
|
||||
procedure actComercialExecute(Sender: TObject);
|
||||
procedure actComercialUpdate(Sender: TObject);
|
||||
procedure actDelegacionExecute(Sender: TObject);
|
||||
procedure actDelegacionUpdate(Sender: TObject);
|
||||
procedure ConfigView; override;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses uViewGridBase;
|
||||
uses uViewGridBase, uFactuGES_App;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
procedure TfrViewClientes.actComercialExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.actComercialUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.actDelegacionExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewDELEGACION.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := -1;
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.actDelegacionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.actPrecioPuntoExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewPRECIO_PUNTO.GroupIndex < 0) then
|
||||
@ -93,6 +146,37 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.ConfigView;
|
||||
begin
|
||||
inherited;
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
cxGridViewTIENDA.VisibleForCustomization := False;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
|
||||
cxGridViewAGENTE.VisibleForCustomization := True;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := True;
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
|
||||
actComercial.Visible := True;
|
||||
actDelegacion.Visible := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.VisibleForCustomization := True;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
|
||||
cxGridViewAGENTE.VisibleForCustomization := False;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := False;
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
|
||||
actComercial.Visible := False;
|
||||
actDelegacion.Visible := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
uControllerBase, uIDataModuleContratosCliente, uClientesController,
|
||||
uDetallesContratoClienteController, uGestorDocumentosController,
|
||||
uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
|
||||
uIntegerListUtils, uBizPresupuestosCliente;
|
||||
uIntegerListUtils, uBizPresupuestosCliente, uBizContactos;
|
||||
|
||||
type
|
||||
TEnumTiposContrato = (teVacio, teCocina, teArmario, teBano, teElectrodomestico, teVarios);
|
||||
@ -66,6 +66,8 @@ type
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
function CambiarComercial(AContrato : IBizContratoCliente; AComercial: IBizComercial): Boolean;
|
||||
function CambiarInstalador(AContrato : IBizContratoCliente; AIntalador: IBizInstalador): Boolean;
|
||||
|
||||
procedure EtiquetasPreview(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
procedure EtiquetasPrint(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
@ -154,6 +156,8 @@ type
|
||||
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
|
||||
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
|
||||
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
|
||||
function CambiarComercial(AContrato : IBizContratoCliente; AComercial: IBizComercial): Boolean;
|
||||
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
|
||||
|
||||
procedure EtiquetasPreview(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
procedure EtiquetasPrint(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
|
||||
@ -173,7 +177,7 @@ implementation
|
||||
uses
|
||||
Forms, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||
uIEditorContratosCliente, uDataModuleContratosCliente, Variants,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
|
||||
uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
|
||||
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
|
||||
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
|
||||
schContactosClient_Intf, uContratosClienteReportController,
|
||||
@ -635,6 +639,59 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.CambiarComercial(AContrato: IBizContratoCliente; AComercial: IBizComercial): Boolean;
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
|
||||
begin
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('AContrato no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AContrato.Edit;
|
||||
|
||||
AContrato.DataTable.Edit;
|
||||
AContrato.ID_AGENTE := AComercial.ID;
|
||||
AContrato.NOMBRE_AGENTE := AComercial.NOMBRE;
|
||||
AContrato.DELEGACION := AComercial.DELEGACION;
|
||||
|
||||
if not bEnEdicion then
|
||||
AContrato.Post;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.CambiarInstalador(AContrato: IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
|
||||
begin
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('AContrato no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AContrato.Edit;
|
||||
|
||||
AContrato.DataTable.Edit;
|
||||
AContrato.ID_INSTALADOR := AInstalador.ID;
|
||||
AContrato.NOMBRE_INSTALADOR := AInstalador.NOMBRE;
|
||||
|
||||
if not bEnEdicion then
|
||||
AContrato.Post;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente;
|
||||
Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
|
||||
// En el caso de cambiar almenos un elemento del conjunto se devuelve true
|
||||
@ -1440,7 +1497,7 @@ begin
|
||||
ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO;
|
||||
|
||||
|
||||
AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_PARA_FABRICA) as IBizCliente);
|
||||
AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GRADEN_PARA_FABRICA) as IBizCliente);
|
||||
AContratoFabrica.Cliente.DataTable.Active := True;
|
||||
|
||||
NOMBRE := AContratoFabrica.Cliente.NOMBRE;
|
||||
@ -1474,7 +1531,6 @@ begin
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TContratosClienteController.Nuevo(WithInsert: Boolean): IBizContratoCliente;
|
||||
|
||||
@ -393,6 +393,29 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'ID_CONTRATO_ASOCIADO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{4A854311-0D9F-4793-94C9-A207AD44D276}';
|
||||
RID_Propiedades = '{EF52C78D-98C0-4F3E-8B30-92405C279D93}';
|
||||
RID_ListaAnosContratos = '{34D311E0-D0CB-472C-A6B1-AF7C9AD69E10}';
|
||||
RID_ContratosClienteBeneficios = '{C7192089-22AD-478D-9BB4-4C0E22244BF1}';
|
||||
RID_ContratosCliente = '{511AB084-9FFC-4986-B517-B5748783AB12}';
|
||||
RID_TiposCapitulos = '{1ADC8E0F-824C-45E5-B964-90E3B74C370C}';
|
||||
RID_ContratosCliente_Detalles = '{405816B6-4A2B-4CBD-AC8D-660CAF3F4910}';
|
||||
RID_Valores = '{16289E81-BF7E-43B7-9D84-652E61BF7A34}';
|
||||
RID_Propiedades = '{25B4067F-C9A6-40A8-B3DC-AED6CD6CB067}';
|
||||
RID_ListaAnosContratos = '{4465DCFB-3D3B-48D3-B81F-E1D402228673}';
|
||||
RID_ContratosClienteBeneficios = '{00A79787-BA0F-4EF3-B365-2B57668F4FC6}';
|
||||
RID_ContratosCliente = '{8813D9DE-045D-4A84-90D7-95C8290A7E08}';
|
||||
RID_TiposCapitulos = '{B14BADA4-EC70-4792-9C3B-AB6769726805}';
|
||||
RID_ContratosCliente_Detalles = '{657F9665-971B-45A8-8AF5-1565067FADBD}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -147,6 +147,11 @@ const
|
||||
fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
|
||||
fld_ContratosClienteENVIADA_REVISADA = 'ENVIADA_REVISADA';
|
||||
fld_ContratosClienteID_CONTRATO_ASOCIADO = 'ID_CONTRATO_ASOCIADO';
|
||||
fld_ContratosClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_ContratosClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
|
||||
fld_ContratosClienteDELEGACION = 'DELEGACION';
|
||||
fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR';
|
||||
fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR';
|
||||
|
||||
{ ContratosCliente field indexes }
|
||||
idx_ContratosClienteID = 0;
|
||||
@ -209,6 +214,11 @@ const
|
||||
idx_ContratosClienteNOTAS_ENVIO = 57;
|
||||
idx_ContratosClienteENVIADA_REVISADA = 58;
|
||||
idx_ContratosClienteID_CONTRATO_ASOCIADO = 59;
|
||||
idx_ContratosClienteID_AGENTE = 60;
|
||||
idx_ContratosClienteNOMBRE_AGENTE = 61;
|
||||
idx_ContratosClienteDELEGACION = 62;
|
||||
idx_ContratosClienteID_INSTALADOR = 63;
|
||||
idx_ContratosClienteNOMBRE_INSTALADOR = 64;
|
||||
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
@ -271,7 +281,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{0ED4F454-0461-4155-BCF7-C13151DD977A}']
|
||||
['{35FE7827-946C-45E1-AECD-D63C75F55C85}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -330,7 +340,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{0DB8C965-0875-43C2-9168-7EC7190C3B6F}']
|
||||
['{02DACDE9-502F-48B8-92AD-ADE9C0298920}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -389,7 +399,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{615C6C28-311F-43AB-AE86-4F270D0B66BD}']
|
||||
['{58B3DFB3-F0F7-4D19-8418-618ED3C5F51B}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -424,7 +434,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{478CDF53-67D5-431D-97F1-67A9AD134904}']
|
||||
['{2BDAF751-AFB8-4FF0-9DD5-C1C74A1200ED}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -627,7 +637,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{1FC5AB50-30B5-4A01-99C4-8C7D963EF071}']
|
||||
['{96DD0C9B-36F2-4776-9200-2549FBBB2E9E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -865,6 +875,26 @@ type
|
||||
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer);
|
||||
function GetID_CONTRATO_ASOCIADOIsNull: Boolean;
|
||||
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetNOMBRE_AGENTEValue: String;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
function GetDELEGACIONIsNull: Boolean;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
function GetID_INSTALADORValue: Integer;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer);
|
||||
function GetID_INSTALADORIsNull: Boolean;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
function GetNOMBRE_INSTALADORValue: String;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -988,6 +1018,16 @@ type
|
||||
property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
|
||||
property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
|
||||
property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
@ -1239,6 +1279,26 @@ type
|
||||
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
|
||||
function GetID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_AGENTEValue: String; virtual;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetDELEGACIONValue: String; virtual;
|
||||
procedure SetDELEGACIONValue(const aValue: String); virtual;
|
||||
function GetDELEGACIONIsNull: Boolean; virtual;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_INSTALADORValue: Integer; virtual;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
|
||||
function GetID_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_INSTALADORValue: String; virtual;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1361,6 +1421,16 @@ type
|
||||
property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
|
||||
property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
|
||||
property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1373,7 +1443,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{CE57F93C-0AFA-4A43-BFAB-F87B6AF24C99}']
|
||||
['{63B3FB62-AA8C-4A3C-B7DE-8DFBCEA21D94}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1468,7 +1538,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{D8CA02E2-207F-4681-BFC7-7D67586D76DA}']
|
||||
['{2FBF1BAE-94E6-473E-8FDC-B4B4BD7CB223}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3524,6 +3594,111 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetDELEGACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteDELEGACION].AsString;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteDELEGACION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetDELEGACIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteDELEGACION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteDELEGACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_INSTALADORValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_INSTALADORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,18 +9,18 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{74E0789F-6D7B-4AEE-898D-564F2F11EA73}';
|
||||
RID_PropiedadesDelta = '{2BFEE5AC-1922-447C-9B70-28086783D3E8}';
|
||||
RID_ListaAnosContratosDelta = '{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{2DFD608C-073C-4189-906F-C27B11203063}';
|
||||
RID_ContratosClienteDelta = '{E63A0667-B99A-4F5D-84BC-8AAD49936917}';
|
||||
RID_TiposCapitulosDelta = '{551A2121-A753-4659-A091-FCAB0CDC7FBF}';
|
||||
RID_ContratosCliente_DetallesDelta = '{35A00064-7F34-4296-8DCA-FBD514F42366}';
|
||||
RID_ValoresDelta = '{060F095C-33E8-40E8-A804-6A396B63266C}';
|
||||
RID_PropiedadesDelta = '{24551F67-C6A2-4052-B309-98ED35606A12}';
|
||||
RID_ListaAnosContratosDelta = '{3692BF60-7BAB-449B-87E4-957F5D05B070}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{C235777C-9BCB-4F65-B5BB-FEEC38CC79D1}';
|
||||
RID_ContratosClienteDelta = '{6E558DC2-3002-4D94-9B75-02C0B92D636C}';
|
||||
RID_TiposCapitulosDelta = '{F2D4CEB2-67ED-420D-80EB-FBBD40EE11E7}';
|
||||
RID_ContratosCliente_DetallesDelta = '{66AEBA02-84CC-4423-A2F9-81050FF518D5}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{74E0789F-6D7B-4AEE-898D-564F2F11EA73}']
|
||||
['{060F095C-33E8-40E8-A804-6A396B63266C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -78,7 +78,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{2BFEE5AC-1922-447C-9B70-28086783D3E8}']
|
||||
['{24551F67-C6A2-4052-B309-98ED35606A12}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -136,7 +136,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}']
|
||||
['{3692BF60-7BAB-449B-87E4-957F5D05B070}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -170,7 +170,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{2DFD608C-073C-4189-906F-C27B11203063}']
|
||||
['{C235777C-9BCB-4F65-B5BB-FEEC38CC79D1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -372,7 +372,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{E63A0667-B99A-4F5D-84BC-8AAD49936917}']
|
||||
['{6E558DC2-3002-4D94-9B75-02C0B92D636C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -434,6 +434,11 @@ type
|
||||
function GetOldNOTAS_ENVIOValue : String;
|
||||
function GetOldENVIADA_REVISADAValue : SmallInt;
|
||||
function GetOldID_CONTRATO_ASOCIADOValue : Integer;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldNOMBRE_AGENTEValue : String;
|
||||
function GetOldDELEGACIONValue : String;
|
||||
function GetOldID_INSTALADORValue : Integer;
|
||||
function GetOldNOMBRE_INSTALADORValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -496,6 +501,11 @@ type
|
||||
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
|
||||
property OldENVIADA_REVISADA : SmallInt read GetOldENVIADA_REVISADAValue;
|
||||
property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
||||
property OldDELEGACION : String read GetOldDELEGACIONValue;
|
||||
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
|
||||
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
|
||||
end;
|
||||
|
||||
{ TContratosClienteBusinessProcessorRules }
|
||||
@ -867,6 +877,36 @@ type
|
||||
function GetOldID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_AGENTEValue: String; virtual;
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_AGENTEValue: String; virtual;
|
||||
function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetDELEGACIONValue: String; virtual;
|
||||
function GetDELEGACIONIsNull: Boolean; virtual;
|
||||
function GetOldDELEGACIONValue: String; virtual;
|
||||
function GetOldDELEGACIONIsNull: Boolean; virtual;
|
||||
procedure SetDELEGACIONValue(const aValue: String); virtual;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_INSTALADORValue: Integer; virtual;
|
||||
function GetID_INSTALADORIsNull: Boolean; virtual;
|
||||
function GetOldID_INSTALADORValue: Integer; virtual;
|
||||
function GetOldID_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_INSTALADORValue: String; virtual;
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_INSTALADORValue: String; virtual;
|
||||
function GetOldNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1109,6 +1149,26 @@ type
|
||||
property ID_CONTRATO_ASOCIADOIsNull : Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
|
||||
property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
|
||||
property OldID_CONTRATO_ASOCIADOIsNull : Boolean read GetOldID_CONTRATO_ASOCIADOIsNull;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
||||
property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION : String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull : Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property OldDELEGACION : String read GetOldDELEGACIONValue;
|
||||
property OldDELEGACIONIsNull : Boolean read GetOldDELEGACIONIsNull;
|
||||
property ID_INSTALADOR : Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull : Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
|
||||
property OldID_INSTALADORIsNull : Boolean read GetOldID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR : String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull : Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
|
||||
property OldNOMBRE_INSTALADORIsNull : Boolean read GetOldNOMBRE_INSTALADORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1118,7 +1178,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{551A2121-A753-4659-A091-FCAB0CDC7FBF}']
|
||||
['{F2D4CEB2-67ED-420D-80EB-FBBD40EE11E7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1212,7 +1272,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{35A00064-7F34-4296-8DCA-FBD514F42366}']
|
||||
['{66AEBA02-84CC-4423-A2F9-81050FF518D5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -4092,6 +4152,161 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_AGENTE];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetDELEGACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetDELEGACIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldDELEGACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteDELEGACION];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldDELEGACIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteDELEGACION]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -17,7 +17,6 @@ const
|
||||
CONST_CONTRATO_ACEPTADO_UECKO = 3;
|
||||
|
||||
CTE_EMPRESA_FABRICA = 1;
|
||||
CTE_CLIENTE_PARA_FABRICA = 2000000005;
|
||||
SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
|
||||
SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
|
||||
SITUACION_CONTRATO_CANCELADO = 'CANCELADO';
|
||||
@ -354,6 +353,12 @@ begin
|
||||
DataTable.Edit;
|
||||
|
||||
ID_CLIENTE := FCliente.ID;
|
||||
|
||||
ID_AGENTE := FCliente.ID_AGENTE;
|
||||
NOMBRE_AGENTE := FCliente.AGENTE;
|
||||
DELEGACION := FCliente.DELEGACION;
|
||||
|
||||
|
||||
NOMBRE := FCliente.NOMBRE;
|
||||
NIF_CIF := FCliente.NIF_CIF;
|
||||
CALLE := FCliente.CALLE;
|
||||
|
||||
@ -521,6 +521,26 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = 'ID_CONTRATO_ASOCIADO'
|
||||
TableField = 'ID_CONTRATO_ASOCIADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_AGENTE'
|
||||
TableField = 'NOMBRE_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DELEGACION'
|
||||
TableField = 'DELEGACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_INSTALADOR'
|
||||
TableField = 'ID_INSTALADOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_INSTALADOR'
|
||||
TableField = 'NOMBRE_INSTALADOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'ContratosCliente'
|
||||
@ -846,6 +866,29 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'ID_CONTRATO_ASOCIADO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1385,6 +1428,34 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'ID_CONTRATO_ASOCIADO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1404,19 +1475,22 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'E, PRECIO_PUNTO,'#10' ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' +
|
||||
'_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10' PERS_CONTACTO' +
|
||||
'_ENVIO, TLFS_ENVIO, NOTAS_ENVIO, ENVIADA_REVISADA, ID_CONTRATO_A' +
|
||||
'SOCIADO'#10' )'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF' +
|
||||
'_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' ' +
|
||||
' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FO' +
|
||||
'RMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :IN' +
|
||||
'CIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NE' +
|
||||
'TO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_I' +
|
||||
'MPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_' +
|
||||
'FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :R' +
|
||||
'E, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :' +
|
||||
'TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10' :ID_DIRE' +
|
||||
'CCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVINCIA_ENVIO, :' +
|
||||
'CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO_ENVIO, :TLFS_ENVIO, :NO' +
|
||||
'TAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO'#10' )'#10#10
|
||||
'SOCIADO, ID_AGENTE,'#10' NOMBRE_AGENTE, DELEGACION, ID_INSTALADO' +
|
||||
'R, NOMBRE_INSTALADOR'#10' )'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_' +
|
||||
'CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :' +
|
||||
'PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :S' +
|
||||
'ITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INC' +
|
||||
'IDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO' +
|
||||
', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,' +
|
||||
#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORT' +
|
||||
'E_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA' +
|
||||
'_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFO' +
|
||||
'NO, :MOVIL, :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10 +
|
||||
' :ID_DIRECCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVI' +
|
||||
'NCIA_ENVIO, :CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO_ENVIO, :TL' +
|
||||
'FS_ENVIO, :NOTAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO' +
|
||||
','#10' :ID_AGENTE, :NOMBRE_AGENTE, :DELEGACION, :ID_INSTALADOR, ' +
|
||||
':NOMBRE_INSTALADOR'#10' )'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1753,6 +1827,34 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1789,7 +1891,10 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_ENV' +
|
||||
'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = :NOTAS_ENVIO,'#10' ENVIADA_RE' +
|
||||
'VISADA = :ENVIADA_REVISADA,'#10' ID_CONTRATO_ASOCIADO = :ID_CONTR' +
|
||||
'ATO_ASOCIADO'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
'ATO_ASOCIADO,'#10' ID_AGENTE = :ID_AGENTE,'#10' NOMBRE_AGENTE = :N' +
|
||||
'OMBRE_AGENTE,'#10' DELEGACION = :DELEGACION,'#10' ID_INSTALADOR = ' +
|
||||
':ID_INSTALADOR,'#10' NOMBRE_INSTALADOR = :NOMBRE_INSTALADOR'#10#10' WH' +
|
||||
'ERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -76,7 +76,8 @@ requires
|
||||
JvSystemD11R,
|
||||
JvPageCompsD11R,
|
||||
ConCli_AlbCli_relation,
|
||||
PreCli_ConCli_relation;
|
||||
PreCli_ConCli_relation,
|
||||
Contactos_view;
|
||||
|
||||
contains
|
||||
uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
|
||||
@ -96,6 +97,6 @@ contains
|
||||
uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: T},
|
||||
uViewDireccionEntregaContratoCli in 'uViewDireccionEntregaContratoCli.pas' {frViewDireccionEntregaContratoCli: TFrame},
|
||||
uEditorDireccionEntregaContratoCliente in 'uEditorDireccionEntregaContratoCliente.pas' {fEditorDireccionEntregaContratoCliente: TFrame},
|
||||
uDialogOpcionesImpresionEtiquetasContratosCliente in 'uDialogOpcionesImpresionEtiquetasContratosCliente.pas' {fDialogOpcionesImpresionEtiquetasContratosCliente: TfDialogOpcionesImpresionEtiquetasContratosCliente};
|
||||
uDialogOpcionesImpresionEtiquetasContratosCliente in 'uDialogOpcionesImpresionEtiquetasContratosCliente.pas' {fDialogOpcionesImpresionEtiquetasContratosCliente: TFrame};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,51 +49,59 @@
|
||||
<DelphiCompile Include="ContratosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="ContratosCliente_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="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="PreCli_ConCli_relation.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvPageCompsD11R.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_ConCli_relation.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\vclshlctrls.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContratosClienteViewRegister.pas" />
|
||||
<DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
|
||||
<Form>fDialogOpcionesImpresionContratosCliente</Form>
|
||||
@ -163,13 +171,6 @@
|
||||
<Form>frViewElegirArticulosContratosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -175,7 +175,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 1098
|
||||
Height = 321
|
||||
ActivePage = pagContenido
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 112
|
||||
|
||||
@ -439,7 +439,7 @@ begin
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
// ViewContrato.ViewClienteContrato.Controller := Controller.ClienteController;
|
||||
ViewContrato.Controller := Controller;
|
||||
frViewDetallesContratoCliente1.Controller := Controller.DetallesController;
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 1174
|
||||
Height = 905
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,18 +9,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 1174
|
||||
Height = 905
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
1174
|
||||
905)
|
||||
object edtFechaContrato: TcxDBDateEdit
|
||||
Left = 136
|
||||
Left = 117
|
||||
Top = 82
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_CONTRATO'
|
||||
@ -43,7 +45,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 129
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 324
|
||||
Left = 645
|
||||
Top = 289
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
@ -60,12 +62,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 14
|
||||
Height = 200
|
||||
Width = 507
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 136
|
||||
Left = 117
|
||||
Top = 28
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
@ -90,8 +92,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 122
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 136
|
||||
Top = 504
|
||||
Left = 117
|
||||
Top = 784
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
@ -118,20 +120,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 9
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 162
|
||||
Top = 504
|
||||
Left = 483
|
||||
Top = 784
|
||||
Width = 132
|
||||
Height = 21
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 8
|
||||
TabOrder = 10
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object cbSituacion: TcxDBImageComboBox
|
||||
Left = 136
|
||||
Left = 117
|
||||
Top = 109
|
||||
DataBinding.DataField = 'SITUACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -161,7 +163,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 260
|
||||
end
|
||||
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
|
||||
Left = 324
|
||||
Left = 645
|
||||
Top = 28
|
||||
Width = 127
|
||||
Height = 225
|
||||
@ -171,9 +173,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
TabOrder = 13
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 324
|
||||
ExplicitLeft = 645
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 127
|
||||
ExplicitHeight = 225
|
||||
@ -191,24 +193,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 103
|
||||
end
|
||||
inherited bVerFichaCliente: TBitBtn
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
Left = 286
|
||||
ExplicitLeft = 286
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited bElegirDireccion: TButton
|
||||
Left = 251
|
||||
ExplicitLeft = 251
|
||||
Left = 455
|
||||
ExplicitLeft = 455
|
||||
end
|
||||
inherited edtTelefonos: TcxTextEdit
|
||||
ExplicitWidth = 193
|
||||
Width = 193
|
||||
end
|
||||
inherited edtReferencia: TcxDBTextEdit
|
||||
Left = 204
|
||||
ExplicitLeft = 204
|
||||
Left = 304
|
||||
ExplicitLeft = 304
|
||||
ExplicitWidth = 103
|
||||
Width = 103
|
||||
end
|
||||
@ -216,7 +218,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
object memFormaPago: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 531
|
||||
Top = 811
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -232,13 +234,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 11
|
||||
Height = 60
|
||||
Width = 546
|
||||
end
|
||||
object memPlazoEntrega: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 587
|
||||
Top = 867
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'PLAZO_ENTREGA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -254,12 +256,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 12
|
||||
Height = 60
|
||||
Width = 616
|
||||
end
|
||||
object cbVendedor: TcxDBLookupComboBox
|
||||
Left = 136
|
||||
Left = 117
|
||||
Top = 136
|
||||
DataBinding.DataField = 'ID_VENDEDOR'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -289,7 +291,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 27
|
||||
end
|
||||
object cbTipoContrato: TcxDBComboBox
|
||||
Left = 252
|
||||
Left = 422
|
||||
Top = 82
|
||||
DataBinding.DataField = 'TIPO_CONTRATO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -314,7 +316,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 113
|
||||
end
|
||||
object edtlReferenciaCliente: TcxDBTextEdit
|
||||
Left = 136
|
||||
Left = 117
|
||||
Top = 55
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
@ -370,9 +372,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 425
|
||||
end
|
||||
inherited bModificar: TBitBtn
|
||||
Left = 82
|
||||
Left = 403
|
||||
Top = 166
|
||||
ExplicitLeft = 82
|
||||
ExplicitLeft = 403
|
||||
ExplicitTop = 166
|
||||
end
|
||||
inherited txtDireccion: TStaticText
|
||||
@ -396,6 +398,65 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
|
||||
Left = 22
|
||||
Top = 613
|
||||
Width = 425
|
||||
Height = 135
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 613
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombreAgente: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtDelegacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 391
|
||||
ExplicitLeft = 391
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
|
||||
Left = 22
|
||||
Top = 474
|
||||
Width = 425
|
||||
Height = 103
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 474
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombreInstalador: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 363
|
||||
ExplicitLeft = 363
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -452,20 +513,32 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
Caption = 'Vendedor / Instalador:'
|
||||
Caption = 'Usuario:'
|
||||
Control = cbVendedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Direcci'#243'n entrega / obra'
|
||||
object dxLayoutControl1Item13: TdxLayoutItem
|
||||
Control = frViewDireccionEntregaContratoCli1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
Control = frViewDatosYSeleccionInstalador1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
Caption = 'Datos comerciales'
|
||||
object dxLayoutControl1Item14: TdxLayoutItem
|
||||
Control = frViewDatosYSeleccionComercial1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
|
||||
@ -12,7 +12,8 @@ uses
|
||||
Buttons, ActnList, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
|
||||
uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClienteContrato, uBizContactos,
|
||||
uVendedoresController, uViewDireccionEntregaContratoCli;
|
||||
uVendedoresController, uViewDireccionEntregaContratoCli, uViewDatosYSeleccionComercial,
|
||||
uContratosClienteController, uViewDatosYSeleccionInstalador;
|
||||
|
||||
type
|
||||
IViewContratoCliente = interface(IViewBase)
|
||||
@ -21,6 +22,10 @@ type
|
||||
procedure SetContrato(const Value: IBizContratoCliente);
|
||||
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
|
||||
|
||||
function GetController : IContratosClienteController;
|
||||
procedure SetController (const Value : IContratosClienteController);
|
||||
property Controller: IContratosClienteController read GetController write SetController;
|
||||
|
||||
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
|
||||
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
|
||||
|
||||
@ -71,6 +76,11 @@ type
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dxLayoutControl1Item13: TdxLayoutItem;
|
||||
frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli;
|
||||
dxLayoutControl1Item14: TdxLayoutItem;
|
||||
frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
@ -80,6 +90,7 @@ type
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
protected
|
||||
FContrato : IBizContratoCliente;
|
||||
FController : IContratosClienteController;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FVendedor : IBizVendedor;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
@ -89,11 +100,20 @@ type
|
||||
|
||||
function GetContrato: IBizContratoCliente;
|
||||
procedure SetContrato(const Value: IBizContratoCliente); virtual;
|
||||
|
||||
function GetController : IContratosClienteController;
|
||||
procedure SetController (const Value : IContratosClienteController);
|
||||
|
||||
function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
|
||||
function GetViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli;
|
||||
|
||||
procedure OnComercialChanged(Sender : TObject);
|
||||
procedure OnInstaladorChanged(Sender : TObject);
|
||||
|
||||
public
|
||||
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
|
||||
property Controller: IContratosClienteController read GetController write SetController;
|
||||
|
||||
property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
|
||||
property ViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli read GetViewDireccionEntregaContratoCli;
|
||||
|
||||
@ -106,7 +126,7 @@ implementation
|
||||
{ TfrViewContratoCliente }
|
||||
|
||||
uses
|
||||
schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uContratosClienteController;
|
||||
schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uFactuGES_App;
|
||||
|
||||
|
||||
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
|
||||
@ -131,18 +151,34 @@ begin
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
FVendedoresController := TVendedoresController.Create;
|
||||
FViewClienteContrato := frViewDatosYSeleccionClienteContrato1;
|
||||
FViewDireccionEntregaContratoCli := frViewDireccionEntregaContratoCli1;
|
||||
FViewDireccionEntregaContratoCli := frViewDireccionEntregaContratoCli1;
|
||||
|
||||
//FILTRO DE EMPRESAS
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
dxLayoutControl1Group10.Visible := true;
|
||||
frViewDatosYSeleccionInstalador1.Visible := true;
|
||||
dxLayoutControl1Item15.visible := true;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dxLayoutControl1Group10.Visible := false;
|
||||
frViewDatosYSeleccionInstalador1.Visible := false;
|
||||
dxLayoutControl1Item15.visible := false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frViewDatosYSeleccionComercial1.OnComercialChanged := Nil;
|
||||
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := Nil;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
FVendedor := Nil;
|
||||
FVendedoresController := NIL;
|
||||
FViewClienteContrato := NIL;
|
||||
FViewDireccionEntregaContratoCli := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.frViewClienteContratoButton1Click(Sender: TObject);
|
||||
@ -172,6 +208,11 @@ begin
|
||||
Result := FContrato;
|
||||
end;
|
||||
|
||||
function TfrViewContratoCliente.GetController: IContratosClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewContratoCliente.GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
|
||||
begin
|
||||
Result := FViewClienteContrato;
|
||||
@ -182,6 +223,22 @@ begin
|
||||
Result := FViewDireccionEntregaContratoCli;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.OnComercialChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FContrato) then
|
||||
begin
|
||||
FController.CambiarComercial(FContrato, frViewDatosYSeleccionComercial1.Comercial);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.OnInstaladorChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FContrato) then
|
||||
begin
|
||||
FController.CambiarInstalador(FContrato, frViewDatosYSeleccionInstalador1.Instalador);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
|
||||
begin
|
||||
FContrato := Value;
|
||||
@ -199,6 +256,9 @@ begin
|
||||
|
||||
FViewClienteContrato.Contrato := FContrato;
|
||||
frViewDireccionEntregaContratoCli1.ContratoCliente := FContrato;
|
||||
|
||||
frViewDatosYSeleccionComercial1.OnComercialChanged := OnComercialChanged;
|
||||
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := OnInstaladorChanged;
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
@ -208,4 +268,9 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.SetController(const Value: IContratosClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Width = 903
|
||||
Height = 525
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 903
|
||||
ExplicitHeight = 525
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -117,7 +116,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Width = 105
|
||||
end
|
||||
object cxGridViewVENDEDOR: TcxGridDBColumn
|
||||
Caption = 'Vendedor \ Instalador'
|
||||
Caption = 'Usuario'
|
||||
DataBinding.FieldName = 'VENDEDOR'
|
||||
end
|
||||
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||
@ -210,6 +209,21 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewAGENTE: TcxGridDBColumn
|
||||
Caption = 'Comercial'
|
||||
DataBinding.FieldName = 'NOMBRE_AGENTE'
|
||||
end
|
||||
object cxGridViewDELEGACION: TcxGridDBColumn
|
||||
Caption = 'Delegaci'#243'n'
|
||||
DataBinding.FieldName = 'DELEGACION'
|
||||
end
|
||||
object cxGridViewINSTALADOR: TcxGridDBColumn
|
||||
Caption = 'Instalador'
|
||||
DataBinding.FieldName = 'NOMBRE_INSTALADOR'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todos'
|
||||
@ -315,6 +329,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actProcedencia
|
||||
end
|
||||
object TBXSeparatorItem5: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem5: TTBXItem
|
||||
Action = actComercial
|
||||
end
|
||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem6: TTBXItem
|
||||
Action = actDelegacion
|
||||
end
|
||||
object TBXSeparatorItem6: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem7: TTBXItem
|
||||
Action = actInstalador
|
||||
end
|
||||
object TBXSeparatorItem7: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem8: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -350,6 +384,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
OnExecute = actProvinciaExecute
|
||||
OnUpdate = actProvinciaUpdate
|
||||
end
|
||||
object actComercial: TAction
|
||||
Caption = 'Comercial'
|
||||
OnExecute = actComercialExecute
|
||||
OnUpdate = actComercialUpdate
|
||||
end
|
||||
object actDelegacion: TAction
|
||||
Caption = 'Delegaci'#243'n'
|
||||
OnExecute = actDelegacionExecute
|
||||
OnUpdate = actDelegacionUpdate
|
||||
end
|
||||
object actInstalador: TAction
|
||||
Caption = 'Instalador'
|
||||
OnExecute = actInstaladorExecute
|
||||
OnUpdate = actInstaladorUpdate
|
||||
end
|
||||
object actTienda: TAction
|
||||
Caption = 'Tienda'
|
||||
OnExecute = actTiendaExecute
|
||||
OnUpdate = actTiendaUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
|
||||
cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
|
||||
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
|
||||
uCustomView, uViewBase;
|
||||
uCustomView, uViewBase, cxTextEdit;
|
||||
|
||||
type
|
||||
IViewContratosCliente = interface(IViewGrid)
|
||||
@ -62,6 +62,21 @@ type
|
||||
actProvincia: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
cxGridViewDELEGACION: TcxGridDBColumn;
|
||||
actComercial: TAction;
|
||||
actDelegacion: TAction;
|
||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
||||
TBXItem5: TTBXItem;
|
||||
TBXItem6: TTBXItem;
|
||||
cxGridViewINSTALADOR: TcxGridDBColumn;
|
||||
actInstalador: TAction;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
TBXItem7: TTBXItem;
|
||||
actTienda: TAction;
|
||||
TBXSeparatorItem7: TTBXSeparatorItem;
|
||||
TBXItem8: TTBXItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -82,9 +97,16 @@ type
|
||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||
procedure actProcedenciaExecute(Sender: TObject);
|
||||
procedure actProcedenciaUpdate(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure actProvinciaExecute(Sender: TObject);
|
||||
procedure actProvinciaUpdate(Sender: TObject);
|
||||
procedure actComercialExecute(Sender: TObject);
|
||||
procedure actComercialUpdate(Sender: TObject);
|
||||
procedure actDelegacionExecute(Sender: TObject);
|
||||
procedure actDelegacionUpdate(Sender: TObject);
|
||||
procedure actInstaladorExecute(Sender: TObject);
|
||||
procedure actInstaladorUpdate(Sender: TObject);
|
||||
procedure actTiendaExecute(Sender: TObject);
|
||||
procedure actTiendaUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -131,6 +153,66 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actComercialExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actComercialUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actDelegacionExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewDELEGACION.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := -1;
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actDelegacionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actInstaladorExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewINSTALADOR.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewINSTALADOR.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewINSTALADOR.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewINSTALADOR.GroupIndex := -1;
|
||||
cxGridViewINSTALADOR.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actInstaladorUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewINSTALADOR.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actProcedenciaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
|
||||
@ -171,6 +253,26 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actTiendaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := -1;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.actTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
@ -223,27 +325,45 @@ end;
|
||||
procedure TfrViewContratosCliente.ConfigView;
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
|
||||
cxGridViewTIENDA.Visible := True
|
||||
else
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica.
|
||||
{
|
||||
if (AppFactuGES.EmpresaActiva.ID = 1) then
|
||||
//FILTRO DE EMPRESAS
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
cxGridLevelPendientesRevisar.Visible := True;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
cxGridViewTIENDA.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
cxGridViewAGENTE.VisibleForCustomization := True;
|
||||
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := True;
|
||||
|
||||
cxGridViewINSTALADOR.Visible := True;
|
||||
cxGridViewINSTALADOR.VisibleForCustomization := True;
|
||||
|
||||
actComercial.Visible := True;
|
||||
actDelegacion.Visible := True;
|
||||
actInstalador.Visible := True;
|
||||
actTienda.Visible := False;
|
||||
end
|
||||
else begin
|
||||
cxGridLevelPendientesRevisar.Visible := False;
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
cxGridViewTIENDA.VisibleForCustomization := True;
|
||||
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
cxGridViewAGENTE.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewINSTALADOR.Visible := False;
|
||||
cxGridViewINSTALADOR.VisibleForCustomization := False;
|
||||
|
||||
actComercial.Visible := False;
|
||||
actDelegacion.Visible := False;
|
||||
actInstalador.Visible := False;
|
||||
actTienda.Visible := True;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
||||
|
||||
@ -0,0 +1,98 @@
|
||||
object srvDelegaciones: TsrvDelegaciones
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
ServiceSchema = schDelegaciones
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 300
|
||||
Width = 334
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 88
|
||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'UnidadesMedida_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_UNIDADES_MEDIDA_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'UnidadesMedida_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'Delegaciones_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_DELEGACIONES'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'Delegaciones_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
end
|
||||
object schDelegaciones: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'DELEGACIONES'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'Delegaciones'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_DELEGACIONES_ID'
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Delegaciones_DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,63 @@
|
||||
unit srvDelegaciones_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||
uDAScriptingProvider, uDAClasses,
|
||||
FactuGES_Intf, uDAInterfaces;
|
||||
|
||||
type
|
||||
{ TsrvDelegaciones }
|
||||
TsrvDelegaciones = class(TDataAbstractService, IsrvDelegaciones)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schDelegaciones: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||
var aConnectionName: string);
|
||||
private
|
||||
protected
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils;
|
||||
|
||||
procedure Create_srvDelegaciones(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvDelegaciones.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvDelegaciones }
|
||||
procedure TsrvDelegaciones.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
//SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
procedure TsrvDelegaciones.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvDelegaciones', Create_srvDelegaciones, TsrvDelegaciones_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Delegaciones/Views/Delegaciones_view.dpk
Normal file
BIN
Source/Modulos/Delegaciones/Views/Delegaciones_view.dpk
Normal file
Binary file not shown.
545
Source/Modulos/Delegaciones/Views/Delegaciones_view.dproj
Normal file
545
Source/Modulos/Delegaciones/Views/Delegaciones_view.dproj
Normal file
@ -0,0 +1,545 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
|
||||
<MainSource>Delegaciones_view.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Delegaciones_view.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Delegaciones_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Delegaciones_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Delegaciones_controller.dcp" />
|
||||
<DCCReference Include="Delegaciones_model.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uDelegacionesViewRegister.pas" />
|
||||
<DCCReference Include="uEditorDelegaciones.pas">
|
||||
<Form>fEditorDelegaciones</Form>
|
||||
<DesignClass>TfEditorUnidadesMedida</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Delegaciones/Views/Delegaciones_view.res
Normal file
BIN
Source/Modulos/Delegaciones/Views/Delegaciones_view.res
Normal file
Binary file not shown.
@ -0,0 +1,23 @@
|
||||
unit uDelegacionesViewRegister;
|
||||
|
||||
interface
|
||||
|
||||
procedure RegisterViews;
|
||||
procedure UnregisterViews;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorDelegaciones;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorDelegaciones, 'EditorDelegaciones');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorDelegaciones);
|
||||
end;
|
||||
|
||||
end.
|
||||
144
Source/Modulos/Delegaciones/Views/uEditorDelegaciones.dfm
Normal file
144
Source/Modulos/Delegaciones/Views/uEditorDelegaciones.dfm
Normal file
@ -0,0 +1,144 @@
|
||||
object fEditorDelegaciones: TfEditorDelegaciones
|
||||
Left = 453
|
||||
Top = 234
|
||||
ActiveControl = ListaDelegaciones
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Administraci'#243'n de delegaciones'
|
||||
ClientHeight = 494
|
||||
ClientWidth = 404
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = CustomEditorClose
|
||||
OnShow = FormShow
|
||||
InstanceID = 0
|
||||
ReadOnly = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bAceptar: TButton
|
||||
Left = 235
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actAceptar
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object bCancelar: TButton
|
||||
Left = 321
|
||||
Top = 462
|
||||
Width = 75
|
||||
Height = 23
|
||||
Action = actCancelar
|
||||
Cancel = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object PageControl1: TPageControl
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 390
|
||||
Height = 442
|
||||
ActivePage = TabSheet1
|
||||
TabOrder = 0
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Delegaciones'
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
Top = 12
|
||||
Width = 158
|
||||
Height = 13
|
||||
Caption = 'Lista de delegaciones disponibles'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 10
|
||||
Top = 326
|
||||
Width = 139
|
||||
Height = 13
|
||||
Caption = 'A'#241'adir una nueva delegaci'#243'n'
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 187
|
||||
Top = 330
|
||||
Width = 189
|
||||
Height = 5
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object eCategoria: TLabel
|
||||
Left = 18
|
||||
Top = 353
|
||||
Width = 40
|
||||
Height = 13
|
||||
Caption = 'Nombre:'
|
||||
end
|
||||
object ListaDelegaciones: TDBLookupListBox
|
||||
Left = 8
|
||||
Top = 31
|
||||
Width = 262
|
||||
Height = 277
|
||||
KeyField = 'RecID'
|
||||
ListField = 'DESCRIPCION'
|
||||
ListSource = DADataSource
|
||||
TabOrder = 0
|
||||
end
|
||||
object bEliminar: TButton
|
||||
Left = 281
|
||||
Top = 31
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actEliminar
|
||||
TabOrder = 1
|
||||
end
|
||||
object editDelegacion: TEdit
|
||||
Left = 64
|
||||
Top = 349
|
||||
Width = 312
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
end
|
||||
object bAnadir: TButton
|
||||
Left = 281
|
||||
Top = 382
|
||||
Width = 95
|
||||
Height = 23
|
||||
Action = actAnadir
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 144
|
||||
Top = 16
|
||||
object actAnadir: TAction
|
||||
Caption = '&A'#241'adir'
|
||||
OnExecute = actAnadirExecute
|
||||
OnUpdate = actAnadirUpdate
|
||||
end
|
||||
object actEliminar: TAction
|
||||
Caption = '&Eliminar'
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
object actAceptar: TAction
|
||||
Caption = 'A&ceptar'
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
object actCancelar: TAction
|
||||
Caption = '&Cancelar'
|
||||
OnExecute = actCancelarExecute
|
||||
end
|
||||
object actCerrar: TAction
|
||||
Caption = 'actCerrar'
|
||||
OnExecute = actCerrarExecute
|
||||
end
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
181
Source/Modulos/Delegaciones/Views/uEditorDelegaciones.pas
Normal file
181
Source/Modulos/Delegaciones/Views/uEditorDelegaciones.pas
Normal file
@ -0,0 +1,181 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2006. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión: 22-05-2006
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual: 22-05-2006
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
Fecha Comentarios
|
||||
---------------------------------------------------------------------------
|
||||
===============================================================================
|
||||
}
|
||||
|
||||
unit uEditorDelegaciones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
|
||||
uIEditorDelegaciones, uCustomEditor, uGUIBase, ExtCtrls,
|
||||
ComCtrls, uBizDelegaciones, uDelegacionesController, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorDelegaciones = class(TCustomEditor, IEditorDelegaciones)
|
||||
ActionList1: TActionList;
|
||||
DADataSource: TDADataSource;
|
||||
ListaDelegaciones: TDBLookupListBox;
|
||||
actAnadir: TAction;
|
||||
actEliminar: TAction;
|
||||
bEliminar: TButton;
|
||||
actAceptar: TAction;
|
||||
actCancelar: TAction;
|
||||
bAceptar: TButton;
|
||||
bCancelar: TButton;
|
||||
actCerrar: TAction;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Bevel1: TBevel;
|
||||
eCategoria: TLabel;
|
||||
editDelegacion: TEdit;
|
||||
bAnadir: TButton;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actAnadirUpdate(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
protected
|
||||
FDelegaciones: IBizDelegacion;
|
||||
FController: IDelegacionesController;
|
||||
function GetDelegaciones: IBizDelegacion;
|
||||
procedure SetDelegaciones(const Value: IBizDelegacion);
|
||||
function GetController : IDelegacionesController;
|
||||
procedure SetController (const Value : IDelegacionesController);
|
||||
public
|
||||
property Delegaciones: IBizDelegacion read GetDelegaciones write SetDelegaciones;
|
||||
property Controller : IDelegacionesController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorDelegaciones }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
function TfEditorDelegaciones.GetController: IDelegacionesController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfEditorDelegaciones.GetDelegaciones: IBizDelegacion;
|
||||
begin
|
||||
Result := FDelegaciones;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.SetController(const Value: IDelegacionesController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.SetDelegaciones(const Value: IBizDelegacion);
|
||||
begin
|
||||
FDelegaciones := Value;
|
||||
DADataSource.DataTable := (FDelegaciones as IBizDelegacion).DataTable;
|
||||
DADataSource.DataTable.Open;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actAnadirExecute(Sender: TObject);
|
||||
begin
|
||||
if not FController.Localizar(Delegaciones, editDelegacion.Text) then
|
||||
begin
|
||||
Delegaciones.Append;
|
||||
Delegaciones.DESCRIPCION := editDelegacion.Text;
|
||||
Delegaciones.Post;
|
||||
editDelegacion.Clear;
|
||||
ListaDelegaciones.SetFocus;
|
||||
end
|
||||
else
|
||||
ShowErrorMessage('Ya existe la unidad ' + editDelegacion.Text,
|
||||
'Ya existe la unidad ''' + editDelegacion.Text + ''' en la lista.');
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
Delegaciones.Delete;
|
||||
ListaDelegaciones.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actEliminarUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (FDelegaciones.DataTable.RecordCount > 0) and
|
||||
(Length(ListaDelegaciones.SelectedItem) > 0);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
FDelegaciones := Nil;
|
||||
FController := Nil;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actAceptarExecute(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
Delegaciones.DataTable.ApplyUpdates;
|
||||
except
|
||||
on E : Exception do begin
|
||||
Delegaciones.DataTable.CancelUpdates;
|
||||
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actCancelarExecute(Sender: TObject);
|
||||
begin
|
||||
Delegaciones.DataTable.CancelUpdates;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actCerrarExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.actAnadirUpdate(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := (Length(editDelegacion.Text) > 0)
|
||||
end;
|
||||
|
||||
procedure TfEditorDelegaciones.FormShow(Sender: TObject);
|
||||
begin
|
||||
if not FDelegaciones.DataTable.Active then
|
||||
FDelegaciones.DataTable.Active := true;
|
||||
|
||||
FDelegaciones.DataTable.Sort(['DESCRIPCION'], [sdAscending]);
|
||||
EditDelegacion.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -7,7 +7,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
|
||||
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
|
||||
uBizFacturasCliente, uBizDireccionesContacto;
|
||||
uBizFacturasCliente, uBizDireccionesContacto, uBizContactos;
|
||||
|
||||
type
|
||||
IFacturasClienteController = interface(IControllerBase)
|
||||
@ -56,6 +56,7 @@ type
|
||||
|
||||
function darTiposFacturaCliente: IBizTiposFacturaCliente;
|
||||
function AsignarTipoOperacion(AFacturas: IBizFacturaCliente): Boolean;
|
||||
function CambiarComercial(AFactura : IBizFacturaCliente; AComercial: IBizComercial): Boolean;
|
||||
end;
|
||||
|
||||
TFacturasClienteController = class(TControllerBase, IFacturasClienteController)
|
||||
@ -126,6 +127,7 @@ type
|
||||
|
||||
function darTiposFacturaCliente: IBizTiposFacturaCliente;
|
||||
function AsignarTipoOperacion(AFacturas: IBizFacturaCliente): Boolean;
|
||||
function CambiarComercial(AFactura : IBizFacturaCliente; AComercial: IBizComercial): Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -133,7 +135,7 @@ implementation
|
||||
|
||||
uses
|
||||
Windows, uDateUtils, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
|
||||
uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
|
||||
uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
|
||||
uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
|
||||
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uAlbaranesClienteController,
|
||||
schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
|
||||
@ -624,6 +626,34 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.CambiarComercial(
|
||||
AFactura: IBizFacturaCliente; AComercial: IBizComercial): Boolean;
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
raise Exception.Create ('AContrato no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
bEnEdicion := (AFactura.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AFactura.Edit;
|
||||
|
||||
AFactura.DataTable.Edit;
|
||||
AFactura.ID_AGENTE := AComercial.ID;
|
||||
AFactura.NOMBRE_AGENTE := AComercial.NOMBRE;
|
||||
AFactura.DELEGACION := AComercial.DELEGACION;
|
||||
|
||||
if not bEnEdicion then
|
||||
AFactura.Post;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteController.CopiarDireccion(
|
||||
const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
|
||||
var
|
||||
@ -1015,6 +1045,13 @@ begin
|
||||
Result := False;
|
||||
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
|
||||
end;
|
||||
|
||||
if not AFactura.FAC_PROV_GRADENIsNull then
|
||||
begin
|
||||
Result := False;
|
||||
AComentario := 'La factura esta generada en Graden como factura de proveedor, elimine primero esa factura';
|
||||
end;
|
||||
|
||||
{
|
||||
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
|
||||
begin
|
||||
@ -1060,6 +1097,13 @@ begin
|
||||
Result := False;
|
||||
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
|
||||
end;
|
||||
|
||||
if not AFactura.FAC_PROV_GRADENIsNull then
|
||||
begin
|
||||
Result := False;
|
||||
AComentario := 'La factura esta generada en Graden como factura de proveedor, elimine primero esa factura';
|
||||
end;
|
||||
|
||||
{
|
||||
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
|
||||
begin
|
||||
|
||||
@ -49,7 +49,7 @@
|
||||
<DelphiCompile Include="FacturasCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="uDataModuleFacturasCliente.pas">
|
||||
<Form>DataModuleFacturasCliente</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
|
||||
@ -264,11 +264,6 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_COMISION'
|
||||
DataType = datString
|
||||
@ -373,6 +368,25 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FAC_PROV_GRADEN'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -17,6 +17,7 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
|
||||
<Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" />
|
||||
@ -31,6 +32,7 @@
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" />
|
||||
<Projects Include="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" />
|
||||
<Projects Include="Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="Data\FacturasCliente_data.dproj" />
|
||||
@ -206,15 +208,6 @@
|
||||
<Target Name="Contabilidad_view:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.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="FacturasCliente_view">
|
||||
<MSBuild Projects="Views\FacturasCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -314,15 +307,6 @@
|
||||
<Target Name="FacturasProveedor_model:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_data">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -332,6 +316,15 @@
|
||||
<Target Name="FacturasProveedor_data:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="TiposOperacionVenta_controller">
|
||||
<MSBuild Projects="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -341,14 +334,41 @@
|
||||
<Target Name="TiposOperacionVenta_controller:Make">
|
||||
<MSBuild Projects="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacCli_FacProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacCli_FacProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacCli_FacProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.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="ContratosCliente_controller">
|
||||
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ContratosCliente_controller:Make">
|
||||
<MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller;FacturasProveedor_view;FacturasProveedor_model;FacturasProveedor_controller;FacturasProveedor_data;TiposOperacionVenta_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller;FacturasProveedor_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;TiposOperacionVenta_controller;FacCli_FacProv_relation;AlbCli_FacCli_relation;ContratosCliente_controller" />
|
||||
</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_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_data:Clean;TiposOperacionVenta_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;TiposOperacionVenta_controller:Clean;FacCli_FacProv_relation:Clean;AlbCli_FacCli_relation:Clean;ContratosCliente_controller: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_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_model:Make;FacturasProveedor_controller:Make;FacturasProveedor_data:Make;TiposOperacionVenta_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;TiposOperacionVenta_controller:Make;FacCli_FacProv_relation:Make;AlbCli_FacCli_relation:Make;ContratosCliente_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -9,10 +9,10 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{700A8C26-CB78-4B2A-9180-1C8EBE14F1F5}';
|
||||
RID_TiposFacturaCliente = '{16878B47-BBFA-49B8-A8B6-0BEC17027198}';
|
||||
RID_FacturasCliente = '{F4246ABE-0846-4389-BD4C-6FE2438F1AEF}';
|
||||
RID_FacturasCliente_Detalles = '{8E519944-EB60-4DA6-86B3-6F834F0AD6F5}';
|
||||
RID_ListaAnosFacturas = '{F3F303D6-2BD6-488C-8EC6-59A7E2210135}';
|
||||
RID_TiposFacturaCliente = '{5475F954-9599-46FE-A594-639F265EF7A0}';
|
||||
RID_FacturasCliente = '{13DB33BB-F3FB-4E18-B10A-2803B88F4180}';
|
||||
RID_FacturasCliente_Detalles = '{859E9235-FF09-4949-8207-9D23DDC04353}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -72,7 +72,6 @@ const
|
||||
fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA';
|
||||
fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO';
|
||||
fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||
fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
|
||||
fld_FacturasClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
|
||||
fld_FacturasClienteID_TIENDA = 'ID_TIENDA';
|
||||
@ -91,6 +90,10 @@ const
|
||||
fld_FacturasClienteFECHA_RETENCION = 'FECHA_RETENCION';
|
||||
fld_FacturasClienteID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
|
||||
fld_FacturasClienteTIPO_OPERACION = 'TIPO_OPERACION';
|
||||
fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_FacturasClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
|
||||
fld_FacturasClienteDELEGACION = 'DELEGACION';
|
||||
fld_FacturasClienteFAC_PROV_GRADEN = 'FAC_PROV_GRADEN';
|
||||
|
||||
{ FacturasCliente field indexes }
|
||||
idx_FacturasClienteID = 0;
|
||||
@ -130,25 +133,28 @@ const
|
||||
idx_FacturasClienteID_TIPO_IVA = 34;
|
||||
idx_FacturasClienteIMPORTE_NETO = 35;
|
||||
idx_FacturasClienteIMPORTE_PORTE = 36;
|
||||
idx_FacturasClienteID_AGENTE = 37;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 38;
|
||||
idx_FacturasClienteIGNORAR_CONTABILIDAD = 39;
|
||||
idx_FacturasClienteID_TIENDA = 40;
|
||||
idx_FacturasClienteTIENDA = 41;
|
||||
idx_FacturasClienteID_SUBCUENTA = 42;
|
||||
idx_FacturasClienteSUBCUENTA = 43;
|
||||
idx_FacturasClienteID_EJERCICIO = 44;
|
||||
idx_FacturasClienteESTADO_EJERCICIO = 45;
|
||||
idx_FacturasClienteASIENTO_PUNTEADO = 46;
|
||||
idx_FacturasClienteID_CONTRATO = 47;
|
||||
idx_FacturasClienteREF_CONTRATO = 48;
|
||||
idx_FacturasClienteREF_CLI_CONTRATO = 49;
|
||||
idx_FacturasClienteSIN_COMISION = 50;
|
||||
idx_FacturasClienteRETENCION = 51;
|
||||
idx_FacturasClienteIMPORTE_RETENCION = 52;
|
||||
idx_FacturasClienteFECHA_RETENCION = 53;
|
||||
idx_FacturasClienteID_TIPO_FACTURA = 54;
|
||||
idx_FacturasClienteTIPO_OPERACION = 55;
|
||||
idx_FacturasClienteREFERENCIA_COMISION = 37;
|
||||
idx_FacturasClienteIGNORAR_CONTABILIDAD = 38;
|
||||
idx_FacturasClienteID_TIENDA = 39;
|
||||
idx_FacturasClienteTIENDA = 40;
|
||||
idx_FacturasClienteID_SUBCUENTA = 41;
|
||||
idx_FacturasClienteSUBCUENTA = 42;
|
||||
idx_FacturasClienteID_EJERCICIO = 43;
|
||||
idx_FacturasClienteESTADO_EJERCICIO = 44;
|
||||
idx_FacturasClienteASIENTO_PUNTEADO = 45;
|
||||
idx_FacturasClienteID_CONTRATO = 46;
|
||||
idx_FacturasClienteREF_CONTRATO = 47;
|
||||
idx_FacturasClienteREF_CLI_CONTRATO = 48;
|
||||
idx_FacturasClienteSIN_COMISION = 49;
|
||||
idx_FacturasClienteRETENCION = 50;
|
||||
idx_FacturasClienteIMPORTE_RETENCION = 51;
|
||||
idx_FacturasClienteFECHA_RETENCION = 52;
|
||||
idx_FacturasClienteID_TIPO_FACTURA = 53;
|
||||
idx_FacturasClienteTIPO_OPERACION = 54;
|
||||
idx_FacturasClienteID_AGENTE = 55;
|
||||
idx_FacturasClienteNOMBRE_AGENTE = 56;
|
||||
idx_FacturasClienteDELEGACION = 57;
|
||||
idx_FacturasClienteFAC_PROV_GRADEN = 58;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -187,7 +193,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{97C76BDF-F243-45CF-83A8-3389872A1C88}']
|
||||
['{6026D89F-F37C-4A1C-A0A8-9B63684B5465}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -222,7 +228,7 @@ type
|
||||
|
||||
{ ITiposFacturaCliente }
|
||||
ITiposFacturaCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9B6B81C1-044C-4B79-8686-B938DB928895}']
|
||||
['{84DB4B7B-97D0-4F3C-856D-04955CA693D9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -269,7 +275,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{53DF775E-B4D1-4621-836B-EE16A1A631FC}']
|
||||
['{79E22398-5A04-431C-BBDC-C5CE92FBA8E5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -418,10 +424,6 @@ type
|
||||
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
|
||||
function GetIMPORTE_PORTEIsNull: Boolean;
|
||||
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIA_COMISIONValue: String;
|
||||
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
|
||||
function GetREFERENCIA_COMISIONIsNull: Boolean;
|
||||
@ -494,6 +496,22 @@ type
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String);
|
||||
function GetTIPO_OPERACIONIsNull: Boolean;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetNOMBRE_AGENTEValue: String;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetDELEGACIONValue: String;
|
||||
procedure SetDELEGACIONValue(const aValue: String);
|
||||
function GetDELEGACIONIsNull: Boolean;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
function GetFAC_PROV_GRADENValue: SmallInt;
|
||||
procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt);
|
||||
function GetFAC_PROV_GRADENIsNull: Boolean;
|
||||
procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -571,8 +589,6 @@ type
|
||||
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
|
||||
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
|
||||
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
||||
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
|
||||
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
|
||||
@ -609,6 +625,14 @@ type
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
|
||||
property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property FAC_PROV_GRADEN: SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
|
||||
property FAC_PROV_GRADENIsNull: Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteDataTableRules }
|
||||
@ -765,10 +789,6 @@ type
|
||||
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_COMISIONValue: String; virtual;
|
||||
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
|
||||
@ -841,6 +861,22 @@ type
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
|
||||
function GetTIPO_OPERACIONIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_AGENTEValue: String; virtual;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetDELEGACIONValue: String; virtual;
|
||||
procedure SetDELEGACIONValue(const aValue: String); virtual;
|
||||
function GetDELEGACIONIsNull: Boolean; virtual;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetFAC_PROV_GRADENValue: SmallInt; virtual;
|
||||
procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt); virtual;
|
||||
function GetFAC_PROV_GRADENIsNull: Boolean; virtual;
|
||||
procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -917,8 +953,6 @@ type
|
||||
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
|
||||
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
|
||||
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
||||
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
|
||||
property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
|
||||
@ -955,6 +989,14 @@ type
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
|
||||
property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property FAC_PROV_GRADEN: SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
|
||||
property FAC_PROV_GRADENIsNull: Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -964,7 +1006,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{57377F2A-FB8A-490D-8CC7-F484CC677EC3}']
|
||||
['{0BEE4EB9-9297-4108-8DF8-B28B639FFF0F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2051,27 +2093,6 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteIMPORTE_PORTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
|
||||
@ -2450,6 +2471,90 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteTIPO_OPERACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetDELEGACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteDELEGACION].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteDELEGACION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetDELEGACIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteDELEGACION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteDELEGACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFAC_PROV_GRADENValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFAC_PROV_GRADENValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasClienteDataTableRules.GetFAC_PROV_GRADENIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteDataTableRules.SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesDataTableRules }
|
||||
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,15 +9,15 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{27262DAF-04C2-41BD-BE56-F1E3932C3958}';
|
||||
RID_TiposFacturaClienteDelta = '{23C627D7-E517-4F77-831E-FF7350A5F4B9}';
|
||||
RID_FacturasClienteDelta = '{6290AB0B-0540-4FC1-9614-D4AFFFA4D9F2}';
|
||||
RID_FacturasCliente_DetallesDelta = '{48B82498-4D2D-4D30-9B4E-7193BC6B0308}';
|
||||
RID_ListaAnosFacturasDelta = '{1FA4D476-5A02-469D-A765-5D9DDFA91D2E}';
|
||||
RID_TiposFacturaClienteDelta = '{F7131BC6-FD5C-427E-BD3C-7B099A7C13B6}';
|
||||
RID_FacturasClienteDelta = '{C8D08F2C-4160-4B84-AB48-5462A3FF4CA6}';
|
||||
RID_FacturasCliente_DetallesDelta = '{5C121557-D524-4057-B41D-39660862AEAB}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{27262DAF-04C2-41BD-BE56-F1E3932C3958}']
|
||||
['{1FA4D476-5A02-469D-A765-5D9DDFA91D2E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -51,7 +51,7 @@ type
|
||||
|
||||
{ ITiposFacturaClienteDelta }
|
||||
ITiposFacturaClienteDelta = interface(ITiposFacturaCliente)
|
||||
['{23C627D7-E517-4F77-831E-FF7350A5F4B9}']
|
||||
['{F7131BC6-FD5C-427E-BD3C-7B099A7C13B6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -97,7 +97,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{6290AB0B-0540-4FC1-9614-D4AFFFA4D9F2}']
|
||||
['{C8D08F2C-4160-4B84-AB48-5462A3FF4CA6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -136,7 +136,6 @@ type
|
||||
function GetOldID_TIPO_IVAValue : Integer;
|
||||
function GetOldIMPORTE_NETOValue : Currency;
|
||||
function GetOldIMPORTE_PORTEValue : Currency;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldREFERENCIA_COMISIONValue : String;
|
||||
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
|
||||
function GetOldID_TIENDAValue : Integer;
|
||||
@ -155,6 +154,10 @@ type
|
||||
function GetOldFECHA_RETENCIONValue : DateTime;
|
||||
function GetOldID_TIPO_FACTURAValue : Integer;
|
||||
function GetOldTIPO_OPERACIONValue : String;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldNOMBRE_AGENTEValue : String;
|
||||
function GetOldDELEGACIONValue : String;
|
||||
function GetOldFAC_PROV_GRADENValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -194,7 +197,6 @@ type
|
||||
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
||||
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
|
||||
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
|
||||
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
|
||||
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
|
||||
@ -213,6 +215,10 @@ type
|
||||
property OldFECHA_RETENCION : DateTime read GetOldFECHA_RETENCIONValue;
|
||||
property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
|
||||
property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
||||
property OldDELEGACION : String read GetOldDELEGACIONValue;
|
||||
property OldFAC_PROV_GRADEN : SmallInt read GetOldFAC_PROV_GRADENValue;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteBusinessProcessorRules }
|
||||
@ -443,12 +449,6 @@ type
|
||||
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
|
||||
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_COMISIONValue: String; virtual;
|
||||
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIA_COMISIONValue: String; virtual;
|
||||
@ -557,6 +557,30 @@ type
|
||||
function GetOldTIPO_OPERACIONIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_AGENTEValue: String; virtual;
|
||||
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_AGENTEValue: String; virtual;
|
||||
function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
||||
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetDELEGACIONValue: String; virtual;
|
||||
function GetDELEGACIONIsNull: Boolean; virtual;
|
||||
function GetOldDELEGACIONValue: String; virtual;
|
||||
function GetOldDELEGACIONIsNull: Boolean; virtual;
|
||||
procedure SetDELEGACIONValue(const aValue: String); virtual;
|
||||
procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetFAC_PROV_GRADENValue: SmallInt; virtual;
|
||||
function GetFAC_PROV_GRADENIsNull: Boolean; virtual;
|
||||
function GetOldFAC_PROV_GRADENValue: SmallInt; virtual;
|
||||
function GetOldFAC_PROV_GRADENIsNull: Boolean; virtual;
|
||||
procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt); virtual;
|
||||
procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -707,10 +731,6 @@ type
|
||||
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
|
||||
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
|
||||
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
||||
property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
|
||||
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
|
||||
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
|
||||
@ -783,6 +803,22 @@ type
|
||||
property TIPO_OPERACIONIsNull : Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
|
||||
property OldTIPO_OPERACIONIsNull : Boolean read GetOldTIPO_OPERACIONIsNull;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
||||
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
||||
property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
|
||||
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
||||
property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
|
||||
property DELEGACION : String read GetDELEGACIONValue write SetDELEGACIONValue;
|
||||
property DELEGACIONIsNull : Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
|
||||
property OldDELEGACION : String read GetOldDELEGACIONValue;
|
||||
property OldDELEGACIONIsNull : Boolean read GetOldDELEGACIONIsNull;
|
||||
property FAC_PROV_GRADEN : SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
|
||||
property FAC_PROV_GRADENIsNull : Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
|
||||
property OldFAC_PROV_GRADEN : SmallInt read GetOldFAC_PROV_GRADENValue;
|
||||
property OldFAC_PROV_GRADENIsNull : Boolean read GetOldFAC_PROV_GRADENIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -792,7 +828,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{48B82498-4D2D-4D30-9B4E-7193BC6B0308}']
|
||||
['{5C121557-D524-4057-B41D-39660862AEAB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -2280,37 +2316,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
|
||||
@ -2869,6 +2874,130 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_OPERACION] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetDELEGACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetDELEGACIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldDELEGACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDELEGACION];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldDELEGACIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDELEGACION]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetDELEGACIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetDELEGACIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFAC_PROV_GRADENValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetFAC_PROV_GRADENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN]);
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFAC_PROV_GRADENValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFAC_PROV_GRADEN];
|
||||
end;
|
||||
|
||||
function TFacturasClienteBusinessProcessorRules.GetOldFAC_PROV_GRADENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFAC_PROV_GRADEN]);
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFAC_PROV_GRADENValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasClienteBusinessProcessorRules.SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasCliente_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -358,6 +358,10 @@ begin
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
ID_CLIENTE := FCliente.ID;
|
||||
ID_AGENTE := FCliente.ID_AGENTE;
|
||||
NOMBRE_AGENTE := FCliente.AGENTE;
|
||||
DELEGACION := FCliente.DELEGACION;
|
||||
|
||||
NOMBRE := FCliente.NOMBRE;
|
||||
NIF_CIF := FCliente.NIF_CIF;
|
||||
CALLE := FCliente.CALLE;
|
||||
|
||||
@ -306,6 +306,18 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'TIPO_OPERACION'
|
||||
TableField = 'TIPO_OPERACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_AGENTE'
|
||||
TableField = 'NOMBRE_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DELEGACION'
|
||||
TableField = 'DELEGACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FAC_PROV_GRADEN'
|
||||
TableField = 'FAC_PROV_GRADEN'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -512,11 +524,6 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_COMISION'
|
||||
DataType = datString
|
||||
@ -610,6 +617,25 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FAC_PROV_GRADEN'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1232,6 +1258,28 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'ID_TIPO_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FAC_PROV_GRADEN'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1249,17 +1297,20 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
|
||||
','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
|
||||
'N,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' FECHA_RETENCION,'#10' ' +
|
||||
' ID_TIPO_FACTURA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REF' +
|
||||
'ERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_I' +
|
||||
'MPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' ' +
|
||||
':IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' ' +
|
||||
':OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' ' +
|
||||
':CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' ' +
|
||||
'CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARG' +
|
||||
'O_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORT' +
|
||||
'E_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONT' +
|
||||
'RATO,'#10' :SIN_COMISION,'#10' :SITUACION,'#10' :RETENCION,'#10' :IM' +
|
||||
'PORTE_RETENCION,'#10' :FECHA_RETENCION,'#10' :ID_TIPO_FACTURA);'#10
|
||||
' ID_TIPO_FACTURA,'#10' ID_AGENTE,'#10' NOMBRE_AGENTE,'#10' DELEGAC' +
|
||||
'ION,'#10' FAC_PROV_GRADEN)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' +
|
||||
' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
|
||||
':BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IV' +
|
||||
'A,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTA' +
|
||||
'L,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBR' +
|
||||
'E,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTA' +
|
||||
'L,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
|
||||
':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
|
||||
':IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :' +
|
||||
'ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACION,'#10' :RETENCION,'#10 +
|
||||
' :IMPORTE_RETENCION,'#10' :FECHA_RETENCION,'#10' :ID_TIPO_FACTU' +
|
||||
'RA,'#10' :ID_AGENTE,'#10' :NOMBRE_AGENTE,'#10' :DELEGACION,'#10' :FA' +
|
||||
'C_PROV_GRADEN);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1451,6 +1502,28 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DELEGACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FAC_PROV_GRADEN'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1478,8 +1551,10 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
|
||||
'MISION,'#10' SITUACION = :SITUACION,'#10' RETENCION = :RETENCION,'#10 +
|
||||
' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' FECHA_RETENCION ' +
|
||||
'= :FECHA_RETENCION,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHE' +
|
||||
'RE'#10' (ID = :OLD_ID);'#10
|
||||
'= :FECHA_RETENCION,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' ' +
|
||||
'ID_AGENTE = :ID_AGENTE,'#10' NOMBRE_AGENTE = :NOMBRE_AGENTE,'#10' ' +
|
||||
'DELEGACION = :DELEGACION,'#10' FAC_PROV_GRADEN = :FAC_PROV_GRADEN' +
|
||||
#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
Binary file not shown.
@ -49,48 +49,49 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.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\dxThemeD11.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\fqb110.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\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.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\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.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\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\FacCli_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\fqb110.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frx11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frxe11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\fs11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvPageCompsD11R.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\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="uEditorElegirArticulosFacturaCliente.pas">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -82,7 +82,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 854
|
||||
Height = 308
|
||||
ActivePage = pagContenido
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 854
|
||||
@ -114,34 +113,50 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 846
|
||||
ExplicitHeight = 280
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = -90
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = -90
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
inherited edtFecha: TcxDBDateEdit
|
||||
Top = -63
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = -63
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 42
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 42
|
||||
ExplicitWidth = 78
|
||||
Width = 78
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 280
|
||||
Top = 42
|
||||
ExplicitLeft = 280
|
||||
ExplicitTop = 42
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Top = 176
|
||||
Width = 351
|
||||
Visible = False
|
||||
ExplicitTop = 176
|
||||
ExplicitWidth = 351
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 351
|
||||
ExplicitWidth = 351
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -153,10 +168,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 440
|
||||
Top = -90
|
||||
Width = 398
|
||||
ExplicitLeft = 440
|
||||
ExplicitTop = -90
|
||||
ExplicitWidth = 398
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 398
|
||||
ExplicitWidth = 398
|
||||
inherited Bevel1: TBevel
|
||||
Width = 266
|
||||
ExplicitWidth = 266
|
||||
@ -207,17 +227,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 256
|
||||
Left = 273
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 256
|
||||
ExplicitLeft = 273
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 146
|
||||
ExplicitLeft = 146
|
||||
Left = 163
|
||||
ExplicitLeft = 163
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -230,37 +250,88 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||
Top = 71
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 71
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
inherited frViewObservaciones1: TfrViewObservaciones
|
||||
Top = 470
|
||||
Width = 521
|
||||
Height = 228
|
||||
ExplicitTop = 470
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 228
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitWidth = 783
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 228
|
||||
Height = 228
|
||||
Width = 521
|
||||
end
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 419
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 419
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtSituacion: TcxDBComboBox
|
||||
Top = -9
|
||||
ExplicitTop = -9
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtRefContrato: TcxDBTextEdit
|
||||
Top = 122
|
||||
ExplicitTop = 122
|
||||
ExplicitWidth = 294
|
||||
Width = 294
|
||||
end
|
||||
inherited edtRefClienteContrato: TcxDBTextEdit
|
||||
Top = 149
|
||||
ExplicitTop = 149
|
||||
ExplicitWidth = 294
|
||||
Width = 294
|
||||
end
|
||||
inherited cbTipoFactura: TcxDBLookupComboBox
|
||||
Top = -36
|
||||
ExplicitTop = -36
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
|
||||
Top = 254
|
||||
Width = 425
|
||||
ExplicitTop = 254
|
||||
ExplicitWidth = 425
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 425
|
||||
ExplicitWidth = 425
|
||||
inherited edtlNombreAgente: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtDelegacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 188
|
||||
ExplicitLeft = 188
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,17 +1,17 @@
|
||||
inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Caption = 'Lista de facturas de cliente'
|
||||
ClientHeight = 666
|
||||
ClientWidth = 640
|
||||
ExplicitWidth = 648
|
||||
ClientWidth = 919
|
||||
ExplicitWidth = 927
|
||||
ExplicitHeight = 704
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 640
|
||||
Width = 919
|
||||
Caption = 'Lista de facturas de cliente'
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
inherited Image1: TImage
|
||||
Left = 613
|
||||
Left = 892
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -35,10 +35,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
Width = 919
|
||||
ExplicitWidth = 919
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 711
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -70,20 +70,26 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 382
|
||||
Left = 385
|
||||
DockPos = 385
|
||||
Visible = True
|
||||
ExplicitLeft = 382
|
||||
ExplicitWidth = 258
|
||||
ExplicitLeft = 385
|
||||
ExplicitWidth = 506
|
||||
object TBXItem41: TTBXItem
|
||||
Action = actAsignarTipoOperacion
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBSeparatorItem1: TTBSeparatorItem
|
||||
end
|
||||
object TBXItem42: TTBXItem
|
||||
Action = ActGenerarFacturaGraden
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actInformes
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -92,14 +98,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 647
|
||||
Width = 640
|
||||
Width = 919
|
||||
ExplicitTop = 647
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
end
|
||||
inline frViewFacturasCliente1: TfrViewFacturasCliente [3]
|
||||
Left = 0
|
||||
Top = 106
|
||||
Width = 640
|
||||
Width = 919
|
||||
Height = 541
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -111,12 +117,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 106
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
ExplicitHeight = 541
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 640
|
||||
Width = 919
|
||||
Height = 413
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
ExplicitHeight = 413
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
@ -187,13 +193,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
Width = 919
|
||||
ExplicitWidth = 919
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
Width = 919
|
||||
ExplicitWidth = 919
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -207,36 +213,34 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 144
|
||||
Width = 144
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 301
|
||||
Left = 521
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 301
|
||||
ExplicitLeft = 521
|
||||
ExplicitWidth = 263
|
||||
Width = 263
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 473
|
||||
Left = 675
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 473
|
||||
ExplicitLeft = 675
|
||||
ExplicitWidth = 223
|
||||
Width = 223
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
Width = 919
|
||||
ExplicitWidth = 919
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 630
|
||||
ExplicitWidth = 630
|
||||
Width = 909
|
||||
ExplicitWidth = 909
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -244,13 +248,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 515
|
||||
ExplicitTop = 515
|
||||
ExplicitWidth = 640
|
||||
ExplicitWidth = 919
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
Width = 919
|
||||
ExplicitWidth = 919
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 630
|
||||
ExplicitWidth = 630
|
||||
Width = 909
|
||||
ExplicitWidth = 909
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -308,6 +312,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
OnExecute = actAsignarTipoOperacionExecute
|
||||
OnUpdate = actAsignarTipoOperacionUpdate
|
||||
end
|
||||
object ActGenerarFacturaGraden: TAction
|
||||
Caption = 'Generar factura proveedor en Graden'
|
||||
ImageIndex = 26
|
||||
OnExecute = ActGenerarFacturaGradenExecute
|
||||
OnUpdate = ActGenerarFacturaGradenUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
|
||||
@ -38,6 +38,9 @@ type
|
||||
actAsignarTipoOperacion: TAction;
|
||||
TBXItem41: TTBXItem;
|
||||
TBSeparatorItem1: TTBSeparatorItem;
|
||||
ActGenerarFacturaGraden: TAction;
|
||||
TBXItem42: TTBXItem;
|
||||
TBXSeparatorItem17: TTBXSeparatorItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actNuevaFacturaExecute(Sender: TObject);
|
||||
@ -46,6 +49,8 @@ type
|
||||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
procedure actAsignarTipoOperacionExecute(Sender: TObject);
|
||||
procedure actAsignarTipoOperacionUpdate(Sender: TObject);
|
||||
procedure ActGenerarFacturaGradenExecute(Sender: TObject);
|
||||
procedure ActGenerarFacturaGradenUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FFacturas: IBizFacturaCliente;
|
||||
@ -78,9 +83,8 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
|
||||
uBizejercicios, uGenerarFacturasCliAlbCliUtils,
|
||||
uBizAlbaranesCliente, uGestorInformesController,
|
||||
uEditorBase, uGridUtils, uDBSelectionListUtils;
|
||||
uBizejercicios, uGenerarFacturasCliAlbCliUtils, uBizAlbaranesCliente, uGestorInformesController,
|
||||
uEditorBase, uGridUtils, uDBSelectionListUtils, uBizContactos, uGenerarFacturasProvFacCliUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -125,6 +129,40 @@ begin
|
||||
(Sender as TAction).Enabled := (FFacturas.SITUACION = 'PENDIENTE');
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.ActGenerarFacturaGradenExecute(Sender: TObject);
|
||||
var
|
||||
AFacturas: IBizFacturaCliente;
|
||||
i: integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ViewGrid.SaveGridStatus;
|
||||
try
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
|
||||
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
|
||||
finally
|
||||
ViewGrid.RestoreGridStatus;
|
||||
end;
|
||||
|
||||
if GenerarFacturaProvEnGraden(AFacturas) then
|
||||
RefrescarInterno;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.ActGenerarFacturaGradenUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if HayDatos and Assigned(ViewGrid) then
|
||||
begin
|
||||
(Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
|
||||
and ViewGrid.esSeleccionCeldaDatos
|
||||
end
|
||||
else
|
||||
(Sender as TAction).Enabled := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta : Integer;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 1079
|
||||
Height = 553
|
||||
Width = 1078
|
||||
Height = 641
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1079
|
||||
Height = 553
|
||||
Width = 1078
|
||||
Height = 641
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
1079
|
||||
553)
|
||||
1078
|
||||
641)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -126,7 +126,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 351
|
||||
Height = 63
|
||||
ExplicitWidth = 351
|
||||
ExplicitWidth = 407
|
||||
ExplicitHeight = 63
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 399
|
||||
@ -150,7 +150,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 569
|
||||
ExplicitTop = 30
|
||||
@ -159,7 +159,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 398
|
||||
Height = 265
|
||||
ExplicitWidth = 398
|
||||
ExplicitWidth = 101
|
||||
ExplicitHeight = 265
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
@ -182,12 +182,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 396
|
||||
ExplicitLeft = 396
|
||||
Left = 395
|
||||
ExplicitLeft = 395
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 286
|
||||
ExplicitLeft = 286
|
||||
Left = 285
|
||||
ExplicitLeft = 285
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -222,7 +222,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
inline frViewObservaciones1: TfrViewObservaciones
|
||||
Left = 22
|
||||
Top = 425
|
||||
Top = 590
|
||||
Width = 521
|
||||
Height = 20
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -231,21 +231,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 425
|
||||
ExplicitTop = 590
|
||||
ExplicitHeight = 20
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 536
|
||||
ExplicitHeight = 20
|
||||
Height = 20
|
||||
end
|
||||
end
|
||||
object cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 22
|
||||
Top = 374
|
||||
Top = 539
|
||||
Caption = ' No acogida a comisiones'
|
||||
DataBinding.DataField = 'SIN_COMISION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -271,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 158
|
||||
end
|
||||
object edtSituacion: TcxDBComboBox
|
||||
@ -366,6 +367,39 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
TabOrder = 2
|
||||
Width = 158
|
||||
end
|
||||
inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
|
||||
Left = 22
|
||||
Top = 374
|
||||
Width = 425
|
||||
Height = 135
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 374
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
ExplicitWidth = 407
|
||||
inherited edtlNombreAgente: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtDelegacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 317
|
||||
ExplicitLeft = 317
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -434,6 +468,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Contrato asociado'
|
||||
Enabled = False
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
@ -454,6 +489,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
Caption = 'Datos comerciales'
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
Control = frViewDatosYSeleccionComercial1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||
Caption = 'Comisiones'
|
||||
Enabled = False
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
|
||||
uViewTienda, uFacturasClienteController, uViewClienteFactura, Menus, StdActns,
|
||||
ActnList, uViewObservaciones, cxCheckBox;
|
||||
ActnList, uViewObservaciones, cxCheckBox, uViewDatosYSeleccionComercial;
|
||||
|
||||
type
|
||||
IViewFacturaCliente = interface(IViewBase)
|
||||
@ -67,6 +67,9 @@ type
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
cbTipoFactura: TcxDBLookupComboBox;
|
||||
dsTiposFactura: TDADataSource;
|
||||
dxLayoutControl1Item12: TdxLayoutItem;
|
||||
frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
@ -82,6 +85,9 @@ type
|
||||
procedure SetFactura(const Value: IBizFacturaCliente);
|
||||
function GetController : IFacturasClienteController;
|
||||
procedure SetController (const Value : IFacturasClienteController);
|
||||
|
||||
procedure OnComercialChanged(Sender : TObject);
|
||||
|
||||
public
|
||||
property Factura: IBizFacturaCliente read GetFactura write SetFactura;
|
||||
property Controller : IFacturasClienteController read GetController write SetController;
|
||||
@ -91,7 +97,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
DateUtils, uDataModuleContactos, schFacturasClienteClient_Intf;
|
||||
DateUtils, uDataModuleContactos, schFacturasClienteClient_Intf, uFactuGES_App;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -112,10 +118,21 @@ begin
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
|
||||
edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
|
||||
|
||||
//FILTRO DE EMPRESAS
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
dxLayoutControl1Group10.Visible := true;
|
||||
end
|
||||
else
|
||||
begin
|
||||
dxLayoutControl1Group10.Visible := false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
frViewDatosYSeleccionComercial1.OnComercialChanged := Nil;
|
||||
FFormasPago := Nil;
|
||||
FTiposFacturaCliente := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
@ -187,6 +204,14 @@ begin
|
||||
Result := FFactura;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturaCliente.OnComercialChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FFactura) then
|
||||
begin
|
||||
FController.CambiarComercial(FFactura, frViewDatosYSeleccionComercial1.Comercial);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturaCliente.SetController(const Value: IFacturasClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
@ -235,6 +260,8 @@ begin
|
||||
//Solo se deshabilita al insertar, luego la referencia será modificable
|
||||
//eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
|
||||
|
||||
frViewDatosYSeleccionComercial1.OnComercialChanged := OnComercialChanged;
|
||||
|
||||
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||
begin
|
||||
dxLayoutControl1Group1.Caption := 'Datos del abono:';
|
||||
|
||||
@ -34,6 +34,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Value = 'A'
|
||||
end>
|
||||
end
|
||||
object cxGridViewFAC_PRO_GRADEN: TcxGridDBColumn
|
||||
Caption = '-'
|
||||
DataBinding.FieldName = 'FAC_PROV_GRADEN'
|
||||
PropertiesClassName = 'TcxImageComboBoxProperties'
|
||||
Properties.Images = GridPNGImageList
|
||||
Properties.Items = <
|
||||
item
|
||||
Description = 'Generada en Graden'
|
||||
ImageIndex = 2
|
||||
Value = 1
|
||||
end
|
||||
item
|
||||
end>
|
||||
end
|
||||
object cxGridViewTIENDA: TcxGridDBColumn
|
||||
Caption = 'Tienda'
|
||||
DataBinding.FieldName = 'TIENDA'
|
||||
@ -180,6 +194,22 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Caption = 'Tipo operaci'#243'n'
|
||||
DataBinding.FieldName = 'TIPO_OPERACION'
|
||||
end
|
||||
object cxGridViewAGENTE: TcxGridDBColumn
|
||||
Caption = 'Comercial'
|
||||
DataBinding.FieldName = 'NOMBRE_AGENTE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewDELEGACION: TcxGridDBColumn
|
||||
Caption = 'Delegaci'#243'n'
|
||||
DataBinding.FieldName = 'DELEGACION'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todas'
|
||||
@ -187,6 +217,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
object cxGridPendientes: TcxGridLevel
|
||||
Caption = 'Pendientes'
|
||||
end
|
||||
object cxGridParcialmentePagadas: TcxGridLevel
|
||||
Caption = 'Parcialmente pagadas'
|
||||
end
|
||||
object cxGridPagadas: TcxGridLevel
|
||||
Caption = 'Pagadas'
|
||||
end
|
||||
@ -272,6 +305,21 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actProcedencia
|
||||
end
|
||||
object TBXSeparatorItem4: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem5: TTBXItem
|
||||
Action = actComercial
|
||||
end
|
||||
object TBXSeparatorItem5: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem6: TTBXItem
|
||||
Action = actDelegacion
|
||||
end
|
||||
object TBXSeparatorItem6: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem7: TTBXItem
|
||||
Action = actTienda
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -297,6 +345,21 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
OnExecute = actProcedenciaExecute
|
||||
OnUpdate = actProcedenciaUpdate
|
||||
end
|
||||
object actComercial: TAction
|
||||
Caption = 'Comercial'
|
||||
OnExecute = actComercialExecute
|
||||
OnUpdate = actComercialUpdate
|
||||
end
|
||||
object actDelegacion: TAction
|
||||
Caption = 'Delegaci'#243'n'
|
||||
OnExecute = actDelegacionExecute
|
||||
OnUpdate = actDelegacionUpdate
|
||||
end
|
||||
object actTienda: TAction
|
||||
Caption = 'Tienda'
|
||||
OnExecute = actTiendaExecute
|
||||
OnUpdate = actTiendaUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
@ -411,6 +474,29 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
00004B6D80F047EC10D30000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
|
||||
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
|
||||
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
|
||||
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
|
||||
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
|
||||
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
|
||||
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
|
||||
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
|
||||
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
|
||||
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
|
||||
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
|
||||
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
|
||||
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
|
||||
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
|
||||
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
|
||||
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
|
||||
@ -44,7 +44,7 @@ type
|
||||
cxStylePagada: TcxStyle;
|
||||
cxGridPendientes: TcxGridLevel;
|
||||
cxStyleAbono: TcxStyle;
|
||||
cxGridPagadas: TcxGridLevel;
|
||||
cxGridParcialmentePagadas: TcxGridLevel;
|
||||
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
|
||||
cxStylePendientes: TcxStyle;
|
||||
cxStyleParciales: TcxStyle;
|
||||
@ -69,6 +69,19 @@ type
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
cxGridViewTIPO_OPERACION: TcxGridDBColumn;
|
||||
cxGridPagadas: TcxGridLevel;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
cxGridViewDELEGACION: TcxGridDBColumn;
|
||||
actComercial: TAction;
|
||||
actDelegacion: TAction;
|
||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||
TBXItem5: TTBXItem;
|
||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
||||
TBXItem6: TTBXItem;
|
||||
cxGridViewFAC_PRO_GRADEN: TcxGridDBColumn;
|
||||
actTienda: TAction;
|
||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||
TBXItem7: TTBXItem;
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
@ -79,6 +92,12 @@ type
|
||||
procedure actClienteUpdate(Sender: TObject);
|
||||
procedure actProcedenciaExecute(Sender: TObject);
|
||||
procedure actProcedenciaUpdate(Sender: TObject);
|
||||
procedure actComercialExecute(Sender: TObject);
|
||||
procedure actComercialUpdate(Sender: TObject);
|
||||
procedure actDelegacionExecute(Sender: TObject);
|
||||
procedure actDelegacionUpdate(Sender: TObject);
|
||||
procedure actTiendaExecute(Sender: TObject);
|
||||
procedure actTiendaUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -126,6 +145,46 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actComercialExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actComercialUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actDelegacionExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewDELEGACION.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewDELEGACION.GroupIndex := -1;
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actDelegacionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actProcedenciaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
|
||||
@ -166,6 +225,26 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actTiendaExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewTIENDA.GroupIndex := -1;
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.actTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.AnadirFiltroFechas;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
@ -216,12 +295,43 @@ end;
|
||||
procedure TfrViewFacturasCliente.ConfigView;
|
||||
begin
|
||||
inherited;
|
||||
//FILTRO DE EMPRESAS
|
||||
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||
begin
|
||||
cxGridViewFAC_PRO_GRADEN.Visible := True;
|
||||
cxGridViewFAC_PRO_GRADEN.VisibleForCustomization := True;
|
||||
|
||||
if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
|
||||
cxGridViewTIENDA.Visible := True
|
||||
else
|
||||
cxGridViewTIENDA.Visible := False;
|
||||
cxGridViewTIENDA.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
cxGridViewAGENTE.VisibleForCustomization := True;
|
||||
|
||||
cxGridViewDELEGACION.Visible := True;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := True;
|
||||
|
||||
actComercial.Visible := True;
|
||||
actDelegacion.Visible := True;
|
||||
actTienda.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewFAC_PRO_GRADEN.Visible := False;
|
||||
cxGridViewFAC_PRO_GRADEN.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewTIENDA.Visible := True;
|
||||
cxGridViewTIENDA.VisibleForCustomization := True;
|
||||
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
cxGridViewAGENTE.VisibleForCustomization := False;
|
||||
|
||||
cxGridViewDELEGACION.Visible := False;
|
||||
cxGridViewDELEGACION.VisibleForCustomization := False;
|
||||
|
||||
actComercial.Visible := False;
|
||||
actDelegacion.Visible := False;
|
||||
actTienda.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFacturasCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
||||
|
||||
@ -307,6 +307,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_FAC_CLI_ABETO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,11 +9,11 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{86B2646C-3D08-4998-BE60-E074E0E14D49}';
|
||||
RID_FacturasProveedor_Contratos = '{35611620-800C-4384-9A19-DDA27BBA8712}';
|
||||
RID_TiposFacturaProveedor = '{C29C3085-62F1-4941-BE37-C5B149628A3D}';
|
||||
RID_FacturasProveedor = '{929CD1FD-F373-41DE-9E8C-E3ADAAACFDCA}';
|
||||
RID_FacturasProveedor_Detalles = '{2FF146A9-5522-4AE0-A3E0-84FCDDD001F0}';
|
||||
RID_ListaAnosFacturas = '{C795D4A1-0A52-4FA3-B56A-8A8A49447AF6}';
|
||||
RID_FacturasProveedor_Contratos = '{6CA037E3-259D-445F-8839-5C9CBE848D8A}';
|
||||
RID_TiposFacturaProveedor = '{7A2B3173-9F36-4803-8DDB-9CEC56652088}';
|
||||
RID_FacturasProveedor = '{85826572-C7D0-4814-82FF-44CFC6876F9C}';
|
||||
RID_FacturasProveedor_Detalles = '{3546075B-F1D3-42CF-8783-6EEB305E0EB4}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -102,6 +102,7 @@ const
|
||||
fld_FacturasProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
|
||||
fld_FacturasProveedorID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
|
||||
fld_FacturasProveedorTIPO_OPERACION = 'TIPO_OPERACION';
|
||||
fld_FacturasProveedorID_FAC_CLI_ABETO = 'ID_FAC_CLI_ABETO';
|
||||
|
||||
{ FacturasProveedor field indexes }
|
||||
idx_FacturasProveedorID = 0;
|
||||
@ -151,6 +152,7 @@ const
|
||||
idx_FacturasProveedorASIENTO_PUNTEADO = 44;
|
||||
idx_FacturasProveedorID_TIPO_FACTURA = 45;
|
||||
idx_FacturasProveedorTIPO_OPERACION = 46;
|
||||
idx_FacturasProveedorID_FAC_CLI_ABETO = 47;
|
||||
|
||||
{ FacturasProveedor_Detalles fields }
|
||||
fld_FacturasProveedor_DetallesID = 'ID';
|
||||
@ -189,7 +191,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{26F14D33-760A-45A2-B723-80BC6DDB90F8}']
|
||||
['{677DC78A-8BD5-4A06-9535-79323950FEBC}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -224,7 +226,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Contratos }
|
||||
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
|
||||
['{149CC99D-F584-4547-943C-72C850B293BF}']
|
||||
['{7871ACC0-F5B9-4963-BCC2-7126A70F6F9F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -331,7 +333,7 @@ type
|
||||
|
||||
{ ITiposFacturaProveedor }
|
||||
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{AA5624ED-B5AC-4A8D-B6F5-45C128D996CA}']
|
||||
['{23D10CD4-14DA-4C1C-A232-1BDB15A926F3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -378,7 +380,7 @@ type
|
||||
|
||||
{ IFacturasProveedor }
|
||||
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{581EE6A4-62EA-46B4-B71E-436B08372DC4}']
|
||||
['{12529FCC-521D-4FE0-8295-3C1A9066413F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -567,6 +569,10 @@ type
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String);
|
||||
function GetTIPO_OPERACIONIsNull: Boolean;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean);
|
||||
function GetID_FAC_CLI_ABETOValue: Integer;
|
||||
procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer);
|
||||
function GetID_FAC_CLI_ABETOIsNull: Boolean;
|
||||
procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -664,6 +670,8 @@ type
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
|
||||
property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property ID_FAC_CLI_ABETO: Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
|
||||
property ID_FAC_CLI_ABETOIsNull: Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorDataTableRules }
|
||||
@ -860,6 +868,10 @@ type
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
|
||||
function GetTIPO_OPERACIONIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FAC_CLI_ABETOValue: Integer; virtual;
|
||||
procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer); virtual;
|
||||
function GetID_FAC_CLI_ABETOIsNull: Boolean; virtual;
|
||||
procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -956,6 +968,8 @@ type
|
||||
property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
|
||||
property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
|
||||
property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property ID_FAC_CLI_ABETO: Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
|
||||
property ID_FAC_CLI_ABETOIsNull: Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -965,7 +979,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Detalles }
|
||||
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{26EEA163-23D5-4935-BF2A-200A5DA623FE}']
|
||||
['{12BCF451-3108-4489-A00F-6C9B9F8C50A3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2421,6 +2435,27 @@ begin
|
||||
DataTable.Fields[idx_FacturasProveedorTIPO_OPERACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetID_FAC_CLI_ABETOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetID_FAC_CLI_ABETOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorDataTableRules.GetID_FAC_CLI_ABETOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorDataTableRules.SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedor_DetallesDataTableRules }
|
||||
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,16 +9,16 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{7D2C6A78-D9EC-43F0-8348-7DB4D1844A9D}';
|
||||
RID_FacturasProveedor_ContratosDelta = '{9AAF8413-846C-41CF-A1BF-1B58ACB22C6D}';
|
||||
RID_TiposFacturaProveedorDelta = '{AF2221C9-11CA-43B0-B60A-52E15F74A52E}';
|
||||
RID_FacturasProveedorDelta = '{0E342571-E21F-464F-8639-C391CFDC0CFB}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{ECA60AB2-29CF-4521-882B-9629AA3AD1B2}';
|
||||
RID_ListaAnosFacturasDelta = '{5B73EE35-573D-44D3-A750-56239AFE75A4}';
|
||||
RID_FacturasProveedor_ContratosDelta = '{25AAA83B-B9D6-4975-9333-393E5F2795B1}';
|
||||
RID_TiposFacturaProveedorDelta = '{468C61BB-0645-4D13-A693-46AED25530A7}';
|
||||
RID_FacturasProveedorDelta = '{1E6C88EB-230C-44A6-B931-E6F1E7917A89}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{2B5BE721-B901-4AD3-A224-0B771CAE4490}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{7D2C6A78-D9EC-43F0-8348-7DB4D1844A9D}']
|
||||
['{5B73EE35-573D-44D3-A750-56239AFE75A4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -52,7 +52,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_ContratosDelta }
|
||||
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
|
||||
['{9AAF8413-846C-41CF-A1BF-1B58ACB22C6D}']
|
||||
['{25AAA83B-B9D6-4975-9333-393E5F2795B1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -158,7 +158,7 @@ type
|
||||
|
||||
{ ITiposFacturaProveedorDelta }
|
||||
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
|
||||
['{AF2221C9-11CA-43B0-B60A-52E15F74A52E}']
|
||||
['{468C61BB-0645-4D13-A693-46AED25530A7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -204,7 +204,7 @@ type
|
||||
|
||||
{ IFacturasProveedorDelta }
|
||||
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
||||
['{0E342571-E21F-464F-8639-C391CFDC0CFB}']
|
||||
['{1E6C88EB-230C-44A6-B931-E6F1E7917A89}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -253,6 +253,7 @@ type
|
||||
function GetOldASIENTO_PUNTEADOValue : SmallInt;
|
||||
function GetOldID_TIPO_FACTURAValue : Integer;
|
||||
function GetOldTIPO_OPERACIONValue : String;
|
||||
function GetOldID_FAC_CLI_ABETOValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -302,6 +303,7 @@ type
|
||||
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
|
||||
property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
|
||||
property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
|
||||
property OldID_FAC_CLI_ABETO : Integer read GetOldID_FAC_CLI_ABETOValue;
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorBusinessProcessorRules }
|
||||
@ -592,6 +594,12 @@ type
|
||||
function GetOldTIPO_OPERACIONIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
|
||||
procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FAC_CLI_ABETOValue: Integer; virtual;
|
||||
function GetID_FAC_CLI_ABETOIsNull: Boolean; virtual;
|
||||
function GetOldID_FAC_CLI_ABETOValue: Integer; virtual;
|
||||
function GetOldID_FAC_CLI_ABETOIsNull: Boolean; virtual;
|
||||
procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -782,6 +790,10 @@ type
|
||||
property TIPO_OPERACIONIsNull : Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
|
||||
property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
|
||||
property OldTIPO_OPERACIONIsNull : Boolean read GetOldTIPO_OPERACIONIsNull;
|
||||
property ID_FAC_CLI_ABETO : Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
|
||||
property ID_FAC_CLI_ABETOIsNull : Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
|
||||
property OldID_FAC_CLI_ABETO : Integer read GetOldID_FAC_CLI_ABETOValue;
|
||||
property OldID_FAC_CLI_ABETOIsNull : Boolean read GetOldID_FAC_CLI_ABETOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -791,7 +803,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_DetallesDelta }
|
||||
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
||||
['{ECA60AB2-29CF-4521-882B-9629AA3AD1B2}']
|
||||
['{2B5BE721-B901-4AD3-A224-0B771CAE4490}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -2818,6 +2830,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO_OPERACION] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetID_FAC_CLI_ABETOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetID_FAC_CLI_ABETOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]);
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldID_FAC_CLI_ABETOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
|
||||
end;
|
||||
|
||||
function TFacturasProveedorBusinessProcessorRules.GetOldID_FAC_CLI_ABETOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetID_FAC_CLI_ABETOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProveedorBusinessProcessorRules.SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasProveedor_DetallesBusinessProcessorRules }
|
||||
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -142,6 +142,20 @@ begin
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
|
||||
//Liberamos la factura de cliente de Abeto en el caso de ser una factura de proveedor automatica desde fabrica
|
||||
if not VarIsNull(aChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]) then
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'LiberarFacturaClienteAbeto');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('ID_FAC_CLI_ABETO').Value := aChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
|
||||
|
||||
@ -363,6 +363,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
DatasetField = 'TIPO_OPERACION'
|
||||
TableField = 'TIPO_OPERACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_FAC_CLI_ABETO'
|
||||
TableField = 'ID_FAC_CLI_ABETO'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasProveedor'
|
||||
@ -612,6 +616,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_FAC_CLI_ABETO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1055,6 +1063,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FAC_CLI_ABETO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1070,15 +1083,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_' +
|
||||
'PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' +
|
||||
'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA, ID_TIPO_FACTURA' +
|
||||
', SITUACION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' +
|
||||
'ENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_' +
|
||||
'IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_I' +
|
||||
'VA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL,' +
|
||||
' :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, ' +
|
||||
':POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP,' +
|
||||
' :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_' +
|
||||
'IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD,' +
|
||||
' :ID_TIENDA, :ID_TIPO_FACTURA, :SITUACION)'#10' '#10' '#10#10
|
||||
', SITUACION, ID_FAC_CLI_ABETO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :' +
|
||||
'REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_V' +
|
||||
'ENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO' +
|
||||
', :IVA, :IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_R' +
|
||||
'E, :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' ' +
|
||||
' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
|
||||
'CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIV' +
|
||||
'ALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGN' +
|
||||
'ORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA,'#10' :SITUACION' +
|
||||
', :ID_FAC_CLI_ABETO)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1285,6 +1299,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FAC_CLI_ABETO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1313,7 +1332,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
' '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORT' +
|
||||
'E_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' I' +
|
||||
'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' ' +
|
||||
' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
' SITUACION = :SITUACION,'#10' ID_FAC_CLI_ABETO = :ID_FAC_CLI_AB' +
|
||||
'ETO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1609,6 +1629,26 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_FacturasProveedor_Contratos'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_FAC_CLI_ABETO'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'UPDATE FACTURAS_CLIENTE'#10'SET FAC_PROV_GRADEN = NULL'#10'WHERE ID = :I' +
|
||||
'D_FAC_CLI_ABETO'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'LiberarFacturaClienteAbeto'
|
||||
end>
|
||||
RelationShips = <
|
||||
item
|
||||
|
||||
@ -259,8 +259,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 361
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user