Compare commits
10 Commits
9817000e8d
...
5df0770b1b
| Author | SHA1 | Date | |
|---|---|---|---|
| 5df0770b1b | |||
| 0b5e8ef6af | |||
| 89a87e5287 | |||
| d5a1bb79fa | |||
| f2c4e7954f | |||
| 2cbd8d9c60 | |||
| 80e9fdb4df | |||
| aab3f9832f | |||
| 3c31071bc2 | |||
| 8663a34655 |
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
Binary file not shown.
@ -4331,7 +4331,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
|||||||
FORMA_PAGO,
|
FORMA_PAGO,
|
||||||
REF_TIENDA_WEB,
|
REF_TIENDA_WEB,
|
||||||
FECHA_PREVISTA_ENVIO,
|
FECHA_PREVISTA_ENVIO,
|
||||||
DATOS_BANCARIOS)
|
DATOS_BANCARIOS,
|
||||||
|
ID_VENDEDOR)
|
||||||
AS
|
AS
|
||||||
SELECT
|
SELECT
|
||||||
PEDIDOS_CLIENTE.ID,
|
PEDIDOS_CLIENTE.ID,
|
||||||
@ -4369,12 +4370,14 @@ SELECT
|
|||||||
FORMAS_PAGO.DESCRIPCION,
|
FORMAS_PAGO.DESCRIPCION,
|
||||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
PEDIDOS_CLIENTE.DATOS_BANCARIOS,
|
||||||
|
clientes_datos.id_agente
|
||||||
FROM
|
FROM
|
||||||
V_PED_CLI_SITUACION
|
V_PED_CLI_SITUACION
|
||||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
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 OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||||
|
left join clientes_datos on (clientes_datos.id_cliente = contactos.id)
|
||||||
;
|
;
|
||||||
|
|
||||||
/**************************************************/
|
/**************************************************/
|
||||||
|
|||||||
@ -113,6 +113,7 @@ type
|
|||||||
FController : IEmpresasController;
|
FController : IEmpresasController;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FFormasPago: TStringList;
|
FFormasPago: TStringList;
|
||||||
FTiposIVA: TStringList;
|
FTiposIVA: TStringList;
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
@ -192,27 +193,29 @@ end;
|
|||||||
procedure TfrViewEmpresa.CargarPoblaciones;
|
procedure TfrViewEmpresa.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
begin
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
with TProvinciasPoblacionesController.Create do
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
with cbPoblacion.Properties.Items do
|
||||||
begin
|
begin
|
||||||
BeginUpdate;
|
BeginUpdate;
|
||||||
try
|
try
|
||||||
Clear;
|
Clear;
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
Add(FPoblaciones.Names[i]);
|
Add(FPoblaciones.Names[i]);
|
||||||
finally
|
finally
|
||||||
EndUpdate;
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewEmpresa.CargarProvincias;
|
procedure TfrViewEmpresa.CargarProvincias;
|
||||||
@ -286,6 +289,7 @@ end;
|
|||||||
constructor TfrViewEmpresa.Create(AOwner : TComponent);
|
constructor TfrViewEmpresa.Create(AOwner : TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
bModificarCatalogo := False;
|
bModificarCatalogo := False;
|
||||||
|
|||||||
@ -3,6 +3,8 @@ unit uPlugins_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
const
|
const
|
||||||
|
MODULENAME_CONTACTOS = 'Contactos_plugin.bpl';
|
||||||
|
|
||||||
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
||||||
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
|
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
|
||||||
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
||||||
@ -16,6 +18,12 @@ const
|
|||||||
MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
|
MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
|
||||||
|
|
||||||
type
|
type
|
||||||
|
IMCContactos = interface(IInterface)
|
||||||
|
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||||
|
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||||
|
const ANombreVendedor : String = '');
|
||||||
|
end;
|
||||||
|
|
||||||
IMCPresupuestosCliente = interface(IInterface)
|
IMCPresupuestosCliente = interface(IInterface)
|
||||||
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
||||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||||
@ -26,6 +34,8 @@ type
|
|||||||
['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
|
['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
|
||||||
procedure VerPedidos(const ID_Cliente: Integer;
|
procedure VerPedidos(const ID_Cliente: Integer;
|
||||||
const ANombreCliente : String = '');
|
const ANombreCliente : String = '');
|
||||||
|
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||||
|
const ANombreVendedor : String = '');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
IMCAlbaranesCliente = interface(IInterface)
|
IMCAlbaranesCliente = interface(IInterface)
|
||||||
|
|||||||
@ -53,58 +53,58 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxExportD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxExtEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxGridD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\cxPageControlD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\designide.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dxLayoutControlD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dxPSCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\GUISDK_D11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\IndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\IndySystem.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\Jcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JSDialog100.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvCmpD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvDlgsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvMMD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvNetD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\pckMD5.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\RemObjects_Indy_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\SpTBXLib_d11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\tb2k_d11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\vclx.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Contactos\Controller\xmlrtl.dcp" />
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.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\dclIndyCore.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\dxLayoutControlD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\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\JvCmpD11R.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\JvDlgsD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.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\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\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\RemObjects_Indy_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\vcl.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
Binary file not shown.
@ -86,8 +86,9 @@ begin
|
|||||||
|
|
||||||
{ Si la tabla está abierta, la cerramos antes de aplicar los filtros
|
{ Si la tabla está abierta, la cerramos antes de aplicar los filtros
|
||||||
porque por cada cambio en el filtro se hacen llamadas internas de TDADataTable. }
|
porque por cada cambio en el filtro se hacen llamadas internas de TDADataTable. }
|
||||||
if ASource.Active then
|
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||||
ASource.Close;
|
// if ASource.Active then
|
||||||
|
// ASource.Close;
|
||||||
|
|
||||||
// Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo.
|
// Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo.
|
||||||
if ASource.Filtered then
|
if ASource.Filtered then
|
||||||
@ -121,8 +122,9 @@ begin
|
|||||||
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
|
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
|
||||||
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
|
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
|
||||||
|
|
||||||
if not ASource.Active then
|
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||||
ASource.Open;
|
// if not ASource.Active then
|
||||||
|
// ASource.Open;
|
||||||
|
|
||||||
ASource.First;
|
ASource.First;
|
||||||
|
|
||||||
|
|||||||
@ -1,6 +1,7 @@
|
|||||||
program FactuGES;
|
program FactuGES;
|
||||||
|
|
||||||
uses
|
uses
|
||||||
|
ExceptionLog,
|
||||||
Forms,
|
Forms,
|
||||||
Windows,
|
Windows,
|
||||||
SysUtils,
|
SysUtils,
|
||||||
|
|||||||
@ -54,7 +54,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<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">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">8</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.8.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.8.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>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,0,6,0
|
FILEVERSION 1,0,8,0
|
||||||
PRODUCTVERSION 1,0,6,0
|
PRODUCTVERSION 1,0,8,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,10 +13,10 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.0.6.0\0"
|
VALUE "FileVersion", "1.0.8.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "1.0.6.0\0"
|
VALUE "ProductVersion", "1.0.8.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -27,7 +27,7 @@ begin
|
|||||||
// LoadModule('Fabricantes_plugin.bpl');
|
// LoadModule('Fabricantes_plugin.bpl');
|
||||||
// LoadModule('UnidadesMedida_plugin.bpl');
|
// LoadModule('UnidadesMedida_plugin.bpl');
|
||||||
|
|
||||||
LoadModule('Contactos_plugin.bpl');
|
LoadModule(MODULENAME_CONTACTOS);
|
||||||
|
|
||||||
LoadModule('Almacenes_plugin.bpl');
|
LoadModule('Almacenes_plugin.bpl');
|
||||||
// LoadModule('Obras_plugin.bpl');
|
// LoadModule('Obras_plugin.bpl');
|
||||||
|
|||||||
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40276,6903403472" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,5537128704" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
@ -35,15 +35,15 @@
|
|||||||
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line5" Align="baLeft" Left="506,71653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line5" Align="baLeft" Left="506,71653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="111,11" Width="362" Height="130,94" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="113,42517" Width="342,2047" Height="123,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE_COMERCIAL"]</b> [frxDBCabecera."NOMBRE"] [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
<TfrxMemoView Name="Memo21" Left="0" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
||||||
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo22" Left="0" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||||
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="ALBARÁN"/>
|
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="ALBARÁN"/>
|
||||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Alb."/>
|
<TfrxMemoView Name="Memo3" Left="130,44094" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Alb."/>
|
||||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
<TfrxMemoView Name="Memo4" Left="130,44094" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||||
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
||||||
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
||||||
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
||||||
|
|||||||
49
Source/Informes/InfComision.fr3
Normal file
49
Source/Informes/InfComision.fr3
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40360,6828532292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="begin end. " ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4700000020446174615365743D225270744661637475726173436C69656E74652E6672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||||
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
|
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
|
<TfrxPageHeader Name="Band2" Height="83,08652142" Left="0" Top="16" Width="1046,92981">
|
||||||
|
<TfrxMemoView Name="Memo15" Left="399,93723" Top="11,33859" Width="639,43352" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-32" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haRight" ParentFont="False" Text="LIQUIDACIONES DE COMISIONES"/>
|
||||||
|
<TfrxMemoView Name="Memo7" Left="419,30736" Top="58,14966" Width="612,50433" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Página nº: [<Page#>] / [<TotalPages#>]"/>
|
||||||
|
</TfrxPageHeader>
|
||||||
|
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="255" Width="1046,92981" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasCliente.frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
|
<TfrxMemoView Name="Memo2" Left="4" Top="2" Width="64,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_FACTURA"]"/>
|
||||||
|
<TfrxMemoView Name="Memo9" Left="77,9765" Top="2" Width="63,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||||
|
<TfrxMemoView Name="Memo10" Left="235,80334" Top="1,88976378" Width="521,95292677" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."NOMBRE"]"/>
|
||||||
|
<TfrxMemoView Name="Memo13" Left="149,1812" Top="2" Width="81,37013" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."SITUACION"]"/>
|
||||||
|
<TfrxLineView Name="Line8" Left="72,5906" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line5" Left="145,51181102" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line10" Left="233,95275591" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line4" Left="763,46456693" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line3" Left="874,96062992" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line7" Left="1040,50393701" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxLineView Name="Line1" Left="0,37795276" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
|
<TfrxMemoView Name="Memo5" Left="765" Top="2" Width="105" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."BASE_IMPONIBLE"]"/>
|
||||||
|
<TfrxMemoView Name="Memo11" Left="878" Top="2" Width="50" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."COMISION"]"/>
|
||||||
|
<TfrxMemoView Name="Memo12" Left="934" Top="2" Width="103" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."IMPORTE_COMISION"]"/>
|
||||||
|
<TfrxLineView Name="Line2" Left="932" Top="0" Width="0" Height="22,81102362" ShowHint="False" Frame.Typ="1"/>
|
||||||
|
</TfrxMasterData>
|
||||||
|
<TfrxGroupHeader Name="GroupHeader1" Height="75,5906" Left="0" Top="159" Width="1046,92981" Condition="frxDBCabecera."ID"" OutlineText="frxDBCabecera."ID"">
|
||||||
|
<TfrxMemoView Name="Memo18" Left="931,07143" Top="52,91342" Width="109,92130622" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. comisión "/>
|
||||||
|
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="1040,8825" Height="52,91340291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||||
|
<TfrxMemoView Name="Memo14" Left="60,25201" Top="30,23624" Width="412,18924" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||||
|
<TfrxMemoView Name="Memo6" Left="174,99227" Top="3,77953" Width="253,44898" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||||
|
<TfrxMemoView Name="Memo16" Left="525,35467" Top="3,77953" Width="948,8825" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBCabecera."FECHA"]"/>
|
||||||
|
<TfrxMemoView Name="Memo17" Left="555,59091" Top="30,23624" Width="476,44125" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."DESCRIPCION"]"/>
|
||||||
|
<TfrxMemoView Name="Memo20" Left="11,33859" Top="3,77952999999999" Width="160,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº liquidación de comisiones:"/>
|
||||||
|
<TfrxMemoView Name="Memo21" Left="480,00031" Top="3,77952999999999" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||||||
|
<TfrxMemoView Name="Memo22" Left="480,00031" Top="30,23624" Width="72,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
|
||||||
|
<TfrxMemoView Name="Memo25" Left="11,33859" Top="30,23624" Width="46,01577" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Agente:"/>
|
||||||
|
<TfrxMemoView Name="Memo23" Left="0" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fec. factura"/>
|
||||||
|
<TfrxMemoView Name="Memo1" Left="72,5906" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
|
||||||
|
<TfrxMemoView Name="Memo3" Left="145,63791" Top="52,91342" Width="88,44094" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||||
|
<TfrxMemoView Name="Memo4" Left="234,03958" Top="52,91342" Width="532,91355913" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||||
|
<TfrxMemoView Name="Memo24" Left="763,46464016" Top="52,91342" Width="113,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||||
|
<TfrxMemoView Name="Memo8" Left="876" Top="53" Width="55,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="comisión"/>
|
||||||
|
</TfrxGroupHeader>
|
||||||
|
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="298" Width="1046,92981">
|
||||||
|
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||||
|
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||||
|
</TfrxGroupFooter>
|
||||||
|
</TfrxReportPage>
|
||||||
|
</TfrxReport>
|
||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40227,4339049421" ScriptLanguage="PascalScript" ScriptText.Text="procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBEtiquetas."CALLE_ENVIO"> <> '') then begin mCalleFiscal.Visible := False; mPoblacionFiscal.Visible := False; mCodigoPostalFiscal.Visible := False; end else begin mCalleEnvio.Visible := False; mPoblacionEnvio.Visible := False; mCodigoPostalEnvio.Visible := False; end; end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin // Memo5.lines.clear; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,554343831" ScriptLanguage="PascalScript" ScriptText.Text="procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBEtiquetas."CALLE_ENVIO"> <> '') then begin mCalleFiscal.Visible := False; mPoblacionFiscal.Visible := False; mCodigoPostalFiscal.Visible := False; end else begin mCalleEnvio.Visible := False; mPoblacionEnvio.Visible := False; mCodigoPostalEnvio.Visible := False; end; end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin // Memo5.lines.clear; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBEtiquetas" DataSetName="frxDBEtiquetas" RowCount="0">
|
<TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBEtiquetas" DataSetName="frxDBEtiquetas" RowCount="0">
|
||||||
@ -12,6 +12,7 @@
|
|||||||
<TfrxMemoView Name="mCalleEnvio" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_ENVIO"]"/>
|
<TfrxMemoView Name="mCalleEnvio" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_ENVIO"]"/>
|
||||||
<TfrxMemoView Name="mCodigoPostalEnvio" Left="176" Top="170" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CODIGO_POSTAL_ENVIO"] [frxDBEtiquetas."POBLACION_ENVIO"] ([frxDBEtiquetas."PROVINCIA_ENVIO"])"/>
|
<TfrxMemoView Name="mCodigoPostalEnvio" Left="176" Top="170" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CODIGO_POSTAL_ENVIO"] [frxDBEtiquetas."POBLACION_ENVIO"] ([frxDBEtiquetas."PROVINCIA_ENVIO"])"/>
|
||||||
<TfrxMemoView Name="Memo1" Left="176" Top="209" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" Text="[Mercancia]"/>
|
<TfrxMemoView Name="Memo1" Left="176" Top="209" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" Text="[Mercancia]"/>
|
||||||
|
<TfrxMemoView Name="Memo3" Left="176" Top="72" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."NOMBRE_COMERCIAL"]"/>
|
||||||
</TfrxMasterData>
|
</TfrxMasterData>
|
||||||
</TfrxReportPage>
|
</TfrxReportPage>
|
||||||
</TfrxReport>
|
</TfrxReport>
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40275,6904642245" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,5526718287" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||||
@ -35,15 +35,15 @@
|
|||||||
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxLineView Name="Line5" Align="baLeft" Left="612,43307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
<TfrxLineView Name="Line5" Align="baLeft" Left="612,43307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="111,11" Width="362" Height="130,94" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="111,42517" Width="342,2047" Height="128,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE_COMERCIAL"]</b> [frxDBCabecera."NOMBRE"] [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||||
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Pedido"/>
|
<TfrxMemoView Name="Memo21" Left="0" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Pedido"/>
|
||||||
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
<TfrxMemoView Name="Memo22" Left="0" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||||
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||||
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||||
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="PEDIDO"/>
|
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="PEDIDO"/>
|
||||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Ped."/>
|
<TfrxMemoView Name="Memo3" Left="130,44094" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Ped."/>
|
||||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_PEDIDO"]"/>
|
<TfrxMemoView Name="Memo4" Left="130,44094" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_PEDIDO"]"/>
|
||||||
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
||||||
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
||||||
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
||||||
|
|||||||
@ -19,6 +19,7 @@
|
|||||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_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="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||||
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
|
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
|
||||||
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
|
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
|
||||||
@ -146,15 +147,6 @@
|
|||||||
<Target Name="AlbaranesCliente_plugin:Make">
|
<Target Name="AlbaranesCliente_plugin:Make">
|
||||||
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
|
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="FactuGES">
|
|
||||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="FactuGES:Clean">
|
|
||||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="FactuGES:Make">
|
|
||||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="FactuGES_Server">
|
<Target Name="FactuGES_Server">
|
||||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||||
</Target>
|
</Target>
|
||||||
@ -164,6 +156,15 @@
|
|||||||
<Target Name="FactuGES_Server:Make">
|
<Target Name="FactuGES_Server:Make">
|
||||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
|
<Target Name="FactuGES">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Clean">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Make">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
<Target Name="AlbaranesProveedor_view">
|
<Target Name="AlbaranesProveedor_view">
|
||||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
||||||
</Target>
|
</Target>
|
||||||
@ -281,14 +282,23 @@
|
|||||||
<Target Name="FacturasCliente_controller:Make">
|
<Target Name="FacturasCliente_controller:Make">
|
||||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||||
</Target>
|
</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">
|
<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_Server;FactuGES;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>
|
||||||
<Target Name="Clean">
|
<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_Server:Clean;FactuGES: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>
|
||||||
<Target Name="Make">
|
<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_Server:Make;FactuGES: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>
|
</Target>
|
||||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
</Project>
|
</Project>
|
||||||
@ -49,10 +49,10 @@
|
|||||||
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
|
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_data.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="uAlbaranesClienteController.pas" />
|
<DCCReference Include="uAlbaranesClienteController.pas" />
|
||||||
<DCCReference Include="uAlbaranesClienteReportController.pas" />
|
<DCCReference Include="uAlbaranesClienteReportController.pas" />
|
||||||
<DCCReference Include="uArticulosAlbaranClienteController.pas" />
|
<DCCReference Include="uArticulosAlbaranClienteController.pas" />
|
||||||
|
|||||||
Binary file not shown.
@ -588,8 +588,21 @@ end;
|
|||||||
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
|
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
|
||||||
var
|
var
|
||||||
AEditor : IEditorAlbaranCliente;
|
AEditor : IEditorAlbaranCliente;
|
||||||
|
// AAlbaran2: IBizAlbaranCliente;
|
||||||
|
// Esnuevo: Boolean;
|
||||||
begin
|
begin
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
|
|
||||||
|
// Esnuevo := AAlbaran.ID < 0;
|
||||||
|
//Es modificación
|
||||||
|
// if not Esnuevo then
|
||||||
|
// begin
|
||||||
|
// AAlbaran2 := Buscar(AAlbaran.ID);
|
||||||
|
// AAlbaran2.DataTable.Active := True;
|
||||||
|
// end
|
||||||
|
// else
|
||||||
|
// AAlbaran2 := Nuevo;
|
||||||
|
|
||||||
RecuperarObjetos(AAlbaran);
|
RecuperarObjetos(AAlbaran);
|
||||||
|
|
||||||
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
|
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
|
||||||
@ -614,6 +627,10 @@ begin
|
|||||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||||
if AEditor.ReadOnly then
|
if AEditor.ReadOnly then
|
||||||
SetDataTableReadOnly(AAlbaran.DataTable, False);
|
SetDataTableReadOnly(AAlbaran.DataTable, False);
|
||||||
|
|
||||||
|
// if Esnuevo then
|
||||||
|
// DuplicarRegistro(AAlbaran.DataTable, AAlbaran.DataTable, True, True, True);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AEditor.Release;
|
AEditor.Release;
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
|
|||||||
@ -69,17 +69,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' +
|
'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' +
|
||||||
'_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
|
'_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
|
||||||
' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' +
|
' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' +
|
||||||
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' +
|
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS' +
|
||||||
'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
|
'.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_A' +
|
||||||
'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
|
'LBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALB' +
|
||||||
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
|
'ARANES_CLIENTE.PROVINCIA,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL'#10#10'F' +
|
||||||
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
|
'ROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.I' +
|
||||||
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
|
'D = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT JOIN CLIENTES_DATOS O' +
|
||||||
') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' +
|
'N (CLIENTES_DATOS.ID_CLIENTE = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'W' +
|
||||||
'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
|
'HERE V_ALBARANES_CLIENTE.ID = :ID'#10#10
|
||||||
'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' +
|
|
||||||
'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' +
|
|
||||||
' :ID'#10#10
|
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -181,6 +178,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'DATOS_BANCARIOS'
|
DatasetField = 'DATOS_BANCARIOS'
|
||||||
TableField = 'DATOS_BANCARIOS'
|
TableField = 'DATOS_BANCARIOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_COMERCIAL'
|
||||||
|
TableField = 'NOMBRE_COMERCIAL'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Informe_Cabecera'
|
Name = 'Informe_Cabecera'
|
||||||
@ -240,7 +241,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
@ -248,7 +249,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
@ -273,6 +274,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -427,18 +433,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
||||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
|
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS.NOMB' +
|
||||||
'.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
|
'RE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' CONTACTO' +
|
||||||
'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
|
'S.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECCIONES.CALLE AS CALLE_' +
|
||||||
'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
|
'ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_FISCAL,'#10' CONTACTOS_DI' +
|
||||||
'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
|
'RECCIONES.POBLACION AS POBLACION_ENVIO,'#10' CONTACTOS.PROVINCIA AS' +
|
||||||
'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
|
' PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.PROVINCIA AS PROVINCI' +
|
||||||
'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
|
'A_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CO' +
|
||||||
'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
|
'NTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' ' +
|
||||||
'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' +
|
' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V' +
|
||||||
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
|
'_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIREC' +
|
||||||
'_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' +
|
'CIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = V_ALBARANES_CLIEN' +
|
||||||
'IENTE.ID = :ID'#10
|
'TE.ID_cliente)'#10' LEFT JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_' +
|
||||||
|
'CLIENTE = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CLIE' +
|
||||||
|
'NTE.ID = :ID'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -504,6 +512,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
DatasetField = 'CODIGO_POSTAL_ENVIO'
|
DatasetField = 'CODIGO_POSTAL_ENVIO'
|
||||||
TableField = '<unknown>'
|
TableField = '<unknown>'
|
||||||
SQLOrigin = 'CODIGO_POSTAL_ENVIO'
|
SQLOrigin = 'CODIGO_POSTAL_ENVIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_COMERCIAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'NOMBRE_COMERCIAL'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Informe_Etiquetas'
|
Name = 'Informe_Etiquetas'
|
||||||
@ -527,6 +540,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -883,7 +901,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
@ -891,7 +909,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
@ -916,6 +934,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -1087,6 +1110,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
|
|||||||
@ -60,10 +60,10 @@ type
|
|||||||
tbl_Detalles: TDAMemDataTable;
|
tbl_Detalles: TDAMemDataTable;
|
||||||
frxPDFExport1: TfrxPDFExport;
|
frxPDFExport1: TfrxPDFExport;
|
||||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||||
schReport: TDASchema;
|
|
||||||
frxDBEtiquetas: TfrxDBDataset;
|
frxDBEtiquetas: TfrxDBDataset;
|
||||||
DADSEtiquetas: TDADataSource;
|
DADSEtiquetas: TDADataSource;
|
||||||
tbl_Etiquetas: TDAMemDataTable;
|
tbl_Etiquetas: TDAMemDataTable;
|
||||||
|
schReport: TDASchema;
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
procedure DataModuleDestroy(Sender: TObject);
|
procedure DataModuleDestroy(Sender: TObject);
|
||||||
private
|
private
|
||||||
|
|||||||
@ -203,74 +203,77 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
Height = 51
|
Height = 51
|
||||||
ExplicitWidth = 841
|
ExplicitWidth = 841
|
||||||
ExplicitHeight = 51
|
ExplicitHeight = 51
|
||||||
inherited ToolButton14: TToolButton
|
inherited FontName: TJvFontComboBox [3]
|
||||||
Wrap = False
|
Left = 278
|
||||||
end
|
|
||||||
inherited FontName: TJvFontComboBox
|
|
||||||
Left = 399
|
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 399
|
ExplicitLeft = 278
|
||||||
|
ExplicitTop = 0
|
||||||
|
end
|
||||||
|
inherited FontSize: TEdit [4]
|
||||||
|
Left = 423
|
||||||
|
Top = 0
|
||||||
|
Width = 250
|
||||||
|
ExplicitLeft = 423
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitWidth = 250
|
||||||
|
end
|
||||||
|
inherited UpDown1: TUpDown [5]
|
||||||
|
Left = 673
|
||||||
|
Top = 0
|
||||||
|
ExplicitLeft = 673
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton [6]
|
inherited ToolButton13: TToolButton [6]
|
||||||
Left = 544
|
|
||||||
Top = 0
|
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 544
|
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
|
end
|
||||||
|
inherited ToolButton4: TToolButton [7]
|
||||||
|
end
|
||||||
|
inherited ToolButton6: TToolButton [8]
|
||||||
|
Left = 56
|
||||||
|
Wrap = False
|
||||||
|
ExplicitLeft = 56
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
Left = 122
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 122
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton8: TToolButton
|
||||||
|
Left = 189
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 189
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton12: TToolButton
|
||||||
|
Left = 272
|
||||||
|
Top = 27
|
||||||
|
Wrap = False
|
||||||
|
ExplicitLeft = 272
|
||||||
|
ExplicitTop = 27
|
||||||
ExplicitHeight = 22
|
ExplicitHeight = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton [7]
|
inherited ToolButton14: TToolButton [12]
|
||||||
Left = 552
|
Left = 280
|
||||||
Top = 0
|
ExplicitLeft = 280
|
||||||
ExplicitLeft = 552
|
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
|
||||||
inherited ToolButton7: TToolButton [8]
|
|
||||||
Left = 618
|
|
||||||
Top = 0
|
|
||||||
ExplicitLeft = 618
|
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
|
||||||
inherited ToolButton8: TToolButton [9]
|
|
||||||
Left = 0
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton [10]
|
|
||||||
Top = 22
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited FontSize: TEdit [11]
|
|
||||||
Left = 0
|
|
||||||
Top = 49
|
|
||||||
Width = 250
|
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 49
|
|
||||||
ExplicitWidth = 250
|
|
||||||
end
|
|
||||||
inherited UpDown1: TUpDown [12]
|
|
||||||
Left = 250
|
|
||||||
ExplicitLeft = 250
|
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton
|
inherited ToolButton9: TToolButton
|
||||||
Left = 267
|
Left = 345
|
||||||
Top = 49
|
Top = 27
|
||||||
ExplicitLeft = 267
|
ExplicitLeft = 345
|
||||||
ExplicitTop = 49
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton
|
inherited ToolButton10: TToolButton
|
||||||
Left = 412
|
Left = 490
|
||||||
Top = 49
|
Top = 27
|
||||||
ExplicitLeft = 412
|
ExplicitLeft = 490
|
||||||
ExplicitTop = 49
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton11: TToolButton
|
||||||
Left = 537
|
Left = 615
|
||||||
Top = 49
|
Top = 27
|
||||||
ExplicitLeft = 537
|
ExplicitLeft = 615
|
||||||
ExplicitTop = 49
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
@ -339,16 +342,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
|
||||||
Top = 607
|
|
||||||
Width = 855
|
|
||||||
Panels = <
|
|
||||||
item
|
|
||||||
Width = 200
|
|
||||||
end>
|
|
||||||
ExplicitTop = 607
|
|
||||||
ExplicitWidth = 855
|
|
||||||
end
|
|
||||||
inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
|
inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 464
|
Top = 464
|
||||||
@ -372,18 +365,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitWidth = 855
|
ExplicitWidth = 855
|
||||||
ExplicitHeight = 143
|
ExplicitHeight = 143
|
||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Left = 338
|
Left = 437
|
||||||
Height = 201
|
Height = 201
|
||||||
ExplicitLeft = 338
|
ExplicitLeft = 437
|
||||||
ExplicitHeight = 201
|
ExplicitHeight = 201
|
||||||
end
|
end
|
||||||
inherited Bevel4: TBevel
|
inherited Bevel4: TBevel
|
||||||
Left = 471
|
Left = 570
|
||||||
Width = 342
|
ExplicitLeft = 570
|
||||||
Height = 9
|
|
||||||
ExplicitLeft = 471
|
|
||||||
ExplicitWidth = 342
|
|
||||||
ExplicitHeight = 9
|
|
||||||
end
|
end
|
||||||
inherited ImporteDto: TcxDBCurrencyEdit
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -393,24 +382,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 542
|
Left = 641
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 542
|
ExplicitLeft = 641
|
||||||
end
|
end
|
||||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 471
|
Left = 570
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 471
|
ExplicitLeft = 570
|
||||||
ExplicitWidth = 90
|
|
||||||
Width = 90
|
|
||||||
end
|
end
|
||||||
inherited edtDescuento: TcxDBSpinEdit
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -420,41 +407,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited edtIVA: TcxDBSpinEdit
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
Left = 471
|
Left = 570
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 471
|
ExplicitLeft = 570
|
||||||
end
|
end
|
||||||
inherited ImporteBase: TcxDBCurrencyEdit
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 471
|
Left = 570
|
||||||
DataBinding.DataField = 'IMPORTE_NETO'
|
DataBinding.DataField = 'IMPORTE_NETO'
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 471
|
ExplicitLeft = 570
|
||||||
end
|
end
|
||||||
inherited edtRE: TcxDBSpinEdit
|
inherited edtRE: TcxDBSpinEdit
|
||||||
Left = 471
|
Left = 570
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 471
|
ExplicitLeft = 570
|
||||||
end
|
end
|
||||||
inherited ImporteRE: TcxDBCurrencyEdit
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 542
|
Left = 641
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 542
|
ExplicitLeft = 641
|
||||||
end
|
end
|
||||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
@ -477,37 +464,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 190
|
Left = 289
|
||||||
ExplicitLeft = 190
|
ExplicitLeft = 289
|
||||||
end
|
end
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 221
|
|
||||||
Width = 221
|
|
||||||
end
|
|
||||||
inherited Panel1: TPanel
|
|
||||||
Width = 185
|
|
||||||
ExplicitWidth = 185
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList [5]
|
inherited StatusBar: TJvStatusBar [5]
|
||||||
Left = 32
|
Top = 607
|
||||||
Top = 96
|
Width = 855
|
||||||
object actEnviarEMail: TAction
|
Panels = <
|
||||||
Category = 'Acciones'
|
item
|
||||||
Caption = 'Enviar por e-mail...'
|
Width = 200
|
||||||
Enabled = False
|
end>
|
||||||
ImageIndex = 21
|
ExplicitTop = 607
|
||||||
Visible = False
|
ExplicitWidth = 855
|
||||||
OnExecute = actEnviarEMailExecute
|
|
||||||
OnUpdate = actEnviarEMailUpdate
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [6]
|
inherited SmallImages: TPngImageList
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -1013,7 +991,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList [7]
|
inherited LargeImages: TPngImageList
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -1809,10 +1787,23 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage [8]
|
inherited EditorActionList: TActionList [9]
|
||||||
|
Left = 32
|
||||||
|
Top = 96
|
||||||
|
object actEnviarEMail: TAction
|
||||||
|
Category = 'Acciones'
|
||||||
|
Caption = 'Enviar por e-mail...'
|
||||||
|
Enabled = False
|
||||||
|
ImageIndex = 21
|
||||||
|
Visible = False
|
||||||
|
OnExecute = actEnviarEMailExecute
|
||||||
|
OnUpdate = actEnviarEMailUpdate
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource [10]
|
inherited dsDataTable: TDADataSource [10]
|
||||||
Left = 24
|
Left = 24
|
||||||
Top = 136
|
Top = 136
|
||||||
end
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
||||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
||||||
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran,
|
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran,
|
||||||
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
||||||
@ -227,8 +227,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||||
{var
|
var
|
||||||
ADireccion : IBizDireccionesContacto;}
|
ADireccion : IBizDireccionesContacto;
|
||||||
begin
|
begin
|
||||||
if Assigned(FAlbaran) then
|
if Assigned(FAlbaran) then
|
||||||
begin
|
begin
|
||||||
@ -245,7 +245,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
// Elegir la dirección de envio
|
// Elegir la dirección de envio
|
||||||
{ case FAlbaran.Cliente.Direcciones.RecordCount of
|
case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||||
0 : begin
|
0 : begin
|
||||||
ADireccion := NIL;
|
ADireccion := NIL;
|
||||||
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
||||||
@ -260,7 +260,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
FAlbaran.Edit;
|
FAlbaran.Edit;
|
||||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
// FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||||
finally
|
finally
|
||||||
ADireccion := NIL;
|
ADireccion := NIL;
|
||||||
@ -268,10 +268,10 @@ begin
|
|||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
FController.QuitarDireccionEnvio(FAlbaran);
|
FController.QuitarDireccionEnvio(FAlbaran);
|
||||||
FAlbaran.Edit;
|
// FAlbaran.Edit;
|
||||||
FAlbaran.IMPORTE_PORTE := 0;
|
// FAlbaran.IMPORTE_PORTE := 0;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
|
|
||||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||||
// para los artículos hay que cambiarlos.
|
// para los artículos hay que cambiarlos.
|
||||||
|
|||||||
@ -199,10 +199,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
|||||||
inherited actAnchoAuto: TAction
|
inherited actAnchoAuto: TAction
|
||||||
ImageIndex = 22
|
ImageIndex = 22
|
||||||
end
|
end
|
||||||
inherited actExportarExcel: TAction
|
|
||||||
Enabled = False
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
object actGenerarFactura: TAction
|
object actGenerarFactura: TAction
|
||||||
Category = 'Acciones'
|
Category = 'Acciones'
|
||||||
Caption = 'Generar factura'
|
Caption = 'Generar factura'
|
||||||
|
|||||||
@ -483,7 +483,7 @@ begin
|
|||||||
// end;
|
// end;
|
||||||
// 100 : begin // Albaran nuevo vacio
|
// 100 : begin // Albaran nuevo vacio
|
||||||
if FController.Anadir(Albaranes) then
|
if FController.Anadir(Albaranes) then
|
||||||
FController.Ver(Albaranes);
|
FController.Ver(Albaranes);
|
||||||
// end;
|
// end;
|
||||||
// end;
|
// end;
|
||||||
// end;
|
// end;
|
||||||
|
|||||||
@ -137,6 +137,7 @@ type
|
|||||||
FFormasPago : IBizFormaPago;
|
FFormasPago : IBizFormaPago;
|
||||||
FFormasPagoController : IFormasPagoController;
|
FFormasPagoController : IFormasPagoController;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
|
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
@ -243,27 +244,29 @@ end;
|
|||||||
procedure TfrViewAlbaranCliente.CargarPoblaciones;
|
procedure TfrViewAlbaranCliente.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
begin
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
with TProvinciasPoblacionesController.Create do
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
with cbPoblacion.Properties.Items do
|
||||||
begin
|
begin
|
||||||
BeginUpdate;
|
BeginUpdate;
|
||||||
try
|
try
|
||||||
Clear;
|
Clear;
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
Add(FPoblaciones.Names[i]);
|
Add(FPoblaciones.Names[i]);
|
||||||
finally
|
finally
|
||||||
EndUpdate;
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewAlbaranCliente.CargarProvincias;
|
procedure TfrViewAlbaranCliente.CargarProvincias;
|
||||||
|
|||||||
@ -1,6 +1,9 @@
|
|||||||
inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||||
Width = 802
|
Width = 802
|
||||||
Height = 490
|
Height = 490
|
||||||
|
OnCreate = CustomViewCreate
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 802
|
ExplicitWidth = 802
|
||||||
ExplicitHeight = 490
|
ExplicitHeight = 490
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
@ -142,8 +145,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
end
|
end
|
||||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PROVINCIA'
|
DataBinding.FieldName = 'PROVINCIA'
|
||||||
Visible = False
|
|
||||||
VisibleForCustomization = False
|
|
||||||
end
|
end
|
||||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||||
@ -221,25 +222,33 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
|||||||
Width = 228
|
Width = 228
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 257
|
Left = 252
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 257
|
ExplicitLeft = 252
|
||||||
ExplicitWidth = 460
|
ExplicitWidth = 460
|
||||||
Width = 460
|
Width = 460
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 638
|
Left = 647
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 638
|
ExplicitLeft = 647
|
||||||
ExplicitWidth = 215
|
ExplicitWidth = 215
|
||||||
Width = 215
|
Width = 215
|
||||||
end
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Provincia:'
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 792
|
Width = 792
|
||||||
|
|||||||
@ -78,16 +78,25 @@ type
|
|||||||
procedure cxGridViewDataControllerCompare(
|
procedure cxGridViewDataControllerCompare(
|
||||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||||
|
procedure OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
//Filtros relativos a la vista
|
//Filtros relativos a la vista
|
||||||
procedure AnadirFiltroSituaciones;
|
procedure AnadirFiltroSituaciones;
|
||||||
procedure AnadirFiltroFechas;
|
procedure AnadirFiltroFechas;
|
||||||
|
procedure AnadirFiltroProvincia;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
|
FProvincias : TStringList;
|
||||||
FAlbaranes: IBizAlbaranCliente;
|
FAlbaranes: IBizAlbaranCliente;
|
||||||
function GetAlbaranes: IBizAlbaranCliente;
|
function GetAlbaranes: IBizAlbaranCliente;
|
||||||
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
|
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||||
|
procedure CargarProvincias;
|
||||||
|
|
||||||
public
|
public
|
||||||
procedure AnadirOtrosFiltros; override;
|
procedure AnadirOtrosFiltros; override;
|
||||||
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
|
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
|
||||||
@ -97,7 +106,7 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
|
SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
|
||||||
uViewGridBase, uReferenciasUtils, cxVariants;
|
uViewGridBase, uReferenciasUtils, cxVariants, uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -166,6 +175,23 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.AnadirFiltroProvincia;
|
||||||
|
var
|
||||||
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
|
begin
|
||||||
|
|
||||||
|
//Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
|
||||||
|
//y sobre la lista de pedidos
|
||||||
|
if frViewFiltroBase1.Visible then
|
||||||
|
begin
|
||||||
|
if (VarToStr(frViewFiltroBase1.eLista.EditValue) <> 'Todos') then
|
||||||
|
begin
|
||||||
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
FFiltro.AddItem(cxGridViewPROVINCIA, foEqual, VarToStr(frViewFiltroBase1.eLista.EditValue), VarToStr(frViewFiltroBase1.eLista.EditValue));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewAlbaranesCliente.AnadirFiltroSituaciones;
|
procedure TfrViewAlbaranesCliente.AnadirFiltroSituaciones;
|
||||||
var
|
var
|
||||||
FFiltro : TcxFilterCriteriaItemList;
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
@ -192,6 +218,7 @@ begin
|
|||||||
|
|
||||||
AnadirFiltroSituaciones;
|
AnadirFiltroSituaciones;
|
||||||
AnadirFiltroFechas;
|
AnadirFiltroFechas;
|
||||||
|
AnadirFiltroProvincia;
|
||||||
|
|
||||||
//Finalmente activamos el filtro si tenemos algo
|
//Finalmente activamos el filtro si tenemos algo
|
||||||
if cxGridView.DataController.Filter.IsEmpty
|
if cxGridView.DataController.Filter.IsEmpty
|
||||||
@ -200,6 +227,57 @@ begin
|
|||||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with frViewFiltroBase1.eLista.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
Add('Todos'); //Case 0
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
|
||||||
|
frViewFiltroBase1.eLista.ItemIndex := 0;
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.CustomViewCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := Nil;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
|
||||||
|
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -272,6 +350,24 @@ begin
|
|||||||
Result := FAlbaranes;
|
Result := FAlbaranes;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarFiltro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlbaranesCliente.OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewAlbaranesCliente.SetAlbaranes(const Value: IBizAlbaranCliente);
|
procedure TfrViewAlbaranesCliente.SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||||
begin
|
begin
|
||||||
FAlbaranes := Value;
|
FAlbaranes := Value;
|
||||||
|
|||||||
@ -12,8 +12,6 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
|||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
|
||||||
ExplicitHeight = 129
|
|
||||||
object eCalle: TcxDBTextEdit
|
object eCalle: TcxDBTextEdit
|
||||||
Left = 64
|
Left = 64
|
||||||
Top = 10
|
Top = 10
|
||||||
@ -142,64 +140,67 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
|||||||
Width = 263
|
Width = 263
|
||||||
end
|
end
|
||||||
object dxLayoutGroup1: TdxLayoutGroup
|
object dxLayoutGroup1: TdxLayoutGroup
|
||||||
ShowCaption = False
|
AlignHorz = ahParentManaged
|
||||||
|
AlignVert = avParentManaged
|
||||||
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
Caption = 'Calle:'
|
CaptionOptions.Text = 'Calle:'
|
||||||
Control = eCalle
|
Control = eCalle
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Provincia:'
|
CaptionOptions.Text = 'Provincia:'
|
||||||
Control = cbProvincia
|
Control = cbProvincia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
Caption = 'C.P.:'
|
CaptionOptions.Text = 'C.P.:'
|
||||||
Control = eCodigoPostal
|
Control = eCodigoPostal
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
Caption = 'Poblaci'#243'n:'
|
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||||
Control = cbPoblacion
|
Control = cbPoblacion
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
ShowCaption = False
|
CaptionOptions.Visible = False
|
||||||
|
ButtonOptions.Buttons = <>
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item6: TdxLayoutItem
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Contacto:'
|
CaptionOptions.Text = 'Contacto:'
|
||||||
Control = ePersonaContacto
|
Control = ePersonaContacto
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahRight
|
AlignHorz = ahRight
|
||||||
Caption = 'Tel'#233'fono:'
|
CaptionOptions.Text = 'Tel'#233'fono:'
|
||||||
Control = eTlfTrabajo
|
Control = eTlfTrabajo
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,7 +7,8 @@ uses
|
|||||||
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
|
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
|
||||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
||||||
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces;
|
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
|
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
|
||||||
@ -47,7 +48,9 @@ type
|
|||||||
FAlbaran : IBizAlbaranCliente;
|
FAlbaran : IBizAlbaranCliente;
|
||||||
FController : IAlbaranesClienteController;
|
FController : IAlbaranesClienteController;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
|
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
procedure CargarPoblaciones;
|
procedure CargarPoblaciones;
|
||||||
function GetAlbaranCliente: IBizAlbaranCliente;
|
function GetAlbaranCliente: IBizAlbaranCliente;
|
||||||
@ -71,27 +74,29 @@ uses
|
|||||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
|
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
begin
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
with TProvinciasPoblacionesController.Create do
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
with cbPoblacion.Properties.Items do
|
||||||
begin
|
begin
|
||||||
BeginUpdate;
|
BeginUpdate;
|
||||||
try
|
try
|
||||||
Clear;
|
Clear;
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
Add(FPoblaciones.Names[i]);
|
Add(FPoblaciones.Names[i]);
|
||||||
finally
|
finally
|
||||||
EndUpdate;
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
|
procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
|
||||||
@ -168,6 +173,7 @@ end;
|
|||||||
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
|
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FAlbaran := NIL;
|
FAlbaran := NIL;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
|
|||||||
@ -6,7 +6,8 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|||||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor,
|
uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor,
|
||||||
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit;
|
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor)
|
TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor)
|
||||||
@ -38,6 +39,7 @@ type
|
|||||||
pDireccion: String;
|
pDireccion: String;
|
||||||
pPoblacion: String;
|
pPoblacion: String;
|
||||||
pProvincia: String;
|
pProvincia: String;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
pCodigoPostal: String;
|
pCodigoPostal: String;
|
||||||
pPersonaContacto: String;
|
pPersonaContacto: String;
|
||||||
pTelefono: String;
|
pTelefono: String;
|
||||||
@ -63,27 +65,30 @@ uses
|
|||||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarPoblaciones;
|
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
with TProvinciasPoblacionesController.Create do
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
try
|
||||||
Add(FPoblaciones.Names[i]);
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
finally
|
|
||||||
EndUpdate;
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
|
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
|
||||||
@ -154,6 +159,7 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
|
procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -51,6 +51,7 @@ type
|
|||||||
FAlmacen: IBizAlmacen;
|
FAlmacen: IBizAlmacen;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
procedure CargarPoblaciones;
|
procedure CargarPoblaciones;
|
||||||
function GetAlmacen: IBizAlmacen;
|
function GetAlmacen: IBizAlmacen;
|
||||||
@ -78,27 +79,30 @@ uses
|
|||||||
procedure TfrViewAlmacen.CargarPoblaciones;
|
procedure TfrViewAlmacen.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
with TProvinciasPoblacionesController.Create do
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
try
|
||||||
Add(FPoblaciones.Names[i]);
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
finally
|
|
||||||
EndUpdate;
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewAlmacen.CargarProvincias;
|
procedure TfrViewAlmacen.CargarProvincias;
|
||||||
@ -153,6 +157,7 @@ end;
|
|||||||
constructor TfrViewAlmacen.Create(AOwner: TComponent);
|
constructor TfrViewAlmacen.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Binary file not shown.
@ -38,28 +38,30 @@
|
|||||||
<DelphiCompile Include="Comisiones_controller.dpk">
|
<DelphiCompile Include="Comisiones_controller.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\Comisiones_data.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\Comisiones_model.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\Contactos_controller.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\dxCoreD11.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
|
||||||
<DCCReference Include="uComisionesController.pas" />
|
<DCCReference Include="uComisionesController.pas" />
|
||||||
|
<DCCReference Include="uComisionesReportController.pas" />
|
||||||
|
<DCCReference Include="View\adortl.dcp" />
|
||||||
|
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="View\Comisiones_data.dcp" />
|
||||||
|
<DCCReference Include="View\Comisiones_model.dcp" />
|
||||||
|
<DCCReference Include="View\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="View\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="View\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="View\dsnap.dcp" />
|
||||||
|
<DCCReference Include="View\dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="View\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="View\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="View\FacturasCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="View\FacturasCliente_model.dcp" />
|
||||||
|
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="View\rtl.dcp" />
|
||||||
<DCCReference Include="View\uIEditorComision.pas" />
|
<DCCReference Include="View\uIEditorComision.pas" />
|
||||||
<DCCReference Include="View\uIEditorComisiones.pas" />
|
<DCCReference Include="View\uIEditorComisiones.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
|
||||||
|
<DCCReference Include="View\vcl.dcp" />
|
||||||
|
<DCCReference Include="View\vcldb.dcp" />
|
||||||
|
<DCCReference Include="View\vclx.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -0,0 +1,16 @@
|
|||||||
|
unit uIEditorComisionesPreview;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorPreview, uComisionesReportController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorComisionesPreview = interface(IEditorPreview)
|
||||||
|
['{532597DC-84EE-4CFD-8F23-E60A5854B311}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -97,7 +97,7 @@ uses
|
|||||||
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
|
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
|
||||||
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
|
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
|
||||||
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
|
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
|
||||||
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController;
|
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController, uComisionesReportController;
|
||||||
|
|
||||||
|
|
||||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||||
@ -923,13 +923,13 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
|
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
|
||||||
{var
|
var
|
||||||
AReportController : IComisionesReportController;
|
AReportController : IComisionesReportController;
|
||||||
ID_Facturas: TIntegerList;
|
ID_Comisiones: TIntegerList;
|
||||||
}
|
|
||||||
begin
|
begin
|
||||||
{ AReportController := TComisionesReportController.Create;
|
AReportController := TComisionesReportController.Create;
|
||||||
ID_Facturas := TIntegerList.Create;
|
ID_Comisiones := TIntegerList.Create;
|
||||||
|
|
||||||
try
|
try
|
||||||
//Si deseamos previsualizar todos los items del objeto albaran
|
//Si deseamos previsualizar todos los items del objeto albaran
|
||||||
@ -940,32 +940,31 @@ begin
|
|||||||
First;
|
First;
|
||||||
while not EOF do
|
while not EOF do
|
||||||
begin
|
begin
|
||||||
ID_Facturas.Add(AComision.ID);
|
ID_Comisiones.Add(AComision.ID);
|
||||||
Next;
|
Next;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
//Solo previsualizamos el item seleccionado
|
//Solo previsualizamos el item seleccionado
|
||||||
else
|
else
|
||||||
ID_Facturas.Add(AComision.ID);
|
ID_Comisiones.Add(AComision.ID);
|
||||||
|
|
||||||
AReportController.Preview(ID_Facturas, AOriginal, ACopia, AContabilidad);
|
AReportController.Preview(ID_Comisiones);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AReportController := NIL;
|
AReportController := NIL;
|
||||||
FreeANDNIL(ID_Facturas);
|
FreeANDNIL(ID_Comisiones);
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
|
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
|
||||||
{var
|
var
|
||||||
AReportController : IComisionesReportController;
|
AReportController : IComisionesReportController;
|
||||||
ID_Facturas: TIntegerList;
|
ID_Comisiones: TIntegerList;
|
||||||
}
|
|
||||||
begin
|
begin
|
||||||
{ AReportController := TComisionesReportController.Create;
|
AReportController := TComisionesReportController.Create;
|
||||||
ID_Facturas := TIntegerList.Create;
|
ID_Comisiones := TIntegerList.Create;
|
||||||
|
|
||||||
try
|
try
|
||||||
//Si deseamos previsualizar todos los items del objeto albaran
|
//Si deseamos previsualizar todos los items del objeto albaran
|
||||||
@ -976,22 +975,21 @@ begin
|
|||||||
First;
|
First;
|
||||||
while not EOF do
|
while not EOF do
|
||||||
begin
|
begin
|
||||||
ID_Facturas.Add(AComision.ID);
|
ID_Comisiones.Add(AComision.ID);
|
||||||
Next;
|
Next;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
//Solo previsualizamos el item seleccionado
|
//Solo previsualizamos el item seleccionado
|
||||||
else
|
else
|
||||||
ID_Facturas.Add(AComision.ID);
|
ID_Comisiones.Add(AComision.ID);
|
||||||
|
|
||||||
AReportController.Print(ID_Facturas, AOriginal, ACopia, AContabilidad);
|
AReportController.Print(ID_Comisiones);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
AReportController := NIL;
|
AReportController := NIL;
|
||||||
FreeANDNIL(ID_Facturas);
|
FreeANDNIL(ID_Comisiones);
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -0,0 +1,117 @@
|
|||||||
|
unit uComisionesReportController;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleComisionesReport,
|
||||||
|
uBizComisiones, uIntegerListUtils;
|
||||||
|
|
||||||
|
type
|
||||||
|
IComisionesReportController = interface(IControllerBase)
|
||||||
|
['{60FDD06C-2B59-4276-BC24-D14EBCB87FE6}']
|
||||||
|
procedure Preview(const AListaID : TIntegerList);
|
||||||
|
procedure Print(const AListaID : TIntegerList);
|
||||||
|
end;
|
||||||
|
|
||||||
|
TComisionesReportController = class(TControllerBase, IComisionesReportController)
|
||||||
|
private
|
||||||
|
FDataModule : IDataModuleComisionesReport;
|
||||||
|
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
public
|
||||||
|
constructor Create; override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
procedure Preview(const AListaID : TIntegerList);
|
||||||
|
procedure Print(const AListaID : TIntegerList);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uROTypes, uEditorRegistryUtils,
|
||||||
|
uIEditorComisionesPreview,
|
||||||
|
uEditorPreview, uDataModuleComisiones, uEditorBase, cxControls,
|
||||||
|
uStringsUtils, uSistemaFunc;
|
||||||
|
|
||||||
|
{ TComisionesReportController }
|
||||||
|
|
||||||
|
constructor TComisionesReportController.Create;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TComisionesReportController.CreateEditor(const AName: String;
|
||||||
|
const IID: TGUID; out Intf): Boolean;
|
||||||
|
begin
|
||||||
|
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
destructor TComisionesReportController.Destroy;
|
||||||
|
begin
|
||||||
|
FDataModule := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesReportController.Preview(const AListaID : TIntegerList);
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
AEditor : IEditorComisionesPreview;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := FDataModule.GetRptComisiones(AListaID);
|
||||||
|
try
|
||||||
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.Controller := Self;
|
||||||
|
AEditor.ListaID := AListaID;
|
||||||
|
AEditor.LoadFromStream(AStream);
|
||||||
|
AEditor.Preview;
|
||||||
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
AEditor := Nil;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TComisionesReportController.Print(const AListaID : TIntegerList);
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
AEditor : IEditorComisionesPreview;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := FDataModule.GetRptComisiones(AListaID);
|
||||||
|
try
|
||||||
|
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.Controller := Self;
|
||||||
|
AEditor.LoadFromStream(AStream);
|
||||||
|
AEditor.Print;
|
||||||
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
AEditor := Nil;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -10,12 +10,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
object rda_Comisiones: TDARemoteDataAdapter
|
object rda_Comisiones: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
GetSchemaCall.RemoteService = RORemoteService
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
UpdateDataCall.RemoteService = RORemoteService
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
GetScriptsCall.RemoteService = RORemoteService
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
RemoteService = RORemoteService
|
RemoteService = RORemoteService
|
||||||
DataStreamer = Bin2DataStreamer
|
|
||||||
Left = 51
|
Left = 51
|
||||||
Top = 143
|
Top = 143
|
||||||
end
|
end
|
||||||
@ -32,7 +32,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
Size = 254
|
Size = 254
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Comisiones
|
RemoteDataAdapter = rda_Comisiones
|
||||||
LogicalName = 'ListaAnosComisiones'
|
LogicalName = 'ListaAnosComisiones'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
@ -52,6 +52,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datAutoInc
|
DataType = datAutoInc
|
||||||
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||||
|
ServerAutoRefresh = True
|
||||||
DictionaryEntry = 'Comisiones_ID'
|
DictionaryEntry = 'Comisiones_ID'
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
end
|
end
|
||||||
@ -108,7 +109,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
DictionaryEntry = 'Comisiones_USUARIO'
|
DictionaryEntry = 'Comisiones_USUARIO'
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Comisiones
|
RemoteDataAdapter = rda_Comisiones
|
||||||
LogicalName = 'Comisiones'
|
LogicalName = 'Comisiones'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
@ -129,7 +130,8 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
DataType = datAutoInc
|
DataType = datAutoInc
|
||||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||||
Required = True
|
Required = True
|
||||||
DictionaryEntry = 'FacturasCliente_ID'
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'FacturasComision_ID'
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -214,7 +216,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
|||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
MasterMappingMode = mmWhere
|
MasterMappingMode = mmWhere
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Comisiones
|
RemoteDataAdapter = rda_Comisiones
|
||||||
MasterSource = ds_Comisiones
|
MasterSource = ds_Comisiones
|
||||||
MasterFields = 'ID'
|
MasterFields = 'ID'
|
||||||
|
|||||||
@ -7,13 +7,13 @@ uses
|
|||||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||||
uRORemoteService, uROClient, uROBinMessage,
|
uRORemoteService, uROClient, uROBinMessage,
|
||||||
|
|
||||||
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport,
|
uIDataModuleComisiones, uBizComisiones, uIDataModuleComisionesReport,
|
||||||
uDADesigntimeCall, uDataModuleBase,
|
uDADesigntimeCall, uDataModuleBase,
|
||||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||||
uDARemoteDataAdapter, uIntegerListUtils;
|
uDARemoteDataAdapter, uIntegerListUtils;
|
||||||
|
|
||||||
type
|
type
|
||||||
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport)
|
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||||
RORemoteService: TRORemoteService;
|
RORemoteService: TRORemoteService;
|
||||||
rda_Comisiones: TDARemoteDataAdapter;
|
rda_Comisiones: TDARemoteDataAdapter;
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
@ -33,7 +33,7 @@ type
|
|||||||
function NewItem : IBizComision;
|
function NewItem : IBizComision;
|
||||||
|
|
||||||
// Report
|
// Report
|
||||||
// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
|
function GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -52,19 +52,18 @@ begin
|
|||||||
RORemoteService.Message := dmConexion.Message;
|
RORemoteService.Message := dmConexion.Message;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{
|
|
||||||
function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
|
function TDataModuleComisiones.GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||||
var
|
var
|
||||||
AParam : TIntegerArray;
|
AParam : TIntegerArray;
|
||||||
begin
|
begin
|
||||||
AParam := AListaID.ToIntegerArray;
|
AParam := AListaID.ToIntegerArray;
|
||||||
try
|
try
|
||||||
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad);
|
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam);
|
||||||
finally
|
finally
|
||||||
// FreeANDNIL(AParam);
|
FreeANDNIL(AParam);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
|
|
||||||
function TDataModuleComisiones.NewItem: IBizComision;
|
function TDataModuleComisiones.NewItem: IBizComision;
|
||||||
begin
|
begin
|
||||||
|
|||||||
Binary file not shown.
@ -51,6 +51,7 @@
|
|||||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="Data\rtl.dcp" />
|
<DCCReference Include="Data\rtl.dcp" />
|
||||||
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
|
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
|
||||||
|
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
|
||||||
<DCCReference Include="Data\vcl.dcp" />
|
<DCCReference Include="Data\vcl.dcp" />
|
||||||
<DCCReference Include="Data\vcldb.dcp" />
|
<DCCReference Include="Data\vcldb.dcp" />
|
||||||
<DCCReference Include="Data\vclx.dcp" />
|
<DCCReference Include="Data\vclx.dcp" />
|
||||||
|
|||||||
@ -0,0 +1,16 @@
|
|||||||
|
unit uIDataModuleComisionesReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, uROTypes, uIntegerListUtils;
|
||||||
|
|
||||||
|
type
|
||||||
|
IDataModuleComisionesReport = interface
|
||||||
|
['{D445F984-7696-448F-9FC4-162AA7288515}']
|
||||||
|
function GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -1,6 +1,5 @@
|
|||||||
unit schComisionesClient_Intf;
|
unit schComisionesClient_Intf;
|
||||||
|
|
||||||
{$D-}
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -10,18 +9,14 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosComisiones = '{124A6A45-F446-409F-9C7E-A8CD5A84C5D0}';
|
RID_ListaAnosComisiones = '{66E00D22-209F-4E5E-85DF-BE652D61F802}';
|
||||||
RID_FacturasComision = '{832CC300-EC95-4807-B0C0-93F9F63F64E7}';
|
RID_FacturasComision = '{A126BC5D-015C-4584-A4B9-0A06FF260E0F}';
|
||||||
RID_Comisiones = '{66A2E21C-016E-4850-8315-0289EB4EB403}';
|
RID_Comisiones = '{E62AD8E5-0BBA-4075-88FC-90D4A33BFEDA}';
|
||||||
RID_FacturasComision_Refresh = '{29AE784C-2303-4744-881D-CE76B889D5FB}';
|
|
||||||
RID_Comisiones_Refresh = '{0F16C4E7-4468-4755-BBBE-453BA603474C}';
|
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosComisiones = 'ListaAnosComisiones';
|
nme_ListaAnosComisiones = 'ListaAnosComisiones';
|
||||||
nme_FacturasComision = 'FacturasComision';
|
nme_FacturasComision = 'FacturasComision';
|
||||||
nme_Comisiones = 'Comisiones';
|
nme_Comisiones = 'Comisiones';
|
||||||
nme_FacturasComision_Refresh = 'FacturasComision_Refresh';
|
|
||||||
nme_Comisiones_Refresh = 'Comisiones_Refresh';
|
|
||||||
|
|
||||||
{ ListaAnosComisiones fields }
|
{ ListaAnosComisiones fields }
|
||||||
fld_ListaAnosComisionesANO = 'ANO';
|
fld_ListaAnosComisionesANO = 'ANO';
|
||||||
@ -83,64 +78,10 @@ const
|
|||||||
idx_ComisionesIMPORTE_TOTAL = 7;
|
idx_ComisionesIMPORTE_TOTAL = 7;
|
||||||
idx_ComisionesUSUARIO = 8;
|
idx_ComisionesUSUARIO = 8;
|
||||||
|
|
||||||
{ FacturasComision_Refresh fields }
|
|
||||||
fld_FacturasComision_RefreshID = 'ID';
|
|
||||||
fld_FacturasComision_RefreshID_EMPRESA = 'ID_EMPRESA';
|
|
||||||
fld_FacturasComision_RefreshID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
|
|
||||||
fld_FacturasComision_RefreshREFERENCIA = 'REFERENCIA';
|
|
||||||
fld_FacturasComision_RefreshFECHA_FACTURA = 'FECHA_FACTURA';
|
|
||||||
fld_FacturasComision_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
|
|
||||||
fld_FacturasComision_RefreshSITUACION = 'SITUACION';
|
|
||||||
fld_FacturasComision_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
|
||||||
fld_FacturasComision_RefreshID_CLIENTE = 'ID_CLIENTE';
|
|
||||||
fld_FacturasComision_RefreshNIF_CIF = 'NIF_CIF';
|
|
||||||
fld_FacturasComision_RefreshNOMBRE = 'NOMBRE';
|
|
||||||
fld_FacturasComision_RefreshID_AGENTE = 'ID_AGENTE';
|
|
||||||
fld_FacturasComision_RefreshCOMISION = 'COMISION';
|
|
||||||
fld_FacturasComision_RefreshIMPORTE_COMISION = 'IMPORTE_COMISION';
|
|
||||||
|
|
||||||
{ FacturasComision_Refresh field indexes }
|
|
||||||
idx_FacturasComision_RefreshID = 0;
|
|
||||||
idx_FacturasComision_RefreshID_EMPRESA = 1;
|
|
||||||
idx_FacturasComision_RefreshID_COMISION_LIQUIDADA = 2;
|
|
||||||
idx_FacturasComision_RefreshREFERENCIA = 3;
|
|
||||||
idx_FacturasComision_RefreshFECHA_FACTURA = 4;
|
|
||||||
idx_FacturasComision_RefreshFECHA_VENCIMIENTO = 5;
|
|
||||||
idx_FacturasComision_RefreshSITUACION = 6;
|
|
||||||
idx_FacturasComision_RefreshBASE_IMPONIBLE = 7;
|
|
||||||
idx_FacturasComision_RefreshID_CLIENTE = 8;
|
|
||||||
idx_FacturasComision_RefreshNIF_CIF = 9;
|
|
||||||
idx_FacturasComision_RefreshNOMBRE = 10;
|
|
||||||
idx_FacturasComision_RefreshID_AGENTE = 11;
|
|
||||||
idx_FacturasComision_RefreshCOMISION = 12;
|
|
||||||
idx_FacturasComision_RefreshIMPORTE_COMISION = 13;
|
|
||||||
|
|
||||||
{ Comisiones_Refresh fields }
|
|
||||||
fld_Comisiones_RefreshID = 'ID';
|
|
||||||
fld_Comisiones_RefreshID_EMPRESA = 'ID_EMPRESA';
|
|
||||||
fld_Comisiones_RefreshREFERENCIA = 'REFERENCIA';
|
|
||||||
fld_Comisiones_RefreshID_AGENTE = 'ID_AGENTE';
|
|
||||||
fld_Comisiones_RefreshAGENTE = 'AGENTE';
|
|
||||||
fld_Comisiones_RefreshDESCRIPCION = 'DESCRIPCION';
|
|
||||||
fld_Comisiones_RefreshFECHA = 'FECHA';
|
|
||||||
fld_Comisiones_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
|
||||||
fld_Comisiones_RefreshUSUARIO = 'USUARIO';
|
|
||||||
|
|
||||||
{ Comisiones_Refresh field indexes }
|
|
||||||
idx_Comisiones_RefreshID = 0;
|
|
||||||
idx_Comisiones_RefreshID_EMPRESA = 1;
|
|
||||||
idx_Comisiones_RefreshREFERENCIA = 2;
|
|
||||||
idx_Comisiones_RefreshID_AGENTE = 3;
|
|
||||||
idx_Comisiones_RefreshAGENTE = 4;
|
|
||||||
idx_Comisiones_RefreshDESCRIPCION = 5;
|
|
||||||
idx_Comisiones_RefreshFECHA = 6;
|
|
||||||
idx_Comisiones_RefreshIMPORTE_TOTAL = 7;
|
|
||||||
idx_Comisiones_RefreshUSUARIO = 8;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IListaAnosComisiones }
|
{ IListaAnosComisiones }
|
||||||
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
|
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
|
||||||
['{E5D0E523-CFA7-49C9-AC39-4495CD5F10B7}']
|
['{1349D704-D40A-462B-95FE-2038BE81C5FE}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -175,7 +116,7 @@ type
|
|||||||
|
|
||||||
{ IFacturasComision }
|
{ IFacturasComision }
|
||||||
IFacturasComision = interface(IDAStronglyTypedDataTable)
|
IFacturasComision = interface(IDAStronglyTypedDataTable)
|
||||||
['{5B66CE03-2FFD-472C-8752-D5A8894D7340}']
|
['{C3BFD07E-6C74-4487-8281-11341EB61A5B}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -366,7 +307,7 @@ type
|
|||||||
|
|
||||||
{ IComisiones }
|
{ IComisiones }
|
||||||
IComisiones = interface(IDAStronglyTypedDataTable)
|
IComisiones = interface(IDAStronglyTypedDataTable)
|
||||||
['{B02238A8-1502-4A07-8E95-EF01498C7832}']
|
['{8B6313BD-F198-4D7D-9695-70B105957CB3}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -495,328 +436,6 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ IFacturasComision_Refresh }
|
|
||||||
IFacturasComision_Refresh = interface(IDAStronglyTypedDataTable)
|
|
||||||
['{F7638285-0C09-4658-8B7D-AFF5C7B59BF0}']
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetIDValue: Integer;
|
|
||||||
procedure SetIDValue(const aValue: Integer);
|
|
||||||
function GetIDIsNull: Boolean;
|
|
||||||
procedure SetIDIsNull(const aValue: Boolean);
|
|
||||||
function GetID_EMPRESAValue: Integer;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
function GetID_EMPRESAIsNull: Boolean;
|
|
||||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
||||||
function GetID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
|
||||||
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
|
|
||||||
function GetREFERENCIAValue: String;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String);
|
|
||||||
function GetREFERENCIAIsNull: Boolean;
|
|
||||||
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
|
||||||
function GetFECHA_FACTURAValue: DateTime;
|
|
||||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
||||||
function GetFECHA_FACTURAIsNull: Boolean;
|
|
||||||
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
|
||||||
function GetFECHA_VENCIMIENTOValue: DateTime;
|
|
||||||
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
||||||
function GetFECHA_VENCIMIENTOIsNull: Boolean;
|
|
||||||
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
|
||||||
function GetSITUACIONValue: String;
|
|
||||||
procedure SetSITUACIONValue(const aValue: String);
|
|
||||||
function GetSITUACIONIsNull: Boolean;
|
|
||||||
procedure SetSITUACIONIsNull(const aValue: Boolean);
|
|
||||||
function GetBASE_IMPONIBLEValue: Currency;
|
|
||||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
|
|
||||||
function GetBASE_IMPONIBLEIsNull: Boolean;
|
|
||||||
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
|
|
||||||
function GetID_CLIENTEValue: Integer;
|
|
||||||
procedure SetID_CLIENTEValue(const aValue: Integer);
|
|
||||||
function GetID_CLIENTEIsNull: Boolean;
|
|
||||||
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
|
|
||||||
function GetNIF_CIFValue: String;
|
|
||||||
procedure SetNIF_CIFValue(const aValue: String);
|
|
||||||
function GetNIF_CIFIsNull: Boolean;
|
|
||||||
procedure SetNIF_CIFIsNull(const aValue: Boolean);
|
|
||||||
function GetNOMBREValue: String;
|
|
||||||
procedure SetNOMBREValue(const aValue: String);
|
|
||||||
function GetNOMBREIsNull: Boolean;
|
|
||||||
procedure SetNOMBREIsNull(const aValue: Boolean);
|
|
||||||
function GetID_AGENTEValue: Integer;
|
|
||||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
function GetID_AGENTEIsNull: Boolean;
|
|
||||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
|
||||||
function GetCOMISIONValue: Float;
|
|
||||||
procedure SetCOMISIONValue(const aValue: Float);
|
|
||||||
function GetCOMISIONIsNull: Boolean;
|
|
||||||
procedure SetCOMISIONIsNull(const aValue: Boolean);
|
|
||||||
function GetIMPORTE_COMISIONValue: Currency;
|
|
||||||
procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
|
|
||||||
function GetIMPORTE_COMISIONIsNull: Boolean;
|
|
||||||
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
|
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
|
||||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
||||||
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
|
||||||
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
||||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
||||||
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
|
||||||
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
|
||||||
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
|
||||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
|
||||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
|
||||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
|
||||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
||||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
|
||||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
|
||||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
|
||||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
||||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
||||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
||||||
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
|
|
||||||
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
|
||||||
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TFacturasComision_RefreshDataTableRules }
|
|
||||||
TFacturasComision_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision_Refresh)
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetIDValue: Integer; virtual;
|
|
||||||
procedure SetIDValue(const aValue: Integer); virtual;
|
|
||||||
function GetIDIsNull: Boolean; virtual;
|
|
||||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
||||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
|
|
||||||
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetREFERENCIAValue: String; virtual;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
||||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
||||||
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
||||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
||||||
function GetFECHA_FACTURAIsNull: Boolean; virtual;
|
|
||||||
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
|
|
||||||
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
|
|
||||||
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
|
|
||||||
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetSITUACIONValue: String; virtual;
|
|
||||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
|
||||||
function GetSITUACIONIsNull: Boolean; virtual;
|
|
||||||
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetBASE_IMPONIBLEValue: Currency; virtual;
|
|
||||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
|
|
||||||
function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
|
|
||||||
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetID_CLIENTEValue: Integer; virtual;
|
|
||||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_CLIENTEIsNull: Boolean; virtual;
|
|
||||||
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetNIF_CIFValue: String; virtual;
|
|
||||||
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
|
||||||
function GetNIF_CIFIsNull: Boolean; virtual;
|
|
||||||
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetNOMBREValue: String; virtual;
|
|
||||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
||||||
function GetNOMBREIsNull: Boolean; virtual;
|
|
||||||
procedure SetNOMBREIsNull(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 GetCOMISIONValue: Float; virtual;
|
|
||||||
procedure SetCOMISIONValue(const aValue: Float); virtual;
|
|
||||||
function GetCOMISIONIsNull: Boolean; virtual;
|
|
||||||
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetIMPORTE_COMISIONValue: Currency; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
|
|
||||||
function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
|
|
||||||
procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual;
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
|
||||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
||||||
property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
|
||||||
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
||||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
||||||
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
|
||||||
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
|
||||||
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
|
||||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
|
||||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
|
||||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
|
||||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
|
||||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
||||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
|
||||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
|
||||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
|
||||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
|
||||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
||||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
||||||
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
|
|
||||||
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
|
||||||
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
|
|
||||||
|
|
||||||
public
|
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ IComisiones_Refresh }
|
|
||||||
IComisiones_Refresh = interface(IDAStronglyTypedDataTable)
|
|
||||||
['{5EEFEA92-FC12-4394-BB11-83E04D12E775}']
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetIDValue: Integer;
|
|
||||||
procedure SetIDValue(const aValue: Integer);
|
|
||||||
function GetIDIsNull: Boolean;
|
|
||||||
procedure SetIDIsNull(const aValue: Boolean);
|
|
||||||
function GetID_EMPRESAValue: Integer;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
function GetID_EMPRESAIsNull: Boolean;
|
|
||||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
||||||
function GetREFERENCIAValue: String;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String);
|
|
||||||
function GetREFERENCIAIsNull: Boolean;
|
|
||||||
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
|
||||||
function GetID_AGENTEValue: Integer;
|
|
||||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
function GetID_AGENTEIsNull: Boolean;
|
|
||||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
|
||||||
function GetAGENTEValue: String;
|
|
||||||
procedure SetAGENTEValue(const aValue: String);
|
|
||||||
function GetAGENTEIsNull: Boolean;
|
|
||||||
procedure SetAGENTEIsNull(const aValue: Boolean);
|
|
||||||
function GetDESCRIPCIONValue: String;
|
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
|
||||||
function GetDESCRIPCIONIsNull: Boolean;
|
|
||||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
||||||
function GetFECHAValue: DateTime;
|
|
||||||
procedure SetFECHAValue(const aValue: DateTime);
|
|
||||||
function GetFECHAIsNull: Boolean;
|
|
||||||
procedure SetFECHAIsNull(const aValue: Boolean);
|
|
||||||
function GetIMPORTE_TOTALValue: Currency;
|
|
||||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
||||||
function GetIMPORTE_TOTALIsNull: Boolean;
|
|
||||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
|
||||||
function GetUSUARIOValue: String;
|
|
||||||
procedure SetUSUARIOValue(const aValue: String);
|
|
||||||
function GetUSUARIOIsNull: Boolean;
|
|
||||||
procedure SetUSUARIOIsNull(const aValue: Boolean);
|
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
|
||||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
||||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
|
||||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
||||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
||||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
||||||
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
|
||||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
||||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
||||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
||||||
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TComisiones_RefreshDataTableRules }
|
|
||||||
TComisiones_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IComisiones_Refresh)
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
{ Property getters and setters }
|
|
||||||
function GetIDValue: Integer; virtual;
|
|
||||||
procedure SetIDValue(const aValue: Integer); virtual;
|
|
||||||
function GetIDIsNull: Boolean; virtual;
|
|
||||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
||||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
||||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetREFERENCIAValue: String; virtual;
|
|
||||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
||||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
||||||
procedure SetREFERENCIAIsNull(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 GetAGENTEValue: String; virtual;
|
|
||||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
|
||||||
function GetAGENTEIsNull: Boolean; virtual;
|
|
||||||
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetDESCRIPCIONValue: String; virtual;
|
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
||||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
||||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetFECHAValue: DateTime; virtual;
|
|
||||||
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
|
||||||
function GetFECHAIsNull: Boolean; virtual;
|
|
||||||
procedure SetFECHAIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetIMPORTE_TOTALValue: Currency; virtual;
|
|
||||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
|
||||||
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
|
|
||||||
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
|
|
||||||
function GetUSUARIOValue: String; virtual;
|
|
||||||
procedure SetUSUARIOValue(const aValue: String); virtual;
|
|
||||||
function GetUSUARIOIsNull: Boolean; virtual;
|
|
||||||
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
|
|
||||||
|
|
||||||
{ Properties }
|
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
|
||||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
||||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
||||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
||||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
||||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
||||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
||||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
|
||||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
||||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
||||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
|
||||||
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
|
||||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
|
||||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
|
||||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
|
||||||
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
|
||||||
|
|
||||||
public
|
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Variants, uROBinaryHelpers;
|
uses Variants, uROBinaryHelpers;
|
||||||
@ -1361,518 +980,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TFacturasComision_RefreshDataTableRules }
|
|
||||||
constructor TFacturasComision_RefreshDataTableRules.Create(aDataTable: TDADataTable);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TFacturasComision_RefreshDataTableRules.Destroy;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetIDValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetIDValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetIDIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_EMPRESA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_COMISION_LIQUIDADA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetREFERENCIAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshREFERENCIA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetFECHA_FACTURAValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsDateTime;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsDateTime := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetFECHA_FACTURAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshFECHA_FACTURA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsDateTime;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsDateTime := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshFECHA_VENCIMIENTO].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetSITUACIONValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetSITUACIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetSITUACIONIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshSITUACION].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshSITUACION].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Currency;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsCurrency;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsCurrency := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshBASE_IMPONIBLE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_CLIENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_CLIENTEIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_CLIENTE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetNIF_CIFValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetNIF_CIFValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetNIF_CIFIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshNIF_CIF].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetNOMBREValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetNOMBREIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshNOMBRE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_AGENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetID_AGENTEIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshID_AGENTE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetCOMISIONValue: Float;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsFloat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetCOMISIONValue(const aValue: Float);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsFloat := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetCOMISIONIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshCOMISION].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshCOMISION].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetIMPORTE_COMISIONValue: Currency;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsCurrency;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsCurrency := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TFacturasComision_RefreshDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TFacturasComision_RefreshDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_FacturasComision_RefreshIMPORTE_COMISION].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
{ TComisiones_RefreshDataTableRules }
|
|
||||||
constructor TComisiones_RefreshDataTableRules.Create(aDataTable: TDADataTable);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TComisiones_RefreshDataTableRules.Destroy;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetIDValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetIDValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetIDIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID_EMPRESA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetREFERENCIAValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshREFERENCIA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetID_AGENTEValue: Integer;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsInteger;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsInteger := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetID_AGENTEIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshID_AGENTE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetAGENTEValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetAGENTEValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetAGENTEIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshAGENTE].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshAGENTE].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetDESCRIPCIONValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshDESCRIPCION].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetFECHAValue: DateTime;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshFECHA].AsDateTime;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetFECHAValue(const aValue: DateTime);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshFECHA].AsDateTime := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetFECHAIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshFECHA].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetFECHAIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshFECHA].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsCurrency;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetUSUARIOValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsString := aValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TComisiones_RefreshDataTableRules.GetUSUARIOIsNull: boolean;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_Comisiones_RefreshUSUARIO].IsNull;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TComisiones_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
||||||
begin
|
|
||||||
if aValue then
|
|
||||||
DataTable.Fields[idx_Comisiones_RefreshUSUARIO].AsVariant := Null;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
|
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
|
||||||
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
|
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
|
||||||
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
|
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
|
||||||
RegisterDataTableRules(RID_FacturasComision_Refresh, TFacturasComision_RefreshDataTableRules);
|
|
||||||
RegisterDataTableRules(RID_Comisiones_Refresh, TComisiones_RefreshDataTableRules);
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -29,6 +29,7 @@ type
|
|||||||
protected
|
protected
|
||||||
procedure CalcularComision;
|
procedure CalcularComision;
|
||||||
procedure COMISIONOnChange(Sender: TDACustomField);
|
procedure COMISIONOnChange(Sender: TDACustomField);
|
||||||
|
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
@ -115,6 +116,18 @@ end;
|
|||||||
|
|
||||||
{ TBizFacturasComision }
|
{ TBizFacturasComision }
|
||||||
|
|
||||||
|
procedure TBizFacturasComision.BeforeInsert(Sender: TDADataTable);
|
||||||
|
var
|
||||||
|
AMasterTable : TDADataTable;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AMasterTable := DataTable.GetMasterDataTable;
|
||||||
|
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
|
||||||
|
begin
|
||||||
|
AMasterTable.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizFacturasComision.CalcularComision;
|
procedure TBizFacturasComision.CalcularComision;
|
||||||
begin
|
begin
|
||||||
if not Self.DataTable.Editing then
|
if not Self.DataTable.Editing then
|
||||||
|
|||||||
@ -47,9 +47,7 @@ object PluginComisiones: TPluginComisiones
|
|||||||
object actComisiones: TAction
|
object actComisiones: TAction
|
||||||
Category = 'Ventas'
|
Category = 'Ventas'
|
||||||
Caption = 'Comisiones'
|
Caption = 'Comisiones'
|
||||||
Enabled = False
|
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
Visible = False
|
|
||||||
OnExecute = actComisionesExecute
|
OnExecute = actComisionesExecute
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
965
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
Normal file
965
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
Normal file
@ -0,0 +1,965 @@
|
|||||||
|
object RptComisiones: TRptComisiones
|
||||||
|
OldCreateOrder = True
|
||||||
|
OnCreate = DataModuleCreate
|
||||||
|
Height = 405
|
||||||
|
Width = 630
|
||||||
|
object DADataCabecera: TDADataSource
|
||||||
|
DataSet = tbl_Comisiones.Dataset
|
||||||
|
DataTable = tbl_Comisiones
|
||||||
|
Left = 264
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object tbl_Comisiones: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
end>
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
MasterMappingMode = mmDataRequest
|
||||||
|
LogChanges = False
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteFetchEnabled = False
|
||||||
|
LocalSchema = schReport
|
||||||
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
|
LogicalName = 'InformeComisiones'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 264
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
|
object frxRichObject1: TfrxRichObject
|
||||||
|
Left = 48
|
||||||
|
Top = 296
|
||||||
|
end
|
||||||
|
object frxBarCodeObject1: TfrxBarCodeObject
|
||||||
|
Left = 144
|
||||||
|
Top = 296
|
||||||
|
end
|
||||||
|
object frxOLEObject1: TfrxOLEObject
|
||||||
|
Left = 48
|
||||||
|
Top = 344
|
||||||
|
end
|
||||||
|
object frxCrossObject1: TfrxCrossObject
|
||||||
|
Left = 144
|
||||||
|
Top = 344
|
||||||
|
end
|
||||||
|
object frxCheckBoxObject1: TfrxCheckBoxObject
|
||||||
|
Left = 256
|
||||||
|
Top = 296
|
||||||
|
end
|
||||||
|
object frxGradientObject1: TfrxGradientObject
|
||||||
|
Left = 360
|
||||||
|
Top = 296
|
||||||
|
end
|
||||||
|
object frxChartObject1: TfrxChartObject
|
||||||
|
Left = 256
|
||||||
|
Top = 344
|
||||||
|
end
|
||||||
|
object schReport: TDASchema
|
||||||
|
ConnectionManager = dmServer.ConnectionManager
|
||||||
|
DataDictionary = DataDictionary
|
||||||
|
Datasets = <
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||||
|
Name = 'IBX'
|
||||||
|
SQL =
|
||||||
|
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, ID_COMISION_LIQUID' +
|
||||||
|
'ADA, '#10' FECHA_FACTURA, SITUACION, BASE_IMPONIBLE, DESCUENTO, '#10 +
|
||||||
|
' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE, '#10' IM' +
|
||||||
|
'PORTE_TOTAL, OBSERVACIONES, ID_CLIENTE, NOMBRE,'#10' NIF_CIF, CAL' +
|
||||||
|
'LE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' FECHA_ALTA, FECHA_M' +
|
||||||
|
'ODIFICACION, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, I' +
|
||||||
|
'D_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' ID_AGENTE, COMISION' +
|
||||||
|
', IMPORTE_COMISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMI' +
|
||||||
|
'SION_LIQUIDADA = :ID'#10' order by referencia'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'TIPO'
|
||||||
|
TableField = 'TIPO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
TableField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_FACTURA'
|
||||||
|
TableField = 'FECHA_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'SITUACION'
|
||||||
|
TableField = 'SITUACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'BASE_IMPONIBLE'
|
||||||
|
TableField = 'BASE_IMPONIBLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCUENTO'
|
||||||
|
TableField = 'DESCUENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_DESCUENTO'
|
||||||
|
TableField = 'IMPORTE_DESCUENTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IVA'
|
||||||
|
TableField = 'IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_IVA'
|
||||||
|
TableField = 'IMPORTE_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'RE'
|
||||||
|
TableField = 'RE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_RE'
|
||||||
|
TableField = 'IMPORTE_RE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'OBSERVACIONES'
|
||||||
|
TableField = 'OBSERVACIONES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_CLIENTE'
|
||||||
|
TableField = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NIF_CIF'
|
||||||
|
TableField = 'NIF_CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = 'NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CALLE'
|
||||||
|
TableField = 'CALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'POBLACION'
|
||||||
|
TableField = 'POBLACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVINCIA'
|
||||||
|
TableField = 'PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CODIGO_POSTAL'
|
||||||
|
TableField = 'CODIGO_POSTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_ALTA'
|
||||||
|
TableField = 'FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_MODIFICACION'
|
||||||
|
TableField = 'FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'USUARIO'
|
||||||
|
TableField = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_FORMA_PAGO'
|
||||||
|
TableField = 'ID_FORMA_PAGO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'RECARGO_EQUIVALENCIA'
|
||||||
|
TableField = 'RECARGO_EQUIVALENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_TIPO_IVA'
|
||||||
|
TableField = 'ID_TIPO_IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_NETO'
|
||||||
|
TableField = 'IMPORTE_NETO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_PORTE'
|
||||||
|
TableField = 'IMPORTE_PORTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_AGENTE'
|
||||||
|
TableField = 'ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COMISION'
|
||||||
|
TableField = 'COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_COMISION'
|
||||||
|
TableField = 'IMPORTE_COMISION'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'InformeComisionesFacturas'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TIPO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'BASE_IMPONIBLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IVA'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_IVA'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RE'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_RE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FORMA_PAGO'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RECARGO_EQUIVALENCIA'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_TIPO_IVA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_NETO'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_PORTE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'COMISIONES_LIQUIDADAS'
|
||||||
|
SQL =
|
||||||
|
'SELECT '#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_E' +
|
||||||
|
'MPRESA, COMISIONES_LIQUIDADAS.REFERENCIA,'#10' COMISIONES_LIQUIDA' +
|
||||||
|
'DAS.ID_AGENTE, CONTACTOS.NOMBRE, COMISIONES_LIQUIDADAS.DESCRIPCI' +
|
||||||
|
'ON,'#10' COMISIONES_LIQUIDADAS.FECHA, COMISIONES_LIQUIDADAS.IMPOR' +
|
||||||
|
'TE_TOTAL,'#10' COMISIONES_LIQUIDADAS.FECHA_ALTA, COMISIONES_LIQUI' +
|
||||||
|
'DADAS.FECHA_MODIFICACION,'#10' COMISIONES_LIQUIDADAS.USUARIO'#10' FR' +
|
||||||
|
'OM'#10' COMISIONES_LIQUIDADAS'#10' LEFT JOIN CONTACTOS ON (CONTACTOS' +
|
||||||
|
'.ID = COMISIONES_LIQUIDADAS.ID_AGENTE)'#10' WHERE COMISIONES_LIQUID' +
|
||||||
|
'ADAS.ID = :ID'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REFERENCIA'
|
||||||
|
TableField = 'REFERENCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_AGENTE'
|
||||||
|
TableField = 'ID_AGENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCRIPCION'
|
||||||
|
TableField = 'DESCRIPCION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA'
|
||||||
|
TableField = 'FECHA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'IMPORTE_TOTAL'
|
||||||
|
TableField = 'IMPORTE_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_ALTA'
|
||||||
|
TableField = 'FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_MODIFICACION'
|
||||||
|
TableField = 'FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'USUARIO'
|
||||||
|
TableField = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'InformeComisiones'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
JoinDataTables = <>
|
||||||
|
UnionDataTables = <>
|
||||||
|
Commands = <>
|
||||||
|
RelationShips = <>
|
||||||
|
UpdateRules = <>
|
||||||
|
Version = 0
|
||||||
|
Left = 48
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object DataDictionary: TDADataDictionary
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
Required = True
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_ID_CONTRATO'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_CONTRATO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'Fecha de las factura'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_VENCIMIENTO'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Vencimiento'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Situaci'#243'n'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_BASE_IMPONIBLE'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Base imponible'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Importe dto.'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_IMPORTE_IVA'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Importe IVA'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_IMPORTE_TOTAL'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Importe total'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_FORMA_PAGO'
|
||||||
|
DataType = datMemo
|
||||||
|
DisplayLabel = 'Forma de pago'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
DisplayLabel = 'NIF/CIF'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DisplayLabel = 'C'#243'd. postal'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
DisplayLabel = 'Observaciones'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 100
|
||||||
|
DisplayLabel = 'Cliente'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 150
|
||||||
|
DisplayLabel = 'Direcci'#243'n'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
DisplayLabel = 'Provincia'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 150
|
||||||
|
DisplayLabel = 'Poblaci'#243'n'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_IVA'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'IVA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 100
|
||||||
|
DisplayLabel = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
DisplayLabel = 'Referencia'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_DESCUENTO'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Dto.'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
Required = True
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_FACTURA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DisplayLabel = 'Tipo detalle'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_CONCEPTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 2000
|
||||||
|
DisplayLabel = 'Concepto'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Importe unidad'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||||
|
DataType = datFloat
|
||||||
|
DisplayLabel = 'Importe total'
|
||||||
|
Alignment = taRightJustify
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_VISIBLE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = #191'Visible?'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_POSICION'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Posici'#243'n'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasCliente_Detalles_CANTIDAD'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'Cantidad'
|
||||||
|
end>
|
||||||
|
Left = 46
|
||||||
|
Top = 150
|
||||||
|
end
|
||||||
|
object frxReport: TfrxReport
|
||||||
|
Version = '4.8.11'
|
||||||
|
DotMatrixReport = False
|
||||||
|
EngineOptions.DoublePass = True
|
||||||
|
IniFile = '\Software\Fast Reports'
|
||||||
|
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||||
|
PreviewOptions.OutlineWidth = 180
|
||||||
|
PreviewOptions.Zoom = 1.000000000000000000
|
||||||
|
PrintOptions.Printer = 'Default'
|
||||||
|
PrintOptions.PrintOnSheet = 0
|
||||||
|
ReportOptions.CreateDate = 37871.995398692100000000
|
||||||
|
ReportOptions.LastChange = 40360.677744004630000000
|
||||||
|
ReportOptions.VersionBuild = '1'
|
||||||
|
ReportOptions.VersionMajor = '12'
|
||||||
|
ReportOptions.VersionMinor = '13'
|
||||||
|
ReportOptions.VersionRelease = '1'
|
||||||
|
ScriptLanguage = 'PascalScript'
|
||||||
|
ShowProgress = False
|
||||||
|
StoreInDFM = False
|
||||||
|
Left = 169
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object frxDBCabecera: TfrxDBDataset
|
||||||
|
UserName = 'frxDBCabecera'
|
||||||
|
CloseDataSource = False
|
||||||
|
DataSource = DADataCabecera
|
||||||
|
BCDToCurrency = False
|
||||||
|
Left = 264
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object frxDBDetalles1: TfrxDBDataset
|
||||||
|
UserName = 'frxDBDetalles'
|
||||||
|
CloseDataSource = False
|
||||||
|
DataSource = DADataDetalles
|
||||||
|
BCDToCurrency = False
|
||||||
|
Left = 352
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object DADataDetalles: TDADataSource
|
||||||
|
DataSet = tbl_Facturas.Dataset
|
||||||
|
DataTable = tbl_Facturas
|
||||||
|
Left = 352
|
||||||
|
Top = 72
|
||||||
|
end
|
||||||
|
object tbl_Facturas: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TIPO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_FACTURA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'SITUACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 19
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'BASE_IMPONIBLE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCUENTO'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IVA'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_IVA'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RE'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_RE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_TOTAL'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_CLIENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_FORMA_PAGO'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'RECARGO_EQUIVALENCIA'
|
||||||
|
DataType = datSmallInt
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_TIPO_IVA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_NETO'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_PORTE'
|
||||||
|
DataType = datCurrency
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_AGENTE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COMISION'
|
||||||
|
DataType = datFloat
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'IMPORTE_COMISION'
|
||||||
|
DataType = datCurrency
|
||||||
|
end>
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
|
MasterMappingMode = mmDataRequest
|
||||||
|
LogChanges = False
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteFetchEnabled = False
|
||||||
|
LocalSchema = schReport
|
||||||
|
LocalDataStreamer = Bin2DataStreamer
|
||||||
|
LogicalName = 'InformeComisionesFacturas'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 352
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
|
end
|
||||||
105
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
Normal file
105
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
Normal file
@ -0,0 +1,105 @@
|
|||||||
|
unit uRptComisiones_Server;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, FactuGES_Intf,
|
||||||
|
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||||
|
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||||
|
uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
|
||||||
|
|
||||||
|
type
|
||||||
|
TRptComisiones = class(TDataModule)
|
||||||
|
DADataCabecera: TDADataSource;
|
||||||
|
tbl_Comisiones: TDAMemDataTable;
|
||||||
|
frxRichObject1: TfrxRichObject;
|
||||||
|
frxBarCodeObject1: TfrxBarCodeObject;
|
||||||
|
frxOLEObject1: TfrxOLEObject;
|
||||||
|
frxCrossObject1: TfrxCrossObject;
|
||||||
|
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||||
|
frxGradientObject1: TfrxGradientObject;
|
||||||
|
frxChartObject1: TfrxChartObject;
|
||||||
|
frxDBCabecera: TfrxDBDataset;
|
||||||
|
frxReport: TfrxReport;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
frxDBDetalles1: TfrxDBDataset;
|
||||||
|
DADataDetalles: TDADataSource;
|
||||||
|
tbl_Facturas: TDAMemDataTable;
|
||||||
|
schReport: TDASchema;
|
||||||
|
DataDictionary: TDADataDictionary;
|
||||||
|
procedure DataModuleCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
FConnection: IDAConnection;
|
||||||
|
//Genera cada uno de los albaranes a imprimir
|
||||||
|
procedure GenerarComision(const ID: integer); overload;
|
||||||
|
public
|
||||||
|
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uSistemaFunc, uDataModuleServer;
|
||||||
|
|
||||||
|
const
|
||||||
|
rptComision = 'InfComision.fr3';
|
||||||
|
|
||||||
|
{ TRptComision }
|
||||||
|
|
||||||
|
procedure TRptComisiones.DataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||||
|
FConnection := dmServer.DarNuevaConexion;
|
||||||
|
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRptComisiones.GenerarComision(const ID: integer);
|
||||||
|
var
|
||||||
|
AInforme: Variant;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FConnection.BeginTransaction;
|
||||||
|
try
|
||||||
|
tbl_Comisiones.Active := False;
|
||||||
|
tbl_Facturas.Active := False;
|
||||||
|
|
||||||
|
tbl_Comisiones.ParamByName('ID').AsInteger := ID;
|
||||||
|
tbl_Facturas.ParamByName('ID').AsInteger := ID;
|
||||||
|
|
||||||
|
tbl_Comisiones.Active := True;
|
||||||
|
tbl_Facturas.Active := True;
|
||||||
|
|
||||||
|
AInforme := DarRutaFichero(DarRutaInformes, rptComision, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||||
|
if VarIsNull(AInforme) then
|
||||||
|
raise Exception.Create (('Error Servidor: GenerarComision, no encuentra informe' + rptComision));
|
||||||
|
|
||||||
|
frxReport.LoadFromFile(AInforme, True);
|
||||||
|
frxReport.ReportOptions.Name := 'Comisiones';
|
||||||
|
frxReport.PrepareReport(False);
|
||||||
|
finally
|
||||||
|
FConnection.RollbackTransaction;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TRptComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||||
|
var
|
||||||
|
ID_Comisiones: TStringList;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result := Binary.Create;
|
||||||
|
try
|
||||||
|
//Vamos generando todos y cada una de las comisiones recibidas
|
||||||
|
for i := 0 to ListaID.Count - 1 do
|
||||||
|
GenerarComision(ListaID.Items[i]);
|
||||||
|
|
||||||
|
frxReport.PreviewPages.SaveToStream(Result);
|
||||||
|
finally
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -116,10 +116,10 @@ object srvComisiones: TsrvComisiones
|
|||||||
Fields = <
|
Fields = <
|
||||||
item
|
item
|
||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datAutoInc
|
||||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||||
Required = True
|
|
||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'FacturasComision_ID'
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -307,7 +307,7 @@ object srvComisiones: TsrvComisiones
|
|||||||
item
|
item
|
||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'ID_COMISION_LIQUIDADA'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end>
|
end>
|
||||||
@ -318,11 +318,10 @@ object srvComisiones: TsrvComisiones
|
|||||||
Default = True
|
Default = True
|
||||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT'#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, FE' +
|
'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
|
||||||
'CHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, I' +
|
'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
|
||||||
'D_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_COM' +
|
'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
|
||||||
'ISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' +
|
'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'#10#10
|
||||||
'A = :ID_COMISION_LIQUIDADA'#10
|
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -333,10 +332,6 @@ object srvComisiones: TsrvComisiones
|
|||||||
DatasetField = 'ID_EMPRESA'
|
DatasetField = 'ID_EMPRESA'
|
||||||
TableField = 'ID_EMPRESA'
|
TableField = 'ID_EMPRESA'
|
||||||
end
|
end
|
||||||
item
|
|
||||||
DatasetField = 'ID_COMISION_LIQUIDADA'
|
|
||||||
TableField = 'ID_COMISION_LIQUIDADA'
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
DatasetField = 'REFERENCIA'
|
DatasetField = 'REFERENCIA'
|
||||||
TableField = 'REFERENCIA'
|
TableField = 'REFERENCIA'
|
||||||
@ -380,178 +375,93 @@ object srvComisiones: TsrvComisiones
|
|||||||
item
|
item
|
||||||
DatasetField = 'IMPORTE_COMISION'
|
DatasetField = 'IMPORTE_COMISION'
|
||||||
TableField = 'IMPORTE_COMISION'
|
TableField = 'IMPORTE_COMISION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||||
|
TableField = 'ID_COMISION_LIQUIDADA'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'FacturasComision_Refresh'
|
Name = 'FacturasComision_Refresh'
|
||||||
Fields = <
|
Fields = <
|
||||||
item
|
item
|
||||||
Name = 'ID'
|
Name = 'ID'
|
||||||
DataType = datInteger
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'FacturasComision_ID'
|
||||||
InPrimaryKey = True
|
InPrimaryKey = True
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_EMPRESA'
|
Name = 'ID_EMPRESA'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_COMISION_LIQUIDADA'
|
Name = 'ID_COMISION_LIQUIDADA'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
|
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 20
|
||||||
|
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_FACTURA'
|
Name = 'FECHA_FACTURA'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_VENCIMIENTO'
|
Name = 'FECHA_VENCIMIENTO'
|
||||||
DataType = datDateTime
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'SITUACION'
|
Name = 'SITUACION'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 19
|
Size = 255
|
||||||
|
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'BASE_IMPONIBLE'
|
Name = 'BASE_IMPONIBLE'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
|
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_CLIENTE'
|
Name = 'ID_CLIENTE'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NIF_CIF'
|
Name = 'NIF_CIF'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 15
|
Size = 15
|
||||||
|
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NOMBRE'
|
Name = 'NOMBRE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 100
|
||||||
|
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_AGENTE'
|
Name = 'ID_AGENTE'
|
||||||
DataType = datInteger
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COMISION'
|
Name = 'COMISION'
|
||||||
DataType = datFloat
|
DataType = datFloat
|
||||||
|
DictionaryEntry = 'FacturasCliente_COMISION'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_COMISION'
|
Name = 'IMPORTE_COMISION'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
end>
|
DecimalPrecision = 11
|
||||||
end
|
DecimalScale = 2
|
||||||
item
|
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
Value = ''
|
|
||||||
end>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
TargetTable = 'V_COMISIONES_LIQUIDADAS'
|
|
||||||
SQL =
|
|
||||||
'SELECT'#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EM' +
|
|
||||||
'PRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDAD' +
|
|
||||||
'AS.ID_AGENTE,'#10' CONTACTOS.NOMBRE as AGENTE,'#10' COMISIONES_LIQ' +
|
|
||||||
'UIDADAS.DESCRIPCION, COMISIONES_LIQUIDADAS.FECHA,'#10' COMISIONES' +
|
|
||||||
'_LIQUIDADAS.IMPORTE_TOTAL, COMISIONES_LIQUIDADAS.USUARIO'#10'FROM CO' +
|
|
||||||
'MISIONES_LIQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMIS' +
|
|
||||||
'IONES_LIQUIDADAS.ID_AGENTE)'#10'WHERE COMISIONES_LIQUIDADAS.ID = :ID' +
|
|
||||||
#10
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <
|
|
||||||
item
|
|
||||||
DatasetField = 'ID'
|
|
||||||
TableField = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_EMPRESA'
|
|
||||||
TableField = 'ID_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA'
|
|
||||||
TableField = 'REFERENCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_AGENTE'
|
|
||||||
TableField = 'ID_AGENTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'AGENTE'
|
|
||||||
TableField = 'AGENTE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'DESCRIPCION'
|
|
||||||
TableField = 'DESCRIPCION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA'
|
|
||||||
TableField = 'FECHA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'IMPORTE_TOTAL'
|
|
||||||
TableField = 'IMPORTE_TOTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'USUARIO'
|
|
||||||
TableField = 'USUARIO'
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
Name = 'Comisiones_Refresh'
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datAutoInc
|
|
||||||
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
|
||||||
ServerAutoRefresh = True
|
|
||||||
DictionaryEntry = 'Comisiones_ID'
|
|
||||||
InPrimaryKey = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_AGENTE'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'AGENTE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DESCRIPCION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA'
|
|
||||||
DataType = datDateTime
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'IMPORTE_TOTAL'
|
|
||||||
DataType = datCurrency
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'USUARIO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 30
|
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
@ -805,34 +715,6 @@ object srvComisiones: TsrvComisiones
|
|||||||
RelationshipType = rtForeignKey
|
RelationshipType = rtForeignKey
|
||||||
end>
|
end>
|
||||||
UpdateRules = <
|
UpdateRules = <
|
||||||
item
|
|
||||||
Name = 'Insert Comisiones'
|
|
||||||
DoUpdate = False
|
|
||||||
DoDelete = False
|
|
||||||
DatasetName = 'Comisiones'
|
|
||||||
FailureBehavior = fbRaiseException
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Insert FacturasComision'
|
|
||||||
DoUpdate = False
|
|
||||||
DoDelete = False
|
|
||||||
DatasetName = 'FacturasComision'
|
|
||||||
FailureBehavior = fbRaiseException
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Update Comisiones'
|
|
||||||
DoInsert = False
|
|
||||||
DoDelete = False
|
|
||||||
DatasetName = 'Comisiones'
|
|
||||||
FailureBehavior = fbRaiseException
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Update FacturasComision'
|
|
||||||
DoInsert = False
|
|
||||||
DoDelete = False
|
|
||||||
DatasetName = 'FacturasComision'
|
|
||||||
FailureBehavior = fbRaiseException
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
Name = 'Delete FacturasComision'
|
Name = 'Delete FacturasComision'
|
||||||
DoUpdate = False
|
DoUpdate = False
|
||||||
@ -846,6 +728,34 @@ object srvComisiones: TsrvComisiones
|
|||||||
DoInsert = False
|
DoInsert = False
|
||||||
DatasetName = 'Comisiones'
|
DatasetName = 'Comisiones'
|
||||||
FailureBehavior = fbRaiseException
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Insert Comisiones'
|
||||||
|
DoUpdate = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Comisiones'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Update Comisiones'
|
||||||
|
DoInsert = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'Comisiones'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Insert FacturasComision'
|
||||||
|
DoUpdate = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'FacturasComision'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Update FacturasComision'
|
||||||
|
DoInsert = False
|
||||||
|
DoDelete = False
|
||||||
|
DatasetName = 'FacturasComision'
|
||||||
|
FailureBehavior = fbRaiseException
|
||||||
end>
|
end>
|
||||||
Version = 0
|
Version = 0
|
||||||
Left = 48
|
Left = 48
|
||||||
@ -857,8 +767,8 @@ object srvComisiones: TsrvComisiones
|
|||||||
DiagramData =
|
DiagramData =
|
||||||
'<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' +
|
'<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' +
|
||||||
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
|
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
|
||||||
'"FacturasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name' +
|
'"Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="Factu' +
|
||||||
'="Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="List' +
|
'rasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name="List' +
|
||||||
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
|
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
|
||||||
'Diagrams>'#13#10
|
'Diagrams>'#13#10
|
||||||
end
|
end
|
||||||
@ -882,8 +792,9 @@ object srvComisiones: TsrvComisiones
|
|||||||
InsertCommandName = 'Insert_FacturasComision'
|
InsertCommandName = 'Insert_FacturasComision'
|
||||||
DeleteCommandName = 'Delete_FacturasComision'
|
DeleteCommandName = 'Delete_FacturasComision'
|
||||||
UpdateCommandName = 'Update_FacturasComision'
|
UpdateCommandName = 'Update_FacturasComision'
|
||||||
|
RefreshDatasetName = 'FacturasComision_Refresh'
|
||||||
ReferencedDataset = 'FacturasComision'
|
ReferencedDataset = 'FacturasComision'
|
||||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
ProcessorOptions = [poPrepareCommands]
|
||||||
UpdateMode = updWhereKeyOnly
|
UpdateMode = updWhereKeyOnly
|
||||||
Left = 248
|
Left = 248
|
||||||
Top = 80
|
Top = 80
|
||||||
@ -1198,6 +1109,14 @@ object srvComisiones: TsrvComisiones
|
|||||||
Name = 'Comisiones_USUARIO'
|
Name = 'Comisiones_USUARIO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 30
|
Size = 30
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FacturasComision_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||||
|
Required = True
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
ServerAutoRefresh = True
|
||||||
end>
|
end>
|
||||||
Left = 150
|
Left = 150
|
||||||
Top = 22
|
Top = 22
|
||||||
|
|||||||
@ -34,7 +34,7 @@ type
|
|||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ IsrvComisiones methods }
|
{ IsrvComisiones methods }
|
||||||
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
|
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -43,8 +43,8 @@ implementation
|
|||||||
uses
|
uses
|
||||||
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
|
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
|
||||||
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
|
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
|
||||||
uRestriccionesUsuarioUtils, uBizComisionesServer;
|
uRestriccionesUsuarioUtils, uBizComisionesServer, uRptComisiones_Server;
|
||||||
// uRptWordFacturaCliente, uRptFacturasCliente_Server;
|
// uRptWordFacturaCliente, ;
|
||||||
|
|
||||||
procedure Create_srvComisiones(out anInstance : IUnknown);
|
procedure Create_srvComisiones(out anInstance : IUnknown);
|
||||||
begin
|
begin
|
||||||
@ -80,17 +80,16 @@ begin
|
|||||||
ConnectionName := dmServer.ConnectionName;
|
ConnectionName := dmServer.ConnectionName;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
|
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||||
//var
|
var
|
||||||
// AReportGenerator : TRptFacturasCliente;
|
AReportGenerator : TRptComisiones;
|
||||||
begin
|
begin
|
||||||
{ AReportGenerator := TRptFacturasCliente.Create(nil);
|
AReportGenerator := TRptComisiones.Create(nil);
|
||||||
try
|
try
|
||||||
Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad);
|
Result := AReportGenerator.GenerarInforme(ListaID);
|
||||||
finally
|
finally
|
||||||
FreeAndNIL(AReportGenerator);
|
FreeAndNIL(AReportGenerator);
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -71,7 +71,12 @@ requires
|
|||||||
TntUnicodeVcl,
|
TntUnicodeVcl,
|
||||||
tb2k_d11,
|
tb2k_d11,
|
||||||
cxGridD11,
|
cxGridD11,
|
||||||
cxExportD11;
|
cxExportD11,
|
||||||
|
frx11,
|
||||||
|
fs11,
|
||||||
|
fqb110,
|
||||||
|
bdertl,
|
||||||
|
frxe11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uComisionesViewRegister in 'uComisionesViewRegister.pas',
|
uComisionesViewRegister in 'uComisionesViewRegister.pas',
|
||||||
@ -79,6 +84,7 @@ contains
|
|||||||
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
|
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
|
||||||
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
|
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
|
||||||
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorFacturasCliente},
|
uEditorComision in 'uEditorComision.pas' {fEditorComision: TfEditorFacturasCliente},
|
||||||
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame};
|
uViewFacturasComision in 'uViewFacturasComision.pas' {frViewFacturasComision: TFrame},
|
||||||
|
uEditorComisionesReport in 'uEditorComisionesReport.pas' {fEditorComisionesReport: TfEditorComisionesReport};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -41,6 +41,7 @@
|
|||||||
<DCCReference Include="adortl.dcp" />
|
<DCCReference Include="adortl.dcp" />
|
||||||
<DCCReference Include="ApplicationBase.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="Base.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
|
<DCCReference Include="bdertl.dcp" />
|
||||||
<DCCReference Include="Comisiones_controller.dcp" />
|
<DCCReference Include="Comisiones_controller.dcp" />
|
||||||
<DCCReference Include="Comisiones_model.dcp" />
|
<DCCReference Include="Comisiones_model.dcp" />
|
||||||
<DCCReference Include="Contactos_view.dcp" />
|
<DCCReference Include="Contactos_view.dcp" />
|
||||||
@ -60,6 +61,10 @@
|
|||||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="dxThemeD11.dcp" />
|
<DCCReference Include="dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="fqb110.dcp" />
|
||||||
|
<DCCReference Include="frx11.dcp" />
|
||||||
|
<DCCReference Include="frxe11.dcp" />
|
||||||
|
<DCCReference Include="fs11.dcp" />
|
||||||
<DCCReference Include="GUIBase.dcp" />
|
<DCCReference Include="GUIBase.dcp" />
|
||||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="Jcl.dcp" />
|
<DCCReference Include="Jcl.dcp" />
|
||||||
@ -87,6 +92,10 @@
|
|||||||
<Form>fEditorComisiones</Form>
|
<Form>fEditorComisiones</Form>
|
||||||
<DesignClass>TfEditorFacturasCliente</DesignClass>
|
<DesignClass>TfEditorFacturasCliente</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorComisionesReport.pas">
|
||||||
|
<Form>fEditorComisionesReport</Form>
|
||||||
|
<DesignClass>TfEditorFacturasCliente</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uViewComision.pas">
|
<DCCReference Include="uViewComision.pas">
|
||||||
<Form>frViewComision</Form>
|
<Form>frViewComision</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
@ -96,7 +105,7 @@
|
|||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uViewFacturasComision.pas">
|
<DCCReference Include="uViewFacturasComision.pas">
|
||||||
<Form>frViewFacturaComision</Form>
|
<Form>frViewFacturasComision</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="vcl.dcp" />
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
|||||||
@ -8,8 +8,8 @@ procedure UnregisterViews;
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uEditorRegistryUtils, uEditorComisiones, uEditorComision;
|
uEditorRegistryUtils, uEditorComisiones, uEditorComision, uEditorComisionesReport;
|
||||||
// , uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
|
//, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
|
||||||
|
|
||||||
procedure RegisterViews;
|
procedure RegisterViews;
|
||||||
begin
|
begin
|
||||||
@ -17,7 +17,7 @@ begin
|
|||||||
EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
|
EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
|
||||||
// EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
|
// EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
|
||||||
// EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
|
// EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
|
||||||
// EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview');
|
EditorRegistry.RegisterClass(TfEditorComisionesPreview, 'EditorComisionesPreview');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure UnregisterViews;
|
procedure UnregisterViews;
|
||||||
@ -26,7 +26,7 @@ begin
|
|||||||
EditorRegistry.UnRegisterClass(TfEditorComision);
|
EditorRegistry.UnRegisterClass(TfEditorComision);
|
||||||
// EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
|
// EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
|
||||||
// EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
|
// EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
|
||||||
// EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
|
EditorRegistry.UnRegisterClass(TfEditorComisionesPreview);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -52,7 +52,7 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Width = 722
|
Width = 722
|
||||||
ExplicitWidth = 722
|
ExplicitWidth = 722
|
||||||
inherited tbxMain: TSpTBXToolbar
|
inherited tbxMain: TSpTBXToolbar
|
||||||
ExplicitWidth = 330
|
ExplicitWidth = 267
|
||||||
inherited TBXItem2: TSpTBXItem
|
inherited TBXItem2: TSpTBXItem
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
@ -198,8 +198,26 @@ inherited fEditorComision: TfEditorComision
|
|||||||
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
|
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
|
||||||
end>
|
end>
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
IsCaptionAssigned = True
|
IsCaptionAssigned = True
|
||||||
end
|
end
|
||||||
|
inherited cxGridViewID_EMPRESA: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewID_AGENTE: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
inherited cxGridViewID_FACTURA: TcxGridDBColumn
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
@ -227,6 +245,10 @@ inherited fEditorComision: TfEditorComision
|
|||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
Top = 128
|
Top = 128
|
||||||
|
inherited actEliminar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource [6]
|
inherited dsDataTable: TDADataSource [6]
|
||||||
Left = 168
|
Left = 168
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
uIEditorComision, uComisionesController, JvExComCtrls,
|
uIEditorComision, uComisionesController, JvExComCtrls,
|
||||||
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
|
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
|
||||||
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel,
|
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel,
|
||||||
JvEnterTab, uViewDetallesGenerico, uViewFacturasComision;
|
JvEnterTab, uViewDetallesGenerico, uViewFacturasComision, Grids, DBGrids;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
||||||
|
|||||||
@ -197,12 +197,8 @@ var
|
|||||||
Respuesta : Integer;
|
Respuesta : Integer;
|
||||||
AComisiones: IBizComision;
|
AComisiones: IBizComision;
|
||||||
AllItems: Boolean;
|
AllItems: Boolean;
|
||||||
AOriginal: Integer;
|
|
||||||
ACopia: Integer;
|
|
||||||
AContabilidad: Integer;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
{
|
|
||||||
AComisiones := Nil;
|
AComisiones := Nil;
|
||||||
AllItems := False;
|
AllItems := False;
|
||||||
|
|
||||||
@ -225,20 +221,16 @@ begin
|
|||||||
if AllItems then
|
if AllItems then
|
||||||
begin
|
begin
|
||||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||||
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
AComisiones := Comisiones;
|
AComisiones := Comisiones;
|
||||||
|
|
||||||
//Preguntamos si desea que en las facturas se vea el Sello
|
FController.Print(AComisiones, AllItems);
|
||||||
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
|
|
||||||
if Assigned(AComisiones) then
|
|
||||||
FController.Print(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComisiones.ModificarInterno;
|
procedure TfEditorComisiones.ModificarInterno;
|
||||||
@ -274,12 +266,9 @@ var
|
|||||||
Respuesta : Integer;
|
Respuesta : Integer;
|
||||||
AComisiones: IBizComision;
|
AComisiones: IBizComision;
|
||||||
AllItems: Boolean;
|
AllItems: Boolean;
|
||||||
AOriginal: Integer;
|
|
||||||
ACopia: Integer;
|
|
||||||
AContabilidad: Integer;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
{
|
|
||||||
AComisiones := Nil;
|
AComisiones := Nil;
|
||||||
AllItems := False;
|
AllItems := False;
|
||||||
|
|
||||||
@ -302,20 +291,16 @@ begin
|
|||||||
if AllItems then
|
if AllItems then
|
||||||
begin
|
begin
|
||||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||||
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
AComisiones := Comisiones;
|
AComisiones := Comisiones;
|
||||||
|
|
||||||
//Preguntamos si desea que en las facturas se vea el Sello
|
FController.Preview(AComisiones, AllItems);
|
||||||
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
|
|
||||||
if Assigned(AComisiones) then
|
|
||||||
FController.Preview(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorComisiones.RefrescarInterno;
|
procedure TfEditorComisiones.RefrescarInterno;
|
||||||
|
|||||||
32
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
Normal file
32
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
inherited fEditorComisionesPreview: TfEditorComisionesPreview
|
||||||
|
Caption = 'Previsualizar la comisi'#243'n'
|
||||||
|
ClientWidth = 622
|
||||||
|
ExplicitWidth = 630
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 622
|
||||||
|
ExplicitWidth = 622
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 595
|
||||||
|
ExplicitLeft = 595
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TSpTBXDock
|
||||||
|
Width = 622
|
||||||
|
ExplicitWidth = 622
|
||||||
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
|
ExplicitWidth = 622
|
||||||
|
end
|
||||||
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
|
object TBXItem58: TSpTBXItem [1]
|
||||||
|
Action = actExportarRTF
|
||||||
|
Images = SmallImages
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Width = 622
|
||||||
|
ExplicitWidth = 622
|
||||||
|
end
|
||||||
|
end
|
||||||
49
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
Normal file
49
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
unit uEditorComisionesReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorPreview,
|
||||||
|
JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||||
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
|
TB2ExtItems, SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorComisionesPreview,
|
||||||
|
JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
|
||||||
|
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||||
|
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, StdCtrls, TntStdCtrls,
|
||||||
|
SpTBXEditors;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
|
||||||
|
TBXItem58: TSpTBXItem;
|
||||||
|
procedure actExportarRTFExecute(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uComisionesReportController, uIntegerListUtils, uDialogUtils;
|
||||||
|
|
||||||
|
procedure TfEditorComisionesPreview.actExportarRTFExecute(Sender: TObject);
|
||||||
|
{var
|
||||||
|
I: Integer;}
|
||||||
|
begin
|
||||||
|
// inherited; <- No llamar al padre
|
||||||
|
{ if not Assigned(Controller) then
|
||||||
|
raise Exception.Create('No se ha asignado el controlador necesario');
|
||||||
|
|
||||||
|
for I := 0 to ListaID.Count - 1 do
|
||||||
|
if (Controller as IComisionesReportController).ExportToWord(ListaID[I]) then
|
||||||
|
ShowInfoMessage('La factura se ha exportado correctamente.');
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -10,7 +10,11 @@
|
|||||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||||
<Projects Include="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" />
|
<Projects Include="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" />
|
||||||
|
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
|
||||||
|
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||||
|
<Projects Include="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" />
|
||||||
<Projects Include="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.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="Controller\Contactos_controller.dproj" />
|
||||||
<Projects Include="Data\Contactos_data.dproj" />
|
<Projects Include="Data\Contactos_data.dproj" />
|
||||||
<Projects Include="Model\Contactos_model.dproj" />
|
<Projects Include="Model\Contactos_model.dproj" />
|
||||||
@ -131,14 +135,50 @@
|
|||||||
<Target Name="PedidosCliente_plugin:Make">
|
<Target Name="PedidosCliente_plugin:Make">
|
||||||
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
|
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
|
||||||
</Target>
|
</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="AlbaranesCliente_view">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="AlbaranesCliente_view:Clean">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="AlbaranesCliente_view:Make">
|
||||||
|
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view:Clean">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FacturasCliente_view:Make">
|
||||||
|
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
<Target Name="Build">
|
<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;AlbaranesCliente_view;FacturasCliente_view" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Clean">
|
<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;AlbaranesCliente_view:Clean;FacturasCliente_view:Clean" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Make">
|
<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;AlbaranesCliente_view:Make;FacturasCliente_view:Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
</Project>
|
</Project>
|
||||||
@ -11,6 +11,7 @@ uses
|
|||||||
type
|
type
|
||||||
IClientesController = interface(IContactosController)
|
IClientesController = interface(IContactosController)
|
||||||
['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
|
['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
|
||||||
|
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||||
function BuscarTodosTiendaWeb: IBizCliente;
|
function BuscarTodosTiendaWeb: IBizCliente;
|
||||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||||
@ -23,6 +24,8 @@ type
|
|||||||
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
||||||
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
||||||
procedure VerRecibosDeCliente(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;
|
function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -38,11 +41,14 @@ type
|
|||||||
|
|
||||||
function Buscar(const ID: Integer): IBizContacto; override;
|
function Buscar(const ID: Integer): IBizContacto; override;
|
||||||
function BuscarTodos: IBizContacto; override;
|
function BuscarTodos: IBizContacto; override;
|
||||||
|
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||||
function BuscarTodosTiendaWeb: IBizCliente;
|
function BuscarTodosTiendaWeb: IBizCliente;
|
||||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||||
function Nuevo : IBizContacto; override;
|
function Nuevo : IBizContacto; override;
|
||||||
procedure Ver(AContacto : 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;
|
function ElegirContacto(AContactos : IBizContacto;
|
||||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
|
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
|
||||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||||
@ -63,9 +69,9 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Forms, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
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,
|
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController,
|
||||||
Dialogs, uIntegerListUtils, uFactuGES_App,
|
Dialogs, uIntegerListUtils, uFactuGES_App, uStringsUtils,
|
||||||
uPlugins_Intf;
|
uPlugins_Intf;
|
||||||
|
|
||||||
{ TClientesController }
|
{ TClientesController }
|
||||||
@ -94,6 +100,29 @@ begin
|
|||||||
FiltrarEmpresa(Result);
|
FiltrarEmpresa(Result);
|
||||||
end;
|
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;
|
constructor TClientesController.Create;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
@ -517,6 +546,38 @@ begin
|
|||||||
end;
|
end;
|
||||||
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);
|
procedure TClientesController.VerTodos(AContactos: IBizContacto);
|
||||||
var
|
var
|
||||||
AEditor : IEditorClientes;
|
AEditor : IEditorClientes;
|
||||||
|
|||||||
@ -18,6 +18,8 @@ type
|
|||||||
function DarListaVendedores : TStringList;
|
function DarListaVendedores : TStringList;
|
||||||
function BuscarTodos: IBizContacto; overload;
|
function BuscarTodos: IBizContacto; overload;
|
||||||
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
|
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
|
||||||
|
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||||
|
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TVendedoresController = class(TContactosController, IVendedoresController)
|
TVendedoresController = class(TContactosController, IVendedoresController)
|
||||||
@ -37,14 +39,16 @@ type
|
|||||||
|
|
||||||
function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||||
function EsEliminable(AVendedor: IBizContacto): Boolean;
|
function EsEliminable(AVendedor: IBizContacto): Boolean;
|
||||||
|
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||||
|
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils,
|
Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils,
|
||||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf,
|
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uModuleController,
|
||||||
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores;
|
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores, uPlugins_Intf, uFactuGES_App;
|
||||||
|
|
||||||
{ TVendedorController }
|
{ TVendedorController }
|
||||||
|
|
||||||
@ -246,6 +250,48 @@ begin
|
|||||||
end;
|
end;
|
||||||
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);
|
procedure TVendedoresController.VerTodos(AContactos: IBizContacto);
|
||||||
var
|
var
|
||||||
AEditor : IEditorVendedores;
|
AEditor : IEditorVendedores;
|
||||||
|
|||||||
@ -4,14 +4,9 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||||
ImgList, Controls, PngImageList;
|
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||||
|
|
||||||
type
|
type
|
||||||
IMCContactos = interface(IInterface)
|
|
||||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
|
||||||
|
|
||||||
end;
|
|
||||||
|
|
||||||
TPluginContactos = class(TModuleController, IMCContactos)
|
TPluginContactos = class(TModuleController, IMCContactos)
|
||||||
actClientes: TAction;
|
actClientes: TAction;
|
||||||
actProveedores: TAction;
|
actProveedores: TAction;
|
||||||
@ -47,6 +42,8 @@ type
|
|||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||||
|
const ANombreVendedor : String = '');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -55,11 +52,10 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
|
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
|
||||||
uClientesController, uProveedoresController, uEmpleadosController,
|
uClientesController, uProveedoresController, uEmpleadosController, cxControls,
|
||||||
uVendedoresController,
|
uVendedoresController, uGruposClienteController, uBizGruposCliente,
|
||||||
uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
|
uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController,
|
||||||
uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
|
uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App;
|
||||||
uContactosViewRegister, uBizContactos, uFactuGES_App;
|
|
||||||
|
|
||||||
function GetModule : TModuleController;
|
function GetModule : TModuleController;
|
||||||
begin
|
begin
|
||||||
@ -160,6 +156,7 @@ end;
|
|||||||
constructor TPluginContactos.Create(AOwner: TComponent);
|
constructor TPluginContactos.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
ModuleName := MODULENAME_CONTACTOS;
|
||||||
uContactosViewRegister.RegisterViews;
|
uContactosViewRegister.RegisterViews;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -169,6 +166,29 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
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
|
initialization
|
||||||
uHostManager.RegisterModuleClass(TPluginContactos);
|
uHostManager.RegisterModuleClass(TPluginContactos);
|
||||||
|
|
||||||
|
|||||||
@ -49,63 +49,63 @@
|
|||||||
<DelphiCompile Include="Contactos_view.dpk">
|
<DelphiCompile Include="Contactos_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\adortl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\bdertl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\ccpackD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cfpack_d11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Contactos_model.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxDataD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxExportD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxGridD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dbrtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dclcxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\designide.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dsnap.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxComnD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxPSLnksD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_controller.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_model.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\GUISDK_D11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\Jcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JclVcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JSDialog100.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvGlobusD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvPageCompsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\PNG_D10.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\rtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\SpTBXLib_d11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\tb2k_d11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_controller.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_model.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vclactnband.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vcldb.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vcljpg.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vclshlctrls.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\vclx.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
<DCCReference Include="..\..\Pedidos de cliente\xmlrtl.dcp" />
|
||||||
<DCCReference Include="uContactosViewRegister.pas" />
|
<DCCReference Include="uContactosViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorCliente.pas">
|
<DCCReference Include="uEditorCliente.pas">
|
||||||
<Form>fEditorCliente</Form>
|
<Form>fEditorCliente</Form>
|
||||||
|
|||||||
@ -73,6 +73,10 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
|
DockPos = -6
|
||||||
|
ExplicitWidth = 396
|
||||||
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 857
|
ExplicitWidth = 857
|
||||||
inherited TBXSubmenuItemAcciones: TSpTBXSubmenuItem
|
inherited TBXSubmenuItemAcciones: TSpTBXSubmenuItem
|
||||||
@ -104,7 +108,9 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TSpTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
|
Left = 396
|
||||||
DockPos = 275
|
DockPos = 275
|
||||||
|
ExplicitLeft = 396
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
@ -170,22 +176,22 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
Width = 460
|
Width = 460
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 467
|
Left = 458
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 467
|
ExplicitLeft = 458
|
||||||
ExplicitWidth = 212
|
ExplicitWidth = 212
|
||||||
Width = 212
|
Width = 212
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 676
|
Left = 685
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 676
|
ExplicitLeft = 685
|
||||||
ExplicitWidth = 215
|
ExplicitWidth = 215
|
||||||
Width = 215
|
Width = 215
|
||||||
end
|
end
|
||||||
@ -263,10 +269,6 @@ inherited fEditorClientes: TfEditorClientes
|
|||||||
Enabled = True
|
Enabled = True
|
||||||
Visible = True
|
Visible = True
|
||||||
end
|
end
|
||||||
inherited actExportarExcel: TAction
|
|
||||||
Enabled = False
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
object actDocumentosPedidos: TAction
|
object actDocumentosPedidos: TAction
|
||||||
Category = 'Acciones'
|
Category = 'Acciones'
|
||||||
Caption = 'Pedidos'
|
Caption = 'Pedidos'
|
||||||
|
|||||||
@ -121,6 +121,9 @@ constructor TfEditorClientes.Create(AOwner: TComponent);
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
ViewGrid := frViewClientes1;
|
ViewGrid := frViewClientes1;
|
||||||
|
|
||||||
|
FHeaderText := 'Lista de clientes - ';
|
||||||
|
FWindowCaption := FHeaderText;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorClientes.EliminarInterno;
|
procedure TfEditorClientes.EliminarInterno;
|
||||||
@ -227,7 +230,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
|
|||||||
var
|
var
|
||||||
FTitulo : String;
|
FTitulo : String;
|
||||||
begin
|
begin
|
||||||
FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||||
inherited PonerTitulos(FTitulo);
|
inherited PonerTitulos(FTitulo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
|
|||||||
ClientWidth = 632
|
ClientWidth = 632
|
||||||
Scaled = False
|
Scaled = False
|
||||||
ExplicitWidth = 640
|
ExplicitWidth = 640
|
||||||
|
ExplicitHeight = 240
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -109,6 +110,18 @@ inherited fEditorContacto: TfEditorContacto
|
|||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 618
|
Width = 618
|
||||||
ExplicitWidth = 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
|
end
|
||||||
end
|
end
|
||||||
@ -140,6 +153,18 @@ inherited fEditorContacto: TfEditorContacto
|
|||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 618
|
Width = 618
|
||||||
ExplicitWidth = 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
|
end
|
||||||
end
|
end
|
||||||
@ -167,15 +192,15 @@ inherited fEditorContacto: TfEditorContacto
|
|||||||
end
|
end
|
||||||
inherited StatusBarImages: TPngImageList [7]
|
inherited StatusBarImages: TPngImageList [7]
|
||||||
end
|
end
|
||||||
inherited JvFormStorage: TJvFormStorage
|
inherited LargeImages: TPngImageList [8]
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList [9]
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [10]
|
||||||
Top = 144
|
Top = 144
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList [9]
|
|
||||||
Top = 112
|
|
||||||
end
|
|
||||||
inherited SmallImages: TPngImageList [10]
|
|
||||||
Top = 112
|
|
||||||
end
|
|
||||||
inherited EditorActionList: TActionList [11]
|
inherited EditorActionList: TActionList [11]
|
||||||
Top = 128
|
Top = 128
|
||||||
inherited actGuardarCerrar: TAction
|
inherited actGuardarCerrar: TAction
|
||||||
|
|||||||
@ -11,10 +11,7 @@ inherited fEditorContactos: TfEditorContactos
|
|||||||
end
|
end
|
||||||
inherited TBXDock: TSpTBXDock
|
inherited TBXDock: TSpTBXDock
|
||||||
inherited tbxFiltro: TSpTBXToolbar
|
inherited tbxFiltro: TSpTBXToolbar
|
||||||
ExplicitWidth = 328
|
DockPos = -6
|
||||||
inherited TBXItem37: TSpTBXItem
|
|
||||||
Visible = False
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
object TBXSubmenuItemAcciones: TSpTBXSubmenuItem [4]
|
object TBXSubmenuItemAcciones: TSpTBXSubmenuItem [4]
|
||||||
@ -22,9 +19,7 @@ inherited fEditorContactos: TfEditorContactos
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TSpTBXToolbar
|
inherited TBXTMain2: TSpTBXToolbar
|
||||||
Left = 328
|
|
||||||
DockPos = 286
|
DockPos = 286
|
||||||
ExplicitLeft = 328
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
|
|||||||
@ -57,7 +57,25 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
Width = 786
|
Width = 786
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
inherited tbxMain: TSpTBXToolbar
|
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
|
end
|
||||||
inherited tbxMenu: TSpTBXToolbar
|
inherited tbxMenu: TSpTBXToolbar
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
@ -103,6 +121,7 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
Width = 786
|
Width = 786
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||||
|
Width = 786
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 786
|
Width = 786
|
||||||
@ -145,8 +164,8 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 786
|
Width = 776
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 776
|
||||||
inherited tbxBotones: TSpTBXToolbar
|
inherited tbxBotones: TSpTBXToolbar
|
||||||
Width = 776
|
Width = 776
|
||||||
ExplicitWidth = 776
|
ExplicitWidth = 776
|
||||||
@ -156,14 +175,15 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
end
|
end
|
||||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Top = 357
|
Top = 357
|
||||||
|
Width = 786
|
||||||
ExplicitTop = 357
|
ExplicitTop = 357
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 786
|
Width = 786
|
||||||
ExplicitWidth = 786
|
ExplicitWidth = 786
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Width = 776
|
Width = 786
|
||||||
ExplicitWidth = 776
|
ExplicitWidth = 786
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -173,6 +193,9 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited dxPSEngineController1: TdxPSEngineController
|
||||||
|
Active = True
|
||||||
|
end
|
||||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||||
PopupMenus = <
|
PopupMenus = <
|
||||||
item
|
item
|
||||||
@ -186,9 +209,19 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
inherited actNuevo: TAction
|
inherited actNuevo: TAction
|
||||||
ImageIndex = 22
|
ImageIndex = 22
|
||||||
end
|
end
|
||||||
inherited actExportarExcel: TAction
|
object actDocumentosPedidos: TAction
|
||||||
Enabled = False
|
Category = 'Acciones'
|
||||||
Visible = False
|
Caption = 'Pedidos'
|
||||||
|
ImageIndex = 24
|
||||||
|
OnExecute = actDocumentosPedidosExecute
|
||||||
|
OnUpdate = actDocumentosPedidosUpdate
|
||||||
|
end
|
||||||
|
object ActClientes: TAction
|
||||||
|
Category = 'Acciones'
|
||||||
|
Caption = 'Clientes'
|
||||||
|
ImageIndex = 25
|
||||||
|
OnExecute = ActClientesExecute
|
||||||
|
OnUpdate = ActClientesUpdate
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList [5]
|
inherited SmallImages: TPngImageList [5]
|
||||||
@ -715,6 +748,151 @@ inherited fEditorVendedores: TfEditorVendedores
|
|||||||
49454E44AE426082}
|
49454E44AE426082}
|
||||||
Name = 'PngImage22'
|
Name = 'PngImage22'
|
||||||
Background = clWindow
|
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>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
|
|||||||
@ -11,7 +11,7 @@ uses
|
|||||||
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
|
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
|
||||||
uViewContactos, uIEditorVendedores, pngimage,
|
uViewContactos, uIEditorVendedores, pngimage,
|
||||||
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
|
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
|
||||||
uViewVendedores, dxGDIPlusClasses;
|
uViewVendedores, dxGDIPlusClasses, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)
|
TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)
|
||||||
@ -19,6 +19,15 @@ type
|
|||||||
JsPrevisualizarDialog: TJSDialog;
|
JsPrevisualizarDialog: TJSDialog;
|
||||||
JsImprimirDialog: TJSDialog;
|
JsImprimirDialog: TJSDialog;
|
||||||
JsListaContactosNoEliminados: 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
|
protected
|
||||||
procedure EliminarInterno; override;
|
procedure EliminarInterno; override;
|
||||||
@ -38,6 +47,34 @@ uses
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$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);
|
constructor TfEditorVendedores.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
@ -104,29 +104,36 @@ inherited frViewClientes: TfrViewClientes
|
|||||||
Width = 154
|
Width = 154
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 214
|
Left = 210
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 214
|
ExplicitLeft = 210
|
||||||
ExplicitWidth = 525
|
ExplicitWidth = 525
|
||||||
Width = 525
|
Width = 525
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 675
|
Left = 683
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 675
|
ExplicitLeft = 683
|
||||||
ExplicitWidth = 140
|
ExplicitWidth = 140
|
||||||
Width = 140
|
Width = 140
|
||||||
end
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Provincia:'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 783
|
Width = 783
|
||||||
ExplicitWidth = 793
|
ExplicitWidth = 783
|
||||||
inherited tbxBotones: TSpTBXToolbar
|
inherited tbxBotones: TSpTBXToolbar
|
||||||
Width = 783
|
Width = 783
|
||||||
ExplicitWidth = 783
|
ExplicitWidth = 783
|
||||||
@ -137,7 +144,7 @@ inherited frViewClientes: TfrViewClientes
|
|||||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Top = 423
|
Top = 423
|
||||||
Width = 793
|
Width = 793
|
||||||
ExplicitTop = 422
|
ExplicitTop = 423
|
||||||
ExplicitWidth = 793
|
ExplicitWidth = 793
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 793
|
Width = 793
|
||||||
@ -145,7 +152,7 @@ inherited frViewClientes: TfrViewClientes
|
|||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Width = 793
|
Width = 793
|
||||||
Visible = False
|
Visible = False
|
||||||
ExplicitWidth = 783
|
ExplicitWidth = 793
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -37,6 +37,7 @@ type
|
|||||||
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
||||||
const AMousePos: TPoint; var AHintText: TCaption;
|
const AMousePos: TPoint; var AHintText: TCaption;
|
||||||
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
|
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -47,7 +48,6 @@ uses uViewGridBase;
|
|||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint(
|
procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint(
|
||||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
||||||
|
|||||||
@ -156,7 +156,6 @@ inherited frViewContacto: TfrViewContacto
|
|||||||
Properties.ImmediateUpdateText = True
|
Properties.ImmediateUpdateText = True
|
||||||
Properties.PostPopupValueOnTab = True
|
Properties.PostPopupValueOnTab = True
|
||||||
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
|||||||
@ -103,6 +103,7 @@ type
|
|||||||
FContacto: IBizContacto;
|
FContacto: IBizContacto;
|
||||||
FController : IContactosController;
|
FController : IContactosController;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
procedure CargarPoblaciones;
|
procedure CargarPoblaciones;
|
||||||
@ -171,27 +172,30 @@ end;
|
|||||||
procedure TfrViewContacto.CargarPoblaciones;
|
procedure TfrViewContacto.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
with TProvinciasPoblacionesController.Create do
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
try
|
||||||
Add(FPoblaciones.Names[i]);
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
finally
|
|
||||||
EndUpdate;
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewContacto.CargarProvincias;
|
procedure TfrViewContacto.CargarProvincias;
|
||||||
@ -221,7 +225,7 @@ end;
|
|||||||
procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
{
|
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
FreeANDNIL(FPoblaciones);
|
FreeANDNIL(FPoblaciones);
|
||||||
@ -232,12 +236,12 @@ begin
|
|||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TfrViewContacto.Create(AOwner : TComponent);
|
constructor TfrViewContacto.Create(AOwner : TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -1,6 +1,9 @@
|
|||||||
inherited frViewContactos: TfrViewContactos
|
inherited frViewContactos: TfrViewContactos
|
||||||
Width = 557
|
Width = 557
|
||||||
Height = 458
|
Height = 458
|
||||||
|
OnCreate = CustomViewCreate
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 557
|
ExplicitWidth = 557
|
||||||
ExplicitHeight = 458
|
ExplicitHeight = 458
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
@ -133,15 +136,30 @@ inherited frViewContactos: TfrViewContactos
|
|||||||
Width = 322
|
Width = 322
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
|
Left = 450
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 450
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 547
|
Width = 547
|
||||||
ExplicitWidth = 557
|
ExplicitWidth = 547
|
||||||
inherited tbxBotones: TSpTBXToolbar
|
inherited tbxBotones: TSpTBXToolbar
|
||||||
Width = 547
|
Width = 547
|
||||||
ExplicitWidth = 547
|
ExplicitWidth = 547
|
||||||
@ -152,14 +170,14 @@ inherited frViewContactos: TfrViewContactos
|
|||||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Top = 432
|
Top = 432
|
||||||
Width = 557
|
Width = 557
|
||||||
ExplicitTop = 431
|
ExplicitTop = 432
|
||||||
ExplicitWidth = 557
|
ExplicitWidth = 557
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 557
|
Width = 557
|
||||||
ExplicitWidth = 557
|
ExplicitWidth = 557
|
||||||
inherited TBXToolbar1: TSpTBXToolbar
|
inherited TBXToolbar1: TSpTBXToolbar
|
||||||
Width = 557
|
Width = 557
|
||||||
ExplicitWidth = 547
|
ExplicitWidth = 557
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -41,28 +41,138 @@ type
|
|||||||
cxGridViewEMAIL_2: TcxGridDBColumn;
|
cxGridViewEMAIL_2: TcxGridDBColumn;
|
||||||
cxGridViewPAGINA_WEB: TcxGridDBColumn;
|
cxGridViewPAGINA_WEB: TcxGridDBColumn;
|
||||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
|
procedure OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
|
||||||
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure AnadirFiltroProvincia;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
|
FProvincias : TStringList;
|
||||||
FContactos: IBizContacto;
|
FContactos: IBizContacto;
|
||||||
function GetContactos: IBizContacto; virtual;
|
function GetContactos: IBizContacto; virtual;
|
||||||
procedure SetContactos(const Value: IBizContacto); virtual;
|
procedure SetContactos(const Value: IBizContacto); virtual;
|
||||||
|
procedure CargarProvincias;
|
||||||
public
|
public
|
||||||
|
procedure AnadirOtrosFiltros; override;
|
||||||
property DataSet: IBizContacto read GetContactos write SetContactos;
|
property DataSet: IBizContacto read GetContactos write SetContactos;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
{ TfrViewContactos }
|
{ TfrViewContactos }
|
||||||
|
|
||||||
|
uses uProvinciasPoblacionesController;
|
||||||
|
|
||||||
{
|
{
|
||||||
******************************* TfrViewContactos *******************************
|
******************************* TfrViewContactos *******************************
|
||||||
}
|
}
|
||||||
|
procedure TfrViewContactos.AnadirFiltroProvincia;
|
||||||
|
var
|
||||||
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
|
begin
|
||||||
|
|
||||||
|
//Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
|
||||||
|
//y sobre la lista de pedidos
|
||||||
|
if frViewFiltroBase1.Visible then
|
||||||
|
begin
|
||||||
|
if (VarToStr(frViewFiltroBase1.eLista.EditValue) <> 'Todos') then
|
||||||
|
begin
|
||||||
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
FFiltro.AddItem(cxGridViewPROVINCIA, foEqual, VarToStr(frViewFiltroBase1.eLista.EditValue), VarToStr(frViewFiltroBase1.eLista.EditValue));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.AnadirOtrosFiltros;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AnadirFiltroProvincia;
|
||||||
|
|
||||||
|
//Finalmente activamos el filtro si tenemos algo
|
||||||
|
if cxGridView.DataController.Filter.IsEmpty
|
||||||
|
then cxGridView.DataController.Filter.Active := False
|
||||||
|
else cxGridView.DataController.Filter.Active := True;
|
||||||
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with frViewFiltroBase1.eLista.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
Add('Todos'); //Case 0
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
|
||||||
|
frViewFiltroBase1.eLista.ItemIndex := 0;
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.CustomViewCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := Nil;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
|
||||||
|
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewContactos.GetContactos: IBizContacto;
|
function TfrViewContactos.GetContactos: IBizContacto;
|
||||||
begin
|
begin
|
||||||
Result := FContactos;
|
Result := FContactos;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarFiltro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContactos.OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewContactos.SetContactos(const Value: IBizContacto);
|
procedure TfrViewContactos.SetContactos(const Value: IBizContacto);
|
||||||
begin
|
begin
|
||||||
FContactos := Value;
|
FContactos := Value;
|
||||||
|
|||||||
@ -11,7 +11,6 @@ inherited frViewDireccionEntrega: TfrViewDireccionEntrega
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
ExplicitHeight = 245
|
|
||||||
object cbPoblacion: TcxDBComboBox
|
object cbPoblacion: TcxDBComboBox
|
||||||
Left = 64
|
Left = 64
|
||||||
Top = 64
|
Top = 64
|
||||||
|
|||||||
@ -32,7 +32,9 @@ type
|
|||||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
|
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
procedure CargarPoblaciones;
|
procedure CargarPoblaciones;
|
||||||
|
|
||||||
@ -53,27 +55,30 @@ uses
|
|||||||
procedure TfrViewDireccionEntrega.CargarPoblaciones;
|
procedure TfrViewDireccionEntrega.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
with TProvinciasPoblacionesController.Create do
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
try
|
||||||
Add(FPoblaciones.Names[i]);
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
finally
|
|
||||||
EndUpdate;
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDireccionEntrega.CargarProvincias;
|
procedure TfrViewDireccionEntrega.CargarProvincias;
|
||||||
@ -132,6 +137,7 @@ end;
|
|||||||
constructor TfrViewDireccionEntrega.Create(AOwner: TComponent);
|
constructor TfrViewDireccionEntrega.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -49,7 +49,7 @@ begin
|
|||||||
// Update_Asiento_Factura(aChange);
|
// Update_Asiento_Factura(aChange);
|
||||||
end;
|
end;
|
||||||
ctDelete: begin
|
ctDelete: begin
|
||||||
Delete_Asiento_Factura(aChange);
|
// Delete_Asiento_Factura(aChange);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -1,6 +1,7 @@
|
|||||||
inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
||||||
Caption = 'Seleccionar facturas de cliente'
|
Caption = 'Seleccionar facturas de cliente'
|
||||||
ClientWidth = 654
|
ClientWidth = 654
|
||||||
|
ExplicitTop = 7
|
||||||
ExplicitWidth = 662
|
ExplicitWidth = 662
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
@ -70,6 +71,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
|||||||
Top = 23
|
Top = 23
|
||||||
DockPos = 462
|
DockPos = 462
|
||||||
DockRow = 1
|
DockRow = 1
|
||||||
|
Visible = False
|
||||||
ExplicitLeft = 462
|
ExplicitLeft = 462
|
||||||
ExplicitTop = 23
|
ExplicitTop = 23
|
||||||
end
|
end
|
||||||
@ -267,6 +269,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
|||||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||||
Top = 445
|
Top = 445
|
||||||
Width = 654
|
Width = 654
|
||||||
|
Visible = False
|
||||||
ExplicitTop = 445
|
ExplicitTop = 445
|
||||||
ExplicitWidth = 654
|
ExplicitWidth = 654
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
|
|||||||
@ -1,6 +1,9 @@
|
|||||||
inherited frViewFacturasCliente: TfrViewFacturasCliente
|
inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||||
Width = 665
|
Width = 665
|
||||||
Height = 418
|
Height = 418
|
||||||
|
OnCreate = CustomViewCreate
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 665
|
ExplicitWidth = 665
|
||||||
ExplicitHeight = 418
|
ExplicitHeight = 418
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
@ -114,6 +117,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
|||||||
end
|
end
|
||||||
object cxGridViewRE: TcxGridDBColumn
|
object cxGridViewRE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'RE'
|
DataBinding.FieldName = 'RE'
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
end
|
end
|
||||||
object cxGridViewIMPORTE_RE: TcxGridDBColumn
|
object cxGridViewIMPORTE_RE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'IMPORTE_RE'
|
DataBinding.FieldName = 'IMPORTE_RE'
|
||||||
@ -130,6 +135,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
|||||||
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
|
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
|
||||||
Caption = 'Liquidaci'#243'n'
|
Caption = 'Liquidaci'#243'n'
|
||||||
DataBinding.FieldName = 'REFERENCIA_COMISION'
|
DataBinding.FieldName = 'REFERENCIA_COMISION'
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
GroupSummaryAlignment = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
Width = 54
|
Width = 54
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -172,25 +180,33 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
|||||||
Width = 144
|
Width = 144
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 248
|
Left = 241
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 248
|
ExplicitLeft = 241
|
||||||
ExplicitWidth = 273
|
ExplicitWidth = 273
|
||||||
Width = 273
|
Width = 273
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 558
|
Left = 563
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 558
|
ExplicitLeft = 563
|
||||||
ExplicitWidth = 97
|
ExplicitWidth = 97
|
||||||
Width = 97
|
Width = 97
|
||||||
end
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'Provincia:'
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||||
Width = 655
|
Width = 655
|
||||||
|
|||||||
@ -71,16 +71,24 @@ type
|
|||||||
procedure cxGridViewDataControllerCompare(
|
procedure cxGridViewDataControllerCompare(
|
||||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||||
|
procedure OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
//Filtros relativos a la vista
|
//Filtros relativos a la vista
|
||||||
procedure AnadirFiltroSituaciones;
|
procedure AnadirFiltroSituaciones;
|
||||||
procedure AnadirFiltroFechas;
|
procedure AnadirFiltroFechas;
|
||||||
|
procedure AnadirFiltroProvincia;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
|
FProvincias : TStringList;
|
||||||
FFacturas: IBizFacturaCliente;
|
FFacturas: IBizFacturaCliente;
|
||||||
function GetFacturas: IBizFacturaCliente;
|
function GetFacturas: IBizFacturaCliente;
|
||||||
procedure SetFacturas(const Value: IBizFacturaCliente);
|
procedure SetFacturas(const Value: IBizFacturaCliente);
|
||||||
|
procedure CargarProvincias;
|
||||||
|
|
||||||
public
|
public
|
||||||
procedure AnadirOtrosFiltros; override;
|
procedure AnadirOtrosFiltros; override;
|
||||||
@ -92,7 +100,7 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils,
|
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils,
|
||||||
cxVariants;
|
cxVariants, uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -158,6 +166,23 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.AnadirFiltroProvincia;
|
||||||
|
var
|
||||||
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
|
begin
|
||||||
|
|
||||||
|
//Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
|
||||||
|
//y sobre la lista de pedidos
|
||||||
|
if frViewFiltroBase1.Visible then
|
||||||
|
begin
|
||||||
|
if (VarToStr(frViewFiltroBase1.eLista.EditValue) <> 'Todos') then
|
||||||
|
begin
|
||||||
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
FFiltro.AddItem(cxGridViewPROVINCIA, foEqual, VarToStr(frViewFiltroBase1.eLista.EditValue), VarToStr(frViewFiltroBase1.eLista.EditValue));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewFacturasCliente.AnadirFiltroSituaciones;
|
procedure TfrViewFacturasCliente.AnadirFiltroSituaciones;
|
||||||
var
|
var
|
||||||
FFiltro : TcxFilterCriteriaItemList;
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
@ -177,6 +202,7 @@ begin
|
|||||||
|
|
||||||
AnadirFiltroSituaciones;
|
AnadirFiltroSituaciones;
|
||||||
AnadirFiltroFechas;
|
AnadirFiltroFechas;
|
||||||
|
AnadirFiltroProvincia;
|
||||||
|
|
||||||
//Finalmente activamos el filtro si tenemos algo
|
//Finalmente activamos el filtro si tenemos algo
|
||||||
if cxGridView.DataController.Filter.IsEmpty
|
if cxGridView.DataController.Filter.IsEmpty
|
||||||
@ -185,6 +211,57 @@ begin
|
|||||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with frViewFiltroBase1.eLista.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
Add('Todos'); //Case 0
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
|
||||||
|
frViewFiltroBase1.eLista.ItemIndex := 0;
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.CustomViewCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := Nil;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
|
||||||
|
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
|
||||||
|
frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewFacturasCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
procedure TfrViewFacturasCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
||||||
ALevel: TcxGridLevel);
|
ALevel: TcxGridLevel);
|
||||||
begin
|
begin
|
||||||
@ -236,6 +313,24 @@ begin
|
|||||||
Result := FFacturas;
|
Result := FFacturas;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.OnFiltroListaPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarFiltro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFacturasCliente.OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewFacturasCliente.SetFacturas(const Value: IBizFacturaCliente);
|
procedure TfrViewFacturasCliente.SetFacturas(const Value: IBizFacturaCliente);
|
||||||
begin
|
begin
|
||||||
FFacturas := Value;
|
FFacturas := Value;
|
||||||
|
|||||||
@ -52,7 +52,7 @@ begin
|
|||||||
// Update_Asiento_Factura(aChange);
|
// Update_Asiento_Factura(aChange);
|
||||||
end;
|
end;
|
||||||
ctDelete: begin
|
ctDelete: begin
|
||||||
Delete_Asiento_Factura(aChange);
|
// Delete_Asiento_Factura(aChange);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -14,12 +14,12 @@ inherited DataModuleInventario: TDataModuleInventario
|
|||||||
Top = 84
|
Top = 84
|
||||||
end
|
end
|
||||||
object rda_Inventario: TDARemoteDataAdapter
|
object rda_Inventario: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
GetSchemaCall.RemoteService = RORemoteService
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
UpdateDataCall.RemoteService = RORemoteService
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
GetScriptsCall.RemoteService = RORemoteService
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
RemoteService = RORemoteService
|
RemoteService = RORemoteService
|
||||||
DataStreamer = Bin2DataStreamer
|
|
||||||
Left = 51
|
Left = 51
|
||||||
Top = 151
|
Top = 151
|
||||||
end
|
end
|
||||||
@ -391,7 +391,7 @@ inherited DataModuleInventario: TDataModuleInventario
|
|||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
MasterMappingMode = mmWhere
|
MasterMappingMode = mmWhere
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Inventario
|
RemoteDataAdapter = rda_Inventario
|
||||||
MasterSource = ds_Inventario
|
MasterSource = ds_Inventario
|
||||||
MasterFields = 'ID'
|
MasterFields = 'ID'
|
||||||
@ -467,7 +467,7 @@ inherited DataModuleInventario: TDataModuleInventario
|
|||||||
DataType = datLargeInt
|
DataType = datLargeInt
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Inventario
|
RemoteDataAdapter = rda_Inventario
|
||||||
LogicalName = 'Inventario_Color'
|
LogicalName = 'Inventario_Color'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
|
|||||||
@ -289,8 +289,6 @@ inherited frViewInventario: TfrViewInventario
|
|||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 272
|
|
||||||
Width = 272
|
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 300
|
Left = 300
|
||||||
@ -299,8 +297,6 @@ inherited frViewInventario: TfrViewInventario
|
|||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 300
|
ExplicitLeft = 300
|
||||||
ExplicitWidth = 221
|
|
||||||
Width = 221
|
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 507
|
Left = 507
|
||||||
@ -309,8 +305,6 @@ inherited frViewInventario: TfrViewInventario
|
|||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 507
|
ExplicitLeft = 507
|
||||||
ExplicitWidth = 215
|
|
||||||
Width = 215
|
|
||||||
end
|
end
|
||||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
@ -393,9 +387,6 @@ inherited frViewInventario: TfrViewInventario
|
|||||||
BuiltInReportLink = True
|
BuiltInReportLink = True
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dxPSEngineController1: TdxPSEngineController
|
|
||||||
Active = True
|
|
||||||
end
|
|
||||||
inherited cxStyleRepository1: TcxStyleRepository
|
inherited cxStyleRepository1: TcxStyleRepository
|
||||||
inherited cxStyleSelection: TcxStyle
|
inherited cxStyleSelection: TcxStyle
|
||||||
AssignedValues = [svColor, svFont, svTextColor]
|
AssignedValues = [svColor, svFont, svTextColor]
|
||||||
|
|||||||
@ -64,6 +64,7 @@ type
|
|||||||
FObra: IBizObra;
|
FObra: IBizObra;
|
||||||
FController : IObrasController;
|
FController : IObrasController;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
procedure CargarProvincias;
|
procedure CargarProvincias;
|
||||||
procedure CargarPoblaciones;
|
procedure CargarPoblaciones;
|
||||||
@ -96,27 +97,31 @@ uses
|
|||||||
procedure TfrViewObra.CargarPoblaciones;
|
procedure TfrViewObra.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
with TProvinciasPoblacionesController.Create do
|
||||||
Add(FPoblaciones.Names[i]);
|
try
|
||||||
finally
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
EndUpdate;
|
|
||||||
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObra.CargarProvincias;
|
procedure TfrViewObra.CargarProvincias;
|
||||||
@ -171,6 +176,7 @@ end;
|
|||||||
constructor TfrViewObra.Create(AOwner: TComponent);
|
constructor TfrViewObra.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
|||||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces,
|
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces,
|
||||||
cxGraphics, cxMaskEdit, cxDropDownEdit;
|
cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)
|
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)
|
||||||
@ -34,6 +34,7 @@ type
|
|||||||
pDireccion: String;
|
pDireccion: String;
|
||||||
pPoblacion: String;
|
pPoblacion: String;
|
||||||
pProvincia: String;
|
pProvincia: String;
|
||||||
|
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||||
pCodigoPostal: String;
|
pCodigoPostal: String;
|
||||||
FProvincias : TStringList;
|
FProvincias : TStringList;
|
||||||
FPoblaciones : TStringList;
|
FPoblaciones : TStringList;
|
||||||
@ -57,27 +58,30 @@ uses
|
|||||||
procedure TfEditorDireccionEntregaPedidoProveedor.CargarPoblaciones;
|
procedure TfEditorDireccionEntregaPedidoProveedor.CargarPoblaciones;
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
AID : Integer;
|
|
||||||
begin
|
|
||||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
|
||||||
with TProvinciasPoblacionesController.Create do
|
|
||||||
try
|
|
||||||
FPoblaciones := DarListaPoblaciones(AID);
|
|
||||||
|
|
||||||
with cbPoblacion.Properties.Items do
|
begin
|
||||||
begin
|
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||||
BeginUpdate;
|
Begin
|
||||||
try
|
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
Clear;
|
with TProvinciasPoblacionesController.Create do
|
||||||
for i := 0 to FPoblaciones.Count - 1 do
|
try
|
||||||
Add(FPoblaciones.Names[i]);
|
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||||
finally
|
|
||||||
EndUpdate;
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
end;
|
end;
|
||||||
finally
|
End;
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorDireccionEntregaPedidoProveedor.CargarProvincias;
|
procedure TfEditorDireccionEntregaPedidoProveedor.CargarProvincias;
|
||||||
@ -146,6 +150,7 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorDireccionEntregaPedidoProveedor.FormCreate(Sender: TObject);
|
procedure TfEditorDireccionEntregaPedidoProveedor.FormCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
FIDProvincia := 0;
|
||||||
FProvincias := NIL;
|
FProvincias := NIL;
|
||||||
FPoblaciones := NIL;
|
FPoblaciones := NIL;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */
|
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA6.tmp */
|
||||||
|
|||||||
@ -24,6 +24,7 @@ type
|
|||||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||||
function BuscarTodos: IBizPedidoCliente; overload;
|
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 BuscarPendientes : IBizPedidoCliente;
|
||||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||||
procedure Ver(APedido : IBizPedidoCliente);
|
procedure Ver(APedido : IBizPedidoCliente);
|
||||||
@ -109,6 +110,7 @@ type
|
|||||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||||
function BuscarTodos: IBizPedidoCliente; overload;
|
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 BuscarPendientes : IBizPedidoCliente;
|
||||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||||
function Nuevo : IBizPedidoCliente;
|
function Nuevo : IBizPedidoCliente;
|
||||||
@ -225,6 +227,30 @@ begin
|
|||||||
end;
|
end;
|
||||||
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;
|
function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
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\uDataModulePedidosCliente.dfm */
|
||||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
|
/* 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\dtfA4.tmp */
|
||||||
|
|||||||
@ -242,6 +242,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
|||||||
Size = 255
|
Size = 255
|
||||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_VENDEDOR'
|
||||||
|
DataType = datInteger
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
/* 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\dtfA2.tmp */
|
||||||
|
|||||||
@ -1,6 +1,5 @@
|
|||||||
unit schPedidosClienteClient_Intf;
|
unit schPedidosClienteClient_Intf;
|
||||||
|
|
||||||
{$D-}
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -10,13 +9,13 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
|
RID_PedidoCliente_Art_Colores_Pendientes = '{0635D89F-961F-4A8A-8631-93E80735F276}';
|
||||||
RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
|
RID_ListaAnosPedidos = '{88FC7751-6123-4698-B5ED-A0BA3C31ACB5}';
|
||||||
RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
|
RID_ArticulosPendientes = '{3E7C7A2B-0C2B-43B0-8E2C-6F1F0D1965C4}';
|
||||||
RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
|
RID_PedidosCliente = '{58A32347-5ECD-4B4D-B1A3-8FFE2BC07FDC}';
|
||||||
RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
|
RID_PedidosCliente_Detalles = '{CC8DF9E4-AACC-484E-BBE7-4F4A1A02C9D7}';
|
||||||
RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
|
RID_PedidoCliente_Articulos_Pendientes = '{6D698D2A-FA62-40C2-9B2D-26041E3900CA}';
|
||||||
RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
|
RID_PedidosCliente_Detalle_Color = '{027386CC-D26B-4167-8181-DC9F573BF973}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
|
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
|
||||||
@ -138,6 +137,7 @@ const
|
|||||||
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
||||||
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||||
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||||
|
fld_PedidosClienteID_VENDEDOR = 'ID_VENDEDOR';
|
||||||
|
|
||||||
{ PedidosCliente field indexes }
|
{ PedidosCliente field indexes }
|
||||||
idx_PedidosClienteID = 0;
|
idx_PedidosClienteID = 0;
|
||||||
@ -176,6 +176,7 @@ const
|
|||||||
idx_PedidosClienteREF_TIENDA_WEB = 33;
|
idx_PedidosClienteREF_TIENDA_WEB = 33;
|
||||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
|
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
|
||||||
idx_PedidosClienteDATOS_BANCARIOS = 35;
|
idx_PedidosClienteDATOS_BANCARIOS = 35;
|
||||||
|
idx_PedidosClienteID_VENDEDOR = 36;
|
||||||
|
|
||||||
{ PedidosCliente_Detalles fields }
|
{ PedidosCliente_Detalles fields }
|
||||||
fld_PedidosCliente_DetallesID = 'ID';
|
fld_PedidosCliente_DetallesID = 'ID';
|
||||||
@ -258,7 +259,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IPedidoCliente_Art_Colores_Pendientes }
|
{ IPedidoCliente_Art_Colores_Pendientes }
|
||||||
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
|
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||||
['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
|
['{BEEE5468-6E57-4ED3-95B5-E6C13A853F65}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_PEDIDOValue: Integer;
|
function GetID_PEDIDOValue: Integer;
|
||||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||||
@ -449,7 +450,7 @@ type
|
|||||||
|
|
||||||
{ IListaAnosPedidos }
|
{ IListaAnosPedidos }
|
||||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||||
['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
|
['{55FEE857-66E6-4010-9D14-548A29F9F198}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -484,7 +485,7 @@ type
|
|||||||
|
|
||||||
{ IArticulosPendientes }
|
{ IArticulosPendientes }
|
||||||
IArticulosPendientes = interface(IDAStronglyTypedDataTable)
|
IArticulosPendientes = interface(IDAStronglyTypedDataTable)
|
||||||
['{764F380F-50B6-4FBC-8E75-531B3859322D}']
|
['{0207F031-484C-4420-B620-74888FA2748C}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_ARTICULOValue: Integer;
|
function GetID_ARTICULOValue: Integer;
|
||||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||||
@ -699,7 +700,7 @@ type
|
|||||||
|
|
||||||
{ IPedidosCliente }
|
{ IPedidosCliente }
|
||||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
|
['{2DF3DC58-2F3F-44B7-BCA7-6B5B7477FFD8}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -843,6 +844,10 @@ type
|
|||||||
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
||||||
function GetDATOS_BANCARIOSIsNull: Boolean;
|
function GetDATOS_BANCARIOSIsNull: Boolean;
|
||||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: 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 }
|
{ Properties }
|
||||||
@ -918,6 +923,8 @@ type
|
|||||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
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_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
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;
|
end;
|
||||||
|
|
||||||
{ TPedidosClienteDataTableRules }
|
{ TPedidosClienteDataTableRules }
|
||||||
@ -1071,6 +1078,10 @@ type
|
|||||||
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
||||||
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
|
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
|
||||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: 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 }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
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 FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
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
|
public
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
@ -1154,7 +1167,7 @@ type
|
|||||||
|
|
||||||
{ IPedidosCliente_Detalles }
|
{ IPedidosCliente_Detalles }
|
||||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
|
['{B4AE7BEA-A09E-45A0-A759-F52B4C16CD78}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1357,7 +1370,7 @@ type
|
|||||||
|
|
||||||
{ IPedidoCliente_Articulos_Pendientes }
|
{ IPedidoCliente_Articulos_Pendientes }
|
||||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||||
['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
|
['{19CDD1BE-D8E9-4304-A92F-168055101599}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_ARTICULOValue: Integer;
|
function GetID_ARTICULOValue: Integer;
|
||||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||||
@ -1428,7 +1441,7 @@ type
|
|||||||
|
|
||||||
{ IPedidosCliente_Detalle_Color }
|
{ IPedidosCliente_Detalle_Color }
|
||||||
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||||
['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
|
['{20ACE66E-BAE3-4C47-A309-BFAC58663D1E}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -3087,6 +3100,27 @@ begin
|
|||||||
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
|
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
|
||||||
end;
|
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 }
|
{ TPedidosCliente_DetallesDataTableRules }
|
||||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
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\uPluginPedidosCliente.dfm */
|
||||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
|
/* 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\dtf11A.tmp */
|
||||||
|
|||||||
@ -23,6 +23,9 @@ type
|
|||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
procedure VerPedidos(const ID_Cliente: Integer;
|
procedure VerPedidos(const ID_Cliente: Integer;
|
||||||
const ANombreCliente : String = '');
|
const ANombreCliente : String = '');
|
||||||
|
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||||
|
const ANombreVendedor : String = '');
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -88,6 +91,29 @@ begin
|
|||||||
end;
|
end;
|
||||||
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
|
initialization
|
||||||
RegisterModuleClass(TPluginPedidosCliente);
|
RegisterModuleClass(TPluginPedidosCliente);
|
||||||
|
|
||||||
|
|||||||
@ -60,24 +60,22 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
TargetTable = 'PEDIDOS_CLIENTE'
|
TargetTable = 'PEDIDOS_CLIENTE'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT'#10' PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA,'#10' PEDID' +
|
'SELECT'#10' V_PEDIDOS_CLIENTE.ID, V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' V' +
|
||||||
'OS_CLIENTE.ID_CLIENTE,'#10' PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' PEDIDOS' +
|
'_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' ' +
|
||||||
'_CLIENTE.REFERENCIA,'#10' PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' PED' +
|
' V_PEDIDOS_CLIENTE.REFERENCIA,'#10' V_PEDIDOS_CLIENTE.REFERENCIA_CL' +
|
||||||
'IDOS_CLIENTE.DATOS_BANCARIOS,'#10' PEDIDOS_CLIENTE.OBSERVACIONES,'#10' ' +
|
'IENTE,'#10' V_PEDIDOS_CLIENTE.DATOS_BANCARIOS,'#10' V_PEDIDOS_CLIENTE.' +
|
||||||
' PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' PEDIDOS_CLIENTE.DESCUENTO,'#10' PE' +
|
'OBSERVACIONES,'#10' V_PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLI' +
|
||||||
'DIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' PEDIDOS_CLIENTE.DESCUENTO2,'#10' ' +
|
'ENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_PEDID' +
|
||||||
' PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,'#10' PEDIDOS_CLIENTE.IMPORTE_T' +
|
'OS_CLIENTE.DESCUENTO2,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
|
||||||
'OTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTOS.NIF_CIF, ' +
|
' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS' +
|
||||||
'CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE' +
|
'.REFERENCIA as REF_ClIENTE,'#10' CLIENTES_DATOS.NOMBRE_COMERCIAL,'#10' ' +
|
||||||
'(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALE' +
|
' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTACTO,' +
|
||||||
'SCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POB' +
|
#10' V_PEDIDOS_CLIENTE.CALLE,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10' V_P' +
|
||||||
'LACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PR' +
|
'EDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.CODIGO_POSTAL'#10#10'FRO' +
|
||||||
'OVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_P' +
|
'M'#10' V_PEDIDOS_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' +
|
||||||
'OSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10#10'FROM'#10' PEDIDOS' +
|
'V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10' LEFT JOIN CLIENTES_DATOS ON (CLI' +
|
||||||
'_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_CLIEN' +
|
'ENTES_DATOS.ID_CLIENTE = V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE V_P' +
|
||||||
'TE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTA' +
|
'EDIDOS_CLIENTE.ID = :ID'#10#10
|
||||||
'CTOS_DIRECCIONES.ID = PEDIDOS_CLIENTE.ID_DIRECCION)'#10'WHERE PEDIDO' +
|
|
||||||
'S_CLIENTE.ID = :ID'#10#10
|
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -136,10 +134,6 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
DatasetField = 'NIF_CIF'
|
DatasetField = 'NIF_CIF'
|
||||||
TableField = 'NIF_CIF'
|
TableField = 'NIF_CIF'
|
||||||
end
|
end
|
||||||
item
|
|
||||||
DatasetField = 'REF_CLIENTE'
|
|
||||||
TableField = 'REF_CLIENTE'
|
|
||||||
end
|
|
||||||
item
|
item
|
||||||
DatasetField = 'IMPORTE_NETO'
|
DatasetField = 'IMPORTE_NETO'
|
||||||
TableField = 'IMPORTE_NETO'
|
TableField = 'IMPORTE_NETO'
|
||||||
@ -167,6 +161,16 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'FECHA_PEDIDO'
|
DatasetField = 'FECHA_PEDIDO'
|
||||||
TableField = 'FECHA_PEDIDO'
|
TableField = 'FECHA_PEDIDO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'REF_CLIENTE'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'REF_CLIENTE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_COMERCIAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'NOMBRE_COMERCIAL'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Informe_Cabecera'
|
Name = 'Informe_Cabecera'
|
||||||
@ -212,7 +216,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
@ -220,7 +224,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
@ -230,15 +234,20 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
Name = 'IMPORTE_TOTAL'
|
Name = 'IMPORTE_TOTAL'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REF_CLIENTE'
|
Name = 'REF_CLIENTE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NIF_CIF'
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 15
|
Size = 255
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NOMBRE'
|
Name = 'NOMBRE'
|
||||||
@ -388,17 +397,19 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
|
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
|
||||||
SQL =
|
SQL =
|
||||||
'SELECT PEDIDOS_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' +
|
'SELECT PEDIDOS_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' +
|
||||||
', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA' +
|
', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS.NOMBRE_C' +
|
||||||
'_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECC' +
|
'OMERCIAL,'#10' PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE ' +
|
||||||
'IONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_F' +
|
'AS CALLE_FISCAL,'#10' CONTACTOS_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' ' +
|
||||||
'ISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_ENVIO,'#10' C' +
|
' CONTACTOS.POBLACION AS POBLACION_FISCAL,'#10' CONTACTOS_DIRECCIONE' +
|
||||||
'ONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.' +
|
'S.POBLACION AS POBLACION_ENVIO,'#10' CONTACTOS.PROVINCIA AS PROVINC' +
|
||||||
'PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIG' +
|
'IA_FISCAL,'#10' CONTACTOS_DIRECCIONES.PROVINCIA AS PROVINCIA_ENVIO,' +
|
||||||
'O_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO' +
|
#10' CONTACTOS.CODIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_' +
|
||||||
'_POSTAL_ENVIO'#10#10'FROM'#10' PEDIDOS_CLIENTE'#10' INNER JOIN CONTACTOS ON ' +
|
'DIRECCIONES.CODIGO_POSTAL AS CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' PEDIDOS' +
|
||||||
'(CONTACTOS.ID = PEDIDOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CO' +
|
'_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_CLIEN' +
|
||||||
'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = PEDI' +
|
'TE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTA' +
|
||||||
'DOS_CLIENTE.ID_cliente)'#10'WHERE PEDIDOS_CLIENTE.ID = :ID'#10
|
'CTOS_DIRECCIONES.ID_contacto = PEDIDOS_CLIENTE.ID_cliente)'#10' LEF' +
|
||||||
|
'T JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = PEDIDOS_CL' +
|
||||||
|
'IENTE.ID_cliente)'#10'WHERE PEDIDOS_CLIENTE.ID = :ID'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
@ -420,6 +431,11 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
TableField = '<unknown>'
|
TableField = '<unknown>'
|
||||||
SQLOrigin = 'NOMBRE'
|
SQLOrigin = 'NOMBRE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE_COMERCIAL'
|
||||||
|
TableField = '<unknown>'
|
||||||
|
SQLOrigin = 'NOMBRE_COMERCIAL'
|
||||||
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'PERSONA_CONTACTO'
|
DatasetField = 'PERSONA_CONTACTO'
|
||||||
TableField = '<unknown>'
|
TableField = '<unknown>'
|
||||||
@ -487,6 +503,11 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -552,7 +573,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
PrintOptions.Printer = 'Por defecto'
|
PrintOptions.Printer = 'Por defecto'
|
||||||
PrintOptions.PrintOnSheet = 0
|
PrintOptions.PrintOnSheet = 0
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
ReportOptions.CreateDate = 39065.872423495400000000
|
||||||
ReportOptions.LastChange = 40245.779754583330000000
|
ReportOptions.LastChange = 40365.554343831020000000
|
||||||
ScriptLanguage = 'PascalScript'
|
ScriptLanguage = 'PascalScript'
|
||||||
ShowProgress = False
|
ShowProgress = False
|
||||||
StoreInDFM = False
|
StoreInDFM = False
|
||||||
@ -829,7 +850,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO'
|
Name = 'DESCUENTO'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO'
|
Name = 'IMPORTE_DESCUENTO'
|
||||||
@ -837,7 +858,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCUENTO2'
|
Name = 'DESCUENTO2'
|
||||||
DataType = datCurrency
|
DataType = datFloat
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMPORTE_DESCUENTO2'
|
Name = 'IMPORTE_DESCUENTO2'
|
||||||
@ -847,15 +868,20 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
Name = 'IMPORTE_TOTAL'
|
Name = 'IMPORTE_TOTAL'
|
||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NIF_CIF'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REF_CLIENTE'
|
Name = 'REF_CLIENTE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NIF_CIF'
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 15
|
Size = 255
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'NOMBRE'
|
Name = 'NOMBRE'
|
||||||
@ -1026,6 +1052,11 @@ object RptPedidosCliente: TRptPedidosCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE_COMERCIAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'PERSONA_CONTACTO'
|
Name = 'PERSONA_CONTACTO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
|
|||||||
@ -454,6 +454,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'DATOS_BANCARIOS'
|
DatasetField = 'DATOS_BANCARIOS'
|
||||||
TableField = 'DATOS_BANCARIOS'
|
TableField = 'DATOS_BANCARIOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_VENDEDOR'
|
||||||
|
TableField = 'ID_VENDEDOR'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'PedidosCliente'
|
Name = 'PedidosCliente'
|
||||||
@ -655,6 +659,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
|||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_VENDEDOR'
|
||||||
|
DataType = datInteger
|
||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user