Compare commits
12 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 5df0770b1b | |||
| 0b5e8ef6af | |||
| 89a87e5287 | |||
| d5a1bb79fa | |||
| f2c4e7954f | |||
| 2cbd8d9c60 | |||
| 80e9fdb4df | |||
| aab3f9832f | |||
| 3c31071bc2 | |||
| 8663a34655 | |||
| 9817000e8d | |||
| ecacdd363e |
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,
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
DATOS_BANCARIOS)
|
||||
DATOS_BANCARIOS,
|
||||
ID_VENDEDOR)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
@ -4369,12 +4370,14 @@ SELECT
|
||||
FORMAS_PAGO.DESCRIPCION,
|
||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS,
|
||||
clientes_datos.id_agente
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||
left join clientes_datos on (clientes_datos.id_cliente = contactos.id)
|
||||
;
|
||||
|
||||
/**************************************************/
|
||||
|
||||
@ -113,6 +113,7 @@ type
|
||||
FController : IEmpresasController;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FFormasPago: TStringList;
|
||||
FTiposIVA: TStringList;
|
||||
procedure CargarProvincias;
|
||||
@ -192,27 +193,29 @@ end;
|
||||
procedure TfrViewEmpresa.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewEmpresa.CargarProvincias;
|
||||
@ -286,6 +289,7 @@ end;
|
||||
constructor TfrViewEmpresa.Create(AOwner : TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
bModificarCatalogo := False;
|
||||
|
||||
@ -3,6 +3,8 @@ unit uPlugins_Intf;
|
||||
interface
|
||||
|
||||
const
|
||||
MODULENAME_CONTACTOS = 'Contactos_plugin.bpl';
|
||||
|
||||
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
||||
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
|
||||
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
||||
@ -16,6 +18,12 @@ const
|
||||
MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
|
||||
|
||||
type
|
||||
IMCContactos = interface(IInterface)
|
||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCPresupuestosCliente = interface(IInterface)
|
||||
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||
@ -26,6 +34,8 @@ type
|
||||
['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
|
||||
procedure VerPedidos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCAlbaranesCliente = interface(IInterface)
|
||||
|
||||
@ -53,58 +53,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\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="..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Servidor\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Servidor\Jcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -86,8 +86,9 @@ begin
|
||||
|
||||
{ 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. }
|
||||
if ASource.Active then
|
||||
ASource.Close;
|
||||
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||
// if ASource.Active then
|
||||
// ASource.Close;
|
||||
|
||||
// Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo.
|
||||
if ASource.Filtered then
|
||||
@ -121,8 +122,9 @@ begin
|
||||
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
|
||||
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
|
||||
|
||||
if not ASource.Active then
|
||||
ASource.Open;
|
||||
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||
// if not ASource.Active then
|
||||
// ASource.Open;
|
||||
|
||||
ASource.First;
|
||||
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
program FactuGES;
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -54,7 +54,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,6,0
|
||||
PRODUCTVERSION 1,0,6,0
|
||||
FILEVERSION 1,0,8,0
|
||||
PRODUCTVERSION 1,0,8,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.0.6.0\0"
|
||||
VALUE "ProductVersion", "1.0.8.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -27,7 +27,7 @@ begin
|
||||
// LoadModule('Fabricantes_plugin.bpl');
|
||||
// LoadModule('UnidadesMedida_plugin.bpl');
|
||||
|
||||
LoadModule('Contactos_plugin.bpl');
|
||||
LoadModule(MODULENAME_CONTACTOS);
|
||||
|
||||
LoadModule('Almacenes_plugin.bpl');
|
||||
// LoadModule('Obras_plugin.bpl');
|
||||
|
||||
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?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"/>
|
||||
<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">
|
||||
@ -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="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"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" 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="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="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"]"/>
|
||||
<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="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="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="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="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="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="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="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="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="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"]"/>
|
||||
|
||||
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"?>
|
||||
<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"/>
|
||||
<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">
|
||||
@ -12,6 +12,7 @@
|
||||
<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="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>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?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"/>
|
||||
<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">
|
||||
@ -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="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"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" 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="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="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"]"/>
|
||||
<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="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="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="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="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="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="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="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="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="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"]"/>
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
|
||||
@ -146,15 +147,6 @@
|
||||
<Target Name="AlbaranesCliente_plugin:Make">
|
||||
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -164,6 +156,15 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -281,14 +282,23 @@
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES_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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -49,10 +49,10 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="uAlbaranesClienteController.pas" />
|
||||
<DCCReference Include="uAlbaranesClienteReportController.pas" />
|
||||
<DCCReference Include="uArticulosAlbaranClienteController.pas" />
|
||||
|
||||
Binary file not shown.
@ -588,8 +588,21 @@ end;
|
||||
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
|
||||
var
|
||||
AEditor : IEditorAlbaranCliente;
|
||||
// AAlbaran2: IBizAlbaranCliente;
|
||||
// Esnuevo: Boolean;
|
||||
begin
|
||||
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);
|
||||
|
||||
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
|
||||
@ -614,6 +627,10 @@ begin
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if AEditor.ReadOnly then
|
||||
SetDataTableReadOnly(AAlbaran.DataTable, False);
|
||||
|
||||
// if Esnuevo then
|
||||
// DuplicarRegistro(AAlbaran.DataTable, AAlbaran.DataTable, True, True, True);
|
||||
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
|
||||
@ -69,17 +69,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' +
|
||||
'_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
|
||||
' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' +
|
||||
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' +
|
||||
'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
|
||||
'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
|
||||
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
|
||||
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
|
||||
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
|
||||
') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' +
|
||||
'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
|
||||
'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' +
|
||||
'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' +
|
||||
' :ID'#10#10
|
||||
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS' +
|
||||
'.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_A' +
|
||||
'LBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALB' +
|
||||
'ARANES_CLIENTE.PROVINCIA,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL'#10#10'F' +
|
||||
'ROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.I' +
|
||||
'D = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT JOIN CLIENTES_DATOS O' +
|
||||
'N (CLIENTES_DATOS.ID_CLIENTE = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'W' +
|
||||
'HERE V_ALBARANES_CLIENTE.ID = :ID'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -181,6 +178,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -240,7 +241,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
@ -248,7 +249,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
@ -273,6 +274,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -427,18 +433,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||
SQL =
|
||||
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
|
||||
'.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
|
||||
'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
|
||||
'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
|
||||
'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
|
||||
'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
|
||||
'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
|
||||
'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
|
||||
'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' +
|
||||
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
|
||||
'_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' +
|
||||
'IENTE.ID = :ID'#10
|
||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS.NOMB' +
|
||||
'RE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' CONTACTO' +
|
||||
'S.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECCIONES.CALLE AS CALLE_' +
|
||||
'ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_FISCAL,'#10' CONTACTOS_DI' +
|
||||
'RECCIONES.POBLACION AS POBLACION_ENVIO,'#10' CONTACTOS.PROVINCIA AS' +
|
||||
' PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.PROVINCIA AS PROVINCI' +
|
||||
'A_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CO' +
|
||||
'NTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' ' +
|
||||
' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V' +
|
||||
'_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIREC' +
|
||||
'CIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = V_ALBARANES_CLIEN' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -504,6 +512,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DatasetField = 'CODIGO_POSTAL_ENVIO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CODIGO_POSTAL_ENVIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'NOMBRE_COMERCIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Etiquetas'
|
||||
@ -527,6 +540,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -883,7 +901,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
@ -891,7 +909,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
@ -916,6 +934,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -1087,6 +1110,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
|
||||
@ -60,10 +60,10 @@ type
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
frxDBEtiquetas: TfrxDBDataset;
|
||||
DADSEtiquetas: TDADataSource;
|
||||
tbl_Etiquetas: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
|
||||
@ -203,74 +203,77 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Height = 51
|
||||
ExplicitWidth = 841
|
||||
ExplicitHeight = 51
|
||||
inherited ToolButton14: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 399
|
||||
inherited FontName: TJvFontComboBox [3]
|
||||
Left = 278
|
||||
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
|
||||
end
|
||||
inherited ToolButton13: TToolButton [6]
|
||||
Left = 544
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 544
|
||||
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
|
||||
end
|
||||
inherited ToolButton6: TToolButton [7]
|
||||
Left = 552
|
||||
Top = 0
|
||||
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
|
||||
inherited ToolButton14: TToolButton [12]
|
||||
Left = 280
|
||||
ExplicitLeft = 280
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 267
|
||||
Top = 49
|
||||
ExplicitLeft = 267
|
||||
ExplicitTop = 49
|
||||
Left = 345
|
||||
Top = 27
|
||||
ExplicitLeft = 345
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 412
|
||||
Top = 49
|
||||
ExplicitLeft = 412
|
||||
ExplicitTop = 49
|
||||
Left = 490
|
||||
Top = 27
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 537
|
||||
Top = 49
|
||||
ExplicitLeft = 537
|
||||
ExplicitTop = 49
|
||||
Left = 615
|
||||
Top = 27
|
||||
ExplicitLeft = 615
|
||||
ExplicitTop = 27
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -339,16 +342,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 607
|
||||
Width = 855
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 607
|
||||
ExplicitWidth = 855
|
||||
end
|
||||
inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
|
||||
Left = 0
|
||||
Top = 464
|
||||
@ -372,18 +365,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitWidth = 855
|
||||
ExplicitHeight = 143
|
||||
inherited Bevel3: TBevel
|
||||
Left = 338
|
||||
Left = 437
|
||||
Height = 201
|
||||
ExplicitLeft = 338
|
||||
ExplicitLeft = 437
|
||||
ExplicitHeight = 201
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 471
|
||||
Width = 342
|
||||
Height = 9
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 342
|
||||
ExplicitHeight = 9
|
||||
Left = 570
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -393,24 +382,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 542
|
||||
Left = 641
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 542
|
||||
ExplicitLeft = 641
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -420,41 +407,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
DataBinding.DataField = 'IMPORTE_NETO'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 542
|
||||
Left = 641
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 542
|
||||
ExplicitLeft = 641
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -477,37 +464,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
Left = 289
|
||||
ExplicitLeft = 289
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited Panel1: TPanel
|
||||
Width = 185
|
||||
ExplicitWidth = 185
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [5]
|
||||
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
|
||||
inherited StatusBar: TJvStatusBar [5]
|
||||
Top = 607
|
||||
Width = 855
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 607
|
||||
ExplicitWidth = 855
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
inherited SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
@ -1013,7 +991,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
inherited LargeImages: TPngImageList [7]
|
||||
inherited LargeImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
@ -1809,10 +1787,23 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end>
|
||||
Bitmap = {}
|
||||
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
|
||||
inherited dsDataTable: TDADataSource [10]
|
||||
Left = 24
|
||||
Top = 136
|
||||
end
|
||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
||||
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran,
|
||||
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
|
||||
|
||||
type
|
||||
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
||||
@ -227,8 +227,8 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||
{var
|
||||
ADireccion : IBizDireccionesContacto;}
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
@ -245,7 +245,7 @@ begin
|
||||
end;
|
||||
|
||||
// Elegir la dirección de envio
|
||||
{ case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
ADireccion := NIL;
|
||||
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
||||
@ -260,7 +260,7 @@ begin
|
||||
begin
|
||||
try
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
// FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
@ -268,10 +268,10 @@ begin
|
||||
end
|
||||
else begin
|
||||
FController.QuitarDireccionEnvio(FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
// FAlbaran.Edit;
|
||||
// FAlbaran.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
}
|
||||
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
|
||||
@ -199,10 +199,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
inherited actAnchoAuto: TAction
|
||||
ImageIndex = 22
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actGenerarFactura: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar factura'
|
||||
|
||||
@ -483,7 +483,7 @@ begin
|
||||
// end;
|
||||
// 100 : begin // Albaran nuevo vacio
|
||||
if FController.Anadir(Albaranes) then
|
||||
FController.Ver(Albaranes);
|
||||
FController.Ver(Albaranes);
|
||||
// end;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
@ -137,6 +137,7 @@ type
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
@ -243,27 +244,29 @@ end;
|
||||
procedure TfrViewAlbaranCliente.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.CargarProvincias;
|
||||
|
||||
@ -1,6 +1,9 @@
|
||||
inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
Width = 802
|
||||
Height = 490
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 490
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -142,8 +145,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
end
|
||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PROVINCIA'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||
@ -221,25 +222,33 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
Width = 228
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 257
|
||||
Left = 252
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 257
|
||||
ExplicitLeft = 252
|
||||
ExplicitWidth = 460
|
||||
Width = 460
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 638
|
||||
Left = 647
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 638
|
||||
ExplicitLeft = 647
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 792
|
||||
|
||||
@ -78,16 +78,25 @@ type
|
||||
procedure cxGridViewDataControllerCompare(
|
||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
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
|
||||
//Filtros relativos a la vista
|
||||
procedure AnadirFiltroSituaciones;
|
||||
procedure AnadirFiltroFechas;
|
||||
procedure AnadirFiltroProvincia;
|
||||
|
||||
protected
|
||||
FProvincias : TStringList;
|
||||
FAlbaranes: IBizAlbaranCliente;
|
||||
function GetAlbaranes: IBizAlbaranCliente;
|
||||
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||
procedure CargarProvincias;
|
||||
|
||||
public
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
|
||||
@ -97,7 +106,7 @@ implementation
|
||||
|
||||
uses
|
||||
SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
|
||||
uViewGridBase, uReferenciasUtils, cxVariants;
|
||||
uViewGridBase, uReferenciasUtils, cxVariants, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -166,6 +175,23 @@ begin
|
||||
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;
|
||||
var
|
||||
FFiltro : TcxFilterCriteriaItemList;
|
||||
@ -192,6 +218,7 @@ begin
|
||||
|
||||
AnadirFiltroSituaciones;
|
||||
AnadirFiltroFechas;
|
||||
AnadirFiltroProvincia;
|
||||
|
||||
//Finalmente activamos el filtro si tenemos algo
|
||||
if cxGridView.DataController.Filter.IsEmpty
|
||||
@ -200,6 +227,57 @@ begin
|
||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
@ -272,6 +350,24 @@ begin
|
||||
Result := FAlbaranes;
|
||||
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);
|
||||
begin
|
||||
FAlbaranes := Value;
|
||||
|
||||
@ -12,8 +12,6 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 129
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 64
|
||||
Top = 10
|
||||
@ -142,64 +140,67 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
Width = 263
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
AlignHorz = ahParentManaged
|
||||
AlignVert = avParentManaged
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
Caption = 'Calle:'
|
||||
CaptionOptions.Text = 'Calle:'
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Provincia:'
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Control = cbProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'C.P.:'
|
||||
CaptionOptions.Text = 'C.P.:'
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Contacto:'
|
||||
CaptionOptions.Text = 'Contacto:'
|
||||
Control = ePersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Tel'#233'fono:'
|
||||
CaptionOptions.Text = 'Tel'#233'fono:'
|
||||
Control = eTlfTrabajo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -7,7 +7,8 @@ uses
|
||||
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
||||
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces;
|
||||
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||
|
||||
type
|
||||
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
|
||||
@ -47,7 +48,9 @@ type
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FController : IAlbaranesClienteController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlbaranCliente: IBizAlbaranCliente;
|
||||
@ -71,27 +74,29 @@ uses
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
|
||||
@ -168,6 +173,7 @@ end;
|
||||
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FAlbaran := NIL;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
|
||||
@ -6,7 +6,8 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||
uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor,
|
||||
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters;
|
||||
|
||||
type
|
||||
TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor)
|
||||
@ -38,6 +39,7 @@ type
|
||||
pDireccion: String;
|
||||
pPoblacion: String;
|
||||
pProvincia: String;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
pCodigoPostal: String;
|
||||
pPersonaContacto: String;
|
||||
pTelefono: String;
|
||||
@ -63,27 +65,30 @@ uses
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarPoblaciones;
|
||||
var
|
||||
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
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
|
||||
@ -154,6 +159,7 @@ end;
|
||||
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -51,6 +51,7 @@ type
|
||||
FAlmacen: IBizAlmacen;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlmacen: IBizAlmacen;
|
||||
@ -78,27 +79,30 @@ uses
|
||||
procedure TfrViewAlmacen.CargarPoblaciones;
|
||||
var
|
||||
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
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlmacen.CargarProvincias;
|
||||
@ -153,6 +157,7 @@ end;
|
||||
constructor TfrViewAlmacen.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
Binary file not shown.
@ -38,28 +38,30 @@
|
||||
<DelphiCompile Include="Comisiones_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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="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\uIEditorComisiones.pas" />
|
||||
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- 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,
|
||||
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
|
||||
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
|
||||
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController;
|
||||
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController, uComisionesReportController;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
@ -923,13 +923,13 @@ begin
|
||||
end;
|
||||
|
||||
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
|
||||
{var
|
||||
var
|
||||
AReportController : IComisionesReportController;
|
||||
ID_Facturas: TIntegerList;
|
||||
}
|
||||
ID_Comisiones: TIntegerList;
|
||||
|
||||
begin
|
||||
{ AReportController := TComisionesReportController.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
AReportController := TComisionesReportController.Create;
|
||||
ID_Comisiones := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
@ -940,32 +940,31 @@ begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(AComision.ID);
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(AComision.ID);
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
|
||||
AReportController.Preview(ID_Facturas, AOriginal, ACopia, AContabilidad);
|
||||
AReportController.Preview(ID_Comisiones);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
FreeANDNIL(ID_Comisiones);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
|
||||
{var
|
||||
var
|
||||
AReportController : IComisionesReportController;
|
||||
ID_Facturas: TIntegerList;
|
||||
}
|
||||
ID_Comisiones: TIntegerList;
|
||||
|
||||
begin
|
||||
{ AReportController := TComisionesReportController.Create;
|
||||
ID_Facturas := TIntegerList.Create;
|
||||
AReportController := TComisionesReportController.Create;
|
||||
ID_Comisiones := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
@ -976,22 +975,21 @@ begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Facturas.Add(AComision.ID);
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Facturas.Add(AComision.ID);
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
|
||||
AReportController.Print(ID_Facturas, AOriginal, ACopia, AContabilidad);
|
||||
AReportController.Print(ID_Comisiones);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Facturas);
|
||||
FreeANDNIL(ID_Comisiones);
|
||||
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
|
||||
end
|
||||
object rda_Comisiones: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 51
|
||||
Top = 143
|
||||
end
|
||||
@ -32,7 +32,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
||||
Size = 254
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
LogicalName = 'ListaAnosComisiones'
|
||||
IndexDefs = <>
|
||||
@ -52,6 +52,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Comisiones_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
@ -108,7 +109,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
||||
DictionaryEntry = 'Comisiones_USUARIO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
LogicalName = 'Comisiones'
|
||||
IndexDefs = <>
|
||||
@ -129,7 +130,8 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'FacturasCliente_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasComision_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -214,7 +216,7 @@ inherited DataModuleComisiones: TDataModuleComisiones
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
MasterSource = ds_Comisiones
|
||||
MasterFields = 'ID'
|
||||
|
||||
@ -7,13 +7,13 @@ uses
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport,
|
||||
uIDataModuleComisiones, uBizComisiones, uIDataModuleComisionesReport,
|
||||
uDADesigntimeCall, uDataModuleBase,
|
||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter, uIntegerListUtils;
|
||||
|
||||
type
|
||||
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport)
|
||||
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
rda_Comisiones: TDARemoteDataAdapter;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
@ -33,7 +33,7 @@ type
|
||||
function NewItem : IBizComision;
|
||||
|
||||
// Report
|
||||
// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
|
||||
function GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -52,19 +52,18 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
{
|
||||
function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary;
|
||||
|
||||
function TDataModuleComisiones.GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad);
|
||||
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam);
|
||||
finally
|
||||
// FreeANDNIL(AParam);
|
||||
FreeANDNIL(AParam);
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
function TDataModuleComisiones.NewItem: IBizComision;
|
||||
begin
|
||||
|
||||
Binary file not shown.
@ -51,6 +51,7 @@
|
||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\rtl.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
|
||||
<DCCReference Include="Data\vcl.dcp" />
|
||||
<DCCReference Include="Data\vcldb.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;
|
||||
|
||||
{$D-}
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -10,18 +9,14 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosComisiones = '{124A6A45-F446-409F-9C7E-A8CD5A84C5D0}';
|
||||
RID_FacturasComision = '{832CC300-EC95-4807-B0C0-93F9F63F64E7}';
|
||||
RID_Comisiones = '{66A2E21C-016E-4850-8315-0289EB4EB403}';
|
||||
RID_FacturasComision_Refresh = '{29AE784C-2303-4744-881D-CE76B889D5FB}';
|
||||
RID_Comisiones_Refresh = '{0F16C4E7-4468-4755-BBBE-453BA603474C}';
|
||||
RID_ListaAnosComisiones = '{66E00D22-209F-4E5E-85DF-BE652D61F802}';
|
||||
RID_FacturasComision = '{A126BC5D-015C-4584-A4B9-0A06FF260E0F}';
|
||||
RID_Comisiones = '{E62AD8E5-0BBA-4075-88FC-90D4A33BFEDA}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosComisiones = 'ListaAnosComisiones';
|
||||
nme_FacturasComision = 'FacturasComision';
|
||||
nme_Comisiones = 'Comisiones';
|
||||
nme_FacturasComision_Refresh = 'FacturasComision_Refresh';
|
||||
nme_Comisiones_Refresh = 'Comisiones_Refresh';
|
||||
|
||||
{ ListaAnosComisiones fields }
|
||||
fld_ListaAnosComisionesANO = 'ANO';
|
||||
@ -83,64 +78,10 @@ const
|
||||
idx_ComisionesIMPORTE_TOTAL = 7;
|
||||
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
|
||||
{ IListaAnosComisiones }
|
||||
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{E5D0E523-CFA7-49C9-AC39-4495CD5F10B7}']
|
||||
['{1349D704-D40A-462B-95FE-2038BE81C5FE}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -175,7 +116,7 @@ type
|
||||
|
||||
{ IFacturasComision }
|
||||
IFacturasComision = interface(IDAStronglyTypedDataTable)
|
||||
['{5B66CE03-2FFD-472C-8752-D5A8894D7340}']
|
||||
['{C3BFD07E-6C74-4487-8281-11341EB61A5B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -366,7 +307,7 @@ type
|
||||
|
||||
{ IComisiones }
|
||||
IComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{B02238A8-1502-4A07-8E95-EF01498C7832}']
|
||||
['{8B6313BD-F198-4D7D-9695-70B105957CB3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -495,328 +436,6 @@ type
|
||||
|
||||
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
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
@ -1361,518 +980,9 @@ begin
|
||||
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
|
||||
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
|
||||
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasComision_Refresh, TFacturasComision_RefreshDataTableRules);
|
||||
RegisterDataTableRules(RID_Comisiones_Refresh, TComisiones_RefreshDataTableRules);
|
||||
|
||||
end.
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -29,6 +29,7 @@ type
|
||||
protected
|
||||
procedure CalcularComision;
|
||||
procedure COMISIONOnChange(Sender: TDACustomField);
|
||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -115,6 +116,18 @@ end;
|
||||
|
||||
{ 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;
|
||||
begin
|
||||
if not Self.DataTable.Editing then
|
||||
|
||||
@ -47,9 +47,7 @@ object PluginComisiones: TPluginComisiones
|
||||
object actComisiones: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Comisiones'
|
||||
Enabled = False
|
||||
ImageIndex = 0
|
||||
Visible = False
|
||||
OnExecute = actComisionesExecute
|
||||
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 = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasComision_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
@ -307,7 +307,7 @@ object srvComisiones: TsrvComisiones
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
@ -318,11 +318,10 @@ object srvComisiones: TsrvComisiones
|
||||
Default = True
|
||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, FE' +
|
||||
'CHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, I' +
|
||||
'D_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_COM' +
|
||||
'ISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' +
|
||||
'A = :ID_COMISION_LIQUIDADA'#10
|
||||
'SELECT '#10' ID, ID_EMPRESA, ID_COMISION_LIQUIDADA, REFERENCIA, F' +
|
||||
'ECHA_FACTURA, FECHA_VENCIMIENTO,'#10' SITUACION, BASE_IMPONIBLE, ' +
|
||||
'ID_CLIENTE, NIF_CIF, NOMBRE,'#10' ID_AGENTE, COMISION, IMPORTE_CO' +
|
||||
'MISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID = :ID'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -333,10 +332,6 @@ object srvComisiones: TsrvComisiones
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||
TableField = 'ID_COMISION_LIQUIDADA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
@ -380,178 +375,93 @@ object srvComisiones: TsrvComisiones
|
||||
item
|
||||
DatasetField = 'IMPORTE_COMISION'
|
||||
TableField = 'IMPORTE_COMISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||
TableField = 'ID_COMISION_LIQUIDADA'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasComision_Refresh'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasComision_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Size = 20
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Size = 100
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'FacturasCliente_COMISION'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
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
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
@ -805,34 +715,6 @@ object srvComisiones: TsrvComisiones
|
||||
RelationshipType = rtForeignKey
|
||||
end>
|
||||
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
|
||||
Name = 'Delete FacturasComision'
|
||||
DoUpdate = False
|
||||
@ -846,6 +728,34 @@ object srvComisiones: TsrvComisiones
|
||||
DoInsert = False
|
||||
DatasetName = 'Comisiones'
|
||||
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>
|
||||
Version = 0
|
||||
Left = 48
|
||||
@ -857,8 +767,8 @@ object srvComisiones: TsrvComisiones
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="2D18D13A61EF420786DCB03803545680" L' +
|
||||
'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="List' +
|
||||
'"Comisiones" Left="0,00" Top="36,98" />'#13#10' <Entity Name="Factu' +
|
||||
'rasComision" Left="375,00" Top="0,00" />'#13#10' <Entity Name="List' +
|
||||
'aAnosComisiones" Left="174,00" Top="118,00" />'#13#10' </Diagram>'#13#10'</' +
|
||||
'Diagrams>'#13#10
|
||||
end
|
||||
@ -882,8 +792,9 @@ object srvComisiones: TsrvComisiones
|
||||
InsertCommandName = 'Insert_FacturasComision'
|
||||
DeleteCommandName = 'Delete_FacturasComision'
|
||||
UpdateCommandName = 'Update_FacturasComision'
|
||||
RefreshDatasetName = 'FacturasComision_Refresh'
|
||||
ReferencedDataset = 'FacturasComision'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 248
|
||||
Top = 80
|
||||
@ -1198,6 +1109,14 @@ object srvComisiones: TsrvComisiones
|
||||
Name = 'Comisiones_USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end
|
||||
item
|
||||
Name = 'FacturasComision_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 150
|
||||
Top = 22
|
||||
|
||||
@ -34,7 +34,7 @@ type
|
||||
private
|
||||
protected
|
||||
{ IsrvComisiones methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -43,8 +43,8 @@ implementation
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
|
||||
uRestriccionesUsuarioUtils, uBizComisionesServer;
|
||||
// uRptWordFacturaCliente, uRptFacturasCliente_Server;
|
||||
uRestriccionesUsuarioUtils, uBizComisionesServer, uRptComisiones_Server;
|
||||
// uRptWordFacturaCliente, ;
|
||||
|
||||
procedure Create_srvComisiones(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -80,17 +80,16 @@ begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptFacturasCliente;
|
||||
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptComisiones;
|
||||
begin
|
||||
{ AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
AReportGenerator := TRptComisiones.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad);
|
||||
Result := AReportGenerator.GenerarInforme(ListaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -71,7 +71,12 @@ requires
|
||||
TntUnicodeVcl,
|
||||
tb2k_d11,
|
||||
cxGridD11,
|
||||
cxExportD11;
|
||||
cxExportD11,
|
||||
frx11,
|
||||
fs11,
|
||||
fqb110,
|
||||
bdertl,
|
||||
frxe11;
|
||||
|
||||
contains
|
||||
uComisionesViewRegister in 'uComisionesViewRegister.pas',
|
||||
@ -79,6 +84,7 @@ contains
|
||||
uEditorComisiones in 'uEditorComisiones.pas' {fEditorComisiones: TfEditorFacturasCliente},
|
||||
uViewComision in 'uViewComision.pas' {frViewComision: TFrame},
|
||||
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.
|
||||
|
||||
@ -41,6 +41,7 @@
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="bdertl.dcp" />
|
||||
<DCCReference Include="Comisiones_controller.dcp" />
|
||||
<DCCReference Include="Comisiones_model.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
@ -60,6 +61,10 @@
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.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="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
@ -87,6 +92,10 @@
|
||||
<Form>fEditorComisiones</Form>
|
||||
<DesignClass>TfEditorFacturasCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorComisionesReport.pas">
|
||||
<Form>fEditorComisionesReport</Form>
|
||||
<DesignClass>TfEditorFacturasCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewComision.pas">
|
||||
<Form>frViewComision</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -96,7 +105,7 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewFacturasComision.pas">
|
||||
<Form>frViewFacturaComision</Form>
|
||||
<Form>frViewFacturasComision</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
|
||||
@ -8,8 +8,8 @@ procedure UnregisterViews;
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorRegistryUtils, uEditorComisiones, uEditorComision;
|
||||
// , uEditorFacturasClienteReport, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
|
||||
uEditorRegistryUtils, uEditorComisiones, uEditorComision, uEditorComisionesReport;
|
||||
//, uEditorElegirArticulosFacturaCliente, uEditorElegirFacturasCliente;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
@ -17,7 +17,7 @@ begin
|
||||
EditorRegistry.RegisterClass(TfEditorComision, 'EditorComision');
|
||||
// EditorRegistry.RegisterClass(TfEditorElegirArticulosFacturaCliente, 'EditorElegirArticulosFacturaCliente');
|
||||
// EditorRegistry.RegisterClass(TfEditorElegirFacturasCliente, 'EditorElegirFacturasCliente');
|
||||
// EditorRegistry.RegisterClass(TfEditorFacturasClientePreview, 'EditorFacturasClientePreview');
|
||||
EditorRegistry.RegisterClass(TfEditorComisionesPreview, 'EditorComisionesPreview');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
@ -26,7 +26,7 @@ begin
|
||||
EditorRegistry.UnRegisterClass(TfEditorComision);
|
||||
// EditorRegistry.UnRegisterClass(TfEditorElegirArticulosFacturaCliente);
|
||||
// EditorRegistry.UnRegisterClass(TfEditorElegirFacturasCliente);
|
||||
// EditorRegistry.UnRegisterClass(TfEditorFacturasClientePreview);
|
||||
EditorRegistry.UnRegisterClass(TfEditorComisionesPreview);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -52,7 +52,7 @@ inherited fEditorComision: TfEditorComision
|
||||
Width = 722
|
||||
ExplicitWidth = 722
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
ExplicitWidth = 267
|
||||
inherited TBXItem2: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -198,8 +198,26 @@ inherited fEditorComision: TfEditorComision
|
||||
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
|
||||
end>
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
IsCaptionAssigned = True
|
||||
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
|
||||
inherited ToolBar1: TToolBar
|
||||
@ -227,6 +245,10 @@ inherited fEditorComision: TfEditorComision
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 128
|
||||
inherited actEliminar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [6]
|
||||
Left = 168
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uIEditorComision, uComisionesController, JvExComCtrls,
|
||||
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, cxGraphics, cxControls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxLabel,
|
||||
JvEnterTab, uViewDetallesGenerico, uViewFacturasComision;
|
||||
JvEnterTab, uViewDetallesGenerico, uViewFacturasComision, Grids, DBGrids;
|
||||
|
||||
type
|
||||
TfEditorComision = class(TfEditorDBItem, IEditorComision)
|
||||
|
||||
@ -197,12 +197,8 @@ var
|
||||
Respuesta : Integer;
|
||||
AComisiones: IBizComision;
|
||||
AllItems: Boolean;
|
||||
AOriginal: Integer;
|
||||
ACopia: Integer;
|
||||
AContabilidad: Integer;
|
||||
|
||||
begin
|
||||
{
|
||||
AComisiones := Nil;
|
||||
AllItems := False;
|
||||
|
||||
@ -225,20 +221,16 @@ begin
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||
end
|
||||
else
|
||||
AComisiones := Comisiones;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
|
||||
if Assigned(AComisiones) then
|
||||
FController.Print(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
|
||||
FController.Print(AComisiones, AllItems);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorComisiones.ModificarInterno;
|
||||
@ -274,12 +266,9 @@ var
|
||||
Respuesta : Integer;
|
||||
AComisiones: IBizComision;
|
||||
AllItems: Boolean;
|
||||
AOriginal: Integer;
|
||||
ACopia: Integer;
|
||||
AContabilidad: Integer;
|
||||
|
||||
begin
|
||||
{
|
||||
|
||||
AComisiones := Nil;
|
||||
AllItems := False;
|
||||
|
||||
@ -302,20 +291,16 @@ begin
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
|
||||
AComisiones := (Controller as IComisionesClienteController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||
AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComision;
|
||||
end
|
||||
else
|
||||
AComisiones := Comisiones;
|
||||
|
||||
//Preguntamos si desea que en las facturas se vea el Sello
|
||||
if ElegirOpcionesImpresionFacturaCliente(AOriginal, ACopia, AContabilidad) then
|
||||
if Assigned(AComisiones) then
|
||||
FController.Preview(AComisiones, AOriginal, ACopia, AContabilidad, AllItems);
|
||||
FController.Preview(AComisiones, AllItems);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
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="..\..\Servidor\FactuGES_Server.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\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="Data\Contactos_data.dproj" />
|
||||
<Projects Include="Model\Contactos_model.dproj" />
|
||||
@ -131,14 +135,50 @@
|
||||
<Target Name="PedidosCliente_plugin:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_controller:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -11,6 +11,7 @@ uses
|
||||
type
|
||||
IClientesController = interface(IContactosController)
|
||||
['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
function BuscarTodosTiendaWeb: IBizCliente;
|
||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
@ -23,6 +24,8 @@ type
|
||||
procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
|
||||
procedure VerFacturasDeCliente(ACliente : IBizCliente);
|
||||
procedure VerRecibosDeCliente(ACliente : IBizCliente);
|
||||
procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = ''); overload;
|
||||
function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
|
||||
end;
|
||||
|
||||
@ -38,11 +41,14 @@ type
|
||||
|
||||
function Buscar(const ID: Integer): IBizContacto; override;
|
||||
function BuscarTodos: IBizContacto; override;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
function BuscarTodosTiendaWeb: IBizCliente;
|
||||
function BuscarEtiquetadosFelicitacion: IBizCliente;
|
||||
function Nuevo : IBizContacto; override;
|
||||
procedure Ver(AContacto : IBizContacto); override;
|
||||
procedure VerTodos(AContactos: IBizContacto); override;
|
||||
procedure VerTodos(AContactos: IBizContacto); overload; override;
|
||||
procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = ''); overload;
|
||||
function ElegirContacto(AContactos : IBizContacto;
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
@ -63,9 +69,9 @@ implementation
|
||||
|
||||
uses
|
||||
Forms, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uDataTableUtils, uDADataTable, uDAInterfaces, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController,
|
||||
Dialogs, uIntegerListUtils, uFactuGES_App,
|
||||
Dialogs, uIntegerListUtils, uFactuGES_App, uStringsUtils,
|
||||
uPlugins_Intf;
|
||||
|
||||
{ TClientesController }
|
||||
@ -94,6 +100,29 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TClientesController.BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := (BuscarTodos as IBizCliente);
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_VENDEDOR
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ClientesID_AGENTE), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TClientesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
@ -517,6 +546,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerTodos(AContactos: IBizContacto;
|
||||
const AVerModal: Boolean; const AWindowCaption, AHeaderText: String);
|
||||
var
|
||||
AEditor : IEditorClientes;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorClientes', IEditorClientes, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
AEditor.Contactos := AContactos;
|
||||
AEditor.Controller := Self;
|
||||
AEditor.MultiSelect := True;
|
||||
|
||||
if AVerModal then
|
||||
AEditor.ShowModal
|
||||
else
|
||||
AEditor.ShowEmbedded;
|
||||
|
||||
finally
|
||||
if AVerModal then
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TClientesController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorClientes;
|
||||
|
||||
@ -18,6 +18,8 @@ type
|
||||
function DarListaVendedores : TStringList;
|
||||
function BuscarTodos: IBizContacto; overload;
|
||||
function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
|
||||
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||
end;
|
||||
|
||||
TVendedoresController = class(TContactosController, IVendedoresController)
|
||||
@ -37,14 +39,16 @@ type
|
||||
|
||||
function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
function EsEliminable(AVendedor: IBizContacto): Boolean;
|
||||
procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
|
||||
procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf,
|
||||
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores;
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uModuleController,
|
||||
uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores, uPlugins_Intf, uFactuGES_App;
|
||||
|
||||
{ TVendedorController }
|
||||
|
||||
@ -246,6 +250,48 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerClientesDeVendedor(AVendedor: IBizVendedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCContactos;
|
||||
begin
|
||||
if not Assigned(AVendedor) then
|
||||
raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
|
||||
|
||||
if not AVendedor.DataTable.Active then
|
||||
AVendedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_CONTACTOS);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCContactos, APlugin) then
|
||||
APlugin.VerClientesVendedor(AVendedor.ID, AVendedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerPedidosDeVendedor(AVendedor: IBizVendedor);
|
||||
var
|
||||
AModule : TModuleController;
|
||||
APlugin : IMCPedidosCliente;
|
||||
begin
|
||||
if not Assigned(AVendedor) then
|
||||
raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
|
||||
|
||||
if not AVendedor.DataTable.Active then
|
||||
AVendedor.DataTable.Active := True;
|
||||
|
||||
AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_CLIENTE);
|
||||
if Assigned(AModule) then
|
||||
try
|
||||
if Supports(AModule, IMCPedidosCliente, APlugin) then
|
||||
APlugin.VerPedidosVendedor(AVendedor.ID, AVendedor.NOMBRE);
|
||||
finally
|
||||
APlugin := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVendedoresController.VerTodos(AContactos: IBizContacto);
|
||||
var
|
||||
AEditor : IEditorVendedores;
|
||||
|
||||
@ -4,14 +4,9 @@ interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList;
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
IMCContactos = interface(IInterface)
|
||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||
|
||||
end;
|
||||
|
||||
TPluginContactos = class(TModuleController, IMCContactos)
|
||||
actClientes: TAction;
|
||||
actProveedores: TAction;
|
||||
@ -47,6 +42,8 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -55,11 +52,10 @@ implementation
|
||||
|
||||
uses
|
||||
Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
|
||||
uClientesController, uProveedoresController, uEmpleadosController,
|
||||
uVendedoresController,
|
||||
uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
|
||||
uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
|
||||
uContactosViewRegister, uBizContactos, uFactuGES_App;
|
||||
uClientesController, uProveedoresController, uEmpleadosController, cxControls,
|
||||
uVendedoresController, uGruposClienteController, uBizGruposCliente,
|
||||
uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController,
|
||||
uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -160,6 +156,7 @@ end;
|
||||
constructor TPluginContactos.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_CONTACTOS;
|
||||
uContactosViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
@ -169,6 +166,29 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor: String);
|
||||
var
|
||||
AClientesController : IClientesController;
|
||||
AClientesVendedor : IBizCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de clientes del vendedor %s', [ANombreVendedor]);
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AClientesVendedor := AClientesController.BuscarTodosVendedor(ID_Vendedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
AClientesController.VerTodos(AClientesVendedor, True, AText);
|
||||
finally
|
||||
AClientesVendedor := NIL;
|
||||
AClientesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
uHostManager.RegisterModuleClass(TPluginContactos);
|
||||
|
||||
|
||||
@ -49,63 +49,63 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclshlctrls.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -73,6 +73,10 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
DockPos = -6
|
||||
ExplicitWidth = 396
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 857
|
||||
inherited TBXSubmenuItemAcciones: TSpTBXSubmenuItem
|
||||
@ -104,7 +108,9 @@ inherited fEditorClientes: TfEditorClientes
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 396
|
||||
DockPos = 275
|
||||
ExplicitLeft = 396
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -170,22 +176,22 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Width = 460
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 467
|
||||
Left = 458
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 467
|
||||
ExplicitLeft = 458
|
||||
ExplicitWidth = 212
|
||||
Width = 212
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 676
|
||||
Left = 685
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 676
|
||||
ExplicitLeft = 685
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
@ -263,10 +269,6 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actDocumentosPedidos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Pedidos'
|
||||
|
||||
@ -121,6 +121,9 @@ constructor TfEditorClientes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := frViewClientes1;
|
||||
|
||||
FHeaderText := 'Lista de clientes - ';
|
||||
FWindowCaption := FHeaderText;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.EliminarInterno;
|
||||
@ -227,7 +230,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
|
||||
@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -109,6 +110,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -140,6 +153,18 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 618
|
||||
ExplicitWidth = 618
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -167,15 +192,15 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
inherited StatusBarImages: TPngImageList [7]
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage
|
||||
inherited LargeImages: TPngImageList [8]
|
||||
Top = 112
|
||||
end
|
||||
inherited SmallImages: TPngImageList [9]
|
||||
Top = 112
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [10]
|
||||
Top = 144
|
||||
end
|
||||
inherited LargeImages: TPngImageList [9]
|
||||
Top = 112
|
||||
end
|
||||
inherited SmallImages: TPngImageList [10]
|
||||
Top = 112
|
||||
end
|
||||
inherited EditorActionList: TActionList [11]
|
||||
Top = 128
|
||||
inherited actGuardarCerrar: TAction
|
||||
|
||||
@ -11,10 +11,7 @@ inherited fEditorContactos: TfEditorContactos
|
||||
end
|
||||
inherited TBXDock: TSpTBXDock
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
ExplicitWidth = 328
|
||||
inherited TBXItem37: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
DockPos = -6
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
object TBXSubmenuItemAcciones: TSpTBXSubmenuItem [4]
|
||||
@ -22,9 +19,7 @@ inherited fEditorContactos: TfEditorContactos
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 328
|
||||
DockPos = 286
|
||||
ExplicitLeft = 328
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
|
||||
@ -57,7 +57,25 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 474
|
||||
ExplicitWidth = 641
|
||||
object SpTBXSubmenuItem1: TSpTBXSubmenuItem [13]
|
||||
Caption = 'Documentos relacionados'
|
||||
DisplayMode = nbdmImageAndText
|
||||
ImageIndex = 23
|
||||
Images = SmallImages
|
||||
OnClick = actDocumentosPedidosExecute
|
||||
DropdownCombo = True
|
||||
object SpTBXItem3: TSpTBXItem
|
||||
Action = ActClientes
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
object SpTBXItem2: TSpTBXItem
|
||||
Action = actDocumentosPedidos
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 786
|
||||
@ -103,6 +121,7 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 786
|
||||
@ -145,8 +164,8 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
@ -156,14 +175,15 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 357
|
||||
Width = 786
|
||||
ExplicitTop = 357
|
||||
ExplicitWidth = 786
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 776
|
||||
ExplicitWidth = 776
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -173,6 +193,9 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||
PopupMenus = <
|
||||
item
|
||||
@ -186,9 +209,19 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
inherited actNuevo: TAction
|
||||
ImageIndex = 22
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
object actDocumentosPedidos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Pedidos'
|
||||
ImageIndex = 24
|
||||
OnExecute = actDocumentosPedidosExecute
|
||||
OnUpdate = actDocumentosPedidosUpdate
|
||||
end
|
||||
object ActClientes: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Clientes'
|
||||
ImageIndex = 25
|
||||
OnExecute = ActClientesExecute
|
||||
OnUpdate = ActClientesUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
@ -715,6 +748,151 @@ inherited fEditorVendedores: TfEditorVendedores
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage22'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000018E4944415478DA
|
||||
6364C002966C3EF19F010F88F1B56084B119CF4E6443516C9CFF8B116440B48F
|
||||
398AA6BFFFFE31FCF9F38F61CDAEB30CBD5316329CDF399D116E8051DE4FB0A2
|
||||
7393D8190E9FFFC520127C8201D90098E6DF7FFE326CDC778141469483A1B07E
|
||||
26D810B801FF7F7F6498942600D7943FFF3F866610BDF5D025B00B50BC6098F9
|
||||
8AE1CFD7070C971799A1385B3FE73B8AE6DF7F41F45F8603A76F81E5BB27CD87
|
||||
18A01B778AE1EFB7070CD7D68431A07B2779EA0F14CD20F69FBFFF184E5CBA87
|
||||
30402B6415C3DFAFF7196E6E2F67C0E69DA8BECF289A7FFDFECB70EEFA438401
|
||||
EA9E9D0CEF2F7530BC7AFA9E01977744435FC03583BC74F9F613840120A78280
|
||||
AD211B033EEF78D4BD046BFE0D34E4C683E71003906D21C63B76A58F197E010D
|
||||
B9F7E4157603B07907E42290A173DA0A192C0A1F805DF0F8E55BEC0660F30E48
|
||||
33C8D0B55B5E3218E7DC0587C5F337EF310DC0E59D3F5F6E317CBEB70E6C8058
|
||||
E829B81A8206C0BC03032003163ECF84F3FF337EC76F00CC3BC8A06001AA1EC6
|
||||
FFFFF1E65C820000241257B48E5A5E7D0000000049454E44AE426082}
|
||||
Name = 'PngImage23'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD25200000A4D694343505068
|
||||
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
|
||||
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
|
||||
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
|
||||
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
|
||||
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
|
||||
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
|
||||
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
|
||||
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
|
||||
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
|
||||
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
|
||||
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
|
||||
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
|
||||
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
|
||||
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
|
||||
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
|
||||
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
|
||||
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
|
||||
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
|
||||
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
|
||||
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
|
||||
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
|
||||
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
|
||||
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
|
||||
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
|
||||
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
|
||||
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
|
||||
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
|
||||
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
|
||||
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
|
||||
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
|
||||
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
|
||||
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
|
||||
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
|
||||
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
|
||||
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
|
||||
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
|
||||
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
|
||||
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
|
||||
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
|
||||
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
|
||||
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
|
||||
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
|
||||
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
|
||||
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
|
||||
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
|
||||
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
|
||||
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
|
||||
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
|
||||
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
|
||||
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
|
||||
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
|
||||
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
|
||||
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
|
||||
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
|
||||
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
|
||||
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
|
||||
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
|
||||
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
|
||||
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
|
||||
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
|
||||
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
|
||||
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
|
||||
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
|
||||
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
|
||||
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
|
||||
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
|
||||
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
|
||||
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
|
||||
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
|
||||
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
|
||||
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
|
||||
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
|
||||
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
|
||||
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
|
||||
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
|
||||
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
|
||||
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
|
||||
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
|
||||
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
|
||||
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
|
||||
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
|
||||
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
|
||||
F73EE77CFEFC2FF784F3FB25D29F33000001764944415478DA63FCFFFF3FC394
|
||||
C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
|
||||
98866A80CB7E5B14C57B1C0F836964F1CD56FB18E6AEDACB306FE9264C03F081
|
||||
5FBFFF826D06E1251B0E623700DD05D8C07283ED0C2BB71CC16D00CCD920F00F
|
||||
28F7E7CF3FB8CD2167DC1816EB6C6558BBE3187E03602ED9667380C1EB8803DC
|
||||
E6C80B9E0CF33436316CDA7312BF01309B3FDF3ECCF072712C3E1FB96018B0CB
|
||||
E11083DB013BB0ECA45D0F18941B6A18D8D9D33174FEFC3993615E620B038601
|
||||
2067C3FCFCAC4D8D41ABFD3158311CFCF801C4DF1966EF326060DE9E8A302023
|
||||
CA8DC1E3903D8A2D2017A01800D2FCE11DC480534EA806248739836D85857AF4
|
||||
252F5403609AC106FC64987D2B08D580B8200794284BB8E68B30E0E34484E60F
|
||||
1F202E7895826A40949F1D5C33DCA0194610031ED62334C3BCF0AB0CD580502F
|
||||
6B86D5DB8EA28481D3B554702CCC5E258F350E510C00250C74A0CDFB86C18AF5
|
||||
38CE44602FCFE00200175B62A961F8A2FD0000000049454E44AE426082}
|
||||
Name = 'PngImage24'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001EC4944415478DA
|
||||
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
|
||||
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
|
||||
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
|
||||
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
|
||||
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
|
||||
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
|
||||
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
|
||||
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
|
||||
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
|
||||
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
|
||||
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
|
||||
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
|
||||
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
|
||||
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
|
||||
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
|
||||
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
|
||||
Name = 'PngImage25'
|
||||
Background = clWindow
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
|
||||
uViewContactos, uIEditorVendedores, pngimage,
|
||||
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
|
||||
uViewVendedores, dxGDIPlusClasses;
|
||||
uViewVendedores, dxGDIPlusClasses, StdCtrls, TntStdCtrls, SpTBXEditors;
|
||||
|
||||
type
|
||||
TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)
|
||||
@ -19,6 +19,15 @@ type
|
||||
JsPrevisualizarDialog: TJSDialog;
|
||||
JsImprimirDialog: TJSDialog;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
SpTBXSubmenuItem1: TSpTBXSubmenuItem;
|
||||
SpTBXItem2: TSpTBXItem;
|
||||
actDocumentosPedidos: TAction;
|
||||
ActClientes: TAction;
|
||||
SpTBXItem3: TSpTBXItem;
|
||||
procedure actDocumentosPedidosExecute(Sender: TObject);
|
||||
procedure actDocumentosPedidosUpdate(Sender: TObject);
|
||||
procedure ActClientesExecute(Sender: TObject);
|
||||
procedure ActClientesUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
@ -38,6 +47,34 @@ uses
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorVendedores.ActClientesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IVendedoresController).VerClientesDeVendedor(IBizVendedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.ActClientesUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.actDocumentosPedidosExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(FController as IVendedoresController).VerPedidosDeVendedor(IBizVendedor(FContactos));
|
||||
end;
|
||||
|
||||
procedure TfEditorVendedores.actDocumentosPedidosUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not ViewGrid.IsEmpty
|
||||
and ViewGrid.EsSeleccionCeldaDatos
|
||||
end;
|
||||
|
||||
constructor TfEditorVendedores.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -104,29 +104,36 @@ inherited frViewClientes: TfrViewClientes
|
||||
Width = 154
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 214
|
||||
Left = 210
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 214
|
||||
ExplicitLeft = 210
|
||||
ExplicitWidth = 525
|
||||
Width = 525
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 675
|
||||
Left = 683
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 675
|
||||
ExplicitLeft = 683
|
||||
ExplicitWidth = 140
|
||||
Width = 140
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 783
|
||||
ExplicitWidth = 793
|
||||
ExplicitWidth = 783
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 783
|
||||
ExplicitWidth = 783
|
||||
@ -137,7 +144,7 @@ inherited frViewClientes: TfrViewClientes
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 423
|
||||
Width = 793
|
||||
ExplicitTop = 422
|
||||
ExplicitTop = 423
|
||||
ExplicitWidth = 793
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 793
|
||||
@ -145,7 +152,7 @@ inherited frViewClientes: TfrViewClientes
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 793
|
||||
Visible = False
|
||||
ExplicitWidth = 783
|
||||
ExplicitWidth = 793
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -37,6 +37,7 @@ type
|
||||
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
||||
const AMousePos: TPoint; var AHintText: TCaption;
|
||||
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -47,7 +48,6 @@ uses uViewGridBase;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
procedure TfrViewClientes.cxGridViewFELICITACIONGetCellHint(
|
||||
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
||||
|
||||
@ -156,7 +156,6 @@ inherited frViewContacto: TfrViewContacto
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
|
||||
@ -103,6 +103,7 @@ type
|
||||
FContacto: IBizContacto;
|
||||
FController : IContactosController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
@ -171,27 +172,30 @@ end;
|
||||
procedure TfrViewContacto.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewContacto.CargarProvincias;
|
||||
@ -221,7 +225,7 @@ end;
|
||||
procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
FreeANDNIL(FPoblaciones);
|
||||
@ -232,12 +236,12 @@ begin
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
constructor TfrViewContacto.Create(AOwner : TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -1,6 +1,9 @@
|
||||
inherited frViewContactos: TfrViewContactos
|
||||
Width = 557
|
||||
Height = 458
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 557
|
||||
ExplicitHeight = 458
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -133,15 +136,30 @@ inherited frViewContactos: TfrViewContactos
|
||||
Width = 322
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 450
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.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
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 547
|
||||
ExplicitWidth = 557
|
||||
ExplicitWidth = 547
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 547
|
||||
ExplicitWidth = 547
|
||||
@ -152,14 +170,14 @@ inherited frViewContactos: TfrViewContactos
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 432
|
||||
Width = 557
|
||||
ExplicitTop = 431
|
||||
ExplicitTop = 432
|
||||
ExplicitWidth = 557
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 557
|
||||
ExplicitWidth = 557
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 557
|
||||
ExplicitWidth = 547
|
||||
ExplicitWidth = 557
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -41,28 +41,138 @@ type
|
||||
cxGridViewEMAIL_2: TcxGridDBColumn;
|
||||
cxGridViewPAGINA_WEB: 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
|
||||
FProvincias : TStringList;
|
||||
FContactos: IBizContacto;
|
||||
function GetContactos: IBizContacto; virtual;
|
||||
procedure SetContactos(const Value: IBizContacto); virtual;
|
||||
procedure CargarProvincias;
|
||||
public
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
property DataSet: IBizContacto read GetContactos write SetContactos;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewContactos }
|
||||
|
||||
uses uProvinciasPoblacionesController;
|
||||
|
||||
{
|
||||
******************************* 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;
|
||||
begin
|
||||
Result := FContactos;
|
||||
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);
|
||||
begin
|
||||
FContactos := Value;
|
||||
|
||||
@ -11,7 +11,6 @@ inherited frViewDireccionEntrega: TfrViewDireccionEntrega
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
ExplicitHeight = 245
|
||||
object cbPoblacion: TcxDBComboBox
|
||||
Left = 64
|
||||
Top = 64
|
||||
|
||||
@ -32,7 +32,9 @@ type
|
||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
|
||||
@ -53,27 +55,30 @@ uses
|
||||
procedure TfrViewDireccionEntrega.CargarPoblaciones;
|
||||
var
|
||||
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
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntrega.CargarProvincias;
|
||||
@ -132,6 +137,7 @@ end;
|
||||
constructor TfrViewDireccionEntrega.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Formas de pago\Controller\FormasPago_controller.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
|
||||
<Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
|
||||
@ -311,14 +312,23 @@
|
||||
<Target Name="PedidosProveedor_view:Make">
|
||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FormasPago_controller">
|
||||
<MSBuild Projects="..\Formas de pago\Controller\FormasPago_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FormasPago_controller:Clean">
|
||||
<MSBuild Projects="..\Formas de pago\Controller\FormasPago_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FormasPago_controller:Make">
|
||||
<MSBuild Projects="..\Formas de pago\Controller\FormasPago_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view;FormasPago_controller" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean;FormasPago_controller:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make;FormasPago_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -49,7 +49,7 @@ begin
|
||||
// Update_Asiento_Factura(aChange);
|
||||
end;
|
||||
ctDelete: begin
|
||||
Delete_Asiento_Factura(aChange);
|
||||
// Delete_Asiento_Factura(aChange);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -644,7 +644,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
|
||||
'UACION, NIF_CIF, FECHA_FACTURA, fecha_vencimiento, BASE_IMPONIBL' +
|
||||
'E, IMPORTE_IVA, IMPORTE_RE, IMPORTE_TOTAL'#10#10'from V_facturas_clien' +
|
||||
'te'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, NOMBRE'#10#10
|
||||
'te'#10'where {where}'#10'order by ANO, MES, FECHA_FACTURA, REFERENCIA, N' +
|
||||
'OMBRE'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
||||
Caption = 'Seleccionar facturas de cliente'
|
||||
ClientWidth = 654
|
||||
ExplicitTop = 7
|
||||
ExplicitWidth = 662
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
@ -70,6 +71,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
||||
Top = 23
|
||||
DockPos = 462
|
||||
DockRow = 1
|
||||
Visible = False
|
||||
ExplicitLeft = 462
|
||||
ExplicitTop = 23
|
||||
end
|
||||
@ -267,6 +269,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 445
|
||||
Width = 654
|
||||
Visible = False
|
||||
ExplicitTop = 445
|
||||
ExplicitWidth = 654
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
|
||||
@ -1,6 +1,9 @@
|
||||
inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Width = 665
|
||||
Height = 418
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 665
|
||||
ExplicitHeight = 418
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -114,6 +117,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
end
|
||||
object cxGridViewRE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'RE'
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewIMPORTE_RE: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'IMPORTE_RE'
|
||||
@ -130,6 +135,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
|
||||
Caption = 'Liquidaci'#243'n'
|
||||
DataBinding.FieldName = 'REFERENCIA_COMISION'
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
GroupSummaryAlignment = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 54
|
||||
end
|
||||
end
|
||||
@ -172,25 +180,33 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
|
||||
Width = 144
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 248
|
||||
Left = 241
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 248
|
||||
ExplicitLeft = 241
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 558
|
||||
Left = 563
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 558
|
||||
ExplicitLeft = 563
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 655
|
||||
|
||||
@ -71,16 +71,24 @@ type
|
||||
procedure cxGridViewDataControllerCompare(
|
||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
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
|
||||
//Filtros relativos a la vista
|
||||
procedure AnadirFiltroSituaciones;
|
||||
procedure AnadirFiltroFechas;
|
||||
procedure AnadirFiltroProvincia;
|
||||
|
||||
protected
|
||||
FProvincias : TStringList;
|
||||
FFacturas: IBizFacturaCliente;
|
||||
function GetFacturas: IBizFacturaCliente;
|
||||
procedure SetFacturas(const Value: IBizFacturaCliente);
|
||||
procedure CargarProvincias;
|
||||
|
||||
public
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
@ -92,7 +100,7 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils,
|
||||
cxVariants;
|
||||
cxVariants, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -158,6 +166,23 @@ begin
|
||||
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;
|
||||
var
|
||||
FFiltro : TcxFilterCriteriaItemList;
|
||||
@ -177,6 +202,7 @@ begin
|
||||
|
||||
AnadirFiltroSituaciones;
|
||||
AnadirFiltroFechas;
|
||||
AnadirFiltroProvincia;
|
||||
|
||||
//Finalmente activamos el filtro si tenemos algo
|
||||
if cxGridView.DataController.Filter.IsEmpty
|
||||
@ -185,6 +211,57 @@ begin
|
||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
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;
|
||||
ALevel: TcxGridLevel);
|
||||
begin
|
||||
@ -236,6 +313,24 @@ begin
|
||||
Result := FFacturas;
|
||||
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);
|
||||
begin
|
||||
FFacturas := Value;
|
||||
|
||||
@ -52,7 +52,7 @@ begin
|
||||
// Update_Asiento_Factura(aChange);
|
||||
end;
|
||||
ctDelete: begin
|
||||
Delete_Asiento_Factura(aChange);
|
||||
// Delete_Asiento_Factura(aChange);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -13,8 +13,8 @@ object srvFormasPago: TsrvFormasPago
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="FormasPago" Left="0,' +
|
||||
'00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="393' +
|
||||
',00" Top="97,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
'00" Top="0,00" />'#13#10' <Entity Name="FormasPagoPlazos" Left="390' +
|
||||
',00" Top="94,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
@ -138,7 +138,11 @@ object srvFormasPago: TsrvFormasPago
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'FORMAS_PAGO'
|
||||
StatementType = stAutoSQL
|
||||
SQL =
|
||||
'SELECT '#10' ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCUR' +
|
||||
'SAL, '#10' DC, CUENTA'#10' FROM'#10' FORMAS_PAGO'#10' WHERE {Where}'#10' or' +
|
||||
'der by DESCRIPCION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
|
||||
@ -14,12 +14,12 @@ inherited DataModuleInventario: TDataModuleInventario
|
||||
Top = 84
|
||||
end
|
||||
object rda_Inventario: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 51
|
||||
Top = 151
|
||||
end
|
||||
@ -391,7 +391,7 @@ inherited DataModuleInventario: TDataModuleInventario
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Inventario
|
||||
MasterSource = ds_Inventario
|
||||
MasterFields = 'ID'
|
||||
@ -467,7 +467,7 @@ inherited DataModuleInventario: TDataModuleInventario
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Inventario
|
||||
LogicalName = 'Inventario_Color'
|
||||
IndexDefs = <>
|
||||
|
||||
@ -289,8 +289,6 @@ inherited frViewInventario: TfrViewInventario
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 272
|
||||
Width = 272
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 300
|
||||
@ -299,8 +297,6 @@ inherited frViewInventario: TfrViewInventario
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 300
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 507
|
||||
@ -309,8 +305,6 @@ inherited frViewInventario: TfrViewInventario
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 507
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
@ -393,9 +387,6 @@ inherited frViewInventario: TfrViewInventario
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited cxStyleRepository1: TcxStyleRepository
|
||||
inherited cxStyleSelection: TcxStyle
|
||||
AssignedValues = [svColor, svFont, svTextColor]
|
||||
|
||||
@ -64,6 +64,7 @@ type
|
||||
FObra: IBizObra;
|
||||
FController : IObrasController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
@ -96,27 +97,31 @@ uses
|
||||
procedure TfrViewObra.CargarPoblaciones;
|
||||
var
|
||||
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
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewObra.CargarProvincias;
|
||||
@ -171,6 +176,7 @@ end;
|
||||
constructor TfrViewObra.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces,
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters;
|
||||
|
||||
type
|
||||
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)
|
||||
@ -34,6 +34,7 @@ type
|
||||
pDireccion: String;
|
||||
pPoblacion: String;
|
||||
pProvincia: String;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
pCodigoPostal: String;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
@ -57,27 +58,30 @@ uses
|
||||
procedure TfEditorDireccionEntregaPedidoProveedor.CargarPoblaciones;
|
||||
var
|
||||
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
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
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;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfEditorDireccionEntregaPedidoProveedor.CargarProvincias;
|
||||
@ -146,6 +150,7 @@ end;
|
||||
|
||||
procedure TfEditorDireccionEntregaPedidoProveedor.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA6.tmp */
|
||||
|
||||
@ -24,6 +24,7 @@ type
|
||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||
function BuscarTodos: IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
function BuscarPendientes : IBizPedidoCliente;
|
||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
procedure Ver(APedido : IBizPedidoCliente);
|
||||
@ -108,7 +109,8 @@ type
|
||||
function Anadir(APedido : IBizPedidoCliente) : Boolean;
|
||||
function Buscar(const ID: Integer): IBizPedidoCliente;
|
||||
function BuscarTodos: IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
|
||||
function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
function BuscarPendientes : IBizPedidoCliente;
|
||||
function BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
function Nuevo : IBizPedidoCliente;
|
||||
@ -225,6 +227,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosClienteController.BuscarTodosVendedor(
|
||||
const ID_Vendedor: Integer): IBizPedidoCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_VENDEDOR
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_VENDEDOR), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30C.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA4.tmp */
|
||||
|
||||
@ -242,6 +242,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'ID_VENDEDOR'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30A.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA2.tmp */
|
||||
|
||||
@ -1,6 +1,5 @@
|
||||
unit schPedidosClienteClient_Intf;
|
||||
|
||||
{$D-}
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -10,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
|
||||
RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
|
||||
RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
|
||||
RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
|
||||
RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
|
||||
RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
|
||||
RID_PedidoCliente_Art_Colores_Pendientes = '{0635D89F-961F-4A8A-8631-93E80735F276}';
|
||||
RID_ListaAnosPedidos = '{88FC7751-6123-4698-B5ED-A0BA3C31ACB5}';
|
||||
RID_ArticulosPendientes = '{3E7C7A2B-0C2B-43B0-8E2C-6F1F0D1965C4}';
|
||||
RID_PedidosCliente = '{58A32347-5ECD-4B4D-B1A3-8FFE2BC07FDC}';
|
||||
RID_PedidosCliente_Detalles = '{CC8DF9E4-AACC-484E-BBE7-4F4A1A02C9D7}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{6D698D2A-FA62-40C2-9B2D-26041E3900CA}';
|
||||
RID_PedidosCliente_Detalle_Color = '{027386CC-D26B-4167-8181-DC9F573BF973}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
|
||||
@ -138,6 +137,7 @@ const
|
||||
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
|
||||
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
|
||||
fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||
fld_PedidosClienteID_VENDEDOR = 'ID_VENDEDOR';
|
||||
|
||||
{ PedidosCliente field indexes }
|
||||
idx_PedidosClienteID = 0;
|
||||
@ -176,6 +176,7 @@ const
|
||||
idx_PedidosClienteREF_TIENDA_WEB = 33;
|
||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
|
||||
idx_PedidosClienteDATOS_BANCARIOS = 35;
|
||||
idx_PedidosClienteID_VENDEDOR = 36;
|
||||
|
||||
{ PedidosCliente_Detalles fields }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -258,7 +259,7 @@ const
|
||||
type
|
||||
{ IPedidoCliente_Art_Colores_Pendientes }
|
||||
IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
|
||||
['{BEEE5468-6E57-4ED3-95B5-E6C13A853F65}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -449,7 +450,7 @@ type
|
||||
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
|
||||
['{55FEE857-66E6-4010-9D14-548A29F9F198}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -484,7 +485,7 @@ type
|
||||
|
||||
{ IArticulosPendientes }
|
||||
IArticulosPendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{764F380F-50B6-4FBC-8E75-531B3859322D}']
|
||||
['{0207F031-484C-4420-B620-74888FA2748C}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -699,7 +700,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
|
||||
['{2DF3DC58-2F3F-44B7-BCA7-6B5B7477FFD8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -843,6 +844,10 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
||||
function GetDATOS_BANCARIOSIsNull: Boolean;
|
||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
|
||||
function GetID_VENDEDORValue: Integer;
|
||||
procedure SetID_VENDEDORValue(const aValue: Integer);
|
||||
function GetID_VENDEDORIsNull: Boolean;
|
||||
procedure SetID_VENDEDORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -918,6 +923,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
|
||||
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
@ -1071,6 +1078,10 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
||||
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
|
||||
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_VENDEDORValue: Integer; virtual;
|
||||
procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
|
||||
function GetID_VENDEDORIsNull: Boolean; virtual;
|
||||
procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1145,6 +1156,8 @@ type
|
||||
property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||
property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
|
||||
property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1154,7 +1167,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
|
||||
['{B4AE7BEA-A09E-45A0-A759-F52B4C16CD78}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1357,7 +1370,7 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_Pendientes }
|
||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
|
||||
['{19CDD1BE-D8E9-4304-A92F-168055101599}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -1428,7 +1441,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalle_Color }
|
||||
IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||
['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
|
||||
['{20ACE66E-BAE3-4C47-A309-BFAC58663D1E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3087,6 +3100,27 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_VENDEDORValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_VENDEDORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosCliente_DetallesDataTableRules }
|
||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf382.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf11A.tmp */
|
||||
|
||||
@ -23,6 +23,9 @@ type
|
||||
destructor Destroy; override;
|
||||
procedure VerPedidos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -88,6 +91,29 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPluginPedidosCliente.VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor: String);
|
||||
var
|
||||
APedidosClienteController : IPedidosClienteController;
|
||||
APedidosVendedor : IBizPedidoCliente;
|
||||
AText : String;
|
||||
begin
|
||||
AText := Format('Lista de pedidos del vendedor %s', [ANombreVendedor]);
|
||||
APedidosClienteController := TPedidosClienteController.Create;
|
||||
try
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedidosVendedor := APedidosClienteController.BuscarTodosVendedor(ID_Vendedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
APedidosClienteController.VerTodosPedidos(APedidosVendedor, True, AText);
|
||||
finally
|
||||
APedidosVendedor := NIL;
|
||||
APedidosClienteController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginPedidosCliente);
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user