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 - - - - - -
srvEmpresas
- TDARemoteService -
- - - - - - - - - - - -
RptAlbaranesCliente
- TDataModule -
- -
RptWordAlbaranCliente
- TDataModule -
- -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - -
srvArticulos
- TDARemoteService -
- - - - - - - -
RptEtiquetasContacto
- TDataModule -
- -
RptFichasEmpleado
- TDataModule -
- -
srvContactos
- TDARemoteService -
- - - -
srvFabricantes
- TDataAbstractService -
- - - - -
RptFacturasCliente
- TDataModule -
- -
RptWordFacturaCliente
- TDataModule -
- -
srvFacturasCliente
- TDataAbstractService -
- - - - -
srvFacturasProveedor
- TDataAbstractService -
- - - - - - - - -
srvGestorDocumentos
- TDataAbstractService -
- - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - - - - - -
RptPedidosProveedor
- TDataModule -
- -
RptWordPedidoProveedor
- TDataModule -
- -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
- TDataModule -
- -
RptWordCertificadoTrabajo
- TDataModule -
- -
RptWordPresupuestoCliente
- TDataModule -
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - -
RptRecibosCliente
- TDataModule -
- -
srvRecibosCliente
- TDataAbstractService -
- - - -
srvRecibosProveedor
- TDataAbstractService -
- - - -
srvReferencias
- TDataAbstractService -
- - - - -
srvRemesasCliente
- TDataAbstractService -
- - - - -
srvRemesasProveedor
- TDataAbstractService -
- - - - - - -
srvUnidadesMedida
- TDataAbstractService -
- - - -
srvConfiguracion
- TDataAbstractService -
- -
frConexionBD
- TFrame -
- -
frConfGeneral
- TFrame -
- -
fConfiguracion
- TForm -
- -
FrameConfiguracion
- TFrame -
- -
srvLogin
- TDARemoteService -
- -
fAcercaDe
-
- -
dmServer
- TDataModule -
- -
fServerForm
-
- - - - - - - - - -
+ + {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 + + + + + +
srvEmpresas
+ TDARemoteService +
+ + + + + + + + + + + +
RptAlbaranesCliente
+ TDataModule +
+ +
RptWordAlbaranCliente
+ TDataModule +
+ +
srvAlbaranesCliente
+ TDataAbstractService +
+ + + + +
srvAlbaranesProveedor
+ TDataAbstractService +
+ + + +
srvAlmacenes
+ TDARemoteService +
+ + + + +
srvArticulos
+ TDARemoteService +
+ + + + + + + +
RptEtiquetasContacto
+ TDataModule +
+ +
RptFichasEmpleado
+ TDataModule +
+ +
srvContactos
+ TDARemoteService +
+ + + +
srvFabricantes
+ TDataAbstractService +
+ + + + +
RptFacturasCliente
+ TDataModule +
+ +
RptWordFacturaCliente
+ TDataModule +
+ +
srvFacturasCliente
+ TDataAbstractService +
+ + + + +
srvFacturasProveedor
+ TDataAbstractService +
+ + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService +
+ + + +
srvHistoricoMovimientos
+ TDataAbstractService +
+ + + +
srvInventario
+ TDataAbstractService +
+ + + + + + + + +
RptPedidosProveedor
+ TDataModule +
+ +
RptWordPedidoProveedor
+ TDataModule +
+ +
srvPedidosProveedor
+ TDataAbstractService +
+ + + + +
RptPresupuestosCliente
+ TDataModule +
+ +
RptWordCertificadoTrabajo
+ TDataModule +
+ +
RptWordPresupuestoCliente
+ TDataModule +
+ +
srvPresupuestosCliente
+ TDataAbstractService +
+ + + +
RptRecibosCliente
+ TDataModule +
+ +
srvRecibosCliente
+ TDataAbstractService +
+ + + +
srvRecibosProveedor
+ TDataAbstractService +
+ + + +
srvReferencias
+ TDataAbstractService +
+ + + + +
srvRemesasCliente
+ TDataAbstractService +
+ + + + +
srvRemesasProveedor
+ TDataAbstractService +
+ + + + + + +
srvUnidadesMedida
+ TDataAbstractService +
+ + + +
srvConfiguracion
+ TDataAbstractService +
+ +
frConexionBD
+ TFrame +
+ +
frConfGeneral
+ TFrame +
+ +
fConfiguracion
+ TForm +
+ +
FrameConfiguracion
+ TFrame +
+ +
srvLogin
+ TDARemoteService +
+ +
fAcercaDe
+
+ +
dmServer
+ TDataModule +
+ +
fServerForm
+
+ + + + + + + + + +