diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 1af48716..b3f61184 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -54,7 +54,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1270FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.2.7.0FactuGESFactuGES1.2.7.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1280FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.2.8.0FactuGESFactuGES1.2.7.0
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 65be8778..888287fe 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 1,2,7,0
-PRODUCTVERSION 1,2,7,0
+FILEVERSION 1,2,8,0
+PRODUCTVERSION 1,2,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "1.2.7.0\0"
+ VALUE "FileVersion", "1.2.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.2.7.0\0"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 8a0366fc..394ee788 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
index d0fe2d13..37b07977 100644
--- a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
+++ b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf199.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A0.tmp */
diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
index 9e1bf5c2..25ff04e0 100644
--- a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
+++ b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf197.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf29E.tmp */
diff --git a/Source/Modulos/Inventario/Controller/View/uIEditorDetalleReservas.pas b/Source/Modulos/Inventario/Controller/View/uIEditorDetalleReservas.pas
index bba1d210..ea7f29ae 100644
--- a/Source/Modulos/Inventario/Controller/View/uIEditorDetalleReservas.pas
+++ b/Source/Modulos/Inventario/Controller/View/uIEditorDetalleReservas.pas
@@ -3,11 +3,15 @@ unit uIEditorDetalleReservas;
interface
uses
- uEditorGridBase, uBizInventario;
+ uEditorGridBase, uBizInventario, uInventarioController;
type
IEditorDetalleReservas = interface(IEditorGridBase)
['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}']
+ function GetController : IInventarioController;
+ procedure SetController (const Value : IInventarioController);
+ property Controller : IInventarioController read GetController write SetController;
+
function GetDetalleReservas: IBizDetalleReservas;
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas
index 90ba48b1..8d127067 100644
--- a/Source/Modulos/Inventario/Controller/uInventarioController.pas
+++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas
@@ -29,7 +29,8 @@ type
function BuscarTodosObras: IBizInventario;
function Buscar(const ID_ALMACEN: Integer): IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas;
- function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario;
+ function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
+ function ExtraerSeleccionados(AArticulos: IBizDetalleReservas) : IBizDetalleReservas; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario);
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String): Boolean;
@@ -38,6 +39,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
+ procedure CancelarReservas(AReservas: IBizDetalleReservas);
function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean;
function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@@ -55,7 +57,7 @@ type
TInventarioController = class(TControllerBase, IInventarioController)
private
FAlmacenesController: IAlmacenesController;
- FObrasController: IObrasController;
+ FObrasController: IObrasController;
FArticulosController : IArticulosInventarioController;
FPresupuestosClienteController : IPresupuestosClienteController;
FPedidosProveedorController : IPedidosProveedorController;
@@ -117,7 +119,8 @@ type
function BuscarTodosObras: IBizInventario;
function BuscarDetalleReservas: IBizDetalleReservas;
function ElegirArticulos(AArticulos : IBizInventario; AMensaje: String; AMultiSelect: Boolean): IBizInventario;
- function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario;
+ function ExtraerSeleccionados(AArticulos: IBizInventario) : IBizInventario; overload;
+ function ExtraerSeleccionados(AArticulos: IBizDetalleReservas) : IBizDetalleReservas; overload;
procedure Anadir(AArticulos, AInventario : IBizInventario);
function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
@@ -126,6 +129,7 @@ type
procedure SalidaArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer);
procedure TrasladarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
procedure ReservarArticulosLibre(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; Const CodigoAlmacenDestino: Integer);
+ procedure CancelarReservas(AReservas: IBizDetalleReservas);
function EntradaPedido(AInventario: IBizInventario; APedido: IBizPedidoProveedor; ADetalles: IDAStronglyTypedDataTable; var ADetallesFinal: IBizInventario): Boolean;
function SalidaAlbaran(AInventario: IBizInventario; Const CodigoAlmacenOrigen: Integer; ADetalles: IDAStronglyTypedDataTable): Boolean;
@@ -254,6 +258,18 @@ begin
end;
end;
+procedure TInventarioController.CancelarReservas(AReservas: IBizDetalleReservas);
+begin
+ ShowHourglassCursor;
+ try
+ AReservas.DataTable.ClearRows;
+ AReservas.DataTable.ApplyUpdates;
+ HideHourglassCursor;
+ finally
+//
+ end;
+end;
+
procedure TInventarioController.Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario);
{
Procedimiento que copia en AArticulos, todos los detalles pasados por parametro ADetalles
@@ -545,10 +561,10 @@ begin
if Assigned(AEditor) then
with AEditor do
begin
- // Controller := Self; //OJO ORDEN MUY IMPORTANTE
+ Controller := Self; //OJO ORDEN MUY IMPORTANTE
DetalleReservas := FDataModule.GetDetalleReservas;
Articulo := AArticulo;
- // MultiSelect := False;
+ MultiSelect := True;
ShowModal;
Release;
end;
@@ -640,6 +656,15 @@ begin
Result := Ver(AArticulos, AInventario, APedido);
end;
+function TInventarioController.ExtraerSeleccionados(AArticulos: IBizDetalleReservas): IBizDetalleReservas;
+var
+ ASeleccionados : IBizDetalleReservas;
+begin
+ ASeleccionados := (FDataModule as IDataModuleInventario).GetDetalleReservasVacio;
+ CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
+ Result := ASeleccionados;
+end;
+
{procedure TInventarioController.RecibirArticulos(const APedido: IBizPedidoProveedor; const CodigoAlmacenDes: Integer);
{var
AArticulos: IBizInventario;
diff --git a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm b/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
index c975cd1a..2e1d187d 100644
--- a/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
+++ b/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
@@ -27,102 +27,77 @@ inherited DataModuleInventario: TDataModuleInventario
RemoteUpdatesOptions = []
Fields = <
item
- Name = 'ID_ALB'
+ Name = 'ID'
DataType = datInteger
- DisplayLabel = 'IdAlbaran'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- DisplayLabel = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end
item
- Name = 'REFERENCIA_ALB'
+ Name = 'ID_ALMACEN'
+ DataType = datInteger
+ end
+ item
+ Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
- DisplayLabel = 'Ref. albar'#195#161'n'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
- Name = 'SITUACION_ALB'
- DataType = datString
- Size = 9
- DisplayLabel = 'Situaci'#195#179'n'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
- end
- item
- Name = 'FECHA_PREVISTA_ENVIO_ALB'
+ Name = 'FECHA_RESERVA'
DataType = datDateTime
- DisplayLabel = 'Fecha prevista de envio'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end
item
- Name = 'ID_ALMACEN_ALB'
+ Name = 'CAUSA_RESERVA'
+ DataType = datString
+ Size = 2000
+ end
+ item
+ Name = 'ID_ARTICULO'
DataType = datInteger
- DisplayLabel = 'IdAlmac'#195#169'n'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
- Name = 'ALMACEN_ALB'
+ Name = 'REFERENCIA'
DataType = datString
Size = 255
- DisplayLabel = 'Almac'#195#169'n'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
item
- Name = 'ID_CLIENTE_ALB'
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FAMILIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'UNIDAD_MEDIDA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FABRICANTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REFERENCIA_FABR'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CANTIDAD'
DataType = datInteger
- DisplayLabel = 'IdCliente'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end
item
- Name = 'CLIENTE_ALB'
- DataType = datString
- Size = 255
- DisplayLabel = 'Cliente'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
- end
- item
- Name = 'ID_ART'
+ Name = 'ID_ALMACEN_RESERVA'
DataType = datInteger
- DisplayLabel = 'IdArticulo'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end
item
- Name = 'FAMILIA_ART'
+ Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString
Size = 255
- DisplayLabel = 'Familia'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
- end
- item
- Name = 'REFERENCIA_ART'
- DataType = datString
- Size = 255
- DisplayLabel = 'Referencia'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
- end
- item
- Name = 'REFERENCIA_PROV_ART'
- DataType = datString
- Size = 255
- DisplayLabel = 'Ref. proveedor'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
- end
- item
- Name = 'DESCRIPCION_ART'
- DataType = datString
- Size = 255
- DisplayLabel = 'Descripci'#195#179'n'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
- end
- item
- Name = 'CANTIDAD_ART'
- DataType = datLargeInt
- DisplayLabel = 'Reservado'
- DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Inventario/Data/uDataModuleInventario.pas b/Source/Modulos/Inventario/Data/uDataModuleInventario.pas
index 8c085b9b..ee72bc0b 100644
--- a/Source/Modulos/Inventario/Data/uDataModuleInventario.pas
+++ b/Source/Modulos/Inventario/Data/uDataModuleInventario.pas
@@ -24,6 +24,7 @@ type
function GetItems : IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
function GetDetalleReservas: IBizDetalleReservas;
+ function GetDetalleReservasVacio: IBizDetalleReservas;
end;
implementation
@@ -56,6 +57,25 @@ begin
end;
end;
+function TDataModuleInventario.GetDetalleReservasVacio: IBizDetalleReservas;
+begin
+ ShowHourglassCursor;
+ try
+ Result := Self.GetDetalleReservas;
+ with Result.DataTable.Where do
+ begin
+ if NotEmpty then
+ AddOperator(opAND);
+
+ OpenBraket;
+ AddText(fld_DetalleReservasID + ' = ' + IntToStr(ID_NULO));
+ CloseBraket;
+ end;
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario;
var
Condicion: TDAWhereExpression;
diff --git a/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas b/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas
index faf82231..217abd4c 100644
--- a/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas
+++ b/Source/Modulos/Inventario/Model/Data/uIDataModuleInventario.pas
@@ -10,7 +10,8 @@ type
['{50AFDC00-4F91-4BC3-BB8A-1F53937BF9A6}']
function GetItems: IBizInventario; overload;
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
- function GetDetalleReservas: IBizDetalleReservas;
+ function GetDetalleReservas: IBizDetalleReservas;
+ function GetDetalleReservasVacio: IBizDetalleReservas;
end;
implementation
diff --git a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
index 102a4ba4..bb060f18 100644
--- a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
+++ b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas
@@ -3,14 +3,14 @@ unit schInventarioClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, 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_Inventario = '{951489E3-A84E-48C4-8B21-AF96F561FD48}';
- RID_DetalleReservas = '{A2121200-525B-47F4-BF33-48716EE21720}';
+ RID_Inventario = '{9DBC2875-7FEE-44C5-B6F6-36F7228B1ABF}';
+ RID_DetalleReservas = '{9582173C-A3AC-40FC-8465-057DB277739D}';
{ Data table names }
nme_Inventario = 'Inventario';
@@ -59,43 +59,45 @@ const
idx_InventarioID_ALMACEN_RESERVA = 18;
{ DetalleReservas fields }
- fld_DetalleReservasID_ALB = 'ID_ALB';
+ fld_DetalleReservasID = 'ID';
fld_DetalleReservasID_EMPRESA = 'ID_EMPRESA';
- fld_DetalleReservasREFERENCIA_ALB = 'REFERENCIA_ALB';
- fld_DetalleReservasSITUACION_ALB = 'SITUACION_ALB';
- fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 'FECHA_PREVISTA_ENVIO_ALB';
- fld_DetalleReservasID_ALMACEN_ALB = 'ID_ALMACEN_ALB';
- fld_DetalleReservasALMACEN_ALB = 'ALMACEN_ALB';
- fld_DetalleReservasID_CLIENTE_ALB = 'ID_CLIENTE_ALB';
- fld_DetalleReservasCLIENTE_ALB = 'CLIENTE_ALB';
- fld_DetalleReservasID_ART = 'ID_ART';
- fld_DetalleReservasFAMILIA_ART = 'FAMILIA_ART';
- fld_DetalleReservasREFERENCIA_ART = 'REFERENCIA_ART';
- fld_DetalleReservasREFERENCIA_PROV_ART = 'REFERENCIA_PROV_ART';
- fld_DetalleReservasDESCRIPCION_ART = 'DESCRIPCION_ART';
- fld_DetalleReservasCANTIDAD_ART = 'CANTIDAD_ART';
+ fld_DetalleReservasID_ALMACEN = 'ID_ALMACEN';
+ fld_DetalleReservasNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
+ fld_DetalleReservasFECHA_RESERVA = 'FECHA_RESERVA';
+ fld_DetalleReservasCAUSA_RESERVA = 'CAUSA_RESERVA';
+ fld_DetalleReservasID_ARTICULO = 'ID_ARTICULO';
+ fld_DetalleReservasREFERENCIA = 'REFERENCIA';
+ fld_DetalleReservasDESCRIPCION = 'DESCRIPCION';
+ fld_DetalleReservasFAMILIA = 'FAMILIA';
+ fld_DetalleReservasUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
+ fld_DetalleReservasFABRICANTE = 'FABRICANTE';
+ fld_DetalleReservasREFERENCIA_FABR = 'REFERENCIA_FABR';
+ fld_DetalleReservasCANTIDAD = 'CANTIDAD';
+ fld_DetalleReservasID_ALMACEN_RESERVA = 'ID_ALMACEN_RESERVA';
+ fld_DetalleReservasNOMBRE_ALMACEN_RESERVA = 'NOMBRE_ALMACEN_RESERVA';
{ DetalleReservas field indexes }
- idx_DetalleReservasID_ALB = 0;
+ idx_DetalleReservasID = 0;
idx_DetalleReservasID_EMPRESA = 1;
- idx_DetalleReservasREFERENCIA_ALB = 2;
- idx_DetalleReservasSITUACION_ALB = 3;
- idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB = 4;
- idx_DetalleReservasID_ALMACEN_ALB = 5;
- idx_DetalleReservasALMACEN_ALB = 6;
- idx_DetalleReservasID_CLIENTE_ALB = 7;
- idx_DetalleReservasCLIENTE_ALB = 8;
- idx_DetalleReservasID_ART = 9;
- idx_DetalleReservasFAMILIA_ART = 10;
- idx_DetalleReservasREFERENCIA_ART = 11;
- idx_DetalleReservasREFERENCIA_PROV_ART = 12;
- idx_DetalleReservasDESCRIPCION_ART = 13;
- idx_DetalleReservasCANTIDAD_ART = 14;
+ idx_DetalleReservasID_ALMACEN = 2;
+ idx_DetalleReservasNOMBRE_ALMACEN = 3;
+ idx_DetalleReservasFECHA_RESERVA = 4;
+ idx_DetalleReservasCAUSA_RESERVA = 5;
+ idx_DetalleReservasID_ARTICULO = 6;
+ idx_DetalleReservasREFERENCIA = 7;
+ idx_DetalleReservasDESCRIPCION = 8;
+ idx_DetalleReservasFAMILIA = 9;
+ idx_DetalleReservasUNIDAD_MEDIDA = 10;
+ idx_DetalleReservasFABRICANTE = 11;
+ idx_DetalleReservasREFERENCIA_FABR = 12;
+ idx_DetalleReservasCANTIDAD = 13;
+ idx_DetalleReservasID_ALMACEN_RESERVA = 14;
+ idx_DetalleReservasNOMBRE_ALMACEN_RESERVA = 15;
type
{ IInventario }
IInventario = interface(IDAStronglyTypedDataTable)
- ['{F5565441-E42C-46BC-949F-EB70792A7F94}']
+ ['{A7CAFCC8-D9B8-4932-ABF0-3497D4090710}']
{ Property getters and setters }
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
@@ -217,7 +219,7 @@ type
end;
{ TInventarioDataTableRules }
- TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario)
+ TInventarioDataTableRules = class(TDADataTableRules, IInventario)
private
protected
{ Property getters and setters }
@@ -346,200 +348,212 @@ type
{ IDetalleReservas }
IDetalleReservas = interface(IDAStronglyTypedDataTable)
- ['{6574FFB0-AA80-48EE-9752-3601321A30B5}']
+ ['{62277A19-0930-41F8-A5F2-1CBBCDBC009F}']
{ Property getters and setters }
- function GetID_ALBValue: Integer;
- procedure SetID_ALBValue(const aValue: Integer);
- function GetID_ALBIsNull: Boolean;
- procedure SetID_ALBIsNull(const aValue: Boolean);
+ 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 GetREFERENCIA_ALBValue: String;
- procedure SetREFERENCIA_ALBValue(const aValue: String);
- function GetREFERENCIA_ALBIsNull: Boolean;
- procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean);
- function GetSITUACION_ALBValue: String;
- procedure SetSITUACION_ALBValue(const aValue: String);
- function GetSITUACION_ALBIsNull: Boolean;
- procedure SetSITUACION_ALBIsNull(const aValue: Boolean);
- function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
- procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime);
- function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean;
- procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean);
- function GetID_ALMACEN_ALBValue: Integer;
- procedure SetID_ALMACEN_ALBValue(const aValue: Integer);
- function GetID_ALMACEN_ALBIsNull: Boolean;
- procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean);
- function GetALMACEN_ALBValue: String;
- procedure SetALMACEN_ALBValue(const aValue: String);
- function GetALMACEN_ALBIsNull: Boolean;
- procedure SetALMACEN_ALBIsNull(const aValue: Boolean);
- function GetID_CLIENTE_ALBValue: Integer;
- procedure SetID_CLIENTE_ALBValue(const aValue: Integer);
- function GetID_CLIENTE_ALBIsNull: Boolean;
- procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean);
- function GetCLIENTE_ALBValue: String;
- procedure SetCLIENTE_ALBValue(const aValue: String);
- function GetCLIENTE_ALBIsNull: Boolean;
- procedure SetCLIENTE_ALBIsNull(const aValue: Boolean);
- function GetID_ARTValue: Integer;
- procedure SetID_ARTValue(const aValue: Integer);
- function GetID_ARTIsNull: Boolean;
- procedure SetID_ARTIsNull(const aValue: Boolean);
- function GetFAMILIA_ARTValue: String;
- procedure SetFAMILIA_ARTValue(const aValue: String);
- function GetFAMILIA_ARTIsNull: Boolean;
- procedure SetFAMILIA_ARTIsNull(const aValue: Boolean);
- function GetREFERENCIA_ARTValue: String;
- procedure SetREFERENCIA_ARTValue(const aValue: String);
- function GetREFERENCIA_ARTIsNull: Boolean;
- procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean);
- function GetREFERENCIA_PROV_ARTValue: String;
- procedure SetREFERENCIA_PROV_ARTValue(const aValue: String);
- function GetREFERENCIA_PROV_ARTIsNull: Boolean;
- procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean);
- function GetDESCRIPCION_ARTValue: String;
- procedure SetDESCRIPCION_ARTValue(const aValue: String);
- function GetDESCRIPCION_ARTIsNull: Boolean;
- procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
- function GetCANTIDAD_ARTValue: Int64;
- procedure SetCANTIDAD_ARTValue(const aValue: Int64);
- function GetCANTIDAD_ARTIsNull: Boolean;
- procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean);
+ function GetID_ALMACENValue: Integer;
+ procedure SetID_ALMACENValue(const aValue: Integer);
+ function GetID_ALMACENIsNull: Boolean;
+ procedure SetID_ALMACENIsNull(const aValue: Boolean);
+ function GetNOMBRE_ALMACENValue: String;
+ procedure SetNOMBRE_ALMACENValue(const aValue: String);
+ function GetNOMBRE_ALMACENIsNull: Boolean;
+ procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
+ function GetFECHA_RESERVAValue: DateTime;
+ procedure SetFECHA_RESERVAValue(const aValue: DateTime);
+ function GetFECHA_RESERVAIsNull: Boolean;
+ procedure SetFECHA_RESERVAIsNull(const aValue: Boolean);
+ function GetCAUSA_RESERVAValue: String;
+ procedure SetCAUSA_RESERVAValue(const aValue: String);
+ function GetCAUSA_RESERVAIsNull: Boolean;
+ procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean);
+ function GetID_ARTICULOValue: Integer;
+ procedure SetID_ARTICULOValue(const aValue: Integer);
+ function GetID_ARTICULOIsNull: Boolean;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetDESCRIPCIONValue: String;
+ procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+ function GetFAMILIAValue: String;
+ procedure SetFAMILIAValue(const aValue: String);
+ function GetFAMILIAIsNull: Boolean;
+ procedure SetFAMILIAIsNull(const aValue: Boolean);
+ function GetUNIDAD_MEDIDAValue: String;
+ procedure SetUNIDAD_MEDIDAValue(const aValue: String);
+ function GetUNIDAD_MEDIDAIsNull: Boolean;
+ procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
+ function GetFABRICANTEValue: String;
+ procedure SetFABRICANTEValue(const aValue: String);
+ function GetFABRICANTEIsNull: Boolean;
+ procedure SetFABRICANTEIsNull(const aValue: Boolean);
+ function GetREFERENCIA_FABRValue: String;
+ procedure SetREFERENCIA_FABRValue(const aValue: String);
+ function GetREFERENCIA_FABRIsNull: Boolean;
+ procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+ function GetCANTIDADValue: Integer;
+ procedure SetCANTIDADValue(const aValue: Integer);
+ function GetCANTIDADIsNull: Boolean;
+ procedure SetCANTIDADIsNull(const aValue: Boolean);
+ function GetID_ALMACEN_RESERVAValue: Integer;
+ procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer);
+ function GetID_ALMACEN_RESERVAIsNull: Boolean;
+ procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
+ function GetNOMBRE_ALMACEN_RESERVAValue: String;
+ procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
+ function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean;
+ procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
{ Properties }
- property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue;
- property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull;
+ 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_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue;
- property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull;
- property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue;
- property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull;
- property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue;
- property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull;
- property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue;
- property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull;
- property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue;
- property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull;
- property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue;
- property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull;
- property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue;
- property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull;
- property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue;
- property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull;
- property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue;
- property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull;
- property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue;
- property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull;
- property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue;
- property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
- property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
- property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
- property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
- property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
+ property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
+ property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
+ property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
+ property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
+ property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
+ property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
+ property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
+ property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+ property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
+ property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+ property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+ property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+ property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+ property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+ property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
+ property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
+ property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
+ property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
+ property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
end;
{ TDetalleReservasDataTableRules }
- TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas)
+ TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas)
private
protected
{ Property getters and setters }
- function GetID_ALBValue: Integer; virtual;
- procedure SetID_ALBValue(const aValue: Integer); virtual;
- function GetID_ALBIsNull: Boolean; virtual;
- procedure SetID_ALBIsNull(const aValue: Boolean); virtual;
+ 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 GetREFERENCIA_ALBValue: String; virtual;
- procedure SetREFERENCIA_ALBValue(const aValue: String); virtual;
- function GetREFERENCIA_ALBIsNull: Boolean; virtual;
- procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual;
- function GetSITUACION_ALBValue: String; virtual;
- procedure SetSITUACION_ALBValue(const aValue: String); virtual;
- function GetSITUACION_ALBIsNull: Boolean; virtual;
- procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual;
- function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual;
- procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual;
- function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual;
- procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_ALMACEN_ALBValue: Integer; virtual;
- procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual;
- function GetID_ALMACEN_ALBIsNull: Boolean; virtual;
- procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual;
- function GetALMACEN_ALBValue: String; virtual;
- procedure SetALMACEN_ALBValue(const aValue: String); virtual;
- function GetALMACEN_ALBIsNull: Boolean; virtual;
- procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_CLIENTE_ALBValue: Integer; virtual;
- procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual;
- function GetID_CLIENTE_ALBIsNull: Boolean; virtual;
- procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual;
- function GetCLIENTE_ALBValue: String; virtual;
- procedure SetCLIENTE_ALBValue(const aValue: String); virtual;
- function GetCLIENTE_ALBIsNull: Boolean; virtual;
- procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_ARTValue: Integer; virtual;
- procedure SetID_ARTValue(const aValue: Integer); virtual;
- function GetID_ARTIsNull: Boolean; virtual;
- procedure SetID_ARTIsNull(const aValue: Boolean); virtual;
- function GetFAMILIA_ARTValue: String; virtual;
- procedure SetFAMILIA_ARTValue(const aValue: String); virtual;
- function GetFAMILIA_ARTIsNull: Boolean; virtual;
- procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_ARTValue: String; virtual;
- procedure SetREFERENCIA_ARTValue(const aValue: String); virtual;
- function GetREFERENCIA_ARTIsNull: Boolean; virtual;
- procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROV_ARTValue: String; virtual;
- procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual;
- function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual;
- function GetDESCRIPCION_ARTValue: String; virtual;
- procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual;
- function GetDESCRIPCION_ARTIsNull: Boolean; virtual;
- procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_ARTValue: Int64; virtual;
- procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual;
- function GetCANTIDAD_ARTIsNull: Boolean; virtual;
- procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACENValue: Integer; virtual;
+ procedure SetID_ALMACENValue(const aValue: Integer); virtual;
+ function GetID_ALMACENIsNull: Boolean; virtual;
+ procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACENValue: String; virtual;
+ procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
+ function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_RESERVAValue: DateTime; virtual;
+ procedure SetFECHA_RESERVAValue(const aValue: DateTime); virtual;
+ function GetFECHA_RESERVAIsNull: Boolean; virtual;
+ procedure SetFECHA_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetCAUSA_RESERVAValue: String; virtual;
+ procedure SetCAUSA_RESERVAValue(const aValue: String); virtual;
+ function GetCAUSA_RESERVAIsNull: Boolean; virtual;
+ procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOIsNull(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 GetDESCRIPCIONValue: String; virtual;
+ procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+ function GetFAMILIAValue: String; virtual;
+ procedure SetFAMILIAValue(const aValue: String); virtual;
+ function GetFAMILIAIsNull: Boolean; virtual;
+ procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+ function GetUNIDAD_MEDIDAValue: String; virtual;
+ procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
+ function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
+ procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
+ function GetFABRICANTEValue: String; virtual;
+ procedure SetFABRICANTEValue(const aValue: String); virtual;
+ function GetFABRICANTEIsNull: Boolean; virtual;
+ procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_FABRValue: String; virtual;
+ procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+ function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
+ function GetCANTIDADValue: Integer; virtual;
+ procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ function GetCANTIDADIsNull: Boolean; virtual;
+ procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACEN_RESERVAValue: Integer; virtual;
+ procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer); virtual;
+ function GetID_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACEN_RESERVAValue: String; virtual;
+ procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String); virtual;
+ function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID_ALB: Integer read GetID_ALBValue write SetID_ALBValue;
- property ID_ALBIsNull: Boolean read GetID_ALBIsNull write SetID_ALBIsNull;
+ 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_ALB: String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue;
- property REFERENCIA_ALBIsNull: Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull;
- property SITUACION_ALB: String read GetSITUACION_ALBValue write SetSITUACION_ALBValue;
- property SITUACION_ALBIsNull: Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull;
- property FECHA_PREVISTA_ENVIO_ALB: DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue;
- property FECHA_PREVISTA_ENVIO_ALBIsNull: Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull;
- property ID_ALMACEN_ALB: Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue;
- property ID_ALMACEN_ALBIsNull: Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull;
- property ALMACEN_ALB: String read GetALMACEN_ALBValue write SetALMACEN_ALBValue;
- property ALMACEN_ALBIsNull: Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull;
- property ID_CLIENTE_ALB: Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue;
- property ID_CLIENTE_ALBIsNull: Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull;
- property CLIENTE_ALB: String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue;
- property CLIENTE_ALBIsNull: Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull;
- property ID_ART: Integer read GetID_ARTValue write SetID_ARTValue;
- property ID_ARTIsNull: Boolean read GetID_ARTIsNull write SetID_ARTIsNull;
- property FAMILIA_ART: String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue;
- property FAMILIA_ARTIsNull: Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull;
- property REFERENCIA_ART: String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue;
- property REFERENCIA_ARTIsNull: Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull;
- property REFERENCIA_PROV_ART: String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue;
- property REFERENCIA_PROV_ARTIsNull: Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
- property DESCRIPCION_ART: String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
- property DESCRIPCION_ARTIsNull: Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
- property CANTIDAD_ART: Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
- property CANTIDAD_ARTIsNull: Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
+ property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
+ property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
+ property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
+ property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
+ property FECHA_RESERVA: DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
+ property FECHA_RESERVAIsNull: Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
+ property CAUSA_RESERVA: String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
+ property CAUSA_RESERVAIsNull: Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
+ property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+ property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
+ property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+ property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+ property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+ property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+ property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+ property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
+ property ID_ALMACEN_RESERVA: Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
+ property ID_ALMACEN_RESERVAIsNull: Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
+ property NOMBRE_ALMACEN_RESERVA: String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
+ property NOMBRE_ALMACEN_RESERVAIsNull: Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -973,25 +987,25 @@ begin
inherited;
end;
-function TDetalleReservasDataTableRules.GetID_ALBValue: Integer;
+function TDetalleReservasDataTableRules.GetIDValue: Integer;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger;
+ result := DataTable.Fields[idx_DetalleReservasID].AsInteger;
end;
-procedure TDetalleReservasDataTableRules.SetID_ALBValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetIDValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DetalleReservasID_ALB].AsInteger := aValue;
+ DataTable.Fields[idx_DetalleReservasID].AsInteger := aValue;
end;
-function TDetalleReservasDataTableRules.GetID_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetIDIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasID].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetID_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasID_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasID].AsVariant := Null;
end;
function TDetalleReservasDataTableRules.GetID_EMPRESAValue: Integer;
@@ -1015,277 +1029,298 @@ begin
DataTable.Fields[idx_DetalleReservasID_EMPRESA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_ALBValue: String;
+function TDetalleReservasDataTableRules.GetID_ALMACENValue: Integer;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString;
+ result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetID_ALMACENValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsInteger := aValue;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ALMACENIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasID_ALMACEN].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasREFERENCIA_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasID_ALMACEN].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetSITUACION_ALBValue: String;
+function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString;
+ result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetSITUACION_ALBValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetSITUACION_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetNOMBRE_ALMACENIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasSITUACION_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetSITUACION_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasSITUACION_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
+function TDetalleReservasDataTableRules.GetFECHA_RESERVAValue: DateTime;
begin
- result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime;
+ result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime;
end;
-procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime);
+procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAValue(const aValue: DateTime);
begin
- DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsDateTime := aValue;
+ DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsDateTime := aValue;
end;
-function TDetalleReservasDataTableRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetFECHA_RESERVAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetFECHA_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasFECHA_PREVISTA_ENVIO_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasFECHA_RESERVA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBValue: Integer;
+function TDetalleReservasDataTableRules.GetCAUSA_RESERVAValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger;
+ result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsInteger := aValue;
+ DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetID_ALMACEN_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetCAUSA_RESERVAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetCAUSA_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasID_ALMACEN_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasCAUSA_RESERVA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetALMACEN_ALBValue: String;
+function TDetalleReservasDataTableRules.GetID_ARTICULOValue: Integer;
begin
- result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString;
+ result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger;
end;
-procedure TDetalleReservasDataTableRules.SetALMACEN_ALBValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsInteger := aValue;
end;
-function TDetalleReservasDataTableRules.GetALMACEN_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasALMACEN_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasID_ARTICULO].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetALMACEN_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasALMACEN_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasID_ARTICULO].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBValue: Integer;
+function TDetalleReservasDataTableRules.GetREFERENCIAValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger;
+ result := DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsInteger := aValue;
+ DataTable.Fields[idx_DetalleReservasREFERENCIA].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetID_CLIENTE_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetREFERENCIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasREFERENCIA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasID_CLIENTE_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasREFERENCIA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetCLIENTE_ALBValue: String;
+function TDetalleReservasDataTableRules.GetDESCRIPCIONValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString;
+ result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetCLIENTE_ALBIsNull: boolean;
+function TDetalleReservasDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasDESCRIPCION].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetCLIENTE_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasCLIENTE_ALB].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasDESCRIPCION].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetID_ARTValue: Integer;
+function TDetalleReservasDataTableRules.GetFAMILIAValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ART].AsInteger;
+ result := DataTable.Fields[idx_DetalleReservasFAMILIA].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetID_ARTValue(const aValue: Integer);
+procedure TDetalleReservasDataTableRules.SetFAMILIAValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasID_ART].AsInteger := aValue;
+ DataTable.Fields[idx_DetalleReservasFAMILIA].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetID_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetFAMILIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasID_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasFAMILIA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetID_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasID_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasFAMILIA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetFAMILIA_ARTValue: String;
+function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString;
+ result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetFAMILIA_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasFAMILIA_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetFAMILIA_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasFAMILIA_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasUNIDAD_MEDIDA].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_ARTValue: String;
+function TDetalleReservasDataTableRules.GetFABRICANTEValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString;
+ result := DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetFABRICANTEValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasFABRICANTE].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetFABRICANTEIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasFABRICANTE].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasREFERENCIA_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasFABRICANTE].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTValue: String;
+function TDetalleReservasDataTableRules.GetREFERENCIA_FABRValue: String;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString;
+ result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
- DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsString := aValue;
end;
-function TDetalleReservasDataTableRules.GetREFERENCIA_PROV_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasREFERENCIA_PROV_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasREFERENCIA_FABR].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTValue: String;
+function TDetalleReservasDataTableRules.GetCANTIDADValue: Integer;
begin
- result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString;
+ result := DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger;
end;
-procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTValue(const aValue: String);
+procedure TDetalleReservasDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsString := aValue;
+ DataTable.Fields[idx_DetalleReservasCANTIDAD].AsInteger := aValue;
end;
-function TDetalleReservasDataTableRules.GetDESCRIPCION_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetCANTIDADIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasCANTIDAD].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasDESCRIPCION_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasCANTIDAD].AsVariant := Null;
end;
-function TDetalleReservasDataTableRules.GetCANTIDAD_ARTValue: Int64;
+function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAValue: Integer;
begin
- result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt;
+ result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger;
end;
-procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTValue(const aValue: Int64);
+procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAValue(const aValue: Integer);
begin
- DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsLargeInt := aValue;
+ DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsInteger := aValue;
end;
-function TDetalleReservasDataTableRules.GetCANTIDAD_ARTIsNull: boolean;
+function TDetalleReservasDataTableRules.GetID_ALMACEN_RESERVAIsNull: boolean;
begin
- result := DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].IsNull;
+ result := DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].IsNull;
end;
-procedure TDetalleReservasDataTableRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasDataTableRules.SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_DetalleReservasCANTIDAD_ART].AsVariant := Null;
+ DataTable.Fields[idx_DetalleReservasID_ALMACEN_RESERVA].AsVariant := Null;
+end;
+
+function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAValue: String;
+begin
+ result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString;
+end;
+
+procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsString := aValue;
+end;
+
+function TDetalleReservasDataTableRules.GetNOMBRE_ALMACEN_RESERVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].IsNull;
+end;
+
+procedure TDetalleReservasDataTableRules.SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DetalleReservasNOMBRE_ALMACEN_RESERVA].AsVariant := Null;
end;
diff --git a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
index 8576b8cf..b2cf0f3b 100644
--- a/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
+++ b/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas
@@ -9,13 +9,13 @@ 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_InventarioDelta = '{9F4C5D85-1850-4952-8645-E9B2964B79D9}';
- RID_DetalleReservasDelta = '{2C992942-76C6-4182-A8D5-9CC48C89D841}';
+ RID_InventarioDelta = '{BD609283-85E4-49E3-9333-97C904F50355}';
+ RID_DetalleReservasDelta = '{3B84878B-7FA3-4B63-ADC5-6AB56E4190FA}';
type
{ IInventarioDelta }
IInventarioDelta = interface(IInventario)
- ['{9F4C5D85-1850-4952-8645-E9B2964B79D9}']
+ ['{BD609283-85E4-49E3-9333-97C904F50355}']
{ Property getters and setters }
function GetOldID_ALMACENValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@@ -265,40 +265,42 @@ type
{ IDetalleReservasDelta }
IDetalleReservasDelta = interface(IDetalleReservas)
- ['{2C992942-76C6-4182-A8D5-9CC48C89D841}']
+ ['{3B84878B-7FA3-4B63-ADC5-6AB56E4190FA}']
{ Property getters and setters }
- function GetOldID_ALBValue : Integer;
+ function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
- function GetOldREFERENCIA_ALBValue : String;
- function GetOldSITUACION_ALBValue : String;
- function GetOldFECHA_PREVISTA_ENVIO_ALBValue : DateTime;
- function GetOldID_ALMACEN_ALBValue : Integer;
- function GetOldALMACEN_ALBValue : String;
- function GetOldID_CLIENTE_ALBValue : Integer;
- function GetOldCLIENTE_ALBValue : String;
- function GetOldID_ARTValue : Integer;
- function GetOldFAMILIA_ARTValue : String;
- function GetOldREFERENCIA_ARTValue : String;
- function GetOldREFERENCIA_PROV_ARTValue : String;
- function GetOldDESCRIPCION_ARTValue : String;
- function GetOldCANTIDAD_ARTValue : Int64;
+ function GetOldID_ALMACENValue : Integer;
+ function GetOldNOMBRE_ALMACENValue : String;
+ function GetOldFECHA_RESERVAValue : DateTime;
+ function GetOldCAUSA_RESERVAValue : String;
+ function GetOldID_ARTICULOValue : Integer;
+ function GetOldREFERENCIAValue : String;
+ function GetOldDESCRIPCIONValue : String;
+ function GetOldFAMILIAValue : String;
+ function GetOldUNIDAD_MEDIDAValue : String;
+ function GetOldFABRICANTEValue : String;
+ function GetOldREFERENCIA_FABRValue : String;
+ function GetOldCANTIDADValue : Integer;
+ function GetOldID_ALMACEN_RESERVAValue : Integer;
+ function GetOldNOMBRE_ALMACEN_RESERVAValue : String;
{ Properties }
- property OldID_ALB : Integer read GetOldID_ALBValue;
+ property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldREFERENCIA_ALB : String read GetOldREFERENCIA_ALBValue;
- property OldSITUACION_ALB : String read GetOldSITUACION_ALBValue;
- property OldFECHA_PREVISTA_ENVIO_ALB : DateTime read GetOldFECHA_PREVISTA_ENVIO_ALBValue;
- property OldID_ALMACEN_ALB : Integer read GetOldID_ALMACEN_ALBValue;
- property OldALMACEN_ALB : String read GetOldALMACEN_ALBValue;
- property OldID_CLIENTE_ALB : Integer read GetOldID_CLIENTE_ALBValue;
- property OldCLIENTE_ALB : String read GetOldCLIENTE_ALBValue;
- property OldID_ART : Integer read GetOldID_ARTValue;
- property OldFAMILIA_ART : String read GetOldFAMILIA_ARTValue;
- property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue;
- property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue;
- property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue;
- property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldFECHA_RESERVA : DateTime read GetOldFECHA_RESERVAValue;
+ property OldCAUSA_RESERVA : String read GetOldCAUSA_RESERVAValue;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldFAMILIA : String read GetOldFAMILIAValue;
+ property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+ property OldFABRICANTE : String read GetOldFABRICANTEValue;
+ property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
+ property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldID_ALMACEN_RESERVA : Integer read GetOldID_ALMACEN_RESERVAValue;
+ property OldNOMBRE_ALMACEN_RESERVA : String read GetOldNOMBRE_ALMACEN_RESERVAValue;
end;
{ TDetalleReservasBusinessProcessorRules }
@@ -306,158 +308,168 @@ type
private
protected
{ Property getters and setters }
- function GetID_ALBValue: Integer; virtual;
- function GetID_ALBIsNull: Boolean; virtual;
- function GetOldID_ALBValue: Integer; virtual;
- function GetOldID_ALBIsNull: Boolean; virtual;
- procedure SetID_ALBValue(const aValue: Integer); virtual;
- procedure SetID_ALBIsNull(const aValue: Boolean); 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_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 GetREFERENCIA_ALBValue: String; virtual;
- function GetREFERENCIA_ALBIsNull: Boolean; virtual;
- function GetOldREFERENCIA_ALBValue: String; virtual;
- function GetOldREFERENCIA_ALBIsNull: Boolean; virtual;
- procedure SetREFERENCIA_ALBValue(const aValue: String); virtual;
- procedure SetREFERENCIA_ALBIsNull(const aValue: Boolean); virtual;
- function GetSITUACION_ALBValue: String; virtual;
- function GetSITUACION_ALBIsNull: Boolean; virtual;
- function GetOldSITUACION_ALBValue: String; virtual;
- function GetOldSITUACION_ALBIsNull: Boolean; virtual;
- procedure SetSITUACION_ALBValue(const aValue: String); virtual;
- procedure SetSITUACION_ALBIsNull(const aValue: Boolean); virtual;
- function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual;
- function GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual;
- function GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual;
- function GetOldFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean; virtual;
- procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual;
- procedure SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_ALMACEN_ALBValue: Integer; virtual;
- function GetID_ALMACEN_ALBIsNull: Boolean; virtual;
- function GetOldID_ALMACEN_ALBValue: Integer; virtual;
- function GetOldID_ALMACEN_ALBIsNull: Boolean; virtual;
- procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual;
- procedure SetID_ALMACEN_ALBIsNull(const aValue: Boolean); virtual;
- function GetALMACEN_ALBValue: String; virtual;
- function GetALMACEN_ALBIsNull: Boolean; virtual;
- function GetOldALMACEN_ALBValue: String; virtual;
- function GetOldALMACEN_ALBIsNull: Boolean; virtual;
- procedure SetALMACEN_ALBValue(const aValue: String); virtual;
- procedure SetALMACEN_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_CLIENTE_ALBValue: Integer; virtual;
- function GetID_CLIENTE_ALBIsNull: Boolean; virtual;
- function GetOldID_CLIENTE_ALBValue: Integer; virtual;
- function GetOldID_CLIENTE_ALBIsNull: Boolean; virtual;
- procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual;
- procedure SetID_CLIENTE_ALBIsNull(const aValue: Boolean); virtual;
- function GetCLIENTE_ALBValue: String; virtual;
- function GetCLIENTE_ALBIsNull: Boolean; virtual;
- function GetOldCLIENTE_ALBValue: String; virtual;
- function GetOldCLIENTE_ALBIsNull: Boolean; virtual;
- procedure SetCLIENTE_ALBValue(const aValue: String); virtual;
- procedure SetCLIENTE_ALBIsNull(const aValue: Boolean); virtual;
- function GetID_ARTValue: Integer; virtual;
- function GetID_ARTIsNull: Boolean; virtual;
- function GetOldID_ARTValue: Integer; virtual;
- function GetOldID_ARTIsNull: Boolean; virtual;
- procedure SetID_ARTValue(const aValue: Integer); virtual;
- procedure SetID_ARTIsNull(const aValue: Boolean); virtual;
- function GetFAMILIA_ARTValue: String; virtual;
- function GetFAMILIA_ARTIsNull: Boolean; virtual;
- function GetOldFAMILIA_ARTValue: String; virtual;
- function GetOldFAMILIA_ARTIsNull: Boolean; virtual;
- procedure SetFAMILIA_ARTValue(const aValue: String); virtual;
- procedure SetFAMILIA_ARTIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_ARTValue: String; virtual;
- function GetREFERENCIA_ARTIsNull: Boolean; virtual;
- function GetOldREFERENCIA_ARTValue: String; virtual;
- function GetOldREFERENCIA_ARTIsNull: Boolean; virtual;
- procedure SetREFERENCIA_ARTValue(const aValue: String); virtual;
- procedure SetREFERENCIA_ARTIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROV_ARTValue: String; virtual;
- function GetREFERENCIA_PROV_ARTIsNull: Boolean; virtual;
- function GetOldREFERENCIA_PROV_ARTValue: String; virtual;
- function GetOldREFERENCIA_PROV_ARTIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual;
- procedure SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean); virtual;
- function GetDESCRIPCION_ARTValue: String; virtual;
- function GetDESCRIPCION_ARTIsNull: Boolean; virtual;
- function GetOldDESCRIPCION_ARTValue: String; virtual;
- function GetOldDESCRIPCION_ARTIsNull: Boolean; virtual;
- procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual;
- procedure SetDESCRIPCION_ARTIsNull(const aValue: Boolean); virtual;
- function GetCANTIDAD_ARTValue: Int64; virtual;
- function GetCANTIDAD_ARTIsNull: Boolean; virtual;
- function GetOldCANTIDAD_ARTValue: Int64; virtual;
- function GetOldCANTIDAD_ARTIsNull: Boolean; virtual;
- procedure SetCANTIDAD_ARTValue(const aValue: Int64); virtual;
- procedure SetCANTIDAD_ARTIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACENValue: Integer; virtual;
+ function GetID_ALMACENIsNull: Boolean; virtual;
+ function GetOldID_ALMACENValue: Integer; virtual;
+ function GetOldID_ALMACENIsNull: Boolean; virtual;
+ procedure SetID_ALMACENValue(const aValue: Integer); virtual;
+ procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACENValue: String; virtual;
+ function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
+ function GetOldNOMBRE_ALMACENValue: String; virtual;
+ function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
+ procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_RESERVAValue: DateTime; virtual;
+ function GetFECHA_RESERVAIsNull: Boolean; virtual;
+ function GetOldFECHA_RESERVAValue: DateTime; virtual;
+ function GetOldFECHA_RESERVAIsNull: Boolean; virtual;
+ procedure SetFECHA_RESERVAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetCAUSA_RESERVAValue: String; virtual;
+ function GetCAUSA_RESERVAIsNull: Boolean; virtual;
+ function GetOldCAUSA_RESERVAValue: String; virtual;
+ function GetOldCAUSA_RESERVAIsNull: Boolean; virtual;
+ procedure SetCAUSA_RESERVAValue(const aValue: String); virtual;
+ procedure SetCAUSA_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetID_ARTICULOValue: Integer; virtual;
+ function GetID_ARTICULOIsNull: Boolean; virtual;
+ function GetOldID_ARTICULOValue: Integer; virtual;
+ function GetOldID_ARTICULOIsNull: Boolean; virtual;
+ procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
+ procedure SetID_ARTICULOIsNull(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 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 GetFAMILIAValue: String; virtual;
+ function GetFAMILIAIsNull: Boolean; virtual;
+ function GetOldFAMILIAValue: String; virtual;
+ function GetOldFAMILIAIsNull: Boolean; virtual;
+ procedure SetFAMILIAValue(const aValue: String); virtual;
+ procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
+ function GetUNIDAD_MEDIDAValue: String; virtual;
+ function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
+ function GetOldUNIDAD_MEDIDAValue: String; virtual;
+ function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
+ procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
+ procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
+ function GetFABRICANTEValue: String; virtual;
+ function GetFABRICANTEIsNull: Boolean; virtual;
+ function GetOldFABRICANTEValue: String; virtual;
+ function GetOldFABRICANTEIsNull: Boolean; virtual;
+ procedure SetFABRICANTEValue(const aValue: String); virtual;
+ procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIA_FABRValue: String; virtual;
+ function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+ function GetOldREFERENCIA_FABRValue: String; virtual;
+ function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
+ procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+ procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
+ function GetCANTIDADValue: Integer; virtual;
+ function GetCANTIDADIsNull: Boolean; virtual;
+ function GetOldCANTIDADValue: Integer; virtual;
+ function GetOldCANTIDADIsNull: Boolean; virtual;
+ procedure SetCANTIDADValue(const aValue: Integer); virtual;
+ procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
+ function GetID_ALMACEN_RESERVAValue: Integer; virtual;
+ function GetID_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ function GetOldID_ALMACEN_RESERVAValue: Integer; virtual;
+ function GetOldID_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ procedure SetID_ALMACEN_RESERVAValue(const aValue: Integer); virtual;
+ procedure SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
+ function GetNOMBRE_ALMACEN_RESERVAValue: String; virtual;
+ function GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ function GetOldNOMBRE_ALMACEN_RESERVAValue: String; virtual;
+ function GetOldNOMBRE_ALMACEN_RESERVAIsNull: Boolean; virtual;
+ procedure SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String); virtual;
+ procedure SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID_ALB : Integer read GetID_ALBValue write SetID_ALBValue;
- property ID_ALBIsNull : Boolean read GetID_ALBIsNull write SetID_ALBIsNull;
- property OldID_ALB : Integer read GetOldID_ALBValue;
- property OldID_ALBIsNull : Boolean read GetOldID_ALBIsNull;
+ 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_ALB : String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue;
- property REFERENCIA_ALBIsNull : Boolean read GetREFERENCIA_ALBIsNull write SetREFERENCIA_ALBIsNull;
- property OldREFERENCIA_ALB : String read GetOldREFERENCIA_ALBValue;
- property OldREFERENCIA_ALBIsNull : Boolean read GetOldREFERENCIA_ALBIsNull;
- property SITUACION_ALB : String read GetSITUACION_ALBValue write SetSITUACION_ALBValue;
- property SITUACION_ALBIsNull : Boolean read GetSITUACION_ALBIsNull write SetSITUACION_ALBIsNull;
- property OldSITUACION_ALB : String read GetOldSITUACION_ALBValue;
- property OldSITUACION_ALBIsNull : Boolean read GetOldSITUACION_ALBIsNull;
- property FECHA_PREVISTA_ENVIO_ALB : DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue;
- property FECHA_PREVISTA_ENVIO_ALBIsNull : Boolean read GetFECHA_PREVISTA_ENVIO_ALBIsNull write SetFECHA_PREVISTA_ENVIO_ALBIsNull;
- property OldFECHA_PREVISTA_ENVIO_ALB : DateTime read GetOldFECHA_PREVISTA_ENVIO_ALBValue;
- property OldFECHA_PREVISTA_ENVIO_ALBIsNull : Boolean read GetOldFECHA_PREVISTA_ENVIO_ALBIsNull;
- property ID_ALMACEN_ALB : Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue;
- property ID_ALMACEN_ALBIsNull : Boolean read GetID_ALMACEN_ALBIsNull write SetID_ALMACEN_ALBIsNull;
- property OldID_ALMACEN_ALB : Integer read GetOldID_ALMACEN_ALBValue;
- property OldID_ALMACEN_ALBIsNull : Boolean read GetOldID_ALMACEN_ALBIsNull;
- property ALMACEN_ALB : String read GetALMACEN_ALBValue write SetALMACEN_ALBValue;
- property ALMACEN_ALBIsNull : Boolean read GetALMACEN_ALBIsNull write SetALMACEN_ALBIsNull;
- property OldALMACEN_ALB : String read GetOldALMACEN_ALBValue;
- property OldALMACEN_ALBIsNull : Boolean read GetOldALMACEN_ALBIsNull;
- property ID_CLIENTE_ALB : Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue;
- property ID_CLIENTE_ALBIsNull : Boolean read GetID_CLIENTE_ALBIsNull write SetID_CLIENTE_ALBIsNull;
- property OldID_CLIENTE_ALB : Integer read GetOldID_CLIENTE_ALBValue;
- property OldID_CLIENTE_ALBIsNull : Boolean read GetOldID_CLIENTE_ALBIsNull;
- property CLIENTE_ALB : String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue;
- property CLIENTE_ALBIsNull : Boolean read GetCLIENTE_ALBIsNull write SetCLIENTE_ALBIsNull;
- property OldCLIENTE_ALB : String read GetOldCLIENTE_ALBValue;
- property OldCLIENTE_ALBIsNull : Boolean read GetOldCLIENTE_ALBIsNull;
- property ID_ART : Integer read GetID_ARTValue write SetID_ARTValue;
- property ID_ARTIsNull : Boolean read GetID_ARTIsNull write SetID_ARTIsNull;
- property OldID_ART : Integer read GetOldID_ARTValue;
- property OldID_ARTIsNull : Boolean read GetOldID_ARTIsNull;
- property FAMILIA_ART : String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue;
- property FAMILIA_ARTIsNull : Boolean read GetFAMILIA_ARTIsNull write SetFAMILIA_ARTIsNull;
- property OldFAMILIA_ART : String read GetOldFAMILIA_ARTValue;
- property OldFAMILIA_ARTIsNull : Boolean read GetOldFAMILIA_ARTIsNull;
- property REFERENCIA_ART : String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue;
- property REFERENCIA_ARTIsNull : Boolean read GetREFERENCIA_ARTIsNull write SetREFERENCIA_ARTIsNull;
- property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue;
- property OldREFERENCIA_ARTIsNull : Boolean read GetOldREFERENCIA_ARTIsNull;
- property REFERENCIA_PROV_ART : String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue;
- property REFERENCIA_PROV_ARTIsNull : Boolean read GetREFERENCIA_PROV_ARTIsNull write SetREFERENCIA_PROV_ARTIsNull;
- property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue;
- property OldREFERENCIA_PROV_ARTIsNull : Boolean read GetOldREFERENCIA_PROV_ARTIsNull;
- property DESCRIPCION_ART : String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue;
- property DESCRIPCION_ARTIsNull : Boolean read GetDESCRIPCION_ARTIsNull write SetDESCRIPCION_ARTIsNull;
- property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue;
- property OldDESCRIPCION_ARTIsNull : Boolean read GetOldDESCRIPCION_ARTIsNull;
- property CANTIDAD_ART : Int64 read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue;
- property CANTIDAD_ARTIsNull : Boolean read GetCANTIDAD_ARTIsNull write SetCANTIDAD_ARTIsNull;
- property OldCANTIDAD_ART : Int64 read GetOldCANTIDAD_ARTValue;
- property OldCANTIDAD_ARTIsNull : Boolean read GetOldCANTIDAD_ARTIsNull;
+ property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
+ property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
+ property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
+ property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
+ property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
+ property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
+ property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
+ property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull;
+ property FECHA_RESERVA : DateTime read GetFECHA_RESERVAValue write SetFECHA_RESERVAValue;
+ property FECHA_RESERVAIsNull : Boolean read GetFECHA_RESERVAIsNull write SetFECHA_RESERVAIsNull;
+ property OldFECHA_RESERVA : DateTime read GetOldFECHA_RESERVAValue;
+ property OldFECHA_RESERVAIsNull : Boolean read GetOldFECHA_RESERVAIsNull;
+ property CAUSA_RESERVA : String read GetCAUSA_RESERVAValue write SetCAUSA_RESERVAValue;
+ property CAUSA_RESERVAIsNull : Boolean read GetCAUSA_RESERVAIsNull write SetCAUSA_RESERVAIsNull;
+ property OldCAUSA_RESERVA : String read GetOldCAUSA_RESERVAValue;
+ property OldCAUSA_RESERVAIsNull : Boolean read GetOldCAUSA_RESERVAIsNull;
+ property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
+ 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 DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+ property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+ property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
+ property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
+ property OldFAMILIA : String read GetOldFAMILIAValue;
+ property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
+ property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
+ property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
+ property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
+ property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
+ property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
+ property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+ property OldFABRICANTE : String read GetOldFABRICANTEValue;
+ property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
+ property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+ property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+ property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
+ property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
+ property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
+ property OldCANTIDAD : Integer read GetOldCANTIDADValue;
+ property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
+ property ID_ALMACEN_RESERVA : Integer read GetID_ALMACEN_RESERVAValue write SetID_ALMACEN_RESERVAValue;
+ property ID_ALMACEN_RESERVAIsNull : Boolean read GetID_ALMACEN_RESERVAIsNull write SetID_ALMACEN_RESERVAIsNull;
+ property OldID_ALMACEN_RESERVA : Integer read GetOldID_ALMACEN_RESERVAValue;
+ property OldID_ALMACEN_RESERVAIsNull : Boolean read GetOldID_ALMACEN_RESERVAIsNull;
+ property NOMBRE_ALMACEN_RESERVA : String read GetNOMBRE_ALMACEN_RESERVAValue write SetNOMBRE_ALMACEN_RESERVAValue;
+ property NOMBRE_ALMACEN_RESERVAIsNull : Boolean read GetNOMBRE_ALMACEN_RESERVAIsNull write SetNOMBRE_ALMACEN_RESERVAIsNull;
+ property OldNOMBRE_ALMACEN_RESERVA : String read GetOldNOMBRE_ALMACEN_RESERVAValue;
+ property OldNOMBRE_ALMACEN_RESERVAIsNull : Boolean read GetOldNOMBRE_ALMACEN_RESERVAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1082,35 +1094,35 @@ begin
inherited;
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetIDValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID];
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetIDIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetOldIDValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ALBValue(const aValue: Integer);
+procedure TDetalleReservasBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID] := Null;
end;
function TDetalleReservasBusinessProcessorRules.GetID_EMPRESAValue: Integer;
@@ -1144,407 +1156,438 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_EMPRESA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN];
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetID_ALMACENIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ALBValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetSITUACION_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN];
end;
-function TDetalleReservasBusinessProcessorRules.GetSITUACION_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldSITUACION_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasSITUACION_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasNOMBRE_ALMACEN];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldSITUACION_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasSITUACION_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasNOMBRE_ALMACEN]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetSITUACION_ALBValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetSITUACION_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasSITUACION_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
+function TDetalleReservasBusinessProcessorRules.GetFECHA_RESERVAValue: DateTime;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetFECHA_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_RESERVA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime;
+function TDetalleReservasBusinessProcessorRules.GetOldFECHA_RESERVAValue: DateTime;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldFECHA_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFECHA_RESERVA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime);
+procedure TDetalleReservasBusinessProcessorRules.SetFECHA_RESERVAValue(const aValue: DateTime);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_RESERVA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetFECHA_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_PREVISTA_ENVIO_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFECHA_RESERVA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetCAUSA_RESERVAValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCAUSA_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetCAUSA_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCAUSA_RESERVA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetOldCAUSA_RESERVAValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCAUSA_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldCAUSA_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCAUSA_RESERVA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_ALBValue(const aValue: Integer);
+procedure TDetalleReservasBusinessProcessorRules.SetCAUSA_RESERVAValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCAUSA_RESERVA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetCAUSA_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCAUSA_RESERVA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetALMACEN_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ARTICULO];
end;
-function TDetalleReservasBusinessProcessorRules.GetALMACEN_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ARTICULO]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldALMACEN_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasALMACEN_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ARTICULO];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldALMACEN_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasALMACEN_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ARTICULO]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetALMACEN_ALBValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ARTICULO] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetALMACEN_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasALMACEN_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ARTICULO] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetID_CLIENTE_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetREFERENCIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA];
end;
-function TDetalleReservasBusinessProcessorRules.GetID_CLIENTE_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_CLIENTE_ALBValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_CLIENTE_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_CLIENTE_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_CLIENTE_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_CLIENTE_ALBValue(const aValue: Integer);
+procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_CLIENTE_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_CLIENTE_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetCLIENTE_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION];
end;
-function TDetalleReservasBusinessProcessorRules.GetCLIENTE_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldCLIENTE_ALBValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCLIENTE_ALB];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldCLIENTE_ALBIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCLIENTE_ALB]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetCLIENTE_ALBValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetCLIENTE_ALBIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCLIENTE_ALB] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ARTValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetFAMILIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA];
end;
-function TDetalleReservasBusinessProcessorRules.GetID_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ARTValue: Integer;
+function TDetalleReservasBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldID_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ARTValue(const aValue: Integer);
+procedure TDetalleReservasBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetID_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetFAMILIA_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasUNIDAD_MEDIDA];
end;
-function TDetalleReservasBusinessProcessorRules.GetFAMILIA_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasUNIDAD_MEDIDA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldFAMILIA_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasUNIDAD_MEDIDA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldFAMILIA_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFAMILIA_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasUNIDAD_MEDIDA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetFAMILIA_ARTValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasUNIDAD_MEDIDA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetFAMILIA_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFAMILIA_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasUNIDAD_MEDIDA] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetFABRICANTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFABRICANTE];
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFABRICANTE]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldFABRICANTEValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFABRICANTE];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasFABRICANTE]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ARTValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFABRICANTE] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasFABRICANTE] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_PROV_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_FABR];
end;
-function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_PROV_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_FABR]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_PROV_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_FABR];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_PROV_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasREFERENCIA_FABR]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_PROV_ARTValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_FABR] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_PROV_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_PROV_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasREFERENCIA_FABR] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetDESCRIPCION_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD];
end;
-function TDetalleReservasBusinessProcessorRules.GetDESCRIPCION_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCION_ARTValue: String;
+function TDetalleReservasBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldDESCRIPCION_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasDESCRIPCION_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCION_ARTValue(const aValue: String);
+procedure TDetalleReservasBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetDESCRIPCION_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasDESCRIPCION_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD] := Null;
end;
-function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTValue: Int64;
+function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_RESERVAValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetCANTIDAD_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetID_ALMACEN_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_RESERVA]);
end;
-function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Int64;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_RESERVAValue: Integer;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_RESERVA];
end;
-function TDetalleReservasBusinessProcessorRules.GetOldCANTIDAD_ARTIsNull: Boolean;
+function TDetalleReservasBusinessProcessorRules.GetOldID_ALMACEN_RESERVAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasCANTIDAD_ART]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasID_ALMACEN_RESERVA]);
end;
-procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Int64);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_RESERVAValue(const aValue: Integer);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_RESERVA] := aValue;
end;
-procedure TDetalleReservasBusinessProcessorRules.SetCANTIDAD_ARTIsNull(const aValue: Boolean);
+procedure TDetalleReservasBusinessProcessorRules.SetID_ALMACEN_RESERVAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasCANTIDAD_ART] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasID_ALMACEN_RESERVA] := Null;
+end;
+
+function TDetalleReservasBusinessProcessorRules.GetNOMBRE_ALMACEN_RESERVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA];
+end;
+
+function TDetalleReservasBusinessProcessorRules.GetNOMBRE_ALMACEN_RESERVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA]);
+end;
+
+function TDetalleReservasBusinessProcessorRules.GetOldNOMBRE_ALMACEN_RESERVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA];
+end;
+
+function TDetalleReservasBusinessProcessorRules.GetOldNOMBRE_ALMACEN_RESERVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA]);
+end;
+
+procedure TDetalleReservasBusinessProcessorRules.SetNOMBRE_ALMACEN_RESERVAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA] := aValue;
+end;
+
+procedure TDetalleReservasBusinessProcessorRules.SetNOMBRE_ALMACEN_RESERVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DetalleReservasNOMBRE_ALMACEN_RESERVA] := Null;
end;
diff --git a/Source/Modulos/Inventario/Model/uBizInventario.pas b/Source/Modulos/Inventario/Model/uBizInventario.pas
index de58edae..dff2463a 100644
--- a/Source/Modulos/Inventario/Model/uBizInventario.pas
+++ b/Source/Modulos/Inventario/Model/uBizInventario.pas
@@ -44,7 +44,15 @@ type
property TipoMovimiento: TEnumTipoMovimiento read GetTipo write SetTipo;
end;
- TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas)
+ TBizDetalleReservas = class(TDetalleReservasDataTableRules, IBizDetalleReservas, ISeleccionable)
+ protected
+ FSeleccionableInterface : ISeleccionable;
+ public
+ property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+ write FSeleccionableInterface implements ISeleccionable;
+
+ constructor Create(aDataTable: TDADataTable); override;
+ destructor Destroy; override;
end;
TBizInventario = class(TInventarioDataTableRules, IBizInventario, ISeleccionable)
@@ -74,7 +82,6 @@ type
write FSeleccionableInterface implements ISeleccionable;
constructor Create(aDataTable: TDADataTable); override;
-
destructor Destroy; override;
end;
@@ -179,6 +186,20 @@ begin
FTipoMovimiento := Value;
end;
+{ TBizDetalleReservas }
+
+constructor TBizDetalleReservas.Create(aDataTable: TDADataTable);
+begin
+ inherited;
+ FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizDetalleReservas.Destroy;
+begin
+ FSeleccionableInterface := NIL;
+ inherited;
+end;
+
initialization
RegisterDataTableRules(BIZ_CLIENT_INVENTARIO, TBizInventario);
RegisterDataTableRules(BIZ_CLIENT_DETALLE_RESERVAS_INV, TBizDetalleReservas);
diff --git a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
index 278a7f00..1e3177c3 100644
--- a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
+++ b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
@@ -228,165 +228,171 @@ object srvInventario: TsrvInventario
item
Connection = 'IBX'
TargetTable = 'V_INV_DETALLE_RESERVAS'
- SQL =
- 'SELECT'#10' ID_ALB,'#10' ID_EMPRESA,'#10' REFERENCIA_ALB,'#10' SITUACION_ALB' +
- ','#10' FECHA_PREVISTA_ENVIO_ALB,'#10' ID_ALMACEN_ALB,'#10' ALMACEN_ALB,'#10' ' +
- ' ID_CLIENTE_ALB,'#10' CLIENTE_ALB,'#10' ID_ART,'#10' FAMILIA_ART,'#10' REFER' +
- 'ENCIA_ART,'#10' REFERENCIA_PROV_ART,'#10' DESCRIPCION_ART,'#10' CANTIDAD_' +
- 'ART'#10' '#10'FROM V_INV_DETALLE_RESERVAS'#10'where {where}'#10'ORDER BY REFERE' +
- 'NCIA_ALB'#10
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
- DatasetField = 'ID_ALB'
- TableField = 'ID_ALB'
- end
- item
- DatasetField = 'REFERENCIA_ALB'
- TableField = 'REFERENCIA_ALB'
- end
- item
- DatasetField = 'SITUACION_ALB'
- TableField = 'SITUACION_ALB'
- end
- item
- DatasetField = 'FECHA_PREVISTA_ENVIO_ALB'
- TableField = 'FECHA_PREVISTA_ENVIO_ALB'
- end
- item
- DatasetField = 'ID_ALMACEN_ALB'
- TableField = 'ID_ALMACEN_ALB'
- end
- item
- DatasetField = 'ALMACEN_ALB'
- TableField = 'ALMACEN_ALB'
- end
- item
- DatasetField = 'ID_CLIENTE_ALB'
- TableField = 'ID_CLIENTE_ALB'
- end
- item
- DatasetField = 'CLIENTE_ALB'
- TableField = 'CLIENTE_ALB'
- end
- item
- DatasetField = 'ID_ART'
- TableField = 'ID_ART'
- end
- item
- DatasetField = 'FAMILIA_ART'
- TableField = 'FAMILIA_ART'
- end
- item
- DatasetField = 'REFERENCIA_ART'
- TableField = 'REFERENCIA_ART'
- end
- item
- DatasetField = 'REFERENCIA_PROV_ART'
- TableField = 'REFERENCIA_PROV_ART'
- end
- item
- DatasetField = 'DESCRIPCION_ART'
- TableField = 'DESCRIPCION_ART'
- end
- item
- DatasetField = 'CANTIDAD_ART'
- TableField = 'CANTIDAD_ART'
+ DatasetField = 'ID'
+ TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
+ end
+ item
+ DatasetField = 'ID_ALMACEN'
+ TableField = 'ID_ALMACEN'
+ end
+ item
+ DatasetField = 'NOMBRE_ALMACEN'
+ TableField = 'NOMBRE_ALMACEN'
+ end
+ item
+ DatasetField = 'FECHA_RESERVA'
+ TableField = 'FECHA_RESERVA'
+ end
+ item
+ DatasetField = 'CAUSA_RESERVA'
+ TableField = 'CAUSA_RESERVA'
+ end
+ item
+ DatasetField = 'ID_ARTICULO'
+ TableField = 'ID_ARTICULO'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'DESCRIPCION'
+ TableField = 'DESCRIPCION'
+ end
+ item
+ DatasetField = 'FAMILIA'
+ TableField = 'FAMILIA'
+ end
+ item
+ DatasetField = 'UNIDAD_MEDIDA'
+ TableField = 'UNIDAD_MEDIDA'
+ end
+ item
+ DatasetField = 'FABRICANTE'
+ TableField = 'FABRICANTE'
+ end
+ item
+ DatasetField = 'REFERENCIA_FABR'
+ TableField = 'REFERENCIA_FABR'
+ end
+ item
+ DatasetField = 'CANTIDAD'
+ TableField = 'CANTIDAD'
+ end
+ item
+ DatasetField = 'ID_ALMACEN_RESERVA'
+ TableField = 'ID_ALMACEN_RESERVA'
+ end
+ item
+ DatasetField = 'NOMBRE_ALMACEN_RESERVA'
+ TableField = 'NOMBRE_ALMACEN_RESERVA'
end>
end>
Name = 'DetalleReservas'
Fields = <
item
- Name = 'ID_ALB'
+ Name = 'ID'
DataType = datInteger
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end
item
- Name = 'REFERENCIA_ALB'
+ Name = 'ID_ALMACEN'
+ DataType = datInteger
+ end
+ item
+ Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
- Name = 'SITUACION_ALB'
- DataType = datString
- Size = 9
- DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
- end
- item
- Name = 'FECHA_PREVISTA_ENVIO_ALB'
+ Name = 'FECHA_RESERVA'
DataType = datDateTime
- DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end
item
- Name = 'ID_ALMACEN_ALB'
+ Name = 'CAUSA_RESERVA'
+ DataType = datString
+ Size = 2000
+ end
+ item
+ Name = 'ID_ARTICULO'
DataType = datInteger
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
- Name = 'ALMACEN_ALB'
+ Name = 'REFERENCIA'
DataType = datString
Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
item
- Name = 'ID_CLIENTE_ALB'
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FAMILIA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'UNIDAD_MEDIDA'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'FABRICANTE'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REFERENCIA_FABR'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'CANTIDAD'
DataType = datInteger
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end
item
- Name = 'CLIENTE_ALB'
- DataType = datString
- Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
- end
- item
- Name = 'ID_ART'
+ Name = 'ID_ALMACEN_RESERVA'
DataType = datInteger
- DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end
item
- Name = 'FAMILIA_ART'
+ Name = 'NOMBRE_ALMACEN_RESERVA'
DataType = datString
Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
- end
- item
- Name = 'REFERENCIA_ART'
- DataType = datString
- Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
- end
- item
- Name = 'REFERENCIA_PROV_ART'
- DataType = datString
- Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
- end
- item
- Name = 'DESCRIPCION_ART'
- DataType = datString
- Size = 255
- DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
- end
- item
- Name = 'CANTIDAD_ART'
- DataType = datLargeInt
- DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
+ item
+ Params = <
+ item
+ Name = 'OLD_ID'
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ TargetTable = 'MOVIMIENTOS'
+ Name = 'IBX'
+ SQL = 'DELETE'#10' FROM'#10' MOVIMIENTOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_Reservas'
+ end
item
Params = <
item
@@ -435,7 +441,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Insert_INVENTARIO'
+ Name = 'Insert_Inventario'
end
item
Params = <
@@ -447,11 +453,11 @@ object srvInventario: TsrvInventario
item
Connection = 'IBX'
TargetTable = 'MOVIMIENTOS'
- SQL = 'DELETE '#10' FROM'#10' MOVIMIENTO'#10' WHERE'#10' (ID = :OLD_ID)'
+ SQL = 'DELETE '#10' FROM'#10' MOVIMIENTOS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Delete_INVENTARIO'
+ Name = 'Delete_Inventario'
end
item
Params = <
@@ -504,7 +510,7 @@ object srvInventario: TsrvInventario
StatementType = stSQL
ColumnMappings = <>
end>
- Name = 'Update_INVENTARIO'
+ Name = 'Update_Inventario'
end>
RelationShips = <>
UpdateRules = <>
@@ -514,9 +520,9 @@ object srvInventario: TsrvInventario
end
object bpInventario: TDABusinessProcessor
Schema = schInventario
- InsertCommandName = 'Insert_INVENTARIO'
- DeleteCommandName = 'Delete_INVENTARIO'
- UpdateCommandName = 'Update_INVENTARIO'
+ InsertCommandName = 'Insert_Inventario'
+ DeleteCommandName = 'Delete_Inventario'
+ UpdateCommandName = 'Update_Inventario'
ReferencedDataset = 'INVENTARIO'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
@@ -724,4 +730,13 @@ object srvInventario: TsrvInventario
Left = 40
Top = 80
end
+ object bpReservas: TDABusinessProcessor
+ Schema = schInventario
+ DeleteCommandName = 'Delete_Reservas'
+ ReferencedDataset = 'DetalleReservas'
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+ UpdateMode = updWhereKeyOnly
+ Left = 208
+ Top = 72
+ end
end
diff --git a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas
index 9a1b1f82..b9612e59 100644
--- a/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas
+++ b/Source/Modulos/Inventario/Servidor/srvInventario_Impl.pas
@@ -23,6 +23,7 @@ type
TsrvInventario = class(TDataAbstractService, IsrvInventario)
bpInventario: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
+ bpReservas: TDABusinessProcessor;
schInventario: TDASchema;
DataDictionary: TDADataDictionary;
procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset;
diff --git a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm
index 91df37b8..b533ed45 100644
--- a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm
+++ b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.dfm
@@ -5,7 +5,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
ClientHeight = 540
ClientWidth = 669
ExplicitWidth = 677
- ExplicitHeight = 567
+ ExplicitHeight = 574
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -42,7 +42,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
Width = 669
ExplicitWidth = 669
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 358
+ ExplicitWidth = 501
object TBXSeparatorItem84: TTBXSeparatorItem [6]
end
object TBXItem54: TTBXItem [7]
@@ -86,7 +86,15 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
inherited TBXTMain2: TTBXToolbar
Left = 269
DockPos = 264
+ Visible = True
ExplicitLeft = 269
+ ExplicitWidth = 209
+ object TBXItem39: TTBXItem
+ Action = actTrasladarReservados
+ end
+ object TBXItem38: TTBXItem
+ Action = actCancelarReserva
+ end
end
end
inherited StatusBar: TJvStatusBar
@@ -150,7 +158,6 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
item
Format = '0 Reservados'
Kind = skSum
- Column = frViewDetalleReservas1.cxGridViewCANTIDAD_ART
end>
end
end
@@ -162,7 +169,31 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
inherited dxLayoutControl1: TdxLayoutControl
Width = 669
ExplicitWidth = 669
+ inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 273
+ Width = 273
+ end
+ inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
+ inherited edtFechaFinFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ end
inherited eLista: TcxComboBox
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 20
Width = 20
end
@@ -247,6 +278,16 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
Caption = 'Contraer'
Visible = False
end
+ object actCancelarReserva: TAction
+ Category = 'Reservas'
+ Caption = 'Cancelar reserva'
+ OnExecute = actCancelarReservaExecute
+ end
+ object actTrasladarReservados: TAction
+ Category = 'Reservas'
+ Caption = 'Trasladar al destino'
+ OnExecute = actTrasladarReservadosExecute
+ end
end
inherited SmallImages: TPngImageList [5]
PngImages = <
diff --git a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas
index 04dc8576..6749f58e 100644
Binary files a/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas and b/Source/Modulos/Inventario/Views/uEditorDetalleReservas.pas differ
diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm
index 4c5b6d2f..110cd434 100644
--- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm
+++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.dfm
@@ -42,52 +42,79 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
item
Format = '0 Reservados'
Kind = skSum
- Column = cxGridViewCANTIDAD_ART
+ Column = cxGridViewCANTIDAD
end>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID'
Visible = False
+ VisibleForCustomization = False
end
- object cxGridViewREFERENCIA_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'REFERENCIA_ALB'
+ object cxGridViewFECHA_RESERVA: TcxGridDBColumn
+ Caption = 'Fecha de reserva'
+ DataBinding.FieldName = 'FECHA_RESERVA'
end
- object cxGridViewSITUACION_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'SITUACION_ALB'
+ object cxGridViewCAUSA_RESERVA: TcxGridDBColumn
+ Caption = 'Causa'
+ DataBinding.FieldName = 'CAUSA_RESERVA'
+ end
+ object cxGridViewID_ALMACEN: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_ALMACEN'
Visible = False
+ VisibleForCustomization = False
end
- object cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO_ALB'
+ object cxGridViewALMACEN: TcxGridDBColumn
+ Caption = 'Almac'#233'n'
+ DataBinding.FieldName = 'NOMBRE_ALMACEN'
end
- object cxGridViewID_ALMACEN_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'ID_ALMACEN_ALB'
+ object cxGridViewID_ARTICULO: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_ARTICULO'
Visible = False
+ VisibleForCustomization = False
end
- object cxGridViewALMACEN_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'ALMACEN_ALB'
+ object cxGridViewREFERENCIA: TcxGridDBColumn
+ Caption = 'Referencia'
+ DataBinding.FieldName = 'REFERENCIA'
end
- object cxGridViewCLIENTE_ALB: TcxGridDBColumn
- DataBinding.FieldName = 'CLIENTE_ALB'
+ object cxGridViewDESCRIPCION: TcxGridDBColumn
+ Caption = 'Descripci'#243'n'
+ DataBinding.FieldName = 'DESCRIPCION'
end
- object cxGridViewFAMILIA_ART: TcxGridDBColumn
- DataBinding.FieldName = 'FAMILIA_ART'
+ object cxGridViewFAMILIA: TcxGridDBColumn
+ Caption = 'Familia'
+ DataBinding.FieldName = 'FAMILIA'
end
- object cxGridViewREFERENCIA_ART: TcxGridDBColumn
- DataBinding.FieldName = 'REFERENCIA_ART'
+ object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
+ Caption = 'Unidad de medida'
+ DataBinding.FieldName = 'UNIDAD_MEDIDA'
+ Visible = False
+ VisibleForCustomization = False
end
- object cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn
- DataBinding.FieldName = 'REFERENCIA_PROV_ART'
+ object cxGridViewFABRICANTE: TcxGridDBColumn
+ Caption = 'Fabricante'
+ DataBinding.FieldName = 'FABRICANTE'
end
- object cxGridViewDESCRIPCION_ART: TcxGridDBColumn
- DataBinding.FieldName = 'DESCRIPCION_ART'
+ object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
+ Caption = 'Ref. fabricante'
+ DataBinding.FieldName = 'REFERENCIA_FABR'
end
- object cxGridViewCANTIDAD_ART: TcxGridDBColumn
- DataBinding.FieldName = 'CANTIDAD_ART'
+ object cxGridViewCANTIDAD: TcxGridDBColumn
+ Caption = 'Reservado'
+ DataBinding.FieldName = 'CANTIDAD'
PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
end
+ object cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn
+ DataBinding.FieldName = 'ID_ALMACEN_RESERVA'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewALMACEN_RESERVA: TcxGridDBColumn
+ Caption = 'Resevado para'
+ DataBinding.FieldName = 'NOMBRE_ALMACEN_RESERVA'
+ end
end
object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False
@@ -120,19 +147,28 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
+ Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
+ inherited eLista: TcxComboBox
+ Left = 383
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 383
+ ExplicitWidth = 215
+ Width = 215
+ end
end
end
end
- inherited pnlAgrupaciones: TTBXDockablePanel
- ExplicitWidth = 128
- end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.741107951390000000
diff --git a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
index 13f290d2..1df71e5f 100644
--- a/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
+++ b/Source/Modulos/Inventario/Views/uViewDetalleReservas.pas
@@ -33,17 +33,20 @@ type
PngImageList: TPngImageList;
cxStyleArticuloSinStock: TcxStyle;
cxGridViewRecID: TcxGridDBColumn;
- cxGridViewREFERENCIA_ALB: TcxGridDBColumn;
- cxGridViewSITUACION_ALB: TcxGridDBColumn;
- cxGridViewFECHA_PREVISTA_ENVIO_ALB: TcxGridDBColumn;
- cxGridViewID_ALMACEN_ALB: TcxGridDBColumn;
- cxGridViewALMACEN_ALB: TcxGridDBColumn;
- cxGridViewCLIENTE_ALB: TcxGridDBColumn;
- cxGridViewFAMILIA_ART: TcxGridDBColumn;
- cxGridViewREFERENCIA_ART: TcxGridDBColumn;
- cxGridViewREFERENCIA_PROV_ART: TcxGridDBColumn;
- cxGridViewDESCRIPCION_ART: TcxGridDBColumn;
- cxGridViewCANTIDAD_ART: TcxGridDBColumn;
+ cxGridViewFECHA_RESERVA: TcxGridDBColumn;
+ cxGridViewCAUSA_RESERVA: TcxGridDBColumn;
+ cxGridViewID_ALMACEN: TcxGridDBColumn;
+ cxGridViewALMACEN: TcxGridDBColumn;
+ cxGridViewID_ARTICULO: TcxGridDBColumn;
+ cxGridViewFAMILIA: TcxGridDBColumn;
+ cxGridViewREFERENCIA: TcxGridDBColumn;
+ cxGridViewDESCRIPCION: TcxGridDBColumn;
+ cxGridViewCANTIDAD: TcxGridDBColumn;
+ cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
+ cxGridViewFABRICANTE: TcxGridDBColumn;
+ cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
+ cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn;
+ cxGridViewALMACEN_RESERVA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -87,11 +90,11 @@ begin
CodigoAlmacen := IntToStr(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag);
if CodigoAlmacen <> '-1' then
begin
- FFiltro.AddItem(cxGridViewID_ALMACEN_ALB, foEqual, CodigoAlmacen, CodigoAlmacen);
- cxGridViewALMACEN_ALB.Visible := False;
+ FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
+ cxGridViewALMACEN.Visible := False;
end
else
- cxGridViewALMACEN_ALB.Visible := True;
+ cxGridViewALMACEN.Visible := True;
end;
procedure TfrViewDetalleReservas.AnadirOtrosFiltros;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 49455339..ec2767c5 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 7879c8e5..1c20c5dc 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -124,12 +124,12 @@ uses
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
- schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
- schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
- schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+ schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
+ schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index dee36536..0fd36938 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,294 +1,294 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse1270FalseFalseFalseFalseFalse308212521.2.7.01.2.7.0martes, 02 de septiembre de 2008 20:39FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse1280FalseFalseFalseFalseFalse308212521.2.8.01.2.7.0jueves, 04 de septiembre de 2008 16:14FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+