diff --git a/Source/Modulos/Comisiones/Comisiones_Group.groupproj b/Source/Modulos/Comisiones/Comisiones_Group.groupproj
new file mode 100644
index 00000000..31b73e1e
--- /dev/null
+++ b/Source/Modulos/Comisiones/Comisiones_Group.groupproj
@@ -0,0 +1,204 @@
+
+
+ {3df776bd-a3f8-4f3a-9129-45fdb4a2ee63}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Default.Personality
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk b/Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk
index d9e6f613..47f11545 100644
Binary files a/Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk and b/Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk differ
diff --git a/Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj b/Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
new file mode 100644
index 00000000..ffc613bd
--- /dev/null
+++ b/Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
@@ -0,0 +1,544 @@
+
+
+ {7f80f8aa-6912-4714-986d-aed73035472b}
+ Comisiones_controller.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Comisiones_controller.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Comisiones_controller.dpk
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Comisiones/Controller/Comisiones_controller.rc b/Source/Modulos/Comisiones/Controller/Comisiones_controller.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Comisiones/Controller/Comisiones_controller.rc
+++ b/Source/Modulos/Comisiones/Controller/Comisiones_controller.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Comisiones/Controller/Comisiones_controller.res b/Source/Modulos/Comisiones/Controller/Comisiones_controller.res
index 36f26e23..8b251f31 100644
Binary files a/Source/Modulos/Comisiones/Controller/Comisiones_controller.res and b/Source/Modulos/Comisiones/Controller/Comisiones_controller.res differ
diff --git a/Source/Modulos/Comisiones/Controller/View/uIEditorComisionesPreview.pas b/Source/Modulos/Comisiones/Controller/View/uIEditorComisionesPreview.pas
index 42f0c8d9..dfde270a 100644
--- a/Source/Modulos/Comisiones/Controller/View/uIEditorComisionesPreview.pas
+++ b/Source/Modulos/Comisiones/Controller/View/uIEditorComisionesPreview.pas
@@ -3,14 +3,11 @@ unit uIEditorComisionesPreview;
interface
uses
- uEditorPreview, uIDataModuleComisionesReport;
+ uEditorPreview;
type
IEditorComisionesPreview = interface(IEditorPreview)
['{A0E45AC5-503B-4FB6-8BCA-714B6DE2358A}']
- function GetDataModule : IDataModuleComisionesReport;
- procedure SetDataModule (const Value : IDataModuleComisionesReport);
- property DataModule : IDataModuleComisionesReport read GetDataModule write SetDataModule;
end;
diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
index 2f2ed5ee..ea05c7a7 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas
@@ -5,43 +5,42 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
- uIDataModuleComisiones, uBizComisiones, uFacturasClienteController, uBizFacturasCliente;
+ uIDataModuleComisiones, uBizComisiones; //, uFacturasClienteController, uBizFacturasCliente;
type
IComisionesController = interface(IObservador)
['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}']
function BuscarTodos: IBizComisiones;
+ function Buscar(const ID: Integer): IBizComisiones;
procedure VerTodos(AComision: IBizComisiones);
procedure Ver(AComision: IBizComisiones);
function Anadir(AComision : IBizComisiones): Boolean;
function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean;
- procedure DescartarCambios(AComision : IBizComisiones);
- procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
- procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
-
+ procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
+ procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
+ function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
- procedure EliminarFactura(AComision : IBizComisiones);
+ function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
+ procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
end;
TComisionesController = class(TObservador, IComisionesController)
private
- function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
+// function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
// procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision);
+ procedure FiltrarEmpresa(AComisiones: IBizComisiones);
+
protected
FDataModule : IDataModuleComisiones;
- FFacturasClienteController: IFacturasClienteController;
+// FFacturasClienteController: IFacturasClienteController;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarComision(AComision: IBizComisiones): Boolean;
- procedure AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
- procedure AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
- //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
- //este controller
procedure AsignarDataModule; virtual;
public
@@ -50,15 +49,17 @@ type
function Eliminar(AComision : IBizComisiones): Boolean;
function Guardar(AComision : IBizComisiones): Boolean;
- procedure DescartarCambios(AComision : IBizComisiones);
function Anadir(AComision : IBizComisiones): Boolean;
function BuscarTodos: IBizComisiones;
+ function Buscar(const ID: Integer): IBizComisiones;
procedure VerTodos(AComision: IBizComisiones);
procedure Ver(AComision: IBizComisiones);
- procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean);
- procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean);
+ procedure Preview(AComision : IBizComisiones; AllItems: Boolean = false);
+ procedure Print(AComision : IBizComisiones; AllItems: Boolean = false);
+ function ExtraerSeleccionados(AComisiones: IBizComisiones) : IBizComisiones;
function ElegirFacturasComision(AComision : IBizComisiones): Boolean;
- procedure EliminarFactura(AComision : IBizComisiones);
+ function ElegirVendedoresComision(AComision : IBizComisiones): Boolean;
+ procedure RecalcularComisiones(AComision : IBizComisiones; Const ImporteTotal: Variant);
procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant);
end;
@@ -66,9 +67,11 @@ implementation
uses
Variants, Dialogs, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
- uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios,
+ uIEditorComisiones, uDataModuleComisiones, uDataModuleUsuarios, uFactuGES_App,
uDAInterfaces, uDataTableUtils, uIEditorComision, uComisionesReportController,
- uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils;
+ uDateUtils, uROTypes, DateUtils, Controls, Windows, uDialogUtils,
+
+ uBizContactos, uVendedoresController, uBizFacturasCliente, uFacturasClienteController;
{ TComisionesController }
@@ -89,6 +92,7 @@ begin
FDataModule := TDataModuleComisiones.Create(Nil);
end;
+{
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
begin
if not Assigned(AComision) then
@@ -103,7 +107,8 @@ begin
AComision.Post;
end;
end;
-
+}
+{
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
begin
with AFacturasComision do
@@ -137,7 +142,7 @@ begin
un presupuesto ya que en ese caso si que hay que hacer un recorrido
total de las tuplas de detalle.
}
-
+{
if AEsNuevo then
begin
while RecordCount > 0 do
@@ -168,21 +173,33 @@ begin
end;
end;
end;
+}
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
+var
+ EnEdicion: Boolean;
begin
if Assigned(AComision) then
begin
if (not VarIsNull(ImporteTotal))
and (AComision.DataTable.FieldByName(fld_ComisionesIMPORTE_TOTAL).IsNull or (AComision.IMPORTE_TOTAL <> ImporteTotal)) then
begin
- AComision.Edit;
+ EnEdicion:= AComision.DataTable.Editing;
+ if not EnEdicion then
+ AComision.DataTable.Edit;
+
AComision.IMPORTE_TOTAL := ImporteTotal;
- AComision.Post;
+ AComision.DataTable.Post;
+
+ if EnEdicion then
+ AComision.DataTable.Edit;
+
+// Recalcular
end;
end;
end;
+{
function TComisionesController.BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision;
var
Cadena: String;
@@ -215,17 +232,25 @@ begin
CloseBraket;
end;
end;
+}
+
+function TComisionesController.Buscar(const ID: Integer): IBizComisiones;
+begin
+ Result := (FDataModule as IDataModuleComisiones).GetItem(ID);
+ FiltrarEmpresa(Result);
+end;
function TComisionesController.BuscarTodos: IBizComisiones;
begin
Result := FDataModule.GetItems;
+ FiltrarEmpresa(Result);
end;
constructor TComisionesController.Create;
begin
inherited;
AsignarDataModule;
- FFacturasClienteController := TFacturasClienteController.Create;
+// FFacturasClienteController := TFacturasClienteController.Create;
end;
function TComisionesController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
@@ -233,25 +258,9 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
-procedure TComisionesController.DescartarCambios(AComision: IBizComisiones);
-begin
- if not Assigned(AComision) then
- raise Exception.Create ('Almacen no asignado');
-
- ShowHourglassCursor;
- try
- if (AComision.State in dsEditModes) then
- AComision.Cancel;
-
- AComision.DataTable.CancelUpdates;
- finally
- HideHourglassCursor;
- end;
-end;
-
destructor TComisionesController.Destroy;
begin
- FFacturasClienteController := Nil;
+// FFacturasClienteController := Nil;
FDataModule := Nil;
inherited;
end;
@@ -268,8 +277,15 @@ begin
if (AComision.DataTable.State in dsEditModes) then
AComision.DataTable.Post;
- if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
- raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
+ //Tambien hacemos post de sus tablas hija
+ if (AComision.Facturas.DataTable.State in dsEditModes) then
+ AComision.Facturas.DataTable.Post;
+
+ if (AComision.Vendedores.DataTable.State in dsEditModes) then
+ AComision.Vendedores.DataTable.Post;
+
+// if AComision.DataTable.FieldByName(fld_ComisionesID_AGENTE).IsNull then
+// raise Exception.Create('Debe indicar el agente de esta liquidación de comisiones.');
if AComision.DataTable.FieldByName(fld_ComisionesFECHA).IsNull then
raise Exception.Create('Debe indicar la fecha de esta liquidación de comisiones.');
@@ -334,57 +350,117 @@ end;
function TComisionesController.ElegirFacturasComision(AComision: IBizComisiones): Boolean;
var
- AFacturasAgente : IBizFacturaCliente;
AFacturasSeleccionadas : IBizFacturaCliente;
- AFacturasDesglosadas: IBizFacturasComision;
- Cadena: String;
+ AFacturasController: IFacturasClienteController;
+ Cadena: TStringList;
+
begin
Result := False;
- if (AComision.ID_AGENTE <> 0) then
+ if Assigned(AComision.Facturas) then
begin
-
- if Assigned(AComision.Facturas) then
+ //Recogemos los id de las facturas que ya tiene asociada la liquidación
+ with AComision.Facturas.DataTable do
begin
- with AComision.Facturas.DataTable do
+ if not Active then Active := True;
+ First;
+ Cadena := TStringList.Create;
+ While not Eof do
begin
- if not Active then Active := True;
- First;
- Cadena := '';
- While not Eof do
- begin
- if (Length(Cadena) > 0) then
- Cadena := Cadena + ', ';
- Cadena := Cadena + IntToStr(AComision.Facturas.ID_FACTURA);
- Next;
- end;
+ Cadena.Add(IntToStr(AComision.Facturas.ID));
+ Next;
end;
end;
- AFacturasAgente := FFacturasClienteController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena);
- AFacturasSeleccionadas := (FFacturasClienteController.ElegirFacturas(AFacturasAgente, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
+ AFacturasController := TFacturasClienteController.Create;
+ try
+ AFacturasSeleccionadas := AFacturasController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena.CommaText);
+ AFacturasSeleccionadas := (AFacturasController.ElegirFacturas(AFacturasSeleccionadas, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
- if Assigned(AFacturasSeleccionadas) then
+ if Assigned(AFacturasSeleccionadas) then
+ begin
+ ShowHourglassCursor;
+ try
+ //Copia las facturas desglosadas de las facturas seleccionadas
+ DuplicarRegistros(AFacturasSeleccionadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, True);
+ Result := True;
+ finally
+ HideHourglassCursor;
+ end;
+ end;
+
+ finally
+ Cadena.Free;
+ AFacturasController := Nil;
+ AFacturasSeleccionadas := Nil;
+ end;
+ end;
+end;
+
+
+function TComisionesController.ElegirVendedoresComision(AComision: IBizComisiones): Boolean;
+var
+ AVendedoresSeleccionados : IBizContacto;
+ AVendedoresController : IVendedoresController;
+ Cadena: TStringList;
+
+begin
+ Result := False;
+
+ if Assigned(AComision.Vendedores) then
+ begin
+ //Recogemos los id de los vendedores que ya tiene asociada la liquidación
+ with AComision.Vendedores.DataTable do
begin
- ShowHourglassCursor;
- try
- AFacturasDesglosadas := BuscarFacturasDesglosadas(AFacturasSeleccionadas);
-
- //Copia las facturas desglosadas de las facturas seleccionadas
- DuplicarRegistros(AFacturasDesglosadas.DataTable, AComision.Facturas.DataTable, mdrTodos, True, True, False);
-
- Result := True;
- finally
- HideHourglassCursor;
- end;
+ if not Active then Active := True;
+ First;
+ Cadena := TStringList.Create;
+ While not Eof do
+ begin
+ Cadena.Add(IntToStr(AComision.Vendedores.ID_VENDEDOR));
+ Next;
+ end;
end;
- AFacturasAgente := Nil;
- AFacturasSeleccionadas := Nil;
- AFacturasDesglosadas := Nil;
- end
- else
- ShowWarningMessage('Debe elegir primero el agente asociado a la liquidación');
+ AVendedoresController := TVendedoresController.Create;
+ try
+ AVendedoresSeleccionados := AVendedoresController.BuscarTodos(Cadena.CommaText);
+ AVendedoresSeleccionados := AVendedoresController.ElegirContacto(AvendedoresSeleccionados, 'Elija los vendedores de la comision', True);
+
+ if Assigned(AVendedoresSeleccionados) then
+ begin
+ ShowHourglassCursor;
+ try
+ //Copia los vendedores seleccionados
+ DuplicarRegistros(AVendedoresSeleccionados.DataTable, AComision.Vendedores.DataTable, mdrTodos, True, True, False);
+
+ //Copiamos el ID de los vendedores seleccionados en ID_VENDEDOR de la tabla detalle
+ AVendedoresSeleccionados.DataTable.First;
+ AComision.Vendedores.DataTable.First;
+ while not AVendedoresSeleccionados.DataTable.EOF do
+ begin
+ if not AComision.Vendedores.DataTable.Editing then
+ AComision.Vendedores.DataTable.Edit;
+
+ AComision.Vendedores.ID_VENDEDOR := AVendedoresSeleccionados.ID;
+ AComision.Vendedores.DataTable.Post;
+
+ AVendedoresSeleccionados.DataTable.Next;
+ AComision.Vendedores.DataTable.Next;
+ end;
+ AComision.Vendedores.DataTable.First;
+
+ Result := True;
+ finally
+ HideHourglassCursor;
+ end;
+ end;
+ finally
+ Cadena.Free;
+ AVendedoresController := Nil;
+ AVendedoresSeleccionados := Nil;
+ end;
+ end;
end;
function TComisionesController.Eliminar(AComision: IBizComisiones): Boolean;
@@ -408,17 +484,55 @@ begin
end;
end;
-procedure TComisionesController.EliminarFactura(AComision: IBizComisiones);
+function TComisionesController.ExtraerSeleccionados(AComisiones: IBizComisiones): IBizComisiones;
var
- IdFactura: Variant;
+ ASeleccionados : IBizComisiones;
begin
- IdFactura := AComision.Facturas.ID_FACTURA;
+ ASeleccionados := (Self.Buscar(ID_NULO) as IBizComisiones);
+ CopyDataTableDA3(AComisiones.DataTable, ASeleccionados.DataTable, True);
+ Result := ASeleccionados;
- AComision.Facturas.First;
- while AComision.Facturas.DataTable.Locate('ID_FACTURA', IdFactura,[]) do
+end;
+
+procedure TComisionesController.FiltrarEmpresa(AComisiones: IBizComisiones);
+var
+ Condicion: TDAWhereExpression;
+begin
+ if AComisiones.DataTable.Active then
+ AComisiones.DataTable.Active := False;
+
+ // Filtrar las facturas actuales por empresa
+ with AComisiones.DataTable.DynamicWhere do
begin
- AComision.Facturas.Delete;
- AComision.Facturas.First;
+ // (ID_EMPRESA >= ID)
+ Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+end;
+
+procedure TComisionesController.RecalcularComisiones(AComision: IBizComisiones; const ImporteTotal: Variant);
+begin
+ if Assigned(AComision)
+ and Assigned(AComision.Vendedores)
+ and (not AComision.Vendedores.IsEmpty) then
+ begin
+ AComision.Vendedores.DataTable.DisableControls;
+ try
+ AComision.Vendedores.DataTable.First;
+ while not AComision.Vendedores.DataTable.EOF do
+ begin
+ AComision.Vendedores.Edit;
+ AComision.Vendedores.IMPORTE_TOTAL := ((AComision.Vendedores.COMISION / 100) * ImporteTotal);
+ AComision.Vendedores.Post;
+ AComision.Vendedores.DataTable.Next;
+ end;
+ finally
+ AComision.Vendedores.DataTable.EnableControls;
+ end;
end;
end;
@@ -435,23 +549,13 @@ begin
Result := False;
if not Assigned(AComision) then
- raise Exception.Create ('Almacen no asignada');
+ raise Exception.Create ('Comision no asignada');
if ValidarComision(AComision) then
begin
ShowHourglassCursor;
try
- if (AComision.EsNuevo) then
- NuevoID := FDataModule.GetNextID(AComision.DataTable.LogicalName)
- else
- NuevoID := AComision.ID;
-
- AsignarID(AComision, NuevoID);
AComision.DataTable.ApplyUpdates;
- //Si todo ha ido bien, asignamos la comision a las facturas asociadas
- //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
-// RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID);
-// ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
Result := True;
finally
@@ -459,33 +563,73 @@ begin
end;
end;
end;
-procedure TComisionesController.Preview(AComision: IBizComisiones; const DesglosadoProv: Boolean);
+procedure TComisionesController.Preview(AComision: IBizComisiones; AllItems: Boolean = false);
var
AReportController : IComisionesReportController;
+ ID_Comisiones: TStringList;
+
begin
AReportController := TComisionesReportController.Create;
try
- if Assigned(AComision) then
- AReportController.Preview(AComision.ID, DesglosadoProv)
- else
- AReportController.Preview(Null, DesglosadoProv)
+ ID_Comisiones := TStringList.Create;
+
+ //Si deseamos previsualizar todos los items del objeto comision
+ if AllItems then
+ begin
+ with AComision.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ ID_Comisiones.Add(IntToStr(AComision.ID));
+ Next;
+ end;
+ end;
+ end
+ //Solo previsualizamos el item seleccionado
+ else
+ ID_Comisiones.Add(IntToStr(AComision.ID));
+
+ AReportController.Preview(ID_Comisiones.CommaText);
+
finally
AReportController := NIL;
+ ID_Comisiones.Free;
end;
end;
-procedure TComisionesController.Print(AComision: IBizComisiones; const DesglosadoProv: Boolean);
+procedure TComisionesController.Print(AComision: IBizComisiones; AllItems: Boolean = false);
var
AReportController : IComisionesReportController;
+ ID_Comisiones: TStringList;
+
begin
AReportController := TComisionesReportController.Create;
try
- if Assigned(AComision) then
- AReportController.Print(AComision.ID, DesglosadoProv)
- else
- AReportController.Print(Null, DesglosadoProv);
+ ID_Comisiones := TStringList.Create;
+
+ //Si deseamos previsualizar todos los items del objeto comision
+ if AllItems then
+ begin
+ with AComision.DataTable do
+ begin
+ First;
+ while not EOF do
+ begin
+ ID_Comisiones.Add(IntToStr(AComision.ID));
+ Next;
+ end;
+ end;
+ end
+ //Solo previsualizamos el item seleccionado
+ else
+ ID_Comisiones.Add(IntToStr(AComision.ID));
+
+ AReportController.Print(ID_Comisiones.CommaText);
+
finally
AReportController := NIL;
+ ID_Comisiones.Free;
end;
end;
diff --git a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
index 20f8a757..21fa334f 100644
--- a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
+++ b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas
@@ -10,8 +10,8 @@ uses
type
IComisionesReportController = interface
['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}']
- procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
- procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
+ procedure Preview(const AComisionID : String);
+ procedure Print(const AComisionID : String);
end;
TComisionesReportController = class(TInterfacedObject, IComisionesReportController)
@@ -22,8 +22,8 @@ type
constructor Create;
destructor Destroy; override;
- procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
- procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
+ procedure Preview(const AComisionID : String);
+ procedure Print(const AComisionID : String);
end;
@@ -53,7 +53,7 @@ begin
inherited;
end;
-procedure TComisionesReportController.Preview(const AComisionID : Variant; const DesglosadoProv: Boolean);
+procedure TComisionesReportController.Preview(const AComisionID : String);
var
AStream: Binary;
AEditor : IEditorComisionesPreview;
@@ -61,13 +61,12 @@ begin
AEditor := NIL;
ShowHourglassCursor;
try
- AStream := FDataModule.GetReport(AComisionID, DesglosadoProv,'', '', Null);
+ AStream := FDataModule.GetReport(AComisionID);
try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
- DataModule := FDataModule;
LoadFromStream(AStream);
Preview;
Release;
@@ -81,7 +80,7 @@ begin
end;
end;
-procedure TComisionesReportController.Print(const AComisionID : Variant; const DesglosadoProv: Boolean);
+procedure TComisionesReportController.Print(const AComisionID : String);
var
AStream: Binary;
AEditor : IEditorComisionesPreview;
@@ -89,19 +88,19 @@ begin
AEditor := NIL;
ShowHourglassCursor;
try
- AStream := FDataModule.GetReport(AComisionID, DesglosadoProv, '', '', Null);
+ AStream := FDataModule.GetReport(AComisionID);
try
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
- DataModule := FDataModule;
LoadFromStream(AStream);
Print;
+ Release;
end;
finally
FreeAndNil(AStream);
- AEditor := Nil;
+ AEditor := Nil;
end;
finally
HideHourglassCursor;
diff --git a/Source/Modulos/Comisiones/Data/Comisiones_data.dpk b/Source/Modulos/Comisiones/Data/Comisiones_data.dpk
index 0b569747..00a644d6 100644
Binary files a/Source/Modulos/Comisiones/Data/Comisiones_data.dpk and b/Source/Modulos/Comisiones/Data/Comisiones_data.dpk differ
diff --git a/Source/Modulos/Comisiones/Data/Comisiones_data.dproj b/Source/Modulos/Comisiones/Data/Comisiones_data.dproj
new file mode 100644
index 00000000..0cf0d62b
--- /dev/null
+++ b/Source/Modulos/Comisiones/Data/Comisiones_data.dproj
@@ -0,0 +1,579 @@
+
+
+ {28b6d86e-fac2-4bfd-97d9-fcea860835eb}
+ Comisiones_data.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Comisiones_data.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ False
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ Comisiones_data.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
index 9d1d8a7a..f7c1c11d 100644
--- a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
+++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
@@ -3,295 +3,12 @@ inherited DataModuleComisiones: TDataModuleComisiones
Height = 414
Width = 518
object RORemoteService: TRORemoteService
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
ServiceName = 'srvComisiones'
Left = 48
Top = 24
end
- object tbl_Comisiones: TDACDSDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_ID_EMPRESA'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Comisiones_REFERENCIA'
- DictionaryEntry = 'Comisiones_REFERENCIA'
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_DESCRIPCION'
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- DictionaryEntry = 'Comisiones_FECHA'
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- DictionaryEntry = 'Comisiones_USUARIO'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- end>
- Params = <>
- MasterMappingMode = mmDataRequest
- StreamingOptions = [soDisableEventsWhileStreaming]
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
- LogicalName = 'Comisiones'
- IndexDefs = <>
- Left = 216
- Top = 144
- end
- object ds_Comisiones: TDADataSource
- DataSet = tbl_Comisiones.Dataset
- DataTable = tbl_Comisiones
- Left = 216
- Top = 80
- end
- object tbl_Facturas_Comision: TDACDSDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_AGENTE'
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- DictionaryEntry = 'Comisiones_Detalles_FECHA'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
- end
- item
- Name = 'SITUACION'
- DataType = datString
- Size = 19
- DictionaryEntry = 'Comisiones_Detalles_SITUACION'
- end
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
- DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
- end
- item
- Name = 'CLIENTE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_CLIENTE'
- DictionaryEntry = 'Facturas_Comision_CLIENTE'
- end
- item
- Name = 'ID_PROVEEDOR'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
- end
- item
- Name = 'PROVEEDOR'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
- end
- item
- Name = 'COMISION'
- DataType = datFloat
- DictionaryEntry = 'Comisiones_Detalles_COMISION'
- end
- item
- Name = 'IMPORTE_COMISIONABLE'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_COMISIONABLE'
- Alignment = taRightJustify
- DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
- end
- item
- Name = 'IMPORTE_COMISION'
- DataType = datCurrency
- DisplayLabel = 'Facturas_Comision_IMPORTE_COMISION'
- Alignment = taRightJustify
- DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
- end>
- Params = <
- item
- Name = 'ID_COMISION'
- Value = 18
- ParamType = daptInput
- end>
- MasterParamsMappings.Strings = (
- 'ID_COMISION=ID')
- StreamingOptions = [soDisableEventsWhileStreaming]
- MasterSource = ds_Comisiones
- MasterFields = 'ID'
- DetailFields = 'ID_COMISION_LIQUIDADA'
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
- LogicalName = 'Facturas_Comision'
- IndexDefs = <>
- Left = 368
- Top = 144
- end
- object ds_Facturas_Comision: TDADataSource
- DataSet = tbl_Facturas_Comision.Dataset
- DataTable = tbl_Facturas_Comision
- Left = 368
- Top = 80
- end
- object tbl_V_Detalles_Facturas_Comision: TDACDSDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_AGENTE'
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- DictionaryEntry = 'Comisiones_Detalles_FECHA'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
- end
- item
- Name = 'SITUACION'
- DataType = datString
- Size = 19
- DictionaryEntry = 'Comisiones_Detalles_SITUACION'
- end
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
- DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
- end
- item
- Name = 'CLIENTE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Facturas_Comision_CLIENTE'
- DictionaryEntry = 'Facturas_Comision_CLIENTE'
- end
- item
- Name = 'ID_PROVEEDOR'
- DataType = datInteger
- DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
- end
- item
- Name = 'PROVEEDOR'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
- end
- item
- Name = 'COMISION'
- DataType = datFloat
- DictionaryEntry = 'Comisiones_Detalles_COMISION'
- end
- item
- Name = 'IMPORTE_COMISIONABLE'
- DataType = datCurrency
- DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
- Alignment = taRightJustify
- DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
- end
- item
- Name = 'IMPORTE_COMISION'
- DataType = datCurrency
- DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
- Alignment = taRightJustify
- DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
- end>
- Params = <>
- MasterMappingMode = mmDataRequest
- StreamingOptions = [soDisableEventsWhileStreaming]
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
- LogicalName = 'V_Detalles_Facturas_Comision'
- IndexDefs = <>
- Left = 312
- Top = 312
- end
- object ds_V_Detalles_Facturas_Comision: TDADataSource
- DataSet = tbl_V_Detalles_Facturas_Comision.Dataset
- DataTable = tbl_V_Detalles_Facturas_Comision
- Left = 312
- Top = 256
- end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 84
@@ -306,4 +23,429 @@ inherited DataModuleComisiones: TDataModuleComisiones
Left = 51
Top = 143
end
+ object tbl_Comisiones: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
+ DisplayLabel = 'Id'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Comisiones_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DisplayLabel = 'IdEmpresa'
+ DictionaryEntry = 'Comisiones_ID_EMPRESA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'Comisiones_REFERENCIA'
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ DisplayLabel = 'IdAgente'
+ DictionaryEntry = 'Comisiones_ID_AGENTE'
+ end
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Descripci'#243'n'
+ DictionaryEntry = 'Comisiones_DESCRIPCION'
+ end
+ item
+ Name = 'FECHA'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha'
+ DictionaryEntry = 'Comisiones_FECHA'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe total'
+ Alignment = taRightJustify
+ DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'Usuario'
+ DictionaryEntry = 'Comisiones_USUARIO'
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Comisiones
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'Comisiones'
+ IndexDefs = <>
+ Left = 224
+ Top = 112
+ end
+ object ds_Comisiones: TDADataSource
+ DataSet = tbl_Comisiones.Dataset
+ DataTable = tbl_Comisiones
+ Left = 224
+ Top = 56
+ end
+ object tbl_Facturas_Comision: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID'
+ DictionaryEntry = 'Facturas_Comision_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_EMPRESA'
+ DictionaryEntry = 'Facturas_Comision_ID_EMPRESA'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ DisplayLabel = 'Facturas_Comision_TIPO'
+ DictionaryEntry = 'Facturas_Comision_TIPO'
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ DisplayLabel = 'IdComision'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha'
+ DictionaryEntry = 'Facturas_Comision_FECHA_FACTURA'
+ end
+ item
+ Name = 'SITUACION'
+ DataType = datString
+ Size = 19
+ DisplayLabel = 'Situaci'#243'n'
+ DictionaryEntry = 'Facturas_Comision_SITUACION'
+ end
+ item
+ Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
+ DisplayLabel = 'Base imponible'
+ Alignment = taRightJustify
+ DictionaryEntry = 'Facturas_Comision_BASE_IMPONIBLE'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DisplayLabel = 'Facturas_Comision_DESCUENTO'
+ DictionaryEntry = 'Facturas_Comision_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_DESCUENTO'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_DESCUENTO'
+ end
+ item
+ Name = 'IVA'
+ DataType = datFloat
+ DisplayLabel = 'Facturas_Comision_IVA'
+ DictionaryEntry = 'Facturas_Comision_IVA'
+ end
+ item
+ Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_IVA'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_IVA'
+ end
+ item
+ Name = 'RE'
+ DataType = datFloat
+ DisplayLabel = 'Facturas_Comision_RE'
+ DictionaryEntry = 'Facturas_Comision_RE'
+ end
+ item
+ Name = 'IMPORTE_RE'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_RE'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_RE'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_TOTAL'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ DisplayLabel = 'Facturas_Comision_OBSERVACIONES'
+ DictionaryEntry = 'Facturas_Comision_OBSERVACIONES'
+ end
+ item
+ Name = 'ID_CLIENTE'
+ DataType = datInteger
+ DisplayLabel = 'IdCliente'
+ DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Nombre cliente'
+ DictionaryEntry = 'Facturas_Comision_NOMBRE_CLIENTE'
+ end
+ item
+ Name = 'NOMBRE_COMERCIAL_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Nombre comercial cliente'
+ DictionaryEntry = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'Facturas_Comision_NIF_CIF'
+ DictionaryEntry = 'Facturas_Comision_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Raz'#243'n social'
+ DictionaryEntry = 'Facturas_Comision_NOMBRE'
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_CALLE'
+ DictionaryEntry = 'Facturas_Comision_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_POBLACION'
+ DictionaryEntry = 'Facturas_Comision_POBLACION'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_PROVINCIA'
+ DictionaryEntry = 'Facturas_Comision_PROVINCIA'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DisplayLabel = 'Facturas_Comision_CODIGO_POSTAL'
+ DictionaryEntry = 'Facturas_Comision_CODIGO_POSTAL'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DisplayLabel = 'Facturas_Comision_FECHA_ALTA'
+ DictionaryEntry = 'Facturas_Comision_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DisplayLabel = 'Facturas_Comision_FECHA_MODIFICACION'
+ DictionaryEntry = 'Facturas_Comision_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 30
+ DisplayLabel = 'Facturas_Comision_USUARIO'
+ DictionaryEntry = 'Facturas_Comision_USUARIO'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_FORMA_PAGO'
+ DictionaryEntry = 'Facturas_Comision_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
+ DisplayLabel = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
+ DictionaryEntry = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_TIPO_IVA'
+ DictionaryEntry = 'Facturas_Comision_ID_TIPO_IVA'
+ end
+ item
+ Name = 'IMPORTE_NETO'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_NETO'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_NETO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DisplayLabel = 'Facturas_Comision_IMPORTE_PORTE'
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_PORTE'
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_AGENTE'
+ DictionaryEntry = 'Facturas_Comision_ID_AGENTE'
+ end
+ item
+ Name = 'REFERENCIA_COMISION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_REFERENCIA_COMISION'
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA_COMISION'
+ end
+ item
+ Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
+ DisplayLabel = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
+ DictionaryEntry = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
+ end
+ item
+ Name = 'ID_TIENDA'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_TIENDA'
+ DictionaryEntry = 'Facturas_Comision_ID_TIENDA'
+ end
+ item
+ Name = 'TIENDA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_TIENDA'
+ DictionaryEntry = 'Facturas_Comision_TIENDA'
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ DisplayLabel = 'Facturas_Comision_ID_SUBCUENTA'
+ DictionaryEntry = 'Facturas_Comision_ID_SUBCUENTA'
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Facturas_Comision_SUBCUENTA'
+ DictionaryEntry = 'Facturas_Comision_SUBCUENTA'
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Comisiones
+ MasterSource = ds_Comisiones
+ MasterFields = 'ID'
+ DetailFields = 'ID_COMISION_LIQUIDADA'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'Facturas_Comision'
+ IndexDefs = <>
+ Left = 376
+ Top = 104
+ end
+ object ds_Facturas_Comision: TDADataSource
+ DataSet = tbl_Facturas_Comision.Dataset
+ DataTable = tbl_Facturas_Comision
+ Left = 376
+ Top = 48
+ end
+ object tbl_Vendedores_Comision: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_VENDEDORES_ID'
+ DisplayLabel = 'Id'
+ DictionaryEntry = 'Comisiones_vendedores_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_COMISION'
+ DataType = datInteger
+ DisplayLabel = 'IdComision'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Comisiones_vendedores_ID_COMISION'
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ DisplayLabel = 'IdVendedor'
+ DictionaryEntry = 'Comisiones_vendedores_ID_VENDEDOR'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Vendedor'
+ DictionaryEntry = 'Comisiones_vendedores_NOMBRE'
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe'
+ Alignment = taRightJustify
+ DictionaryEntry = 'Comisiones_vendedores_IMPORTE_TOTAL'
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Comisiones
+ MasterSource = ds_Comisiones
+ MasterFields = 'ID'
+ DetailFields = 'ID_COMISION'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'Vendedores_Comision'
+ IndexDefs = <>
+ Left = 384
+ Top = 232
+ end
+ object ds_Vendedores_Comision: TDADataSource
+ DataSet = tbl_Vendedores_Comision.Dataset
+ DataTable = tbl_Vendedores_Comision
+ Left = 384
+ Top = 176
+ end
end
diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
index 25700876..a99ab1eb 100644
--- a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
+++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
@@ -8,37 +8,38 @@ uses
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uIDataModuleComisiones, uBizComisiones, uDataModuleBase,
uIDataModuleComisionesReport, uDARemoteDataAdapter, uDADataStreamer,
- uDABin2DataStreamer, uDAInterfaces;
+ uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
type
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
RORemoteService: TRORemoteService;
- tbl_Comisiones: TDACDSDataTable;
- ds_Comisiones: TDADataSource;
- tbl_Facturas_Comision: TDACDSDataTable;
- ds_Facturas_Comision: TDADataSource;
- tbl_V_Detalles_Facturas_Comision: TDACDSDataTable;
- ds_V_Detalles_Facturas_Comision: TDADataSource;
Bin2DataStreamer: TDABin2DataStreamer;
rda_Comisiones: TDARemoteDataAdapter;
+ tbl_Comisiones: TDAMemDataTable;
+ ds_Comisiones: TDADataSource;
+ tbl_Facturas_Comision: TDAMemDataTable;
+ ds_Facturas_Comision: TDADataSource;
+ tbl_Vendedores_Comision: TDAMemDataTable;
+ ds_Vendedores_Comision: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
function _GetFacturas : IBizFacturasComision;
+ function _GetVendedores : IBizVendedoresComision;
public
function GetItems : IBizComisiones; overload;
- function GetFacturasDesglosadas : IBizFacturasComision;
+ function GetFacturasSinComision : IBizFacturasComision;
function GetItem(const ID : Integer) : IBizComisiones;
function NewItem : IBizComisiones;
// Report
- function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
+ function GetReport(const AComisionID: String): Binary;
end;
implementation
{$R *.DFM}
uses
- FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
+ FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
schComisionesClient_Intf;
{ TdmComisiones }
@@ -51,19 +52,20 @@ end;
function TDataModuleComisiones.GetItems: IBizComisiones;
var
- AComisiones : TDACDSDataTable;
+ AComisiones : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AComisiones := CloneDataTable(tbl_Comisiones);
- AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
AComisiones.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
+ AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
with TBizComisiones(AComisiones.BusinessEventsObj) do
begin
Facturas := _GetFacturas;
+ Vendedores := _GetVendedores;
end;
Result := (AComisiones as IBizComisiones);
@@ -90,15 +92,33 @@ begin
end;
end;
-function TDataModuleComisiones.GetFacturasDesglosadas: IBizFacturasComision;
+function TDataModuleComisiones._GetVendedores: IBizVendedoresComision;
var
- AFacturasDesglosadas : TDAMemDataTable;
+ AVendedores : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AFacturasDesglosadas := CloneDataTable(tbl_V_Detalles_Facturas_Comision);
- AFacturasDesglosadas.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
- Result := (AFacturasDesglosadas as IBizFacturasComision);
+ AVendedores := CloneDataTable(tbl_Vendedores_Comision);
+ with AVendedores do
+ begin
+ BusinessRulesID := BIZ_CLIENT_VENDEDORES_COMISION;
+ DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
+ end;
+ Result := (AVendedores as IBizVendedoresComision);
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
+function TDataModuleComisiones.GetFacturasSinComision: IBizFacturasComision;
+var
+ AFacturasSinComision : TDAMemDataTable;
+begin
+ ShowHourglassCursor;
+ try
+// AFacturasSinComision := CloneDataTable(tbl_V_Detalles_Facturas_Comision);
+// AFacturasSinComision.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
+ Result := (AFacturasSinComision as IBizFacturasComision);
finally
HideHourglassCursor;
end;
@@ -128,9 +148,9 @@ begin
end;
end;
-function TDataModuleComisiones.GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
+function TDataModuleComisiones.GetReport(const AComisionID: String): Binary;
begin
-// Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
+ Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID);
end;
function TDataModuleComisiones.NewItem: IBizComisiones;
diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.dpk b/Source/Modulos/Comisiones/Model/Comisiones_model.dpk
index 5df17a24..ee63db33 100644
Binary files a/Source/Modulos/Comisiones/Model/Comisiones_model.dpk and b/Source/Modulos/Comisiones/Model/Comisiones_model.dpk differ
diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.dproj b/Source/Modulos/Comisiones/Model/Comisiones_model.dproj
new file mode 100644
index 00000000..65d49063
--- /dev/null
+++ b/Source/Modulos/Comisiones/Model/Comisiones_model.dproj
@@ -0,0 +1,581 @@
+
+
+ {73acd39c-b2f0-49b7-9acf-10945bbac8c1}
+ Comisiones_model.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Comisiones_model.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ False
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ Comisiones_model.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
index ef146176..6abb7d9e 100644
--- a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
+++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas
@@ -7,12 +7,11 @@ uses
type
IDataModuleComisiones = interface
- ['{3E1CCFC9-B804-4D80-85BD-F9B9D7908E0D}']
+ ['{91E197D0-2356-46ED-81CD-4907D47A961F}']
function GetItems: IBizComisiones;
function GetItem(const ID : Integer) : IBizComisiones;
- function GetNextID(const DataSetName : String) : Integer;
function NewItem : IBizComisiones;
- function GetFacturasDesglosadas : IBizFacturasComision;
+ function GetFacturasSinComision : IBizFacturasComision;
end;
implementation
diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
index ce025e5b..ec6ab75a 100644
--- a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
+++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas
@@ -7,8 +7,8 @@ uses
type
IDataModuleComisionesReport = interface
- ['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
- function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
+ ['{81994438-6047-4B97-83C1-257ED9CCDA74}']
+ function GetReport(const AComisionID: String): Binary;
end;
implementation
diff --git a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
index 2c8306ed..1abc4ae3 100644
--- a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
+++ b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
@@ -3,64 +3,120 @@ unit schComisionesClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
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_Facturas_Comision = '{EA4A0704-B8AD-4632-9FF0-D51D52FF60B6}';
- RID_DarReferencia = '{579724B6-8389-482A-B4A4-EEEA864CAEA0}';
- RID_Comisiones = '{1D36BBB6-821F-4450-8855-482C4E797FFE}';
- RID_Comisiones_Refresh = '{FEB4830C-01B3-4B40-BA7A-CE3D8AF44596}';
- RID_V_Detalles_Facturas_Comision = '{69E506D8-A8D4-4D90-8D3F-61BBF29BBD60}';
+ RID_Facturas_Comision = '{92237EE8-834B-480A-BECB-CC186D855782}';
+ RID_Vendedores_Comision = '{B7ECCE40-B69A-4112-9328-B46B1906ABD5}';
+ RID_Comisiones = '{7BAED95D-EB8C-44C7-8818-92A6E358CB24}';
{ Data table names }
nme_Facturas_Comision = 'Facturas_Comision';
- nme_DarReferencia = 'DarReferencia';
+ nme_Vendedores_Comision = 'Vendedores_Comision';
nme_Comisiones = 'Comisiones';
- nme_Comisiones_Refresh = 'Comisiones_Refresh';
- nme_V_Detalles_Facturas_Comision = 'V_Detalles_Facturas_Comision';
{ Facturas_Comision fields }
+ fld_Facturas_ComisionID = 'ID';
fld_Facturas_ComisionID_EMPRESA = 'ID_EMPRESA';
- fld_Facturas_ComisionID_AGENTE = 'ID_AGENTE';
- fld_Facturas_ComisionAGENTE = 'AGENTE';
- fld_Facturas_ComisionID_FACTURA = 'ID_FACTURA';
- fld_Facturas_ComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
- fld_Facturas_ComisionFECHA = 'FECHA';
fld_Facturas_ComisionREFERENCIA = 'REFERENCIA';
+ fld_Facturas_ComisionTIPO = 'TIPO';
+ fld_Facturas_ComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
+ fld_Facturas_ComisionFECHA_FACTURA = 'FECHA_FACTURA';
fld_Facturas_ComisionSITUACION = 'SITUACION';
+ fld_Facturas_ComisionBASE_IMPONIBLE = 'BASE_IMPONIBLE';
+ fld_Facturas_ComisionDESCUENTO = 'DESCUENTO';
+ fld_Facturas_ComisionIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
+ fld_Facturas_ComisionIVA = 'IVA';
+ fld_Facturas_ComisionIMPORTE_IVA = 'IMPORTE_IVA';
+ fld_Facturas_ComisionRE = 'RE';
+ fld_Facturas_ComisionIMPORTE_RE = 'IMPORTE_RE';
+ fld_Facturas_ComisionIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_Facturas_ComisionOBSERVACIONES = 'OBSERVACIONES';
fld_Facturas_ComisionID_CLIENTE = 'ID_CLIENTE';
- fld_Facturas_ComisionCLIENTE = 'CLIENTE';
- fld_Facturas_ComisionID_PROVEEDOR = 'ID_PROVEEDOR';
- fld_Facturas_ComisionPROVEEDOR = 'PROVEEDOR';
- fld_Facturas_ComisionCOMISION = 'COMISION';
- fld_Facturas_ComisionIMPORTE_COMISIONABLE = 'IMPORTE_COMISIONABLE';
- fld_Facturas_ComisionIMPORTE_COMISION = 'IMPORTE_COMISION';
+ fld_Facturas_ComisionNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
+ fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
+ fld_Facturas_ComisionNIF_CIF = 'NIF_CIF';
+ fld_Facturas_ComisionNOMBRE = 'NOMBRE';
+ fld_Facturas_ComisionCALLE = 'CALLE';
+ fld_Facturas_ComisionPOBLACION = 'POBLACION';
+ fld_Facturas_ComisionPROVINCIA = 'PROVINCIA';
+ fld_Facturas_ComisionCODIGO_POSTAL = 'CODIGO_POSTAL';
+ fld_Facturas_ComisionFECHA_ALTA = 'FECHA_ALTA';
+ fld_Facturas_ComisionFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+ fld_Facturas_ComisionUSUARIO = 'USUARIO';
+ fld_Facturas_ComisionID_FORMA_PAGO = 'ID_FORMA_PAGO';
+ fld_Facturas_ComisionRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
+ fld_Facturas_ComisionID_TIPO_IVA = 'ID_TIPO_IVA';
+ fld_Facturas_ComisionIMPORTE_NETO = 'IMPORTE_NETO';
+ fld_Facturas_ComisionIMPORTE_PORTE = 'IMPORTE_PORTE';
+ fld_Facturas_ComisionID_AGENTE = 'ID_AGENTE';
+ fld_Facturas_ComisionREFERENCIA_COMISION = 'REFERENCIA_COMISION';
+ fld_Facturas_ComisionIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
+ fld_Facturas_ComisionID_TIENDA = 'ID_TIENDA';
+ fld_Facturas_ComisionTIENDA = 'TIENDA';
+ fld_Facturas_ComisionID_SUBCUENTA = 'ID_SUBCUENTA';
+ fld_Facturas_ComisionSUBCUENTA = 'SUBCUENTA';
{ Facturas_Comision field indexes }
- idx_Facturas_ComisionID_EMPRESA = 0;
- idx_Facturas_ComisionID_AGENTE = 1;
- idx_Facturas_ComisionAGENTE = 2;
- idx_Facturas_ComisionID_FACTURA = 3;
+ idx_Facturas_ComisionID = 0;
+ idx_Facturas_ComisionID_EMPRESA = 1;
+ idx_Facturas_ComisionREFERENCIA = 2;
+ idx_Facturas_ComisionTIPO = 3;
idx_Facturas_ComisionID_COMISION_LIQUIDADA = 4;
- idx_Facturas_ComisionFECHA = 5;
- idx_Facturas_ComisionREFERENCIA = 6;
- idx_Facturas_ComisionSITUACION = 7;
- idx_Facturas_ComisionID_CLIENTE = 8;
- idx_Facturas_ComisionCLIENTE = 9;
- idx_Facturas_ComisionID_PROVEEDOR = 10;
- idx_Facturas_ComisionPROVEEDOR = 11;
- idx_Facturas_ComisionCOMISION = 12;
- idx_Facturas_ComisionIMPORTE_COMISIONABLE = 13;
- idx_Facturas_ComisionIMPORTE_COMISION = 14;
+ idx_Facturas_ComisionFECHA_FACTURA = 5;
+ idx_Facturas_ComisionSITUACION = 6;
+ idx_Facturas_ComisionBASE_IMPONIBLE = 7;
+ idx_Facturas_ComisionDESCUENTO = 8;
+ idx_Facturas_ComisionIMPORTE_DESCUENTO = 9;
+ idx_Facturas_ComisionIVA = 10;
+ idx_Facturas_ComisionIMPORTE_IVA = 11;
+ idx_Facturas_ComisionRE = 12;
+ idx_Facturas_ComisionIMPORTE_RE = 13;
+ idx_Facturas_ComisionIMPORTE_TOTAL = 14;
+ idx_Facturas_ComisionOBSERVACIONES = 15;
+ idx_Facturas_ComisionID_CLIENTE = 16;
+ idx_Facturas_ComisionNOMBRE_CLIENTE = 17;
+ idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE = 18;
+ idx_Facturas_ComisionNIF_CIF = 19;
+ idx_Facturas_ComisionNOMBRE = 20;
+ idx_Facturas_ComisionCALLE = 21;
+ idx_Facturas_ComisionPOBLACION = 22;
+ idx_Facturas_ComisionPROVINCIA = 23;
+ idx_Facturas_ComisionCODIGO_POSTAL = 24;
+ idx_Facturas_ComisionFECHA_ALTA = 25;
+ idx_Facturas_ComisionFECHA_MODIFICACION = 26;
+ idx_Facturas_ComisionUSUARIO = 27;
+ idx_Facturas_ComisionID_FORMA_PAGO = 28;
+ idx_Facturas_ComisionRECARGO_EQUIVALENCIA = 29;
+ idx_Facturas_ComisionID_TIPO_IVA = 30;
+ idx_Facturas_ComisionIMPORTE_NETO = 31;
+ idx_Facturas_ComisionIMPORTE_PORTE = 32;
+ idx_Facturas_ComisionID_AGENTE = 33;
+ idx_Facturas_ComisionREFERENCIA_COMISION = 34;
+ idx_Facturas_ComisionIGNORAR_CONTABILIDAD = 35;
+ idx_Facturas_ComisionID_TIENDA = 36;
+ idx_Facturas_ComisionTIENDA = 37;
+ idx_Facturas_ComisionID_SUBCUENTA = 38;
+ idx_Facturas_ComisionSUBCUENTA = 39;
- { DarReferencia fields }
- fld_DarReferenciaVALOR = 'VALOR';
+ { Vendedores_Comision fields }
+ fld_Vendedores_ComisionID = 'ID';
+ fld_Vendedores_ComisionID_COMISION = 'ID_COMISION';
+ fld_Vendedores_ComisionID_VENDEDOR = 'ID_VENDEDOR';
+ fld_Vendedores_ComisionNOMBRE = 'NOMBRE';
+ fld_Vendedores_ComisionCOMISION = 'COMISION';
+ fld_Vendedores_ComisionIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- { DarReferencia field indexes }
- idx_DarReferenciaVALOR = 0;
+ { Vendedores_Comision field indexes }
+ idx_Vendedores_ComisionID = 0;
+ idx_Vendedores_ComisionID_COMISION = 1;
+ idx_Vendedores_ComisionID_VENDEDOR = 2;
+ idx_Vendedores_ComisionNOMBRE = 3;
+ idx_Vendedores_ComisionCOMISION = 4;
+ idx_Vendedores_ComisionIMPORTE_TOTAL = 5;
{ Comisiones fields }
fld_ComisionesID = 'ID';
@@ -70,8 +126,9 @@ const
fld_ComisionesDESCRIPCION = 'DESCRIPCION';
fld_ComisionesFECHA = 'FECHA';
fld_ComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_ComisionesFECHA_ALTA = 'FECHA_ALTA';
+ fld_ComisionesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ComisionesUSUARIO = 'USUARIO';
- fld_ComisionesNOMBRE = 'NOMBRE';
{ Comisiones field indexes }
idx_ComisionesID = 0;
@@ -81,172 +138,507 @@ const
idx_ComisionesDESCRIPCION = 4;
idx_ComisionesFECHA = 5;
idx_ComisionesIMPORTE_TOTAL = 6;
- idx_ComisionesUSUARIO = 7;
- idx_ComisionesNOMBRE = 8;
-
- { 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_RefreshDESCRIPCION = 'DESCRIPCION';
- fld_Comisiones_RefreshFECHA = 'FECHA';
- fld_Comisiones_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_Comisiones_RefreshUSUARIO = 'USUARIO';
- fld_Comisiones_RefreshNOMBRE = 'NOMBRE';
-
- { Comisiones_Refresh field indexes }
- idx_Comisiones_RefreshID = 0;
- idx_Comisiones_RefreshID_EMPRESA = 1;
- idx_Comisiones_RefreshREFERENCIA = 2;
- idx_Comisiones_RefreshID_AGENTE = 3;
- idx_Comisiones_RefreshDESCRIPCION = 4;
- idx_Comisiones_RefreshFECHA = 5;
- idx_Comisiones_RefreshIMPORTE_TOTAL = 6;
- idx_Comisiones_RefreshUSUARIO = 7;
- idx_Comisiones_RefreshNOMBRE = 8;
-
- { V_Detalles_Facturas_Comision fields }
- fld_V_Detalles_Facturas_ComisionID_EMPRESA = 'ID_EMPRESA';
- fld_V_Detalles_Facturas_ComisionID_AGENTE = 'ID_AGENTE';
- fld_V_Detalles_Facturas_ComisionAGENTE = 'AGENTE';
- fld_V_Detalles_Facturas_ComisionID_FACTURA = 'ID_FACTURA';
- fld_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
- fld_V_Detalles_Facturas_ComisionFECHA = 'FECHA';
- fld_V_Detalles_Facturas_ComisionREFERENCIA = 'REFERENCIA';
- fld_V_Detalles_Facturas_ComisionSITUACION = 'SITUACION';
- fld_V_Detalles_Facturas_ComisionID_CLIENTE = 'ID_CLIENTE';
- fld_V_Detalles_Facturas_ComisionCLIENTE = 'CLIENTE';
- fld_V_Detalles_Facturas_ComisionID_PROVEEDOR = 'ID_PROVEEDOR';
- fld_V_Detalles_Facturas_ComisionPROVEEDOR = 'PROVEEDOR';
- fld_V_Detalles_Facturas_ComisionCOMISION = 'COMISION';
- fld_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE = 'IMPORTE_COMISIONABLE';
- fld_V_Detalles_Facturas_ComisionIMPORTE_COMISION = 'IMPORTE_COMISION';
-
- { V_Detalles_Facturas_Comision field indexes }
- idx_V_Detalles_Facturas_ComisionID_EMPRESA = 0;
- idx_V_Detalles_Facturas_ComisionID_AGENTE = 1;
- idx_V_Detalles_Facturas_ComisionAGENTE = 2;
- idx_V_Detalles_Facturas_ComisionID_FACTURA = 3;
- idx_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA = 4;
- idx_V_Detalles_Facturas_ComisionFECHA = 5;
- idx_V_Detalles_Facturas_ComisionREFERENCIA = 6;
- idx_V_Detalles_Facturas_ComisionSITUACION = 7;
- idx_V_Detalles_Facturas_ComisionID_CLIENTE = 8;
- idx_V_Detalles_Facturas_ComisionCLIENTE = 9;
- idx_V_Detalles_Facturas_ComisionID_PROVEEDOR = 10;
- idx_V_Detalles_Facturas_ComisionPROVEEDOR = 11;
- idx_V_Detalles_Facturas_ComisionCOMISION = 12;
- idx_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE = 13;
- idx_V_Detalles_Facturas_ComisionIMPORTE_COMISION = 14;
+ idx_ComisionesFECHA_ALTA = 7;
+ idx_ComisionesFECHA_MODIFICACION = 8;
+ idx_ComisionesUSUARIO = 9;
type
{ IFacturas_Comision }
IFacturas_Comision = interface(IDAStronglyTypedDataTable)
- ['{3C7E800C-733C-4AD2-88B0-1FB0C30EEAB4}']
+ ['{601DB2B1-3514-4B82-9EB8-74AA3059A345}']
{ 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_AGENTEValue: Integer;
- procedure SetID_AGENTEValue(const aValue: Integer);
- function GetAGENTEValue: String;
- procedure SetAGENTEValue(const aValue: String);
- function GetID_FACTURAValue: Integer;
- procedure SetID_FACTURAValue(const aValue: Integer);
- function GetID_COMISION_LIQUIDADAValue: Integer;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
- function GetFECHAValue: DateTime;
- procedure SetFECHAValue(const aValue: DateTime);
+ 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 GetTIPOValue: String;
+ procedure SetTIPOValue(const aValue: String);
+ function GetTIPOIsNull: Boolean;
+ procedure SetTIPOIsNull(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 GetFECHA_FACTURAValue: DateTime;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime);
+ function GetFECHA_FACTURAIsNull: Boolean;
+ procedure SetFECHA_FACTURAIsNull(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 GetDESCUENTOValue: Float;
+ procedure SetDESCUENTOValue(const aValue: Float);
+ function GetDESCUENTOIsNull: Boolean;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean);
+ function GetIMPORTE_DESCUENTOValue: Currency;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+ function GetIMPORTE_DESCUENTOIsNull: Boolean;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+ function GetIVAValue: Float;
+ procedure SetIVAValue(const aValue: Float);
+ function GetIVAIsNull: Boolean;
+ procedure SetIVAIsNull(const aValue: Boolean);
+ function GetIMPORTE_IVAValue: Currency;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency);
+ function GetIMPORTE_IVAIsNull: Boolean;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean);
+ function GetREValue: Float;
+ procedure SetREValue(const aValue: Float);
+ function GetREIsNull: Boolean;
+ procedure SetREIsNull(const aValue: Boolean);
+ function GetIMPORTE_REValue: Currency;
+ procedure SetIMPORTE_REValue(const aValue: Currency);
+ function GetIMPORTE_REIsNull: Boolean;
+ procedure SetIMPORTE_REIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetOBSERVACIONESValue: IROStrings;
+ function GetOBSERVACIONESIsNull: Boolean;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
- function GetCLIENTEValue: String;
- procedure SetCLIENTEValue(const aValue: String);
- function GetID_PROVEEDORValue: Integer;
- procedure SetID_PROVEEDORValue(const aValue: Integer);
- function GetPROVEEDORValue: String;
- procedure SetPROVEEDORValue(const aValue: String);
- function GetCOMISIONValue: Float;
- procedure SetCOMISIONValue(const aValue: Float);
- function GetIMPORTE_COMISIONABLEValue: Currency;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
- function GetIMPORTE_COMISIONValue: Currency;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean);
+ function GetNOMBRE_CLIENTEValue: String;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String);
+ function GetNOMBRE_CLIENTEIsNull: Boolean;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
+ function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
+ procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
+ function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
+ procedure SetNOMBRE_COMERCIAL_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 GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
+ function GetPOBLACIONValue: String;
+ procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
+ function GetPROVINCIAValue: String;
+ procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
+ function GetCODIGO_POSTALValue: String;
+ procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+ function GetUSUARIOValue: String;
+ procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
+ function GetID_FORMA_PAGOValue: Integer;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+ function GetID_FORMA_PAGOIsNull: Boolean;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+ function GetID_TIPO_IVAValue: Integer;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer);
+ function GetID_TIPO_IVAIsNull: Boolean;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
+ function GetIMPORTE_NETOValue: Currency;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency);
+ function GetIMPORTE_NETOIsNull: Boolean;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
+ function GetIMPORTE_PORTEValue: Currency;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency);
+ function GetIMPORTE_PORTEIsNull: Boolean;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+ function GetID_AGENTEValue: Integer;
+ procedure SetID_AGENTEValue(const aValue: Integer);
+ function GetID_AGENTEIsNull: Boolean;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean);
+ function GetREFERENCIA_COMISIONValue: String;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String);
+ function GetREFERENCIA_COMISIONIsNull: Boolean;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+ function GetIGNORAR_CONTABILIDADValue: SmallInt;
+ procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
+ function GetIGNORAR_CONTABILIDADIsNull: Boolean;
+ procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+ function GetID_TIENDAValue: Integer;
+ procedure SetID_TIENDAValue(const aValue: Integer);
+ function GetID_TIENDAIsNull: Boolean;
+ procedure SetID_TIENDAIsNull(const aValue: Boolean);
+ function GetTIENDAValue: String;
+ procedure SetTIENDAValue(const aValue: String);
+ function GetTIENDAIsNull: Boolean;
+ procedure SetTIENDAIsNull(const aValue: Boolean);
+ function GetID_SUBCUENTAValue: Integer;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer);
+ function GetID_SUBCUENTAIsNull: Boolean;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
+ function GetSUBCUENTAValue: String;
+ procedure SetSUBCUENTAValue(const aValue: String);
+ function GetSUBCUENTAIsNull: Boolean;
+ procedure SetSUBCUENTAIsNull(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_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
+ 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 TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ 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 FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
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 DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
+ property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
+ property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
+ property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_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 CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+ property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+ property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+ property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+ property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
+ property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
end;
{ TFacturas_ComisionDataTableRules }
TFacturas_ComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturas_Comision)
private
+ f_OBSERVACIONES: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
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_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); 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 GetTIPOValue: String; virtual;
+ procedure SetTIPOValue(const aValue: String); virtual;
+ function GetTIPOIsNull: Boolean; virtual;
+ procedure SetTIPOIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAIsNull(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 GetDESCUENTOValue: Float; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetREValue: Float; virtual;
+ procedure SetREValue(const aValue: Float); virtual;
+ function GetREIsNull: Boolean; virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_REValue: Currency; virtual;
+ procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
+ function GetIMPORTE_REIsNull: Boolean; virtual;
+ procedure SetIMPORTE_REIsNull(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 GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
- function GetIMPORTE_COMISIONValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
+ procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
+ function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_COMERCIAL_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 GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetID_AGENTEValue: Integer; virtual;
+ procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+ function GetID_AGENTEIsNull: Boolean; virtual;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_COMISIONValue: String; virtual;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
+ function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
+ procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
+ function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+ procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
+ function GetID_TIENDAValue: Integer; virtual;
+ procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+ function GetID_TIENDAIsNull: Boolean; virtual;
+ procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
+ function GetTIENDAValue: String; virtual;
+ procedure SetTIENDAValue(const aValue: String); virtual;
+ function GetTIENDAIsNull: Boolean; virtual;
+ procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetID_SUBCUENTAValue: Integer; virtual;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+ function GetID_SUBCUENTAIsNull: Boolean; virtual;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAIsNull(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_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
+ 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 TIPO: String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ 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 FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
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 DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
+ property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
+ property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
+ property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_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 CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+ property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+ property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+ property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+ property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
+ property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -254,28 +646,94 @@ type
end;
- { IDarReferencia }
- IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{6F6CF728-FD82-4921-95BA-666E4F70B3C2}']
+ { IVendedores_Comision }
+ IVendedores_Comision = interface(IDAStronglyTypedDataTable)
+ ['{B4E71678-F0BA-4633-8BB8-5F68EE690CE5}']
{ Property getters and setters }
- function GetVALORValue: String;
- procedure SetVALORValue(const aValue: String);
+ function GetIDValue: Integer;
+ procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
+ function GetID_COMISIONValue: Integer;
+ procedure SetID_COMISIONValue(const aValue: Integer);
+ function GetID_COMISIONIsNull: Boolean;
+ procedure SetID_COMISIONIsNull(const aValue: Boolean);
+ function GetID_VENDEDORValue: Integer;
+ procedure SetID_VENDEDORValue(const aValue: Integer);
+ function GetID_VENDEDORIsNull: Boolean;
+ procedure SetID_VENDEDORIsNull(const aValue: Boolean);
+ function GetNOMBREValue: String;
+ procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
+ function GetCOMISIONValue: Float;
+ procedure SetCOMISIONValue(const aValue: Float);
+ function GetCOMISIONIsNull: Boolean;
+ procedure SetCOMISIONIsNull(const aValue: Boolean);
+ function GetIMPORTE_TOTALValue: Currency;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency);
+ function GetIMPORTE_TOTALIsNull: Boolean;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
{ Properties }
- property VALOR: String read GetVALORValue write SetVALORValue;
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_COMISION: Integer read GetID_COMISIONValue write SetID_COMISIONValue;
+ property ID_COMISIONIsNull: Boolean read GetID_COMISIONIsNull write SetID_COMISIONIsNull;
+ property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
end;
- { TDarReferenciaDataTableRules }
- TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia)
+ { TVendedores_ComisionDataTableRules }
+ TVendedores_ComisionDataTableRules = class(TIntfObjectDADataTableRules, IVendedores_Comision)
private
protected
{ Property getters and setters }
- function GetVALORValue: String; virtual;
- procedure SetVALORValue(const aValue: String); virtual;
+ function GetIDValue: Integer; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_COMISIONValue: Integer; virtual;
+ procedure SetID_COMISIONValue(const aValue: Integer); virtual;
+ function GetID_COMISIONIsNull: Boolean; virtual;
+ procedure SetID_COMISIONIsNull(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;
+ function GetNOMBREValue: String; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(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_TOTALValue: Currency; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties }
- property VALOR: String read GetVALORValue write SetVALORValue;
+ property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+ property ID_COMISION: Integer read GetID_COMISIONValue write SetID_COMISIONValue;
+ property ID_COMISIONIsNull: Boolean read GetID_COMISIONIsNull write SetID_COMISIONIsNull;
+ property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -285,38 +743,71 @@ type
{ IComisiones }
IComisiones = interface(IDAStronglyTypedDataTable)
- ['{72F0B3AD-C3B5-40E7-8135-300E67F02488}']
+ ['{32ADC59A-A0CA-4CC5-B987-EEC90899CD9A}']
{ 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 GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFECHAValue: DateTime;
procedure SetFECHAValue(const aValue: DateTime);
- function GetIMPORTE_TOTALValue: Float;
- procedure SetIMPORTE_TOTALValue(const aValue: Float);
+ 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 GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(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 DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ 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 FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
end;
{ TComisionesDataTableRules }
@@ -326,223 +817,66 @@ type
{ 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 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 GetIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); 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 GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(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 DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ 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 FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { IComisiones_Refresh }
- IComisiones_Refresh = interface(IDAStronglyTypedDataTable)
- ['{55229695-D8C9-42DD-AF4A-98A105CB3AB5}']
- { Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetID_EMPRESAValue: Integer;
- procedure SetID_EMPRESAValue(const aValue: Integer);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetID_AGENTEValue: Integer;
- procedure SetID_AGENTEValue(const aValue: Integer);
- function GetDESCRIPCIONValue: String;
- procedure SetDESCRIPCIONValue(const aValue: String);
- function GetFECHAValue: DateTime;
- procedure SetFECHAValue(const aValue: DateTime);
- function GetIMPORTE_TOTALValue: Float;
- procedure SetIMPORTE_TOTALValue(const aValue: Float);
- function GetUSUARIOValue: String;
- procedure SetUSUARIOValue(const aValue: String);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
-
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- 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 GetID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetDESCRIPCIONValue: String; virtual;
- procedure SetDESCRIPCIONValue(const aValue: String); virtual;
- function GetFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
- function GetUSUARIOValue: String; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { IV_Detalles_Facturas_Comision }
- IV_Detalles_Facturas_Comision = interface(IDAStronglyTypedDataTable)
- ['{9B3F1419-AEA0-494C-A072-DD93052AC2E4}']
- { Property getters and setters }
- function GetID_EMPRESAValue: Integer;
- procedure SetID_EMPRESAValue(const aValue: Integer);
- function GetID_AGENTEValue: Integer;
- procedure SetID_AGENTEValue(const aValue: Integer);
- function GetAGENTEValue: String;
- procedure SetAGENTEValue(const aValue: String);
- function GetID_FACTURAValue: Integer;
- procedure SetID_FACTURAValue(const aValue: Integer);
- function GetID_COMISION_LIQUIDADAValue: Integer;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
- function GetFECHAValue: DateTime;
- procedure SetFECHAValue(const aValue: DateTime);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetSITUACIONValue: String;
- procedure SetSITUACIONValue(const aValue: String);
- function GetID_CLIENTEValue: Integer;
- procedure SetID_CLIENTEValue(const aValue: Integer);
- function GetCLIENTEValue: String;
- procedure SetCLIENTEValue(const aValue: String);
- function GetID_PROVEEDORValue: Integer;
- procedure SetID_PROVEEDORValue(const aValue: Integer);
- function GetPROVEEDORValue: String;
- procedure SetPROVEEDORValue(const aValue: String);
- function GetCOMISIONValue: Float;
- procedure SetCOMISIONValue(const aValue: Float);
- function GetIMPORTE_COMISIONABLEValue: Currency;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
- function GetIMPORTE_COMISIONValue: Currency;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
-
-
- { Properties }
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
- property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
- end;
-
- { TV_Detalles_Facturas_ComisionDataTableRules }
- TV_Detalles_Facturas_ComisionDataTableRules = class(TIntfObjectDADataTableRules, IV_Detalles_Facturas_Comision)
- private
- protected
- { Property getters and setters }
- function GetID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetSITUACIONValue: String; virtual;
- procedure SetSITUACIONValue(const aValue: String); virtual;
- function GetID_CLIENTEValue: Integer; virtual;
- procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
- function GetIMPORTE_COMISIONValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
-
- { Properties }
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
- property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -552,12 +886,18 @@ type
implementation
-uses Variants;
+uses Variants, uROBinaryHelpers;
{ TFacturas_ComisionDataTableRules }
constructor TFacturas_ComisionDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
end;
destructor TFacturas_ComisionDataTableRules.Destroy;
@@ -565,6 +905,32 @@ begin
inherited;
end;
+procedure TFacturas_ComisionDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsVariant := TStringList(Sender).Text;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIDValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIDValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID].AsVariant := Null;
+end;
+
function TFacturas_ComisionDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_Facturas_ComisionID_EMPRESA].AsInteger;
@@ -575,54 +941,15 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_EMPRESA].AsInteger := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetID_AGENTEValue: Integer;
+function TFacturas_ComisionDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsInteger;
+ result := DataTable.Fields[idx_Facturas_ComisionID_EMPRESA].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+procedure TFacturas_ComisionDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetAGENTEValue: String;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionAGENTE].AsString;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetAGENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_Facturas_ComisionAGENTE].AsString := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_FACTURAValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_FACTURA].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_FACTURA].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger := aValue;
-end;
-
-function TFacturas_ComisionDataTableRules.GetFECHAValue: DateTime;
-begin
- result := DataTable.Fields[idx_Facturas_ComisionFECHA].AsDateTime;
-end;
-
-procedure TFacturas_ComisionDataTableRules.SetFECHAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_Facturas_ComisionFECHA].AsDateTime := aValue;
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_EMPRESA].AsVariant := Null;
end;
function TFacturas_ComisionDataTableRules.GetREFERENCIAValue: String;
@@ -635,6 +962,80 @@ begin
DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsString := aValue;
end;
+function TFacturas_ComisionDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionREFERENCIA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetTIPOValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionTIPO].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetTIPOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionTIPO].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetTIPOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionTIPO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionTIPO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_COMISION_LIQUIDADA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsDateTime;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsDateTime := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_FACTURAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionFECHA_FACTURA].AsVariant := Null;
+end;
+
function TFacturas_ComisionDataTableRules.GetSITUACIONValue: String;
begin
result := DataTable.Fields[idx_Facturas_ComisionSITUACION].AsString;
@@ -645,6 +1046,202 @@ begin
DataTable.Fields[idx_Facturas_ComisionSITUACION].AsString := aValue;
end;
+function TFacturas_ComisionDataTableRules.GetSITUACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionSITUACION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionSITUACION].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionBASE_IMPONIBLE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetDESCUENTOValue: Float;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsFloat;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsFloat := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionDESCUENTO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionDESCUENTO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_DESCUENTO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIVAValue: Float;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIVA].AsFloat;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIVAValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIVA].AsFloat := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIVA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIVA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_IVA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREValue: Float;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionRE].AsFloat;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Facturas_ComisionRE].AsFloat := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionRE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionRE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_REValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_REIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_RE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsString;
+end;
+
+function TFacturas_ComisionDataTableRules.GetOBSERVACIONESIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionOBSERVACIONES].AsVariant := Null;
+end;
+
function TFacturas_ComisionDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].AsInteger;
@@ -655,86 +1252,636 @@ begin
DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].AsInteger := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetCLIENTEValue: String;
+function TFacturas_ComisionDataTableRules.GetID_CLIENTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionCLIENTE].AsString;
+ result := DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetCLIENTEValue(const aValue: String);
+procedure TFacturas_ComisionDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_Facturas_ComisionCLIENTE].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_CLIENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetID_PROVEEDORValue: Integer;
+function TFacturas_ComisionDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin
- result := DataTable.Fields[idx_Facturas_ComisionID_PROVEEDOR].AsInteger;
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsString;
end;
-procedure TFacturas_ComisionDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
+procedure TFacturas_ComisionDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
- DataTable.Fields[idx_Facturas_ComisionID_PROVEEDOR].AsInteger := aValue;
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsString := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetPROVEEDORValue: String;
+function TFacturas_ComisionDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionPROVEEDOR].AsString;
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetPROVEEDORValue(const aValue: String);
+procedure TFacturas_ComisionDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_Facturas_ComisionPROVEEDOR].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE_CLIENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetCOMISIONValue: Float;
+function TFacturas_ComisionDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
- result := DataTable.Fields[idx_Facturas_ComisionCOMISION].AsFloat;
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsString;
end;
-procedure TFacturas_ComisionDataTableRules.SetCOMISIONValue(const aValue: Float);
+procedure TFacturas_ComisionDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
- DataTable.Fields[idx_Facturas_ComisionCOMISION].AsFloat := aValue;
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsString := aValue;
end;
-function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONABLEValue: Currency;
+function TFacturas_ComisionDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency;
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].IsNull;
end;
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
+procedure TFacturas_ComisionDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency := aValue;
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;
-function TFacturas_ComisionDataTableRules.GetIMPORTE_COMISIONValue: Currency;
+function TFacturas_ComisionDataTableRules.GetNIF_CIFValue: String;
begin
- result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].AsCurrency;
+ result := DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsString;
end;
-procedure TFacturas_ComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
+procedure TFacturas_ComisionDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
- DataTable.Fields[idx_Facturas_ComisionIMPORTE_COMISION].AsCurrency := aValue;
+ DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionNIF_CIF].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionNIF_CIF].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionNOMBRE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionNOMBRE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCALLE].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionCALLE].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCALLE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionCALLE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetPOBLACIONValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetPOBLACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionPOBLACION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionPOBLACION].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetPROVINCIAValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetPROVINCIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionPROVINCIA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionPROVINCIA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCODIGO_POSTALValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionCODIGO_POSTAL].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsDateTime;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionFECHA_ALTA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionFECHA_MODIFICACION].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetUSUARIOValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetUSUARIOValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionUSUARIO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionUSUARIO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_FORMA_PAGO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsSmallInt;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionRECARGO_EQUIVALENCIA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_TIPO_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_TIPO_IVA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_NETOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_NETO].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsCurrency;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsCurrency := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIMPORTE_PORTE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_AGENTEValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_AGENTE].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_AGENTE].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREFERENCIA_COMISIONValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetREFERENCIA_COMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionREFERENCIA_COMISION].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsSmallInt;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsSmallInt := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionIGNORAR_CONTABILIDAD].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_TIENDAValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_TIENDAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_TIENDA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_TIENDA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetTIENDAValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionTIENDA].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetTIENDAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionTIENDA].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetTIENDAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionTIENDA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionTIENDA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_SUBCUENTAValue: Integer;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsInteger;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsInteger := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetID_SUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionID_SUBCUENTA].AsVariant := Null;
+end;
+
+function TFacturas_ComisionDataTableRules.GetSUBCUENTAValue: String;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsString;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsString := aValue;
+end;
+
+function TFacturas_ComisionDataTableRules.GetSUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].IsNull;
+end;
+
+procedure TFacturas_ComisionDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Facturas_ComisionSUBCUENTA].AsVariant := Null;
end;
-{ TDarReferenciaDataTableRules }
-constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable);
+{ TVendedores_ComisionDataTableRules }
+constructor TVendedores_ComisionDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
-destructor TDarReferenciaDataTableRules.Destroy;
+destructor TVendedores_ComisionDataTableRules.Destroy;
begin
inherited;
end;
-function TDarReferenciaDataTableRules.GetVALORValue: String;
+function TVendedores_ComisionDataTableRules.GetIDValue: Integer;
begin
- result := DataTable.Fields[idx_DarReferenciaVALOR].AsString;
+ result := DataTable.Fields[idx_Vendedores_ComisionID].AsInteger;
end;
-procedure TDarReferenciaDataTableRules.SetVALORValue(const aValue: String);
+procedure TVendedores_ComisionDataTableRules.SetIDValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DarReferenciaVALOR].AsString := aValue;
+ DataTable.Fields[idx_Vendedores_ComisionID].AsInteger := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionID].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionID].AsVariant := Null;
+end;
+
+function TVendedores_ComisionDataTableRules.GetID_COMISIONValue: Integer;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionID_COMISION].AsInteger;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetID_COMISIONValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Vendedores_ComisionID_COMISION].AsInteger := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetID_COMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionID_COMISION].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetID_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionID_COMISION].AsVariant := Null;
+end;
+
+function TVendedores_ComisionDataTableRules.GetID_VENDEDORValue: Integer;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionID_VENDEDOR].AsInteger;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_Vendedores_ComisionID_VENDEDOR].AsInteger := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetID_VENDEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionID_VENDEDOR].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionID_VENDEDOR].AsVariant := Null;
+end;
+
+function TVendedores_ComisionDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionNOMBRE].AsString;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_Vendedores_ComisionNOMBRE].AsString := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionNOMBRE].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionNOMBRE].AsVariant := Null;
+end;
+
+function TVendedores_ComisionDataTableRules.GetCOMISIONValue: Float;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionCOMISION].AsFloat;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetCOMISIONValue(const aValue: Float);
+begin
+ DataTable.Fields[idx_Vendedores_ComisionCOMISION].AsFloat := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetCOMISIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionCOMISION].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionCOMISION].AsVariant := Null;
+end;
+
+function TVendedores_ComisionDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_Vendedores_ComisionIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TVendedores_ComisionDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_Vendedores_ComisionIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TVendedores_ComisionDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_Vendedores_ComisionIMPORTE_TOTAL].AsVariant := Null;
end;
@@ -759,6 +1906,17 @@ begin
DataTable.Fields[idx_ComisionesID].AsInteger := aValue;
end;
+function TComisionesDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesID].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesID].AsVariant := Null;
+end;
+
function TComisionesDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger;
@@ -769,6 +1927,17 @@ begin
DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger := aValue;
end;
+function TComisionesDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesID_EMPRESA].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesID_EMPRESA].AsVariant := Null;
+end;
+
function TComisionesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ComisionesREFERENCIA].AsString;
@@ -779,6 +1948,17 @@ begin
DataTable.Fields[idx_ComisionesREFERENCIA].AsString := aValue;
end;
+function TComisionesDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesREFERENCIA].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesREFERENCIA].AsVariant := Null;
+end;
+
function TComisionesDataTableRules.GetID_AGENTEValue: Integer;
begin
result := DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger;
@@ -789,6 +1969,17 @@ begin
DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger := aValue;
end;
+function TComisionesDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesID_AGENTE].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesID_AGENTE].AsVariant := Null;
+end;
+
function TComisionesDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ComisionesDESCRIPCION].AsString;
@@ -799,6 +1990,17 @@ begin
DataTable.Fields[idx_ComisionesDESCRIPCION].AsString := aValue;
end;
+function TComisionesDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesDESCRIPCION].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesDESCRIPCION].AsVariant := Null;
+end;
+
function TComisionesDataTableRules.GetFECHAValue: DateTime;
begin
result := DataTable.Fields[idx_ComisionesFECHA].AsDateTime;
@@ -809,14 +2011,78 @@ begin
DataTable.Fields[idx_ComisionesFECHA].AsDateTime := aValue;
end;
-function TComisionesDataTableRules.GetIMPORTE_TOTALValue: Float;
+function TComisionesDataTableRules.GetFECHAIsNull: boolean;
begin
- result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsFloat;
+ result := DataTable.Fields[idx_ComisionesFECHA].IsNull;
end;
-procedure TComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
+procedure TComisionesDataTableRules.SetFECHAIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsFloat := aValue;
+ if aValue then
+ DataTable.Fields[idx_ComisionesFECHA].AsVariant := Null;
+end;
+
+function TComisionesDataTableRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency;
+end;
+
+procedure TComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency := aValue;
+end;
+
+function TComisionesDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsVariant := Null;
+end;
+
+function TComisionesDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ComisionesFECHA_ALTA].AsDateTime;
+end;
+
+procedure TComisionesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ComisionesFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TComisionesDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesFECHA_ALTA].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesFECHA_ALTA].AsVariant := Null;
+end;
+
+function TComisionesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TComisionesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TComisionesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TComisionesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ComisionesFECHA_MODIFICACION].AsVariant := Null;
end;
function TComisionesDataTableRules.GetUSUARIOValue: String;
@@ -829,286 +2095,21 @@ begin
DataTable.Fields[idx_ComisionesUSUARIO].AsString := aValue;
end;
-function TComisionesDataTableRules.GetNOMBREValue: String;
+function TComisionesDataTableRules.GetUSUARIOIsNull: boolean;
begin
- result := DataTable.Fields[idx_ComisionesNOMBRE].AsString;
+ result := DataTable.Fields[idx_ComisionesUSUARIO].IsNull;
end;
-procedure TComisionesDataTableRules.SetNOMBREValue(const aValue: String);
+procedure TComisionesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ComisionesNOMBRE].AsString := aValue;
-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.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.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.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.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.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.GetIMPORTE_TOTALValue: Float;
-begin
- result := DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsFloat;
-end;
-
-procedure TComisiones_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
-begin
- DataTable.Fields[idx_Comisiones_RefreshIMPORTE_TOTAL].AsFloat := aValue;
-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.GetNOMBREValue: String;
-begin
- result := DataTable.Fields[idx_Comisiones_RefreshNOMBRE].AsString;
-end;
-
-procedure TComisiones_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
-begin
- DataTable.Fields[idx_Comisiones_RefreshNOMBRE].AsString := aValue;
-end;
-
-
-{ TV_Detalles_Facturas_ComisionDataTableRules }
-constructor TV_Detalles_Facturas_ComisionDataTableRules.Create(aDataTable: TDADataTable);
-begin
- inherited;
-end;
-
-destructor TV_Detalles_Facturas_ComisionDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_EMPRESAValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_EMPRESA].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_EMPRESA].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_AGENTEValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_AGENTE].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_AGENTE].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetAGENTEValue: String;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionAGENTE].AsString;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetAGENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionAGENTE].AsString := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_FACTURAValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_FACTURA].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_FACTURA].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetFECHAValue: DateTime;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionFECHA].AsDateTime;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetFECHAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionFECHA].AsDateTime := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionREFERENCIA].AsString;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionREFERENCIA].AsString := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetSITUACIONValue: String;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionSITUACION].AsString;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetSITUACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionSITUACION].AsString := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_CLIENTEValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_CLIENTE].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_CLIENTE].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetCLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionCLIENTE].AsString;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetCLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionCLIENTE].AsString := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetID_PROVEEDORValue: Integer;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_PROVEEDOR].AsInteger;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionID_PROVEEDOR].AsInteger := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetPROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionPROVEEDOR].AsString;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetPROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionPROVEEDOR].AsString := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetCOMISIONValue: Float;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionCOMISION].AsFloat;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetCOMISIONValue(const aValue: Float);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionCOMISION].AsFloat := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetIMPORTE_COMISIONABLEValue: Currency;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE].AsCurrency := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionDataTableRules.GetIMPORTE_COMISIONValue: Currency;
-begin
- result := DataTable.Fields[idx_V_Detalles_Facturas_ComisionIMPORTE_COMISION].AsCurrency;
-end;
-
-procedure TV_Detalles_Facturas_ComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_V_Detalles_Facturas_ComisionIMPORTE_COMISION].AsCurrency := aValue;
+ if aValue then
+ DataTable.Fields[idx_ComisionesUSUARIO].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Facturas_Comision, TFacturas_ComisionDataTableRules);
- RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
+ RegisterDataTableRules(RID_Vendedores_Comision, TVendedores_ComisionDataTableRules);
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
- RegisterDataTableRules(RID_Comisiones_Refresh, TComisiones_RefreshDataTableRules);
- RegisterDataTableRules(RID_V_Detalles_Facturas_Comision, TV_Detalles_Facturas_ComisionDataTableRules);
end.
diff --git a/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
index b793cc81..a87c86df 100644
--- a/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
+++ b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
@@ -3,139 +3,513 @@ unit schComisionesServer_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schComisionesClient_Intf;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schComisionesClient_Intf;
const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Facturas_ComisionDelta = '{80016781-B9E4-49D8-B7A6-09256F591FC2}';
- RID_DarReferenciaDelta = '{B5AAD341-FC85-4146-8DCB-97B869953385}';
- RID_ComisionesDelta = '{8AB7044C-6835-494A-A477-7FBF4270C7AE}';
- RID_Comisiones_RefreshDelta = '{501F63F6-C629-479D-AAC7-54026E38E40D}';
- RID_V_Detalles_Facturas_ComisionDelta = '{C7A1565B-19DF-4CA4-B4B9-4A63743484B7}';
+ RID_Facturas_ComisionDelta = '{748F8239-55DC-4C05-A849-907A5AAA7AB4}';
+ RID_Vendedores_ComisionDelta = '{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}';
+ RID_ComisionesDelta = '{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}';
type
{ IFacturas_ComisionDelta }
IFacturas_ComisionDelta = interface(IFacturas_Comision)
- ['{80016781-B9E4-49D8-B7A6-09256F591FC2}']
+ ['{748F8239-55DC-4C05-A849-907A5AAA7AB4}']
{ Property getters and setters }
+ function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
- function GetOldID_AGENTEValue : Integer;
- function GetOldAGENTEValue : String;
- function GetOldID_FACTURAValue : Integer;
- function GetOldID_COMISION_LIQUIDADAValue : Integer;
- function GetOldFECHAValue : DateTime;
function GetOldREFERENCIAValue : String;
+ function GetOldTIPOValue : String;
+ function GetOldID_COMISION_LIQUIDADAValue : Integer;
+ function GetOldFECHA_FACTURAValue : DateTime;
function GetOldSITUACIONValue : String;
+ function GetOldBASE_IMPONIBLEValue : Currency;
+ function GetOldDESCUENTOValue : Float;
+ function GetOldIMPORTE_DESCUENTOValue : Currency;
+ function GetOldIVAValue : Float;
+ function GetOldIMPORTE_IVAValue : Currency;
+ function GetOldREValue : Float;
+ function GetOldIMPORTE_REValue : Currency;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_CLIENTEValue : Integer;
- function GetOldCLIENTEValue : String;
- function GetOldID_PROVEEDORValue : Integer;
- function GetOldPROVEEDORValue : String;
- function GetOldCOMISIONValue : Float;
- function GetOldIMPORTE_COMISIONABLEValue : Currency;
- function GetOldIMPORTE_COMISIONValue : Currency;
+ function GetOldNOMBRE_CLIENTEValue : String;
+ function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
+ function GetOldNIF_CIFValue : String;
+ function GetOldNOMBREValue : String;
+ function GetOldCALLEValue : String;
+ function GetOldPOBLACIONValue : String;
+ function GetOldPROVINCIAValue : String;
+ function GetOldCODIGO_POSTALValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
+ function GetOldUSUARIOValue : String;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
+ function GetOldID_TIPO_IVAValue : Integer;
+ function GetOldIMPORTE_NETOValue : Currency;
+ function GetOldIMPORTE_PORTEValue : Currency;
+ function GetOldID_AGENTEValue : Integer;
+ function GetOldREFERENCIA_COMISIONValue : String;
+ function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
+ function GetOldID_TIENDAValue : Integer;
+ function GetOldTIENDAValue : String;
+ function GetOldID_SUBCUENTAValue : Integer;
+ function GetOldSUBCUENTAValue : String;
{ Properties }
+ property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldTIPO : String read GetOldTIPOValue;
+ property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldRE : Float read GetOldREValue;
+ property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
+ property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+ property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
+ property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldTIENDA : String read GetOldTIENDAValue;
+ property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TFacturas_ComisionBusinessProcessorRules }
TFacturas_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturas_Comision, IFacturas_ComisionDelta)
private
+ f_OBSERVACIONES: IROStrings;
+ procedure OBSERVACIONES_OnChange(Sender: TObject);
protected
{ Property getters and setters }
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- function GetOldID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- function GetOldAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- function GetOldID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- function GetOldFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetTIPOValue: String; virtual;
+ function GetTIPOIsNull: Boolean; virtual;
+ function GetOldTIPOValue: String; virtual;
+ function GetOldTIPOIsNull: Boolean; virtual;
+ procedure SetTIPOValue(const aValue: String); virtual;
+ procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+ function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
+ function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+ function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
+ function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
+ procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
+ procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_FACTURAValue: DateTime; virtual;
+ function GetFECHA_FACTURAIsNull: Boolean; virtual;
+ function GetOldFECHA_FACTURAValue: DateTime; virtual;
+ function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
+ procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetSITUACIONValue: String; virtual;
+ function GetSITUACIONIsNull: Boolean; virtual;
function GetOldSITUACIONValue: String; virtual;
+ function GetOldSITUACIONIsNull: Boolean; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
+ procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
+ function GetBASE_IMPONIBLEValue: Currency; virtual;
+ function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
+ function GetOldBASE_IMPONIBLEValue: Currency; virtual;
+ function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
+ procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
+ procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
+ function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
+ function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
+ function GetIVAValue: Float; virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ function GetOldIVAValue: Float; virtual;
+ function GetOldIVAIsNull: Boolean; virtual;
+ procedure SetIVAValue(const aValue: Float); virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_IVAValue: Currency; virtual;
+ function GetIMPORTE_IVAIsNull: Boolean; virtual;
+ function GetOldIMPORTE_IVAValue: Currency; virtual;
+ function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
+ procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
+ function GetREValue: Float; virtual;
+ function GetREIsNull: Boolean; virtual;
+ function GetOldREValue: Float; virtual;
+ function GetOldREIsNull: Boolean; virtual;
+ procedure SetREValue(const aValue: Float); virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_REValue: Currency; virtual;
+ function GetIMPORTE_REIsNull: Boolean; virtual;
+ function GetOldIMPORTE_REValue: Currency; virtual;
+ function GetOldIMPORTE_REIsNull: Boolean; virtual;
+ procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetOBSERVACIONESValue: IROStrings; virtual;
+ function GetOBSERVACIONESIsNull: Boolean; virtual;
+ function GetOldOBSERVACIONESValue: IROStrings; virtual;
+ function GetOldOBSERVACIONESIsNull: Boolean; virtual;
+ procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
+ function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- function GetOldCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- function GetOldID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- function GetOldPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- function GetOldCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
- function GetOldIMPORTE_COMISIONABLEValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
- function GetIMPORTE_COMISIONValue: Currency; virtual;
- function GetOldIMPORTE_COMISIONValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_CLIENTEValue: String; virtual;
+ function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
+ function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
+ function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
+ function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
+ procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
+ procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
+ function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
+ function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
+ function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
+ function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+ function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
+ function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_NETOValue: Currency; virtual;
+ function GetIMPORTE_NETOIsNull: Boolean; virtual;
+ function GetOldIMPORTE_NETOValue: Currency; virtual;
+ function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
+ procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ function GetIMPORTE_PORTEIsNull: Boolean; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
+ function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetID_AGENTEValue: Integer; virtual;
+ function GetID_AGENTEIsNull: Boolean; virtual;
+ function GetOldID_AGENTEValue: Integer; virtual;
+ function GetOldID_AGENTEIsNull: Boolean; virtual;
+ procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_COMISIONValue: String; virtual;
+ function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_COMISIONValue: String; virtual;
+ function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual;
+ function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+ function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual;
+ function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+ procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual;
+ procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
+ function GetID_TIENDAValue: Integer; virtual;
+ function GetID_TIENDAIsNull: Boolean; virtual;
+ function GetOldID_TIENDAValue: Integer; virtual;
+ function GetOldID_TIENDAIsNull: Boolean; virtual;
+ procedure SetID_TIENDAValue(const aValue: Integer); virtual;
+ procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
+ function GetTIENDAValue: String; virtual;
+ function GetTIENDAIsNull: Boolean; virtual;
+ function GetOldTIENDAValue: String; virtual;
+ function GetOldTIENDAIsNull: Boolean; virtual;
+ procedure SetTIENDAValue(const aValue: String); virtual;
+ procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetID_SUBCUENTAValue: Integer; virtual;
+ function GetID_SUBCUENTAIsNull: Boolean; virtual;
+ function GetOldID_SUBCUENTAValue: Integer; virtual;
+ function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ function GetOldSUBCUENTAValue: String; virtual;
+ function GetOldSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property TIPO : String read GetTIPOValue write SetTIPOValue;
+ property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
+ property OldTIPO : String read GetOldTIPOValue;
+ property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
+ 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 OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
+ property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull;
+ property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
+ property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
+ property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
+ property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
+ property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
property OldSITUACION : String read GetOldSITUACIONValue;
+ property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
+ property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
+ property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
+ property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
+ property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
+ property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
+ property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
+ property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
+ property IVA : Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
+ property OldIVA : Float read GetOldIVAValue;
+ property OldIVAIsNull : Boolean read GetOldIVAIsNull;
+ property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
+ property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
+ property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
+ property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
+ property RE : Float read GetREValue write SetREValue;
+ property REIsNull : Boolean read GetREIsNull write SetREIsNull;
+ property OldRE : Float read GetOldREValue;
+ property OldREIsNull : Boolean read GetOldREIsNull;
+ property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
+ property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
+ property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
+ property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
+ property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
+ property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
+ property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property IMPORTE_COMISIONABLE : Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION : Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
- property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue;
+ property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
+ property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
+ property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
+ property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
+ property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
+ property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
+ property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
+ property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull;
+ property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
+ property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
+ property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
+ property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
+ property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
+ property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
+ property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
+ property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+ property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
+ property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+ property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
+ property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
+ property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
+ property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+ property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+ property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+ property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
+ property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
+ property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
+ property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
+ property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+ property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+ property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
+ property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
+ property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
+ property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
+ property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
+ property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
+ property TIENDA : String read GetTIENDAValue write SetTIENDAValue;
+ property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property OldTIENDA : String read GetOldTIENDAValue;
+ property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+ property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+ property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
+ property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+ property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -143,28 +517,93 @@ type
end;
- { IDarReferenciaDelta }
- IDarReferenciaDelta = interface(IDarReferencia)
- ['{B5AAD341-FC85-4146-8DCB-97B869953385}']
+ { IVendedores_ComisionDelta }
+ IVendedores_ComisionDelta = interface(IVendedores_Comision)
+ ['{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}']
{ Property getters and setters }
- function GetOldVALORValue : String;
+ function GetOldIDValue : Integer;
+ function GetOldID_COMISIONValue : Integer;
+ function GetOldID_VENDEDORValue : Integer;
+ function GetOldNOMBREValue : String;
+ function GetOldCOMISIONValue : Float;
+ function GetOldIMPORTE_TOTALValue : Currency;
{ Properties }
- property OldVALOR : String read GetOldVALORValue;
+ property OldID : Integer read GetOldIDValue;
+ property OldID_COMISION : Integer read GetOldID_COMISIONValue;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
end;
- { TDarReferenciaBusinessProcessorRules }
- TDarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferencia, IDarReferenciaDelta)
+ { TVendedores_ComisionBusinessProcessorRules }
+ TVendedores_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IVendedores_Comision, IVendedores_ComisionDelta)
private
protected
{ Property getters and setters }
- function GetVALORValue: String; virtual;
- function GetOldVALORValue: String; virtual;
- procedure SetVALORValue(const aValue: String); virtual;
+ function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
+ function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
+ procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
+ function GetID_COMISIONValue: Integer; virtual;
+ function GetID_COMISIONIsNull: Boolean; virtual;
+ function GetOldID_COMISIONValue: Integer; virtual;
+ function GetOldID_COMISIONIsNull: Boolean; virtual;
+ procedure SetID_COMISIONValue(const aValue: Integer); virtual;
+ procedure SetID_COMISIONIsNull(const aValue: Boolean); virtual;
+ function GetID_VENDEDORValue: Integer; virtual;
+ function GetID_VENDEDORIsNull: Boolean; virtual;
+ function GetOldID_VENDEDORValue: Integer; virtual;
+ function GetOldID_VENDEDORIsNull: Boolean; virtual;
+ procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
+ procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
+ function GetCOMISIONValue: Float; virtual;
+ function GetCOMISIONIsNull: Boolean; virtual;
+ function GetOldCOMISIONValue: Float; virtual;
+ function GetOldCOMISIONIsNull: Boolean; virtual;
+ procedure SetCOMISIONValue(const aValue: Float); virtual;
+ procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
{ Properties }
- property VALOR : String read GetVALORValue write SetVALORValue;
- property OldVALOR : String read GetOldVALORValue;
+ property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+ property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
+ property ID_COMISION : Integer read GetID_COMISIONValue write SetID_COMISIONValue;
+ property ID_COMISIONIsNull : Boolean read GetID_COMISIONIsNull write SetID_COMISIONIsNull;
+ property OldID_COMISION : Integer read GetOldID_COMISIONValue;
+ property OldID_COMISIONIsNull : Boolean read GetOldID_COMISIONIsNull;
+ property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+ property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
+ property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
+ property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
+ property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
+ property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
+ property OldCOMISION : Float read GetOldCOMISIONValue;
+ property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -174,7 +613,7 @@ type
{ IComisionesDelta }
IComisionesDelta = interface(IComisiones)
- ['{8AB7044C-6835-494A-A477-7FBF4270C7AE}']
+ ['{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -182,9 +621,10 @@ type
function GetOldID_AGENTEValue : Integer;
function GetOldDESCRIPCIONValue : String;
function GetOldFECHAValue : DateTime;
- function GetOldIMPORTE_TOTALValue : Float;
+ function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
- function GetOldNOMBREValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -193,9 +633,10 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFECHA : DateTime read GetOldFECHAValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
end;
{ TComisionesBusinessProcessorRules }
@@ -204,264 +645,107 @@ type
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_AGENTEValue: Integer; virtual;
+ function GetID_AGENTEIsNull: Boolean; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
+ function GetOldID_AGENTEIsNull: Boolean; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+ procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFECHAValue: DateTime; virtual;
+ function GetFECHAIsNull: Boolean; virtual;
function GetOldFECHAValue: DateTime; virtual;
+ function GetOldFECHAIsNull: Boolean; virtual;
procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetIMPORTE_TOTALValue: Float; virtual;
- function GetOldIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
+ procedure SetFECHAIsNull(const aValue: Boolean); virtual;
+ function GetIMPORTE_TOTALValue: Currency; virtual;
+ function GetIMPORTE_TOTALIsNull: Boolean; virtual;
+ function GetOldIMPORTE_TOTALValue: Currency; virtual;
+ function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
+ procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
+ procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetNOMBREValue: String; virtual;
- function GetOldNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+ property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+ property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
+ property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull;
property OldFECHA : DateTime read GetOldFECHAValue;
- property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
+ property OldFECHAIsNull : Boolean read GetOldFECHAIsNull;
+ property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
+ property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { IComisiones_RefreshDelta }
- IComisiones_RefreshDelta = interface(IComisiones_Refresh)
- ['{501F63F6-C629-479D-AAC7-54026E38E40D}']
- { Property getters and setters }
- function GetOldIDValue : Integer;
- function GetOldID_EMPRESAValue : Integer;
- function GetOldREFERENCIAValue : String;
- function GetOldID_AGENTEValue : Integer;
- function GetOldDESCRIPCIONValue : String;
- function GetOldFECHAValue : DateTime;
- function GetOldIMPORTE_TOTALValue : Float;
- function GetOldUSUARIOValue : String;
- function GetOldNOMBREValue : String;
-
- { Properties }
- property OldID : Integer read GetOldIDValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
- end;
-
- { TComisiones_RefreshBusinessProcessorRules }
- TComisiones_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IComisiones_Refresh, IComisiones_RefreshDelta)
- private
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- function GetOldIDValue: Integer; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- function GetOldID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- function GetOldID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetDESCRIPCIONValue: String; virtual;
- function GetOldDESCRIPCIONValue: String; virtual;
- procedure SetDESCRIPCIONValue(const aValue: String); virtual;
- function GetFECHAValue: DateTime; virtual;
- function GetOldFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetIMPORTE_TOTALValue: Float; virtual;
- function GetOldIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
- function GetUSUARIOValue: String; virtual;
- function GetOldUSUARIOValue: String; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetNOMBREValue: String; virtual;
- function GetOldNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
-
- { Properties }
- property ID : Integer read GetIDValue write SetIDValue;
- property OldID : Integer read GetOldIDValue;
- property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
- property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
- property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { IV_Detalles_Facturas_ComisionDelta }
- IV_Detalles_Facturas_ComisionDelta = interface(IV_Detalles_Facturas_Comision)
- ['{C7A1565B-19DF-4CA4-B4B9-4A63743484B7}']
- { Property getters and setters }
- function GetOldID_EMPRESAValue : Integer;
- function GetOldID_AGENTEValue : Integer;
- function GetOldAGENTEValue : String;
- function GetOldID_FACTURAValue : Integer;
- function GetOldID_COMISION_LIQUIDADAValue : Integer;
- function GetOldFECHAValue : DateTime;
- function GetOldREFERENCIAValue : String;
- function GetOldSITUACIONValue : String;
- function GetOldID_CLIENTEValue : Integer;
- function GetOldCLIENTEValue : String;
- function GetOldID_PROVEEDORValue : Integer;
- function GetOldPROVEEDORValue : String;
- function GetOldCOMISIONValue : Float;
- function GetOldIMPORTE_COMISIONABLEValue : Currency;
- function GetOldIMPORTE_COMISIONValue : Currency;
-
- { Properties }
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldSITUACION : String read GetOldSITUACIONValue;
- property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue;
- end;
-
- { TV_Detalles_Facturas_ComisionBusinessProcessorRules }
- TV_Detalles_Facturas_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IV_Detalles_Facturas_Comision, IV_Detalles_Facturas_ComisionDelta)
- private
- protected
- { Property getters and setters }
- function GetID_EMPRESAValue: Integer; virtual;
- function GetOldID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- function GetOldID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- function GetOldAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- function GetOldID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- function GetOldFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetSITUACIONValue: String; virtual;
- function GetOldSITUACIONValue: String; virtual;
- procedure SetSITUACIONValue(const aValue: String); virtual;
- function GetID_CLIENTEValue: Integer; virtual;
- function GetOldID_CLIENTEValue: Integer; virtual;
- procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- function GetOldCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- function GetOldID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- function GetOldPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- function GetOldCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Currency; virtual;
- function GetOldIMPORTE_COMISIONABLEValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Currency); virtual;
- function GetIMPORTE_COMISIONValue: Currency; virtual;
- function GetOldIMPORTE_COMISIONValue: Currency; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
-
- { Properties }
- property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
- property OldSITUACION : String read GetOldSITUACIONValue;
- property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property IMPORTE_COMISIONABLE : Currency read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISIONABLE : Currency read GetOldIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION : Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
- property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -472,12 +756,18 @@ type
implementation
uses
- Variants, uROBinaryHelpers;
+ Variants, uROBinaryHelpers, uDAInterfaces;
{ TFacturas_ComisionBusinessProcessorRules }
constructor TFacturas_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := OBSERVACIONES_OnChange;
+ f_OBSERVACIONES := NewROStrings(StrList,True);
end;
destructor TFacturas_ComisionBusinessProcessorRules.Destroy;
@@ -485,94 +775,71 @@ begin
inherited;
end;
+procedure TFacturas_ComisionBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := TStringList(Sender).Text;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := Null;
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA]);
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_EMPRESA];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_EMPRESA]);
+end;
+
procedure TFacturas_ComisionBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA] := aValue;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEValue: Integer;
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_AGENTE];
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := aValue;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionAGENTE];
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetAGENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionAGENTE] := aValue;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FACTURA];
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FACTURA] := aValue;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA];
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := aValue;
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA];
-end;
-
-function TFacturas_ComisionBusinessProcessorRules.GetOldFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA];
-end;
-
-procedure TFacturas_ComisionBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA] := Null;
end;
function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAValue: String;
@@ -580,161 +847,1372 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA]);
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA]);
+end;
+
procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := aValue;
end;
+procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := Null;
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION]);
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSITUACION];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSITUACION]);
+end;
+
procedure TFacturas_ComisionBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION] := aValue;
end;
+procedure TFacturas_ComisionBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIVAValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIVAValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
+begin
+ result := f_OBSERVACIONES;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := Null;
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE]);
+end;
+
function TFacturas_ComisionBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_CLIENTE];
end;
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_CLIENTE]);
+end;
+
procedure TFacturas_ComisionBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE] := aValue;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetCLIENTEValue: String;
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE];
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldCLIENTEValue: String;
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCLIENTE];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE];
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCLIENTE] := aValue;
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_PROVEEDOR];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_PROVEEDOR];
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_PROVEEDOR] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := aValue;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetPROVEEDORValue: String;
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVEEDOR];
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldPROVEEDORValue: String;
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVEEDOR];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE];
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVEEDOR] := aValue;
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetCOMISIONValue: Float;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldCOMISIONValue: Float;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCOMISION];
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCOMISION] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := aValue;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONABLEValue: Currency;
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE];
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := Null;
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEValue: Currency;
+function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF];
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
+function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISIONABLE] := aValue;
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF]);
end;
-function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONValue: Currency;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF];
end;
-function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Currency;
+function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_COMISION];
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF]);
end;
-procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
+procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_COMISION] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_AGENTE];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_AGENTE]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetTIENDAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetTIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := Null;
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA]);
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA];
+end;
+
+function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA]);
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := aValue;
+end;
+
+procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := Null;
end;
-{ TDarReferenciaBusinessProcessorRules }
-constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+{ TVendedores_ComisionBusinessProcessorRules }
+constructor TVendedores_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
-destructor TDarReferenciaBusinessProcessorRules.Destroy;
+destructor TVendedores_ComisionBusinessProcessorRules.Destroy;
begin
inherited;
end;
-function TDarReferenciaBusinessProcessorRules.GetVALORValue: String;
+function TVendedores_ComisionBusinessProcessorRules.GetIDValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID];
end;
-function TDarReferenciaBusinessProcessorRules.GetOldVALORValue: String;
+function TVendedores_ComisionBusinessProcessorRules.GetIDIsNull: Boolean;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR];
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID]);
end;
-procedure TDarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String);
+function TVendedores_ComisionBusinessProcessorRules.GetOldIDValue: Integer;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := aValue;
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID] := Null;
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetID_COMISIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetID_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION]);
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldID_COMISIONValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_COMISION];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldID_COMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_COMISION]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetID_COMISIONValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetID_COMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION] := Null;
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR]);
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldID_VENDEDORValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_VENDEDOR];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_VENDEDOR]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR] := Null;
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE]);
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionNOMBRE];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionNOMBRE]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE] := Null;
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION]);
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldCOMISIONValue: Float;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionCOMISION];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionCOMISION]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION] := Null;
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]);
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL];
+end;
+
+function TVendedores_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]);
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL] := aValue;
+end;
+
+procedure TVendedores_ComisionBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL] := Null;
end;
@@ -754,526 +2232,315 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID];
end;
+function TComisionesBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID];
end;
+function TComisionesBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA];
end;
+function TComisionesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA];
end;
+function TComisionesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA];
end;
+function TComisionesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA];
end;
+function TComisionesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE];
end;
+function TComisionesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE];
end;
+function TComisionesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION];
end;
+function TComisionesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION];
end;
+function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetFECHAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA];
end;
+function TComisionesBusinessProcessorRules.GetFECHAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldFECHAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA];
end;
+function TComisionesBusinessProcessorRules.GetOldFECHAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := aValue;
end;
-function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
+procedure TComisionesBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := Null;
+end;
+
+function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL];
end;
-function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
+function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL];
end;
-procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
+function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := aValue;
end;
+procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := Null;
+end;
+
+function TComisionesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA];
+end;
+
+function TComisionesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA];
+end;
+
+function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := aValue;
+end;
+
+procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := Null;
+end;
+
+function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION];
+end;
+
+function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION]);
+end;
+
+function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION];
+end;
+
+function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION]);
+end;
+
+procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := Null;
+end;
+
function TComisionesBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO];
end;
+function TComisionesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO]);
+end;
+
function TComisionesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO];
end;
+function TComisionesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO]);
+end;
+
procedure TComisionesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := aValue;
end;
-function TComisionesBusinessProcessorRules.GetNOMBREValue: String;
+procedure TComisionesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE];
-end;
-
-function TComisionesBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesNOMBRE];
-end;
-
-procedure TComisionesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE] := aValue;
-end;
-
-
-{ TComisiones_RefreshBusinessProcessorRules }
-constructor TComisiones_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TComisiones_RefreshBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshID];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID_EMPRESA];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshID_EMPRESA];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID_EMPRESA] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshREFERENCIA];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshREFERENCIA];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshREFERENCIA] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID_AGENTE];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshID_AGENTE];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshID_AGENTE] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetDESCRIPCIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshDESCRIPCION];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshDESCRIPCION];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshDESCRIPCION] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshFECHA];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshFECHA];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshFECHA] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshIMPORTE_TOTAL];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshIMPORTE_TOTAL];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshIMPORTE_TOTAL] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshUSUARIO];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshUSUARIO];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshUSUARIO] := aValue;
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshNOMBRE];
-end;
-
-function TComisiones_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Comisiones_RefreshNOMBRE];
-end;
-
-procedure TComisiones_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Comisiones_RefreshNOMBRE] := aValue;
-end;
-
-
-{ TV_Detalles_Facturas_ComisionBusinessProcessorRules }
-constructor TV_Detalles_Facturas_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TV_Detalles_Facturas_ComisionBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_EMPRESA];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_EMPRESA];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_EMPRESA] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_AGENTE];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_AGENTE];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_AGENTE] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionAGENTE];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionAGENTE];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetAGENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionAGENTE] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_FACTURA];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_FACTURA];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_FACTURA] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_COMISION_LIQUIDADA] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionFECHA];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionFECHA];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionFECHA] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionREFERENCIA];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionREFERENCIA];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionREFERENCIA] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetSITUACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionSITUACION];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldSITUACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionSITUACION];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionSITUACION] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_CLIENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_CLIENTE];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_CLIENTE];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_CLIENTE] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetCLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionCLIENTE];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldCLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionCLIENTE];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionCLIENTE] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_PROVEEDOR];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionID_PROVEEDOR];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionID_PROVEEDOR] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetPROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionPROVEEDOR];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldPROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionPROVEEDOR];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionPROVEEDOR] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetCOMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionCOMISION];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldCOMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionCOMISION];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionCOMISION] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONABLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONABLEValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISIONABLE] := aValue;
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetIMPORTE_COMISIONValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISION];
-end;
-
-function TV_Detalles_Facturas_ComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISION];
-end;
-
-procedure TV_Detalles_Facturas_ComisionBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_V_Detalles_Facturas_ComisionIMPORTE_COMISION] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_Facturas_ComisionDelta, TFacturas_ComisionBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
+ RegisterBusinessProcessorRules(RID_Vendedores_ComisionDelta, TVendedores_ComisionBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ComisionesDelta, TComisionesBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_Comisiones_RefreshDelta, TComisiones_RefreshBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_V_Detalles_Facturas_ComisionDelta, TV_Detalles_Facturas_ComisionBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Comisiones/Model/schReportClient_Intf.pas b/Source/Modulos/Comisiones/Model/schReportClient_Intf.pas
deleted file mode 100644
index d01d71f8..00000000
--- a/Source/Modulos/Comisiones/Model/schReportClient_Intf.pas
+++ /dev/null
@@ -1,622 +0,0 @@
-unit schReportClient_Intf;
-
-interface
-
-uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
-
-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_InformeComisiones = '{1FE7EF1F-1A5F-49F0-884E-059EA3E9AEDB}';
-
- { Data table names }
- nme_InformeComisiones = 'InformeComisiones';
-
- { InformeComisiones fields }
- fld_InformeComisionesFECHA_COMISION = 'FECHA_COMISION';
- fld_InformeComisionesREFERENCIA_COMISION = 'REFERENCIA_COMISION';
- fld_InformeComisionesDESCRIPCION = 'DESCRIPCION';
- fld_InformeComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_InformeComisionesID_EMPRESA = 'ID_EMPRESA';
- fld_InformeComisionesNIF_CIF_EMPRESA = 'NIF_CIF_EMPRESA';
- fld_InformeComisionesRAZON_SOCIAL = 'RAZON_SOCIAL';
- fld_InformeComisionesCALLE_EMPRESA = 'CALLE_EMPRESA';
- fld_InformeComisionesPOBLACION_EMPRESA = 'POBLACION_EMPRESA';
- fld_InformeComisionesPROVINCIA_EMPRESA = 'PROVINCIA_EMPRESA';
- fld_InformeComisionesCODIGO_POSTAL_EMPRESA = 'CODIGO_POSTAL_EMPRESA';
- fld_InformeComisionesTELEFONO_1 = 'TELEFONO_1';
- fld_InformeComisionesFAX = 'FAX';
- fld_InformeComisionesMOVIL_1 = 'MOVIL_1';
- fld_InformeComisionesEMAIL_1 = 'EMAIL_1';
- fld_InformeComisionesPAGINA_WEB = 'PAGINA_WEB';
- fld_InformeComisionesREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
- fld_InformeComisionesID_AGENTE = 'ID_AGENTE';
- fld_InformeComisionesAGENTE = 'AGENTE';
- fld_InformeComisionesID_FACTURA = 'ID_FACTURA';
- fld_InformeComisionesID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
- fld_InformeComisionesFECHA = 'FECHA';
- fld_InformeComisionesREFERENCIA = 'REFERENCIA';
- fld_InformeComisionesSITUACION = 'SITUACION';
- fld_InformeComisionesID_CLIENTE = 'ID_CLIENTE';
- fld_InformeComisionesCLIENTE = 'CLIENTE';
- fld_InformeComisionesID_PROVEEDOR = 'ID_PROVEEDOR';
- fld_InformeComisionesPROVEEDOR = 'PROVEEDOR';
- fld_InformeComisionesCOMISION = 'COMISION';
- fld_InformeComisionesIMPORTE_COMISIONABLE = 'IMPORTE_COMISIONABLE';
- fld_InformeComisionesIMPORTE_COMISION = 'IMPORTE_COMISION';
-
- { InformeComisiones field indexes }
- idx_InformeComisionesFECHA_COMISION = 0;
- idx_InformeComisionesREFERENCIA_COMISION = 1;
- idx_InformeComisionesDESCRIPCION = 2;
- idx_InformeComisionesIMPORTE_TOTAL = 3;
- idx_InformeComisionesID_EMPRESA = 4;
- idx_InformeComisionesNIF_CIF_EMPRESA = 5;
- idx_InformeComisionesRAZON_SOCIAL = 6;
- idx_InformeComisionesCALLE_EMPRESA = 7;
- idx_InformeComisionesPOBLACION_EMPRESA = 8;
- idx_InformeComisionesPROVINCIA_EMPRESA = 9;
- idx_InformeComisionesCODIGO_POSTAL_EMPRESA = 10;
- idx_InformeComisionesTELEFONO_1 = 11;
- idx_InformeComisionesFAX = 12;
- idx_InformeComisionesMOVIL_1 = 13;
- idx_InformeComisionesEMAIL_1 = 14;
- idx_InformeComisionesPAGINA_WEB = 15;
- idx_InformeComisionesREGISTRO_MERCANTIL = 16;
- idx_InformeComisionesID_AGENTE = 17;
- idx_InformeComisionesAGENTE = 18;
- idx_InformeComisionesID_FACTURA = 19;
- idx_InformeComisionesID_COMISION_LIQUIDADA = 20;
- idx_InformeComisionesFECHA = 21;
- idx_InformeComisionesREFERENCIA = 22;
- idx_InformeComisionesSITUACION = 23;
- idx_InformeComisionesID_CLIENTE = 24;
- idx_InformeComisionesCLIENTE = 25;
- idx_InformeComisionesID_PROVEEDOR = 26;
- idx_InformeComisionesPROVEEDOR = 27;
- idx_InformeComisionesCOMISION = 28;
- idx_InformeComisionesIMPORTE_COMISIONABLE = 29;
- idx_InformeComisionesIMPORTE_COMISION = 30;
-
-type
- { IInformeComisiones }
- IInformeComisiones = interface(IDAStronglyTypedDataTable)
- ['{267AC63D-9C18-4E68-8E59-55511F3F7AAD}']
- { Property getters and setters }
- function GetFECHA_COMISIONValue: DateTime;
- procedure SetFECHA_COMISIONValue(const aValue: DateTime);
- function GetREFERENCIA_COMISIONValue: String;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String);
- function GetDESCRIPCIONValue: String;
- procedure SetDESCRIPCIONValue(const aValue: String);
- function GetIMPORTE_TOTALValue: Float;
- procedure SetIMPORTE_TOTALValue(const aValue: Float);
- function GetID_EMPRESAValue: Integer;
- procedure SetID_EMPRESAValue(const aValue: Integer);
- function GetNIF_CIF_EMPRESAValue: String;
- procedure SetNIF_CIF_EMPRESAValue(const aValue: String);
- function GetRAZON_SOCIALValue: String;
- procedure SetRAZON_SOCIALValue(const aValue: String);
- function GetCALLE_EMPRESAValue: String;
- procedure SetCALLE_EMPRESAValue(const aValue: String);
- function GetPOBLACION_EMPRESAValue: String;
- procedure SetPOBLACION_EMPRESAValue(const aValue: String);
- function GetPROVINCIA_EMPRESAValue: String;
- procedure SetPROVINCIA_EMPRESAValue(const aValue: String);
- function GetCODIGO_POSTAL_EMPRESAValue: String;
- procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
- function GetTELEFONO_1Value: String;
- procedure SetTELEFONO_1Value(const aValue: String);
- function GetFAXValue: String;
- procedure SetFAXValue(const aValue: String);
- function GetMOVIL_1Value: String;
- procedure SetMOVIL_1Value(const aValue: String);
- function GetEMAIL_1Value: String;
- procedure SetEMAIL_1Value(const aValue: String);
- function GetPAGINA_WEBValue: String;
- procedure SetPAGINA_WEBValue(const aValue: String);
- function GetREGISTRO_MERCANTILValue: String;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String);
- function GetID_AGENTEValue: Integer;
- procedure SetID_AGENTEValue(const aValue: Integer);
- function GetAGENTEValue: String;
- procedure SetAGENTEValue(const aValue: String);
- function GetID_FACTURAValue: Integer;
- procedure SetID_FACTURAValue(const aValue: Integer);
- function GetID_COMISION_LIQUIDADAValue: Integer;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
- function GetFECHAValue: DateTime;
- procedure SetFECHAValue(const aValue: DateTime);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetSITUACIONValue: String;
- procedure SetSITUACIONValue(const aValue: String);
- function GetID_CLIENTEValue: Integer;
- procedure SetID_CLIENTEValue(const aValue: Integer);
- function GetCLIENTEValue: String;
- procedure SetCLIENTEValue(const aValue: String);
- function GetID_PROVEEDORValue: Integer;
- procedure SetID_PROVEEDORValue(const aValue: Integer);
- function GetPROVEEDORValue: String;
- procedure SetPROVEEDORValue(const aValue: String);
- function GetCOMISIONValue: Float;
- procedure SetCOMISIONValue(const aValue: Float);
- function GetIMPORTE_COMISIONABLEValue: Float;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float);
- function GetIMPORTE_COMISIONValue: Float;
- procedure SetIMPORTE_COMISIONValue(const aValue: Float);
-
-
- { Properties }
- property FECHA_COMISION: DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
- property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property NIF_CIF_EMPRESA: String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
- property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property CALLE_EMPRESA: String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
- property POBLACION_EMPRESA: String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
- property PROVINCIA_EMPRESA: String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
- property CODIGO_POSTAL_EMPRESA: String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
- property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property FAX: String read GetFAXValue write SetFAXValue;
- property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
- property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
- property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
- property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
- end;
-
- { TInformeComisionesDataTableRules }
- TInformeComisionesDataTableRules = class(TIntfObjectDADataTableRules, IInformeComisiones)
- private
- protected
- { Property getters and setters }
- function GetFECHA_COMISIONValue: DateTime; virtual;
- procedure SetFECHA_COMISIONValue(const aValue: DateTime); virtual;
- function GetREFERENCIA_COMISIONValue: String; virtual;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
- function GetDESCRIPCIONValue: String; virtual;
- procedure SetDESCRIPCIONValue(const aValue: String); virtual;
- function GetIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetNIF_CIF_EMPRESAValue: String; virtual;
- procedure SetNIF_CIF_EMPRESAValue(const aValue: String); virtual;
- function GetRAZON_SOCIALValue: String; virtual;
- procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
- function GetCALLE_EMPRESAValue: String; virtual;
- procedure SetCALLE_EMPRESAValue(const aValue: String); virtual;
- function GetPOBLACION_EMPRESAValue: String; virtual;
- procedure SetPOBLACION_EMPRESAValue(const aValue: String); virtual;
- function GetPROVINCIA_EMPRESAValue: String; virtual;
- procedure SetPROVINCIA_EMPRESAValue(const aValue: String); virtual;
- function GetCODIGO_POSTAL_EMPRESAValue: String; virtual;
- procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String); virtual;
- function GetTELEFONO_1Value: String; virtual;
- procedure SetTELEFONO_1Value(const aValue: String); virtual;
- function GetFAXValue: String; virtual;
- procedure SetFAXValue(const aValue: String); virtual;
- function GetMOVIL_1Value: String; virtual;
- procedure SetMOVIL_1Value(const aValue: String); virtual;
- function GetEMAIL_1Value: String; virtual;
- procedure SetEMAIL_1Value(const aValue: String); virtual;
- function GetPAGINA_WEBValue: String; virtual;
- procedure SetPAGINA_WEBValue(const aValue: String); virtual;
- function GetREGISTRO_MERCANTILValue: String; virtual;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetSITUACIONValue: String; virtual;
- procedure SetSITUACIONValue(const aValue: String); virtual;
- function GetID_CLIENTEValue: Integer; virtual;
- procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Float; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONValue: Float; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
-
- { Properties }
- property FECHA_COMISION: DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
- property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property NIF_CIF_EMPRESA: String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
- property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property CALLE_EMPRESA: String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
- property POBLACION_EMPRESA: String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
- property PROVINCIA_EMPRESA: String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
- property CODIGO_POSTAL_EMPRESA: String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
- property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property FAX: String read GetFAXValue write SetFAXValue;
- property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
- property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
- property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
- property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property CLIENTE: String read GetCLIENTEValue write SetCLIENTEValue;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
- property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
- property IMPORTE_COMISIONABLE: Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION: Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
-implementation
-
-uses Variants;
-
-{ TInformeComisionesDataTableRules }
-constructor TInformeComisionesDataTableRules.Create(aDataTable: TDADataTable);
-begin
- inherited;
-end;
-
-destructor TInformeComisionesDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-function TInformeComisionesDataTableRules.GetFECHA_COMISIONValue: DateTime;
-begin
- result := DataTable.Fields[idx_InformeComisionesFECHA_COMISION].AsDateTime;
-end;
-
-procedure TInformeComisionesDataTableRules.SetFECHA_COMISIONValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_InformeComisionesFECHA_COMISION].AsDateTime := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetREFERENCIA_COMISIONValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesREFERENCIA_COMISION].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetREFERENCIA_COMISIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesREFERENCIA_COMISION].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetDESCRIPCIONValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesDESCRIPCION].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesDESCRIPCION].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetIMPORTE_TOTALValue: Float;
-begin
- result := DataTable.Fields[idx_InformeComisionesIMPORTE_TOTAL].AsFloat;
-end;
-
-procedure TInformeComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
-begin
- DataTable.Fields[idx_InformeComisionesIMPORTE_TOTAL].AsFloat := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_EMPRESAValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_EMPRESA].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_EMPRESA].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetNIF_CIF_EMPRESAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesNIF_CIF_EMPRESA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetNIF_CIF_EMPRESAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesNIF_CIF_EMPRESA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetRAZON_SOCIALValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesRAZON_SOCIAL].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetRAZON_SOCIALValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesRAZON_SOCIAL].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetCALLE_EMPRESAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesCALLE_EMPRESA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetCALLE_EMPRESAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesCALLE_EMPRESA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetPOBLACION_EMPRESAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesPOBLACION_EMPRESA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetPOBLACION_EMPRESAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesPOBLACION_EMPRESA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetPROVINCIA_EMPRESAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesPROVINCIA_EMPRESA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetPROVINCIA_EMPRESAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesPROVINCIA_EMPRESA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetCODIGO_POSTAL_EMPRESAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesCODIGO_POSTAL_EMPRESA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesCODIGO_POSTAL_EMPRESA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetTELEFONO_1Value: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesTELEFONO_1].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetTELEFONO_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesTELEFONO_1].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetFAXValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesFAX].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetFAXValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesFAX].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetMOVIL_1Value: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesMOVIL_1].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetMOVIL_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesMOVIL_1].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetEMAIL_1Value: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesEMAIL_1].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetEMAIL_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesEMAIL_1].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetPAGINA_WEBValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesPAGINA_WEB].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetPAGINA_WEBValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesPAGINA_WEB].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetREGISTRO_MERCANTILValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesREGISTRO_MERCANTIL].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetREGISTRO_MERCANTILValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesREGISTRO_MERCANTIL].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_AGENTEValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_AGENTE].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_AGENTE].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetAGENTEValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesAGENTE].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetAGENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesAGENTE].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_FACTURAValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_FACTURA].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_FACTURA].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_COMISION_LIQUIDADA].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_COMISION_LIQUIDADA].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetFECHAValue: DateTime;
-begin
- result := DataTable.Fields[idx_InformeComisionesFECHA].AsDateTime;
-end;
-
-procedure TInformeComisionesDataTableRules.SetFECHAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_InformeComisionesFECHA].AsDateTime := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesREFERENCIA].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesREFERENCIA].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetSITUACIONValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesSITUACION].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetSITUACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesSITUACION].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_CLIENTEValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_CLIENTE].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_CLIENTE].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetCLIENTEValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesCLIENTE].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetCLIENTEValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesCLIENTE].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetID_PROVEEDORValue: Integer;
-begin
- result := DataTable.Fields[idx_InformeComisionesID_PROVEEDOR].AsInteger;
-end;
-
-procedure TInformeComisionesDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_InformeComisionesID_PROVEEDOR].AsInteger := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetPROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_InformeComisionesPROVEEDOR].AsString;
-end;
-
-procedure TInformeComisionesDataTableRules.SetPROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_InformeComisionesPROVEEDOR].AsString := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetCOMISIONValue: Float;
-begin
- result := DataTable.Fields[idx_InformeComisionesCOMISION].AsFloat;
-end;
-
-procedure TInformeComisionesDataTableRules.SetCOMISIONValue(const aValue: Float);
-begin
- DataTable.Fields[idx_InformeComisionesCOMISION].AsFloat := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetIMPORTE_COMISIONABLEValue: Float;
-begin
- result := DataTable.Fields[idx_InformeComisionesIMPORTE_COMISIONABLE].AsFloat;
-end;
-
-procedure TInformeComisionesDataTableRules.SetIMPORTE_COMISIONABLEValue(const aValue: Float);
-begin
- DataTable.Fields[idx_InformeComisionesIMPORTE_COMISIONABLE].AsFloat := aValue;
-end;
-
-function TInformeComisionesDataTableRules.GetIMPORTE_COMISIONValue: Float;
-begin
- result := DataTable.Fields[idx_InformeComisionesIMPORTE_COMISION].AsFloat;
-end;
-
-procedure TInformeComisionesDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Float);
-begin
- DataTable.Fields[idx_InformeComisionesIMPORTE_COMISION].AsFloat := aValue;
-end;
-
-
-initialization
- RegisterDataTableRules(RID_InformeComisiones, TInformeComisionesDataTableRules);
-
-end.
diff --git a/Source/Modulos/Comisiones/Model/schReportServer_Intf.pas b/Source/Modulos/Comisiones/Model/schReportServer_Intf.pas
deleted file mode 100644
index b36c10a7..00000000
--- a/Source/Modulos/Comisiones/Model/schReportServer_Intf.pas
+++ /dev/null
@@ -1,739 +0,0 @@
-unit schReportServer_Intf;
-
-interface
-
-uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schReportClient_Intf;
-
-const
- { Delta rules ids
- Feel free to change them to something more human readable
- but make sure they are unique in the context of your application }
- RID_InformeComisionesDelta = '{624C756A-A5EA-4038-A339-5B0C8E25A076}';
-
-type
- { IInformeComisionesDelta }
- IInformeComisionesDelta = interface(IInformeComisiones)
- ['{624C756A-A5EA-4038-A339-5B0C8E25A076}']
- { Property getters and setters }
- function GetOldFECHA_COMISIONValue : DateTime;
- function GetOldREFERENCIA_COMISIONValue : String;
- function GetOldDESCRIPCIONValue : String;
- function GetOldIMPORTE_TOTALValue : Float;
- function GetOldID_EMPRESAValue : Integer;
- function GetOldNIF_CIF_EMPRESAValue : String;
- function GetOldRAZON_SOCIALValue : String;
- function GetOldCALLE_EMPRESAValue : String;
- function GetOldPOBLACION_EMPRESAValue : String;
- function GetOldPROVINCIA_EMPRESAValue : String;
- function GetOldCODIGO_POSTAL_EMPRESAValue : String;
- function GetOldTELEFONO_1Value : String;
- function GetOldFAXValue : String;
- function GetOldMOVIL_1Value : String;
- function GetOldEMAIL_1Value : String;
- function GetOldPAGINA_WEBValue : String;
- function GetOldREGISTRO_MERCANTILValue : String;
- function GetOldID_AGENTEValue : Integer;
- function GetOldAGENTEValue : String;
- function GetOldID_FACTURAValue : Integer;
- function GetOldID_COMISION_LIQUIDADAValue : Integer;
- function GetOldFECHAValue : DateTime;
- function GetOldREFERENCIAValue : String;
- function GetOldSITUACIONValue : String;
- function GetOldID_CLIENTEValue : Integer;
- function GetOldCLIENTEValue : String;
- function GetOldID_PROVEEDORValue : Integer;
- function GetOldPROVEEDORValue : String;
- function GetOldCOMISIONValue : Float;
- function GetOldIMPORTE_COMISIONABLEValue : Float;
- function GetOldIMPORTE_COMISIONValue : Float;
-
- { Properties }
- property OldFECHA_COMISION : DateTime read GetOldFECHA_COMISIONValue;
- property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
- property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldNIF_CIF_EMPRESA : String read GetOldNIF_CIF_EMPRESAValue;
- property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
- property OldCALLE_EMPRESA : String read GetOldCALLE_EMPRESAValue;
- property OldPOBLACION_EMPRESA : String read GetOldPOBLACION_EMPRESAValue;
- property OldPROVINCIA_EMPRESA : String read GetOldPROVINCIA_EMPRESAValue;
- property OldCODIGO_POSTAL_EMPRESA : String read GetOldCODIGO_POSTAL_EMPRESAValue;
- property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
- property OldFAX : String read GetOldFAXValue;
- property OldMOVIL_1 : String read GetOldMOVIL_1Value;
- property OldEMAIL_1 : String read GetOldEMAIL_1Value;
- property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldSITUACION : String read GetOldSITUACIONValue;
- property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property OldIMPORTE_COMISIONABLE : Float read GetOldIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
- end;
-
- { TInformeComisionesBusinessProcessorRules }
- TInformeComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeComisiones, IInformeComisionesDelta)
- private
- protected
- { Property getters and setters }
- function GetFECHA_COMISIONValue: DateTime; virtual;
- function GetOldFECHA_COMISIONValue: DateTime; virtual;
- procedure SetFECHA_COMISIONValue(const aValue: DateTime); virtual;
- function GetREFERENCIA_COMISIONValue: String; virtual;
- function GetOldREFERENCIA_COMISIONValue: String; virtual;
- procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
- function GetDESCRIPCIONValue: String; virtual;
- function GetOldDESCRIPCIONValue: String; virtual;
- procedure SetDESCRIPCIONValue(const aValue: String); virtual;
- function GetIMPORTE_TOTALValue: Float; virtual;
- function GetOldIMPORTE_TOTALValue: Float; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- function GetOldID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetNIF_CIF_EMPRESAValue: String; virtual;
- function GetOldNIF_CIF_EMPRESAValue: String; virtual;
- procedure SetNIF_CIF_EMPRESAValue(const aValue: String); virtual;
- function GetRAZON_SOCIALValue: String; virtual;
- function GetOldRAZON_SOCIALValue: String; virtual;
- procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
- function GetCALLE_EMPRESAValue: String; virtual;
- function GetOldCALLE_EMPRESAValue: String; virtual;
- procedure SetCALLE_EMPRESAValue(const aValue: String); virtual;
- function GetPOBLACION_EMPRESAValue: String; virtual;
- function GetOldPOBLACION_EMPRESAValue: String; virtual;
- procedure SetPOBLACION_EMPRESAValue(const aValue: String); virtual;
- function GetPROVINCIA_EMPRESAValue: String; virtual;
- function GetOldPROVINCIA_EMPRESAValue: String; virtual;
- procedure SetPROVINCIA_EMPRESAValue(const aValue: String); virtual;
- function GetCODIGO_POSTAL_EMPRESAValue: String; virtual;
- function GetOldCODIGO_POSTAL_EMPRESAValue: String; virtual;
- procedure SetCODIGO_POSTAL_EMPRESAValue(const aValue: String); virtual;
- function GetTELEFONO_1Value: String; virtual;
- function GetOldTELEFONO_1Value: String; virtual;
- procedure SetTELEFONO_1Value(const aValue: String); virtual;
- function GetFAXValue: String; virtual;
- function GetOldFAXValue: String; virtual;
- procedure SetFAXValue(const aValue: String); virtual;
- function GetMOVIL_1Value: String; virtual;
- function GetOldMOVIL_1Value: String; virtual;
- procedure SetMOVIL_1Value(const aValue: String); virtual;
- function GetEMAIL_1Value: String; virtual;
- function GetOldEMAIL_1Value: String; virtual;
- procedure SetEMAIL_1Value(const aValue: String); virtual;
- function GetPAGINA_WEBValue: String; virtual;
- function GetOldPAGINA_WEBValue: String; virtual;
- procedure SetPAGINA_WEBValue(const aValue: String); virtual;
- function GetREGISTRO_MERCANTILValue: String; virtual;
- function GetOldREGISTRO_MERCANTILValue: String; virtual;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
- function GetID_AGENTEValue: Integer; virtual;
- function GetOldID_AGENTEValue: Integer; virtual;
- procedure SetID_AGENTEValue(const aValue: Integer); virtual;
- function GetAGENTEValue: String; virtual;
- function GetOldAGENTEValue: String; virtual;
- procedure SetAGENTEValue(const aValue: String); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- function GetOldID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
- function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual;
- procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
- function GetFECHAValue: DateTime; virtual;
- function GetOldFECHAValue: DateTime; virtual;
- procedure SetFECHAValue(const aValue: DateTime); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetSITUACIONValue: String; virtual;
- function GetOldSITUACIONValue: String; virtual;
- procedure SetSITUACIONValue(const aValue: String); virtual;
- function GetID_CLIENTEValue: Integer; virtual;
- function GetOldID_CLIENTEValue: Integer; virtual;
- procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
- function GetCLIENTEValue: String; virtual;
- function GetOldCLIENTEValue: String; virtual;
- procedure SetCLIENTEValue(const aValue: String); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- function GetOldID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetPROVEEDORValue: String; virtual;
- function GetOldPROVEEDORValue: String; virtual;
- procedure SetPROVEEDORValue(const aValue: String); virtual;
- function GetCOMISIONValue: Float; virtual;
- function GetOldCOMISIONValue: Float; virtual;
- procedure SetCOMISIONValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONABLEValue: Float; virtual;
- function GetOldIMPORTE_COMISIONABLEValue: Float; virtual;
- procedure SetIMPORTE_COMISIONABLEValue(const aValue: Float); virtual;
- function GetIMPORTE_COMISIONValue: Float; virtual;
- function GetOldIMPORTE_COMISIONValue: Float; virtual;
- procedure SetIMPORTE_COMISIONValue(const aValue: Float); virtual;
-
- { Properties }
- property FECHA_COMISION : DateTime read GetFECHA_COMISIONValue write SetFECHA_COMISIONValue;
- property OldFECHA_COMISION : DateTime read GetOldFECHA_COMISIONValue;
- property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
- property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
- property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
- property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
- property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
- property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property NIF_CIF_EMPRESA : String read GetNIF_CIF_EMPRESAValue write SetNIF_CIF_EMPRESAValue;
- property OldNIF_CIF_EMPRESA : String read GetOldNIF_CIF_EMPRESAValue;
- property RAZON_SOCIAL : String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
- property CALLE_EMPRESA : String read GetCALLE_EMPRESAValue write SetCALLE_EMPRESAValue;
- property OldCALLE_EMPRESA : String read GetOldCALLE_EMPRESAValue;
- property POBLACION_EMPRESA : String read GetPOBLACION_EMPRESAValue write SetPOBLACION_EMPRESAValue;
- property OldPOBLACION_EMPRESA : String read GetOldPOBLACION_EMPRESAValue;
- property PROVINCIA_EMPRESA : String read GetPROVINCIA_EMPRESAValue write SetPROVINCIA_EMPRESAValue;
- property OldPROVINCIA_EMPRESA : String read GetOldPROVINCIA_EMPRESAValue;
- property CODIGO_POSTAL_EMPRESA : String read GetCODIGO_POSTAL_EMPRESAValue write SetCODIGO_POSTAL_EMPRESAValue;
- property OldCODIGO_POSTAL_EMPRESA : String read GetOldCODIGO_POSTAL_EMPRESAValue;
- property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
- property FAX : String read GetFAXValue write SetFAXValue;
- property OldFAX : String read GetOldFAXValue;
- property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
- property OldMOVIL_1 : String read GetOldMOVIL_1Value;
- property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
- property OldEMAIL_1 : String read GetOldEMAIL_1Value;
- property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property REGISTRO_MERCANTIL : String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
- property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
- property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
- property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
- property OldAGENTE : String read GetOldAGENTEValue;
- property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
- property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
- property FECHA : DateTime read GetFECHAValue write SetFECHAValue;
- property OldFECHA : DateTime read GetOldFECHAValue;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
- property OldSITUACION : String read GetOldSITUACIONValue;
- property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
- property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
- property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue;
- property OldCLIENTE : String read GetOldCLIENTEValue;
- property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
- property OldPROVEEDOR : String read GetOldPROVEEDORValue;
- property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
- property OldCOMISION : Float read GetOldCOMISIONValue;
- property IMPORTE_COMISIONABLE : Float read GetIMPORTE_COMISIONABLEValue write SetIMPORTE_COMISIONABLEValue;
- property OldIMPORTE_COMISIONABLE : Float read GetOldIMPORTE_COMISIONABLEValue;
- property IMPORTE_COMISION : Float read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
- property OldIMPORTE_COMISION : Float read GetOldIMPORTE_COMISIONValue;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
-implementation
-
-uses
- Variants, uROBinaryHelpers;
-
-{ TInformeComisionesBusinessProcessorRules }
-constructor TInformeComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TInformeComisionesBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetFECHA_COMISIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA_COMISION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldFECHA_COMISIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFECHA_COMISION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetFECHA_COMISIONValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA_COMISION] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA_COMISION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREFERENCIA_COMISION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA_COMISION] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetDESCRIPCIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesDESCRIPCION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesDESCRIPCION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesDESCRIPCION] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_TOTAL];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_TOTAL];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_TOTAL] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetNIF_CIF_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesNIF_CIF_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldNIF_CIF_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesNIF_CIF_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetNIF_CIF_EMPRESAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesNIF_CIF_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetRAZON_SOCIALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesRAZON_SOCIAL];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldRAZON_SOCIALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesRAZON_SOCIAL];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetRAZON_SOCIALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesRAZON_SOCIAL] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetCALLE_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCALLE_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldCALLE_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCALLE_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetCALLE_EMPRESAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCALLE_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetPOBLACION_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPOBLACION_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldPOBLACION_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPOBLACION_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetPOBLACION_EMPRESAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPOBLACION_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetPROVINCIA_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVINCIA_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldPROVINCIA_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPROVINCIA_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetPROVINCIA_EMPRESAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVINCIA_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetCODIGO_POSTAL_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldCODIGO_POSTAL_EMPRESAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetCODIGO_POSTAL_EMPRESAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCODIGO_POSTAL_EMPRESA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetTELEFONO_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesTELEFONO_1];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesTELEFONO_1];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesTELEFONO_1] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetFAXValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFAX];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldFAXValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFAX];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetFAXValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFAX] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetMOVIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesMOVIL_1];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldMOVIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesMOVIL_1];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesMOVIL_1] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetEMAIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesEMAIL_1];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldEMAIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesEMAIL_1];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesEMAIL_1] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetPAGINA_WEBValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPAGINA_WEB];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPAGINA_WEB];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPAGINA_WEB] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetREGISTRO_MERCANTILValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREGISTRO_MERCANTIL];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldREGISTRO_MERCANTILValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREGISTRO_MERCANTIL];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetREGISTRO_MERCANTILValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREGISTRO_MERCANTIL] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_AGENTE];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_AGENTE];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_AGENTE] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesAGENTE];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldAGENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesAGENTE];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetAGENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesAGENTE] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_FACTURA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_FACTURA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_FACTURA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_COMISION_LIQUIDADA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldFECHAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesFECHA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesFECHA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesREFERENCIA];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesREFERENCIA] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetSITUACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesSITUACION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldSITUACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesSITUACION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesSITUACION] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_CLIENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_CLIENTE];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_CLIENTE];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_CLIENTE] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetCLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCLIENTE];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldCLIENTEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCLIENTE];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetCLIENTEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCLIENTE] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_PROVEEDOR];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesID_PROVEEDOR];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesID_PROVEEDOR] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetPROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVEEDOR];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldPROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesPROVEEDOR];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesPROVEEDOR] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetCOMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCOMISION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldCOMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesCOMISION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesCOMISION] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetIMPORTE_COMISIONABLEValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_COMISIONABLEValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_COMISIONABLEValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISIONABLE] := aValue;
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetIMPORTE_COMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISION];
-end;
-
-function TInformeComisionesBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeComisionesIMPORTE_COMISION];
-end;
-
-procedure TInformeComisionesBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_InformeComisionesIMPORTE_COMISION] := aValue;
-end;
-
-
-initialization
- RegisterBusinessProcessorRules(RID_InformeComisionesDelta, TInformeComisionesBusinessProcessorRules);
-
-end.
diff --git a/Source/Modulos/Comisiones/Model/serverlog.txt b/Source/Modulos/Comisiones/Model/serverlog.txt
deleted file mode 100644
index e69de29b..00000000
diff --git a/Source/Modulos/Comisiones/Model/uBizComisiones.pas b/Source/Modulos/Comisiones/Model/uBizComisiones.pas
index fb493ef7..631e0d73 100644
--- a/Source/Modulos/Comisiones/Model/uBizComisiones.pas
+++ b/Source/Modulos/Comisiones/Model/uBizComisiones.pas
@@ -8,36 +8,53 @@ uses
const
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
BIZ_CLIENT_FACTURAS_COMISION = 'Client.FacturasComisiones';
+ BIZ_CLIENT_VENDEDORES_COMISION = 'Client.VendedoresComisiones';
type
IBizFacturasComision = interface(IFacturas_Comision)
- ['{5CFE7994-1947-4745-8BC1-8E02345D02FD}']
+ ['{C2AB9B3F-BCAA-4F99-BDEC-105365BFB364}']
+ end;
+
+ IBizVendedoresComision = interface(IVendedores_Comision)
+ ['{8F74E0CA-5988-4ABD-8F99-31915C1C1B97}']
end;
IBizComisiones = interface(IComisiones)
- ['{18C4B891-F7DB-460B-B031-F2064E3C242E}']
+ ['{40E2637E-C002-42AB-8DD5-7A438490C23D}']
function GetFacturas: IBizFacturasComision;
procedure SetFacturas(const Value: IBizFacturasComision);
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
+ function GetVendedores: IBizVendedoresComision;
+ procedure SetVendedores(const Value: IBizVendedoresComision);
+ property Vendedores: IBizVendedoresComision read GetVendedores write SetVendedores;
function EsNuevo : Boolean;
end;
TBizFacturasComision = class(TFacturas_ComisionDataTableRules, IBizFacturasComision)
end;
+ TBizVendedoresComision = class(TVendedores_ComisionDataTableRules, IBizVendedoresComision)
+ end;
+
TBizComisiones = class(TComisionesDataTableRules, IBizComisiones, ISeleccionable)
protected
FFacturas: IBizFacturasComision;
FFacturasLink : TDADataSource;
+ FVendedores: IBizVendedoresComision;
+ FVendedoresLink : TDADataSource;
FSeleccionableInterface : ISeleccionable;
function GetFacturas: IBizFacturasComision;
procedure SetFacturas(const Value: IBizFacturasComision);
+ function GetVendedores: IBizVendedoresComision;
+ procedure SetVendedores(const Value: IBizVendedoresComision);
+
procedure OnNewRecord(Sender: TDADataTable); override;
public
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
write FSeleccionableInterface implements ISeleccionable;
property Facturas: IBizFacturasComision read GetFacturas write SetFacturas;
+ property Vendedores: IBizVendedoresComision read GetVendedores write SetVendedores;
procedure IniciarValoresComisionLiquidacionNuevo; virtual;
function EsNuevo : Boolean;
@@ -47,7 +64,7 @@ type
implementation
-uses SysUtils, uDataTableUtils, uDataModuleUsuarios;
+uses SysUtils, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App;
{ TBizComisiones }
@@ -58,6 +75,10 @@ begin
FFacturasLink := TDADataSource.Create(NIL);
FFacturasLink.DataTable := aDataTable;
+ FVendedores := Nil;
+ FVendedoresLink := TDADataSource.Create(NIL);
+ FVendedoresLink.DataTable := aDataTable;
+
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end;
@@ -65,6 +86,8 @@ destructor TBizComisiones.Destroy;
begin
FFacturas := Nil;
FFacturasLink.Free;
+ FVendedores := Nil;
+ FVendedoresLink.Free;
FSeleccionableInterface := NIL;
inherited;
end;
@@ -79,18 +102,23 @@ begin
Result := FFacturas;
end;
+function TBizComisiones.GetVendedores: IBizVendedoresComision;
+begin
+ Result := FVendedores;
+end;
+
procedure TBizComisiones.IniciarValoresComisionLiquidacionNuevo;
begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
- FECHA := Date;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
+ FECHA := Date;
DESCRIPCION := 'Liquidación de comisiones del mes de ' + UpperCase(FormatDateTime('mmmm', date));
end;
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
begin
inherited;
- ID := GetRecNo; // -1, -2, -3...
+// ID := GetRecNo; // -1, -2, -3...
IniciarValoresComisionLiquidacionNuevo;
end;
@@ -104,8 +132,19 @@ begin
FFacturas.DataTable.Active := True;
end;
+procedure TBizComisiones.SetVendedores(const Value: IBizVendedoresComision);
+begin
+ FVendedores := Value;
+ EnlazarMaestroDetalle(FVendedoresLink, FVendedores);
+
+ if Assigned(FVendedores) then
+ if not FVendedores.DataTable.Active then
+ FVendedores.DataTable.Active := True;
+end;
+
initialization
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComisiones);
RegisterDataTableRules(BIZ_CLIENT_FACTURAS_COMISION, TBizFacturasComision);
+ RegisterDataTableRules(BIZ_CLIENT_VENDEDORES_COMISION, TBizVendedoresComision);
end.
diff --git a/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
index 97670418..82b55828 100644
--- a/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
+++ b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
@@ -8,68 +8,96 @@ uses
const
BIZ_SERVER_COMISIONES = 'Server.Comisiones';
- REF_COMISIONES = 'REF_COMISIONES';
type
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
+ private
+ FReferenciaAutomatica : Boolean;
+ function DarReferencia : String;
+ function IncrementarReferencia : Boolean;
+
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
+ procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation
uses
Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer,
- schComisionesClient_Intf,;
+ schComisionesClient_Intf, srvReferencias_Impl;
+
+const
+ REF_COMISIONES = 'REF_COMISIONES';
{ TBizComisionesServer }
+procedure TBizComisionesServer.AfterProcessChange(Sender: TDABusinessProcessor;
+ aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
+begin
+ // No hay que quitar los deltas para que los datos del contacto se
+ // mantengan por si alguna tabla detalle lo necesita
+ // (por ejemplo, DireccionesContacto)
+ CanRemoveFromDelta := False;
+
+ // Actualizamos el contador de referencias.
+ case aChange.ChangeType of
+ ctInsert, ctUpdate: begin
+ if FReferenciaAutomatica then
+ begin
+ IncrementarReferencia;
+ FReferenciaAutomatica := False;
+ end;
+ end;
+ end;
+end;
+
procedure TBizComisionesServer.BeforeProcessDelta(Sender: TDABusinessProcessor;
const aDelta: IDADelta);
-var
- ASchema : TDASchema;
- ACurrentConn : IDAConnection;
- dsData: IDADataset;
- Empresa : Variant;
-
begin
- inherited;
+ FReferenciaAutomatica := False;
+
case Sender.CurrentChange.ChangeType of
ctInsert, ctUpdate: begin
//Si la referencia no ha sido asignada le asignamos una nosotros
- if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]))
- or (VarToStr(Sender.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]) = '') then
+ if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
begin
- ASchema := BusinessProcessor.Schema;
- ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
-
- try
- //Siempre va a estar rellena
- Empresa := Sender.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA];
-
- dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_COMISIONES, Empresa]);
- except
- RaiseError('No existe la tabla REFERENCIAS');
- end;
-
- dsData.Active := True;
-
- if dsData.IsEmpty then
- RaiseError('NO HAY REFERENCIA ' + REF_COMISIONES + ' DECLARADA EN TABLA REFERENCIAS');
-
- REFERENCIA := dsData.FieldByName('VALOR').AsString;
-
- try
- ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_COMISIONES, DarReferenciaSiguiente(REFERENCIA), Empresa]);
- except
- RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
- end;
-
+ FReferenciaAutomatica := True;
+ REFERENCIA := DarReferencia;
end;
end;
end;
end;
+function TBizComisionesServer.DarReferencia: String;
+var
+ ATipo : String;
+begin
+ ATipo := REF_COMISIONES;
+
+ with TsrvReferencias.Create(NIL) do
+ try
+ Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
+ finally
+ Free;
+ end;
+end;
+
+function TBizComisionesServer.IncrementarReferencia: Boolean;
+var
+ ATipo : String;
+begin
+ ATipo := REF_COMISIONES;
+
+ with TsrvReferencias.Create(NIL) do
+ try
+ Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA)
+ finally
+ Free;
+ end;
+end;
+
+
initialization
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
diff --git a/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk b/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
index 5e303281..6e276346 100644
--- a/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
+++ b/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
@@ -25,13 +25,6 @@ package Comisiones_plugin;
{$IMPLICITBUILD OFF}
requires
- rtl,
- vcl,
- PngComponentsD10,
- PNG_D10,
- vclactnband,
- vclx,
- PluginSDK_D10R,
Comisiones_view,
Comisiones_controller;
diff --git a/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj b/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
new file mode 100644
index 00000000..75742b93
--- /dev/null
+++ b/Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
@@ -0,0 +1,580 @@
+
+
+ {82e36812-58c4-491b-b463-6b951e95da51}
+ Comisiones_plugin.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Comisiones_plugin.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+
+ False
+ True
+ False
+
+
+ False
+ False
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ Comisiones_plugin.dpk
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
index 190ded51..f1f4987d 100644
--- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
+++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
@@ -2,35 +2,80 @@ object RptComisiones: TRptComisiones
OldCreateOrder = True
OnCreate = DataModuleCreate
Height = 405
- Width = 447
+ Width = 630
object DADataCabecera: TDADataSource
+ DataSet = tbl_Comisiones.Dataset
DataTable = tbl_Comisiones
Left = 264
Top = 72
end
- object tbl_Comisiones: TDACDSDataTable
+ object tbl_Comisiones: TDAMemDataTable
RemoteUpdatesOptions = []
- Fields = <>
- Params = <>
+ 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 = '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
- SchemaCall.Params = <>
- DataRequestCall.Params = <>
- DataUpdateCall.Params = <>
- ScriptCall.Params = <>
- ReadOnly = False
+ LocalSchema = schReport
+ LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'InformeComisiones'
IndexDefs = <>
Left = 264
Top = 128
end
- object DABINAdapter: TDABINAdapter
- Left = 48
- Top = 80
- end
object frxRichObject1: TfrxRichObject
Left = 48
Top = 296
@@ -64,1024 +109,559 @@ object RptComisiones: TRptComisiones
DataDictionary = DataDictionary
Datasets = <
item
- Params = <>
+ Params = <
+ item
+ Name = 'ID'
+ Value = ''
+ ParamType = daptInput
+ end>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'COMISIONES_LIQ_VENDEDORES'
+ Name = 'IBX'
SQL =
- 'select'#10' COMISIONES_LIQUIDADAS.FECHA AS FECHA_COMISION,'#10' ' +
- ' COMISIONES_LIQUIDADAS.REFERENCIA AS REFERENCIA_COMISION,'#10' ' +
- ' COMISIONES_LIQUIDADAS.DESCRIPCION,'#10' COMISIONES_LIQUIDA' +
- 'DAS.IMPORTE_TOTAL,'#10#10' V_AGENTES_COMISIONES_DET_FAC.ID_EMPRE' +
- 'SA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, COALESCE(EMPRESAS.RAZON' +
- '_SOCIAL, EMPRESAS.NOMBRE) as RAZON_SOCIAL,'#10' EMPRESAS.CALLE' +
- ' as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
- ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
- 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESA' +
- 'S.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGIN' +
- 'A_WEB, EMPRESAS.REGISTRO_MERCANTIL,'#10#10' V_AGENTES_COMISIONES' +
- '_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' V_AGENTE' +
- 'S_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COMISIONES_DET' +
- '_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISIONES_DET_FAC.' +
- 'FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA,'#10' V_' +
- 'AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTES_COMISIONE' +
- 'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10#10' ' +
- ' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPORTE_CO' +
- 'MISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_COMI' +
- 'SION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET_FAC'#10'LE' +
- 'FT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.ID = V_A' +
- 'GENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOIN EMPRE' +
- 'SAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA'#10'LEF' +
- 'T JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES_COMISI' +
- 'ONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTA' +
- 'CTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT JOIN CO' +
- 'NTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISIONES_DET_' +
- 'FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_COMISIO' +
- 'N_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,' +
- ' 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26'#10 +
- 'ORDER BY 1'
+ 'SELECT '#10' ID, ID_COMISION, ID_VENDEDOR, NOMBRE, COMISION, IMPO' +
+ 'RTE_TOTAL'#10' FROM'#10' COMISIONES_LIQ_VENDEDORES'#10' WHERE ID_COMISI' +
+ 'ON = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
+ DatasetField = 'ID'
+ TableField = 'ID'
end
item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
+ DatasetField = 'ID_COMISION'
+ TableField = 'ID_COMISION'
end
item
- DatasetField = 'ID_CLIENTE'
- TableField = 'ID_CLIENTE'
+ DatasetField = 'ID_VENDEDOR'
+ TableField = 'ID_VENDEDOR'
end
item
- DatasetField = 'REFERENCIA_COMISION'
- TableField = 'REFERENCIA_COMISION'
- end
- item
- DatasetField = 'DESCRIPCION'
- TableField = 'DESCRIPCION'
- end
- item
- DatasetField = 'ID_AGENTE'
- TableField = 'ID_AGENTE'
- end
- item
- DatasetField = 'AGENTE'
- TableField = 'AGENTE'
- end
- item
- DatasetField = 'ID_FACTURA'
- TableField = 'ID_FACTURA'
- end
- item
- DatasetField = 'ID_COMISION_LIQUIDADA'
- TableField = 'ID_COMISION_LIQUIDADA'
- end
- item
- DatasetField = 'FECHA'
- TableField = 'FECHA'
- end
- item
- DatasetField = 'SITUACION'
- TableField = 'SITUACION'
- end
- item
- DatasetField = 'CLIENTE'
- TableField = 'CLIENTE'
- end
- item
- DatasetField = 'IMPORTE_COMISIONABLE'
- TableField = 'IMPORTE_COMISIONABLE'
- end
- item
- DatasetField = 'IMPORTE_COMISION'
- TableField = 'IMPORTE_COMISION'
- end
- item
- DatasetField = 'FECHA_COMISION'
- TableField = 'FECHA_COMISION'
- end
- item
- DatasetField = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'NIF_CIF_EMPRESA'
- TableField = 'NIF_CIF_EMPRESA'
- end
- item
- DatasetField = 'RAZON_SOCIAL'
- TableField = 'RAZON_SOCIAL'
- end
- item
- DatasetField = 'CALLE_EMPRESA'
- TableField = 'CALLE_EMPRESA'
- end
- item
- DatasetField = 'POBLACION_EMPRESA'
- TableField = 'POBLACION_EMPRESA'
- end
- item
- DatasetField = 'PROVINCIA_EMPRESA'
- TableField = 'PROVINCIA_EMPRESA'
- end
- item
- DatasetField = 'CODIGO_POSTAL_EMPRESA'
- TableField = 'CODIGO_POSTAL_EMPRESA'
- end
- item
- DatasetField = 'TELEFONO_1'
- TableField = 'TELEFONO_1'
- end
- item
- DatasetField = 'FAX'
- TableField = 'FAX'
- end
- item
- DatasetField = 'MOVIL_1'
- TableField = 'MOVIL_1'
- end
- item
- DatasetField = 'EMAIL_1'
- TableField = 'EMAIL_1'
- end
- item
- DatasetField = 'PAGINA_WEB'
- TableField = 'PAGINA_WEB'
- end
- item
- DatasetField = 'REGISTRO_MERCANTIL'
- TableField = 'REGISTRO_MERCANTIL'
- end>
- end>
- Name = 'InformeComisiones'
- Fields = <
- item
- Name = 'FECHA_COMISION'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REFERENCIA_COMISION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'NIF_CIF_EMPRESA'
- DataType = datString
- Size = 15
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'RAZON_SOCIAL'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CALLE_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'POBLACION_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'PROVINCIA_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CODIGO_POSTAL_EMPRESA'
- DataType = datString
- Size = 10
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'TELEFONO_1'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'MOVIL_1'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'EMAIL_1'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'PAGINA_WEB'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REGISTRO_MERCANTIL'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'SITUACION'
- DataType = datString
- Size = 19
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CLIENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_COMISIONABLE'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_COMISION'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
- end
- item
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
- SQL =
- 'select'#10' COMISIONES_LIQUIDADAS.FECHA AS FECHA_COMISION,'#10' ' +
- ' COMISIONES_LIQUIDADAS.REFERENCIA AS REFERENCIA_COMISION,'#10' ' +
- ' COMISIONES_LIQUIDADAS.DESCRIPCION,'#10' COMISIONES_LIQUIDA' +
- 'DAS.IMPORTE_TOTAL,'#10#10' V_AGENTES_COMISIONES_DET_FAC.ID_EMPRE' +
- 'SA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, COALESCE(EMPRESAS.RAZON' +
- '_SOCIAL, EMPRESAS.NOMBRE) as RAZON_SOCIAL,'#10' EMPRESAS.CALLE' +
- ' as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' +
- ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' +
- 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESA' +
- 'S.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGIN' +
- 'A_WEB, EMPRESAS.REGISTRO_MERCANTIL,'#10#10' V_AGENTES_COMISIONES' +
- '_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' V_AGENTE' +
- 'S_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COMISIONES_DET' +
- '_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISIONES_DET_FAC.' +
- 'FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA,'#10' V_' +
- 'AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTES_COMISIONE' +
- 'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10' ' +
- ' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' CONTACTOS3.N' +
- 'OMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_FAC.COMISION' +
- ','#10#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMP' +
- 'ORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPOR' +
- 'TE_COMISION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET' +
- '_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.I' +
- 'D = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOI' +
- 'N EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPR' +
- 'ESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES' +
- '_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON' +
- ' (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT ' +
- 'JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISION' +
- 'ES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_' +
- 'COMISION_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8,' +
- ' 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, ' +
- '25, 26, 27, 28, 29'#10'ORDER BY 1'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
- end
- item
- DatasetField = 'ID_CLIENTE'
- TableField = 'ID_CLIENTE'
- end
- item
- DatasetField = 'REFERENCIA_COMISION'
- TableField = 'REFERENCIA_COMISION'
- end
- item
- DatasetField = 'DESCRIPCION'
- TableField = 'DESCRIPCION'
- end
- item
- DatasetField = 'ID_AGENTE'
- TableField = 'ID_AGENTE'
- end
- item
- DatasetField = 'AGENTE'
- TableField = 'AGENTE'
- end
- item
- DatasetField = 'ID_FACTURA'
- TableField = 'ID_FACTURA'
- end
- item
- DatasetField = 'ID_COMISION_LIQUIDADA'
- TableField = 'ID_COMISION_LIQUIDADA'
- end
- item
- DatasetField = 'FECHA'
- TableField = 'FECHA'
- end
- item
- DatasetField = 'SITUACION'
- TableField = 'SITUACION'
- end
- item
- DatasetField = 'CLIENTE'
- TableField = 'CLIENTE'
- end
- item
- DatasetField = 'ID_PROVEEDOR'
- TableField = 'ID_PROVEEDOR'
- end
- item
- DatasetField = 'PROVEEDOR'
- TableField = 'PROVEEDOR'
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
end
item
DatasetField = 'COMISION'
TableField = 'COMISION'
end
item
- DatasetField = 'IMPORTE_COMISIONABLE'
- TableField = 'IMPORTE_COMISIONABLE'
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end>
+ end>
+ Name = 'InformeComisionesVendedores'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_COMISION'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end>
+ end
+ 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_CLIENTE, '#10' NOM' +
+ 'BRE_COMERCIAL_CLIENTE, NIF_CIF, NOMBRE, CALLE, POBLACION, '#10' P' +
+ 'ROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION, '#10' US' +
+ 'UARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA, '#10' IM' +
+ 'PORTE_NETO, IMPORTE_PORTE, ID_AGENTE, REFERENCIA_COMISION, '#10' ' +
+ 'IGNORAR_CONTABILIDAD, ID_TIENDA, TIENDA, ID_SUBCUENTA, '#10' SUBC' +
+ 'UENTA'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMISION_LIQUIDAD' +
+ 'A = :ID'#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
end
item
- DatasetField = 'IMPORTE_COMISION'
- TableField = 'IMPORTE_COMISION'
+ DatasetField = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
end
item
- DatasetField = 'FECHA_COMISION'
- TableField = 'FECHA_COMISION'
+ 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 = 'NIF_CIF_EMPRESA'
- TableField = 'NIF_CIF_EMPRESA'
+ DatasetField = 'OBSERVACIONES'
+ TableField = 'OBSERVACIONES'
end
item
- DatasetField = 'RAZON_SOCIAL'
- TableField = 'RAZON_SOCIAL'
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
end
item
- DatasetField = 'CALLE_EMPRESA'
- TableField = 'CALLE_EMPRESA'
+ DatasetField = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
end
item
- DatasetField = 'POBLACION_EMPRESA'
- TableField = 'POBLACION_EMPRESA'
+ DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
+ TableField = 'NOMBRE_COMERCIAL_CLIENTE'
end
item
- DatasetField = 'PROVINCIA_EMPRESA'
- TableField = 'PROVINCIA_EMPRESA'
+ DatasetField = 'NIF_CIF'
+ TableField = 'NIF_CIF'
end
item
- DatasetField = 'CODIGO_POSTAL_EMPRESA'
- TableField = 'CODIGO_POSTAL_EMPRESA'
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
end
item
- DatasetField = 'TELEFONO_1'
- TableField = 'TELEFONO_1'
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
end
item
- DatasetField = 'FAX'
- TableField = 'FAX'
+ DatasetField = 'POBLACION'
+ TableField = 'POBLACION'
end
item
- DatasetField = 'MOVIL_1'
- TableField = 'MOVIL_1'
+ DatasetField = 'PROVINCIA'
+ TableField = 'PROVINCIA'
end
item
- DatasetField = 'EMAIL_1'
- TableField = 'EMAIL_1'
+ DatasetField = 'CODIGO_POSTAL'
+ TableField = 'CODIGO_POSTAL'
end
item
- DatasetField = 'PAGINA_WEB'
- TableField = 'PAGINA_WEB'
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
end
item
- DatasetField = 'REGISTRO_MERCANTIL'
- TableField = 'REGISTRO_MERCANTIL'
+ 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 = 'REFERENCIA_COMISION'
+ TableField = 'REFERENCIA_COMISION'
+ end
+ item
+ DatasetField = 'IGNORAR_CONTABILIDAD'
+ TableField = 'IGNORAR_CONTABILIDAD'
+ end
+ item
+ DatasetField = 'ID_TIENDA'
+ TableField = 'ID_TIENDA'
+ end
+ item
+ DatasetField = 'TIENDA'
+ TableField = 'TIENDA'
+ end
+ item
+ DatasetField = 'ID_SUBCUENTA'
+ TableField = 'ID_SUBCUENTA'
+ end
+ item
+ DatasetField = 'SUBCUENTA'
+ TableField = 'SUBCUENTA'
end>
end>
- Name = 'InformeComisionesDesglosado'
+ Name = 'InformeComisionesFacturas'
Fields = <
item
- Name = 'FECHA_COMISION'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REFERENCIA_COMISION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ Name = 'ID'
+ DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'NIF_CIF_EMPRESA'
- DataType = datString
- Size = 15
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'RAZON_SOCIAL'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CALLE_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'POBLACION_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'PROVINCIA_EMPRESA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CODIGO_POSTAL_EMPRESA'
- DataType = datString
- Size = 10
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'TELEFONO_1'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'MOVIL_1'
- DataType = datString
- Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'EMAIL_1'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'PAGINA_WEB'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REGISTRO_MERCANTIL'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ 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
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ 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
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'CLIENTE'
+ Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'ID_PROVEEDOR'
+ Name = 'NOMBRE_COMERCIAL_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ 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
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'PROVEEDOR'
+ 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 = 'REFERENCIA_COMISION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'COMISION'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
end
item
- Name = 'IMPORTE_COMISIONABLE'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ Name = 'ID_TIENDA'
+ DataType = datInteger
end
item
- Name = 'IMPORTE_COMISION'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ Name = 'TIENDA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
+ end>
+ end
+ item
+ Params = <
+ item
+ Name = 'ID'
+ Value = ''
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ TargetTable = 'COMISIONES_LIQUIDADAS'
+ SQL =
+ 'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, ID_AGENTE, DESCRIPCION, ' +
+ #10' FECHA, IMPORTE_TOTAL, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
+ 'USUARIO'#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE 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>
+ 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 = '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>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
+ JoinDataTables = <>
+ UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
+ Version = 0
Left = 48
Top = 16
end
@@ -1090,408 +670,215 @@ object RptComisiones: TRptComisiones
item
Name = 'FacturasCliente_ID'
DataType = datAutoInc
- BlobType = dabtUnknown
Required = True
- DisplayWidth = 0
DisplayLabel = 'ID'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_ID_CONTRATO'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'ID_CONTRATO'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Fecha de las factura'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Vencimiento'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_SITUACION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Forma de pago'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_NIF_CIF'
DataType = datString
Size = 15
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'NIF/CIF'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'C'#243'd. postal'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Observaciones'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_NOMBRE'
DataType = datString
Size = 100
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Cliente'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_CALLE'
DataType = datString
Size = 150
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_PROVINCIA'
DataType = datString
Size = 30
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Provincia'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_POBLACION'
DataType = datString
Size = 150
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_IVA'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'IVA'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_USUARIO'
DataType = datString
Size = 100
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'USUARIO'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_REFERENCIA'
DataType = datString
Size = 20
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Referencia'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Dto.'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc
- BlobType = dabtUnknown
Required = True
- DisplayWidth = 0
DisplayLabel = 'ID'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'ID_FACTURA'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 10
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Tipo detalle'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Concepto'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = #191'Visible?'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Posici'#243'n'
- Alignment = taLeftJustify
end
item
Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Cantidad'
- Alignment = taLeftJustify
end>
Left = 46
- Top = 158
+ Top = 150
end
object frxReport: TfrxReport
- Version = '3.23.7'
+ Version = '4.3'
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'
- ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.LastChange = 39266.688905347220000000
- ReportOptions.VersionBuild = '1'
- ReportOptions.VersionMajor = '12'
- ReportOptions.VersionMinor = '13'
- ReportOptions.VersionRelease = '1'
+ PrintOptions.PrintOnSheet = 0
+ ReportOptions.CreateDate = 39589.794825115700000000
+ ReportOptions.LastChange = 39589.813437314820000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
- 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
- 'var'
- ' Cadena: String;'
+ ''
'begin'
- ' DatosEmpresa.Lines.Clear;'
- ' DatosEmpresa.Lines.Add();'
- ' DatosEmpresa.Lines.Add();'
''
- ' Cadena := '#39#39';'
- ' if ( <> '#39#39') then'
- ' Cadena := '#39'TLF: '#39' + ;'
- ' if ( <> '#39#39') then'
- ' Cadena := Cadena + '#39' FAX: '#39' + ;'
- ' DatosEmpresa.Lines.Add(Cadena);'
- ''
- ' Cadena := '#39#39';'
- ' if ( <> '#39#39') then'
- ' Cadena := ;'
- ' if ( <> '#39#39') then'
-
- ' Cadena := Cadena + '#39' '#39' + ;'
- ' if ( <> '#39#39') then'
-
- ' Cadena := Cadena + '#39' - '#39' + ;'
- ' DatosEmpresa.Lines.Add(Cadena);'
- 'end;'
- ''
- 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
- 'begin'
- ' if ( <> '#39#39') then'
- ' Memo31.Visible := True'
- ' else'
- ' Memo31.Visible := False;'
- 'end;'
- ''
- 'BEGIN'
- ''
- 'END.')
+ 'end.')
ShowProgress = False
StoreInDFM = False
Left = 169
Top = 16
- Datasets = <
- item
- DataSet = frxDBCabecera
- DataSetName = 'frxDBCabecera'
- end>
- Variables = <
- item
- Name = ' Fechas'
- Value = Null
- end
- item
- Name = 'FechaIni'
- Value = Null
- end
- item
- Name = 'FechaFin'
- Value = Null
- end>
- Style = <
- item
- Name = 'Concepto normal'
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Tahoma'
- Font.Style = []
- end
- item
- Name = 'Concepto subtotal'
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- end
- item
- Name = 'Cabecera de columna'
- Color = 15790320
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
- end
- item
- Name = 'Concepto titulo'
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- end>
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
@@ -1500,4 +887,280 @@ object RptComisiones: TRptComisiones
Left = 264
Top = 16
end
+ object Bin2DataStreamer: TDABin2DataStreamer
+ Left = 48
+ Top = 80
+ end
+ object frxDBDetalles1: TfrxDBDataset
+ UserName = 'frxDBDetalles1'
+ CloseDataSource = False
+ DataSource = DADataDetalles1
+ Left = 352
+ Top = 16
+ end
+ object DADataDetalles1: 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_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'NOMBRE_COMERCIAL_CLIENTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ 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 = 'REFERENCIA_COMISION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'ID_TIENDA'
+ DataType = datInteger
+ end
+ item
+ Name = 'TIENDA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ Value = ''
+ ParamType = daptInput
+ end>
+ MasterMappingMode = mmDataRequest
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = Bin2DataStreamer
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'InformeComisionesFacturas'
+ IndexDefs = <>
+ Left = 352
+ Top = 128
+ end
+ object frxDBDetalles2: TfrxDBDataset
+ UserName = 'frxDBDetalles2'
+ CloseDataSource = False
+ DataSource = DADataDetalles2
+ Left = 456
+ Top = 16
+ end
+ object DADataDetalles2: TDADataSource
+ DataSet = tbl_Vendedores.Dataset
+ DataTable = tbl_Vendedores
+ Left = 456
+ Top = 72
+ end
+ object tbl_Vendedores: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ Required = True
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_COMISION'
+ DataType = datInteger
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'COMISION'
+ DataType = datFloat
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end>
+ Params = <
+ item
+ Name = 'ID'
+ Value = ''
+ ParamType = daptInput
+ end>
+ MasterMappingMode = mmDataRequest
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = Bin2DataStreamer
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'InformeComisionesVendedores'
+ IndexDefs = <>
+ Left = 456
+ Top = 128
+ end
end
diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
index b7b7a587..d7a09889 100644
--- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
+++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
@@ -7,13 +7,12 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
- uDAInterfaces;
+ uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
type
TRptComisiones = class(TDataModule)
DADataCabecera: TDADataSource;
- tbl_Comisiones: TDACDSDataTable;
- DABINAdapter: TDABINAdapter;
+ tbl_Comisiones: TDAMemDataTable;
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
@@ -22,14 +21,23 @@ type
frxGradientObject1: TfrxGradientObject;
frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset;
+ frxReport: TfrxReport;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ frxDBDetalles1: TfrxDBDataset;
+ DADataDetalles1: TDADataSource;
+ tbl_Facturas: TDAMemDataTable;
+ frxDBDetalles2: TfrxDBDataset;
+ DADataDetalles2: TDADataSource;
+ tbl_Vendedores: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
- frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
+ //Genera cada uno de los albaranes a imprimir
+ procedure GenerarComision(const ID: integer); overload;
public
- function GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
+ function GenerarComision(const AComisionID : String): Binary; overload;
end;
implementation
@@ -37,16 +45,10 @@ implementation
{$R *.dfm}
uses
- uDataModuleServer, schReportClient_Intf;
+ uDataModuleServer;
const
- rptComision = 'InfComisiones.fr3';
- rptComisionDesglosado = 'InfComisionesDesglosado.fr3';
-
- { Dataset names for schReport }
- ds_InformeComisiones = 'InformeComisiones';
- ds_InformeComisionesDesglosado = 'InformeComisionesDesglosado';
-
+ rptComision = 'InfComision.fr3';
{ TRptComision }
@@ -57,66 +59,39 @@ begin
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
-function TRptComisiones.GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
-var
- dsMaster: IDADataset;
- AStream: TMemoryStream;
+procedure TRptComisiones.GenerarComision(const ID: integer);
+begin
+ tbl_Comisiones.ParamByName('ID').AsInteger := ID;
+ tbl_Facturas.ParamByName('ID').AsInteger := ID;
+ tbl_Vendedores.ParamByName('ID').AsInteger := ID;
+ tbl_Comisiones.Active := True;
+ tbl_Facturas.Active := True;
+ tbl_Vendedores.Active := True;
+
+ frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
+ frxReport.PrepareReport(False);
+end;
+
+function TRptComisiones.GenerarComision(const AComisionID: String): Binary;
+var
+ ID_Comisiones: TStringList;
+ i: Integer;
+
begin
- AStream := TMemoryStream.Create;
Result := Binary.Create;
FConnection.BeginTransaction;
+
try
- if DesglosadoProv then
- dsMaster := schReport.NewDataset(FConnection, ds_InformeComisionesDesglosado,[], [], False)
- else
- dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False);
+ ID_Comisiones := TStringList.Create;
+ ID_Comisiones.CommaText := AComisionID;
- with dsMaster.Where do
- begin
- if not VarIsNull(AComisionID) then
- begin
- AddOperator(opAND);
- OpenBraket;
- AddText('V_AGENTES_COMISIONES_DET_FAC.' + fld_InformeComisionesID_COMISION_LIQUIDADA + ' = ' + VarToStr(AComisionID));
- CloseBraket;
- end;
+ //Vamos generando todos y cada uno de los albaranes recibidos
+ for i := 0 to ID_Comisiones.Count - 1 do
+ GenerarComision(StrToInt(ID_Comisiones.Strings[i]));
- if not VarIsNull(AAgenteID) then
- begin
- AddOperator(opAND);
- OpenBraket;
- AddText('V_AGENTES_COMISIONES_DET_FAC.' + fld_InformeComisionesID_AGENTE + ' = ' + VarToStr(AAgenteID));
- CloseBraket;
- end;
-
- if (Length(FechaIni) > 0)
- and (Length(FechaFin) > 0) then
- begin
- AddOperator(opAND);
- OpenBraket;
-
- AddText('COMISIONES_LIQUIDADAS.FECHA between ''' + StringReplace(FechaIni, '/', '.', [rfReplaceAll]) + ''' and ''' + StringReplace(FechaFin, '/', '.', [rfReplaceAll]) + '''');
- CloseBraket;
- end;
- end;
-
- dsMaster.Open;
-
- AStream.Clear;
- DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
- DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE);
-
- if DesglosadoProv then
- frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True)
- else
- frxReport.LoadFromFile(DarRutaInformes + rptComision, True);
-
- frxReport.Variables['FechaIni'] := QuotedStr(FechaIni);
- frxReport.Variables['FechaFin'] := QuotedStr(FechaFin);
- frxReport.PrepareReport;
frxReport.PreviewPages.SaveToStream(Result);
+
finally
- AStream.Free;
FConnection.RollbackTransaction;
end;
end;
diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
index f1e6de1b..fd8c7d8f 100644
--- a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
+++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
@@ -3,11 +3,11 @@ object srvComisiones: TsrvComisiones
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
- AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schComisiones
- ServiceAdapter = DABINAdapter
- OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
+ ServiceDataStreamer = Bin2DataStreamer
+ ExportedDataTables = <>
+ BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 249
Width = 343
object Diagrams: TDADiagrams
@@ -19,221 +19,276 @@ object srvComisiones: TsrvComisiones
Fields = <
item
Name = 'Comisiones_ID'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'DESCRIPCION'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'FECHA'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_USUARIO'
- DataType = datString
- Size = 20
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'USUARIO'
- Alignment = taLeftJustify
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
+ DisplayLabel = 'Id'
+ ServerAutoRefresh = True
end
item
Name = 'Comisiones_ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_EMPRESA'
- Alignment = taLeftJustify
+ DisplayLabel = 'IdEmpresa'
end
item
Name = 'Comisiones_REFERENCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- ServerAutoRefresh = True
+ DisplayLabel = 'Referencia'
end
item
- Name = 'Facturas_Comision_ID_CLIENTE'
+ Name = 'Comisiones_ID_AGENTE'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
+ DisplayLabel = 'IdAgente'
end
item
- Name = 'Facturas_Comision_CLIENTE'
+ Name = 'Comisiones_DESCRIPCION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
+ DisplayLabel = 'Descripci'#243'n'
end
item
- Name = 'Facturas_Comision_IMPORTE_COMISIONABLE'
- DataType = datCurrency
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taRightJustify
- end
- item
- Name = 'Facturas_Comision_IMPORTE_COMISION'
- DataType = datCurrency
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taRightJustify
- end
- item
- Name = 'Comisiones_Detalles_ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_EMPRESA'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_AGENTE'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_AGENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'AGENTE'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_ID_FACTURA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_FACTURA'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_FECHA'
+ Name = 'Comisiones_FECHA'
DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'FECHA'
- Alignment = taLeftJustify
+ DisplayLabel = 'Fecha'
end
item
- Name = 'Comisiones_Detalles_REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'REFERENCIA'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_SITUACION'
- DataType = datString
- Size = 19
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'SITUACION'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_ID_PROVEEDOR'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_PROVEEDOR'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_PROVEEDOR'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'PROVEEDOR'
- Alignment = taLeftJustify
- end
- item
- Name = 'Comisiones_Detalles_COMISION'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'COMISION'
- Alignment = taLeftJustify
- end
- item
- Name = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_COMISION_LIQUIDADA'
- Alignment = taLeftJustify
- end
- item
- Name = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
+ Name = 'Comisiones_IMPORTE_TOTAL'
DataType = datCurrency
- BlobType = dabtUnknown
- DisplayWidth = 0
+ DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
- Name = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
- DataType = datCurrency
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taRightJustify
+ Name = 'Comisiones_USUARIO'
+ DataType = datString
+ Size = 20
+ DisplayLabel = 'Usuario'
end
item
- Name = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_COMISION_LIQUIDADA'
- Alignment = taLeftJustify
+ Name = 'Comisiones_NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Nombre'
end
item
Name = 'Facturas_Comision_ID'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID'
- Alignment = taLeftJustify
end
item
- Name = 'V_Detalles_Facturas_Comision_ID'
+ Name = 'Facturas_Comision_ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID'
- Alignment = taLeftJustify
end
item
- Name = 'Facturas_Comision_ID_FACTURA'
+ Name = 'Facturas_Comision_REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ end
+ item
+ Name = 'Facturas_Comision_TIPO'
+ DataType = datString
+ Size = 1
+ end
+ item
+ Name = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'ID_FACTURA'
- Alignment = taLeftJustify
+ DisplayLabel = 'IdComision'
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'Facturas_Comision_FECHA_FACTURA'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha'
+ end
+ item
+ Name = 'Facturas_Comision_SITUACION'
+ DataType = datString
+ Size = 19
+ DisplayLabel = 'Situaci'#243'n'
+ end
+ item
+ Name = 'Facturas_Comision_BASE_IMPONIBLE'
+ DataType = datCurrency
+ DisplayLabel = 'Base imponible'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'Facturas_Comision_DESCUENTO'
+ DataType = datFloat
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_IVA'
+ DataType = datFloat
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_IVA'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_RE'
+ DataType = datFloat
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_RE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_TOTAL'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_OBSERVACIONES'
+ DataType = datMemo
+ end
+ item
+ Name = 'Facturas_Comision_ID_CLIENTE'
+ DataType = datInteger
+ DisplayLabel = 'IdCliente'
+ end
+ item
+ Name = 'Facturas_Comision_NOMBRE_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Nombre cliente'
+ end
+ item
+ Name = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Nombre comercial cliente'
+ end
+ item
+ Name = 'Facturas_Comision_NIF_CIF'
+ DataType = datString
+ Size = 15
+ end
+ item
+ Name = 'Facturas_Comision_NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Raz'#243'n social'
+ end
+ item
+ Name = 'Facturas_Comision_CALLE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Facturas_Comision_POBLACION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Facturas_Comision_PROVINCIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Facturas_Comision_CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ end
+ item
+ Name = 'Facturas_Comision_FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'Facturas_Comision_FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
+ item
+ Name = 'Facturas_Comision_USUARIO'
+ DataType = datString
+ Size = 30
+ end
+ item
+ Name = 'Facturas_Comision_ID_FORMA_PAGO'
+ DataType = datInteger
+ end
+ item
+ Name = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'Facturas_Comision_ID_TIPO_IVA'
+ DataType = datInteger
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_NETO'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_IMPORTE_PORTE'
+ DataType = datCurrency
+ end
+ item
+ Name = 'Facturas_Comision_ID_AGENTE'
+ DataType = datInteger
+ end
+ item
+ Name = 'Facturas_Comision_REFERENCIA_COMISION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
+ end
+ item
+ Name = 'Facturas_Comision_ID_TIENDA'
+ DataType = datInteger
+ end
+ item
+ Name = 'Facturas_Comision_TIENDA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Facturas_Comision_ID_SUBCUENTA'
+ DataType = datInteger
+ end
+ item
+ Name = 'Facturas_Comision_SUBCUENTA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'Comisiones_vendedores_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_VENDEDORES_ID'
+ DisplayLabel = 'Id'
+ end
+ item
+ Name = 'Comisiones_vendedores_ID_COMISION'
+ DataType = datInteger
+ DisplayLabel = 'IdComision'
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'Comisiones_vendedores_ID_VENDEDOR'
+ DataType = datInteger
+ DisplayLabel = 'IdVendedor'
+ end
+ item
+ Name = 'Comisiones_vendedores_NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Vendedor'
+ end
+ item
+ Name = 'Comisiones_vendedores_PORCENTAJE'
+ DataType = datFloat
+ DisplayLabel = 'Porcentaje'
+ Alignment = taRightJustify
+ end
+ item
+ Name = 'Comisiones_vendedores_IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe'
+ Alignment = taRightJustify
end>
Left = 150
Top = 22
@@ -244,303 +299,465 @@ object srvComisiones: TsrvComisiones
Diagrams = Diagrams
Datasets = <
item
- Params = <
- item
- Name = 'ID_COMISION'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
- SQL =
- 'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' +
- '_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' +
- ' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' +
- 'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' +
- 'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' +
- ','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' +
- 'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' +
- 'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' +
- 'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' +
- 'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' +
- 'AL)as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_' +
- 'FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMISI' +
- 'ONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = ' +
- 'V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONT' +
- 'ACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIEN' +
- 'TE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES' +
- '_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10'WHERE V_AGENTES_COMISIONES_DET' +
- '_FAC.ID_COMISION_LIQUIDADA = :ID_COMISION'#10'GROUP BY 1, 2, 3, 4, 5' +
- ', 6, 7, 8, 9, 10, 11, 12, 13'
- StatementType = stSQL
+ TargetTable = 'V_FACTURAS_CLIENTE'
+ StatementType = stAutoSQL
ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
- item
- DatasetField = 'ID_AGENTE'
- TableField = 'ID_AGENTE'
- end
- item
- DatasetField = 'AGENTE'
- TableField = 'AGENTE'
- end
- item
- DatasetField = 'FECHA'
- TableField = 'FECHA'
- end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
- DatasetField = 'SITUACION'
- TableField = 'SITUACION'
- end
- item
- DatasetField = 'ID_PROVEEDOR'
- TableField = 'ID_PROVEEDOR'
- end
- item
- DatasetField = 'PROVEEDOR'
- TableField = 'PROVEEDOR'
- end
- item
- DatasetField = 'COMISION'
- TableField = 'COMISION'
- end
- item
- DatasetField = 'ID_CLIENTE'
- TableField = 'ID_CLIENTE'
- end
- item
- DatasetField = 'CLIENTE'
- TableField = 'CLIENTE'
+ DatasetField = 'TIPO'
+ TableField = 'TIPO'
end
item
DatasetField = 'ID_COMISION_LIQUIDADA'
TableField = 'ID_COMISION_LIQUIDADA'
end
item
- DatasetField = 'IMPORTE_COMISIONABLE'
- TableField = 'IMPORTE_COMISIONABLE'
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
end
item
- DatasetField = 'IMPORTE_COMISION'
- TableField = 'IMPORTE_COMISION'
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
end
item
- DatasetField = 'ID_FACTURA'
- TableField = 'ID_FACTURA'
+ 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 = 'NOMBRE_CLIENTE'
+ TableField = 'NOMBRE_CLIENTE'
+ end
+ item
+ DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
+ TableField = 'NOMBRE_COMERCIAL_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 = 'REFERENCIA_COMISION'
+ TableField = 'REFERENCIA_COMISION'
+ end
+ item
+ DatasetField = 'IGNORAR_CONTABILIDAD'
+ TableField = 'IGNORAR_CONTABILIDAD'
+ end
+ item
+ DatasetField = 'ID_TIENDA'
+ TableField = 'ID_TIENDA'
+ end
+ item
+ DatasetField = 'TIENDA'
+ TableField = 'TIENDA'
+ end
+ item
+ DatasetField = 'ID_SUBCUENTA'
+ TableField = 'ID_SUBCUENTA'
+ end
+ item
+ DatasetField = 'SUBCUENTA'
+ TableField = 'SUBCUENTA'
end>
end>
Name = 'Facturas_Comision'
Fields = <
+ item
+ Name = 'ID'
+ DataType = datInteger
+ DictionaryEntry = 'Facturas_Comision_ID'
+ InPrimaryKey = True
+ end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_AGENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_FECHA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ DictionaryEntry = 'Facturas_Comision_TIPO'
+ end
+ item
+ Name = 'ID_COMISION_LIQUIDADA'
+ DataType = datInteger
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
+ end
+ item
+ Name = 'FECHA_FACTURA'
+ DataType = datDateTime
+ DictionaryEntry = 'Facturas_Comision_FECHA_FACTURA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_SITUACION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_SITUACION'
+ end
+ item
+ Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_BASE_IMPONIBLE'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DictionaryEntry = 'Facturas_Comision_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_DESCUENTO'
+ end
+ item
+ Name = 'IVA'
+ DataType = datFloat
+ DictionaryEntry = 'Facturas_Comision_IVA'
+ end
+ item
+ Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_IVA'
+ end
+ item
+ Name = 'RE'
+ DataType = datFloat
+ DictionaryEntry = 'Facturas_Comision_RE'
+ end
+ item
+ Name = 'IMPORTE_RE'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_RE'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ DictionaryEntry = 'Facturas_Comision_OBSERVACIONES'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
- BlobType = dabtUnknown
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'CLIENTE'
+ Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_CLIENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_NOMBRE_CLIENTE'
end
item
- Name = 'ID_PROVEEDOR'
+ Name = 'NOMBRE_COMERCIAL_CLIENTE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_NOMBRE_COMERCIAL_CLIENTE'
+ end
+ item
+ Name = 'NIF_CIF'
+ DataType = datString
+ Size = 15
+ DictionaryEntry = 'Facturas_Comision_NIF_CIF'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_NOMBRE'
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_CALLE'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_POBLACION'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_PROVINCIA'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DictionaryEntry = 'Facturas_Comision_CODIGO_POSTAL'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'Facturas_Comision_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'Facturas_Comision_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 30
+ DictionaryEntry = 'Facturas_Comision_USUARIO'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_ID_FORMA_PAGO'
end
item
- Name = 'PROVEEDOR'
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datSmallInt
+ DictionaryEntry = 'Facturas_Comision_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DictionaryEntry = 'Facturas_Comision_ID_TIPO_IVA'
+ end
+ item
+ Name = 'IMPORTE_NETO'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_NETO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DictionaryEntry = 'Facturas_Comision_IMPORTE_PORTE'
+ end
+ item
+ Name = 'ID_AGENTE'
+ DataType = datInteger
+ DictionaryEntry = 'Facturas_Comision_ID_AGENTE'
+ end
+ item
+ Name = 'REFERENCIA_COMISION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Facturas_Comision_REFERENCIA_COMISION'
+ end
+ item
+ Name = 'IGNORAR_CONTABILIDAD'
+ DataType = datSmallInt
+ DictionaryEntry = 'Facturas_Comision_IGNORAR_CONTABILIDAD'
+ end
+ item
+ Name = 'ID_TIENDA'
+ DataType = datInteger
+ DictionaryEntry = 'Facturas_Comision_ID_TIENDA'
+ end
+ item
+ Name = 'TIENDA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_TIENDA'
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ DictionaryEntry = 'Facturas_Comision_ID_SUBCUENTA'
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Facturas_Comision_SUBCUENTA'
+ end>
+ end
+ item
+ Params = <>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'COMISIONES_LIQ_VENDEDORES'
+ Name = 'IBX'
+ StatementType = stAutoSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_COMISION'
+ TableField = 'ID_COMISION'
+ end
+ item
+ DatasetField = 'ID_VENDEDOR'
+ TableField = 'ID_VENDEDOR'
+ end
+ item
+ DatasetField = 'NOMBRE'
+ TableField = 'NOMBRE'
+ end
+ item
+ DatasetField = 'COMISION'
+ TableField = 'COMISION'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end>
+ end>
+ Name = 'Vendedores_Comision'
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_VENDEDORES_ID'
+ DictionaryEntry = 'Comisiones_vendedores_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_COMISION'
+ DataType = datInteger
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Comisiones_vendedores_ID_COMISION'
+ end
+ item
+ Name = 'ID_VENDEDOR'
+ DataType = datInteger
+ DictionaryEntry = 'Comisiones_vendedores_ID_VENDEDOR'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Comisiones_vendedores_NOMBRE'
end
item
Name = 'COMISION'
DataType = datFloat
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_COMISION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
- Name = 'IMPORTE_COMISIONABLE'
+ Name = 'IMPORTE_TOTAL'
DataType = datCurrency
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_COMISION'
- DataType = datCurrency
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Comisiones_vendedores_IMPORTE_TOTAL'
end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
- end
- item
- Params = <
- item
- Name = 'CODIGO'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'EMPRESA'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- SQL =
- 'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' +
- 'ESA = :EMPRESA'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'VALOR'
- TableField = 'VALOR'
- end>
- end>
- Name = 'DarReferencia'
- Fields = <
- item
- Name = 'VALOR'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
@@ -548,20 +765,24 @@ object srvComisiones: TsrvComisiones
item
Connection = 'IBX'
TargetTable = 'COMISIONES_LIQUIDADAS'
- SQL =
- 'SELECT '#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_E' +
- 'MPRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDA' +
- 'DAS.ID_AGENTE,'#10' COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES' +
- '_LIQUIDADAS.FECHA,'#10' COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMI' +
- 'SIONES_LIQUIDADAS.USUARIO,'#10' CONTACTOS.NOMBRE'#10'FROM COMISIONES_' +
- 'LIQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQ' +
- 'UIDADAS.ID_AGENTE)'
- StatementType = stSQL
+ StatementType = stAutoSQL
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'
@@ -570,590 +791,92 @@ object srvComisiones: TsrvComisiones
DatasetField = 'FECHA'
TableField = 'FECHA'
end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- 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 = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
+ item
+ DatasetField = 'USUARIO'
+ TableField = 'USUARIO'
end>
end>
Name = 'Comisiones'
Fields = <
item
Name = 'ID'
- DataType = datInteger
- BlobType = dabtUnknown
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
DictionaryEntry = 'Comisiones_ID_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
DictionaryEntry = 'Comisiones_REFERENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'ID_AGENTE'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DictionaryEntry = 'Comisiones_ID_AGENTE'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
DictionaryEntry = 'Comisiones_DESCRIPCION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FECHA'
DataType = datDateTime
- BlobType = dabtUnknown
DictionaryEntry = 'Comisiones_FECHA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DataType = datCurrency
+ DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
- BlobType = dabtUnknown
DictionaryEntry = 'Comisiones_USUARIO'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
- end
- item
- Params = <
- item
- Name = 'ID'
- DataType = datInteger
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
- SQL =
- 'SELECT'#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EM' +
- 'PRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDAD' +
- 'AS.ID_AGENTE,'#10' COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_' +
- 'LIQUIDADAS.FECHA,'#10' COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMIS' +
- 'IONES_LIQUIDADAS.USUARIO,'#10' CONTACTOS.NOMBRE'#10'FROM COMISIONES_L' +
- 'IQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQU' +
- 'IDADAS.ID_AGENTE)'#10'WHERE COMISIONES_LIQUIDADAS.ID = :ID'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'DESCRIPCION'
- TableField = 'DESCRIPCION'
- end
- item
- DatasetField = 'FECHA'
- TableField = 'FECHA'
- end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- 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 = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end>
- end>
- Name = 'Comisiones_Refresh'
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_ID'
- InPrimaryKey = True
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_ID_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_REFERENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_DESCRIPCION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_FECHA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_USUARIO'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
- end
- item
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'V_AGENTES_COMISIONES_DET_FAC'
- SQL =
- 'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' +
- '_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' +
- ' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' +
- 'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' +
- 'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' +
- ','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' +
- 'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' +
- 'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' +
- 'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' +
- 'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' +
- 'AL) as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET' +
- '_FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMIS' +
- 'IONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID =' +
- ' V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CON' +
- 'TACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIE' +
- 'NTE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTE' +
- 'S_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7,' +
- ' 8, 9, 10, 11, 12, 13'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
- end
- item
- DatasetField = 'ID_AGENTE'
- TableField = 'ID_AGENTE'
- end
- item
- DatasetField = 'AGENTE'
- TableField = 'AGENTE'
- end
- item
- DatasetField = 'FECHA'
- TableField = 'FECHA'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'SITUACION'
- TableField = 'SITUACION'
- end
- item
- DatasetField = 'ID_PROVEEDOR'
- TableField = 'ID_PROVEEDOR'
- end
- item
- DatasetField = 'PROVEEDOR'
- TableField = 'PROVEEDOR'
- end
- item
- DatasetField = 'COMISION'
- TableField = 'COMISION'
- end
- item
- DatasetField = 'ID_CLIENTE'
- TableField = 'ID_CLIENTE'
- end
- item
- DatasetField = 'CLIENTE'
- TableField = 'CLIENTE'
- end
- item
- DatasetField = 'ID_COMISION_LIQUIDADA'
- TableField = 'ID_COMISION_LIQUIDADA'
- end
- item
- DatasetField = 'IMPORTE_COMISIONABLE'
- TableField = 'IMPORTE_COMISIONABLE'
- end
- item
- DatasetField = 'IMPORTE_COMISION'
- TableField = 'IMPORTE_COMISION'
- end
- item
- DatasetField = 'ID_FACTURA'
- TableField = 'ID_FACTURA'
- end>
- end>
- Name = 'V_Detalles_Facturas_Comision'
- Fields = <
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'AGENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_AGENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_FECHA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'SITUACION'
- DataType = datString
- Size = 19
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_SITUACION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CLIENTE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Facturas_Comision_CLIENTE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'ID_PROVEEDOR'
- DataType = datInteger
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'PROVEEDOR'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'COMISION'
- DataType = datFloat
- BlobType = dabtUnknown
- DictionaryEntry = 'Comisiones_Detalles_COMISION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_COMISIONABLE'
- DataType = datCurrency
- BlobType = dabtUnknown
- DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'IMPORTE_COMISION'
- DataType = datCurrency
- BlobType = dabtUnknown
- DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end>
- BusinessRulesClient.ScriptLanguage = rslPascalScript
- BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
+ JoinDataTables = <>
+ UnionDataTables = <>
Commands = <
- item
- Params = <
- item
- Name = 'VALOR'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptUnknown
- end
- item
- Name = 'CODIGO'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptUnknown
- end
- item
- Name = 'ID_EMPRESA'
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptUnknown
- end>
- Statements = <
- item
- Connection = 'IBX'
- SQL =
- 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' +
- 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'ModificarReferencia'
- end
item
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_FACTURA'
- BlobType = dabtUnknown
+ Name = 'ID'
Value = ''
- ParamType = daptUnknown
end>
Statements = <
item
@@ -1161,7 +884,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
- '_LIQUIDADA'#10'WHERE (ID = :ID_FACTURA)'
+ '_LIQUIDADA'#10'WHERE (ID = :ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1170,10 +893,8 @@ object srvComisiones: TsrvComisiones
item
Params = <
item
- Name = 'OLD_ID_FACTURA'
- BlobType = dabtUnknown
+ Name = 'OLD_ID'
Value = ''
- ParamType = daptUnknown
end>
Statements = <
item
@@ -1181,7 +902,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = Null'#10'WHERE (' +
- 'ID = :OLD_ID_FACTURA)'
+ 'ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1191,16 +912,11 @@ object srvComisiones: TsrvComisiones
Params = <
item
Name = 'ID_COMISION_LIQUIDADA'
- DataType = datInteger
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
end
item
- Name = 'OLD_ID_FACTURA'
- BlobType = dabtUnknown
+ Name = 'OLD_ID'
Value = ''
- ParamType = daptUnknown
end>
Statements = <
item
@@ -1208,7 +924,7 @@ object srvComisiones: TsrvComisiones
TargetTable = 'FACTURAS_CLIENTE'
SQL =
'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' +
- '_LIQUIDADA'#10'WHERE (ID = :OLD_ID_FACTURA)'
+ '_LIQUIDADA'#10'WHERE (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1218,259 +934,224 @@ object srvComisiones: TsrvComisiones
Params = <
item
Name = 'ID'
- DataType = datInteger
- BlobType = dabtUnknown
+ DataType = datAutoInc
+ GeneratorName = 'GEN_COMISIONES_VENDEDORES_ID'
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
+ Name = 'ID_COMISION'
Value = ''
- ParamType = daptInput
end
item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
+ Name = 'ID_VENDEDOR'
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
+ Name = 'NOMBRE'
Value = ''
- ParamType = daptInput
end
item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
+ Name = 'COMISION'
Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'COMISIONES_LIQ_VENDEDORES'
SQL =
- 'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' +
- 'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' +
- 'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' +
- 'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)'
+ 'INSERT'#10' INTO COMISIONES_LIQ_VENDEDORES'#10' (ID, ID_COMISION, ID' +
+ '_VENDEDOR, NOMBRE, COMISION, IMPORTE_TOTAL)'#10' VALUES'#10' (:ID, :' +
+ 'ID_COMISION, :ID_VENDEDOR, :NOMBRE, :COMISION, :IMPORTE_TOTAL)'#10
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Insert_Comisiones'
+ Name = 'Insert_Vendedores_Comision'
end
item
Params = <
item
Name = 'OLD_ID'
- DataType = datInteger
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'COMISIONES_LIQ_VENDEDORES'
SQL =
- 'DELETE '#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_' +
- 'ID)'
+ 'DELETE '#10' FROM'#10' COMISIONES_LIQ_VENDEDORES'#10' WHERE'#10' (ID = :' +
+ 'OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Delete_Comisiones'
+ Name = 'Delete_Vendedores_Comision'
end
item
Params = <
item
- Name = 'ID'
- DataType = datInteger
- BlobType = dabtUnknown
+ Name = 'ID_COMISION'
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- BlobType = dabtUnknown
+ Name = 'ID_VENDEDOR'
Value = ''
- ParamType = daptInput
end
item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
+ Name = 'NOMBRE'
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_AGENTE'
- DataType = datInteger
- BlobType = dabtUnknown
+ Name = 'COMISION'
Value = ''
- ParamType = daptInput
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA'
- DataType = datDateTime
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- BlobType = dabtUnknown
- Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
- BlobType = dabtUnknown
Value = ''
- ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'COMISIONES_LIQUIDADAS'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'COMISIONES_LIQ_VENDEDORES'
SQL =
- 'UPDATE COMISIONES_LIQUIDADAS'#10' SET '#10' ID = :ID, '#10' ID_EMPRES' +
- 'A = :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :' +
- 'ID_AGENTE,'#10' DESCRIPCION = :DESCRIPCION, '#10' FECHA = :FECHA, ' +
- #10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WH' +
- 'ERE'#10' (ID = :OLD_ID)'
+ 'UPDATE COMISIONES_LIQ_VENDEDORES'#10' SET '#10' ID_COMISION = :ID_CO' +
+ 'MISION, '#10' ID_VENDEDOR = :ID_VENDEDOR, '#10' NOMBRE = :NOMBRE, ' +
+ #10' COMISION = :COMISION,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL'#10' ' +
+ 'WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Update_Comisiones'
+ Name = 'Update_Vendedores_Comision'
+ end>
+ RelationShips = <
+ item
+ Name = 'Comisiones_Facturas'
+ MasterDatasetName = 'Comisiones'
+ MasterFields = 'ID'
+ DetailDatasetName = 'Facturas_Comision'
+ DetailFields = 'ID_COMISION_LIQUIDADA'
+ RelationshipType = rtForeignKey
+ end
+ item
+ Name = 'Comisiones_Vendedores'
+ MasterDatasetName = 'Comisiones'
+ MasterFields = 'ID'
+ DetailDatasetName = 'Vendedores_Comision'
+ DetailFields = 'ID_COMISION'
+ RelationshipType = rtForeignKey
end>
- RelationShips = <>
UpdateRules = <
item
Name = 'Insert Comisiones'
DoUpdate = False
- DoInsert = True
DoDelete = False
DatasetName = 'Comisiones'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Insert Comisiones_vendedores'
+ DoUpdate = False
+ DoDelete = False
+ DatasetName = 'Comisiones_vendedores'
+ FailureBehavior = fbRaiseException
end
item
Name = 'Insert Facturas_Comision'
DoUpdate = False
- DoInsert = True
DoDelete = False
DatasetName = 'Facturas_Comision'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
end
item
Name = 'Update Comisiones'
- DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Comisiones'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Update Comisiones_vendedores'
+ DoInsert = False
+ DoDelete = False
+ DatasetName = 'Comisiones_vendedores'
+ FailureBehavior = fbRaiseException
end
item
Name = 'Update Facturas_Comision'
- DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Facturas_Comision'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
+ end
+ item
+ Name = 'Delete Comisiones_vendedores'
+ DoUpdate = False
+ DoInsert = False
+ DatasetName = 'Comisiones_vendedores'
+ FailureBehavior = fbRaiseException
end
item
Name = 'Delete Facturas_Comision'
DoUpdate = False
DoInsert = False
- DoDelete = True
DatasetName = 'Facturas_Comision'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
end
item
Name = 'Delete Comisiones'
DoUpdate = False
DoInsert = False
- DoDelete = True
DatasetName = 'Comisiones'
- FailureBehaviour = fbRaiseException
+ FailureBehavior = fbRaiseException
end>
+ Version = 0
Left = 48
Top = 24
end
- object DABINAdapter: TDABINAdapter
- Left = 48
- Top = 72
- end
- object bpComisiones: TDABusinessProcessor
- Schema = schComisiones
- InsertCommandName = 'Insert_Comisiones'
- DeleteCommandName = 'Delete_Comisiones'
- UpdateCommandName = 'Update_Comisiones'
- RefreshDatasetName = 'Comisiones_Refresh'
- ReferencedDataset = 'Comisiones'
- ProcessorOptions = [poPrepareCommands]
- UpdateMode = updWhereKeyOnly
- Left = 248
- Top = 24
- end
object bpFacturas_Comision: TDABusinessProcessor
Schema = schComisiones
InsertCommandName = 'Insert_Facturas_Comisiones'
DeleteCommandName = 'Delete_Facturas_Comision'
UpdateCommandName = 'Update_Facturas_Comision'
ReferencedDataset = 'Facturas_Comision'
- ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+ ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 248
Top = 80
end
+ object Bin2DataStreamer: TDABin2DataStreamer
+ Left = 48
+ Top = 80
+ end
+ object bpVendedores_Comision: TDABusinessProcessor
+ Schema = schComisiones
+ InsertCommandName = 'Insert_Vendedores_Comision'
+ DeleteCommandName = 'Delete_Vendedores_Comision'
+ UpdateCommandName = 'Update_Vendedores_Comision'
+ ReferencedDataset = 'Vendedores_Comision'
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 248
+ Top = 24
+ end
+ object bpComisiones: TDABusinessProcessor
+ Schema = schComisiones
+ ReferencedDataset = 'Comisiones'
+ ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 248
+ Top = 144
+ end
end
diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
index b96dd994..8804d475 100644
--- a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
+++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
@@ -12,27 +12,28 @@ interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
- {Ancestor Implementation:} DARemoteService_Impl,
- {Used RODLs:} DataAbstract_Intf,
+ {Ancestor Implementation:} DataAbstractService_Impl,
+ {Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
- uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, Variants;
+ uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, Variants,
+ uDADataStreamer, uDABin2DataStreamer;
type
{ TsrvComisiones }
- TsrvComisiones = class(TDARemoteService, IsrvComisiones)
+ TsrvComisiones = class(TDataAbstractService, IsrvComisiones)
Diagrams: TDADiagrams;
- DABINAdapter: TDABINAdapter;
- bpComisiones: TDABusinessProcessor;
bpFacturas_Comision: TDABusinessProcessor;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ bpVendedores_Comision: TDABusinessProcessor;
+ bpComisiones: TDABusinessProcessor;
schComisiones: TDASchema;
DataDictionary: TDADataDictionary;
- procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
- var ConnectionName: string);
procedure DARemoteServiceCreate(Sender: TObject);
+ procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+ var aConnectionName: string);
{ IsrvComisiones methods }
protected
- function GetNextAutoInc(const GeneratorName: String): Integer;
- function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
+ function GenerateReport(const AComisionID: String): Binary;
end;
implementation
@@ -49,35 +50,29 @@ begin
end;
{ srvComisiones }
-procedure TsrvComisiones.DARemoteServiceBeforeAcquireConnection(
- Sender: TDARemoteService; var ConnectionName: string);
-begin
- ConnectionName := dmServer.ConnectionName;
-end;
-
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
end;
-function TsrvComisiones.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary;
+procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
+ aSender: TObject; var aConnectionName: string);
+begin
+ ConnectionName := dmServer.ConnectionName;
+end;
+function TsrvComisiones.GenerateReport(const AComisionID: String): Binary;
var
AReportGenerator : TRptComisiones;
begin
AReportGenerator := TRptComisiones.Create(nil);
try
- Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
+ Result := AReportGenerator.GenerarComision(AComisionID);
finally
FreeAndNIL(AReportGenerator);
end;
end;
-function TsrvComisiones.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
-end;
-
initialization
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.dpk b/Source/Modulos/Comisiones/Views/Comisiones_view.dpk
index 245a2e6f..299934c8 100644
Binary files a/Source/Modulos/Comisiones/Views/Comisiones_view.dpk and b/Source/Modulos/Comisiones/Views/Comisiones_view.dpk differ
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.dproj b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
new file mode 100644
index 00000000..f5ab25e0
--- /dev/null
+++ b/Source/Modulos/Comisiones/Views/Comisiones_view.dproj
@@ -0,0 +1,613 @@
+
+
+
+ {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}
+ Comisiones_view.dpk
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Comisiones_view.bpl
+
+
+ 7.0
+ False
+ False
+ 0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ RELEASE
+
+
+ 7.0
+ .\
+ .\
+ .\
+ ..\..\..\..\Output\Debug\Cliente
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+
+
+ Delphi.Personality
+ Package
+
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Comisiones_view.dpk
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TfEditorComision
+
+
+
+ TfEditorComisiones
+
+
+
+ TfEditorComision
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.rc b/Source/Modulos/Comisiones/Views/Comisiones_view.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Comisiones/Views/Comisiones_view.rc
+++ b/Source/Modulos/Comisiones/Views/Comisiones_view.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Comisiones/Views/Comisiones_view.res b/Source/Modulos/Comisiones/Views/Comisiones_view.res
index 36f26e23..8b251f31 100644
Binary files a/Source/Modulos/Comisiones/Views/Comisiones_view.res and b/Source/Modulos/Comisiones/Views/Comisiones_view.res differ
diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.dfm b/Source/Modulos/Comisiones/Views/uEditorComision.dfm
index 6c0b4866..2e6dad03 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uEditorComision.dfm
@@ -4,20 +4,20 @@ inherited fEditorComision: TfEditorComision
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Ficha de liquidaci'#243'n de comisiones'
- ClientHeight = 544
- ClientWidth = 611
+ ClientHeight = 683
+ ClientWidth = 747
Scaled = False
OnClose = CustomEditorClose
- ExplicitWidth = 619
- ExplicitHeight = 578
+ ExplicitWidth = 755
+ ExplicitHeight = 717
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 611
+ Width = 747
Caption = 'Liquidaci'#243'n de comisiones'
- ExplicitWidth = 611
+ ExplicitWidth = 747
inherited Image1: TImage
- Left = 584
+ Left = 720
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -59,8 +59,8 @@ inherited fEditorComision: TfEditorComision
end
end
inherited TBXDock: TTBXDock
- Width = 611
- ExplicitWidth = 611
+ Width = 747
+ ExplicitWidth = 747
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@@ -72,7 +72,7 @@ inherited fEditorComision: TfEditorComision
end
inherited tbxMenu: TTBXToolbar
DockPos = 0
- ExplicitWidth = 611
+ ExplicitWidth = 747
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
Visible = False
@@ -114,21 +114,23 @@ inherited fEditorComision: TfEditorComision
end
end
inherited pgPaginas: TPageControl
- Width = 611
- Height = 403
+ Width = 741
+ Height = 536
MultiLine = True
- ExplicitWidth = 611
- ExplicitHeight = 403
+ ExplicitLeft = 3
+ ExplicitTop = 79
+ ExplicitWidth = 741
+ ExplicitHeight = 536
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 603
- ExplicitHeight = 375
+ ExplicitWidth = 733
+ ExplicitHeight = 508
inline frViewComision1: TfrViewComision
Left = 0
Top = 0
- Width = 603
- Height = 127
+ Width = 733
+ Height = 110
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -138,41 +140,27 @@ inherited fEditorComision: TfEditorComision
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 603
- ExplicitHeight = 127
+ ExplicitWidth = 733
+ ExplicitHeight = 110
inherited dxLayoutControlComision: TdxLayoutControl
- Width = 603
- Height = 127
- ExplicitWidth = 603
- ExplicitHeight = 127
+ Width = 733
+ Height = 110
+ ExplicitWidth = 733
+ ExplicitHeight = 110
DesignSize = (
- 603
- 127)
- inherited eReferencia: TcxDBTextEdit
- ExplicitWidth = 164
- Width = 164
- end
- inherited eDescripcion: TcxDBTextEdit
- ExplicitWidth = 108
- Width = 108
- end
+ 733
+ 110)
inherited edtFecha: TcxDBDateEdit
- Left = 355
- ExplicitLeft = 355
- ExplicitWidth = 170
- Width = 170
- end
- inherited cbAgente: TcxDBLookupComboBox
- ExplicitWidth = 319
- Width = 319
+ Left = 413
+ ExplicitLeft = 413
end
end
end
object dxLayoutControl1: TdxLayoutControl
Left = 0
- Top = 127
- Width = 603
- Height = 248
+ Top = 110
+ Width = 733
+ Height = 398
Align = alClient
ParentBackground = True
TabOrder = 1
@@ -183,6 +171,7 @@ inherited fEditorComision: TfEditorComision
Top = 30
Width = 607
Height = 265
+ Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@@ -208,21 +197,59 @@ inherited fEditorComision: TfEditorComision
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
- Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
+ Column = frViewFacturasComision1.cxGridViewBASE_IMPONIBLE
end>
- DataController.Summary.OnAfterSummary = frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary
end
end
inherited ToolBar1: TToolBar
Width = 607
ExplicitWidth = 607
- inherited ToolButton3: TToolButton
- ExplicitWidth = 98
- end
- inherited ToolButton8: TToolButton
- ExplicitWidth = 99
+ end
+ end
+ inline frViewVendedoresComision1: TfrViewVendedoresComision
+ Left = 22
+ Top = 232
+ Width = 662
+ Height = 150
+ Align = alBottom
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 1
+ ReadOnly = False
+ ExplicitLeft = 22
+ ExplicitTop = 232
+ ExplicitWidth = 662
+ inherited cxGrid: TcxGrid
+ Width = 662
+ ExplicitWidth = 662
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = frViewVendedoresComision1.cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = '0 Vendedores'
+ Kind = skCount
+ Column = frViewVendedoresComision1.cxGridViewNOMBRE
+ end>
+ inherited cxGridViewID: TcxGridDBColumn
+ IsCaptionAssigned = True
+ end
end
end
+ inherited ToolBar1: TToolBar
+ Width = 662
+ ExplicitWidth = 662
+ end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@@ -231,7 +258,7 @@ inherited fEditorComision: TfEditorComision
object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
- Caption = 'Facturas asociadas a la liquidaci'#243'n desglosadas por proveedor'
+ Caption = 'Facturas asociadas a la liquidaci'#243'n'
object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
@@ -242,24 +269,36 @@ inherited fEditorComision: TfEditorComision
ControlOptions.ShowBorder = False
end
end
+ object dxLayoutControl1Group2: TdxLayoutGroup
+ Caption = 'Vendedores asociados a la liquidaci'#243'n'
+ object dxLayoutControl1Item2: TdxLayoutItem
+ AutoAligns = [aaHorizontal]
+ AlignVert = avBottom
+ Caption = 'frViewVendedoresComision1'
+ ShowCaption = False
+ Control = frViewVendedoresComision1
+ ControlOptions.AutoColor = True
+ ControlOptions.ShowBorder = False
+ end
+ end
end
end
end
end
inherited StatusBar: TJvStatusBar
- Top = 525
- Width = 611
+ Top = 664
+ Width = 747
Panels = <
item
Width = 200
end>
- ExplicitTop = 525
- ExplicitWidth = 611
+ ExplicitTop = 664
+ ExplicitWidth = 747
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
- Top = 479
- Width = 611
+ Top = 618
+ Width = 747
Height = 46
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -270,12 +309,12 @@ inherited fEditorComision: TfEditorComision
ParentFont = False
TabOrder = 4
ReadOnly = False
- ExplicitTop = 479
- ExplicitWidth = 611
+ ExplicitTop = 618
+ ExplicitWidth = 747
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
- Width = 611
- ExplicitWidth = 611
+ Width = 747
+ ExplicitWidth = 747
inherited Bevel1: TBevel
Left = 92
Top = 91
@@ -285,18 +324,18 @@ inherited fEditorComision: TfEditorComision
ExplicitWidth = 73
end
inherited Bevel3: TBevel
- Left = 305
+ Left = 370
Top = 10
Height = 30
- ExplicitLeft = 305
+ ExplicitLeft = 370
ExplicitTop = 10
ExplicitHeight = 30
end
inherited Bevel4: TBevel
- Left = 417
+ Left = 482
Top = 91
Width = 192
- ExplicitLeft = 417
+ ExplicitLeft = 482
ExplicitTop = 91
ExplicitWidth = 192
end
@@ -311,20 +350,20 @@ inherited fEditorComision: TfEditorComision
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 488
+ Left = 553
Top = 37
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 488
+ ExplicitLeft = 553
ExplicitTop = 37
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 418
+ Left = 483
Top = 111
Style.IsFontAssigned = True
- ExplicitLeft = 418
+ ExplicitLeft = 483
ExplicitTop = 111
ExplicitWidth = 137
Width = 137
@@ -338,37 +377,37 @@ inherited fEditorComision: TfEditorComision
ExplicitTop = 111
end
inherited edtIVA: TcxDBSpinEdit
- Left = 417
+ Left = 482
Top = 37
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 417
+ ExplicitLeft = 482
ExplicitTop = 37
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 417
+ Left = 482
Top = 10
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 417
+ ExplicitLeft = 482
ExplicitTop = 10
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 417
+ Left = 482
Top = 64
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 417
+ ExplicitLeft = 482
ExplicitTop = 64
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 488
+ Left = 553
Top = 64
DataBinding.DataField = ''
Style.IsFontAssigned = True
- ExplicitLeft = 488
+ ExplicitLeft = 553
ExplicitTop = 64
ExplicitWidth = 56
Width = 56
@@ -403,9 +442,9 @@ inherited fEditorComision: TfEditorComision
Width = 81
end
inherited bTiposIVA: TButton
- Left = 157
+ Left = 222
Top = 37
- ExplicitLeft = 157
+ ExplicitLeft = 222
ExplicitTop = 37
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.pas b/Source/Modulos/Comisiones/Views/uEditorComision.pas
index 7187a985..142d14bb 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComision.pas
+++ b/Source/Modulos/Comisiones/Views/uEditorComision.pas
@@ -15,7 +15,7 @@ uses
uIEditorComision, uComisionesController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uViewGridBase, uViewGrid,
uViewDetallesGenerico, uViewFacturasComision, dxLayoutControl, cxControls,
- uViewTotales;
+ uViewTotales, uDAInterfaces, uViewVendedoresComision;
type
TfEditorComision = class(TfEditorDBItem, IEditorComision)
@@ -28,16 +28,24 @@ type
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem;
frViewTotales1: TfrViewTotales;
+ frViewVendedoresComision1: TfrViewVendedoresComision;
+ dxLayoutControl1Item2: TdxLayoutItem;
+ dxLayoutControl1Group2: TdxLayoutGroup;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
- procedure actAnadirRecibosExecute(Sender: TObject);
- procedure actEliminarReciboExecute(Sender: TObject);
procedure JvFormStorageRestorePlacement(Sender: TObject);
procedure JvFormStorageSavePlacement(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
- procedure frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(
- ASender: TcxDataSummary);
+ procedure OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
+ procedure OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
+ procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); override; //Importante, es donde deben quitarse eventos para que afecten a la tabla una vez que se cierre el editor
+
+ private
+ FImporteTotalFacturas: Variant;
+ FImporteTotalVendedores: Variant;
+ FTotalVendedores: Variant;
+
protected
FController : IComisionesController;
FComision: IBizComisiones;
@@ -55,7 +63,6 @@ type
procedure EliminarInterno; override;
procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override;
-// procedure CerrarInterno; override;
procedure PonerTitulos(const ATitulo: string = ''); override;
// function GetModified: Boolean; override;
@@ -113,13 +120,15 @@ begin
ShowHourglassCursor;
// frViewRecibosComision1.OnViewModified := Nil;
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
-// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
+ frViewFacturasComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
+ frViewVendedoresComision1.cxGrid.ActiveView.BeginUpdate; // Para que no se mueva el foco
try
bEsNuevo := FComision.EsNuevo;
FController.Guardar(FComision);
finally
-// frViewDetallesFacturaCliente1.EndUpdate;
+ frViewFacturasComision1.cxGrid.ActiveView.EndUpdate;
+ frViewVendedoresComision1.cxGrid.ActiveView.EndUpdate;
// frViewDetallesFacturaCliente1.RestoreGridStatus;
HideHourglassCursor;
end;
@@ -167,7 +176,7 @@ begin
inherited PonerTitulos(FTitulo);
- Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
+// Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
end;
procedure TfEditorComision.PrevisualizarInterno;
@@ -186,13 +195,13 @@ begin
begin
dsDataTable.DataTable := FComision.DataTable;
frViewFacturasComision1.Comision := FComision;
-// frViewRecibosComision1.OnViewModified := OnRecibosChanged;
+ frViewVendedoresComision1.Comision := FComision;
end
else
begin
dsDataTable.DataTable := Nil;
frViewFacturasComision1.Comision := Nil;
-// frViewRecibosComision1.OnViewModified := Nil;
+ frViewVendedoresComision1.Comision := Nil;
end;
if Assigned(FViewComision) then
@@ -207,6 +216,7 @@ begin
if Assigned(FController) then
begin
frViewFacturasComision1.Controller := FController;
+ frViewVendedoresComision1.Controller := FController;
end;
end;
@@ -221,6 +231,14 @@ begin
end;
end;
+procedure TfEditorComision.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+ frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+ frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+
+ inherited;
+end;
+
procedure TfEditorComision.FormShow(Sender: TObject);
begin
inherited;
@@ -231,19 +249,51 @@ begin
if not Assigned(Comision) then
raise Exception.Create('No hay ningún almacén asignado');
+ frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary;
+ frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
+
Comision.DataTable.Active := True;
end;
-procedure TfEditorComision.frViewFacturasComision1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
-Var
- AImporteTotal: Variant;
+procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
begin
inherited;
- AImporteTotal := ASender.FooterSummaryValues[1];
+ if (FImporteTotalFacturas <> ASender.FooterSummaryValues[1]) then
+ begin
+ FImporteTotalFacturas := ASender.FooterSummaryValues[1];
- if Assigned(FController) then
- FController.AsignarImporteTotal(Comision, AImporteTotal);
+ //Recalculamos comisiones
+ if Assigned(FController)
+ and (not VarIsNull(FImporteTotalFacturas))
+ and (FImporteTotalFacturas > 0) then
+ FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
+ end;
+end;
+
+procedure TfEditorComision.OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
+begin
+ inherited;
+
+ if (FTotalVendedores <> ASender.FooterSummaryValues[2]) then
+ begin
+ FTotalVendedores := ASender.FooterSummaryValues[2];
+
+ //Recalculamos comisiones
+ if Assigned(FController)
+ and (not VarIsNull(FImporteTotalFacturas))
+ and (FImporteTotalFacturas > 0) then
+ FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
+ end;
+
+ if (FImporteTotalVendedores <> ASender.FooterSummaryValues[1]) then
+ begin
+ FImporteTotalVendedores := ASender.FooterSummaryValues[1];
+
+ //Asignamos el importe total de las comisiones
+ if Assigned(FController) then
+ FController.AsignarImporteTotal(Comision, FImporteTotalVendedores);
+ end;
end;
destructor TfEditorComision.Destroy;
@@ -258,28 +308,12 @@ begin
ActualizarEstadoEditor;
end;
-procedure TfEditorComision.actAnadirRecibosExecute(Sender: TObject);
-begin
- inherited;
-// HayCambios := FController.ElegirRecibosCliente(Comision) OR HayCambios;
-end;
-
-procedure TfEditorComision.actEliminarReciboExecute(Sender: TObject);
-begin
- inherited;
-// FController.EliminarReciboCliente(Comision);
-// HayCambios := True;
-end;
-{
-procedure TfEditorComision.CerrarInterno;
-begin
- frViewRecibosComision1.OnViewModified := Nil;
- inherited;
-end;
-}
constructor TfEditorComision.Create(AOwner: TComponent);
begin
inherited;
+ FImporteTotalFacturas := -1;
+ FImporteTotalVendedores := -1;
+ FTotalVendedores := -1;
pgPaginas.ActivePageIndex := 0;
FViewComision := frViewComision1;
end;
@@ -288,6 +322,7 @@ procedure TfEditorComision.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
+
dsDataTable.DataTable := NIL;
FViewComision := NIL;
FComision := NIL;
@@ -298,11 +333,13 @@ begin
if (Application.MessageBox('¿Desea borrar esta liquidación de comisiones?', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
+ //Quitamos los eventos antes de eliminar para que no intercedan en la operacion
+ frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+ frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
+
if not FController.Eliminar(FComision) then
actRefrescar.Execute;
end;
end;
end.
-
-
\ No newline at end of file
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm b/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
index 1d560057..465632a5 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
+++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.dfm
@@ -56,10 +56,10 @@ inherited fEditorComisiones: TfEditorComisiones
Width = 820
ExplicitWidth = 820
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 552
+ ExplicitWidth = 561
end
inherited tbxFiltro: TTBXToolbar
- ExplicitWidth = 260
+ ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
@@ -77,6 +77,10 @@ inherited fEditorComisiones: TfEditorComisiones
end
end
end
+ inherited TBXTMain2: TTBXToolbar
+ Left = 334
+ ExplicitLeft = 334
+ end
end
inherited StatusBar: TJvStatusBar
Width = 820
@@ -1489,4 +1493,626 @@ inherited fEditorComisiones: TfEditorComisiones
ImageIndex = 25
end
end
+ object JsPrevisualizarDialog: TJSDialog
+ Content.Strings = (
+ 'Elija una opci'#243'n:')
+ DialogOptions = [doCommandLinks, doModal]
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Previsualizar...'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ CustomButtons = <
+ item
+ Caption = 'Previsualizar la comision/es seleccionada/s'
+ Value = 100
+ Default = True
+ end
+ item
+ Caption = 'Previsualizar la lista de comisiones actual'
+ Value = 200
+ end>
+ ButtonBar.Buttons = [cbCancel]
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 296
+ Top = 144
+ end
+ object JsImprimirDialog: TJSDialog
+ Content.Strings = (
+ 'Elija una opci'#243'n:')
+ DialogOptions = [doCommandLinks, doModal]
+ Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Text = 'Imprimir...'
+ Instruction.Glyph.Data = {
+ 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
+ 00001C0806000000720DDF940000000970485973000017120000171201679FD2
+ 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
+ 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
+ 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
+ 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
+ B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
+ 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
+ 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
+ A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
+ 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
+ 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
+ A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
+ 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
+ EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
+ 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
+ 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
+ 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
+ CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
+ 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
+ F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
+ 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
+ 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
+ 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
+ ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
+ FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
+ 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
+ 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
+ Instruction.Icon = tdiCustom
+ CustomButtons = <
+ item
+ Caption = 'Imprimir la comision/es seleccionada/s'
+ Value = 100
+ Default = True
+ end
+ item
+ Caption = 'Imprimir la lista de comisiones actual'
+ Value = 200
+ end>
+ ButtonBar.Buttons = [cbCancel]
+ MainIcon = tdiCustom
+ Title = 'FactuGES'
+ Position = dpMainFormCenter
+ Icon.Data = {
+ 0000010003002020100001000400E8020000360000002020000001000800A808
+ 00001E0300002020000001002000A8100000C60B000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 000000008000008000000080800080000000800080008080000080808000C0C0
+ C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000008777777777777777777777700000000
+ 0877767777677776777767760000000008F88888888888888888888700000000
+ 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
+ 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
+ 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
+ 08F8676767677677677658E50000000008FF8888888887878787888700000000
+ 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
+ 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
+ 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
+ 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
+ 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
+ B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
+ B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
+ B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
+ B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
+ 08BB883B78888788787700000000000000B9000000000000000000000000FFFF
+ FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
+ 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
+ 0000200000004000000001000800000000000004000000000000000000000001
+ 00000001000000000000694731007C5D49007E604C0081635000826451008567
+ 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
+ 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
+ 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
+ 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
+ E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
+ FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
+ F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
+ C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
+ E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
+ F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
+ F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
+ FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
+ F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
+ F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
+ 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
+ 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
+ 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
+ A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
+ 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
+ AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
+ 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
+ BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
+ B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
+ F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
+ C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
+ C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
+ D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
+ DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
+ FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
+ EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
+ F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
+ 0D0D0000000000000000009C9C19191919191919191919191919191919191919
+ 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
+ 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
+ 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
+ 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
+ 9007000000000000000000AFF0D5017783838386868686869099909999907BB0
+ 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
+ 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
+ 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
+ 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
+ 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
+ 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
+ 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
+ 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
+ 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
+ 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
+ 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
+ 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
+ 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
+ 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
+ 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
+ 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
+ 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
+ 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
+ A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
+ 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
+ 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
+ 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
+ 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
+ 0000000000000000000000003227000000000000000000000000000000000000
+ 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
+ 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
+ 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
+ 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000007067
+ 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
+ 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
+ A070000000000000000000000000000000000000000000000000000000005E54
+ 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
+ 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
+ 967F000000000000000000000000000000000000000000000000000000006055
+ 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
+ BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
+ B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006056
+ 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
+ D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
+ C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006155
+ 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
+ DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
+ C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006157
+ 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
+ CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
+ B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
+ 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
+ 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
+ CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006256
+ 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
+ C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006257
+ 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
+ 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
+ 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
+ A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
+ 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006357
+ 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
+ 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
+ DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
+ 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
+ DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006458
+ 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
+ F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
+ DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006459
+ 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
+ EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
+ D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
+ 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
+ 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
+ 967E000000000000000000000000000000000000000000000000000000006559
+ 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
+ C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
+ F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000000000000000000000685A
+ 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
+ C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
+ 967E00000000000000000000000000000000007792910072A7A3001E33366957
+ 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
+ A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
+ 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
+ A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
+ CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
+ 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
+ FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
+ B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
+ F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
+ 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
+ F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
+ 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
+ F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
+ 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
+ FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
+ FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
+ F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
+ 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
+ FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
+ FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
+ F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
+ 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
+ FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
+ F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
+ FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
+ 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
+ FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
+ FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
+ FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
+ 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
+ FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
+ FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
+ 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
+ FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
+ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+ FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
+ 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
+ BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
+ F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
+ E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
+ 0000000000000000000000000000000000000075B7AF0099C7C500323E425442
+ 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
+ A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
+ 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
+ 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
+ 0007C0000007C000000700000007000000070000000700000007C000000FC000
+ 001F8000003F800000FFF8FFFFFF}
+ Width = 450
+ Left = 328
+ Top = 144
+ end
end
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
index f29e5ebc..d9a019ed 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
+++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas
@@ -12,7 +12,7 @@ uses
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
uViewBarraSeleccion, pngimage, uIEditorComisiones, uEditorGridBase,
JvComponentBase, uViewGridBase, uComisionesController, JvExComCtrls,
- JvStatusBar;
+ JvStatusBar, uDAInterfaces, JSDialog;
type
TfEditorComisiones = class(TfEditorGridBase, IEditorComisiones)
@@ -20,6 +20,8 @@ type
Volcaradisco1: TMenuItem;
TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem38: TTBXItem;
+ JsPrevisualizarDialog: TJSDialog;
+ JsImprimirDialog: TJSDialog;
procedure FormShow(Sender: TObject);
private
FComisiones: IBizComisiones;
@@ -52,9 +54,9 @@ type
implementation
uses
- uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios,
+ uCustomEditor, uDataModuleComisiones, uDataModuleUsuarios, uGridUtils,
//uEditorRemesaCliente,
- uEditorDBBase, cxGrid, cxGridCustomTableView; //, uListaComisiones;
+ uEditorDBBase, cxGrid, cxGridCustomTableView, uDBSelectionListUtils;
{$R *.dfm}
@@ -83,12 +85,44 @@ begin
end;
procedure TfEditorComisiones.ImprimirInterno;
+var
+ Respuesta : Integer;
+ AComisiones: IBizComisiones;
+ AllItems: Boolean;
begin
-// inherited;
- if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
- FController.Print(Nil, False)
+ AComisiones := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ //Si esta agrupado solo podré imprimir la lista de elementos visibles
+ if not ViewGrid.esSeleccionCeldaDatos then
+ inherited
else
- FController.Print(Nil, True);
+ begin
+ Respuesta := JsImprimirDialog.Execute;
+ if Respuesta <> IDCANCEL then
+ begin
+ case JsImprimirDialog.CustomButtonResult of
+ 200 : begin // Lista de elementos visibles
+ inherited;
+ end;
+ 100 : begin // Elemento Seleccionado
+ if AllItems then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
+ AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComisiones;
+ end
+ else
+ AComisiones := Comisiones;
+
+ if Assigned(AComisiones) then
+ FController.Print(AComisiones, AllItems);
+ end;
+ end;
+ end;
+ end;
end;
function TfEditorComisiones.GetController: IComisionesController;
@@ -113,17 +147,49 @@ procedure TfEditorComisiones.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
- FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+// FTitulo := 'Lista de liquidaciones de comisiones - ' + AppFactuGES.EmpresaActiva.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
procedure TfEditorComisiones.PrevisualizarInterno;
+var
+ Respuesta : Integer;
+ AComisiones: IBizComisiones;
+ AllItems: Boolean;
begin
-// inherited;
- if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then
- FController.Preview(Nil, False)
+ AComisiones := Nil;
+ AllItems := False;
+
+ if MultiSelect and Assigned(ViewGrid) then
+ AllItems := (ViewGrid.NumSeleccionados > 1);
+
+ //Si esta agrupado solo podré imprimir la lista de elementos visibles
+ if not ViewGrid.esSeleccionCeldaDatos then
+ inherited
else
- FController.Preview(Nil, True);
+ begin
+ Respuesta := JsPrevisualizarDialog.Execute;
+ if Respuesta <> IDCANCEL then
+ begin
+ case JsPrevisualizarDialog.CustomButtonResult of
+ 200 : begin // Lista de elementos visibles
+ inherited;
+ end;
+ 100 : begin // Elemento Seleccionado
+ if AllItems then
+ begin
+ SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Comisiones as ISeleccionable).SelectedRecords);
+ AComisiones := (Controller as IComisionesController).ExtraerSeleccionados(Comisiones) as IBizComisiones;
+ end
+ else
+ AComisiones := Comisiones;
+
+ if Assigned(AComisiones) then
+ FController.Preview(AComisiones, AllItems);
+ end;
+ end;
+ end;
+ end;
end;
procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones);
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
index b62d0edb..95521191 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
+++ b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
@@ -1,161 +1,14 @@
inherited fEditorComisionesPreview: TfEditorComisionesPreview
- Caption = 'Previsualizar la factura'
- ExplicitWidth = 803
+ Caption = 'fEditorComisionesPreview'
+ ExplicitWidth = 954
+ ExplicitHeight = 543
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- inherited Image1: TImage
- Left = 768
- end
+ ExplicitWidth = 946
end
- object pnlFiltrar: TTBXDockablePanel [3]
- Left = 0
- Top = 102
- Align = alTop
- Caption = 'Filtrar'
- CaptionRotation = dpcrAlwaysVert
- DockedHeight = 84
- DockMode = dmCannotFloat
- DockPos = 88
- DockRow = 2
- FloatingWidth = 128
- FloatingHeight = 84
- ShowCaptionWhenDocked = False
- SupportedDocks = [dkStandardDock, dkMultiDock]
- TabOrder = 3
- object Label1: TLabel
- Left = 261
- Top = 50
- Width = 17
- Height = 13
- Caption = 'y el'
- end
- object Label2: TLabel
- Left = 10
- Top = 16
- Width = 117
- Height = 13
- Caption = 'Liquidaciones del agente'
- end
- object Label3: TLabel
- Left = 10
- Top = 48
- Width = 103
- Height = 13
- Caption = 'Liquidaciones entre el'
- end
- object edtFechaFiltro1: TcxDateEdit
- Left = 133
- Top = 46
- Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
- Style.LookAndFeel.Kind = lfStandard
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 1
- Width = 121
- end
- object edtFechaFiltro2: TcxDateEdit
- Left = 285
- Top = 46
- Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
- Style.LookAndFeel.Kind = lfStandard
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 2
- Width = 121
- end
- object Button1: TBitBtn
- Left = 435
- Top = 43
- Width = 163
- Height = 25
- Caption = 'Quitar filtro y ver todo'
- TabOrder = 3
- OnClick = Button1Click
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 2000000000000004000000000000000000000000000000000000FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A505
- E1007204CA00FE00FF00FF00FF00FF00FF00E800F5003E09C100FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00AB17
- F900161DC600C400E700FF00FF00FF00FF00520DC9000F30D600D71BCF00942A
- 8A004D493C004D493C00942A8A00D71BCF00FF00FF00FF00FF00D71BCF008B2C
- 92002843B900141B980070208D004615BA000F30D600C20BF80069605800F8D5
- AD00F8C89000F8C89000E7AB63004D493C00FF00FF00FF00FF0069605800F8D5
- AD00C8ACA6001036E4002125A6000F30D600B20EF600FF00FF0069605800FFD8
- C000F8D5AD00F8C89000F8C890004D493C004D493C004D493C0069605800FFD8
- C000EFCDAD005F65C6000A38ED002637A300927C6C00FF00FF0069605800F0F0
- F000FFD8C000F8D5AD00F8C8900069605800696058006960580069605800FFF8
- FF008372B1000F30D6002750F7000F30D60025256F00FF00FF00942A8A006960
- 58006960580069605800942A8A00D71BCF00FF00FF00FF00FF00D71BCF004F24
- 9E000F30D600434D8A00605D6C004D69E3000F30D6006D05CC00FF00FF006648
- 54004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000F30
- D6008F1FF300FF00FF00FF00FF00C811FD003154EB000024D300FF00FF00FF00
- FF00664854004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF004D493C004D493C00FF00FF00FF00FF00FF00
- FF00FF00FF0066485400696058004D493C00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00696058004D493C00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF0066485400D419D000FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00A8658D0069605800FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
- end
- object cbAgentes: TcxLookupComboBox
- Left = 133
- Top = 13
- Properties.KeyFieldNames = 'ID'
- Properties.ListColumns = <
- item
- FieldName = 'NOMBRE'
- end>
- Properties.ListOptions.ShowHeader = False
- Properties.ListSource = dsAgentes
- Properties.OnEditValueChanged = OnAgentesChange
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.NativeStyle = True
- TabOrder = 0
- Width = 273
- end
- end
- inherited EditorActionList: TActionList
- Left = 8
- Top = 88
- end
- inherited SmallImages: TPngImageList
- Left = 35
- Top = 88
- end
- inherited LargeImages: TPngImageList
- Left = 59
- Top = 88
- end
- inherited frxReport1: TfrxReport
- Datasets = <>
- Variables = <>
- Style = <>
- end
- object dsAgentes: TDADataSource
- Left = 144
- Top = 96
+ inherited StatusBar: TJvStatusBar
+ ExplicitTop = 490
+ ExplicitWidth = 946
end
end
diff --git a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
index 5675ae1b..72142bf2 100644
--- a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
+++ b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
@@ -4,134 +4,20 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
- frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
- frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
- JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
- TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
- ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorComisionesPreview,
- JvExComCtrls, JvStatusBar, StdCtrls, Buttons, cxRadioGroup, cxMaskEdit,
- cxDropDownEdit, cxCalendar, cxControls, cxContainer, cxEdit, cxTextEdit,
- TBXDkPanels, cxGraphics, DB, uDADataTable, cxLookupEdit, cxDBLookupEdit,
- cxDBLookupComboBox, uIDataModuleComisionesReport;
+ Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+ frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+ frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+ JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+ StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+ TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+ JvExControls, JvNavigationPane, uIEditorComisionesPreview;
type
TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
- pnlFiltrar: TTBXDockablePanel;
- Label1: TLabel;
- edtFechaFiltro1: TcxDateEdit;
- edtFechaFiltro2: TcxDateEdit;
- Button1: TBitBtn;
- Label2: TLabel;
- Label3: TLabel;
- cbAgentes: TcxLookupComboBox;
- dsAgentes: TDADataSource;
- procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
- procedure OnAgentesChange(Sender: TObject);
- procedure FormShow(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- protected
- FDataModule : IDataModuleComisionesReport;
- function GetDataModule : IDataModuleComisionesReport;
- procedure SetDataModule (const Value : IDataModuleComisionesReport);
-
- procedure RefrescarInterno; override;
- public
- property DataModule : IDataModuleComisionesReport read GetDataModule write SetDataModule;
end;
-
implementation
+
{$R *.dfm}
-uses uROTypes, uDialogUtils, uBizContactos, uAgentesController;
-
-procedure TfEditorComisionesPreview.Button1Click(Sender: TObject);
-begin
- cbAgentes.Properties.OnEditValueChanged := Nil;
- cbAgentes.Clear;
- cbAgentes.Properties.OnEditValueChanged := OnAgentesChange;
-
- edtFechaFiltro1.Properties.OnEditValueChanged := Nil;
- edtFechaFiltro2.Properties.OnEditValueChanged := Nil;
- edtFechaFiltro1.Clear;
- edtFechaFiltro2.Clear;
- edtFechaFiltro1.Properties.OnEditValueChanged := edtFechaFiltro1PropertiesEditValueChanged;
- edtFechaFiltro2.Properties.OnEditValueChanged := edtFechaFiltro1PropertiesEditValueChanged;
-
- RefrescarInterno;
-end;
-
-procedure TfEditorComisionesPreview.OnAgentesChange(Sender: TObject);
-begin
- inherited;
- RefrescarInterno;
-end;
-
-procedure TfEditorComisionesPreview.RefrescarInterno;
-var
- AStream: Binary;
-begin
- ShowHourglassCursor;
- try
- AStream := FDataModule.GetReport(Null, False, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue);
- try
- //Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
- actPrimeraPagina.Execute;
-
- Report.PreviewPages.Clear;
- LoadFromStream(AStream);
- Report.Preview.Refresh;
-
- //Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
- actAnchoPagina.Execute;
- finally
- AStream.Free;
- end;
- finally
- HideHourglassCursor;
- end;
-end;
-
-procedure TfEditorComisionesPreview.SetDataModule(const Value: IDataModuleComisionesReport);
-begin
- FDataModule := Value;
-end;
-
-procedure TfEditorComisionesPreview.edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
-begin
- if not VarIsNull(edtFechaFiltro1.EditValue) and not VarIsNull(edtFechaFiltro2.EditValue) then
- begin
- if (edtFechaFiltro1.EditValue > edtFechaFiltro2.EditValue) then
- begin
- ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final');
- edtFechaFiltro1.SetFocus;
- end
- else
- RefrescarInterno;
- end;
-end;
-
-procedure TfEditorComisionesPreview.FormShow(Sender: TObject);
-var
- AAgentesController: IAgentesController;
- AAgentes: IBizAgente;
-begin
- inherited;
- try
- AAgentesController := TAgentesController.Create;
- AAgentes := (AAgentesController.BuscarTodos as IBizAgente);
- AAgentes.DataTable.Active := True;
- dsAgentes.DataTable := AAgentes.DataTable;
- finally
- AAgentesController := Nil;
- AAgentes := Nil;
- end;
-end;
-
-function TfEditorComisionesPreview.GetDataModule: IDataModuleComisionesReport;
-begin
- Result := FDataModule;
-end;
-
end.
diff --git a/Source/Modulos/Comisiones/Views/uEditorFamilias.dfm b/Source/Modulos/Comisiones/Views/uEditorFamilias.dfm
deleted file mode 100644
index c086a627..00000000
--- a/Source/Modulos/Comisiones/Views/uEditorFamilias.dfm
+++ /dev/null
@@ -1,144 +0,0 @@
-object fEditorFamilias: TfEditorFamilias
- Left = 453
- Top = 234
- ActiveControl = ListaFamilias
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Administraci'#243'n de familias de art'#237'culos'
- ClientHeight = 494
- ClientWidth = 404
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = CustomEditorClose
- OnShow = FormShow
- InstanceID = 0
- ReadOnly = False
- PixelsPerInch = 96
- TextHeight = 13
- object bAceptar: TButton
- Left = 235
- Top = 462
- Width = 75
- Height = 23
- Action = actAceptar
- Default = True
- TabOrder = 1
- end
- object bCancelar: TButton
- Left = 321
- Top = 462
- Width = 75
- Height = 23
- Action = actCancelar
- Cancel = True
- TabOrder = 2
- end
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 390
- Height = 442
- ActivePage = TabSheet1
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'Familias de art'#237'culos'
- object Label1: TLabel
- Left = 10
- Top = 12
- Width = 213
- Height = 13
- Caption = 'Lista de familias disponibles para los art'#237'culos'
- end
- object Label2: TLabel
- Left = 10
- Top = 326
- Width = 116
- Height = 13
- Caption = 'A'#241'adir una nueva familia'
- end
- object Bevel1: TBevel
- Left = 132
- Top = 330
- Width = 244
- Height = 5
- Shape = bsBottomLine
- end
- object eCategoria: TLabel
- Left = 18
- Top = 353
- Width = 98
- Height = 13
- Caption = 'Nombre de la familia:'
- end
- object ListaFamilias: TDBLookupListBox
- Left = 8
- Top = 31
- Width = 262
- Height = 277
- KeyField = 'RecID'
- ListField = 'DESCRIPCION'
- ListSource = DADataSource
- TabOrder = 0
- end
- object bEliminar: TButton
- Left = 281
- Top = 31
- Width = 95
- Height = 23
- Action = actEliminar
- TabOrder = 1
- end
- object editFamilia: TEdit
- Left = 122
- Top = 349
- Width = 254
- Height = 21
- TabOrder = 2
- end
- object bAnadir: TButton
- Left = 281
- Top = 382
- Width = 95
- Height = 23
- Action = actAnadir
- TabOrder = 3
- end
- end
- end
- object ActionList1: TActionList
- Left = 144
- Top = 16
- object actAnadir: TAction
- Caption = '&A'#241'adir'
- OnExecute = actAnadirExecute
- OnUpdate = actAnadirUpdate
- end
- object actEliminar: TAction
- Caption = '&Eliminar'
- OnExecute = actEliminarExecute
- OnUpdate = actEliminarUpdate
- end
- object actAceptar: TAction
- Caption = 'A&ceptar'
- OnExecute = actAceptarExecute
- end
- object actCancelar: TAction
- Caption = '&Cancelar'
- OnExecute = actCancelarExecute
- end
- object actCerrar: TAction
- Caption = 'actCerrar'
- OnExecute = actCerrarExecute
- end
- end
- object DADataSource: TDADataSource
- Left = 168
- Top = 16
- end
-end
diff --git a/Source/Modulos/Comisiones/Views/uEditorFamilias.pas b/Source/Modulos/Comisiones/Views/uEditorFamilias.pas
deleted file mode 100644
index d1675de5..00000000
--- a/Source/Modulos/Comisiones/Views/uEditorFamilias.pas
+++ /dev/null
@@ -1,180 +0,0 @@
-{
-===============================================================================
- Copyright (©) 2006. Rodax Software.
-===============================================================================
- Los contenidos de este fichero son propiedad de Rodax Software titular del
- copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
- en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
- acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
- bajo el que se suministra.
- -----------------------------------------------------------------------------
- Web: www.rodax-software.com
-===============================================================================
- Fecha primera versión: 22-05-2006
- Versión actual: 1.0.0
- Fecha versión actual: 22-05-2006
-===============================================================================
- Modificaciones:
-
- Fecha Comentarios
- ---------------------------------------------------------------------------
-===============================================================================
-}
-
-unit uEditorFamilias;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
- uIEditorFamilias, uCustomEditor, uGUIBase, ExtCtrls,
- ComCtrls, uBizFamilias, uFamiliasController;
-
-type
- TfEditorFamilias = class(TCustomEditor, IEditorFamilias)
- ActionList1: TActionList;
- DADataSource: TDADataSource;
- ListaFamilias: TDBLookupListBox;
- actAnadir: TAction;
- actEliminar: TAction;
- bEliminar: TButton;
- actAceptar: TAction;
- actCancelar: TAction;
- bAceptar: TButton;
- bCancelar: TButton;
- actCerrar: TAction;
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- Label1: TLabel;
- Label2: TLabel;
- Bevel1: TBevel;
- eCategoria: TLabel;
- editFamilia: TEdit;
- bAnadir: TButton;
- procedure FormShow(Sender: TObject);
- procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
-
- procedure actAnadirExecute(Sender: TObject);
- procedure actEliminarExecute(Sender: TObject);
- procedure actAceptarExecute(Sender: TObject);
- procedure actCancelarExecute(Sender: TObject);
- procedure actCerrarExecute(Sender: TObject);
- procedure actAnadirUpdate(Sender: TObject);
- procedure actEliminarUpdate(Sender: TObject);
- protected
- FFamilias: IBizFamilia;
- FController: IFamiliasController;
- function GetFamilias: IBizFamilia;
- procedure SetFamilias(const Value: IBizFamilia);
- function GetController : IFamiliasController;
- procedure SetController (const Value : IFamiliasController);
- public
- property Familias: IBizFamilia read GetFamilias write SetFamilias;
- property Controller : IFamiliasController read GetController write SetController;
- end;
-
-
-implementation
-{$R *.dfm}
-
-{ TfEditorFamilias }
-
-uses
- uDialogUtils;
-
-function TfEditorFamilias.GetController: IFamiliasController;
-begin
- Result := FController;
-end;
-
-function TfEditorFamilias.GetFamilias: IBizFamilia;
-begin
- Result := FFamilias;
-end;
-
-procedure TfEditorFamilias.SetController(const Value: IFamiliasController);
-begin
- FController := Value;
-end;
-
-procedure TfEditorFamilias.SetFamilias(const Value: IBizFamilia);
-begin
- FFamilias := Value;
- DADataSource.DataTable := (FFamilias as IBizFamilia).DataTable;
- DADataSource.DataTable.Open;
-end;
-
-procedure TfEditorFamilias.actAnadirExecute(Sender: TObject);
-begin
- if not FController.Localizar(Familias, editFamilia.Text) then
- begin
- Familias.Append;
- Familias.DESCRIPCION := editFamilia.Text;
- Familias.Post;
- editFamilia.Clear;
- ListaFamilias.SetFocus;
- end
- else
- ShowErrorMessage('Ya existe la familia ' + editFamilia.Text,
- 'Ya existe la familia ''' + editFamilia.Text + ''' en la lista.');
-end;
-
-procedure TfEditorFamilias.actEliminarExecute(Sender: TObject);
-begin
- Familias.Delete;
- ListaFamilias.SetFocus;
-end;
-
-procedure TfEditorFamilias.actEliminarUpdate(Sender: TObject);
-begin
- (Sender as TAction).Enabled := (FFamilias.DataTable.RecordCount > 0) and
- (Length(ListaFamilias.SelectedItem) > 0);
-
-end;
-
-procedure TfEditorFamilias.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
-begin
- FFamilias := Nil;
- FController := Nil;
-end;
-
-procedure TfEditorFamilias.actAceptarExecute(Sender: TObject);
-begin
- try
- Familias.DataTable.ApplyUpdates;
- except
- on E : Exception do begin
- Familias.DataTable.CancelUpdates;
- ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
- exit;
- end;
- end;
- actCerrar.Execute;
-end;
-
-procedure TfEditorFamilias.actCancelarExecute(Sender: TObject);
-begin
- Familias.DataTable.CancelUpdates;
- actCerrar.Execute;
-end;
-
-procedure TfEditorFamilias.actCerrarExecute(Sender: TObject);
-begin
- Close;
-end;
-
-procedure TfEditorFamilias.actAnadirUpdate(Sender: TObject);
-begin
- (Sender as TAction).Enabled := (Length(editFamilia.Text) > 0)
-end;
-
-procedure TfEditorFamilias.FormShow(Sender: TObject);
-begin
- if not FFamilias.DataTable.Active then
- FFamilias.DataTable.Active := true;
-
- EditFamilia.SetFocus;
-end;
-
-end.
diff --git a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.dfm b/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.dfm
deleted file mode 100644
index 5734b752..00000000
--- a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.dfm
+++ /dev/null
@@ -1,1520 +0,0 @@
-inherited fEditorRemesasCliente: TfEditorRemesasCliente
- Left = 489
- Top = 325
- Caption = 'Lista de remesas de cobro'
- ClientWidth = 820
- ExplicitWidth = 828
- PixelsPerInch = 96
- TextHeight = 13
- inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 820
- Caption = 'Lista de remesas de cobro'
- ExplicitWidth = 820
- inherited Image1: TImage
- Left = 793
- Picture.Data = {
- 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
- 0000180806000000E0773DF80000000970485973000017120000171201679FD2
- 520000000467414D410000B18E7CFB5193000002744944415478DA63FCFFFF3F
- 032D01E3F0B060F9D6D334B3056E41A4B729491AFFFCFDCFF0F7EF3F869FBFFE
- 80E93FFFFE8169301B887FFDFECB109E5E876A41E249438206FF05AAFFF5F72F
- C3AF3F7FC0F4975FBF207C10065A02932BFAB59C61DED24D9816CC373F8F6291
- F45B6F8626CF660C8BFE010D0361CFD5F60C1F791E800DBF14F0824169A520D8
- 928ABFAB705B00022036B2E11718CF33189F346660B809E4A833309C353FCBA0
- F9438BE117D007415B3C189EB2DF66B811FC1AAC566C3137431DC35AFC3E8019
- CE7C8A89E1AFD93F300D32FC6CDC5906E379408BB419183EEB7C61E0BDC2C3F0
- 5AE50D43F84E5F86BD51C718841771817DD0CEB211BB05E841C3BC1C684124D0
- 82C54C10C39719339C8D02D2B38C193E447C6410D8C2CFF0C2E52543D49E0086
- 0B7F2EC0E3A3977D0B911620FBE02A508203887F30807DF056ED1D83F02D2186
- 27324F18E20E86329CFA79166EC164AEEDF82D40B6E42F50C365964B9038B808
- 94D087C481DC5B79869F3F7E60180E02382D404E4520C58A1FFC186A9C6BC196
- FC03A7F5BF700CE247EF0D841BFE33E50F03E34C46FC16C0003C6D03B1CCB31F
- 0C5325B4B1E60BDE877B505C0E03582D40CFA57FA039F3EA444D0609A7200645
- CB1E86FBC74BC06A5EDC0726E7FBF719E6EE7BCE30A7DA09C3E2294F73312D98
- B2780756570A7E3BC7A0F4660ED8307450DD928DD3E273AC89080BBA27CF2758
- 4C9C2B7B88553CA5751FA65AA0E12000B680919191A0E1C75A14FF93124C404B
- C3E6EEFBB19A140B4281D42A6CC13467EF77AC96022D6024CA0290E196969AAB
- B0C91D3F7E1D6BDC008101D0828BC45A803778402EC5A597681FE00A1E200087
- 355E0B6809686E0100FA3E2AAB1481BE0E0000000049454E44AE426082}
- ExplicitLeft = 516
- end
- end
- inherited TBXDock: TTBXDock
- Width = 820
- ExplicitWidth = 820
- inherited tbxMain: TTBXToolbar
- ExplicitWidth = 662
- object TBXSeparatorItem17: TTBXSeparatorItem [12]
- end
- object TBXItem37: TTBXItem [13]
- Action = actVolcarDisco
- DisplayMode = nbdmImageAndText
- end
- end
- inherited tbxFiltro: TTBXToolbar
- inherited tbxEditFiltro: TTBXEditItem
- EditOptions = [tboUseEditWhenVertical]
- end
- end
- inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 820
- object TBXSubmenuItem2: TTBXSubmenuItem [4]
- Caption = 'A&cciones'
- object TBXItem38: TTBXItem
- Action = actVolcarDisco
- end
- end
- end
- end
- inherited StatusBar: TJvStatusBar
- Width = 820
- ExplicitTop = 425
- ExplicitWidth = 820
- end
- inherited EditorActionList: TActionList
- inherited actNuevo: TAction
- ImageIndex = 24
- end
- inherited actPrevisualizar: TAction
- Visible = True
- end
- inherited actImprimir: TAction
- Visible = True
- end
- inherited actDuplicar: TAction
- Visible = False
- end
- object actVolcarDisco: TAction
- Category = 'Acciones'
- Caption = 'Volcar a disco...'
- ImageIndex = 25
- OnExecute = actVolcarDiscoExecute
- OnUpdate = actVolcarDiscoUpdate
- end
- end
- inherited SmallImages: TPngImageList
- PngImages = <
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
- 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
- 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
- E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
- 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
- FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
- E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
- C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
- 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
- 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
- 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
- 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
- 000005100EB8572466A60000000049454E44AE426082}
- Name = 'PngImage1'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001074944415478DA
- 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A
- C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211
- AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643
- 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601
- C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4
- CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346
- B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501
- 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08
- 0029AC32F01825AACD0000000049454E44AE426082}
- Name = 'PngImage2'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001514944415478DA
- 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319
- CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000
- 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802
- 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D
- F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4
- C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18
- 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801
- 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB
- FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E
- 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED
- 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082}
- Name = 'PngImage3'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA
- 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF
- 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17
- 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8
- E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42
- BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0
- 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F
- E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D
- CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C
- 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98
- B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941
- 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF
- DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7
- 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F
- D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE
- D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583
- CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8
- FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED
- 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0
- EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E
- 44AE426082}
- Name = 'PngImage4'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
- A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
- 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
- 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
- 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
- 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
- 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
- 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
- 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
- E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
- 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
- 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
- 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
- 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
- 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
- E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
- D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
- 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
- A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
- AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
- 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
- 5538F0EAB25B380000000049454E44AE426082}
- Name = 'PngImage5'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001934944415478DA
- 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98
- 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6
- 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F
- FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F
- B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9
- 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491
- 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC
- 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5
- 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF
- 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E
- C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506
- 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4
- 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260
- 82}
- Name = 'PngImage6'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD
- D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958
- 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF
- DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C
- 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B
- B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD
- D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6
- AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895
- 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608
- DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1
- 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9
- D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252
- 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29
- 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4
- F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A
- A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F
- AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537
- 19FE00839434866373C4BA0000000049454E44AE426082}
- Name = 'PngImage7'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20
- E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9
- 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1
- CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098
- D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4
- AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609
- 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3
- D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD
- 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8
- C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D
- E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770
- 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F
- 16FA1194E3DBC30000000049454E44AE426082}
- Name = 'PngImage8'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5
- 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA
- 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8
- 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B
- A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78
- B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE
- 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58
- 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E
- 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D
- 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE
- F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744
- E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082}
- Name = 'PngImage9'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000016A4944415478DA
- 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA
- 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA
- 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30
- F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911
- FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD
- D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5
- 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C
- E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3
- FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B
- CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907
- BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4
- 0090010087546EF0ACB0C7920000000049454E44AE426082}
- Name = 'PngImage10'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001024944415478DA
- 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
- C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999
- FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8
- 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7
- 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5
- B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719
- 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B
- 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1
- CDA578040000000049454E44AE426082}
- Name = 'PngImage11'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001C04944415478DA
- 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440
- 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F
- 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8
- 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF
- 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E
- 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F
- 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB
- 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1
- CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1
- 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4
- F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C
- 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0
- F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78
- 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C
- 80060000000049454E44AE426082}
- Name = 'PngImage12'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA
- 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF
- CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B
- 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E
- 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3
- B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0
- 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7
- EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567
- 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41
- 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB
- 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060
- A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A
- 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA
- E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C
- EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149
- D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E
- 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65
- 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3
- 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082}
- Name = 'PngImage13'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA
- 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414
- A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D
- 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF
- 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008
- EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5
- 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050
- 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85
- CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15
- 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7
- F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D
- B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D
- 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02
- 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE
- 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0
- 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D
- 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747
- 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7
- FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386
- 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790
- E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6
- 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74
- 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD
- BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03
- 503A4EA60D6AAC070000000049454E44AE426082}
- Name = 'PngImage14'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA
- 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251
- 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E
- C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC
- 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910
- 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537
- BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0
- 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB
- B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048
- 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5
- E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676
- 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8
- 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002
- 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29
- 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF
- 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF
- 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5
- 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF
- AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632
- 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4
- E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384
- 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72
- CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD
- DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8
- 3FA68502A9830000000049454E44AE426082}
- Name = 'PngImage0'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA
- 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD
- 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4
- 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383
- E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF
- 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6
- 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5
- EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77
- EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7
- 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF
- 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813
- BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902
- 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636
- EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4
- 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022
- 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212
- 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9
- 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160
- FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300
- D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05
- 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB
- EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F
- A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE
- CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3
- D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF
- EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265
- EA71FE0D330BBCF031BDB9A60000000049454E44AE426082}
- Name = 'PngImage15'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA
- 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B
- 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB
- 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720
- F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED
- AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F
- 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB
- C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF
- A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C
- 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C
- CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A
- 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A
- 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF
- 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5
- FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43
- 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020
- 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807
- F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB
- 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C
- B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631
- 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83
- F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C
- E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F
- CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E
- 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548
- 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000
- 000049454E44AE426082}
- Name = 'PngImage16'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000019E4944415478DA
- 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F
- FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA
- 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01
- D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3
- 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9
- 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40
- DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C
- 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9
- 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9
- ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44
- 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34
- 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1
- 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA
- 0000000049454E44AE426082}
- Name = 'PngImage17'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000015D4944415478DA
- 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
- 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
- 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
- E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
- 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
- 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
- 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
- BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
- 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
- E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
- 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
- 00000049454E44AE426082}
- Name = 'PngImage18'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001B04944415478DA
- 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3
- C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999
- FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7
- 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E
- 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840
- 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3
- CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657
- 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28
- 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34
- 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9
- F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296
- D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801
- 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A
- 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082}
- Name = 'PngImage19'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001034944415478DA
- 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520
- 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D
- 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A
- 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60
- 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800
- 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE
- B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3
- F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A
- 7A68BA98860000000049454E44AE426082}
- Name = 'PngImage20'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001124944415478DA
- 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
- 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
- 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
- 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
- 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
- E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
- 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
- CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
- 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
- Name = 'PngImage21'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000000F84944415478DA
- 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
- 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
- 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
- FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
- 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
- BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
- 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
- 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
- 4E44AE426082}
- Name = 'PngImage22'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6
- B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77
- EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5
- E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D
- 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D
- C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6
- 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141
- 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15
- F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334
- 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524
- 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256
- 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4
- 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F
- E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082}
- Name = 'PngImage23'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD2520000011A4944415478DA
- 63FCFFFF3F032580916203966D3945B60991DEA68C6003D4BD9919269F4CC6AA
- E8F7DFBF0CDFFFFC61F8F6FB37C3C71F3FC0ECB9FE5B19523CE6309CDB310D61
- 0008C00C996B760EC3209B6D7270CD208062C02E9134B8429866E6534C1081AB
- 0C0C7F13FF81999A6B4519BE035D02728DDCB204220CB80A118319A0B04200AC
- 19843556A762370024B9DCFA328617903583BC62B83E13350C40FE074B421581
- 70EF05569C31907DD8036140F7E4F9180AA6DAEE60B04CAE6660905064F8717C
- 2AC3F97DE719E6EE7BCE30A5C50BCE9EB3F73B23232E1B8EB528861E7CADB6EA
- CEE58358E5939D24C32CABEFADC667C07F8A5D00A456811452D505208D5635F7
- 5783D480F211C92E98BBEF075C0FD8004A73230074DEE0E1BE54FBD500000000
- 49454E44AE426082}
- Name = 'PngImage24'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
- 610000000970485973000017120000171201679FD252000001D24944415478DA
- 635CBBFBE27F062C20D8559F1145C0600644DD850C1471469001412E7A286AD7
- EDB9846A08507365811743FB846DC41BD0D23303CC3EFF529F61E19464861B77
- 9E332C597190E1C7CFBF175FBFFFE10D34E8298601F7AD2419148F3D67F8FEF3
- 37C3F71FBF19841D16C335C380181F0B4365E7D62F4083344086C00D0069E6B4
- F26638B66E2E83C3F9AF0CDF7EFC62F08BAF02BBC0D74D9741474B96E1CAB5C7
- 60FACFE7370C0BD75FDEFA6A5FBC0FD800C33A77B06686FBFBC0B61C3B7F9F41
- 67FF2B8688F47A86F33BA73382C20064C8E65D97E186C1C2036C809FA30EC326
- 5566062B4345B8E66FDF7F312415B4420C408A85CF471354A21ACFDE3976F216
- C3DB838910035C2DD5C14E3E6ACAC7A0BEEB39C357A0E6DFBFFF32E4567533D4
- 94646044F1C92B1F19A6AEBAC5F0F5780AC4006BA0CDA0400369046190ED2050
- 54D70736003D96E6AC3DC35033E33AC3CB3D7110036051860DC00DF8788EE1FE
- 726306C5C8B30CEB4EB3C0A39991810080C5D2EF358C0CAC16F10CF7B72C64E0
- 8F44C412710698FE81D86E0F8CA8830C6057DCFA200B8E25A20C30BCA3CFA0E8
- 130F8C82850CEFDF31307CB80CF491C313702C116580C8697D0C7166F77BE058
- 22CA007CB1449401F862090078951B407104A20F0000000049454E44AE426082}
- Name = 'PngImage25'
- Background = clWindow
- end>
- Bitmap = {}
- end
- inherited LargeImages: TPngImageList
- PngImages = <
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000774494D45000000000000000973942E000000097048597300001712
- 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315
- 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F
- 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499
- B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9
- A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6
- EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4
- 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2
- 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696
- F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0
- CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A
- C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138
- 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1
- B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008
- 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42
- F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3
- 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329
- 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9
- 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59
- 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429
- BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6
- 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5
- C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315
- 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422
- C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61
- C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F
- 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E
- A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76
- 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA
- 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8
- 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735
- F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175
- 682F0000000049454E44AE426082}
- Name = 'PngImage1'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000032A4944415478DA
- BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1
- 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C
- 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D
- 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC
- 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4
- EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F
- 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55
- 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0
- AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C
- AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80
- F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D
- ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213
- 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43
- 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95
- 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F
- F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020
- C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48
- FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C
- C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2
- E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147
- E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603
- A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D
- 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD
- AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A
- 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4
- B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082}
- Name = 'PngImage2'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000022C4944415478DA
- 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF
- 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2
- 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0
- 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1
- 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141
- 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06
- D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022
- 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020
- 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679
- 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8
- F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907
- 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F
- 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8
- FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE
- 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC
- 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430
- 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4
- 02140B6805009C1383EFACA508270000000049454E44AE426082}
- Name = 'PngImage3'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA
- B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989
- 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E
- 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4
- 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2
- E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4
- 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA
- BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04
- 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096
- 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F
- 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935
- 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588
- D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130
- EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7
- 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D
- 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D
- 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43
- 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA
- 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1
- 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9
- 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E
- 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422
- BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438
- 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413
- A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239
- 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831
- 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA
- 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170
- C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832
- 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C
- 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D
- 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37
- 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22
- F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36
- 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71
- 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381
- BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355
- 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D
- 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C
- 4A0000000049454E44AE426082}
- Name = 'PngImage4'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA
- B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B
- 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828
- 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736
- B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE
- A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56
- 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15
- 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C
- 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0
- D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E
- A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C
- EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A
- 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2
- BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC
- 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E
- 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F
- BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08
- 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83
- D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683
- 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868
- 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12
- C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3
- 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E
- 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3
- 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446
- FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119
- 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C
- 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1
- DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45
- 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826
- BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240
- A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C
- A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32
- C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C
- 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300
- 00000049454E44AE426082}
- Name = 'PngImage5'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000027F4944415478DA
- 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9
- 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67
- F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970
- 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D
- 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F
- E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100
- 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21
- 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA
- 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B
- C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62
- F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF
- 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F
- C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4
- 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D
- 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486
- C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19
- 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4
- 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB
- 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5
- 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2
- FA0000000049454E44AE426082}
- Name = 'PngImage6'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000037C4944415478DA
- B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36
- 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94
- 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393
- 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F
- 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784
- FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2
- E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4
- CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124
- 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB
- 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7
- C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1
- 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72
- 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24
- C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3
- 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE
- 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255
- 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B
- 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB
- B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022
- F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833
- B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F
- E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989
- 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C
- 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C
- E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E
- 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8
- 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99
- 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000
- 000049454E44AE426082}
- Name = 'PngImage7'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA
- 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731
- 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67
- E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D
- 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72
- 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3
- D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965
- 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF
- C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8
- CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880
- AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F
- 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31
- 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6
- A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621
- DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5
- 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9
- F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2
- 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066
- 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24
- 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621
- 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082}
- Name = 'PngImage8'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA
- B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058
- D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60
- 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F
- EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1
- B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE
- 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6
- CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71
- 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C
- 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12
- 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E
- 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59
- 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED
- 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8
- 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D
- CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182
- D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382
- 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A
- B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3
- 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5
- 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6
- 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE
- 426082}
- Name = 'PngImage9'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000029E4944415478DA
- 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382
- 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58
- F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30
- 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7
- C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12
- 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD
- D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA
- 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287
- CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341
- 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14
- 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511
- 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B
- E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC
- DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6
- 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10
- E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84
- EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17
- AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02
- 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187
- 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B
- 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090
- 0000000049454E44AE426082}
- Name = 'PngImage10'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA
- ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589
- F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435
- F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF
- CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B
- 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D
- 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD
- 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1
- A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE
- 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075
- F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2
- 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF
- A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C
- D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892
- 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806
- 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F
- EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E
- 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3
- 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5
- DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C
- A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA
- F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196
- 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E
- 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC
- BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D
- 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68
- 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986
- F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000
- 49454E44AE426082}
- Name = 'PngImage11'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD252000003784944415478DA
- B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61
- AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A
- BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39
- 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A
- 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965
- 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4
- 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0
- E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63
- 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1
- 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A
- B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36
- FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424
- 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45
- DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1
- 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50
- 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC
- 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46
- FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0
- 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4
- 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F
- 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B
- 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2
- D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA
- 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F
- 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3
- EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92
- 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F
- 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945
- 4E44AE426082}
- Name = 'PngImage12'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA
- BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93
- 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88
- 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C
- 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004
- A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F
- 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47
- E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA
- 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F
- 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE
- 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A
- B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0
- 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06
- 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027
- 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7
- 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F
- 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090
- B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE
- AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927
- E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627
- 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA
- 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD
- E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4
- E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779
- 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82
- 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9
- 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C
- 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3
- 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE
- 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85
- 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C
- 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000
- 000049454E44AE426082}
- Name = 'PngImage13'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA
- AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4
- 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3
- A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3
- 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117
- CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671
- 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7
- B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E
- 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3
- 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37
- 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8
- 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F
- 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D
- F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D
- AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480
- 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E
- C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56
- 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5
- CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A
- 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6
- 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020
- D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D
- D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA
- 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50
- C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6
- 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152
- D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1
- 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11
- 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242
- 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE
- 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3
- B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7
- 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130
- 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7
- 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981
- 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0
- 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877
- 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB
- 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366
- 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF
- 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688
- F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811
- F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000
- 49454E44AE426082}
- Name = 'PngImage14'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA
- AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED
- C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B
- 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24
- 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4
- 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5
- B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB
- 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191
- 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5
- 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262
- 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56
- 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0
- A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36
- E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A
- EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098
- 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7
- 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0
- 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A
- 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715
- 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC
- 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1
- F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9
- 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407
- B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A
- 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0
- 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E
- 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F
- 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC
- 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536
- D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D
- 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B
- D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC
- F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134
- 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA
- 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4
- C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF
- BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25
- 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F
- 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707
- 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4
- 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16
- 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855
- 88E7298D620000000049454E44AE426082}
- Name = 'PngImage0'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA
- 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E
- 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18
- D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767
- F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B
- 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8
- C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB
- B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A
- 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD
- 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0
- 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6
- 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C
- 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418
- 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06
- 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E
- 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2
- 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402
- 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F
- 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440
- 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA
- 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698
- 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080
- 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0
- 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47
- 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC
- 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4
- 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74
- D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4
- 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766
- 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05
- F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8
- 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8
- FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125
- 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B
- FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42
- 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9
- 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67
- E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF
- 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6
- 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F
- 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322
- 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303
- 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51
- 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549
- 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3
- 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4
- FE66E507F40000000049454E44AE426082}
- Name = 'PngImage16'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA
- 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3
- F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958
- 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77
- F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC
- AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8
- 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0
- ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA
- A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6
- E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99
- 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193
- 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1
- 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068
- BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13
- C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76
- E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96
- 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF
- 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF
- 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B
- C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500
- 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723
- C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B
- 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426
- 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B
- 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808
- A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9
- 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587
- EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5
- DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3
- 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F
- 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D
- F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D
- 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641
- 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8
- A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515
- E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3
- 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3
- 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A
- 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8
- 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6
- 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58
- AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195
- 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB
- 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4
- 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C
- 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88
- 2F15D20000000049454E44AE426082}
- Name = 'PngImage15'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD252000002814944415478DA
- 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF
- 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3
- EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A
- 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC
- 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395
- E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1
- 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517
- 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1
- 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F
- 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138
- BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A
- 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605
- 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A
- 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3
- 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5
- 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F
- C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450
- 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2
- 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07
- CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85
- 5838D40000000049454E44AE426082}
- Name = 'PngImage17'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000026D4944415478DA
- B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806
- 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775
- ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C
- F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB
- 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB
- 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3
- E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A
- 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D
- 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7
- 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B
- 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3
- 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4
- D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922
- C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C
- 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556
- 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F
- 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9
- CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69
- 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0
- 3F84F988A8E02F75743575B8E251160000000049454E44AE426082}
- Name = 'PngImage18'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F8000000097048597300004E2000004E2001167D99DE000004124944415478DA
- ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983
- 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10
- 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A
- 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070
- 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB
- A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4
- 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6
- 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289
- 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494
- E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B
- 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F
- BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26
- 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD
- 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A
- 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0
- D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57
- 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1
- 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117
- BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C
- 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260
- E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D
- B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94
- F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40
- D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6
- D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB
- 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763
- D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23
- 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593
- BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27
- 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF
- 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC
- 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A
- 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082}
- Name = 'PngImage19'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD252000001B74944415478DA
- B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434
- BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31
- 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47
- 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60
- F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B
- 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284
- C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D
- 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4
- 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C
- B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5
- D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3
- 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555
- 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE
- F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E
- 44AE426082}
- Name = 'PngImage20'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD2520000018C4944415478DA
- 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E
- 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F
- C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1
- 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414
- 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB
- FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE
- 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3
- FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F
- 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397
- FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD
- BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5
- EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01
- 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082}
- Name = 'PngImage21'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD252000001684944415478DA
- 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382
- 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58
- F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30
- 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7
- C0918C0EC8B200D9F0BF50FCE7DF3F8623E71F307CFDF695E1EDDBB76075F396
- 6E22DD025C86A3B337EF3D45BA05C41AFE0F18275B0F9C26CD02520C07A9DB71
- E80CF116906A3848DD9EA3E788B3801CC341FCFD272E10B60096C6C106FCFF4F
- B4E1207CE8F425FC1644789AC20DC7662818FFFB8FD311C7CE5EC16F41A89B09
- 4986A3AB3B7DF13A7E0B829C8DC8361C449FBB7213BF057E8E06641B0EC217AF
- DFC66F81B79D1ED98683D45DB97907BF051ED63A641B0E02042D70B1D422DB70
- A22CB03755C799C6B1E50964C389B2C0C648155C225202F05A80ADF22007C02C
- 0000E2A9A9FE0847986E0000000049454E44AE426082}
- Name = 'PngImage22'
- Background = clWindow
- end
- item
- PngImage.Data = {
- 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
- F80000000970485973000017120000171201679FD252000003034944415478DA
- ADD46F4813611C07F0EF392446538B289908A6537314FE4926362B933433536C
- 1619F52202A1DEF8C250DF0596BD890489CC28EA456064E6D49588A583569BF8
- 27752ACE7F399550D3B09C9BD23677DD5DDD799BCBCCF983C1EE9EBBEFE7F9F1
- DCF31035EFF424D6A9EC9428021E1441038AE448B783CAE65E94DC7D88EEA68A
- 4D23FF040E458720FD52E15F11694E9DD9F0224BF45F80328480628CE43A60CB
- 15397051B564B5DA85C3D50A62C380512E86509E0E9DF2094E196CB0DAECD46F
- 05272E1438017478464AB4B04AD58E31E5D98D016C388C6AE65AD76D4442BB09
- D58D5A3CAD5471001B1E112AC6B36AAD616CE29B3F4992361F91B0746864BADE
- DA9E3BBC06700D678B46A68A1B39801FCEAF51E31C6A1A3E59C627E7066DB695
- F3B68EDCCF1C107323D56D381F2909BF06EBAE93665954B0282941CA8DD9571C
- 004960D1628379C98EAA5A5D7DBF61E2384922103D57179C3B100BDD86F33B08
- CAA8215393A48E84B8302F7ABCB85485A3F15248820360595E81D962EFB9FFA8
- 76861A7A4301E50C9091B89F59C8D9E42027840E0F69F8828F9D7D4E6B4023FB
- C2F62C9F498B1516DDAAC64E3FD1A240E0253A228F2604DEDBF0AA565D643299
- 6514708E0152E511DCD7B29419CE206CF84FEA7E87DEE004B088404058A6BFFE
- D8BEDC7A85F0963D9644848B151249C49DE1D1C9DB0303C3E91410C30049B250
- 269C45F4C77673E1D4770EBD618403F8474BFEBD51CCCC7EC7F31219D77561B9
- 11FE01C1953A5D6B3605089917E22383A06C6AC57AC507F8FB666FA612E32A05
- 777DBD4C8BD71FE6313236050A209817F8BB75BD7207B856C5CB0E1494F5530B
- 6EFD0D6C2899576E81852EC0EF201C0E1275EA3EDC2C7F0BFDB80F62FCF5F01C
- A0C307F3A0516B1197BF7AB49CCE6B8275AE790B80B6C380AF96F93BD402ECC8
- 3131487D731BB36E9E017F66CF029A3A20F8F23CD341E3FBCE2D0078B3678BEE
- C2913683165DB78780CBECD9A2BBF0CD5ADDFD9B02E8A3C5BB2B714D381FE90D
- 6CF4A003991D9A07B1EB3EE711401F2D952ACD3F9FDD34B0D19D4FD72F7A80FE
- E871245F980000000049454E44AE426082}
- Name = 'PngImage23'
- Background = clWindow
- end>
- Bitmap = {}
- end
- inherited GridPopupMenu: TPopupMenu
- object N4: TMenuItem [8]
- Caption = '-'
- end
- object Volcaradisco1: TMenuItem [9]
- Action = actVolcarDisco
- end
- end
-end
diff --git a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas b/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas
deleted file mode 100644
index ef8c6669..00000000
Binary files a/Source/Modulos/Comisiones/Views/uEditorRemesasCliente.pas and /dev/null differ
diff --git a/Source/Modulos/Comisiones/Views/uViewComision.dfm b/Source/Modulos/Comisiones/Views/uViewComision.dfm
index 0a0ffc35..5e8eab94 100644
--- a/Source/Modulos/Comisiones/Views/uViewComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewComision.dfm
@@ -1,6 +1,6 @@
inherited frViewComision: TfrViewComision
- Width = 451
- Height = 130
+ Width = 473
+ Height = 128
Align = alClient
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
@@ -9,17 +9,18 @@ inherited frViewComision: TfrViewComision
object dxLayoutControlComision: TdxLayoutControl
Left = 0
Top = 0
- Width = 451
- Height = 130
+ Width = 473
+ Height = 128
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth]
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitHeight = 304
+ ExplicitWidth = 451
+ ExplicitHeight = 113
DesignSize = (
- 451
- 130)
+ 473
+ 128)
object eReferencia: TcxDBTextEdit
Left = 85
Top = 30
@@ -64,7 +65,7 @@ inherited frViewComision: TfrViewComision
Width = 108
end
object edtFecha: TcxDBDateEdit
- Left = 275
+ Left = 287
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA'
@@ -98,7 +99,7 @@ inherited frViewComision: TfrViewComision
end>
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
- Properties.ListOptions.SyncMode = True
+ Properties.ListOptions.SyncMode = True
Properties.ListSource = dsAgentes
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -147,6 +148,7 @@ inherited frViewComision: TfrViewComision
end
object dxLayoutControlComisionItem1: TdxLayoutItem
Caption = 'Agente:'
+ Visible = False
Control = cbAgente
ControlOptions.ShowBorder = False
end
diff --git a/Source/Modulos/Comisiones/Views/uViewComision.pas b/Source/Modulos/Comisiones/Views/uViewComision.pas
index 6a83cdce..62816646 100644
--- a/Source/Modulos/Comisiones/Views/uViewComision.pas
+++ b/Source/Modulos/Comisiones/Views/uViewComision.pas
@@ -11,7 +11,8 @@ uses
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uComisionesController, cxSpinEdit, cxCurrencyEdit,
uBizComisiones, cxCalendar,
- dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
+ dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
+ uDAInterfaces;
type
IViewComision = interface(IViewBase)
@@ -48,7 +49,9 @@ implementation
{$R *.dfm}
uses
- uDataModuleUsuarios, uAgentesController, uBizContactos;
+ uDataModuleUsuarios,
+ //uAgentesController,
+ uBizContactos;
{ TfrViewComisions }
@@ -64,12 +67,12 @@ begin
end;
procedure TfrViewComision.CustomViewShow(Sender: TObject);
-Var
- AAgentes: IBizContacto;
- FAgentesController: IAgentesController;
+//Var
+// AAgentes: IBizContacto;
+// FAgentesController: IAgentesController;
begin
inherited;
- try
+{ try
FAgentesController := TAgentesController.Create;
AAgentes := FAgentesController.BuscarTodos;
AAgentes.DataTable.Active := True;
@@ -78,6 +81,7 @@ begin
AAgentes := Nil;
FAgentesController := Nil;
end;
+}
end;
function TfrViewComision.GetComision: IBizComisiones;
diff --git a/Source/Modulos/Comisiones/Views/uViewComisiones.dfm b/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
index dd58e353..e62f2680 100644
--- a/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewComisiones.dfm
@@ -9,7 +9,7 @@ inherited frViewComisiones: TfrViewComisiones
Position = spFooter
Column = cxGridViewIMPORTE_TOTAL
end>
- DataController.Summary.FooterSummaryItems = <
+ DataController.Summary.FooterSummaryItems = <
item
Format = '0 almacenes'
Kind = skCount
@@ -32,11 +32,13 @@ inherited frViewComisiones: TfrViewComisiones
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
- Width = 130
+ Width = 80
end
object cxGridViewAGENTE: TcxGridDBColumn
Caption = 'Agente'
DataBinding.FieldName = 'NOMBRE'
+ Visible = False
+ VisibleForCustomization = False
Width = 77
end
object cxGridViewFECHA: TcxGridDBColumn
@@ -47,7 +49,7 @@ inherited frViewComisiones: TfrViewComisiones
object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Descripci'#243'n'
DataBinding.FieldName = 'DESCRIPCION'
- Width = 97
+ Width = 400
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe'
@@ -56,7 +58,7 @@ inherited frViewComisiones: TfrViewComisiones
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
- Width = 165
+ Width = 200
end
end
end
@@ -78,6 +80,9 @@ inherited frViewComisiones: TfrViewComisiones
end
end
end
+ inherited pnlAgrupaciones: TTBXDockablePanel
+ ExplicitWidth = 554
+ end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000
diff --git a/Source/Modulos/Comisiones/Views/uViewComisiones.pas b/Source/Modulos/Comisiones/Views/uViewComisiones.pas
index f3b32d6c..d7f44cb2 100644
Binary files a/Source/Modulos/Comisiones/Views/uViewComisiones.pas and b/Source/Modulos/Comisiones/Views/uViewComisiones.pas differ
diff --git a/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm b/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
index 20999122..3201d2a6 100644
--- a/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
+++ b/Source/Modulos/Comisiones/Views/uViewFacturasComision.dfm
@@ -10,7 +10,6 @@ inherited frViewFacturasComision: TfrViewFacturasComision
ExplicitWidth = 549
ExplicitHeight = 351
inherited cxGridView: TcxGridDBTableView
- DataController.KeyFieldNames = 'ID_FACTURA;ID_PROVEEDOR'
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
@@ -18,7 +17,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
- Column = cxGridViewIMPORTE_COMISION
+ Column = cxGridViewBASE_IMPONIBLE
end>
OptionsCustomize.ColumnMoving = True
OptionsData.Appending = False
@@ -28,38 +27,27 @@ inherited frViewFacturasComision: TfrViewFacturasComision
OptionsData.Inserting = False
OptionsView.Footer = True
OptionsView.GroupFooters = gfAlwaysVisible
- inherited cxGridViewID: TcxGridDBColumn
- DataBinding.FieldName = ''
- IsCaptionAssigned = True
- end
- object cxGridViewRecID: TcxGridDBColumn
+ object cxGridViewRecID: TcxGridDBColumn [0]
DataBinding.FieldName = 'RecID'
Visible = False
+ VisibleForCustomization = False
+ end
+ inherited cxGridViewID: TcxGridDBColumn
+ VisibleForCustomization = False
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Visible = False
- end
- object cxGridViewID_AGENTE: TcxGridDBColumn
- DataBinding.FieldName = 'ID_AGENTE'
- Visible = False
- end
- object cxGridViewID_FACTURA: TcxGridDBColumn
- DataBinding.FieldName = 'ID_FACTURA'
- Visible = False
+ VisibleForCustomization = False
end
object cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn
DataBinding.FieldName = 'ID_COMISION_LIQUIDADA'
Visible = False
- end
- object cxGridViewAGENTE: TcxGridDBColumn
- Caption = 'Agente'
- DataBinding.FieldName = 'AGENTE'
- Visible = False
+ VisibleForCustomization = False
end
object cxGridViewFECHA: TcxGridDBColumn
Caption = 'Fecha factura'
- DataBinding.FieldName = 'FECHA'
+ DataBinding.FieldName = 'FECHA_FACTURA'
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Ref. factura'
@@ -68,38 +56,22 @@ inherited frViewFacturasComision: TfrViewFacturasComision
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n factura'
DataBinding.FieldName = 'SITUACION'
+ Visible = False
+ VisibleForCustomization = False
end
object cxGridViewID_CLIENTE: TcxGridDBColumn
DataBinding.FieldName = 'ID_CLIENTE'
Visible = False
+ VisibleForCustomization = False
end
object cxGridViewCLIENTE: TcxGridDBColumn
- Caption = 'Cliente'
- DataBinding.FieldName = 'CLIENTE'
+ Caption = 'Raz'#243'n social'
+ DataBinding.FieldName = 'NOMBRE'
end
- object cxGridViewID_PROVEEDOR: TcxGridDBColumn
- DataBinding.FieldName = 'ID_PROVEEDOR'
- Visible = False
- end
- object cxGridViewPROVEEDOR: TcxGridDBColumn
- Caption = 'Proveedor'
- DataBinding.FieldName = 'PROVEEDOR'
- end
- object cxGridViewIMPORTE_COMISIONABLE: TcxGridDBColumn
- Caption = 'Importe comisionable'
- DataBinding.FieldName = 'IMPORTE_COMISIONABLE'
- end
- object cxGridViewCOMISION: TcxGridDBColumn
- Caption = 'Porcentaje'
- DataBinding.FieldName = 'COMISION'
- PropertiesClassName = 'TcxSpinEditProperties'
- Properties.Alignment.Horz = taRightJustify
- Properties.DisplayFormat = '0.0 %;-0.0 %'
- Properties.MaxValue = 100.000000000000000000
- end
- object cxGridViewIMPORTE_COMISION: TcxGridDBColumn
- Caption = 'Importe comisi'#243'n'
- DataBinding.FieldName = 'IMPORTE_COMISION'
+ object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
+ Caption = 'Base imponible'
+ DataBinding.FieldName = 'BASE_IMPONIBLE'
+ HeaderAlignmentHorz = taRightJustify
end
end
end
@@ -120,13 +92,13 @@ inherited frViewFacturasComision: TfrViewFacturasComision
end
object ToolButton3: TToolButton
Left = 336
- Top = 2
+ Top = 0
Action = actExpandir
AutoSize = True
end
object ToolButton8: TToolButton
Left = 434
- Top = 2
+ Top = 0
Action = actContraer
AutoSize = True
end
diff --git a/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas b/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
index 668698dc..8015d8b4 100644
--- a/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
+++ b/Source/Modulos/Comisiones/Views/uViewFacturasComision.pas
@@ -10,7 +10,7 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
- dxLayoutControl;
+ dxLayoutControl, uDAInterfaces;
type
IViewFacturasComision = interface
@@ -27,20 +27,13 @@ type
TfrViewFacturasComision = class(TfrViewDetallesGenerico, IViewFacturasComision)
cxGridViewRecID: TcxGridDBColumn;
cxGridViewID_EMPRESA: TcxGridDBColumn;
- cxGridViewID_AGENTE: TcxGridDBColumn;
- cxGridViewAGENTE: TcxGridDBColumn;
- cxGridViewID_FACTURA: TcxGridDBColumn;
cxGridViewID_COMISION_LIQUIDADA: TcxGridDBColumn;
cxGridViewFECHA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewID_CLIENTE: TcxGridDBColumn;
cxGridViewCLIENTE: TcxGridDBColumn;
- cxGridViewID_PROVEEDOR: TcxGridDBColumn;
- cxGridViewPROVEEDOR: TcxGridDBColumn;
- cxGridViewCOMISION: TcxGridDBColumn;
- cxGridViewIMPORTE_COMISIONABLE: TcxGridDBColumn;
- cxGridViewIMPORTE_COMISION: TcxGridDBColumn;
+ cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
actExpandir: TAction;
actContraer: TAction;
ToolButton3: TToolButton;
@@ -141,11 +134,7 @@ end;
procedure TfrViewFacturasComision.EliminarInterno;
begin
- if cxGridView.Controller.SelectedRowCount > 0 then
- if cxGridView.Controller.SelectedRows[0].HasCells then
-// ViewGrid._FocusedView.Controller.SelectedRecordCount
- FController.EliminarFactura(Comision);
- Modified := True;
+ inherited;
end;
function TfrViewFacturasComision.GetController: IComisionesController;
diff --git a/Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm b/Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
new file mode 100644
index 00000000..8c3f54f3
--- /dev/null
+++ b/Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
@@ -0,0 +1,238 @@
+inherited frViewVendedoresComision: TfrViewVendedoresComision
+ Width = 549
+ Height = 150
+ OnShow = CustomViewShow
+ ExplicitWidth = 549
+ ExplicitHeight = 150
+ inherited cxGrid: TcxGrid
+ Width = 549
+ Height = 125
+ ExplicitWidth = 549
+ ExplicitHeight = 125
+ inherited cxGridView: TcxGridDBTableView
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Format = ',0.00 '#8364';-,0.00 '#8364
+ Kind = skSum
+ Column = cxGridViewIMPORTE_TOTAL
+ end
+ item
+ Format = '0 Vendedores'
+ Kind = skCount
+ Column = cxGridViewNOMBRE
+ end>
+ OptionsCustomize.ColumnMoving = True
+ OptionsData.Appending = False
+ OptionsData.CancelOnExit = True
+ OptionsData.Deleting = False
+ OptionsData.Editing = False
+ OptionsData.Inserting = False
+ OptionsView.Footer = True
+ OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewRecID: TcxGridDBColumn [0]
+ DataBinding.FieldName = 'RecID'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ inherited cxGridViewID: TcxGridDBColumn
+ DataBinding.FieldName = ''
+ VisibleForCustomization = False
+ IsCaptionAssigned = True
+ end
+ object cxGridViewID_COMISION: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_COMISION'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewID_VENDEDOR: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_VENDEDOR'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewNOMBRE: TcxGridDBColumn
+ DataBinding.FieldName = 'NOMBRE'
+ end
+ object cxGridViewCOMISION: TcxGridDBColumn
+ Caption = 'Comisi'#243'n'
+ DataBinding.FieldName = 'COMISION'
+ PropertiesClassName = 'TcxSpinEditProperties'
+ Properties.Alignment.Horz = taRightJustify
+ Properties.DisplayFormat = '0.0 %;-0.0 %'
+ Properties.MaxValue = 100.000000000000000000
+ HeaderAlignmentHorz = taRightJustify
+ end
+ object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
+ Caption = 'Importe total'
+ DataBinding.FieldName = 'IMPORTE_TOTAL'
+ HeaderAlignmentHorz = taRightJustify
+ end
+ end
+ end
+ inherited ToolBar1: TToolBar
+ Width = 549
+ ExplicitWidth = 549
+ inherited ToolButton1: TToolButton
+ ExplicitWidth = 62
+ end
+ inherited ToolButton4: TToolButton
+ ExplicitWidth = 74
+ end
+ inherited ToolButton2: TToolButton
+ ExplicitWidth = 67
+ end
+ inherited ToolButton7: TToolButton
+ ExplicitWidth = 117
+ end
+ object ToolButton3: TToolButton
+ Left = 336
+ Top = 0
+ Action = actExpandir
+ AutoSize = True
+ end
+ object ToolButton8: TToolButton
+ Left = 434
+ Top = 0
+ Action = actContraer
+ AutoSize = True
+ end
+ end
+ inherited dsDetalles: TDADataSource
+ Left = 72
+ Top = 80
+ end
+ inherited ContenidoImageList: TPngImageList
+ PngImages = <
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000F84944415478DA
+ 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA
+ 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4
+ 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F
+ FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF
+ 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911
+ BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4
+ 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B
+ 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945
+ 4E44AE426082}
+ Name = 'PngImage0'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA
+ A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304
+ 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994
+ 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F
+ 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546
+ 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8
+ 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA
+ 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E
+ 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8
+ E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0
+ 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8
+ 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37
+ 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB
+ 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932
+ 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04
+ E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148
+ D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2
+ 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56
+ A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E
+ AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13
+ 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058
+ 5538F0EAB25B380000000049454E44AE426082}
+ Name = 'PngImage1'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD2520000015D4944415478DA
+ 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0
+ 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060
+ 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298
+ E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0
+ 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161
+ 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319
+ 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5
+ BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068
+ 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2
+ E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41
+ 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500
+ 00000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000001124944415478DA
+ 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28
+ 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC
+ 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2
+ 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81
+ 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC
+ E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC
+ 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5
+ CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818
+ 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000DF4944415478DA
+ 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B
+ 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA
+ CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0
+ 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501
+ F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9
+ 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF
+ FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1
+ 6B0000000049454E44AE426082}
+ Name = 'PngImage4'
+ Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 610000000970485973000017120000171201679FD252000000914944415478DA
+ 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312
+ FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB
+ EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE
+ 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8
+ 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082}
+ Name = 'PngImage5'
+ Background = clWindow
+ end>
+ Bitmap = {}
+ end
+ inherited ActionListContenido: TActionList
+ inherited actModificar: TAction
+ Enabled = False
+ Visible = False
+ end
+ object actExpandir: TAction
+ Category = 'Operaciones'
+ Caption = 'Expandir todo'
+ ImageIndex = 4
+ Visible = False
+ OnExecute = actExpandirExecute
+ OnUpdate = actExpandirUpdate
+ end
+ object actContraer: TAction
+ Category = 'Operaciones'
+ Caption = 'Contraer todo'
+ ImageIndex = 5
+ Visible = False
+ OnExecute = actContraerExecute
+ OnUpdate = actContraerUpdate
+ end
+ end
+end
diff --git a/Source/Modulos/Comisiones/Views/uViewVendedoresComision.pas b/Source/Modulos/Comisiones/Views/uViewVendedoresComision.pas
new file mode 100644
index 00000000..223f230c
--- /dev/null
+++ b/Source/Modulos/Comisiones/Views/uViewVendedoresComision.pas
@@ -0,0 +1,183 @@
+unit uViewVendedoresComision;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
+ cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
+ uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView,
+ cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+ cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleComisiones,
+ uBizComisiones, uComisionesController, Grids, DBGrids, cxSpinEdit,
+ dxLayoutControl, uDAInterfaces, StdCtrls;
+
+type
+ IViewVendedoresComision = interface
+ ['{06705772-409C-4094-ABB3-F13E10D5B743}']
+ function GetComision: IBizComisiones;
+ procedure SetComision(const Value: IBizComisiones);
+ property Comision: IBizComisiones read GetComision write SetComision;
+
+ function GetController : IComisionesController;
+ procedure SetController (const Value : IComisionesController);
+ property Controller : IComisionesController read GetController write SetController;
+ end;
+
+ TfrViewVendedoresComision = class(TfrViewDetallesGenerico, IViewVendedoresComision)
+ cxGridViewRecID: TcxGridDBColumn;
+ cxGridViewID_COMISION: TcxGridDBColumn;
+ cxGridViewID_VENDEDOR: TcxGridDBColumn;
+ cxGridViewNOMBRE: TcxGridDBColumn;
+ cxGridViewCOMISION: TcxGridDBColumn;
+ cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
+ actExpandir: TAction;
+ actContraer: TAction;
+ ToolButton3: TToolButton;
+ ToolButton8: TToolButton;
+ procedure actExpandirExecute(Sender: TObject);
+ procedure actContraerExecute(Sender: TObject);
+ procedure CustomViewShow(Sender: TObject);
+ procedure actEliminarUpdate(Sender: TObject);
+ procedure actExpandirUpdate(Sender: TObject);
+ procedure actContraerUpdate(Sender: TObject);
+ procedure Button1Click(Sender: TObject);
+ protected
+ FHayCambios : Boolean;
+ FComision : IBizComisiones;
+ FController : IComisionesController;
+
+ procedure AnadirInterno; override;
+ procedure EliminarInterno; override;
+
+ function GetComision: IBizComisiones;
+ procedure SetComision(const Value: IBizComisiones);
+
+ function GetModified: Boolean; override;
+ procedure SetModified(const Value: Boolean); override;
+
+ function GetController : IComisionesController;
+ procedure SetController (const Value : IComisionesController);
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ property Comision: IBizComisiones read GetComision write SetComision;
+ property Controller : IComisionesController read GetController write SetController;
+ end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+ uCustomView;
+
+{ TfrViewVendedoresComision }
+
+procedure TfrViewVendedoresComision.actContraerExecute(Sender: TObject);
+begin
+ inherited;
+ cxGridView.ViewData.Collapse(True);
+end;
+
+procedure TfrViewVendedoresComision.actContraerUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewVendedoresComision.actEliminarUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0)
+ and (cxGridView.Controller.SelectedRows[0].HasCells));
+end;
+
+procedure TfrViewVendedoresComision.actExpandirExecute(Sender: TObject);
+begin
+ inherited;
+ cxGridView.ViewData.Expand(True);
+end;
+
+procedure TfrViewVendedoresComision.actExpandirUpdate(Sender: TObject);
+begin
+ inherited;
+ (Sender as TAction).Enabled := HayDatos;
+end;
+
+procedure TfrViewVendedoresComision.AnadirInterno;
+begin
+ //inherited; // No hacer el comportamiento normal
+ if FController.ElegirVendedoresComision(Comision) then
+ Modified := True;
+end;
+
+procedure TfrViewVendedoresComision.Button1Click(Sender: TObject);
+begin
+ inherited;
+ dsDetalles.DataTable.Active := true;
+end;
+
+constructor TfrViewVendedoresComision.Create(AOwner: TComponent);
+begin
+ inherited;
+ FHayCambios := False;
+end;
+
+procedure TfrViewVendedoresComision.CustomViewShow(Sender: TObject);
+begin
+ inherited;
+ cxGridView.OptionsSelection.MultiSelect := False;
+end;
+
+destructor TfrViewVendedoresComision.Destroy;
+begin
+ inherited;
+end;
+
+procedure TfrViewVendedoresComision.EliminarInterno;
+begin
+ inherited;
+end;
+
+function TfrViewVendedoresComision.GetController: IComisionesController;
+begin
+ Result := FController;
+end;
+
+function TfrViewVendedoresComision.GetModified: Boolean;
+begin
+ Result := FHayCambios or inherited GetModified;
+end;
+
+function TfrViewVendedoresComision.GetComision: IBizComisiones;
+begin
+ Result := FComision;
+end;
+
+procedure TfrViewVendedoresComision.SetController(const Value: IComisionesController);
+begin
+ FController := Value;
+end;
+
+procedure TfrViewVendedoresComision.SetModified(const Value: Boolean);
+begin
+ FHayCambios := Value;
+ inherited;
+end;
+
+procedure TfrViewVendedoresComision.SetComision(const Value: IBizComisiones);
+begin
+ FComision := Value;
+ FHayCambios := False;
+
+ if Assigned(FComision) then
+ dsDetalles.DataTable := FComision.Vendedores.DataTable
+ else
+ dsDetalles.DataTable := NIL;
+
+ actAnchoAutomatico.Execute;
+end;
+
+end.