Documentos relacionados de vendedor
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@132 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
80e9fdb4df
commit
2cbd8d9c60
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -4331,7 +4331,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
FORMA_PAGO,
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
DATOS_BANCARIOS)
|
||||
DATOS_BANCARIOS,
|
||||
ID_VENDEDOR)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
@ -4369,12 +4370,14 @@ SELECT
|
||||
FORMAS_PAGO.DESCRIPCION,
|
||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS,
|
||||
clientes_datos.id_agente
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||
left join clientes_datos on (clientes_datos.id_cliente = contactos.id)
|
||||
;
|
||||
|
||||
/**************************************************/
|
||||
|
||||
@ -3,6 +3,8 @@ unit uPlugins_Intf;
|
||||
interface
|
||||
|
||||
const
|
||||
MODULENAME_CONTACTOS = 'Contactos_plugin.bpl';
|
||||
|
||||
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
||||
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
|
||||
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
||||
@ -16,6 +18,12 @@ const
|
||||
MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
|
||||
|
||||
type
|
||||
IMCContactos = interface(IInterface)
|
||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCPresupuestosCliente = interface(IInterface)
|
||||
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||
@ -26,6 +34,8 @@ type
|
||||
['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
|
||||
procedure VerPedidos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCAlbaranesCliente = interface(IInterface)
|
||||
|
||||
@ -53,58 +53,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Inventario\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Servidor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -1,7 +1,6 @@
|
||||
program FactuGES;
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -54,7 +54,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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</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">1.0.6.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">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">1.0.7.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">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
Binary file not shown.
@ -27,7 +27,7 @@ begin
|
||||
// LoadModule('Fabricantes_plugin.bpl');
|
||||
// LoadModule('UnidadesMedida_plugin.bpl');
|
||||
|
||||
LoadModule('Contactos_plugin.bpl');
|
||||
LoadModule(MODULENAME_CONTACTOS);
|
||||
|
||||
LoadModule('Almacenes_plugin.bpl');
|
||||
// LoadModule('Obras_plugin.bpl');
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
|
||||
@ -281,14 +282,23 @@
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller;PedidosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PedidosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PedidosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
Binary file not shown.
Binary file not shown.
@ -3,7 +3,7 @@ unit schComisionesClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
@ -95,7 +95,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosComisionesDataTableRules }
|
||||
TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones)
|
||||
TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -208,7 +208,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasComisionDataTableRules }
|
||||
TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision)
|
||||
TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -369,7 +369,7 @@ type
|
||||
end;
|
||||
|
||||
{ TComisionesDataTableRules }
|
||||
TComisionesDataTableRules = class(TDADataTableRules, IComisiones)
|
||||
TComisionesDataTableRules = class(TIntfObjectDADataTableRules, IComisiones)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
|
||||
Binary file not shown.
@ -10,7 +10,9 @@
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="Data\Contactos_data.dproj" />
|
||||
<Projects Include="Model\Contactos_model.dproj" />
|
||||
@ -131,14 +133,32 @@
|
||||
<Target Name="PedidosCliente_plugin:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_plugin;PedidosCliente_plugin" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_plugin;PedidosCliente_plugin;PedidosCliente_controller;PedidosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_plugin:Clean;PedidosCliente_plugin:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_plugin:Clean;PedidosCliente_plugin:Clean;PedidosCliente_controller:Clean;PedidosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_plugin:Make;PedidosCliente_plugin:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_plugin:Make;PedidosCliente_plugin:Make;PedidosCliente_controller:Make;PedidosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -11,6 +11,7 @@ uses
|
||||
type
|
||||
IClientesController = interface(IContactosController)
|
||||
['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
function BuscarTodosTiendaWeb: IBizCliente;
|
||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
@ -23,6 +24,8 @@ type
|
||||
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
||||
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
||||
procedure VerRecibosDeCliente(ACliente : IBizCliente);
|
||||
procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = ''); overload;
|
||||
function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
|
||||
end;
|
||||
|
||||
@ -38,11 +41,14 @@ type
|
||||
|
||||
function Buscar(const ID: Integer): IBizContacto; override;
|
||||
function BuscarTodos: IBizContacto; override;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
function BuscarTodosTiendaWeb: IBizCliente;
|
||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||
function Nuevo : IBizContacto; override;
|
||||
procedure Ver(AContacto : IBizContacto); override;
|
||||
procedure VerTodos(AContactos: IBizContacto); override;
|
||||
procedure VerTodos(AContactos: IBizContacto); overload; override;
|
||||
procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = ''); overload;
|
||||
function ElegirContacto(AContactos : IBizContacto;
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
@ -63,9 +69,9 @@ implementation
|
||||
|
||||
uses
|
||||
Forms, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uDataTableUtils, uDADataTable, uDAInterfaces, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController,
|
||||
Dialogs, uIntegerListUtils, uFactuGES_App,
|
||||
Dialogs, uIntegerListUtils, uFactuGES_App, uStringsUtils,
|
||||
uPlugins_Intf;
|
||||
|
||||
{ TClientesController }
|
||||
@ -94,6 +100,29 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TClientesController.BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := (BuscarTodos as IBizCliente);
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_VENDEDOR
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ClientesID_AGENTE), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TClientesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
@ -517,6 +546,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerTodos(AContactos: IBizContacto;
|
||||
const AVerModal: Boolean; const AWindowCaption, AHeaderText: String);
|
||||
var
|
||||
AEditor : IEditorClientes;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorClientes', IEditorClientes, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
AEditor.Contactos := AContactos;
|
||||
AEditor.Controller := Self;
|
||||
AEditor.MultiSelect := True;
|
||||
|
||||
if AVerModal then
|
||||
AEditor.ShowModal
|
||||
else
|
||||
AEditor.ShowEmbedded;
|
||||
|
||||
finally
|
||||
if AVerModal then
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorClientes;
|
||||
|
||||
@ -18,6 +18,8 @@ type
|
||||
function DarListaVendedores : TStringList;
|
||||
function BuscarTodos: IBizContacto; overload;
|
||||
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
|
||||
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||
end;
|
||||
|
||||
TVendedoresController = class(TContactosController, IVendedoresController)
|
||||
@ -37,14 +39,16 @@ type
|
||||
|
||||
function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
function EsEliminable(AVendedor: IBizContacto): Boolean;
|
||||
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf,
|
||||
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores;
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uModuleController,
|
||||
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores, uPlugins_Intf, uFactuGES_App;
|
||||
|
||||
{ TVendedorController }
|
||||
|
||||
@ -246,6 +250,48 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerClientesDeVendedor(AVendedor: IBizVendedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCContactos;
|
||||
begin
|
||||
if not Assigned(AVendedor) then
|
||||
raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
|
||||
|
||||
if not AVendedor.DataTable.Active then
|
||||
AVendedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_CONTACTOS);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCContactos, APlugin) then
|
||||
APlugin.VerClientesVendedor(AVendedor.ID, AVendedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerPedidosDeVendedor(AVendedor: IBizVendedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCPedidosCliente;
|
||||
begin
|
||||
if not Assigned(AVendedor) then
|
||||
raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
|
||||
|
||||
if not AVendedor.DataTable.Active then
|
||||
AVendedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCPedidosCliente, APlugin) then
|
||||
APlugin.VerPedidosVendedor(AVendedor.ID, AVendedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorVendedores;
|
||||
|
||||
@ -4,14 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCContactos = interface(IInterface)
|
||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||
|
||||
end;
|
||||
|
||||
TPluginContactos = class(TModuleController, IMCContactos)
|
||||
actClientes: TAction;
|
||||
actProveedores: TAction;
|
||||
@ -47,6 +42,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -55,11 +52,10 @@ implementation
|
||||
|
||||
uses
|
||||
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
|
||||
uClientesController, uProveedoresController, uEmpleadosController,
|
||||
uVendedoresController,
|
||||
uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
|
||||
uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
|
||||
uContactosViewRegister, uBizContactos, uFactuGES_App;
|
||||
uClientesController, uProveedoresController, uEmpleadosController, cxControls,
|
||||
uVendedoresController, uGruposClienteController, uBizGruposCliente,
|
||||
uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController,
|
||||
uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -160,6 +156,7 @@ end;
|
||||
constructor TPluginContactos.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_CONTACTOS;
|
||||
uContactosViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -169,6 +166,29 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor: String);
|
||||
var
|
||||
AClientesController : IClientesController;
|
||||
AClientesVendedor : IBizCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de clientes del vendedor %s', [ANombreVendedor]);
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AClientesVendedor := AClientesController.BuscarTodosVendedor(ID_Vendedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AClientesController.VerTodos(AClientesVendedor, True, AText);
|
||||
finally
|
||||
AClientesVendedor := NIL;
|
||||
AClientesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
uHostManager.RegisterModuleClass(TPluginContactos);
|
||||
|
||||
|
||||
@ -49,63 +49,63 @@
|
||||
<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\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.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\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.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\dclcxLibraryD11.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\dxComnD11.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\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.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\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\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.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\vclshlctrls.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclshlctrls.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -224,9 +224,6 @@ inherited fEditorClientes: TfEditorClientes
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
@ -263,10 +260,6 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actDocumentosPedidos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Pedidos'
|
||||
|
||||
@ -121,6 +121,9 @@ constructor TfEditorClientes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := frViewClientes1;
|
||||
|
||||
FHeaderText := 'Lista de clientes - ';
|
||||
FWindowCaption := FHeaderText;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.EliminarInterno;
|
||||
@ -227,7 +230,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -109,6 +110,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -140,6 +153,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -167,15 +192,15 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
inherited StatusBarImages: TPngImageList [7]
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage
|
||||
inherited LargeImages: TPngImageList [8]
|
||||
Top = 112
|
||||
end
|
||||
inherited SmallImages: TPngImageList [9]
|
||||
Top = 112
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [10]
|
||||
Top = 144
|
||||
end
|
||||
inherited LargeImages: TPngImageList [9]
|
||||
Top = 112
|
||||
end
|
||||
inherited SmallImages: TPngImageList [10]
|
||||
Top = 112
|
||||
end
|
||||
inherited EditorActionList: TActionList [11]
|
||||
Top = 128
|
||||
inherited actGuardarCerrar: TAction
|
||||
|
||||
@ -57,7 +57,25 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 474
|
||||
ExplicitWidth = 641
|
||||
object SpTBXSubmenuItem1: TSpTBXSubmenuItem [13]
|
||||
Caption = 'Documentos relacionados'
|
||||
DisplayMode = nbdmImageAndText
|
||||
ImageIndex = 23
|
||||
Images = SmallImages
|
||||
OnClick = actDocumentosPedidosExecute
|
||||
DropdownCombo = True
|
||||
object SpTBXItem3: TSpTBXItem
|
||||
Action = ActClientes
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
object SpTBXItem2: TSpTBXItem
|
||||
Action = actDocumentosPedidos
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 786
|
||||
@ -103,6 +121,7 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 786
|
||||
@ -145,8 +164,8 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
@ -156,14 +175,15 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 357
|
||||
Width = 786
|
||||
ExplicitTop = 357
|
||||
ExplicitWidth = 786
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -173,6 +193,9 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
@ -186,9 +209,19 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
inherited actNuevo: TAction
|
||||
ImageIndex = 22
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
object actDocumentosPedidos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Pedidos'
|
||||
ImageIndex = 24
|
||||
OnExecute = actDocumentosPedidosExecute
|
||||
OnUpdate = actDocumentosPedidosUpdate
|
||||
end
|
||||
object ActClientes: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Clientes'
|
||||
ImageIndex = 25
|
||||
OnExecute = ActClientesExecute
|
||||
OnUpdate = ActClientesUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
@ -715,6 +748,151 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage22'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000018E4944415478DA
|
||||
6364C002966C3EF19F010F88F1B56084B119CF4E6443516C9CFF8B116440B48F
|
||||
398AA6BFFFFE31FCF9F38F61CDAEB30CBD5316329CDF399D116E8051DE4FB0A2
|
||||
7393D8190E9FFFC520127C8201D90098E6DF7FFE326CDC778141469483A1B07E
|
||||
26D810B801FF7F7F6498942600D7943FFF3F866610BDF5D025B00B50BC6098F9
|
||||
8AE1CFD7070C971799A1385B3FE73B8AE6DF7F41F45F8603A76F81E5BB27CD87
|
||||
18A01B778AE1EFB7070CD7D68431A07B2779EA0F14CD20F69FBFFF184E5CBA87
|
||||
30402B6415C3DFAFF7196E6E2F67C0E69DA8BECF289A7FFDFECB70EEFA438401
|
||||
EA9E9D0CEF2F7530BC7AFA9E01977744435FC03583BC74F9F613840120A78280
|
||||
AD211B033EEF78D4BD046BFE0D34E4C683E71003906D21C63B76A58F197E010D
|
||||
B9F7E4157603B07907E42290A173DA0A192C0A1F805DF0F8E55BEC0660F30E48
|
||||
33C8D0B55B5E3218E7DC0587C5F337EF310DC0E59D3F5F6E317CBEB70E6C8058
|
||||
E829B81A8206C0BC03032003163ECF84F3FF337EC76F00CC3BC8A06001AA1EC6
|
||||
FFFFF1E65C820000241257B48E5A5E7D0000000049454E44AE426082}
|
||||
Name = 'PngImage23'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F33000001764944415478DA63FCFFFF3FC394
|
||||
C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
|
||||
98866A80CB7E5B14C57B1C0F836964F1CD56FB18E6AEDACB306FE9264C03F081
|
||||
5FBFFF826D06E1251B0E623700DD05D8C07283ED0C2BB71CC16D00CCD920F00F
|
||||
28F7E7CF3FB8CD2167DC1816EB6C6558BBE3187E03602ED9667380C1EB8803DC
|
||||
E6C80B9E0CF33436316CDA7312BF01309B3FDF3ECCF072712C3E1FB96018B0CB
|
||||
E11083DB013BB0ECA45D0F18941B6A18D8D9D33174FEFC3993615E620B038601
|
||||
2067C3FCFCAC4D8D41ABFD3158311CFCF801C4DF1966EF326060DE9E8A302023
|
||||
CA8DC1E3903D8A2D2017A01800D2FCE11DC480534EA806248739836D85857AF4
|
||||
252F5403609AC106FC64987D2B08D580B8200794284BB8E68B30E0E34484E60F
|
||||
1F202E7895826A40949F1D5C33DCA0194610031ED62334C3BCF0AB0CD580502F
|
||||
6B86D5DB8EA28481D3B554702CCC5E258F350E510C00250C74A0CDFB86C18AF5
|
||||
38CE44602FCFE00200175B62A961F8A2FD0000000049454E44AE426082}
|
||||
Name = 'PngImage24'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001EC4944415478DA
|
||||
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
|
||||
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
|
||||
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
|
||||
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
|
||||
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
|
||||
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
|
||||
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
|
||||
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
|
||||
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
|
||||
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
|
||||
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
|
||||
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
|
||||
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
|
||||
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
|
||||
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
|
||||
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
|
||||
Name = 'PngImage25'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
|
||||
uViewContactos, uIEditorVendedores, pngimage,
|
||||
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
|
||||
uViewVendedores, dxGDIPlusClasses;
|
||||
uViewVendedores, dxGDIPlusClasses, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)
|
||||
@ -19,6 +19,15 @@ type
|
||||
JsPrevisualizarDialog: TJSDialog;
|
||||
JsImprimirDialog: TJSDialog;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
SpTBXSubmenuItem1: TSpTBXSubmenuItem;
|
||||
SpTBXItem2: TSpTBXItem;
|
||||
actDocumentosPedidos: TAction;
|
||||
ActClientes: TAction;
|
||||
SpTBXItem3: TSpTBXItem;
|
||||
procedure actDocumentosPedidosExecute(Sender: TObject);
|
||||
procedure actDocumentosPedidosUpdate(Sender: TObject);
|
||||
procedure ActClientesExecute(Sender: TObject);
|
||||
procedure ActClientesUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
@ -38,6 +47,34 @@ uses
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorVendedores.ActClientesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IVendedoresController).VerClientesDeVendedor(IBizVendedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.ActClientesUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.actDocumentosPedidosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IVendedoresController).VerPedidosDeVendedor(IBizVendedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.actDocumentosPedidosUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
constructor TfEditorVendedores.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */
|
||||
|
||||
@ -24,6 +24,7 @@ type
|
||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||
function BuscarTodos: IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
function BuscarPendientes : IBizPedidoCliente;
|
||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
procedure Ver(APedido : IBizPedidoCliente);
|
||||
@ -108,7 +109,8 @@ type
|
||||
function Anadir(APedido : IBizPedidoCliente) : Boolean;
|
||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||
function BuscarTodos: IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
function BuscarPendientes : IBizPedidoCliente;
|
||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
function Nuevo : IBizPedidoCliente;
|
||||
@ -225,6 +227,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosClienteController.BuscarTodosVendedor(
|
||||
const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_VENDEDOR
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_VENDEDOR), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30C.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */
|
||||
|
||||
@ -242,6 +242,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30A.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */
|
||||
|
||||
@ -1,6 +1,5 @@
|
||||
unit schPedidosClienteClient_Intf;
|
||||
|
||||
{$D-}
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -10,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_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
|
||||
RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
|
||||
RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
|
||||
RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
|
||||
RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
|
||||
RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
|
||||
RID_PedidoCliente_Art_Colores_Pendientes = '{0635D89F-961F-4A8A-8631-93E80735F276}';
|
||||
RID_ListaAnosPedidos = '{88FC7751-6123-4698-B5ED-A0BA3C31ACB5}';
|
||||
RID_ArticulosPendientes = '{3E7C7A2B-0C2B-43B0-8E2C-6F1F0D1965C4}';
|
||||
RID_PedidosCliente = '{58A32347-5ECD-4B4D-B1A3-8FFE2BC07FDC}';
|
||||
RID_PedidosCliente_Detalles = '{CC8DF9E4-AACC-484E-BBE7-4F4A1A02C9D7}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{6D698D2A-FA62-40C2-9B2D-26041E3900CA}';
|
||||
RID_PedidosCliente_Detalle_Color = '{027386CC-D26B-4167-8181-DC9F573BF973}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
|
||||
@ -138,6 +137,7 @@ const
|
||||
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
||||
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||
fld_PedidosClienteID_VENDEDOR = 'ID_VENDEDOR';
|
||||
|
||||
{ PedidosCliente field indexes }
|
||||
idx_PedidosClienteID = 0;
|
||||
@ -176,6 +176,7 @@ const
|
||||
idx_PedidosClienteREF_TIENDA_WEB = 33;
|
||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
|
||||
idx_PedidosClienteDATOS_BANCARIOS = 35;
|
||||
idx_PedidosClienteID_VENDEDOR = 36;
|
||||
|
||||
{ PedidosCliente_Detalles fields }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -258,7 +259,7 @@ const
|
||||
type
|
||||
{ IPedidoCliente_Art_Colores_Pendientes }
|
||||
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
|
||||
['{BEEE5468-6E57-4ED3-95B5-E6C13A853F65}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -449,7 +450,7 @@ type
|
||||
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
|
||||
['{55FEE857-66E6-4010-9D14-548A29F9F198}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -484,7 +485,7 @@ type
|
||||
|
||||
{ IArticulosPendientes }
|
||||
IArticulosPendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{764F380F-50B6-4FBC-8E75-531B3859322D}']
|
||||
['{0207F031-484C-4420-B620-74888FA2748C}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -699,7 +700,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
|
||||
['{2DF3DC58-2F3F-44B7-BCA7-6B5B7477FFD8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -843,6 +844,10 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
||||
function GetDATOS_BANCARIOSIsNull: Boolean;
|
||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
|
||||
function GetID_VENDEDORValue: Integer;
|
||||
procedure SetID_VENDEDORValue(const aValue: Integer);
|
||||
function GetID_VENDEDORIsNull: Boolean;
|
||||
procedure SetID_VENDEDORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -918,6 +923,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
|
||||
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
@ -1071,6 +1078,10 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
||||
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
|
||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_VENDEDORValue: Integer; virtual;
|
||||
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
|
||||
function GetID_VENDEDORIsNull: Boolean; virtual;
|
||||
procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1145,6 +1156,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
|
||||
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1154,7 +1167,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
|
||||
['{B4AE7BEA-A09E-45A0-A759-F52B4C16CD78}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1357,7 +1370,7 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_Pendientes }
|
||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
|
||||
['{19CDD1BE-D8E9-4304-A92F-168055101599}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -1428,7 +1441,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalle_Color }
|
||||
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||
['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
|
||||
['{20ACE66E-BAE3-4C47-A309-BFAC58663D1E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3087,6 +3100,27 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_VENDEDORValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_VENDEDORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosCliente_DetallesDataTableRules }
|
||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf382.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf132.tmp */
|
||||
|
||||
@ -23,6 +23,9 @@ type
|
||||
destructor Destroy; override;
|
||||
procedure VerPedidos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -88,6 +91,29 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPluginPedidosCliente.VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor: String);
|
||||
var
|
||||
APedidosClienteController : IPedidosClienteController;
|
||||
APedidosVendedor : IBizPedidoCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de pedidos del vendedor %s', [ANombreVendedor]);
|
||||
APedidosClienteController := TPedidosClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedidosVendedor := APedidosClienteController.BuscarTodosVendedor(ID_Vendedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
APedidosClienteController.VerTodosPedidos(APedidosVendedor, True, AText);
|
||||
finally
|
||||
APedidosVendedor := NIL;
|
||||
APedidosClienteController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginPedidosCliente);
|
||||
|
||||
|
||||
@ -454,6 +454,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_VENDEDOR'
|
||||
TableField = 'ID_VENDEDOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente'
|
||||
@ -655,6 +659,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
end>
|
||||
end
|
||||
item
|
||||
|
||||
@ -27,4 +27,4 @@ END
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf380.tmp */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */
|
||||
|
||||
@ -290,10 +290,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
inherited actImprimir: TAction
|
||||
Visible = True
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actGenerarAlbaranCli: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar albar'#225'n de cliente'
|
||||
|
||||
@ -222,7 +222,11 @@ end;
|
||||
constructor TfEditorPedidosCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
AsignarVista;
|
||||
|
||||
FHeaderText := 'Lista de pedidos de cliente - ';
|
||||
FWindowCaption := FHeaderText;
|
||||
|
||||
AsignarVista;
|
||||
end;
|
||||
|
||||
destructor TfEditorPedidosCliente.Destroy;
|
||||
@ -386,7 +390,7 @@ procedure TfEditorPedidosCliente.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de pedidos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
Binary file not shown.
@ -3,7 +3,6 @@ program FactuGES_Server;
|
||||
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
uROComInit,
|
||||
uROComboService,
|
||||
Forms,
|
||||
@ -136,8 +135,6 @@ uses
|
||||
uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
@ -148,7 +145,9 @@ uses
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
|
||||
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
|
||||
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule};
|
||||
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -35,7 +35,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</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">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de junio de 2010 15:30</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 01 de julio de 2010 17:59</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -17,7 +17,7 @@ BEGIN
|
||||
VALUE "InternalName", "FactuGES Servidor\0"
|
||||
VALUE "ProductName", "FactuGES Servidor\0"
|
||||
VALUE "ProductVersion", "1.0.6.0\0"
|
||||
VALUE "CompileDate", "martes, 15 de junio de 2010 9:14\0"
|
||||
VALUE "CompileDate", "jueves, 01 de julio de 2010 17:59\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Reference in New Issue
Block a user